> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 8F 2E 2E 2E 2E 2E 2E 00 30 08 |....d.........0.|
00000010: 65 00 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 |e.L$." |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000030: 00 48 08 66 00 A0 31 35 3A 9F 31 35 2C 38 2C 31 |.H.f..15:.15,8,1|
00000040: 35 3A 99 C7 28 31 34 29 00 6D 08 6E 00 99 22 93 |5:..(14).m.n..".|
00000050: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C4 49 |...............I|
00000060: 53 4B 20 C6 55 4E 43 54 49 4F 4E 53 22 00 8C 08 |SK .UNCTIONS"...|
00000070: 78 00 99 22 11 11 11 20 20 20 20 20 12 31 92 20 |x.."... .1. |
00000080: D2 45 4E 41 4D 45 20 C6 49 4C 45 22 00 AE 08 82 |.ENAME .ILE"....|
00000090: 00 99 22 11 20 20 20 20 20 12 32 92 20 C6 4F 52 |..". .2. .OR|
000000A0: 4D 41 54 20 C4 41 54 41 20 C4 49 53 4B 22 00 CD |MAT .ATA .ISK"..|
000000B0: 08 8C 00 99 22 11 11 11 20 20 20 20 20 20 20 D0 |...."... .|
000000C0: D2 C5 D3 D3 20 31 20 4F 52 20 32 20 22 00 D8 08 |.... 1 OR 2 "...|
000000D0: 96 00 49 4F 24 B2 22 22 00 ED 08 A0 00 A1 49 4F |..IO$.""......IO|
000000E0: 24 3A 8B 49 4F 24 B2 22 22 A7 31 36 30 00 FE 08 |$:.IO$."".160...|
000000F0: AA 00 8B 49 4F 24 B2 22 31 22 A7 32 30 30 00 0F |...IO$."1".200..|
00000100: 09 B4 00 8B 49 4F 24 B2 22 32 22 A7 33 30 30 00 |....IO$."2".300.|
00000110: 18 09 BE 00 89 31 35 30 00 25 09 C8 00 8F 20 D8 |.....150.%.... .|
00000120: 20 46 49 4C 45 00 2E 09 D2 00 99 22 93 22 00 4E | FILE......".".N|
00000130: 09 DC 00 85 22 54 59 50 45 20 49 4E 20 4F 4C 44 |...."TYPE IN OLD|
00000140: 20 46 49 4C 45 20 4E 41 4D 45 22 3B 46 24 00 6F | FILE NAME";F$.o|
00000150: 09 E1 00 85 22 54 59 50 45 20 49 4E 20 4E 45 57 |...."TYPE IN NEW|
00000160: 20 46 49 4C 45 20 4E 41 4D 45 22 3B 46 31 24 00 | FILE NAME";F1$.|
00000170: 7E 09 E6 00 A0 31 3A 9F 31 2C 38 2C 31 35 00 96 |~....1:.1,8,15..|
00000180: 09 F0 00 98 31 2C 22 52 30 3A 22 AA 46 31 24 AA |....1,"R0:".F1$.|
00000190: 22 3D 22 AA 46 24 00 9F 09 F2 00 8D 35 30 30 00 |"=".F$......500.|
000001A0: A8 09 FA 00 A0 31 3A 8A 00 B3 09 04 01 8F 2E 2E |.....1:.........|
000001B0: 2E 2E 2E 00 BE 09 2C 01 8F 2E 2E 2E 2E 2E 00 C7 |......,.........|
000001C0: 09 36 01 99 22 93 22 00 E9 09 40 01 99 22 20 20 |.6.."."...@.." |
000001D0: 20 20 20 11 11 11 12 D7 C1 D2 CE C9 CE C7 21 21 | ...........!!|
000001E0: 21 21 21 21 21 92 11 11 22 00 1A 0A 42 01 99 22 |!!!!!..."...B.."|
000001F0: 20 20 20 20 20 11 C4 CF 20 CE CF D4 20 C6 CF D2 | ... ... ...|
00000200: CD C1 D4 20 59 4F 55 52 20 50 52 4F 47 52 41 4D |... YOUR PROGRAM|
00000210: 20 44 49 53 4B 2E 11 11 11 22 00 43 0A 4A 01 99 | DISK....".C.J..|
00000220: 22 20 20 20 20 20 C6 4F 52 4D 41 54 54 49 4E 47 |" .ORMATTING|
00000230: 20 41 20 44 49 53 4B 20 57 49 4C 4C 20 45 52 41 | A DISK WILL ERA|
00000240: 53 45 22 00 62 0A 54 01 99 22 20 20 20 20 20 41 |SE".b.T.." A|
00000250: 4C 4C 20 50 52 45 56 49 4F 55 53 20 44 41 54 41 |LL PREVIOUS DATA|
00000260: 21 22 00 7E 0A 5E 01 99 22 20 20 20 20 20 11 11 |!".~.^.." ..|
00000270: C3 4F 4E 54 49 4E 55 45 20 59 2F 4E 3F 22 00 89 |.ONTINUE Y/N?"..|
00000280: 0A 68 01 49 4F 24 B2 22 22 00 9F 0A 72 01 A1 49 |.h.IO$.""...r..I|
00000290: 4F 24 3A 8B 49 4F 24 B2 22 59 22 A7 34 30 30 00 |O$:.IO$."Y".400.|
000002A0: AE 0A 7C 01 8B 49 4F 24 B2 22 4E 22 A7 8A 00 B7 |..|..IO$."N"....|
000002B0: 0A 86 01 89 33 36 30 00 C0 0A 90 01 8F 2E 2E 2E |....360.........|
000002C0: 00 CC 0A 9A 01 99 22 93 11 11 11 22 00 EB 0A A4 |......"...."....|
000002D0: 01 85 22 20 C5 4E 54 45 52 20 CE 45 57 20 C4 49 |.." .NTER .EW .I|
000002E0: 53 4B 20 CE 41 4D 45 22 3B 44 24 00 08 0B AE 01 |SK .AME";D$.....|
000002F0: 85 22 20 C5 4E 54 45 52 20 32 20 44 49 47 49 54 |." .NTER 2 DIGIT|
00000300: 20 C9 C4 22 3B 49 44 24 00 1C 0B B8 01 49 44 24 | ..";ID$.....ID$|
00000310: B2 C8 28 49 44 24 AA 4C 24 2C 32 29 00 2F 0B C2 |..(ID$.L$,2)./..|
00000320: 01 44 24 B2 C8 28 44 24 AA 4C 24 2C 31 36 29 00 |.D$..(D$.L$,16).|
00000330: 5A 0B CC 01 A0 31 3A 9F 31 2C 38 2C 31 35 3A 98 |Z....1:.1,8,15:.|
00000340: 31 2C 22 4E 30 3A 22 AA 44 24 AA 22 2C 22 AA 49 |1,"N0:".D$.",".I|
00000350: 44 24 3A A0 31 3A 8D 35 30 30 00 60 0B D6 01 8A |D$:.1:.500.`....|
00000360: 00 6C 0B F4 01 8F 20 2E 2E 2E 2E 2E 00 7D 0B FE |.l.... ......}..|
00000370: 01 84 31 35 2C 41 24 2C 42 24 2C 43 24 00 8D 0B |..15,A$,B$,C$...|
00000380: 08 02 8B 41 24 B2 22 30 30 22 A7 20 8E 00 9B 0B |...A$."00". ....|
00000390: 12 02 99 41 24 2C 42 24 2C 43 24 00 BC 0B 1C 02 |...A$,B$,C$.....|
000003A0: 99 22 D0 52 45 53 53 20 D2 45 54 55 52 4E 20 54 |.".RESS .ETURN T|
000003B0: 4F 20 C3 4F 4E 54 49 4E 55 45 3A 22 00 CC 0B 26 |O .ONTINUE:"...&|
000003C0: 02 49 4F 24 B2 22 22 3A A1 49 4F 24 00 E1 0B 30 |.IO$."":.IO$...0|
000003D0: 02 A1 49 4F 24 3A 8B 49 4F 24 B2 22 22 A7 35 36 |..IO$:.IO$."".56|
000003E0: 30 00 E7 0B 3A 02 8E 00 00 00 |0...:..... |
....D.........0.E.L$."
".H.F. 15:.15,8,15:.G(14).M.N..".
..............DISK FUNCTIONS"...X.."...
.1. RENAME FILE"......". .2. FOR
MAT DATA DISK".M...."... PRESS 1 O
R 2 ".X...IO$.""... ..IO$:.IO$."".160...
...IO$."1".200......IO$."2".300......150
.%.H.. X FILE...R..".".N...."TYPE IN OLD
FILE NAME";F$.O...."TYPE IN NEW FILE NA
ME";F1$.~... 1:.1,8,15......1,"R0:".F1$.
"=".F$......500..... 1:...............,.
.......G.6.."."...@.." ....WARNING!!
!!!!!..."...B.." .DO NOT FORMAT YOUR
PROGRAM DISK....".C.J.." FORMATTING
A DISK WILL ERASE".B.T.." ALL PREVI
OUS DATA!".~.^.." ..CONTINUE Y/N?"..
.H.IO$.""...R..IO$:.IO$."Y".400...|..IO$
."N"........360..........L...."...."....
.." ENTER NEW DISK NAME";D$......" ENTER
2 DIGIT ID";ID$.....ID$.H(ID$.L$,2)./.B
.D$.H(D$.L$,16).Z.L. 1:.1,8,15:.1,"N0:".
D$.",".ID$: 1:.500.`.V...L.... ......}..
..15,A$,B$,C$......A$."00". .......A$,B$
,C$......"PRESS RETURN TO CONTINUE:".L.&
.IO$."":.IO$...0..IO$:.IO$."".560...:...
..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL