> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 08 0A 00 99 22 93 22 3A 97 35 33 32 38 |..*....".":.5328|
00000010: 30 2C 31 33 3A 97 35 33 32 38 31 2C 35 3A 20 20 |0,13:.53281,5: |
00000020: 20 20 20 20 97 36 34 36 2C 30 00 47 08 0F 00 9F | .646,0.G....|
00000030: 31 35 2C 38 2C 31 35 2C 22 49 22 3A A0 31 35 3A |15,8,15,"I":.15:|
00000040: 8D 20 31 30 30 30 30 00 7D 08 14 00 99 22 93 91 |. 10000.}...."..|
00000050: 22 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |";"=============|
00000060: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000070: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 3B 00 AE 08 |===========";...|
00000080: 1E 00 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 |..."********** C|
00000090: 31 27 53 20 44 49 53 4B 20 55 54 49 4C 49 54 59 |1'S DISK UTILITY|
000000A0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 DE | ***********";..|
000000B0: 08 28 00 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.(.."===========|
000000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 FC |============="..|
000000E0: 08 32 00 99 22 1D 31 29 1D 1D 44 49 53 50 4C 41 |.2..".1)..DISPLA|
000000F0: 59 20 44 49 52 45 43 54 4F 52 59 22 00 1A 09 3C |Y DIRECTORY"...<|
00000100: 00 99 22 1D 32 29 1D 1D 46 4F 52 4D 41 54 20 28 |..".2)..FORMAT (|
00000110: 4E 45 57 29 20 44 49 53 4B 22 00 35 09 46 00 99 |NEW) DISK".5.F..|
00000120: 22 1D 33 29 1D 1D 53 43 52 41 54 43 48 20 41 20 |".3)..SCRATCH A |
00000130: 46 49 4C 45 22 00 52 09 50 00 99 22 1D 34 29 1D |FILE".R.P..".4).|
00000140: 1D 43 48 41 4E 47 45 20 44 49 53 4B 20 4E 41 4D |.CHANGE DISK NAM|
00000150: 45 22 00 6D 09 5A 00 99 22 1D 35 29 1D 1D 49 4E |E".m.Z..".5)..IN|
00000160: 54 49 41 4C 49 5A 45 20 44 49 53 4B 22 00 87 09 |TIALIZE DISK"...|
00000170: 64 00 99 22 1D 36 29 1D 1D 56 41 4C 49 44 41 54 |d..".6)..VALIDAT|
00000180: 45 20 44 49 53 4B 22 00 A1 09 6E 00 99 22 1D 37 |E DISK"...n..".7|
00000190: 29 1D 1D 52 45 4E 41 4D 45 20 41 20 46 49 4C 45 |)..RENAME A FILE|
000001A0: 22 00 C2 09 78 00 99 22 1D 38 29 1D 1D 57 52 49 |"...x..".8)..WRI|
000001B0: 54 45 20 50 52 4F 54 45 43 54 20 41 20 44 49 53 |TE PROTECT A DIS|
000001C0: 4B 22 00 E4 09 82 00 99 22 1D 39 29 1D 1D 44 49 |K"......".9)..DI|
000001D0: 53 50 4C 41 59 20 53 54 41 52 54 20 41 44 44 52 |SPLAY START ADDR|
000001E0: 45 53 53 22 00 FB 09 C8 00 A1 20 43 24 3A 8B 20 |ESS"...... C$:. |
000001F0: 43 24 B2 22 22 20 A7 20 32 30 30 00 16 0A D2 00 |C$."" . 200.....|
00000200: 8B 20 43 24 B3 22 31 22 B0 20 43 24 B1 22 39 22 |. C$."1". C$."9"|
00000210: 20 A7 20 32 30 30 00 51 0A DC 00 91 20 C5 28 43 | . 200.Q.... .(C|
00000220: 24 29 20 89 20 31 30 30 30 2C 32 30 30 30 2C 33 |$) . 1000,2000,3|
00000230: 30 30 30 2C 34 30 30 30 2C 35 30 30 30 2C 36 30 |000,4000,5000,60|
00000240: 30 30 2C 37 30 30 30 2C 38 30 30 30 2C 39 30 30 |00,7000,8000,900|
00000250: 30 00 57 0A E7 03 90 00 63 0A E8 03 9F 32 2C 38 |0.W.....c....2,8|
00000260: 2C 31 35 00 6D 0A F2 03 99 22 93 22 3A 00 7D 0A |,15.m....".":.}.|
00000270: FC 03 9F 31 2C 38 2C 30 2C 22 24 30 22 00 8B 0A |...1,8,0,"$0"...|
00000280: 06 04 A1 23 31 2C 41 24 2C 42 24 00 9A 0A 10 04 |...#1,A$,B$.....|
00000290: A1 23 31 2C 41 24 2C 42 24 3A 00 AC 0A 1A 04 A1 |.#1,A$,B$:......|
000002A0: 23 31 2C 41 24 2C 42 24 3A 43 B2 30 00 C3 0A 24 |#1,A$,B$:C.0...$|
000002B0: 04 8B 20 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 28 |.. A$.."" . C..(|
000002C0: 41 24 29 00 E0 0A 2E 04 8B 20 42 24 B3 B1 22 22 |A$)...... B$..""|
000002D0: 20 A7 20 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 | . C.C..(B$).256|
000002E0: 00 FA 0A 38 04 99 CA 28 C4 28 43 29 2C 32 29 3B |...8...(.(C),2);|
000002F0: A3 33 29 3B 22 1D 1D 1D 22 3B 00 14 0B 42 04 A1 |.3);"...";...B..|
00000300: 23 31 2C 42 24 3A 8B 20 53 54 B3 B1 30 20 A7 20 |#1,B$:. ST..0 . |
00000310: 31 31 37 30 00 2B 0B 4C 04 8B 20 42 24 B3 B1 C7 |1170.+.L.. B$...|
00000320: 28 33 34 29 20 A7 20 31 30 39 30 00 4E 0B 56 04 |(34) . 1090.N.V.|
00000330: A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 C7 28 33 |.#1,B$:. B$...(3|
00000340: 34 29 A7 20 99 42 24 3B 3A 89 31 31 31 30 00 6B |4). .B$;:.1110.k|
00000350: 0B 60 04 A1 23 31 2C 42 24 3A 8B 20 42 24 B2 C7 |.`..#1,B$:. B$..|
00000360: 28 33 32 29 20 A7 20 31 31 32 30 00 7D 0B 6A 04 |(32) . 1120.}.j.|
00000370: 99 20 A3 32 35 29 3B 3A 43 24 B2 22 22 00 A0 0B |. .25);:C$.""...|
00000380: 74 04 43 24 B2 43 24 AA 42 24 3A A1 23 31 2C 42 |t.C$.C$.B$:.#1,B|
00000390: 24 3A 8B 20 42 24 B3 B1 22 22 A7 20 31 31 34 30 |$:. B$.."". 1140|
000003A0: 00 AD 0B 7E 04 99 C8 28 43 24 2C 33 29 00 BF 0B |...~...(C$,3)...|
000003B0: 88 04 8B 20 53 54 B2 30 20 A7 20 31 30 34 30 00 |... ST.0 . 1040.|
000003C0: D2 0B 92 04 99 22 42 4C 4F 43 4B 53 20 46 52 45 |....."BLOCKS FRE|
000003D0: 45 22 00 DC 0B 9C 04 A0 32 3A A0 31 00 FE 0B A6 |E"......2:.1....|
000003E0: 04 99 22 11 11 50 52 45 53 53 20 41 4E 59 4B 45 |.."..PRESS ANYKE|
000003F0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 15 |Y TO CONTINUE"..|
00000400: 0C B0 04 A1 20 43 24 3A 8B 20 43 24 B2 22 22 A7 |.... C$:. C$."".|
00000410: 20 31 32 30 30 00 1E 0C BA 04 89 20 32 30 00 4A | 1200...... 20.J|
00000420: 0C D0 07 99 22 11 1D 32 29 1D 1D 46 4F 52 4D 41 |...."..2)..FORMA|
00000430: 54 20 44 49 53 4B 20 41 52 45 20 59 4F 55 20 53 |T DISK ARE YOU S|
00000440: 55 52 45 20 28 59 2F 4E 29 22 00 62 0C DA 07 A1 |URE (Y/N)".b....|
00000450: 20 43 24 3A 8B 20 43 24 B2 22 22 20 A7 20 32 30 | C$:. C$."" . 20|
00000460: 31 30 00 76 0C E4 07 8B 20 43 24 B2 22 59 22 20 |10.v.... C$."Y" |
00000470: A7 20 32 30 34 30 00 7F 0C EE 07 89 20 32 30 00 |. 2040...... 20.|
00000480: A1 0C F8 07 99 22 11 1D 1D 1D 1D 1D 50 52 45 53 |....."......PRES|
00000490: 53 20 46 38 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |S F8 TO CONTINUE|
000004A0: 22 00 B9 0C 02 08 A1 20 43 24 3A 8B 20 43 24 B2 |"...... C$:. C$.|
000004B0: 22 22 20 A7 20 32 30 35 30 00 CD 0C 0C 08 8B 20 |"" . 2050...... |
000004C0: 43 24 B2 22 8C 22 20 A7 20 32 30 38 30 00 D6 0C |C$."." . 2080...|
000004D0: 16 08 89 20 32 30 00 FF 0C 20 08 85 20 22 11 45 |... 20... .. ".E|
000004E0: 4E 54 45 52 20 4E 41 4D 45 20 22 3B 46 24 3A 85 |NTER NAME ";F$:.|
000004F0: 20 22 45 4E 54 45 52 20 49 44 22 3B 49 44 24 00 | "ENTER ID";ID$.|
00000500: 1C 0D 25 08 99 22 11 1D 32 29 1D 1D 46 4F 52 4D |..%.."..2)..FORM|
00000510: 41 54 54 49 4E 47 20 44 49 53 4B 22 00 34 0D 26 |ATTING DISK".4.&|
00000520: 08 46 24 B2 22 4E 4F 3A 22 AA 46 24 AA 22 2C 22 |.F$."NO:".F$.","|
00000530: AA 49 44 24 00 44 0D 2A 08 9F 31 35 2C 38 2C 31 |.ID$.D.*..15,8,1|
00000540: 35 2C 46 24 00 4D 0D 34 08 A0 20 31 35 00 5E 0D |5,F$.M.4.. 15.^.|
00000550: 3E 08 8D 20 31 30 30 30 30 3A 89 20 32 30 00 8D |>.. 10000:. 20..|
00000560: 0D B8 0B 99 22 11 1D 33 29 1D 1D 53 43 52 41 54 |...."..3)..SCRAT|
00000570: 43 48 20 41 20 46 49 4C 45 20 41 52 45 20 59 4F |CH A FILE ARE YO|
00000580: 55 20 53 55 52 45 20 28 59 2F 4E 29 22 00 A5 0D |U SURE (Y/N)"...|
00000590: C2 0B A1 20 43 24 3A 8B 20 43 24 B2 22 22 20 A7 |... C$:. C$."" .|
000005A0: 20 33 30 31 30 00 B9 0D CC 0B 8B 20 43 24 B2 22 | 3010...... C$."|
000005B0: 59 22 20 A7 20 33 30 33 30 00 C2 0D D1 0B 89 20 |Y" . 3030...... |
000005C0: 32 30 00 E4 0D D6 0B 99 22 11 1D 1D 1D 1D 1D 50 |20......"......P|
000005D0: 52 45 53 53 20 46 38 20 54 4F 20 43 4F 4E 54 49 |RESS F8 TO CONTI|
000005E0: 4E 55 45 22 00 FC 0D E0 0B A1 20 43 24 3A 8B 20 |NUE"...... C$:. |
000005F0: 43 24 B2 22 22 20 A7 20 33 30 34 30 00 10 0E EA |C$."" . 3040....|
00000600: 0B 8B 20 43 24 B2 22 8C 22 20 A7 20 33 30 37 30 |.. C$."." . 3070|
00000610: 00 19 0E F4 0B 89 20 32 30 00 35 0E FE 0B 85 20 |...... 20.5.... |
00000620: 22 11 45 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D |".ENTER FILE NAM|
00000630: 45 22 3B 46 24 00 4E 0E 08 0C 99 22 11 1D 33 29 |E";F$.N...."..3)|
00000640: 1D 1D 53 43 52 41 54 43 48 20 22 3B 46 24 00 67 |..SCRATCH ";F$.g|
00000650: 0E 12 0C 9F 31 35 2C 38 2C 31 35 2C 22 53 3A 22 |....15,8,15,"S:"|
00000660: AA 46 24 3A A0 31 35 00 78 0E 1C 0C 8D 20 31 30 |.F$:.15.x.... 10|
00000670: 30 30 30 3A 89 20 32 30 00 96 0E A0 0F 99 22 11 |000:. 20......".|
00000680: 1D 34 29 1D 1D 43 48 41 4E 47 45 20 44 49 53 4B |.4)..CHANGE DISK|
00000690: 20 4E 41 4D 45 22 00 B5 0E AA 0F 85 22 11 45 4E | NAME"......".EN|
000006A0: 54 45 52 20 4E 45 57 20 44 49 53 4B 20 4E 41 4D |TER NEW DISK NAM|
000006B0: 45 22 3B 44 24 00 D5 0E AB 0F 99 22 11 1D 34 29 |E";D$......"..4)|
000006C0: 1D 1D 43 48 41 4E 47 49 4E 47 20 44 49 53 4B 20 |..CHANGING DISK |
000006D0: 4E 41 4D 45 22 00 E2 0E AC 0F 9F 20 31 2C 38 2C |NAME"...... 1,8,|
000006E0: 31 35 00 F2 0E AF 0F 9F 20 32 2C 38 2C 32 2C 22 |15...... 2,8,2,"|
000006F0: 23 22 00 07 0F B4 0F 98 31 2C 22 55 31 20 32 20 |#"......1,"U1 2 |
00000700: 30 20 31 38 20 30 22 00 1A 0F BE 0F 98 31 2C 22 |0 18 0"......1,"|
00000710: 42 2D 50 20 32 20 31 34 34 22 00 40 0F C8 0F 8B |B-P 2 144".@....|
00000720: 20 C3 20 28 44 24 29 B3 31 36 20 A7 20 44 24 B2 | . (D$).16 . D$.|
00000730: 44 24 AA C7 28 31 36 30 29 3A 89 20 34 30 34 30 |D$..(160):. 4040|
00000740: 00 4B 0F D2 0F 98 32 2C 44 24 3B 00 60 0F DC 0F |.K....2,D$;.`...|
00000750: 98 31 2C 22 55 32 20 32 20 30 20 31 38 20 30 22 |.1,"U2 2 0 18 0"|
00000760: 00 68 0F E6 0F A0 20 32 00 78 0F F0 0F 98 31 2C |.h.... 2.x....1,|
00000770: 22 49 30 22 3A A0 20 31 00 89 0F FA 0F 8D 20 31 |"I0":. 1...... 1|
00000780: 30 30 30 30 3A 89 20 32 30 00 A7 0F 88 13 99 22 |0000:. 20......"|
00000790: 11 1D 35 29 1D 1D 49 4E 54 49 41 4C 49 5A 49 4E |..5)..INTIALIZIN|
000007A0: 47 20 44 49 53 4B 22 00 BD 0F 92 13 9F 20 31 35 |G DISK"...... 15|
000007B0: 2C 38 2C 31 35 2C 22 49 22 3A A0 31 35 00 D0 0F |,8,15,"I":.15...|
000007C0: 9C 13 8D 20 31 30 30 30 30 3A 20 20 89 20 32 30 |... 10000: . 20|
000007D0: 00 ED 0F 70 17 99 22 11 1D 36 29 1D 1D 56 41 4C |...p.."..6)..VAL|
000007E0: 49 44 41 54 49 4E 47 20 44 49 53 4B 22 00 02 10 |IDATING DISK"...|
000007F0: 7A 17 9F 31 35 2C 38 2C 31 35 2C 22 56 22 3A A0 |z..15,8,15,"V":.|
00000800: 31 35 00 15 10 84 17 8D 20 31 30 30 30 30 3A 20 |15...... 10000: |
00000810: 20 89 20 32 30 00 30 10 58 1B 99 22 11 1D 37 29 | . 20.0.X.."..7)|
00000820: 1D 1D 52 45 4E 41 4D 45 20 41 20 46 49 4C 45 22 |..RENAME A FILE"|
00000830: 00 43 10 62 1B 85 22 11 4E 45 57 4E 41 4D 45 22 |.C.b..".NEWNAME"|
00000840: 3B 4E 24 00 55 10 6C 1B 85 22 4F 4C 44 4E 41 4D |;N$.U.l.."OLDNAM|
00000850: 45 22 3B 4F 24 00 70 10 76 1B 99 22 11 1D 37 29 |E";O$.p.v.."..7)|
00000860: 1D 1D 52 45 4E 41 4D 49 4E 47 20 46 49 4C 45 22 |..RENAMING FILE"|
00000870: 00 8C 10 80 1B 9F 31 35 2C 38 2C 31 35 2C 22 52 |......15,8,15,"R|
00000880: 3A 22 AA 4E 24 AA 22 3D 22 AA 4F 24 00 95 10 8A |:".N$."=".O$....|
00000890: 1B A0 20 31 35 00 A6 10 94 1B 8D 20 31 30 30 30 |.. 15...... 1000|
000008A0: 30 3A 89 20 32 30 00 B2 10 40 1F 89 20 33 30 30 |0:. 20...@.. 300|
000008B0: 30 30 00 D5 10 28 23 99 22 11 1D 39 29 1D 1D 44 |00...(#."..9)..D|
000008C0: 49 53 50 4C 41 59 20 53 54 41 52 54 20 41 44 44 |ISPLAY START ADD|
000008D0: 52 45 53 53 22 00 ED 10 2D 23 85 22 11 50 52 4F |RESS"...-#.".PRO|
000008E0: 47 52 41 4D 20 4E 41 4D 45 22 3B 46 24 00 02 11 |GRAM NAME";F$...|
000008F0: 32 23 9F 32 2C 38 2C 32 2C 46 24 AA 22 2C 50 2C |2#.2,8,2,F$.",P,|
00000900: 52 22 00 18 11 3C 23 A1 23 32 2C 41 24 2C 42 24 |R"...<#.#2,A$,B$|
00000910: 3A 8D 20 31 30 30 30 30 00 35 11 41 23 8B 20 46 |:. 10000.5.A#. F|
00000920: 4C B2 31 20 A7 20 46 4C B2 30 3A A0 20 32 3A 89 |L.1 . FL.0:. 2:.|
00000930: 20 31 31 39 30 00 51 11 50 23 99 22 11 53 54 41 | 1190.Q.P#.".STA|
00000940: 52 54 20 41 44 44 52 45 53 53 20 22 3B 22 12 22 |RT ADDRESS ";"."|
00000950: 3B 00 75 11 5A 23 99 20 C6 28 41 24 AA C7 28 30 |;.u.Z#. .(A$..(0|
00000960: 29 29 AA 32 35 36 AC C6 28 42 24 AA C7 28 30 29 |)).256..(B$..(0)|
00000970: 29 3B 22 92 22 00 7C 11 64 23 A0 32 00 87 11 6E |);".".|.d#.2...n|
00000980: 23 89 20 31 31 39 30 00 93 11 10 27 9F 31 2C 38 |#. 1190....'.1,8|
00000990: 2C 31 35 00 A7 11 1A 27 84 31 2C 45 4E 2C 44 45 |,15....'.1,EN,DE|
000009A0: 24 2C 54 52 2C 53 45 00 BA 11 24 27 8B 20 45 4E |$,TR,SE...$'. EN|
000009B0: B2 30 20 A7 20 A0 20 31 3A 8E 00 C3 11 29 27 46 |.0 . . 1:....)'F|
000009C0: 4C B2 31 00 DE 11 2E 27 99 22 9E 11 22 3B 45 4E |L.1....'."..";EN|
000009D0: 3B 44 45 24 3B 54 52 3B 53 45 3B 22 90 22 00 E6 |;DE$;TR;SE;"."..|
000009E0: 11 38 27 A0 20 31 00 FB 11 42 27 81 20 58 B2 31 |.8'. 1...B'. X.1|
000009F0: 20 A4 20 32 30 30 30 3A 82 3A 8E 00 1C 12 30 75 | . 2000:.:....0u|
00000A00: 99 22 11 1D 38 29 1D 1D 57 52 49 54 45 20 50 52 |."..8)..WRITE PR|
00000A10: 4F 54 45 43 54 20 44 49 53 4B 20 22 00 4B 12 3A |OTECT DISK ".K.:|
00000A20: 75 99 22 11 1D 59 4F 55 20 57 49 4C 4C 20 4E 4F |u."..YOU WILL NO|
00000A30: 54 20 42 45 20 41 42 4C 45 20 54 4F 20 57 52 49 |T BE ABLE TO WRI|
00000A40: 54 45 20 54 4F 20 54 48 49 53 22 00 75 12 44 75 |TE TO THIS".u.Du|
00000A50: 99 22 1D 44 49 53 4B 20 41 47 41 49 4E 20 55 4E |.".DISK AGAIN UN|
00000A60: 4C 45 53 53 20 59 4F 55 20 52 45 46 4F 52 4D 41 |LESS YOU REFORMA|
00000A70: 54 20 49 54 22 00 90 12 4E 75 99 22 1D 41 52 45 |T IT"...Nu.".ARE|
00000A80: 20 59 4F 55 20 53 55 52 45 20 28 59 2F 4E 29 22 | YOU SURE (Y/N)"|
00000A90: 00 A9 12 58 75 A1 20 43 24 3A 8B 20 43 24 B2 22 |...Xu. C$:. C$."|
00000AA0: 22 20 A7 20 33 30 30 34 30 00 BE 12 62 75 8B 20 |" . 30040...bu. |
00000AB0: 43 24 B2 22 59 22 20 A7 20 33 30 30 37 30 00 C7 |C$."Y" . 30070..|
00000AC0: 12 6C 75 89 20 32 30 00 E5 12 76 75 99 22 11 1D |.lu. 20...vu."..|
00000AD0: 50 52 45 53 53 20 46 38 20 54 4F 20 43 4F 4E 54 |PRESS F8 TO CONT|
00000AE0: 49 4E 55 45 22 00 FE 12 80 75 A1 20 43 24 3A 8B |INUE"....u. C$:.|
00000AF0: 20 43 24 B2 22 22 20 A7 20 33 30 30 38 30 00 13 | C$."" . 30080..|
00000B00: 13 8A 75 8B 20 43 24 B2 22 8C 22 20 A7 20 33 30 |..u. C$."." . 30|
00000B10: 31 31 30 00 1C 13 94 75 89 20 32 30 00 3E 13 9E |110....u. 20.>..|
00000B20: 75 99 22 11 1D 31 1D 1D 57 52 49 54 45 20 50 52 |u."..1..WRITE PR|
00000B30: 4F 54 45 43 54 49 4E 47 20 44 49 53 4B 22 00 4B |OTECTING DISK".K|
00000B40: 13 A8 75 9F 20 31 2C 38 2C 31 35 00 5B 13 B2 75 |..u. 1,8,15.[..u|
00000B50: 9F 20 32 2C 38 2C 32 2C 22 23 22 00 70 13 BC 75 |. 2,8,2,"#".p..u|
00000B60: 98 31 2C 22 55 31 20 32 20 30 20 31 38 20 30 22 |.1,"U1 2 0 18 0"|
00000B70: 00 81 13 C6 75 98 31 2C 22 42 2D 50 20 32 20 32 |....u.1,"B-P 2 2|
00000B80: 22 00 8C 13 D0 75 58 24 B2 22 46 22 00 97 13 DA |"....uX$."F"....|
00000B90: 75 98 32 2C 58 24 3B 00 AC 13 E4 75 98 31 2C 22 |u.2,X$;....u.1,"|
00000BA0: 55 32 20 32 20 30 20 31 38 20 30 22 00 B3 13 EE |U2 2 0 18 0"....|
00000BB0: 75 A0 32 00 C2 13 F8 75 98 31 2C 22 49 30 22 3A |u.2....u.1,"I0":|
00000BC0: A0 31 00 D3 13 02 76 8D 20 31 30 30 30 30 3A 89 |.1....v. 10000:.|
00000BD0: 20 32 30 00 00 00 | 20... |
..*....".":.53280,13:.53281,5: .646
,0.G....15,8,15,"I": 15:. 10000.}...."..
";"=====================================
===";......"********** C1'S DISK UTILITY
***********";...(.."===================
====================="...2..".1)..DISPLA
Y DIRECTORY"...<..".2)..FORMAT (NEW) DIS
K".5.F..".3)..SCRATCH A FILE".R.P..".4).
.CHANGE DISK NAME".M.Z..".5)..INTIALIZE
DISK"...D..".6)..VALIDATE DISK"...N..".7
)..RENAME A FILE".B.X..".8)..WRITE PROTE
CT A DISK"......".9)..DISPLAY START ADDR
ESS"...H.. C$:. C$."" . 200...R.. C$."1"
. C$."9" . 200.Q.... E(C$) . 1000,2000,3
000,4000,5000,6000,7000,8000,9000.W.....
C....2,8,15.M....".":.}....1,8,0,"$0"...
...#1,A$,B$......#1,A$,B$:......#1,A$,B$
:C.0.C.$.. A$.."" . C.F(A$)...... B$..""
. C.C.F(B$).256...8..J(D(C),2);.3);"...
";...B..#1,B$:. ST..0 . 1170.+.L.. B$..G
(34) . 1090.N.V..#1,B$:. B$..G(34). .B$;
:.1110.K.`..#1,B$:. B$.G(32) . 1120.}.J.
. .25);:C$."". .T.C$.C$.B$:.#1,B$:. B$..
"". 1140...~..H(C$,3)...... ST.0 . 1040.
R...."BLOCKS FREE"..... 2: 1......"..PRE
SS ANYKEY TO CONTINUE"...... C$:. C$."".
1200...... 20.J.P.."..2)..FORMAT DISK A
RE YOU SURE (Y/N)".B.Z.. C$:. C$."" . 20
10.V.... C$."Y" . 2040..... 20......"..
....PRESS F8 TO CONTINUE"...... C$:. C$.
"" . 2050.M.... C$."." . 2080.V.... 20..
. .. ".ENTER NAME ";F$:. "ENTER ID";ID$.
..%.."..2)..FORMATTING DISK".4.&.F$."NO:
".F$.",".ID$.D.*..15,8,15,F$.M.4. 15.^.
>.. 10000:. 20......"..3)..SCRATCH A FIL
E ARE YOU SURE (Y/N)"...B.. C$:. C$."" .
3010...L.. C$."Y" . 3030.B.Q.. 20...V..
"......PRESS F8 TO CONTINUE"...... C$:.
C$."" . 3040...... C$."." . 3070...... 2
0.5.... ".ENTER FILE NAME";F$.N...."..3)
..SCRATCH ";F$.G....15,8,15,"S:".F$: 15.
X.... 10000:. 20... .."..4)..CHANGE DISK
NAME"......".ENTER NEW DISK NAME";D$.U.
..."..4)..CHANGING DISK NAME"...... 1,8,
15...... 2,8,2,"#"......1,"U1 2 0 18 0".
.....1,"B-P 2 144".@.H.. C (D$).16 . D$.
D$.G(160):. 4040.K.R..2,D$;.`....1,"U2 2
0 18 0".H... 2.X....1,"I0": 1...... 1
0000:. 20......"..5)..INTIALIZING DISK".
..... 15,8,15,"I": 15.P.... 10000: . 20
...P.."..6)..VALIDATING DISK"...Z..15,8,
15,"V": 15...... 10000: . 20.0.X.."..7)
..RENAME A FILE".C.B..".NEWNAME";N$.U.L.
."OLDNAME";O$.P.V.."..7)..RENAMING FILE"
......15,8,15,"R:".N$."=".O$..... 15...
... 10000:. 20...@.. 30000.U.(#."..9)..D
ISPLAY START ADDRESS"...-#.".PROGRAM NAM
E";F$...2#.2,8,2,F$.",P,R"...<#.#2,A$,B$
:. 10000.5.A#. FL.1 . FL.0: 2:. 1190.Q.
P#.".START ADDRESS ";".";.U.Z#. F(A$.G(0
)).256.F(B$.G(0));".".|.D# 2...N#. 1190.
...'.1,8,15....'.1,EN,DE$,TR,SE...$'. EN
.0 . 1:..C.)'FL.1....'."..";EN;DE$;TR;
SE;"."...8' 1...B'. X.1 . 2000:.:....0U
."..8)..WRITE PROTECT DISK ".K.:U."..YOU
WILL NOT BE ABLE TO WRITE TO THIS".U.DU
.".DISK AGAIN UNLESS YOU REFORMAT IT"...
NU.".ARE YOU SURE (Y/N)"...XU. C$:. C$."
" . 30040...BU. C$."Y" . 30070.G.LU. 20.
..VU."..PRESS F8 TO CONTINUE"....U. C$:.
C$."" . 30080....U. C$."." . 30110....U
. 20.>..U."..1..WRITE PROTECTING DISK".K
..U. 1,8,15.[..U. 2,8,2,"#".P..U.1,"U1 2
0 18 0"...FU.1,"B-P 2 2"...PUX$."F"...Z
U.2,X$;....U.1,"U2 2 0 18 0"....U 2.B..U
.1,"I0": 1.S..V. 10000:. 20...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL