HANOI
FILE INFORMATION
FILENAME(S): HANOI
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 01:13:13
APPEARS ON: 1 disk(s)
FILE HASH
8472d4f53d8ede52d0a6fd42b9937145a58c6ae3c23672a5318d7e33eba9ed5c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15721 SEITE B | HANOI | PRG | C64er | 30 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 00 00 8F 20 20 20 20 20 3E 3E 3E 20 |..$.... >>> | 00000010: 54 55 45 52 4D 45 20 56 4F 4E 20 48 41 4E 4F 49 |TUERME VON HANOI| 00000020: 20 3C 3C 3C 00 2A 08 01 00 8F 00 50 08 02 00 8F | <<<.*.....P....| 00000030: 20 20 20 20 44 45 4D 4F 20 5A 55 4D 20 52 45 4B | DEMO ZUM REK| 00000040: 55 52 53 49 56 2D 42 41 53 49 43 20 56 4F 4E 3A |URSIV-BASIC VON:| 00000050: 00 56 08 03 00 8F 00 79 08 04 00 8F 20 20 20 20 |.V.....y.... | 00000060: 20 2A 2A 2A 2A 2A 20 54 48 4F 4D 41 53 20 4B 4F | ***** THOMAS KO| 00000070: 4C 42 45 20 2A 2A 2A 2A 2A 00 7F 08 05 00 8F 00 |LBE *****.......| 00000080: A0 08 06 00 8F 20 20 20 20 20 20 20 20 20 44 45 |..... DE| 00000090: 4D 4F 20 50 52 4F 47 52 41 4D 4D 20 56 4F 4E 3A |MO PROGRAMM VON:| 000000A0: 00 A6 08 07 00 8F 00 C8 08 08 00 8F 20 20 20 20 |............ | 000000B0: 20 20 20 2A 2A 2A 20 5A 55 48 45 49 52 20 55 52 | *** ZUHEIR UR| 000000C0: 57 41 4E 49 20 2A 2A 2A 00 CE 08 09 00 8F 00 D4 |WANI ***........| 000000D0: 08 0A 00 3A 00 E6 08 14 00 21 9C 53 43 52 3A 21 |...:.....!.SCR:!| 000000E0: 43 4F 4C B0 20 30 00 0A 09 1E 00 21 43 55 52 53 |COL. 0.....!CURS| 000000F0: B0 20 31 32 2C 31 3A 99 22 54 55 45 52 4D 45 20 |. 12,1:."TUERME | 00000100: 56 4F 4E 20 48 41 4E 4F 49 22 00 2E 09 28 00 21 |VON HANOI"...(.!| 00000110: 43 55 52 53 B0 20 31 32 2C 32 3A 99 22 2D 2D 2D |CURS. 12,2:."---| 00000120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 45 |-------------".E| 00000130: 09 32 00 21 45 49 4E 47 41 42 45 3A 81 20 49 B2 |.2.!EINGABE:. I.| 00000140: 30 20 A4 20 32 00 69 09 3C 00 21 43 55 52 53 B0 |0 . 2.i.<.!CURS.| 00000150: 20 49 AC 31 33 2C 32 32 3A 99 20 22 C4 C4 C4 C4 | I.13,22:. "....| 00000160: C4 C4 C4 C4 C4 C4 C4 C4 22 00 8D 09 46 00 21 43 |........"...F.!C| 00000170: 55 52 53 B0 20 49 AC 31 33 AA 33 2C 32 33 3A 99 |URS. I.13.3,23:.| 00000180: 20 22 54 55 52 4D 20 22 3B 49 AA 31 3B 00 9C 09 | "TURM ";I.1;...| 00000190: 50 00 82 20 49 3A 99 20 22 9F 22 3B 00 AC 09 64 |P.. I:. ".";...d| 000001A0: 00 54 55 20 28 31 2C 30 29 B2 41 4E 00 BB 09 6E |.TU (1,0).AN...n| 000001B0: 00 54 55 20 28 32 2C 30 29 B2 30 00 CA 09 78 00 |.TU (2,0).0...x.| 000001C0: 54 55 20 28 33 2C 30 29 B2 30 00 D9 09 7D 00 81 |TU (3,0).0...}..| 000001D0: 20 49 B2 31 20 A4 20 41 4E 00 F1 09 82 00 54 55 | I.1 . AN.....TU| 000001E0: 20 28 31 2C 49 29 B2 28 41 4E AA 31 AB 49 29 AC | (1,I).(AN.1.I).| 000001F0: 32 00 14 0A 8C 00 21 53 43 48 45 49 42 45 20 30 |2.....!SCHEIBE 0| 00000200: 2C 32 32 AB 49 2C 28 41 4E AA 31 AB 49 29 AC 32 |,22.I,(AN.1.I).2| 00000210: 3A 82 20 49 00 35 0A 91 00 5A 55 47 B2 30 3A 21 |:. I.5...ZUG.0:!| 00000220: 43 55 52 53 B0 20 30 2C 34 3A 99 20 22 5A 55 47 |CURS. 0,4:. "ZUG| 00000230: 3A 22 5A 55 47 00 4B 0A 93 00 52 45 4B B2 31 3A |:"ZUG.K...REK.1:| 00000240: 21 43 55 52 53 B0 20 32 30 2C 34 00 67 0A 95 00 |!CURS. 20,4.g...| 00000250: 99 20 22 52 45 4B 55 52 53 49 4F 4E 53 54 49 45 |. "REKURSIONSTIE| 00000260: 46 45 3A 22 52 45 4B 00 7F 0A 96 00 21 48 41 4E |FE:"REK.....!HAN| 00000270: 4F 49 20 41 4E 2C 31 2C 32 2C 33 2C 52 45 4B 00 |OI AN,1,2,3,REK.| 00000280: 9C 0A A0 00 21 43 55 52 53 B0 20 31 36 2C 36 3A |....!CURS. 16,6:| 00000290: 99 20 22 46 45 52 54 49 47 20 21 22 00 AB 0A AA |. "FERTIG !"....| 000002A0: 00 21 92 4B 45 59 3A 89 20 32 30 00 B1 0A B4 00 |.!.KEY:. 20.....| 000002B0: 3A 00 B7 0A BE 00 3A 00 D8 0A 10 27 8F 20 20 20 |:.....:....'. | 000002C0: 20 50 52 4F 5A 45 44 55 52 45 4E 20 5A 55 4D 20 | PROZEDUREN ZUM | 000002D0: 50 52 4F 47 52 41 4D 4D 00 DE 0A 1A 27 3A 00 ED |PROGRAMM....':..| 000002E0: 0A 24 27 5C 50 52 4F 43 20 9C 53 43 52 00 F8 0A |.$'\PROC .SCR...| 000002F0: 2E 27 99 20 22 93 9A 22 00 FF 0A 38 27 5C 80 00 |.'. ".."...8'\..| 00000300: 05 0B 42 27 3A 00 0B 0B 4C 27 3A 00 20 0B 56 27 |..B':...L':. .V'| 00000310: 5C 50 52 4F 43 20 43 4F 4C B0 20 46 41 52 42 45 |\PROC COL. FARBE| 00000320: 00 40 0B 60 27 97 20 35 33 32 38 30 2C 46 41 52 |.@.`'. 53280,FAR| 00000330: 42 45 3A 97 20 35 33 32 38 31 2C 46 41 52 42 45 |BE:. 53281,FARBE| 00000340: 00 47 0B 6A 27 5C 80 00 4D 0B 74 27 3A 00 53 0B |.G.j'\..M.t':.S.| 00000350: 7E 27 3A 00 6B 0B 88 27 5C 50 52 4F 43 20 53 43 |~':.k..'\PROC SC| 00000360: 48 45 49 42 45 20 58 2C 59 2C 4E 00 76 0B 92 27 |HEIBE X,Y,N.v..'| 00000370: 5C 56 41 52 20 4A 00 85 0B 9C 27 21 43 55 52 53 |\VAR J....'!CURS| 00000380: B0 20 58 2C 59 00 98 0B A1 27 8B 20 4E B2 31 32 |. X,Y....'. N.12| 00000390: 20 A7 20 31 30 31 36 30 00 B3 0B A6 27 81 20 4A | . 10160....'. J| 000003A0: B2 31 20 A4 20 36 AB 4E AD 32 3A 99 20 22 20 22 |.1 . 6.N.2:. " "| 000003B0: 3B 3A 82 00 CC 0B B0 27 81 20 4A B2 31 20 A4 20 |;:.....'. J.1 . | 000003C0: 4E 3A 99 20 22 12 A3 92 22 3B 3A 82 00 D3 0B BA |N:. "...";:.....| 000003D0: 27 5C 80 00 D9 0B C4 27 3A 00 DF 0B CE 27 3A 00 |'\.....':....':.| 000003E0: F9 0B D8 27 5C 50 52 4F 43 20 48 41 4E 4F 49 20 |...'\PROC HANOI | 000003F0: 4E 2C 41 2C 42 2C 43 2C 52 00 08 0C DD 27 5C 56 |N,A,B,C,R....'\V| 00000400: 41 52 20 44 2C 45 2C 46 00 1C 0C DF 27 21 43 55 |AR D,E,F....'!CU| 00000410: 52 53 B0 20 33 36 2C 34 3A 99 20 52 00 2B 0C E2 |RS. 36,4:. R.+..| 00000420: 27 8B 20 4E B3 31 20 A7 3A 5C 80 00 3B 0C E7 27 |'. N.1 .:\..;..'| 00000430: 44 B2 41 3A 45 B2 42 3A 46 B2 43 00 54 0C EC 27 |D.A:E.B:F.C.T..'| 00000440: 21 48 41 4E 4F 49 20 4E AB 31 2C 44 2C 46 2C 45 |!HANOI N.1,D,F,E| 00000450: 2C 52 AA 31 00 66 0C 00 28 21 56 45 52 53 45 54 |,R.1.f..(!VERSET| 00000460: 5A 45 20 41 2C 42 00 7F 0C 0A 28 21 48 41 4E 4F |ZE A,B....(!HANO| 00000470: 49 20 4E AB 31 2C 46 2C 45 2C 44 2C 52 AA 31 00 |I N.1,F,E,D,R.1.| 00000480: 93 0C 0F 28 21 43 55 52 53 B0 20 33 36 2C 34 3A |...(!CURS. 36,4:| 00000490: 99 20 52 00 9A 0C 14 28 5C 80 00 A0 0C 1E 28 3A |. R....(\.....(:| 000004A0: 00 A6 0C 50 28 3A 00 BD 0C 5A 28 5C 50 52 4F 43 |...P(:...Z(\PROC| 000004B0: 20 92 4B 45 59 3A 5C 56 41 52 20 41 24 00 D6 0C | .KEY:\VAR A$...| 000004C0: 64 28 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |d(. A$:. A$."" .| 000004D0: 20 31 30 33 34 30 00 DD 0C 6E 28 5C 80 00 E3 0C | 10340...n(\....| 000004E0: 78 28 3A 00 E9 0C 82 28 3A 00 02 0D 8C 28 5C 50 |x(:....(:....(\P| 000004F0: 52 4F 43 20 56 45 52 53 45 54 5A 45 20 56 4F 2C |ROC VERSETZE VO,| 00000500: 4E 41 00 11 0D 96 28 5C 56 41 52 20 56 2C 4E 2C |NA....(\VAR V,N,| 00000510: 42 00 30 0D 9B 28 5A 55 47 B2 5A 55 47 AA 31 3A |B.0..(ZUG.ZUG.1:| 00000520: 21 43 55 52 53 B0 20 34 2C 34 3A 99 20 5A 55 47 |!CURS. 4,4:. ZUG| 00000530: 00 40 0D A0 28 56 B2 54 55 20 28 56 4F 2C 30 29 |.@..(V.TU (VO,0)| 00000540: 00 52 0D AA 28 4E B2 54 55 20 28 4E 41 2C 30 29 |.R..(N.TU (NA,0)| 00000550: AA 31 00 62 0D B4 28 42 B2 54 55 20 28 56 4F 2C |.1.b..(B.TU (VO,| 00000560: 56 29 00 72 0D BE 28 54 55 20 28 4E 41 2C 4E 29 |V).r..(TU (NA,N)| 00000570: B2 42 00 8E 0D C8 28 21 4C 4F 45 53 43 48 45 20 |.B....(!LOESCHE | 00000580: 28 56 4F AB 31 29 AC 31 33 2C 32 32 AB 56 00 AC |(VO.1).13,22.V..| 00000590: 0D D2 28 21 53 43 48 45 49 42 45 20 28 4E 41 AB |..(!SCHEIBE (NA.| 000005A0: 31 29 AC 31 33 2C 32 32 AB 4E 2C 42 00 C6 0D DC |1).13,22.N,B....| 000005B0: 28 54 55 20 28 56 4F 2C 30 29 B2 54 55 20 28 56 |(TU (VO,0).TU (V| 000005C0: 4F 2C 30 29 AB 31 00 E0 0D E6 28 54 55 20 28 4E |O,0).1....(TU (N| 000005D0: 41 2C 30 29 B2 54 55 20 28 4E 41 2C 30 29 AA 31 |A,0).TU (NA,0).1| 000005E0: 00 E7 0D F0 28 5C 80 00 ED 0D FA 28 3A 00 F3 0D |....(\.....(:...| 000005F0: 04 29 3A 00 09 0E 0E 29 5C 50 52 4F 43 20 4C 4F |.):....)\PROC LO| 00000600: 45 53 43 48 45 20 58 2C 59 00 29 0E 18 29 21 43 |ESCHE X,Y.)..)!C| 00000610: 55 52 53 B0 20 58 2C 59 3A 99 20 22 20 20 20 20 |URS. X,Y:. " | 00000620: 20 20 20 20 20 20 20 20 22 00 30 0E 22 29 5C 80 | ".0.")\.| 00000630: 00 36 0E 2C 29 3A 00 3C 0E 36 29 3A 00 50 0E 40 |.6.,):.<.6):.P.@| 00000640: 29 5C 50 52 4F 43 20 43 55 52 53 B0 20 58 2C 59 |)\PROC CURS. X,Y| 00000650: 00 64 0E 4A 29 97 20 37 38 31 2C 59 3A 97 20 37 |.d.J). 781,Y:. 7| 00000660: 38 32 2C 58 00 7A 0E 54 29 97 20 37 38 33 2C C2 |82,X.z.T). 783,.| 00000670: 28 37 38 33 29 AF 20 32 35 34 00 86 0E 5E 29 9E |(783). 254...^).| 00000680: 20 36 35 35 32 30 00 8D 0E 68 29 5C 80 00 93 0E | 65520...h)\....| 00000690: 72 29 3A 00 99 0E 7C 29 3A 00 B3 0E 86 29 5C 50 |r):...|):....)\P| 000006A0: 52 4F 43 20 45 49 4E 47 41 42 45 3A 5C 56 41 52 |ROC EINGABE:\VAR| 000006B0: 20 41 24 00 D9 0E 8B 29 41 24 B2 22 20 20 20 20 | A$....)A$." | 000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006D0: 20 20 20 20 20 20 20 20 22 00 E8 0E CC 29 21 43 | "....)!C| 000006E0: 55 52 53 B0 20 30 2C 34 00 0A 0F D6 29 99 22 41 |URS. 0,4....)."A| 000006F0: 4E 5A 41 48 4C 20 44 45 52 20 53 43 48 45 49 42 |NZAHL DER SCHEIB| 00000700: 45 4E 20 28 31 2D 36 29 3F 22 00 1E 0F E0 29 21 |EN (1-6)?"....)!| 00000710: 43 55 52 53 B0 20 39 2C 36 3A 85 20 41 4E 00 38 |CURS. 9,6:. AN.8| 00000720: 0F EA 29 8B 20 41 4E B1 30 20 AF 20 41 4E B3 37 |..). AN.0 . AN.7| 00000730: 20 A7 20 31 30 37 35 30 00 54 0F F4 29 21 43 55 | . 10750.T..)!CU| 00000740: 52 53 B0 20 39 2C 36 3A 99 20 41 24 3A 89 20 31 |RS. 9,6:. A$:. 1| 00000750: 30 37 32 30 00 71 0F FE 29 21 43 55 52 53 B0 20 |0720.q..)!CURS. | 00000760: 30 2C 34 3A 99 20 41 24 3B 41 24 3B 41 24 3B 41 |0,4:. A$;A$;A$;A| 00000770: 24 00 78 0F 08 2A 5C 80 00 00 00 |$.x..*\.... |
..$.... >>> TUERME VON HANOI <<<.*.. ...P.... DEMO ZUM REKURSIV-BASIC VON: .V.....Y.... ***** THOMAS KOLBE **** *...... .... DEMO PROGRAMM VON: .......H.... *** ZUHEIR URWANI *** .N.....T...:.....!.SCR:!COL. 0.....!CURS . 12,1:."TUERME VON HANOI"...(.!CURS. 12 ,2:."----------------".E.2.!EINGABE:. I. 0 . 2.I.<.!CURS. I.13,22:. "DDDDDDDDDDDD "...F.!CURS. I.13.3,23:. "TURM ";I.1;... P.. I:. ".";...D.TU (1,0).AN...N.TU (2,0 ).0.J.X.TU (3,0).0.Y.}.. I.1 . AN.....TU (1,I).(AN.1.I).2.....!SCHEIBE 0,22.I,(A N.1.I).2:. I.5...ZUG.0:!CURS. 0,4:. "ZUG :"ZUG.K...REK.1:!CURS. 20,4.G.... "REKUR SIONSTIEFE:"REK....!HANOI AN,1,2,3,REK. .. .!CURS. 16,6:. "FERTIG !".....!.KEY:. 20.....:.....:.X..'. PROZEDUREN ZUM PROGRAMM....':...$'\PROC .SCR....'. ".." ...8'\....B':...L':. .V'\PROC COL. FARBE .@.`'. 53280,FARBE:. 53281,FARBE.G.J'\.. M.T':.S.~':.K..'\PROC SCHEIBE X,Y,N.V..' \VAR J....'!CURS. X,Y....'. N.12 . 10160 ....'. J.1 . 6.N.2:. " ";:..L..'. J.1 . N:. "...";:..S..'\..Y.D':...N':...X'\PRO C HANOI N,A,B,C,R....'\VAR D,E,F....'!CU RS. 36,4:. R.+..'. N.1 .:\..;..'D.A:E.B: F.C.T..'!HANOI N.1,D,F,E,R.1.F..(!VERSET ZE A,B...(!HANOI N.1,F,E,D,R.1....(!CUR S. 36,4:. R....(\.. ..(:...P(:...Z(\PROC .KEY:\VAR A$.V.D(. A$:. A$."" . 10340.. .N(\....X(:....(:....(\PROC VERSETZE VO, NA....(\VAR V,N,B.0..(ZUG.ZUG.1:!CURS. 4 ,4:. ZUG.@. (V.TU (VO,0).R..(N.TU (NA,0) .1.B..(B.TU (VO,V).R..(TU (NA,N).B...H(! LOESCHE (VO.1).13,22.V...R(!SCHEIBE (NA. 1).13,22.N,B.F..(TU (VO,0).TU (VO,0).1.. ..(TU (NA,0).TU (NA,0).1....(\.....(:... .):....)\PROC LOESCHE X,Y.)..)!CURS. X,Y :. " ".0.")\..6.,):.<.6):.P.@ )\PROC CURS. X,Y.D.J). 781,Y:. 782,X.Z.T ). 783,B(783). 254...^). 65520...H)\.... R):...|):....)\PROC EINGABE:\VAR A$.Y..) A$." "...L)!C URS. 0,4...V)."ANZAHL DER SCHEIBEN (1-6) ?"....)!CURS. 9,6:. AN.8..). AN.0 . AN.7 . 10750.T..)!CURS. 9,6:. A$:. 10720.Q.. )!CURS. 0,4:. A$;A$;A$;A$.X..*\....
> CLICK IMAGE PREVIEW FOR FULL MODAL