> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 03 00 99 22 93 90 22 3A 97 35 33 32 |......."..":.532|
00000010: 38 31 2C 31 00 41 08 0A 00 41 B2 31 32 AC 34 30 |81,1.A...A.12.40|
00000020: 39 36 AA 32 35 36 3A 49 4E B2 41 AA 31 35 36 3A |96.256:IN.A.156:|
00000030: 43 4C B2 41 AA 31 30 31 3A 44 45 B2 41 AA 31 36 |CL.A.101:DE.A.16|
00000040: 37 00 74 08 0C 00 41 52 B2 41 AA 31 32 38 3A 43 |7.t...AR.A.128:C|
00000050: 41 B2 41 AA 31 33 37 3A 42 52 B2 41 AA 32 31 37 |A.A.137:BR.A.217|
00000060: 3A 43 42 B2 41 AA 32 32 36 3A 97 4A 5A 2C 39 3A |:CB.A.226:.JZ,9:|
00000070: 41 32 B2 31 00 B3 08 64 00 8F 20 20 50 4F 4B 45 |A2.1...d.. POKE|
00000080: 35 36 33 33 33 2C 31 32 37 3A 50 4F 4B 45 37 38 |56333,127:POKE78|
00000090: 38 2C 34 39 3A 50 4F 4B 45 37 38 39 2C 31 30 2B |8,49:POKE789,10+|
000000A0: 31 36 2A 31 34 3A 50 4F 4B 45 35 36 33 33 33 2C |16*14:POKE56333,|
000000B0: 31 32 39 00 BD 08 C8 00 99 22 93 11 22 00 D1 08 |129......".."...|
000000C0: CD 00 99 22 11 11 31 20 2D 43 41 54 41 4C 4F 47 |..."..1 -CATALOG|
000000D0: 22 00 EA 08 D2 00 99 22 32 20 2D 44 45 4C 45 54 |"......"2 -DELET|
000000E0: 45 20 46 49 4C 45 28 53 29 22 00 00 09 DC 00 99 |E FILE(S)"......|
000000F0: 22 33 20 2D 52 45 4E 41 4D 45 20 46 49 4C 45 22 |"3 -RENAME FILE"|
00000100: 00 19 09 E6 00 99 22 34 20 2D 49 4E 49 54 49 41 |......"4 -INITIA|
00000110: 4C 49 5A 45 20 44 4F 53 22 00 2F 09 E8 00 99 22 |LIZE DOS"./...."|
00000120: 35 20 2D 46 4F 52 4D 41 54 20 44 49 53 4B 22 00 |5 -FORMAT DISK".|
00000130: 3E 09 EF 00 99 22 36 20 2D 45 58 49 54 22 00 4B |>...."6 -EXIT".K|
00000140: 09 F0 00 99 22 11 11 11 11 11 22 00 6B 09 F4 01 |....".....".k...|
00000150: 85 22 20 20 20 45 4E 54 45 52 22 3B 5A 3A 8B 20 |." ENTER";Z:. |
00000160: 5A B3 31 B0 5A B1 36 A7 32 30 30 00 90 09 E8 03 |Z.1.Z.6.200.....|
00000170: 91 5A 89 32 30 30 30 2C 33 30 30 30 2C 34 30 30 |.Z.2000,3000,400|
00000180: 30 2C 35 30 30 30 2C 36 30 30 30 2C 37 30 30 30 |0,5000,6000,7000|
00000190: 00 C3 09 D0 07 99 22 93 12 20 20 20 20 20 20 20 |......".. |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 22 3B 00 DB 09 DA 07 99 22 12 91 20 20 44 49 | ";......".. DI|
000001D0: 53 4B 20 4E 41 4D 45 20 3A 22 3B 00 E8 09 EE 07 |SK NAME :";.....|
000001E0: 9E 28 34 30 35 39 31 29 00 00 0A 02 08 99 22 20 |.(40591)......" |
000001F0: 20 20 20 20 20 20 2E 2E 2E 52 45 54 55 52 4E 22 | ...RETURN"|
00000200: 00 14 0A 0C 08 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 |......Z$:.Z$."".|
00000210: 32 30 36 30 00 1D 0A 2A 08 89 32 30 30 00 26 0A |2060...*..200.&.|
00000220: C4 09 89 32 30 30 00 55 0A B8 0B 99 22 93 11 20 |...200.U....".. |
00000230: 45 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 20 4F |ENTER THE NAME O|
00000240: 46 20 54 48 45 20 46 49 4C 45 20 54 4F 20 44 45 |F THE FILE TO DE|
00000250: 4C 45 54 45 22 00 6F 0A C2 0B 5A 24 B2 22 22 3A |LETE".o...Z$."":|
00000260: 85 22 11 11 11 20 4E 41 4D 45 3A 22 3B 5A 24 00 |."... NAME:";Z$.|
00000270: 88 0A CC 0B 8B 20 5A 24 B2 22 22 B0 C3 28 5A 24 |..... Z$.""..(Z$|
00000280: 29 B1 31 36 A7 32 30 30 00 A3 0A D6 0B 99 22 11 |).16.200......".|
00000290: 11 11 11 50 52 45 53 53 20 54 48 45 20 59 20 4B |...PRESS THE Y K|
000002A0: 45 59 22 00 BC 0A E0 0B 99 22 54 4F 20 12 20 44 |EY"......"TO . D|
000002B0: 45 4C 45 54 45 20 92 20 54 48 45 22 00 CC 0A EA |ELETE . THE"....|
000002C0: 0B 99 22 46 49 4C 45 20 C0 C0 C9 22 00 DC 0A F4 |.."FILE ..."....|
000002D0: 0B 99 22 20 20 20 20 20 20 20 C2 22 00 EC 0A FE |.." ."....|
000002E0: 0B 99 22 20 20 20 20 20 20 20 DF 22 00 FD 0A 08 |.." ."....|
000002F0: 0C 99 22 20 20 20 20 20 20 20 20 22 3B 00 05 0B |.." ";...|
00000300: 12 0C 99 5A 24 00 19 0B 1C 0C A1 58 24 3A 8B 58 |...Z$......X$:.X|
00000310: 24 B2 22 22 A7 33 31 30 30 00 2B 0B 80 0C 8B 20 |$."".3100.+.... |
00000320: 58 24 B3 B1 22 59 22 A7 32 30 30 00 47 0B 8A 0C |X$.."Y".200.G...|
00000330: 99 22 93 11 4E 4F 57 20 44 45 4C 45 54 49 4E 47 |."..NOW DELETING|
00000340: 3A 20 12 22 3B 5A 24 00 61 0B E4 0C 9F 31 35 2C |: .";Z$.a....15,|
00000350: 38 2C 31 35 3A 98 31 35 2C 22 53 30 3A 22 3B 5A |8,15:.15,"S0:";Z|
00000360: 24 00 69 0B 48 0D A0 31 35 00 72 0B AC 0D 89 32 |$.i.H..15.r....2|
00000370: 30 30 00 A1 0B A0 0F 99 22 93 11 20 45 4E 54 45 |00......".. ENTE|
00000380: 52 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 54 48 |R THE NAME OF TH|
00000390: 45 20 46 49 4C 45 20 54 4F 20 52 45 4E 41 4D 45 |E FILE TO RENAME|
000003A0: 22 00 BB 0B AA 0F 5A 24 B2 22 22 3A 85 22 11 11 |".....Z$."":."..|
000003B0: 11 20 4E 41 4D 45 3A 22 3B 5A 24 00 C6 0B AB 0F |. NAME:";Z$.....|
000003C0: 5A 31 24 B2 22 22 00 03 0C AC 0F 99 22 93 11 20 |Z1$.""......".. |
000003D0: 45 4E 54 45 52 20 54 48 45 20 4E 45 57 20 4E 41 |ENTER THE NEW NA|
000003E0: 4D 45 20 4F 46 20 54 48 49 53 20 46 49 4C 45 22 |ME OF THIS FILE"|
000003F0: 3A 85 22 11 11 11 4E 45 57 20 4E 41 4D 45 22 3B |:."...NEW NAME";|
00000400: 5A 31 24 00 1C 0C B4 0F 8B 20 5A 24 B2 22 22 B0 |Z1$...... Z$."".|
00000410: C3 28 5A 24 29 B1 31 36 A7 32 30 30 00 37 0C B6 |.(Z$).16.200.7..|
00000420: 0F 8B 20 5A 31 24 B2 22 22 B0 C3 28 5A 31 24 29 |.. Z1$.""..(Z1$)|
00000430: B1 31 36 A7 32 30 30 00 52 0C BE 0F 99 22 11 11 |.16.200.R...."..|
00000440: 11 11 50 52 45 53 53 20 54 48 45 20 59 20 4B 45 |..PRESS THE Y KE|
00000450: 59 22 00 6B 0C C8 0F 99 22 54 4F 20 12 20 52 45 |Y".k...."TO . RE|
00000460: 4E 41 4D 45 20 92 20 54 48 45 22 00 7B 0C D2 0F |NAME . THE".{...|
00000470: 99 22 46 49 4C 45 20 C0 C0 C9 22 00 8B 0C DC 0F |."FILE ...".....|
00000480: 99 22 20 20 20 20 20 20 20 C2 22 00 9B 0C E6 0F |." .".....|
00000490: 99 22 20 20 20 20 20 20 20 DF 22 00 AC 0C F0 0F |." .".....|
000004A0: 99 22 20 20 20 20 20 20 20 20 22 3B 00 C4 0C FA |." ";....|
000004B0: 0F 99 5A 24 3A 99 22 20 20 20 20 41 53 3A 20 22 |..Z$:." AS: "|
000004C0: 3B 5A 31 24 00 D8 0C 04 10 A1 58 24 3A 8B 58 24 |;Z1$......X$:.X$|
000004D0: B2 22 22 A7 34 31 30 30 00 EA 0C 68 10 8B 20 58 |."".4100...h.. X|
000004E0: 24 B3 B1 22 59 22 A7 32 30 30 00 13 0D 72 10 99 |$.."Y".200...r..|
000004F0: 22 93 11 4E 4F 57 20 52 45 4E 41 4D 49 4E 47 3A |"..NOW RENAMING:|
00000500: 20 12 22 3B 5A 24 3B 22 92 20 41 53 20 12 22 3B | .";Z$;". AS .";|
00000510: 5A 31 24 00 35 0D CC 10 9F 31 35 2C 38 2C 31 35 |Z1$.5....15,8,15|
00000520: 3A 98 31 35 2C 22 52 30 3A 22 3B 5A 31 24 3B 22 |:.15,"R0:";Z1$;"|
00000530: 3D 22 3B 5A 24 00 3D 0D 30 11 A0 31 35 00 46 0D |=";Z$.=.0..15.F.|
00000540: 94 11 89 32 30 30 00 68 0D 88 13 99 22 93 11 20 |...200.h....".. |
00000550: 4E 4F 57 20 49 4E 49 54 41 4C 49 5A 49 4E 47 20 |NOW INITALIZING |
00000560: 44 4F 53 20 2E 2E 2E 22 00 7D 0D B4 14 9F 31 35 |DOS ...".}....15|
00000570: 2C 38 2C 31 35 3A 98 31 35 2C 22 49 22 00 85 0D |,8,15:.15,"I"...|
00000580: 18 15 A0 31 35 00 8E 0D 7C 15 89 32 30 30 00 C1 |...15...|..200..|
00000590: 0D 70 17 99 22 93 11 20 52 45 4D 4F 56 45 20 54 |.p..".. REMOVE T|
000005A0: 48 45 20 53 59 53 54 45 4D 20 44 49 53 4B 2C 20 |HE SYSTEM DISK, |
000005B0: 49 4E 53 45 52 54 20 4E 45 57 20 44 49 53 4B 22 |INSERT NEW DISK"|
000005C0: 3B 00 EF 0D 72 17 99 22 20 50 52 45 53 53 20 54 |;...r.." PRESS T|
000005D0: 48 45 20 4B 45 59 20 20 59 20 20 54 4F 20 46 4F |HE KEY Y TO FO|
000005E0: 52 4D 41 54 20 54 48 49 53 20 44 49 53 4B 22 00 |RMAT THIS DISK".|
000005F0: 1B 0E 7A 17 99 22 20 28 54 48 49 53 20 57 49 4C |..z.." (THIS WIL|
00000600: 4C 20 45 52 41 53 45 20 50 52 45 56 49 4F 55 53 |L ERASE PREVIOUS|
00000610: 20 46 49 4C 45 53 20 21 21 21 29 00 32 0E D4 17 | FILES !!!).2...|
00000620: A1 20 5A 24 3A 8B 20 5A 24 B2 22 22 A7 20 36 31 |. Z$:. Z$."". 61|
00000630: 30 30 00 44 0E 38 18 8B 20 5A 24 B3 B1 22 59 22 |00.D.8.. Z$.."Y"|
00000640: A7 32 30 30 00 75 0E 9C 18 99 22 93 49 4E 50 55 |.200.u....".INPU|
00000650: 54 20 4E 45 57 20 44 49 53 4B 20 4E 41 4D 45 20 |T NEW DISK NAME |
00000660: 41 4E 44 20 54 57 4F 20 44 49 47 49 54 20 4E 55 |AND TWO DIGIT NU|
00000670: 4D 42 45 52 22 00 99 0E B0 18 5A B2 30 3A 5A 24 |MBER".....Z.0:Z$|
00000680: B2 22 22 3A 85 22 11 11 11 20 4E 41 4D 45 2C 58 |."":."... NAME,X|
00000690: 58 20 3A 22 3B 5A 24 2C 5A 00 BB 0E 00 19 8B 20 |X :";Z$,Z...... |
000006A0: 5A 24 B2 22 22 B0 C3 28 5A 24 29 B1 31 36 B0 5A |Z$.""..(Z$).16.Z|
000006B0: B3 30 B0 5A B1 39 39 A7 32 30 30 00 F8 0E 64 19 |.0.Z.99.200...d.|
000006C0: 99 22 11 20 50 52 45 53 53 20 54 48 45 20 59 20 |.". PRESS THE Y |
000006D0: 4B 45 59 20 54 4F 20 46 4F 52 4D 41 54 20 54 48 |KEY TO FORMAT TH|
000006E0: 45 20 44 49 53 4B 3A 22 3A 99 22 20 20 22 3B 5A |E DISK:":." ";Z|
000006F0: 24 3B 22 20 20 22 3B 5A 00 0F 0F C8 19 A1 20 58 |$;" ";Z...... X|
00000700: 24 3A 8B 20 58 24 B2 22 22 A7 20 36 36 30 30 00 |$:. X$."". 6600.|
00000710: 21 0F D2 19 8B 20 58 24 B3 B1 22 59 22 A7 32 30 |!.... X$.."Y".20|
00000720: 30 00 60 0F 0A 1A 99 22 93 12 20 4E 4F 57 20 46 |0.`....".. NOW F|
00000730: 4F 52 4D 41 54 54 49 4E 47 20 54 48 45 20 4E 45 |ORMATTING THE NE|
00000740: 57 20 44 49 53 4B 20 20 20 20 20 20 20 20 20 20 |W DISK |
00000750: 20 12 20 11 11 22 3B 5A 24 3B 22 20 20 22 3B 5A | . ..";Z$;" ";Z|
00000760: 00 80 0F 2C 1A 9F 31 35 2C 38 2C 31 35 3A 98 31 |...,..15,8,15:.1|
00000770: 35 2C 22 4E 30 3A 22 3B 5A 24 3B 22 2C 22 3B 5A |5,"N0:";Z$;",";Z|
00000780: 00 88 0F 90 1A A0 31 35 00 CE 0F F4 1A 99 22 93 |......15......".|
00000790: 20 50 4C 45 41 53 45 20 49 4E 53 45 52 54 20 54 | PLEASE INSERT T|
000007A0: 48 45 20 53 59 53 54 45 4D 20 44 49 53 4B 20 20 |HE SYSTEM DISK |
000007B0: 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 50 52 | AND PR|
000007C0: 45 53 53 20 54 48 45 20 4B 45 59 20 59 22 00 E4 |ESS THE KEY Y"..|
000007D0: 0F FE 1A A1 20 5A 24 3A 8B 5A 24 B2 22 59 22 A7 |.... Z$:.Z$."Y".|
000007E0: 20 32 30 30 00 EE 0F 08 1B 89 36 39 31 30 00 F4 | 200......6910..|
000007F0: 0F 58 1B 8F 00 07 10 60 EA 5A 24 B2 22 43 54 52 |.X.....`.Z$."CTR|
00000800: 4C 22 3A 99 22 93 22 00 25 10 6A EA 97 38 32 30 |L":.".".%.j..820|
00000810: 2C 36 36 3A 8F 20 53 45 54 53 20 53 4F 46 54 20 |,66:. SETS SOFT |
00000820: 45 4E 54 52 59 00 5C 10 74 EA 99 22 11 11 4E 45 |ENTRY.\.t.."..NE|
00000830: 57 11 11 11 9D 9D 9D 4C 4F 41 44 22 3B C7 28 33 |W......LOAD";.(3|
00000840: 34 29 3B 5A 24 3B C7 28 33 34 29 3B 22 2C 38 9D |4);Z$;.(34);",8.|
00000850: 9D 9D 9D 11 11 11 11 11 52 55 4E 22 00 91 10 7E |........RUN"...~|
00000860: EA 99 22 91 91 91 91 91 91 91 91 91 91 91 91 22 |.."............"|
00000870: 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 |:.631,13:.632,13|
00000880: 3A 97 36 33 33 2C 31 33 3A 97 31 39 38 2C 33 3A |:.633,13:.198,3:|
00000890: 80 00 00 00 |.... |
......."..":.53281,1.A...A.12.4096.256:I
N.A.156:CL.A.101:DE.A.167.T...AR.A.128:C
A.A.137:BR.A.217:CB.A.226:.JZ,9:A2.1...D
.. POKE56333,127:POKE788,49:POKE789,10+
16*14:POKE56333,129...H.."..".Q.M.."..1
-CATALOG"...R.."2 -DELETE FILE(S)"......
"3 -RENAME FILE"......"4 -INITIALIZE DOS
"./...."5 -FORMAT DISK".>...."6 -EXIT".K
....".....".K...." ENTER";Z:. Z.1.Z.6.
200......Z.2000,3000,4000,5000,6000,7000
.C.P.."..
";...Z..".. DISK NAME :";.....
.(40591)......" ...RETURN"......Z$
:.Z$."".2060...*..200.&.D..200.U...."..
ENTER THE NAME OF THE FILE TO DELETE".O.
B.Z$."":."... NAME:";Z$...L.. Z$."".C(Z$
).16.200...V.."....PRESS THE Y KEY".....
."TO . DELETE . THE".L...."FILE ..I"....
.." B"......" ."......"
";......Z$......X$:.X$."".3100.+....
X$.."Y".200.G...."..NOW DELETING: .";Z$.
A....15,8,15:.15,"S0:";Z$.I.H. 15.R....2
00... ..".. ENTER THE NAME OF THE FILE T
O RENAME".....Z$."":."... NAME:";Z$.F...
Z1$.""......".. ENTER THE NEW NAME OF TH
IS FILE":."...NEW NAME";Z1$...... Z$."".
C(Z$).16.200.7.... Z1$."".C(Z1$).16.200.
R...."....PRESS THE Y KEY".K.H.."TO . RE
NAME . THE".{.R.."FILE ..I"......"
B"......" ."......" ";.D..
..Z$:." AS: ";Z1$.X....X$:.X$."".4100
...H.. X$.."Y".200...R.."..NOW RENAMING:
.";Z$;". AS .";Z1$.5.L..15,8,15:.15,"R0
:";Z1$;"=";Z$.=.0. 15.F....200.H...."..
NOW INITALIZING DOS ...".}....15,8,15:.1
5,"I"..... 15...|..200.A.P..".. REMOVE T
HE SYSTEM DISK, INSERT NEW DISK";...R.."
PRESS THE KEY Y TO FORMAT THIS DISK".
..Z.." (THIS WILL ERASE PREVIOUS FILES !
!!).2.T.. Z$:. Z$."". 6100.D.8.. Z$.."Y"
.200.U....".INPUT NEW DISK NAME AND TWO
DIGIT NUMBER".....Z.0:Z$."":."... NAME,X
X :";Z$,Z...... Z$."".C(Z$).16.Z.0.Z.99.
200...D..". PRESS THE Y KEY TO FORMAT TH
E DISK:":." ";Z$;" ";Z...H.. X$:. X$."
". 6600.!.R.. X$.."Y".200.`....".. NOW F
ORMATTING THE NEW DISK . ..";Z
$;" ";Z...,..15,8,15:.15,"N0:";Z$;",";Z
..... 15.N....". PLEASE INSERT THE SYSTE
M DISK AND PRESS THE KEY Y"..
.... Z$:.Z$."Y". 200......6910...X.....`
.Z$."CTRL":.".".%.J..820,66:. SETS SOFT
ENTRY.\.T.."..NEW......LOAD";G(34);Z$;G(
34);",8.........RUN"...~.."............"
:.631,13:.632,13:.633,13:.198,3:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL