> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00 47 08 0B 00 4C 4E 24 B2 |53281,0.G...LN$.|
00000020: 22 9B C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00000030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000040: C0 C0 C0 C0 C0 C0 22 00 80 08 0C 00 99 22 93 22 |......"......"."|
00000050: 4C 4E 24 3A 99 22 9F 20 46 49 4E 44 20 2F 20 43 |LN$:.". FIND / C|
00000060: 48 41 4E 47 45 20 50 52 4F 47 52 41 4D 20 4C 4F |HANGE PROGRAM LO|
00000070: 41 44 2D 41 44 44 52 45 53 53 22 3A 99 4C 4E 24 |AD-ADDRESS":.LN$|
00000080: 00 AC 08 14 00 99 20 22 11 12 1D 9B 44 49 53 4B |...... "....DISK|
00000090: 20 55 4E 49 54 20 4E 52 20 28 38 2D 31 35 29 20 | UNIT NR (8-15) |
000000A0: 3F 92 05 A0 38 20 9D 9D 9D 9D 22 3B 00 D2 08 1E |?...8 ....";....|
000000B0: 00 85 20 55 3A 20 8B 20 55 B3 38 20 B0 20 55 B1 |.. U: . U.8 . U.|
000000C0: 31 35 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 |15 . . "...": . |
000000D0: 32 30 00 FC 08 28 00 99 20 22 11 12 9B 1D 44 49 |20...(.. "....DI|
000000E0: 53 4B 20 44 52 49 56 45 20 4E 52 20 28 30 2F 31 |SK DRIVE NR (0/1|
000000F0: 29 20 3F 92 05 A0 30 9D 9D 9D 22 3B 00 21 09 32 |) ?...0...";.!.2|
00000100: 00 85 20 44 3A 20 8B 20 44 B3 30 20 B0 20 44 B1 |.. D: . D.0 . D.|
00000110: 31 20 A7 20 99 20 22 91 91 91 22 3A 20 89 20 34 |1 . . "...": . 4|
00000120: 30 00 51 09 3C 00 99 20 22 11 11 1D 9B 50 55 54 |0.Q.<.. "....PUT|
00000130: 20 54 41 52 47 45 54 20 44 49 53 4B 20 49 4E 20 | TARGET DISK IN |
00000140: 55 4E 49 54 22 3B 55 3B 22 44 52 49 56 45 22 3B |UNIT";U;"DRIVE";|
00000150: 44 00 79 09 46 00 99 20 22 20 54 48 45 4E 20 50 |D.y.F.. " THEN P|
00000160: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
00000170: 43 4F 4E 54 49 4E 55 45 22 00 90 09 50 00 A1 20 |CONTINUE"...P.. |
00000180: 58 24 3A 20 8B 20 58 24 B2 22 22 20 A7 20 38 30 |X$: . X$."" . 80|
00000190: 00 99 09 55 00 8D 39 39 30 00 C1 09 5A 00 99 20 |...U..990...Z.. |
000001A0: 22 11 1D 12 9B 45 4E 54 45 52 20 50 52 4F 47 52 |"....ENTER PROGR|
000001B0: 41 4D 2D 4E 41 4D 45 20 28 4F 52 20 45 4E 44 29 |AM-NAME (OR END)|
000001C0: 22 00 EC 09 64 00 85 20 22 92 05 1D 3F 20 45 4E |"...d.. "...? EN|
000001D0: 44 9D 9D 9D 9D 9D 22 3B 4E 24 3A 20 8B 20 4E 24 |D.....";N$: . N$|
000001E0: B2 22 45 4E 44 22 20 A7 20 36 31 30 00 0E 0A 6E |."END" . 610...n|
000001F0: 00 56 B2 31 36 3A 20 51 B2 33 32 3A 20 46 B2 32 |.V.16: Q.32: F.2|
00000200: 35 36 3A 20 4E 24 B2 C8 28 4E 24 2C 56 29 00 28 |56: N$..(N$,V).(|
00000210: 0A 6F 00 81 58 B2 31 A4 31 36 3A 4E 4E 24 B2 CA |.o..X.1.16:NN$..|
00000220: 28 4E 24 2C 58 2C 31 29 00 58 0A 70 00 8B 4E 4E |(N$,X,1).X.p..NN|
00000230: 24 B2 22 2A 22 B0 4E 4E 24 B2 22 3F 22 A7 99 22 |$."*".NN$."?".."|
00000240: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000250: 20 91 22 3A 89 31 30 30 00 5F 0A 71 00 82 58 00 | .":.100._.q..X.|
00000260: 82 0A 78 00 48 24 B2 22 30 31 32 33 34 35 36 37 |..x.H$."01234567|
00000270: 38 39 41 42 43 44 45 46 22 3A 20 5A 24 B2 C7 28 |89ABCDEF": Z$..(|
00000280: 30 29 00 AB 0A 82 00 54 24 B2 C9 28 C4 28 44 29 |0).....T$..(.(D)|
00000290: 2C 31 29 3A 20 9F 20 31 2C 55 2C 31 35 2C 22 49 |,1): . 1,U,15,"I|
000002A0: 22 AA 54 24 3A 20 8D 20 36 32 30 00 CF 0A 8C 00 |".T$: . 620.....|
000002B0: 54 24 B2 54 24 AA 22 3A 22 AA 4E 24 3A 20 9F 20 |T$.T$.":".N$: . |
000002C0: 32 2C 55 2C 32 2C 54 24 AA 22 2C 50 2C 52 22 00 |2,U,2,T$.",P,R".|
000002D0: EC 0A 96 00 84 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A |.....1,E,M$,J,K:|
000002E0: 20 8B 20 45 B2 30 20 A7 20 32 34 30 00 0D 0B A0 | . E.0 . 240....|
000002F0: 00 A0 20 31 3A 20 A0 20 32 3A 20 99 20 22 11 9B |.. 1: . 2: . "..|
00000300: 20 46 49 4C 45 3A 20 20 22 3B 4E 24 3B 00 33 0B | FILE: ";N$;.3.|
00000310: AA 00 8B 20 45 B2 36 32 20 A7 20 99 20 22 20 4E |... E.62 . . " N|
00000320: 4F 54 20 46 4F 55 4E 44 11 11 11 22 3A 20 89 20 |OT FOUND...": . |
00000330: 32 30 30 00 5D 0B B4 00 8B 20 45 B2 36 34 20 A7 |200.].... E.64 .|
00000340: 20 99 20 22 20 4E 4F 54 20 41 20 50 52 4F 47 52 | . " NOT A PROGR|
00000350: 41 4D 11 11 11 22 3A 20 89 20 32 30 30 00 7C 0B |AM...": . 200.|.|
00000360: BE 00 99 20 22 11 20 44 49 53 4B 20 52 45 41 44 |... ". DISK READ|
00000370: 2D 45 52 52 4F 52 22 3B 45 3A 20 80 00 96 0B C8 |-ERROR";E: .....|
00000380: 00 81 20 4A B2 31 20 A4 20 32 30 30 30 3A 20 82 |.. J.1 . 2000: .|
00000390: 3A 20 89 20 38 35 00 AC 0B D2 00 4A B2 B5 28 43 |: . 85.....J..(C|
000003A0: AD 56 29 3A 20 4B B2 43 AB 4A AC 56 00 CE 0B DC |.V): K.C.J.V....|
000003B0: 00 4D 24 B2 4D 24 AA CA 28 48 24 2C 4A AA 31 2C |.M$.M$..(H$,J.1,|
000003C0: 31 29 AA CA 28 48 24 2C 4B AA 31 2C 31 29 00 D4 |1)..(H$,K.1,1)..|
000003D0: 0B E6 00 8E 00 EE 0B F0 00 A1 23 32 2C 41 24 2C |..........#2,A$,|
000003E0: 42 24 3A 20 8B 20 53 54 20 A7 20 31 39 30 00 02 |B$: . ST . 190..|
000003F0: 0C FA 00 A0 20 32 3A 20 A0 20 31 3A 20 4D 24 B2 |.... 2: . 1: M$.|
00000400: 22 22 00 1D 0C 04 01 41 B2 C6 28 41 24 AA 5A 24 |"".....A..(A$.Z$|
00000410: 29 3A 20 42 B2 C6 28 42 24 AA 5A 24 29 00 38 0C |): B..(B$.Z$).8.|
00000420: 0E 01 43 B2 42 3A 20 8D 20 32 31 30 3A 20 43 B2 |..C.B: . 210: C.|
00000430: 41 3A 20 8D 20 32 31 30 00 5F 0C 18 01 99 20 22 |A: . 210._.... "|
00000440: 11 9B 20 54 48 45 20 43 55 52 52 45 4E 54 20 4C |.. THE CURRENT L|
00000450: 4F 41 44 2D 41 44 44 52 45 53 53 20 49 53 22 00 |OAD-ADDRESS IS".|
00000460: 89 0C 22 01 99 20 22 20 48 45 58 3A 20 05 22 3B |..".. " HEX: .";|
00000470: 4D 24 3B 22 9B 20 20 20 20 44 45 43 49 4D 41 4C |M$;". DECIMAL|
00000480: 3A 05 22 3B 42 AC 46 AA 41 00 BE 0C 2C 01 99 20 |:.";B.F.A...,.. |
00000490: 22 11 9B 12 1D 57 41 4E 54 20 54 4F 20 43 48 41 |"....WANT TO CHA|
000004A0: 4E 47 45 20 4C 4F 41 44 2D 41 44 44 52 20 28 59 |NGE LOAD-ADDR (Y|
000004B0: 2F 4E 29 20 3F 92 05 20 59 9D 9D 9D 22 3B 00 DC |/N) ?.. Y...";..|
000004C0: 0C 36 01 85 20 58 24 3A 20 8B 20 58 24 B3 B1 22 |.6.. X$: . X$.."|
000004D0: 59 22 20 A7 8D 39 39 30 3A 89 39 30 00 15 0D 40 |Y" ..990:.90...@|
000004E0: 01 99 20 22 9B 12 1D 4E 45 57 20 4C 4F 41 44 2D |.. "...NEW LOAD-|
000004F0: 41 44 44 52 20 28 44 45 43 49 4D 41 4C 29 20 3F |ADDR (DECIMAL) ?|
00000500: 05 92 20 30 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D |.. 0 ......|
00000510: 9D 9D 9D 22 3B 00 3E 0D 4A 01 85 20 50 3A 20 8B |...";.>.J.. P: .|
00000520: 20 50 B3 30 20 B0 20 50 B1 36 35 35 33 35 20 A7 | P.0 . P.65535 .|
00000530: 20 99 20 22 91 91 22 3A 20 89 20 33 32 30 00 69 | . "..": . 320.i|
00000540: 0D 54 01 42 B2 B5 28 50 AD 46 29 3A 20 41 B2 50 |.T.B..(P.F): A.P|
00000550: AB 42 AC 46 3A 20 50 24 B2 C7 28 41 29 AA C7 28 |.B.F: P$..(A)..(|
00000560: 42 29 3A 20 4D 24 B2 22 22 00 84 0D 5E 01 43 B2 |B): M$.""...^.C.|
00000570: 42 3A 20 8D 20 32 31 30 3A 20 43 B2 41 3A 20 8D |B: . 210: C.A: .|
00000580: 20 32 31 30 00 B0 0D 68 01 99 20 22 11 9B 20 48 | 210...h.. ".. H|
00000590: 45 58 3A 20 05 22 3B 4D 24 3B 22 20 20 20 20 9B |EX: .";M$;" .|
000005A0: 44 45 43 49 4D 41 4C 3A 05 22 3B 42 AC 46 AA 41 |DECIMAL:.";B.F.A|
000005B0: 00 E6 0D 72 01 99 20 22 11 12 9B 1D 4F 4B 20 54 |...r.. "....OK T|
000005C0: 4F 20 57 52 49 54 45 20 4E 45 57 20 4C 4F 41 44 |O WRITE NEW LOAD|
000005D0: 2D 41 44 44 52 20 28 59 2F 4E 29 20 3F 92 05 20 |-ADDR (Y/N) ?.. |
000005E0: 59 9D 9D 9D 22 3B 00 16 0E 7C 01 85 20 58 24 3A |Y...";...|.. X$:|
000005F0: 20 8B 20 58 24 B3 B1 22 59 22 20 A7 99 22 11 11 | . X$.."Y" .."..|
00000600: 11 22 3A 8D 39 39 30 3A 8D 39 39 30 3A 99 22 91 |.":.990:.990:.".|
00000610: 91 22 3A 89 39 30 00 2F 0E 86 01 4A B2 C3 28 4E |.":.90./...J..(N|
00000620: 24 29 3A 20 8B 20 4A B2 56 20 A7 20 34 31 30 00 |$): . J.V . 410.|
00000630: 4E 0E 90 01 81 20 58 B2 4A AA 31 20 A4 20 56 3A |N.... X.J.1 . V:|
00000640: 4E 24 B2 4E 24 AA C7 28 31 36 30 29 3A 82 00 68 |N$.N$..(160):..h|
00000650: 0E 9A 01 9F 20 31 2C 55 2C 31 35 3A 20 9F 20 32 |.... 1,U,15: . 2|
00000660: 2C 55 2C 32 2C 22 23 22 00 77 0E A4 01 8D 20 36 |,U,2,"#".w.... 6|
00000670: 32 30 3A 8D 39 30 30 00 93 0E AE 01 98 31 2C 22 |20:.900......1,"|
00000680: 55 31 3A 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 |U1:";2;D;T;S: . |
00000690: 36 32 30 00 B0 0E B8 01 98 31 2C 22 42 2D 50 3A |620......1,"B-P:|
000006A0: 22 3B 32 3B 30 3A 20 A1 23 32 2C 41 24 2C 42 24 |";2;0: .#2,A$,B$|
000006B0: 00 D0 0E C2 01 54 B2 C6 28 41 24 AA 5A 24 29 3A |.....T..(A$.Z$):|
000006C0: 20 53 B2 C6 28 42 24 AA 5A 24 29 3A 20 48 B2 32 | S..(B$.Z$): H.2|
000006D0: 00 EA 0E CC 01 98 31 2C 22 42 2D 50 3A 22 3B 32 |......1,"B-P:";2|
000006E0: 3B 48 3A 20 A1 23 32 2C 54 24 00 09 0F D6 01 43 |;H: .#2,T$.....C|
000006F0: B2 C6 28 54 24 AA 5A 24 29 3A 20 8B 20 43 B3 B1 |..(T$.Z$): . C..|
00000700: 31 33 30 20 A7 20 35 31 30 00 29 0F E0 01 A1 23 |130 . 510.)....#|
00000710: 32 2C 41 24 2C 42 24 3A 20 46 24 B2 22 22 3A 20 |2,A$,B$: F$."": |
00000720: 81 20 58 B2 31 20 A4 20 56 00 41 0F EA 01 A1 23 |. X.1 . V.A....#|
00000730: 32 2C 54 24 3A 20 46 24 B2 46 24 AA 54 24 3A 20 |2,T$: F$.F$.T$: |
00000740: 82 00 53 0F F4 01 8B 20 46 24 B2 4E 24 20 A7 20 |..S.... F$.N$ . |
00000750: 35 33 30 00 6A 0F FE 01 48 B2 48 AA 51 3A 20 8B |530.j...H.H.Q: .|
00000760: 20 48 B3 46 20 A7 20 34 36 30 00 74 0F 08 02 89 | H.F . 460.t....|
00000770: 20 34 33 30 00 8F 0F 12 02 41 B2 C6 28 41 24 AA | 430.....A..(A$.|
00000780: 5A 24 29 3A 20 42 B2 C6 28 42 24 AA 5A 24 29 00 |Z$): B..(B$.Z$).|
00000790: AB 0F 1C 02 98 31 2C 22 55 31 3A 22 3B 32 3B 44 |.....1,"U1:";2;D|
000007A0: 3B 41 3B 42 3A 20 8D 20 36 32 30 00 C5 0F 26 02 |;A;B: . 620...&.|
000007B0: 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 32 3A 20 98 |.1,"B-P:";2;2: .|
000007C0: 32 2C 50 24 3B 00 E1 0F 30 02 98 31 2C 22 55 32 |2,P$;...0..1,"U2|
000007D0: 3A 22 3B 32 3B 44 3B 41 3B 42 3A 20 8D 20 36 32 |:";2;D;A;B: . 62|
000007E0: 30 00 F5 0F 3A 02 A0 20 32 3A 20 8D 20 36 32 30 |0...:.. 2: . 620|
000007F0: 3A 20 A0 20 31 00 1B 10 44 02 99 20 22 11 9B 20 |: . 1...D.. ".. |
00000800: 4C 4F 41 44 2D 41 44 44 52 20 43 48 41 4E 47 45 |LOAD-ADDR CHANGE|
00000810: 44 20 46 4F 52 05 20 22 3B 4E 24 00 4E 10 4E 02 |D FOR. ";N$.N.N.|
00000820: 99 20 22 11 9B 12 1D 43 48 41 4E 47 45 20 41 4E |. "....CHANGE AN|
00000830: 4F 54 48 45 52 20 50 52 4F 47 52 41 4D 20 28 59 |OTHER PROGRAM (Y|
00000840: 2F 4E 29 20 3F 05 92 20 59 9D 9D 9D 22 3B 00 76 |/N) ?.. Y...";.v|
00000850: 10 58 02 85 20 58 24 3A 20 8B 20 58 24 B2 22 59 |.X.. X$: . X$."Y|
00000860: 22 20 A7 8D 39 39 30 3A 8D 39 39 30 3A 99 22 91 |" ..990:.990:.".|
00000870: 91 22 3A 89 39 30 00 84 10 62 02 99 20 22 93 22 |.":.90...b.. "."|
00000880: 3B 3A 20 80 00 9E 10 6C 02 84 31 2C 45 2C 4D 24 |;: ....l..1,E,M$|
00000890: 2C 4A 2C 4B 3A 8B 20 45 B2 30 20 A7 20 8E 00 B9 |,J,K:. E.0 . ...|
000008A0: 10 76 02 99 20 22 11 20 45 52 52 4F 52 3A 20 22 |.v.. ". ERROR: "|
000008B0: 3B 45 3B 4D 24 3B 4A 3B 4B 00 C9 10 80 02 A0 20 |;E;M$;J;K...... |
000008C0: 32 3A 20 A0 20 31 3A 20 80 00 E6 10 84 03 98 31 |2: . 1: .......1|
000008D0: 2C 22 4D 2D 52 22 C7 28 31 39 38 29 C7 28 32 32 |,"M-R".(198).(22|
000008E0: 39 29 C7 28 31 29 00 06 11 8E 03 A1 23 31 2C 41 |9).(1)......#1,A|
000008F0: 24 3A 54 B2 31 38 3A 8B C6 28 41 24 29 B2 32 35 |$:T.18:..(A$).25|
00000900: 35 A7 54 B2 34 30 00 10 11 98 03 53 B2 30 3A 8E |5.T.40.....S.0:.|
00000910: 00 4B 11 DE 03 81 58 58 B2 31 A4 37 3A 99 22 91 |.K....XX.1.7:.".|
00000920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000940: 20 20 20 20 20 91 22 3A 82 58 58 00 57 11 E3 03 | .":.XX.W...|
00000950: 99 22 91 91 22 3A 8E 00 00 00 |."..":.... |
.......53280,0:.53281,0.G...LN$.".......
.............................."......"."
LN$:.". FIND / CHANGE PROGRAM LOAD-ADDRE
SS":.LN$...... "....DISK UNIT NR (8-15)
?.. 8 ....";.R.... U: . U.8 . U.15 . . "
...": . 20...(.. "....DISK DRIVE NR (0/1
) ?.. 0...";.!.2.. D: . D.0 . D.1 . . ".
..": . 40.Q.<.. "....PUT TARGET DISK IN
UNIT";U;"DRIVE";D.Y.F.. " THEN PRESS ANY
KEY TO CONTINUE"...P.. X$: . X$."" . 80
...U..990.A.Z.. "....ENTER PROGRAM-NAME
(OR END)"...D.. "...? END.....";N$: . N$
."END" . 610...N.V.16: Q.32: F.256: N$.H
(N$,V).(.O..X.1.16:NN$.J(N$,X,1).X.P..NN
$."*".NN$."?"..". .":.100
._.Q..X...X.H$."0123456789ABCDEF": Z$.G(
0).....T$.I(D(D),1): . 1,U,15,"I".T$: .
620.O...T$.T$.":".N$: . 2,U,2,T$.",P,R".
.....1,E,M$,J,K: . E.0 . 240... . 1:
2: . ".. FILE: ";N$;.3.... E.62 . . " N
OT FOUND...": . 200.].... E.64 . . " NOT
A PROGRAM...": . 200.|.... ". DISK READ
-ERROR";E: ....H.. J.1 . 2000: .: . 85..
.R.J..(C.V): K.C.J.V.N...M$.M$.J(H$,J.1,
1).J(H$,K.1,1).T..........#2,A$,B$: . ST
. 190..... 2: 1: M$."".....A.F(A$.Z$
): B.F(B$.Z$).8...C.B: . 210: C.A: . 210
._.... ".. THE CURRENT LOAD-ADDRESS IS".
..".. " HEX: .";M$;". DECIMAL:.";B.F.
A...,.. "....WANT TO CHANGE LOAD-ADDR (Y
/N) ?.. Y...";...6.. X$: . X$.."Y" ..990
:.90...@.. "...NEW LOAD-ADDR (DECIMAL) ?
.. 0 .........";.>.J.. P: . P.0 . P
.65535 . . "..": . 320.I.T.B..(P.F): A.P
.B.F: P$.G(A).G(B): M$.""...^.C.B: . 210
: C.A: . 210...H.. ".. HEX: .";M$;" .
DECIMAL:.";B.F.A...R.. "....OK TO WRITE
NEW LOAD-ADDR (Y/N) ?.. Y...";...|.. X$:
. X$.."Y" .."...":.990:.990:."..":.90./
...J.C(N$): . J.V . 410.N.... X.J.1 . V:
N$.N$.G(160):..H.... 1,U,15: . 2,U,2,"#"
.W.... 620:.900......1,"U1:";2;D;T;S: .
620......1,"B-P:";2;0: .#2,A$,B$.P.B.T.F
(A$.Z$): S.F(B$.Z$): H.2...L..1,"B-P:";2
;H: .#2,T$...V.C.F(T$.Z$): . C..130 . 51
0.)....#2,A$,B$: F$."": . X.1 . V.A....#
2,T$: F$.F$.T$: ..S.... F$.N$ . 530.J...
H.H.Q: . H.F . 460.T.... 430.....A.F(A$.
Z$): B.F(B$.Z$)......1,"U1:";2;D;A;B: .
620.E.&..1,"B-P:";2;2: .2,P$;...0..1,"U2
:";2;D;A;B: . 620...:. 2: . 620: 1...
D.. ".. LOAD-ADDR CHANGED FOR. ";N$.N.N.
. "....CHANGE ANOTHER PROGRAM (Y/N) ?..
Y...";.V.X.. X$: . X$."Y" ..990:.990:.".
.":.90...B.. ".";: ....L..1,E,M$,J,K:. E
.0 . ....V.. ". ERROR: ";E;M$;J;K.I...
2: 1: .......1,"M-R"G(198)G(229)G(1)..
....#1,A$:T.18:.F(A$).255.T.40.....S.0:.
.K....XX.1.7:.".
.":.XX.W...."..":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL