> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 64 00 99 22 93 90 22 3A 97 35 33 32 |....d.."..":.532|
00000010: 38 31 2C 31 00 41 08 65 00 41 B2 31 32 AC 34 30 |81,1.A.e.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 66 00 41 52 B2 41 AA 31 32 38 3A 43 |7.t.f.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 7E 08 67 00 99 22 93 11 22 00 92 |A2.1.~.g..".."..|
00000080: 08 68 00 99 22 11 11 31 20 2D 43 41 54 41 4C 4F |.h.."..1 -CATALO|
00000090: 47 22 00 AB 08 69 00 99 22 32 20 2D 44 45 4C 45 |G"...i.."2 -DELE|
000000A0: 54 45 20 46 49 4C 45 28 53 29 22 00 C1 08 6A 00 |TE FILE(S)"...j.|
000000B0: 99 22 33 20 2D 52 45 4E 41 4D 45 20 46 49 4C 45 |."3 -RENAME FILE|
000000C0: 22 00 DA 08 6B 00 99 22 34 20 2D 49 4E 49 54 49 |"...k.."4 -INITI|
000000D0: 41 4C 49 5A 45 20 44 4F 53 22 00 F0 08 6C 00 99 |ALIZE DOS"...l..|
000000E0: 22 35 20 2D 46 4F 52 4D 41 54 20 44 49 53 4B 22 |"5 -FORMAT DISK"|
000000F0: 00 FF 08 6D 00 99 22 36 20 2D 45 58 49 54 22 00 |...m.."6 -EXIT".|
00000100: 0C 09 6E 00 99 22 11 11 11 11 11 22 00 2B 09 6F |..n..".....".+.o|
00000110: 00 85 22 20 20 20 45 4E 54 45 52 22 3B 5A 3A 8B |.." ENTER";Z:.|
00000120: 5A B3 31 B0 5A B1 36 A7 31 30 33 00 4A 09 70 00 |Z.1.Z.6.103.J.p.|
00000130: 91 5A 89 31 31 33 2C 31 32 30 2C 31 33 36 2C 31 |.Z.113,120,136,1|
00000140: 35 35 2C 31 35 39 2C 31 37 36 00 7D 09 71 00 99 |55,159,176.}.q..|
00000150: 22 93 12 20 20 20 20 20 20 20 20 20 20 20 20 20 |".. |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 95 09 | ";...|
00000180: 72 00 99 22 12 91 20 20 44 49 53 4B 20 4E 41 4D |r..".. DISK NAM|
00000190: 45 20 3A 22 3B 00 A2 09 73 00 9E 28 34 30 35 39 |E :";...s..(4059|
000001A0: 31 29 00 BA 09 74 00 99 22 20 20 20 20 20 20 20 |1)...t.." |
000001B0: 2E 2E 2E 52 45 54 55 52 4E 22 00 CD 09 75 00 A1 |...RETURN"...u..|
000001C0: 5A 24 3A 8B 5A 24 B2 22 22 A7 31 31 37 00 D6 09 |Z$:.Z$."".117...|
000001D0: 76 00 89 31 30 33 00 DF 09 77 00 89 31 30 33 00 |v..103...w..103.|
000001E0: 0E 0A 78 00 99 22 93 11 20 45 4E 54 45 52 20 54 |..x..".. ENTER T|
000001F0: 48 45 20 4E 41 4D 45 20 4F 46 20 54 48 45 20 46 |HE NAME OF THE F|
00000200: 49 4C 45 20 54 4F 20 44 45 4C 45 54 45 22 00 28 |ILE TO DELETE".(|
00000210: 0A 79 00 5A 24 B2 22 22 3A 85 22 11 11 11 20 4E |.y.Z$."":."... N|
00000220: 41 4D 45 3A 22 3B 5A 24 00 40 0A 7A 00 8B 5A 24 |AME:";Z$.@.z..Z$|
00000230: B2 22 22 B0 C3 28 5A 24 29 B1 31 36 A7 31 30 33 |.""..(Z$).16.103|
00000240: 00 5B 0A 7B 00 99 22 11 11 11 11 50 52 45 53 53 |.[.{.."....PRESS|
00000250: 20 54 48 45 20 59 20 4B 45 59 22 00 74 0A 7C 00 | THE Y KEY".t.|.|
00000260: 99 22 54 4F 20 12 20 44 45 4C 45 54 45 20 92 20 |."TO . DELETE . |
00000270: 54 48 45 22 00 84 0A 7D 00 99 22 46 49 4C 45 20 |THE"...}.."FILE |
00000280: C0 C0 C9 22 00 94 0A 7E 00 99 22 20 20 20 20 20 |..."...~.." |
00000290: 20 20 C2 22 00 A4 0A 7F 00 99 22 20 20 20 20 20 | ."......" |
000002A0: 20 20 DF 22 00 B5 0A 80 00 99 22 20 20 20 20 20 | ."......" |
000002B0: 20 20 20 22 3B 00 BD 0A 81 00 99 5A 24 00 D0 0A | ";......Z$...|
000002C0: 82 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 33 30 |...X$:.X$."".130|
000002D0: 00 E1 0A 83 00 8B 58 24 B3 B1 22 59 22 A7 31 30 |......X$.."Y".10|
000002E0: 33 00 FD 0A 84 00 99 22 93 11 4E 4F 57 20 44 45 |3......"..NOW DE|
000002F0: 4C 45 54 49 4E 47 3A 20 12 22 3B 5A 24 00 17 0B |LETING: .";Z$...|
00000300: 85 00 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 |...15,8,15:.15,"|
00000310: 53 30 3A 22 3B 5A 24 00 1F 0B 86 00 A0 31 35 00 |S0:";Z$......15.|
00000320: 28 0B 87 00 89 31 30 33 00 57 0B 88 00 99 22 93 |(....103.W....".|
00000330: 11 20 45 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 |. ENTER THE NAME|
00000340: 20 4F 46 20 54 48 45 20 46 49 4C 45 20 54 4F 20 | OF THE FILE TO |
00000350: 52 45 4E 41 4D 45 22 00 71 0B 89 00 5A 24 B2 22 |RENAME".q...Z$."|
00000360: 22 3A 85 22 11 11 11 20 4E 41 4D 45 3A 22 3B 5A |":."... NAME:";Z|
00000370: 24 00 7C 0B 8A 00 5A 31 24 B2 22 22 00 B9 0B 8B |$.|...Z1$.""....|
00000380: 00 99 22 93 11 20 45 4E 54 45 52 20 54 48 45 20 |..".. ENTER THE |
00000390: 4E 45 57 20 4E 41 4D 45 20 4F 46 20 54 48 49 53 |NEW NAME OF THIS|
000003A0: 20 46 49 4C 45 22 3A 85 22 11 11 11 4E 45 57 20 | FILE":."...NEW |
000003B0: 4E 41 4D 45 22 3B 5A 31 24 00 D1 0B 8C 00 8B 5A |NAME";Z1$......Z|
000003C0: 24 B2 22 22 B0 C3 28 5A 24 29 B1 31 36 A7 31 30 |$.""..(Z$).16.10|
000003D0: 33 00 EB 0B 8D 00 8B 5A 31 24 B2 22 22 B0 C3 28 |3......Z1$.""..(|
000003E0: 5A 31 24 29 B1 31 36 A7 31 30 33 00 06 0C 8E 00 |Z1$).16.103.....|
000003F0: 99 22 11 11 11 11 50 52 45 53 53 20 54 48 45 20 |."....PRESS THE |
00000400: 59 20 4B 45 59 22 00 1F 0C 8F 00 99 22 54 4F 20 |Y KEY"......"TO |
00000410: 12 20 52 45 4E 41 4D 45 20 92 20 54 48 45 22 00 |. RENAME . THE".|
00000420: 2F 0C 90 00 99 22 46 49 4C 45 20 C0 C0 C9 22 00 |/...."FILE ...".|
00000430: 3F 0C 91 00 99 22 20 20 20 20 20 20 20 C2 22 00 |?...." .".|
00000440: 4F 0C 92 00 99 22 20 20 20 20 20 20 20 DF 22 00 |O...." .".|
00000450: 60 0C 93 00 99 22 20 20 20 20 20 20 20 20 22 3B |`...." ";|
00000460: 00 78 0C 94 00 99 5A 24 3A 99 22 20 20 20 20 41 |.x....Z$:." A|
00000470: 53 3A 20 22 3B 5A 31 24 00 8B 0C 95 00 A1 58 24 |S: ";Z1$......X$|
00000480: 3A 8B 58 24 B2 22 22 A7 31 34 39 00 9C 0C 96 00 |:.X$."".149.....|
00000490: 8B 58 24 B3 B1 22 59 22 A7 31 30 33 00 C5 0C 97 |.X$.."Y".103....|
000004A0: 00 99 22 93 11 4E 4F 57 20 52 45 4E 41 4D 49 4E |.."..NOW RENAMIN|
000004B0: 47 3A 20 12 22 3B 5A 24 3B 22 92 20 41 53 20 12 |G: .";Z$;". AS .|
000004C0: 22 3B 5A 31 24 00 E7 0C 98 00 9F 31 35 2C 38 2C |";Z1$......15,8,|
000004D0: 31 35 3A 98 31 35 2C 22 52 30 3A 22 3B 5A 31 24 |15:.15,"R0:";Z1$|
000004E0: 3B 22 3D 22 3B 5A 24 00 EF 0C 99 00 A0 31 35 00 |;"=";Z$......15.|
000004F0: F8 0C 9A 00 89 31 30 33 00 1A 0D 9B 00 99 22 93 |.....103......".|
00000500: 11 20 4E 4F 57 20 49 4E 49 54 41 4C 49 5A 49 4E |. NOW INITALIZIN|
00000510: 47 20 44 4F 53 20 2E 2E 2E 22 00 2F 0D 9C 00 9F |G DOS ..."./....|
00000520: 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 49 22 00 |15,8,15:.15,"I".|
00000530: 37 0D 9D 00 A0 31 35 00 40 0D 9E 00 89 31 30 33 |7....15.@....103|
00000540: 00 73 0D 9F 00 99 22 93 11 20 52 45 4D 4F 56 45 |.s....".. REMOVE|
00000550: 20 54 48 45 20 53 59 53 54 45 4D 20 44 49 53 4B | THE SYSTEM DISK|
00000560: 2C 20 49 4E 53 45 52 54 20 4E 45 57 20 44 49 53 |, INSERT NEW DIS|
00000570: 4B 22 3B 00 A1 0D A0 00 99 22 20 50 52 45 53 53 |K";......" PRESS|
00000580: 20 54 48 45 20 4B 45 59 20 20 59 20 20 54 4F 20 | THE KEY Y TO |
00000590: 46 4F 52 4D 41 54 20 54 48 49 53 20 44 49 53 4B |FORMAT THIS DISK|
000005A0: 22 00 CD 0D A1 00 99 22 20 28 54 48 49 53 20 57 |"......" (THIS W|
000005B0: 49 4C 4C 20 45 52 41 53 45 20 50 52 45 56 49 4F |ILL ERASE PREVIO|
000005C0: 55 53 20 46 49 4C 45 53 20 21 21 21 29 00 E0 0D |US FILES !!!)...|
000005D0: A2 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 36 32 |...Z$:.Z$."".162|
000005E0: 00 F1 0D A3 00 8B 5A 24 B3 B1 22 59 22 A7 31 30 |......Z$.."Y".10|
000005F0: 33 00 22 0E A4 00 99 22 93 49 4E 50 55 54 20 4E |3."....".INPUT N|
00000600: 45 57 20 44 49 53 4B 20 4E 41 4D 45 20 41 4E 44 |EW DISK NAME AND|
00000610: 20 54 57 4F 20 44 49 47 49 54 20 4E 55 4D 42 45 | TWO DIGIT NUMBE|
00000620: 52 22 00 46 0E A5 00 5A B2 30 3A 5A 24 B2 22 22 |R".F...Z.0:Z$.""|
00000630: 3A 85 22 11 11 11 20 4E 41 4D 45 2C 58 58 20 3A |:."... NAME,XX :|
00000640: 22 3B 5A 24 2C 5A 00 67 0E A6 00 8B 5A 24 B2 22 |";Z$,Z.g....Z$."|
00000650: 22 B0 C3 28 5A 24 29 B1 31 36 B0 5A B3 30 B0 5A |"..(Z$).16.Z.0.Z|
00000660: B1 39 39 A7 31 30 33 00 A4 0E A7 00 99 22 11 20 |.99.103......". |
00000670: 50 52 45 53 53 20 54 48 45 20 59 20 4B 45 59 20 |PRESS THE Y KEY |
00000680: 54 4F 20 46 4F 52 4D 41 54 20 54 48 45 20 44 49 |TO FORMAT THE DI|
00000690: 53 4B 3A 22 3A 99 22 20 20 22 3B 5A 24 3B 22 20 |SK:":." ";Z$;" |
000006A0: 20 22 3B 5A 00 B7 0E A8 00 A1 58 24 3A 8B 58 24 | ";Z......X$:.X$|
000006B0: B2 22 22 A7 31 36 38 00 C8 0E A9 00 8B 58 24 B3 |."".168......X$.|
000006C0: B1 22 59 22 A7 31 30 33 00 07 0F AA 00 99 22 93 |."Y".103......".|
000006D0: 12 20 4E 4F 57 20 46 4F 52 4D 41 54 54 49 4E 47 |. NOW FORMATTING|
000006E0: 20 54 48 45 20 4E 45 57 20 44 49 53 4B 20 20 20 | THE NEW DISK |
000006F0: 20 20 20 20 20 20 20 20 12 20 11 11 22 3B 5A 24 | . ..";Z$|
00000700: 3B 22 20 20 22 3B 5A 00 27 0F AB 00 9F 31 35 2C |;" ";Z.'....15,|
00000710: 38 2C 31 35 3A 98 31 35 2C 22 4E 30 3A 22 3B 5A |8,15:.15,"N0:";Z|
00000720: 24 3B 22 2C 22 3B 5A 00 2F 0F AC 00 A0 31 35 00 |$;",";Z./....15.|
00000730: 75 0F AD 00 99 22 93 20 50 4C 45 41 53 45 20 49 |u....". PLEASE I|
00000740: 4E 53 45 52 54 20 54 48 45 20 53 59 53 54 45 4D |NSERT THE SYSTEM|
00000750: 20 44 49 53 4B 20 20 20 20 20 20 20 20 20 20 20 | DISK |
00000760: 20 41 4E 44 20 50 52 45 53 53 20 54 48 45 20 4B | AND PRESS THE K|
00000770: 45 59 20 59 22 00 89 0F AE 00 A1 5A 24 3A 8B 5A |EY Y"......Z$:.Z|
00000780: 24 B2 22 59 22 A7 31 30 33 00 92 0F AF 00 89 31 |$."Y".103......1|
00000790: 37 34 00 AE 0F B0 00 5A 24 B2 22 43 54 52 4C 22 |74.....Z$."CTRL"|
000007A0: 3A 99 22 93 05 22 3A 97 38 32 30 2C 36 36 00 E5 |:."..":.820,66..|
000007B0: 0F B1 00 99 22 11 11 4E 45 57 11 11 11 9D 9D 9D |...."..NEW......|
000007C0: 4C 4F 41 44 22 3B C7 28 33 34 29 3B 5A 24 3B C7 |LOAD";.(34);Z$;.|
000007D0: 28 33 34 29 3B 22 2C 38 9D 9D 9D 9D 11 11 11 11 |(34);",8........|
000007E0: 11 52 55 4E 22 00 1A 10 B2 00 99 22 91 91 91 91 |.RUN"......"....|
000007F0: 91 91 91 91 91 91 91 91 22 3A 97 36 33 31 2C 31 |........":.631,1|
00000800: 33 3A 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 |3:.632,13:.633,1|
00000810: 33 3A 97 31 39 38 2C 33 3A 80 00 00 00 |3:.198,3:.... |
....D.."..":.53281,1.A.E.A.12.4096.256:I
N.A.156:CL.A.101:DE.A.167.T.F.AR.A.128:C
A.A.137:BR.A.217:CB.A.226:.JZ,9:A2.1.~.G
..".."...H.."..1 -CATALOG"...I.."2 -DELE
TE FILE(S)".A.J.."3 -RENAME FILE".Z.K.."
4 -INITIALIZE DOS"...L.."5 -FORMAT DISK"
...M.."6 -EXIT"...N..".....".+.O.." EN
TER";Z:.Z.1.Z.6.103.J.P..Z.113,120,136,1
55,159,176.}.Q.."..
";...R..".. DISK NAM
E :";...S..(40591)...T.." ...RETUR
N".M.U..Z$:.Z$."".117.V.V..103...W..103.
..X..".. ENTER THE NAME OF THE FILE TO D
ELETE".(.Y.Z$."":."... NAME:";Z$.@.Z..Z$
."".C(Z$).16.103.[.{.."....PRESS THE Y K
EY".T.|.."TO . DELETE . THE"...}.."FILE
..I"...~.." B"....." ."....
.." ";......Z$.P....X$:.X$."".130
......X$.."Y".103......"..NOW DELETING:
.";Z$......15,8,15:.15,"S0:";Z$..... 15.
(....103.W....".. ENTER THE NAME OF THE
FILE TO RENAME".Q...Z$."":."... NAME:";Z
$.|...Z1$.""......".. ENTER THE NEW NAME
OF THIS FILE":."...NEW NAME";Z1$.Q....Z
$."".C(Z$).16.103......Z1$."".C(Z1$).16.
103......"....PRESS THE Y KEY"......"TO
. RENAME . THE"./...."FILE ..I".?...."
B".O...." .".`...." ";
.X....Z$:." AS: ";Z1$......X$:.X$."".
149......X$.."Y".103.E...."..NOW RENAMIN
G: .";Z$;". AS .";Z1$......15,8,15:.15,"
R0:";Z1$;"=";Z$..... 15......103......".
. NOW INITALIZING DOS ..."./....15,8,15:
.15,"I".7... 15.@....103.S....".. REMOVE
THE SYSTEM DISK, INSERT NEW DISK";... .
." PRESS THE KEY Y TO FORMAT THIS DISK
".M...." (THIS WILL ERASE PREVIOUS FILES
!!!)......Z$:.Z$."".162......Z$.."Y".10
3."....".INPUT NEW DISK NAME AND TWO DIG
IT NUMBER".F...Z.0:Z$."":."... NAME,XX :
";Z$,Z.G....Z$."".C(Z$).16.Z.0.Z.99.103.
.....". PRESS THE Y KEY TO FORMAT THE DI
SK:":." ";Z$;" ";Z......X$:.X$."".168.
H....X$.."Y".103......".. NOW FORMATTING
THE NEW DISK . ..";Z$;" ";Z.
'....15,8,15:.15,"N0:";Z$;",";Z./... 15.
U....". PLEASE INSERT THE SYSTEM DISK
AND PRESS THE KEY Y"......Z$:.Z
$."Y".103......174.....Z$."CTRL":."..":.
820,66......"..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