|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7648 (0x1de0)
Types: TextFile
Notes: Mikados_K
Names: »HANOI.K«
└─⟦89d8689a3⟧ Bits:30003591 MIKADOS Pascal compiler (01.02.1982 E)
└─⟦this⟧ »HANOI.K«
PROGRAM HANOI;
(*****************************************************)
(* *)
(* T O W E R S O F H A N O I *)
(* *)
(* MOVE A TOWER COMPOSED OF N DISCS OF SIZES 1..N *)
(* FROM THE LEFTMOST TO THE CENTER PEG OF 3 PEGS. *)
(* ONLY ONE DISC MAY BE MOVED AT A TIME. A DISC *)
(* MUST NEVER BE PLACED ON TOP OF A SMALLER DISC *)
(*******************************************RM-790725*)
CONST MAXTOWER = 13;
YLEVEL = 18; (*MAXTOWER+5*)
MAXLEVEL = 15; (*MAXTOWER+2*)
DISCMAX = 26; (* 2 * MAXTOWER *)
BLANKDISC = ' '; (* DISCMAX BLANKS *)
TYPE PEG = ( LEFT, CENTER, RIGHT );
VAR HEIGHT, XADDRESS: ARRAY( LEFT..RIGHT ) OF INTEGER;
TOWERSIZE: INTEGER;
PROCEDURE CURSOR( X, Y: INTEGER );
BEGIN
GOTOXY( X, YLEVEL-Y );
END (*CURSOR*);
PROCEDURE MOVEDISC( DISCSIZE: INTEGER; FROM, TILL: PEG );
VAR DISCIMAGE: STRING(DISCMAX);
I, STARTLEVEL, ENDLEVEL, X, XDISTANCE, LEVEL: INTEGER;
BEGIN
DISCIMAGE := BLANKDISC;
FOR I:=MAXTOWER+1-DISCSIZE TO DISCSIZE+MAXTOWER DO
DISCIMAGE(I) := '*';
STARTLEVEL := HEIGHT(FROM);
ENDLEVEL := HEIGHT(TILL)+1;
(* RAISE DISC FROM OLD PEG *)
FOR LEVEL:=STARTLEVEL+1 TO MAXLEVEL DO
BEGIN
CURSOR( XADDRESS(FROM), LEVEL-1 );
WRITE( ' ':DISCMAX );
CURSOR( XADDRESS(FROM), LEVEL );
WRITE( DISCIMAGE )
END;
HEIGHT(FROM) := HEIGHT(FROM) - 1;
(* MOVE DISC HORIZONTALLY *)
XDISTANCE := XADDRESS(TILL) - XADDRESS(FROM);
X := XADDRESS(FROM) - DISCSIZE + MAXTOWER;
IF XDISTANCE>0 THEN
FOR X:=X TO X+XDISTANCE-1 DO
BEGIN
CURSOR( X, MAXLEVEL );
WRITE( ' ' );
CURSOR( X+DISCSIZE+DISCSIZE, MAXLEVEL );
WRITE( '*' )
END
ELSE
FOR X:=X-1 DOWNTO X+XDISTANCE DO
BEGIN
CURSOR( X+DISCSIZE+DISCSIZE, MAXLEVEL );
WRITE( ' ' );
CURSOR( X, MAXLEVEL );
WRITE( '*' )
END;
(* LOWER DISC ONTO NEW PEG *)
FOR LEVEL:= MAXLEVEL DOWNTO ENDLEVEL+1 DO
BEGIN
CURSOR( XADDRESS(TILL), LEVEL );
WRITE( ' ':DISCMAX );
CURSOR( XADDRESS(TILL), LEVEL-1 );
WRITE( DISCIMAGE )
END;
HEIGHT(TILL) := ENDLEVEL;
END (*MOVEDISC*);
PROCEDURE MOVETOWER( SUBTOWERSIZE: INTEGER; FROM, TILL: PEG );
VAR HELPPEG: PEG;
FUNCTION FIND( FIRST, SECOND: PEG): PEG;
VAR HELP: PEG;
BEGIN
IF FIRST > SECOND THEN
BEGIN
HELP:=FIRST; FIRST:=SECOND; SECOND:=HELP
END;
IF FIRST=LEFT THEN
IF SECOND=CENTER THEN FIND:=RIGHT
ELSE FIND:=CENTER
ELSE FIND:=LEFT;
END (*FIND*);
BEGIN (*MOVETOWER*)
IF SUBTOWERSIZE=1 THEN MOVEDISC( 1, FROM, TILL )
ELSE
BEGIN
HELPPEG := FIND( FROM, TILL );
MOVETOWER( SUBTOWERSIZE-1, FROM, HELPPEG );
MOVEDISC( SUBTOWERSIZE, FROM, TILL );
MOVETOWER( SUBTOWERSIZE-1, HELPPEG, TILL );
IF EOF(OUTPUT) THEN
BEGIN
GOTOXY(1,24);
EXIT( HANOI )
END;
END;
END (*MOVETOWER*);
PROCEDURE INITIALIZE;
PROCEDURE SETUPARRAYS;
VAR PIN: PEG;
BEGIN
FOR PIN:=LEFT TO RIGHT DO
BEGIN
XADDRESS(CENTER) := 41 - MAXTOWER;
XADDRESS(LEFT) := 41 - MAXTOWER*3;
XADDRESS(RIGHT) := 41 + MAXTOWER;
IF PIN=LEFT THEN HEIGHT(PIN):=TOWERSIZE
ELSE HEIGHT(PIN):=0;
END;
END (*SETUPARRAYS*);
PROCEDURE DRAW;
VAR DISCLEVEL: INTEGER;
I: INTEGER;
DISCIMAGE: STRING(DISCMAX);
BEGIN
DISCIMAGE := BLANKDISC;
FOR DISCLEVEL:=1 TO TOWERSIZE DO
BEGIN
FOR I:=MAXTOWER+1-DISCLEVEL TO DISCLEVEL+MAXTOWER DO
DISCIMAGE(I) := '*';
CURSOR( XADDRESS(LEFT), TOWERSIZE-DISCLEVEL+1 );
WRITE( DISCIMAGE )
END;
END (*DRAW*);
BEGIN (*INITIALIZE*)
WRITELN; WRITELN;
REPEAT
BEGIN
WRITE('TOWERS OF HANOI -- ENTER TOWER SIZE (1-',MAXTOWER,'): ');
READ( TOWERSIZE )
END;
UNTIL TOWERSIZE IN (.1..MAXTOWER.);
SETUPARRAYS;
CLEARSCREEN;
GOTOXY( 22,1 );
WRITE( 'T O W E R S O F H A N O I');
DRAW;
END (*INITIALIZE*);
BEGIN
INITIALIZE;
MOVETOWER( TOWERSIZE, LEFT, CENTER );
GOTOXY( 1, 24 );
END (*TOWERS OF HANOI*).
0x0000…0010 Line {l1=0x0e, l2=»PROGRAM HANOI;«, l3=0x0e}
0x0010…001c Line {l1=0x0a, l2=» «, l3=0x0a}
0x001c…005c Line {l1=0x3e, l2=» (*****************************************************)«, l3=0x3e}
0x005c…009c Line {l1=0x3e, l2=» (* *)«, l3=0x3e}
0x009c…00dc Line {l1=0x3e, l2=» (* T O W E R S O F H A N O I *)«, l3=0x3e}
0x00dc…011c Line {l1=0x3e, l2=» (* *)«, l3=0x3e}
0x011c…015c Line {l1=0x3e, l2=» (* MOVE A TOWER COMPOSED OF N DISCS OF SIZES 1..N *)«, l3=0x3e}
0x015c…019c Line {l1=0x3e, l2=» (* FROM THE LEFTMOST TO THE CENTER PEG OF 3 PEGS. *)«, l3=0x3e}
0x019c…01dc Line {l1=0x3e, l2=» (* ONLY ONE DISC MAY BE MOVED AT A TIME. A DISC *)«, l3=0x3e}
0x01dc…021c Line {l1=0x3e, l2=» (* MUST NEVER BE PLACED ON TOP OF A SMALLER DISC *)«, l3=0x3e}
0x021c…025c Line {l1=0x3e, l2=» (*******************************************RM-790725*)«, l3=0x3e}
0x025c…025f Line {l1=0x01, l2=» «, l3=0x01}
0x025f…0275 Line {l1=0x14, l2=»CONST MAXTOWER = 13;«, l3=0x14}
0x0275…0298 Line {l1=0x21, l2=» YLEVEL = 18; (*MAXTOWER+5*)«, l3=0x21}
0x0298…02bd Line {l1=0x23, l2=» MAXLEVEL = 15; (*MAXTOWER+2*)«, l3=0x23}
0x02bd…02e6 Line {l1=0x27, l2=» DISCMAX = 26; (* 2 * MAXTOWER *)«, l3=0x27}
0x02e6…032c Line {l1=0x44, l2=» BLANKDISC = ' '; (* DISCMAX BLANKS *)«, l3=0x44}
0x032c…032f Line {l1=0x01, l2=» «, l3=0x01}
0x032f…0354 Line {l1=0x23, l2=»TYPE PEG = ( LEFT, CENTER, RIGHT );«, l3=0x23}
0x0354…0357 Line {l1=0x01, l2=» «, l3=0x01}
0x0357…038f Line {l1=0x36, l2=»VAR HEIGHT, XADDRESS: ARRAY( LEFT..RIGHT ) OF INTEGER;«, l3=0x36}
0x038f…03a8 Line {l1=0x17, l2=» TOWERSIZE: INTEGER;«, l3=0x17}
0x03a8…03ab Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x03ae…03d2 Line {l1=0x22, l2=»PROCEDURE CURSOR( X, Y: INTEGER );«, l3=0x22}
0x03d2…03d9 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x03d9…03f3 Line {l1=0x18, l2=» GOTOXY( X, YLEVEL-Y );«, l3=0x18}
0x03f3…0405 Line {l1=0x10, l2=»END (*CURSOR*);«, l3=0x10}
0x0405…0408 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x040b…0446 Line {l1=0x39, l2=»PROCEDURE MOVEDISC( DISCSIZE: INTEGER; FROM, TILL: PEG );«, l3=0x39}
0x0446…0469 Line {l1=0x21, l2=» VAR DISCIMAGE: STRING(DISCMAX);«, l3=0x21}
0x0469…04a7 Line {l1=0x3c, l2=» I, STARTLEVEL, ENDLEVEL, X, XDISTANCE, LEVEL: INTEGER;«, l3=0x3c}
0x04a7…04ae Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x04ae…04c9 Line {l1=0x19, l2=» DISCIMAGE := BLANKDISC;«, l3=0x19}
0x04c9…04ff Line {l1=0x34, l2=» FOR I:=MAXTOWER+1-DISCSIZE TO DISCSIZE+MAXTOWER DO«, l3=0x34}
0x04ff…0547 Line {l1=0x46, l2=» DISCIMAGE(I) := '*';«, l3=0x46}
0x0547…0566 Line {l1=0x1d, l2=» STARTLEVEL := HEIGHT(FROM);«, l3=0x1d}
0x0566…0587 Line {l1=0x1f, l2=» ENDLEVEL := HEIGHT(TILL)+1;«, l3=0x1f}
0x0587…058a Line {l1=0x01, l2=» «, l3=0x01}
0x058a…05ae Line {l1=0x22, l2=» (* RAISE DISC FROM OLD PEG *)«, l3=0x22}
0x05ae…05b1 Line {l1=0x01, l2=» «, l3=0x01}
0x05b1…05db Line {l1=0x28, l2=» FOR LEVEL:=STARTLEVEL+1 TO MAXLEVEL DO«, l3=0x28}
0x05db…05e6 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x05e6…060e Line {l1=0x26, l2=» CURSOR( XADDRESS(FROM), LEVEL-1 );«, l3=0x26}
0x060e…0629 Line {l1=0x19, l2=» WRITE( ' ':DISCMAX );«, l3=0x19}
0x0629…064f Line {l1=0x24, l2=» CURSOR( XADDRESS(FROM), LEVEL );«, l3=0x24}
0x064f…0667 Line {l1=0x16, l2=» WRITE( DISCIMAGE )«, l3=0x16}
0x0667…0671 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0671…0696 Line {l1=0x23, l2=» HEIGHT(FROM) := HEIGHT(FROM) - 1;«, l3=0x23}
0x0696…0699 Line {l1=0x01, l2=» «, l3=0x01}
0x0699…06bc Line {l1=0x21, l2=» (* MOVE DISC HORIZONTALLY *)«, l3=0x21}
0x06bc…06c3 Line {l1=0x05, l2=» «, l3=0x05}
0x06c3…06f4 Line {l1=0x2f, l2=» XDISTANCE := XADDRESS(TILL) - XADDRESS(FROM);«, l3=0x2f}
0x06f4…0722 Line {l1=0x2c, l2=» X := XADDRESS(FROM) - DISCSIZE + MAXTOWER;«, l3=0x2c}
0x0722…0739 Line {l1=0x15, l2=» IF XDISTANCE>0 THEN«, l3=0x15}
0x0739…075b Line {l1=0x20, l2=» FOR X:=X TO X+XDISTANCE-1 DO«, l3=0x20}
0x075b…0768 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0768…0786 Line {l1=0x1c, l2=» CURSOR( X, MAXLEVEL );«, l3=0x1c}
0x0786…079b Line {l1=0x13, l2=» WRITE( ' ' );«, l3=0x13}
0x079b…07cb Line {l1=0x2e, l2=» CURSOR( X+DISCSIZE+DISCSIZE, MAXLEVEL );«, l3=0x2e}
0x07cb…07df Line {l1=0x12, l2=» WRITE( '*' )«, l3=0x12}
0x07df…07ea Line {l1=0x09, l2=» END«, l3=0x09}
0x07ea…07f2 Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x07f2…0818 Line {l1=0x24, l2=» FOR X:=X-1 DOWNTO X+XDISTANCE DO«, l3=0x24}
0x0818…0825 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0825…0855 Line {l1=0x2e, l2=» CURSOR( X+DISCSIZE+DISCSIZE, MAXLEVEL );«, l3=0x2e}
0x0855…086a Line {l1=0x13, l2=» WRITE( ' ' );«, l3=0x13}
0x086a…0888 Line {l1=0x1c, l2=» CURSOR( X, MAXLEVEL );«, l3=0x1c}
0x0888…089c Line {l1=0x12, l2=» WRITE( '*' )«, l3=0x12}
0x089c…08a8 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x08a8…08ab Line {l1=0x01, l2=» «, l3=0x01}
0x08ab…08cf Line {l1=0x22, l2=» (* LOWER DISC ONTO NEW PEG *)«, l3=0x22}
0x08cf…08d3 Line {l1=0x02, l2=» «, l3=0x02}
0x08d3…0900 Line {l1=0x2b, l2=» FOR LEVEL:= MAXLEVEL DOWNTO ENDLEVEL+1 DO«, l3=0x2b}
0x0900…090b Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x090b…0931 Line {l1=0x24, l2=» CURSOR( XADDRESS(TILL), LEVEL );«, l3=0x24}
0x0931…094c Line {l1=0x19, l2=» WRITE( ' ':DISCMAX );«, l3=0x19}
0x094c…0974 Line {l1=0x26, l2=» CURSOR( XADDRESS(TILL), LEVEL-1 );«, l3=0x26}
0x0974…098c Line {l1=0x16, l2=» WRITE( DISCIMAGE )«, l3=0x16}
0x098c…0996 Line {l1=0x08, l2=» END;«, l3=0x08}
0x0996…09b3 Line {l1=0x1b, l2=» HEIGHT(TILL) := ENDLEVEL;«, l3=0x1b}
0x09b3…09c6 Line {l1=0x11, l2=»END (*MOVEDISC*);«, l3=0x11}
0x09c6…09c9 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x09cc…0a0c Line {l1=0x3e, l2=»PROCEDURE MOVETOWER( SUBTOWERSIZE: INTEGER; FROM, TILL: PEG );«, l3=0x3e}
0x0a0c…0a21 Line {l1=0x13, l2=» VAR HELPPEG: PEG;«, l3=0x13}
0x0a21…0a25 Line {l1=0x02, l2=» «, l3=0x02}
0x0a25…0a28 Line {l1=0x01, l2=» «, l3=0x01}
0x0a28…0a54 Line {l1=0x2a, l2=» FUNCTION FIND( FIRST, SECOND: PEG): PEG;«, l3=0x2a}
0x0a54…0a68 Line {l1=0x12, l2=» VAR HELP: PEG;«, l3=0x12}
0x0a68…0a71 Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0a71…0a8d Line {l1=0x1a, l2=» IF FIRST > SECOND THEN«, l3=0x1a}
0x0a8d…0a9a Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0a9a…0aca Line {l1=0x2e, l2=» HELP:=FIRST; FIRST:=SECOND; SECOND:=HELP«, l3=0x2e}
0x0aca…0ad6 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0ad6…0aee Line {l1=0x16, l2=» IF FIRST=LEFT THEN«, l3=0x16}
0x0aee…0b17 Line {l1=0x27, l2=» IF SECOND=CENTER THEN FIND:=RIGHT«, l3=0x27}
0x0b17…0b30 Line {l1=0x17, l2=» ELSE FIND:=CENTER«, l3=0x17}
0x0b30…0b46 Line {l1=0x14, l2=» ELSE FIND:=LEFT;«, l3=0x14}
0x0b46…0b57 Line {l1=0x0f, l2=» END (*FIND*);«, l3=0x0f}
0x0b57…0b5a Line {l1=0x01, l2=» «, l3=0x01}
0x0b5a…0b70 Line {l1=0x14, l2=»BEGIN (*MOVETOWER*)«, l3=0x14}
0x0b70…0ba4 Line {l1=0x32, l2=» IF SUBTOWERSIZE=1 THEN MOVEDISC( 1, FROM, TILL )«, l3=0x32}
0x0ba4…0bac Line {l1=0x06, l2=» ELSE«, l3=0x06}
0x0bac…0bb7 Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x0bb7…0bdb Line {l1=0x22, l2=» HELPPEG := FIND( FROM, TILL );«, l3=0x22}
0x0bdb…0c0c Line {l1=0x2f, l2=» MOVETOWER( SUBTOWERSIZE-1, FROM, HELPPEG );«, l3=0x2f}
0x0c0c…0c37 Line {l1=0x29, l2=» MOVEDISC( SUBTOWERSIZE, FROM, TILL );«, l3=0x29}
0x0c37…0c68 Line {l1=0x2f, l2=» MOVETOWER( SUBTOWERSIZE-1, HELPPEG, TILL );«, l3=0x2f}
0x0c68…0c81 Line {l1=0x17, l2=» IF EOF(OUTPUT) THEN«, l3=0x17}
0x0c81…0c8e Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0c8e…0ca3 Line {l1=0x13, l2=» GOTOXY(1,24);«, l3=0x13}
0x0ca3…0cb8 Line {l1=0x13, l2=» EXIT( HANOI )«, l3=0x13}
0x0cb8…0cc4 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0cc4…0cce Line {l1=0x08, l2=» END;«, l3=0x08}
0x0cce…0ce3 Line {l1=0x13, l2=»END (*MOVETOWER*);«, l3=0x13}
0x0ce3…0ce6 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0ce9…0d00 Line {l1=0x15, l2=»PROCEDURE INITIALIZE;«, l3=0x15}
0x0d00…0d03 Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x0d06…0d20 Line {l1=0x18, l2=» PROCEDURE SETUPARRAYS;«, l3=0x18}
0x0d20…0d33 Line {l1=0x11, l2=» VAR PIN: PEG;«, l3=0x11}
0x0d33…0d3c Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0d3c…0d5b Line {l1=0x1d, l2=» FOR PIN:=LEFT TO RIGHT DO«, l3=0x1d}
0x0d5b…0d68 Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0d68…0d92 Line {l1=0x28, l2=» XADDRESS(CENTER) := 41 - MAXTOWER;«, l3=0x28}
0x0d92…0dbe Line {l1=0x2a, l2=» XADDRESS(LEFT) := 41 - MAXTOWER*3;«, l3=0x2a}
0x0dbe…0de8 Line {l1=0x28, l2=» XADDRESS(RIGHT) := 41 + MAXTOWER;«, l3=0x28}
0x0de8…0e17 Line {l1=0x2d, l2=» IF PIN=LEFT THEN HEIGHT(PIN):=TOWERSIZE«, l3=0x2d}
0x0e17…0e3f Line {l1=0x26, l2=» ELSE HEIGHT(PIN):=0;«, l3=0x26}
0x0e3f…0e4b Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x0e4b…0e64 Line {l1=0x17, l2=» END (*SETUPARRAYS*);«, l3=0x17}
0x0e64…0e68 Line {l1=0x02, l2=» «, l3=0x02}
[…0x1…]
0x0e6c…0e7f Line {l1=0x11, l2=» PROCEDURE DRAW;«, l3=0x11}
0x0e7f…0e9c Line {l1=0x1b, l2=» VAR DISCLEVEL: INTEGER;«, l3=0x1b}
0x0e9c…0eb1 Line {l1=0x13, l2=» I: INTEGER;«, l3=0x13}
0x0eb1…0ed6 Line {l1=0x23, l2=» DISCIMAGE: STRING(DISCMAX);«, l3=0x23}
0x0ed6…0edf Line {l1=0x07, l2=» BEGIN«, l3=0x07}
0x0edf…0efc Line {l1=0x1b, l2=» DISCIMAGE := BLANKDISC;«, l3=0x1b}
0x0efc…0f22 Line {l1=0x24, l2=» FOR DISCLEVEL:=1 TO TOWERSIZE DO«, l3=0x24}
0x0f22…0f2f Line {l1=0x0b, l2=» BEGIN«, l3=0x0b}
0x0f2f…0f6b Line {l1=0x3a, l2=» FOR I:=MAXTOWER+1-DISCLEVEL TO DISCLEVEL+MAXTOWER DO«, l3=0x3a}
0x0f6b…0fb3 Line {l1=0x46, l2=» DISCIMAGE(I) := '*';«, l3=0x46}
0x0fb3…0feb Line {l1=0x36, l2=» CURSOR( XADDRESS(LEFT), TOWERSIZE-DISCLEVEL+1 );«, l3=0x36}
0x0feb…1005 Line {l1=0x18, l2=» WRITE( DISCIMAGE )«, l3=0x18}
0x1005…1011 Line {l1=0x0a, l2=» END;«, l3=0x0a}
0x1011…1023 Line {l1=0x10, l2=» END (*DRAW*);«, l3=0x10}
0x1023…1026 Line {l1=0x01, l2=» «, l3=0x01}
0x1026…102a Line {l1=0x02, l2=» «, l3=0x02}
0x102a…1043 Line {l1=0x17, l2=» BEGIN (*INITIALIZE*)«, l3=0x17}
0x1043…1058 Line {l1=0x13, l2=» WRITELN; WRITELN;«, l3=0x13}
0x1058…1062 Line {l1=0x08, l2=» REPEAT«, l3=0x08}
0x1062…106d Line {l1=0x09, l2=» BEGIN«, l3=0x09}
0x106d…10b5 Line {l1=0x46, l2=» WRITE('TOWERS OF HANOI -- ENTER TOWER SIZE (1-',MAXTOWER,'): ');«, l3=0x46}
0x10b5…10cc Line {l1=0x15, l2=» READ( TOWERSIZE )«, l3=0x15}
0x10cc…10d6 Line {l1=0x08, l2=» END;«, l3=0x08}
0x10d6…10fd Line {l1=0x25, l2=» UNTIL TOWERSIZE IN (.1..MAXTOWER.);«, l3=0x25}
0x10fd…110d Line {l1=0x0e, l2=» SETUPARRAYS;«, l3=0x0e}
0x110d…111d Line {l1=0x0e, l2=» CLEARSCREEN;«, l3=0x0e}
0x111d…1130 Line {l1=0x11, l2=» GOTOXY( 22,1 );«, l3=0x11}
0x1130…115c Line {l1=0x2a, l2=» WRITE( 'T O W E R S O F H A N O I');«, l3=0x2a}
0x115c…1165 Line {l1=0x07, l2=» DRAW;«, l3=0x07}
0x1165…117b Line {l1=0x14, l2=»END (*INITIALIZE*);«, l3=0x14}
0x117b…117e Line {l1=0x01, l2=» «, l3=0x01}
[…0x1…]
0x1181…1188 Line {l1=0x05, l2=»BEGIN«, l3=0x05}
0x1188…1197 Line {l1=0x0d, l2=» INITIALIZE;«, l3=0x0d}
0x1197…11c0 Line {l1=0x27, l2=» MOVETOWER( TOWERSIZE, LEFT, CENTER );«, l3=0x27}
0x11c0…11d4 Line {l1=0x12, l2=» GOTOXY( 1, 24 );«, l3=0x12}
0x11d4…11ef Line {l1=0x19, l2=»END (*TOWERS OF HANOI*).«, l3=0x19}
0x11ef…1200 00 00 4f 49 2a 29 2e 19 00 00 58 59 28 20 31 2c 20 ┆ OI*). XY( 1, ┆
0x1200…1220 32 34 20 29 3b 12 19 45 4e 44 20 20 28 2a 54 4f 57 45 52 53 20 4f 46 20 48 41 4e 4f 49 2a 29 2e ┆24 ); END (*TOWERS OF HANOI*).┆
0x1220…1240 19 00 00 35 c2 d5 0d c3 e6 0b 06 05 cd 74 0e 05 c2 6c 0e c9 3e 86 3d c2 76 0e c9 db 01 e6 04 c2 ┆ 5 t l > = v ┆
0x1240…1260 7b 0e c9 3e 03 32 87 2e 2a 91 2e 7c b5 c2 9f 0e 3a 90 2e 2f d3 f4 21 50 00 cd b0 05 c3 ad 0e f3 ┆æ > 2 .* .ø : ./ !P ┆
0x1260…1280 7e 01 ff 0f 71 23 b6 70 fb a7 c2 c0 0e cd 22 05 22 91 2e 01 ff 0f 71 23 70 01 f7 37 eb cd 62 03 ┆ü q# p " " . q#p 7 b ┆
0x1280…12a0 2a 80 2e 11 0a 00 19 7e 2f d3 f4 cd 96 0f db f0 e6 80 c2 eb 0b 3e 4d 32 93 2e 97 32 88 2e 3a 90 ┆* . ü/ >M2 . 2 .: ┆
0x12a0…12c0 2e be ca fe 0e 7e 32 90 2e 3e c4 d3 f0 cd 96 0f cd 69 0f db f0 e6 88 c2 7e 0f db f2 d3 f1 db f0 ┆. ü2 .> i ü ┆
0x12c0…12e0 e6 80 c2 eb 0b 2a 7d 2e 7d d3 f3 3e 19 d3 f0 cd 69 0f db f0 e6 10 c2 7e 0f 3a 7a 2e 47 3a 7f 2e ┆ *å.å > i ü :z.G: .┆
0x12e0…1300 57 2a 8e 2e d3 2d 3a 75 2e fe 01 3e 46 1e 80 ca 36 0f 3e 4a 1e a0 d3 2b d3 2c 7d d3 24 7c d3 24 ┆W* . -:u. >F 6 >J + ,å $ø $┆
0x1300…1320 3e ff d3 25 d3 25 78 3d 32 88 2e 3e 0b d3 2f 7a 3c 32 8a 2e d3 f2 7b 32 89 2e d3 f0 cd 69 0f db ┆> % %x=2 .> /z<2 . æ2 . i ┆
0x1320…1340 f0 e6 34 c2 7e 0f c3 64 0b c5 d5 e5 f3 db fe f6 08 d3 fe fb 01 cf 38 cd 21 04 e1 d1 c1 c9 21 87 ┆ 4 ü d 8 ! ! ┆
0x1340…1360 2e 35 ca e6 0b 3e 0d d3 f0 cd 69 0f db f0 e6 04 c2 c0 0e c3 7e 0f 3e 03 3d c2 98 0f c9 76 76 76 ┆.5 > i ü > = vvv┆
0x1360…1380 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
[…0x1…]
0x13a0…13c0 76 76 76 76 76 76 76 76 06 00 50 31 90 01 ff 01 01 30 f0 0b c0 00 00 80 50 32 90 01 ff 01 01 30 ┆vvvvvvvv P1 0 P2 0┆
0x13c0…13e0 f0 0b 80 00 00 80 50 33 90 01 ff 01 01 30 f0 0b 40 00 00 80 50 34 90 01 ff 01 01 30 f0 0b 00 00 ┆ P3 0 @ P4 0 ┆
0x13e0…1400 00 80 50 35 27 00 07 00 02 09 83 0e 59 00 00 00 50 36 26 00 07 00 02 1a 9d 0d 81 00 00 40 76 76 ┆ P5' Y P6& @vv┆
0x1400…1420 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x1420…1440 76 76 76 76 76 76 76 76 2a 00 2e eb 21 12 00 19 7e f5 21 10 00 19 5e 23 56 21 24 00 cd 6f 15 21 ┆vvvvvvvv* . ! ü ! ^#V!$ o !┆
0x1440…1460 23 00 cd 55 15 f1 77 3e 03 cd 1f 16 3e 53 cd 1f 16 3e 5a cd 1f 16 3e 04 cd 1f 16 21 22 00 cd 55 ┆# U w> >S >Z > !" U┆
0x1460…1480 15 36 00 16 00 5a 21 0d 00 cd 6f 15 f3 db fe f6 20 d3 fe fb cd 54 05 e5 d5 21 00 00 cd 55 15 d1 ┆ 6 Z! o T ! U ┆
0x1480…14a0 06 0b cd c9 05 21 14 00 cd 55 15 36 00 21 00 00 cd 65 15 cd 54 06 47 21 26 00 cd 55 15 70 21 02 ┆ ! U 6 ! e T G!& U p! ┆
0x14a0…14c0 00 cd 55 15 7e fe 01 ca bd 12 fe 02 ca 29 11 fe 03 ca 29 11 fe 07 ca fe 14 c3 fc 10 21 14 00 cd ┆ U ü ) ) ! ┆
0x14c0…14e0 55 15 f3 7e f6 04 77 fb 21 14 00 cd 55 15 eb e1 e5 01 0d 00 09 06 03 cd c9 05 21 00 00 cd 65 15 ┆U ü w ! U ! e ┆
0x14e0…1500 44 4d e1 cd 62 03 c3 b4 10 21 0f 00 cd 55 15 36 00 21 04 00 cd 65 15 eb 21 06 00 cd 65 15 cd 5b ┆DM b ! U 6 ! e ! e Æ┆
0x1500…1520 04 ca 2a 12 d2 fc 10 1a fe 3c c2 e3 11 cd 38 15 cd 38 15 fe 3e ca e3 11 fe 58 c2 66 11 01 4c 16 ┆ * < 8 8 > X f L ┆
0x1520…1540 cd 76 15 c3 50 11 fe 45 ca 50 11 fe 53 c2 7c 11 e5 21 0f 00 cd 55 15 34 e1 c3 50 11 fe 42 c2 94 ┆ v P E P S ø ! U 4 P B ┆
0x1540…1560 11 e5 21 0f 00 cd 55 15 34 34 01 50 16 cd 76 15 e1 c3 50 11 fe 50 c2 ae 11 e5 21 0f 00 cd 55 15 ┆ ! U 44 P v P P ! U ┆
0x1560…1580 7e f6 08 77 01 57 16 cd 76 15 e1 c3 50 11 fe 43 c2 fc 10 cd 1e 15 e5 21 1a 00 cd 55 15 77 e1 cd ┆ü w W v P C ! U w ┆
0x1580…15a0 1e 15 e5 d5 21 19 00 cd 55 15 77 21 17 00 cd 55 15 54 5d 36 1b 23 36 3d 21 04 00 cd b5 15 d1 e1 ┆ ! U w! U TÅ6 #6=! ┆
0x15a0…15c0 c3 50 11 e5 21 02 00 cd 55 15 7e e1 fe 03 c2 0f 12 d5 eb 19 eb 0e 00 1b 1a fe 20 c2 05 12 0c 2b ┆ P ! U ü +┆
0x15c0…15e0 7c b5 c2 f7 11 e5 21 17 00 cd 55 15 71 e1 d1 cd 5b 04 d2 18 12 cd b5 15 21 0f 00 cd 55 15 7e e6 ┆ø ! U q Æ ! U ü ┆
0x15e0…1600 0a ca 2a 12 01 52 16 cd 76 15 21 02 00 cd 55 15 7e fe 03 ca 4b 12 21 0f 00 cd 55 15 7e e6 01 c2 ┆ * R v ! U ü K ! U ü ┆
0x1600…1620 48 12 01 43 16 cd 76 15 c3 08 11 21 08 00 cd 55 15 4e 06 00 21 04 00 cd 65 15 09 eb 21 04 00 cd ┆H C v ! U N ! e ! ┆
0x1620…1640 6f 15 21 06 00 cd 65 15 cd 53 04 09 eb 21 06 00 cd 6f 15 7a a7 fa fc 10 21 17 00 cd 55 15 7b 06 ┆o ! e S ! o z ! U æ ┆
0x1640…1660 08 96 f2 89 12 2f 3c 06 20 4f cd 85 15 21 03 00 cd 55 15 7e e6 04 ca e2 12 21 09 00 cd 55 15 4e ┆ /< O ! U ü ! U N┆
0x1660…1680 06 00 21 04 00 cd 65 15 09 eb 21 10 00 cd 6f 15 cd 32 15 21 04 00 cd 65 15 eb c3 ef 12 21 03 00 ┆ ! e ! o 2 ! e ! ┆
0x1680…16a0 cd 55 15 7e e6 02 c2 cd 14 21 06 00 cd 65 15 eb 21 04 00 cd 65 15 1b 7a a7 fa e2 12 36 20 23 c3 ┆ U ü ! e ! e z 6 # ┆
0x16a0…16c0 d6 12 21 04 00 cd 65 15 eb 21 10 00 cd 6f 15 21 06 00 cd 65 15 19 eb 21 12 00 cd 6f 15 cd ff 15 ┆ ! e ! o ! e ! o ┆
0x16c0…16e0 fe 80 ca fd 12 47 21 10 00 cd 65 15 fe 20 da 2d 13 fe 7f ca f9 13 cd 45 15 f2 5a 13 70 23 eb 21 ┆ G! e - E Z p# !┆
0x16e0…1700 10 00 cd 6f 15 0e 01 cd 85 15 c3 fd 12 fe 0d ca 78 14 fe 1b ca 6e 14 fe 03 ca 6e 14 fe 09 ca 7e ┆ o x n n ü┆
0x1700…1720 13 fe 08 ca 5f 13 fe 0a ca 20 14 fe 0b ca 20 14 fe 0c ca 75 13 fe 1e ca c9 13 06 07 c3 25 13 eb ┆ _ u % ┆
0x1720…1740 21 04 00 cd 65 15 cd 43 04 19 cd 5b 04 d2 5a 13 eb 2b c3 1e 13 cd 45 15 f2 5a 13 c3 1d 13 eb 21 ┆! e C Æ Z + E Z !┆
0x1740…1760 04 00 cd 65 15 2b cd 43 04 19 eb 21 02 00 cd 55 15 7e fe 03 c2 a4 13 21 08 00 cd 55 15 6e 26 00 ┆ e + C ! U ü ! U n& ┆
0x1760…1780 19 2b 2b eb 7b e6 07 4f 3e 08 91 4f 5f 16 00 21 10 00 cd 65 15 19 cd 45 15 f2 5a 13 eb 21 10 00 ┆ ++ æ O> O_ ! e E Z ! ┆
0x1780…17a0 cd 6f 15 cd 32 15 c3 fd 12 cd 43 04 eb 21 12 00 cd 65 15 19 cd 5b 04 d2 5a 13 06 20 4d c5 cd 85 ┆ o 2 C ! e Æ Z M ┆
0x17a0…17c0 15 c1 c5 06 08 cd 85 15 21 10 00 cd 65 15 c1 36 20 23 0d c2 ef 13 c3 fd 12 cd 43 04 eb 21 12 00 ┆ ! e 6 # C ! ┆
0x17c0…17e0 cd 65 15 19 06 20 4d cd 85 15 21 06 00 cd 65 15 cd 5b 04 ca c9 12 01 46 16 cd 76 15 2b c3 10 14 ┆ e M ! e Æ F v + ┆
0x17e0…1800 cd 43 04 eb 21 12 00 cd 65 15 19 2b cd 5b 04 fa 5a 13 78 45 4d fe 0b ca 49 14 21 10 00 cd 65 15 ┆ C ! e + Æ Z xEM I ! e ┆
0x1800…1820 54 5d 13 cd c9 05 c3 56 14 21 12 00 cd 65 15 2b 54 5d 1b cd 0e 06 36 20 21 10 00 cd 65 15 eb 0c ┆TÅ V ! e +TÅ 6 ! e ┆
0x1820…1840 69 26 00 cd b5 15 06 08 cd 85 15 c3 fd 12 21 14 00 cd 55 15 7e f6 10 77 21 12 00 cd 65 15 eb 21 ┆i& ! U ü w! e !┆
0x1840…1860 06 00 cd 65 15 2b 7c a7 fa 92 14 1b 1a fe 20 ca 85 14 23 7d b4 c2 a9 14 21 04 00 cd 65 15 eb 21 ┆ e +ø #å ! e !┆
0x1860…1880 10 00 cd 65 15 cd 4b 04 19 eb 21 15 00 cd 6f 15 21 03 00 cd 55 15 7e e6 01 c2 c3 14 06 0a 0e 01 ┆ e K ! o ! U ü ┆
0x1880…18a0 cd 85 15 06 0d 0e 01 cd 85 15 c3 08 11 21 04 00 cd 65 15 eb 21 06 00 cd 65 15 e5 cd 5b 04 ca ef ┆ ! e ! e Æ ┆
0x18a0…18c0 14 cd ff 15 fe 80 ca ef 14 12 13 2b c3 db 14 eb cd 43 04 d1 19 21 15 00 cd 6f 15 c3 08 11 21 09 ┆ + C ! o ! ┆
0x18c0…18e0 00 cd 65 15 eb 21 0b 00 cd 6f 15 21 04 00 cd 65 15 eb 21 0d 00 cd 6f 15 01 f1 37 c3 22 11 cd 38 ┆ e ! o ! e ! o 7 " 8┆
0x18e0…1900 15 d6 30 87 47 87 87 80 47 cd 38 15 d6 30 80 c6 1f c9 06 0c cd 85 15 c9 2b cd 5b 04 f2 42 15 3e ┆ 0 G G 8 0 + Æ B >┆
0x1900…1920 3e c9 1a 13 c9 eb 21 12 00 cd 65 15 cd 43 04 19 cd 5b 04 eb c9 d5 e5 2a 00 2e 11 0c 00 19 5e 23 ┆> ! e C Æ * . ^#┆
0x1920…1940 56 e1 19 d1 c9 cd 55 15 d5 5e 23 56 eb d1 c9 cd 55 15 73 23 72 c9 d5 e5 0a 6f 26 00 03 50 59 cd ┆V U ^#V U s#r o& PY ┆
0x1940…1960 b5 15 e1 d1 c9 79 a7 c8 21 17 00 cd 55 15 54 5d 70 23 70 23 70 23 70 23 70 23 70 23 70 69 26 00 ┆ y ! U TÅp#p#p#p#p#p#pi& ┆
0x1960…1980 79 fe 08 da a9 15 21 07 00 cd b5 15 79 d6 07 f8 c8 4f c3 9d 15 c5 d5 06 ff c3 c0 15 c5 d5 06 01 ┆y ! y O ┆
0x1980…19a0 cd 5b 04 d2 fc 15 eb 21 1e 00 cd 6f 15 d1 d5 1b 21 20 00 cd 6f 15 21 01 00 2b 7c b5 c2 d9 15 21 ┆ Æ ! o ! o ! +ø !┆
0x19a0…19c0 22 00 cd 55 15 70 3e 25 cd 1f 16 cd 4e 05 1a f5 01 f1 37 cd 62 03 f1 fe fd c4 08 f0 d1 c1 c9 c5 ┆" U p>% N 7 b ┆
0x19c0…19e0 d5 e5 21 22 00 cd 55 15 36 02 cd 4e 05 1a f5 01 f1 37 cd 62 03 f1 fe 81 d4 08 f0 e1 d1 c1 c9 d5 ┆ !" U 6 N 7 b ┆
0x19e0…1a00 e5 11 12 00 2a 00 2e 19 5e f3 cd 3b 06 fb e1 d1 c9 d5 e5 11 12 00 2a 00 2e 19 5e f3 cd 32 06 fb ┆ * . ^ ; * . ^ 2 ┆
0x1a00…1a20 e1 d1 c9 02 0a 0d 03 08 20 08 01 1e 03 1b 2a 00 01 07 04 1b 28 1b 26 02 1b 29 76 76 76 76 76 76 ┆ * ( & )vvvvvv┆
0x1a20…1a40 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 f5 c5 d5 e5 01 5d 3a 1e ┆vvvvvvvvvvvvvvvvvvvvvvvv Å: ┆
0x1a40…1a60 60 db 61 e6 03 c2 ac 16 01 84 3a 1e 62 db 63 e6 03 c2 ac 16 01 ab 3a 1e 64 db 65 e6 03 c2 ac 16 ┆` a : b c : d e ┆
0x1a60…1a80 01 d2 3a 1e 66 db 67 e6 03 ca a3 17 21 04 00 09 7e d3 fc 16 00 0a a7 fa d2 16 ca 7d 17 fe 02 da ┆ : f g ! ü å ┆
0x1a80…1aa0 d2 16 ca 53 17 fe 04 da 20 17 fe 06 da 20 17 cd 08 f0 cd 4c 06 67 e6 20 ca e0 16 3e 35 cd 3b 06 ┆ S L g >5 ; ┆
0x1aa0…1ac0 7c e6 01 c2 f3 16 cd 45 06 e6 7f fe 1b cc d6 17 c3 94 17 21 fc ff 09 7e d6 01 77 23 7e de 00 77 ┆ø E ! ü w#ü w┆
0x1ac0…1ae0 fa 15 17 23 34 23 c2 0a 17 34 7e 2b 6e 67 7e cd 32 06 c3 94 17 3e ff cd 32 06 0a c6 04 c3 93 17 ┆ #4# 4ü+ngü 2 > 2 ┆
0x1ae0…1b00 cd 45 06 cd 4c 06 e6 01 ca 94 17 3e 14 cd 3b 06 3e 00 cd 32 06 0a fe 0a ca 40 17 3e fd cd ae 17 ┆ E L > ; > 2 @ > ┆
0x1b00…1b20 0a d6 03 c3 93 17 3e 14 cd 3b 06 3e ff cd 32 06 c3 94 17 cd 4c 06 67 e6 20 ca 6c 17 cd 45 06 3e ┆ > ; > 2 L g l E >┆
0x1b20…1b40 14 cd 3b 06 cd d6 17 3e 80 c3 77 17 7c e6 02 ca 94 17 cd 45 06 e6 7f cd ae 17 c3 92 17 cd 4c 06 ┆ ; > w ø E L ┆
0x1b40…1b60 e6 02 ca 46 17 cd 45 06 e6 7f fe 1b cc d6 17 c3 46 17 97 02 15 fa a3 17 2a 00 2e eb 97 cd a9 02 ┆ F E F * . ┆
0x1b60…1b80 c3 23 03 3a 02 2e d3 fc e1 d1 c1 f1 fb c9 d5 c5 67 01 f1 37 03 cd 0a 03 3e 00 c2 d2 17 7c 62 6b ┆ # : . g 7 > øbk┆
0x1b80…1ba0 23 23 77 2b 2b c1 c5 03 03 0a 5f 03 0a 47 4b cd 9e 03 c1 d1 57 c9 21 f2 ff 09 7e f6 01 77 21 eb ┆##w++ _ GK W ! ü w! ┆
0x1ba0…1bc0 ff 09 7e 23 b6 c8 d5 c5 56 36 00 2b 5e 36 00 d5 2b 56 2b 5e d5 01 f1 37 03 cd 0a 03 c2 1f 18 d5 ┆ ü# V6 +^6 +V+^ 7 ┆
0x1bc0…1be0 13 13 eb 11 f1 37 73 23 72 23 36 07 11 07 00 19 c1 d1 73 23 72 60 69 c1 cd 9e 03 c1 d1 57 c9 d1 ┆ 7s#r#6 s#r`i W ┆
0x1be0…1c00 d1 c1 d1 c9 76 76 76 76 76 76 76 76 76 76 76 76 c1 d1 c5 d5 21 29 00 19 97 77 21 16 00 19 77 01 ┆ vvvvvvvvvvvv !) w! w ┆
0x1c00…1c20 02 00 cd 89 19 1a d6 21 fe 5e da 52 18 3e 09 c3 86 19 e1 e5 06 08 cd c9 05 01 03 00 cd 89 19 72 ┆ ! ^ R > r┆
0x1c20…1c40 23 36 41 01 04 00 cd 89 19 7a a7 f2 73 18 3e 04 c3 86 19 e1 e5 01 22 00 09 73 23 72 01 06 00 cd ┆#6A z s > " s#r ┆
0x1c40…1c60 89 19 e1 e5 cd 69 21 a7 c2 86 19 01 07 00 cd 89 19 7a a7 c2 9f 18 b3 ca 9f 18 fe 15 da a4 18 3e ┆ i! z >┆
0x1c60…1c80 0f c3 86 19 e1 e5 01 17 00 09 73 01 05 00 cd 89 19 e1 e5 01 18 00 09 7b e6 01 77 4b e1 e5 cd c4 ┆ s æ wK ┆
0x1c80…1ca0 22 a7 c2 86 19 e1 e5 0e 02 cd 94 22 a7 c2 7f 19 e1 e5 3e 01 cd 9b 1f d1 d5 e5 f5 eb cd a4 22 f1 ┆" " > " ┆
0x1ca0…1cc0 c1 67 25 ca ee 18 f2 7f 19 3e 01 c3 7f 19 e1 e5 11 13 00 19 eb 21 0a 00 09 7e 12 23 13 7e 12 23 ┆ g% > ! ü # ü #┆
0x1cc0…1ce0 13 7e 12 21 09 00 09 7e fe 2a 3e ff ca 7e 19 13 3e 01 12 e1 e5 cd ca 21 a7 c2 7f 19 e1 e5 54 5d ┆ ü ! ü *> ü > ! TÅ┆
0x1ce0…1d00 01 30 00 09 eb 06 13 cd c9 05 c1 c5 21 13 00 09 eb 21 19 00 09 d5 cd 01 23 d1 21 2a 00 09 cd 01 ┆ 0 ! ! # !* ┆
0x1d00…1d20 23 21 1c 00 09 36 01 23 36 00 23 11 20 00 73 23 72 21 22 00 09 7e 23 b6 c2 6c 19 2b e5 21 30 00 ┆#! 6 #6 # s#r!" ü# l + !0 ┆
0x1d20…1d40 11 19 00 19 09 d1 7e 12 23 13 7e 12 0a 2f 21 29 00 09 77 97 d1 e1 d1 d1 d1 d1 d1 d1 e5 c9 00 e1 ┆ ü # ü /!) w ┆
0x1d40…1d60 e5 f5 cd d9 22 f1 c3 74 19 e5 21 04 00 09 09 39 5e 23 56 e1 c9 e1 c1 e5 c5 0a 2f 21 29 00 09 be ┆ " t ! 9^#V /!) ┆
0x1d60…1d80 ca a8 19 3e 06 c3 cd 1b 21 0a 00 09 3e 3c be c2 b7 19 3e 08 c3 cd 1b 21 18 00 09 7e e6 01 c2 c6 ┆ > ! >< > ! ü ┆
0x1d80…1da0 19 3e 06 c3 cd 1b e1 54 5d 01 13 00 09 4e 23 46 c5 23 4e 23 46 c5 eb e5 0e 03 cd 94 22 c1 c0 c5 ┆ > TÅ N#F #N#F " ┆
0x1da0…1dc0 21 18 00 09 3e 02 a6 ca f6 19 35 35 e1 e5 3e 02 cd ca 21 c2 9c 1b e1 e5 cd 18 23 c1 c5 21 20 63 ┆! > 55 > ! # ! c┆
0x1dc0…1de0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆