> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 0A 00 86 20 42 24 28 38 30 30 29 00 |....... B$(800).|
00000010: 37 08 14 00 97 20 35 33 32 38 30 2C 31 35 3A 97 |7.... 53280,15:.|
00000020: 20 35 33 32 38 31 2C 31 35 3A 4B 42 B2 31 39 38 | 53281,15:KB.198|
00000030: 3A 52 4F B2 32 31 34 00 72 08 3C 00 53 24 B2 22 |:RO.214.r.<.S$."|
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 22 3A 43 B2 30 3A 9F 20 31 35 2C 38 | ":C.0:. 15,8|
00000060: 2C 31 35 3A 44 24 B2 22 11 11 11 11 11 11 11 11 |,15:D$."........|
00000070: 11 22 00 AC 08 46 00 99 C7 28 31 34 29 3B 22 93 |."...F...(14);".|
00000080: 12 9C 20 20 20 20 20 20 C3 C8 CF CF D3 C5 A0 CF |.. ........|
00000090: CE C5 A0 CF C6 A0 D4 C8 C5 A0 C6 CF CC CC CF D7 |................|
000000A0: C9 CE C7 20 20 20 20 20 20 92 90 22 00 D5 08 50 |... .."...P|
000000B0: 00 99 22 11 11 20 20 20 20 20 31 2E 20 C3 41 54 |..".. 1. .AT|
000000C0: 41 4C 4F 47 45 20 41 20 53 45 54 20 4F 46 20 44 |ALOGE A SET OF D|
000000D0: 49 53 4B 53 22 00 F8 08 5A 00 99 22 11 20 20 20 |ISKS"...Z..". |
000000E0: 20 20 32 2E 20 D3 45 45 20 41 4C 4C 20 46 49 4C | 2. .EE ALL FIL|
000000F0: 45 20 4E 41 4D 45 53 22 00 1D 09 64 00 99 22 11 |E NAMES"...d..".|
00000100: 20 20 20 20 20 33 2E 20 D0 52 49 4E 54 20 41 4C | 3. .RINT AL|
00000110: 4C 20 46 49 4C 45 20 4E 41 4D 45 53 22 00 47 09 |L FILE NAMES".G.|
00000120: 6E 00 99 22 11 20 20 20 20 20 34 2E 20 D3 4F 52 |n..". 4. .OR|
00000130: 54 20 4E 41 4D 45 53 20 41 4C 50 48 41 42 45 54 |T NAMES ALPHABET|
00000140: 49 43 41 4C 4C 59 22 00 70 09 78 00 99 22 11 20 |ICALLY".p.x..". |
00000150: 20 20 20 20 35 2E 20 C3 52 45 41 54 45 20 41 20 | 5. .REATE A |
00000160: 53 45 51 55 45 4E 54 49 41 4C 20 46 49 4C 45 22 |SEQUENTIAL FILE"|
00000170: 00 96 09 82 00 99 22 11 20 20 20 20 20 36 2E 20 |......". 6. |
00000180: C3 52 45 41 54 45 20 41 20 50 52 4F 47 52 41 4D |.REATE A PROGRAM|
00000190: 20 46 49 4C 45 22 00 B7 09 8C 00 99 22 11 20 20 | FILE"......". |
000001A0: 20 20 20 37 2E 20 CC 4F 41 44 20 41 4E 20 4F 4C | 7. .OAD AN OL|
000001B0: 44 20 46 49 4C 45 22 00 D5 09 96 00 99 22 11 20 |D FILE"......". |
000001C0: 20 20 20 20 38 2E 20 C4 45 4C 45 54 45 20 41 20 | 8. .ELETE A |
000001D0: 44 49 53 4B 22 00 F6 09 A0 00 99 22 11 20 20 20 |DISK"......". |
000001E0: 20 20 39 2E 20 D3 54 41 52 54 20 41 20 4E 45 57 | 9. .TART A NEW|
000001F0: 20 46 49 4C 45 22 00 2B 0A AA 00 99 22 11 12 9C | FILE".+...."...|
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 D0 D2 C5 D3 | ....|
00000210: D3 A0 D1 A0 D4 CF A0 D1 D5 C9 D4 20 20 20 20 20 |........... |
00000220: 20 20 20 20 20 20 20 20 90 92 22 00 55 0A B4 00 | ..".U...|
00000230: 97 20 4B 42 2C 30 3A 92 20 4B 42 2C 31 3A A1 20 |. KB,0:. KB,1:. |
00000240: 41 24 3A 8B 20 41 24 B2 22 51 22 20 A7 20 99 22 |A$:. A$."Q" . ."|
00000250: 93 22 3B 3A 80 00 71 0A BE 00 8B 20 41 24 B3 22 |.";:..q.... A$."|
00000260: 31 22 20 B0 20 41 24 B1 22 39 22 20 A7 20 31 38 |1" . A$."9" . 18|
00000270: 30 00 A9 0A C8 00 91 20 C5 28 41 24 29 20 8D 20 |0...... .(A$) . |
00000280: 32 31 30 2C 35 31 30 2C 35 32 30 2C 36 34 30 2C |210,510,520,640,|
00000290: 37 33 30 2C 37 34 30 2C 38 35 30 2C 39 34 30 2C |730,740,850,940,|
000002A0: 31 30 34 30 3A 89 20 37 30 00 CC 0A D2 00 46 24 |1040:. 70.....F$|
000002B0: B2 22 44 49 53 4B 22 3A 8D 20 31 30 35 30 3A 8B |."DISK":. 1050:.|
000002C0: 20 44 4E 24 B2 22 51 22 20 A7 20 8E 00 EC 0A DC | DN$."Q" . .....|
000002D0: 00 99 22 93 12 1C 22 A6 32 30 AB C3 28 44 4E 24 |.."...".20..(DN$|
000002E0: 29 AD 32 29 44 4E 24 22 11 11 90 22 00 13 0B E6 |).2)DN$"..."....|
000002F0: 00 A0 20 32 3A 9F 20 32 2C 38 2C 30 2C 22 24 22 |.. 2:. 2,8,0,"$"|
00000300: 3A 8D 20 33 39 30 3A 8B 20 41 24 B2 22 51 22 20 |:. 390:. A$."Q" |
00000310: A7 20 8E 00 2B 0B F0 00 58 B2 34 3A 4E 46 B2 30 |. ..+...X.4:NF.0|
00000320: 3A 8B 20 45 58 20 A7 20 32 32 30 00 51 0B FA 00 |:. EX . 220.Q...|
00000330: 42 24 28 43 29 B2 22 22 3A 3A 46 4C B2 AB 31 3A |B$(C).""::FL..1:|
00000340: 8D 20 33 31 30 3A 58 B2 32 3A A1 23 32 2C 4C 4E |. 310:X.2:.#2,LN|
00000350: 24 00 88 0B 04 01 A1 23 32 2C 48 4E 24 3A 4E 4D |$......#2,HN$:NM|
00000360: B2 C6 28 4C 4E 24 AA C7 28 30 29 29 AA 32 35 36 |..(LN$..(0)).256|
00000370: AC C6 28 48 4E 24 AA C7 28 30 29 29 3A 99 22 20 |..(HN$..(0)):." |
00000380: 20 20 20 20 22 4E 4D 3B 00 A1 0B 0E 01 A1 23 32 | "NM;......#2|
00000390: 2C 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 33 32 |,A$:. A$."" . 32|
000003A0: 30 00 B9 0B 18 01 8B 20 41 24 B2 C7 28 33 34 29 |0...... A$..(34)|
000003B0: 20 A7 20 46 4C B2 AB 46 4C 00 D5 0B 22 01 8B 20 | . FL..FL...".. |
000003C0: 46 4C B2 31 20 A7 20 42 24 28 43 29 B2 42 24 28 |FL.1 . B$(C).B$(|
000003D0: 43 29 AA 41 24 00 E5 0B 2C 01 99 20 41 24 3B 3A |C).A$...,.. A$;:|
000003E0: 89 20 32 37 30 00 FE 0B 36 01 81 20 41 B2 31 20 |. 270...6.. A.1 |
000003F0: A4 20 58 3A A1 23 32 2C 41 24 3A 82 3A 8E 00 29 |. X:.#2,A$:.:..)|
00000400: 0C 40 01 8B 20 42 24 28 43 29 B2 22 22 20 A7 20 |.@.. B$(C)."" . |
00000410: A0 20 32 3A 8D 20 34 38 30 3A 8B 20 41 24 B3 B1 |. 2:. 480:. A$..|
00000420: 22 51 22 20 A7 20 32 31 30 00 3C 0C 4A 01 8B 20 |"Q" . 210.<.J.. |
00000430: 42 24 28 43 29 B2 22 22 20 A7 20 8E 00 4C 0C 54 |B$(C)."" . ..L.T|
00000440: 01 99 3A 4E 4D 24 B2 C4 28 4E 4D 29 00 6A 0C 5E |..:NM$..(NM).j.^|
00000450: 01 42 24 28 43 29 B2 C9 28 42 24 28 43 29 2C C3 |.B$(C)..(B$(C),.|
00000460: 28 42 24 28 43 29 29 AB 31 29 00 A0 0C 68 01 42 |(B$(C)).1)...h.B|
00000470: 24 28 43 29 B2 42 24 28 43 29 AA C8 28 53 24 2C |$(C).B$(C)..(S$,|
00000480: 31 39 AB C3 28 42 24 28 43 29 29 AB C3 28 4E 4D |19..(B$(C))..(NM|
00000490: 24 29 29 AA 4E 4D 24 AA 22 20 20 22 AA 44 4E 24 |$)).NM$." ".DN$|
000004A0: 00 C2 0C 72 01 8B 20 4E 46 B2 31 20 A7 20 43 B2 |...r.. NF.1 . C.|
000004B0: 43 AA 31 3A 8B 20 43 B2 38 30 30 20 A7 20 31 30 |C.1:. C.800 . 10|
000004C0: 38 30 00 D1 0C 7C 01 4E 46 B2 31 3A 89 20 32 35 |80...|.NF.1:. 25|
000004D0: 30 00 F3 0C 86 01 52 46 B2 30 3A 45 58 B2 30 3A |0.....RF.0:EX.0:|
000004E0: 41 24 B2 22 22 3A 84 31 35 2C 45 4E 2C 4D 24 2C |A$."":.15,EN,M$,|
000004F0: 54 2C 53 00 03 0D 90 01 8B 20 45 4E B3 32 30 20 |T,S...... EN.20 |
00000500: A7 20 8E 00 40 0D 9A 01 99 22 13 22 44 24 3A 81 |. ..@...."."D$:.|
00000510: 20 41 B2 31 20 A4 20 35 3A 99 22 20 20 20 20 20 | A.1 . 5:." |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 | ":.|
00000540: 00 6C 0D A4 01 45 58 B2 31 3A 99 3A 99 22 13 90 |.l...EX.1:.:."..|
00000550: 22 44 24 3B 45 4E 3B 4D 24 3B 54 3B 53 3A 8B 20 |"D$;EN;M$;T;S:. |
00000560: 45 4E B3 B1 36 33 20 A7 20 34 37 30 00 A1 0D AE |EN..63 . 470....|
00000570: 01 52 46 B2 31 3A 99 22 11 20 C4 4F 20 59 4F 55 |.RF.1:.". .O YOU|
00000580: 20 57 41 4E 54 20 54 4F 20 52 45 50 4C 41 43 45 | WANT TO REPLACE|
00000590: 20 54 48 45 20 46 49 4C 45 3F 20 28 59 2F 4E 29 | THE FILE? (Y/N)|
000005A0: 22 00 B7 0D B8 01 A1 20 41 24 3A 8B 20 41 24 B2 |"...... A$:. A$.|
000005B0: 22 4E 22 20 A7 20 8E 00 CB 0D C2 01 8B 20 41 24 |"N" . ....... A$|
000005C0: B3 B1 22 59 22 20 A7 20 34 34 30 00 E2 0D CC 01 |.."Y" . 440.....|
000005D0: 45 58 B2 30 3A 98 31 35 2C 22 53 22 AA 44 4E 24 |EX.0:.15,"S".DN$|
000005E0: 3A 8E 00 EA 0D D6 01 A0 20 32 00 2B 0E E0 01 99 |:....... 2.+....|
000005F0: 3A 99 22 11 90 20 20 D0 52 45 53 53 20 41 4E 59 |:.".. .RESS ANY|
00000600: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000610: 20 12 D1 20 54 4F 20 51 55 49 54 92 22 3A 97 20 | .. TO QUIT.":. |
00000620: 4B 42 2C 30 3A 92 20 4B 42 2C 31 00 36 0E EA 01 |KB,0:. KB,1.6...|
00000630: A1 20 41 24 3A 8E 00 71 0E F4 01 99 3A 99 22 11 |. A$:..q....:.".|
00000640: 90 20 20 20 20 20 20 D0 52 45 53 53 20 41 4E 59 |. .RESS ANY|
00000650: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000660: 22 3A 97 20 4B 42 2C 30 3A 92 20 4B 42 2C 31 3A |":. KB,0:. KB,1:|
00000670: 8E 00 96 0E FE 01 44 56 B2 33 3A 53 41 B2 30 3A |......DV.3:SA.0:|
00000680: 53 50 B2 31 3A 44 4E 24 B2 22 22 3A 4E 4D B2 30 |SP.1:DN$."":NM.0|
00000690: 3A 89 20 35 35 30 00 DE 0E 08 02 99 22 93 22 44 |:. 550......"."D|
000006A0: 4E 24 22 D0 52 45 53 53 20 27 CD 27 20 54 4F 20 |N$".RESS '.' TO |
000006B0: 52 45 54 55 52 4E 20 54 4F 20 54 48 45 20 4D 45 |RETURN TO THE ME|
000006C0: 4E 55 20 41 4E 59 20 20 20 20 20 4F 54 48 45 52 |NU ANY OTHER|
000006D0: 20 4B 45 59 20 54 4F 20 50 52 49 4E 54 22 00 03 | KEY TO PRINT"..|
000006E0: 0F 12 02 97 20 4B 42 2C 30 3A 92 20 4B 42 2C 31 |.... KB,0:. KB,1|
000006F0: 3A A1 20 41 24 3A 8B 20 41 24 B2 22 4D 22 20 A7 |:. A$:. A$."M" .|
00000700: 20 37 30 00 23 0F 1C 02 44 56 B2 34 3A 53 50 B2 | 70.#...DV.4:SP.|
00000710: 32 30 3A 53 41 B2 30 3A 44 4E 24 B2 22 22 3A 4E |20:SA.0:DN$."":N|
00000720: 4D B2 30 00 57 0F 26 02 8B 20 43 B3 B2 30 20 A7 |M.0.W.&.. C..0 .|
00000730: 20 99 22 93 22 44 24 3B A6 31 30 29 22 1F CE 4F | ."."D$;.10)"..O|
00000740: 20 46 49 4C 45 53 20 49 4E 20 4D 45 4D 4F 52 59 | FILES IN MEMORY|
00000750: 22 3A 89 20 35 30 30 00 7D 0F 30 02 8B 20 4E 4D |":. 500.}.0.. NM|
00000760: 20 A7 20 8D 20 31 30 35 30 3A 44 4E 24 B2 22 30 | . . 1050:DN$."0|
00000770: 3A 22 AA 44 4E 24 AA 22 2C 53 2C 57 22 00 A6 0F |:".DN$.",S,W"...|
00000780: 3A 02 A0 20 32 3A 9F 20 32 2C 44 56 2C 53 41 2C |:.. 2:. 2,DV,SA,|
00000790: 44 4E 24 3A 8D 20 33 39 30 3A 8B 20 41 24 B2 22 |DN$:. 390:. A$."|
000007A0: 51 22 20 A7 20 8E 00 BC 0F 44 02 8B 20 52 46 20 |Q" . ....D.. RF |
000007B0: AF 20 45 58 B2 30 20 A7 20 35 37 30 00 CB 0F 4E |. EX.0 . 570...N|
000007C0: 02 8B 20 52 46 20 A7 20 35 36 30 00 DA 0F 58 02 |.. RF . 560...X.|
000007D0: 8B 20 45 58 20 A7 20 35 37 30 00 FB 0F 62 02 99 |. EX . 570...b..|
000007E0: 22 93 11 22 3A 81 20 41 B2 30 20 A4 20 43 3A 98 |"..":. A.0 . C:.|
000007F0: 32 2C A6 53 50 29 42 24 28 41 29 00 1A 10 6C 02 |2,.SP)B$(A)...l.|
00000800: 8B 20 C2 28 52 4F 29 B2 32 31 20 A7 20 8D 20 35 |. .(RO).21 . . 5|
00000810: 30 30 3A 99 22 93 11 11 11 22 00 2C 10 76 02 82 |00:."....".,.v..|
00000820: 3A A0 20 32 3A 8D 20 35 30 30 3A 8E 00 60 10 80 |:. 2:. 500:..`..|
00000830: 02 8B 20 43 B3 B2 30 20 A7 20 99 22 93 22 44 24 |.. C..0 . ."."D$|
00000840: 3B A6 31 30 29 22 90 CE 4F 20 46 49 4C 45 53 20 |;.10)"..O FILES |
00000850: 49 4E 20 4D 45 4D 4F 52 59 22 3A 89 20 35 30 30 |IN MEMORY":. 500|
00000860: 00 87 10 8A 02 44 B2 43 AB 31 3A 4D B2 44 3A 99 |.....D.C.1:M.D:.|
00000870: 22 93 22 44 24 3B A6 31 35 29 22 D3 4F 52 54 49 |"."D$;.15)".ORTI|
00000880: 4E 47 2E 2E 2E 2E 22 00 9E 10 94 02 4D B2 B5 28 |NG....".....M..(|
00000890: 4D AD 32 29 3A 8B 20 4D B2 30 20 A7 20 8E 00 AC |M.2):. M.0 . ...|
000008A0: 10 9E 02 4A B2 30 3A 4B B2 44 AB 4D 00 B4 10 A8 |...J.0:K.D.M....|
000008B0: 02 49 B2 4A 00 BE 10 B2 02 4C B2 49 AA 4D 00 02 |.I.J.....L.I.M..|
000008C0: 11 BC 02 8B 20 42 24 28 49 29 B1 42 24 28 4C 29 |.... B$(I).B$(L)|
000008D0: 20 A7 20 54 24 B2 42 24 28 49 29 3A 42 24 28 49 | . T$.B$(I):B$(I|
000008E0: 29 B2 42 24 28 4C 29 3A 42 24 28 4C 29 B2 54 24 |).B$(L):B$(L).T$|
000008F0: 3A 49 B2 49 AB 4D 3A 8B 20 49 B1 30 20 A7 20 36 |:I.I.M:. I.0 . 6|
00000900: 39 30 00 18 11 C6 02 4A B2 4A AA 31 3A 8B 20 4A |90.....J.J.1:. J|
00000910: B1 4B 20 A7 20 36 36 30 00 22 11 D0 02 89 20 36 |.K . 660.".... 6|
00000920: 38 30 00 59 11 DA 02 44 56 B2 38 3A 53 50 B2 35 |80.Y...DV.8:SP.5|
00000930: 3A 53 41 B2 32 3A 46 24 B2 22 46 49 4C 45 22 3A |:SA.2:F$."FILE":|
00000940: 4E 4D B2 31 3A 44 4E 24 B2 44 4E 24 AA 22 2C 53 |NM.1:DN$.DN$.",S|
00000950: 2C 57 22 3A 89 20 35 35 30 00 81 11 E4 02 8D 20 |,W":. 550...... |
00000960: 31 30 35 30 3A 44 4E 24 B2 22 30 3A 22 AA 44 4E |1050:DN$."0:".DN|
00000970: 24 3A 8B 20 44 4E 24 B2 22 30 3A 51 22 20 A7 20 |$:. DN$."0:Q" . |
00000980: 8E 00 AF 11 EE 02 A0 20 32 3A 9F 20 32 2C 38 2C |....... 2:. 2,8,|
00000990: 32 2C 44 4E 24 AA 22 2C 50 2C 57 22 3A 8D 20 33 |2,DN$.",P,W":. 3|
000009A0: 39 30 3A 8B 20 41 24 B2 22 51 22 20 A7 20 8E 00 |90:. A$."Q" . ..|
000009B0: C5 11 F8 02 8B 20 52 46 20 AF 20 45 58 B2 30 20 |..... RF . EX.0 |
000009C0: A7 20 37 35 30 00 D4 11 02 03 8B 20 52 46 20 A7 |. 750...... RF .|
000009D0: 20 37 34 30 00 E3 11 0C 03 8B 20 45 58 20 A7 20 | 740...... EX . |
000009E0: 37 35 30 00 00 12 16 03 98 32 2C C7 28 31 29 C7 |750......2,.(1).|
000009F0: 28 38 29 3B 3A 81 20 41 B2 30 20 A4 20 43 AB 31 |(8);:. A.0 . C.1|
00000A00: 00 1A 12 20 03 98 32 2C C7 28 34 29 C7 28 34 29 |... ..2,.(4).(4)|
00000A10: 3B 3A 4C 4E B2 31 30 30 AA 41 00 47 12 2A 03 48 |;:LN.100.A.G.*.H|
00000A20: 42 B2 B5 28 4C 4E AD 32 35 36 29 3A 4C 42 B2 4C |B..(LN.256):LB.L|
00000A30: 4E AB 48 42 AC 32 35 36 3A 98 32 2C C7 28 4C 42 |N.HB.256:.2,.(LB|
00000A40: 29 C7 28 48 42 29 3B 00 63 12 34 03 98 32 2C C7 |).(HB);.c.4..2,.|
00000A50: 28 33 34 29 42 24 28 41 29 C7 28 33 34 29 C7 28 |(34)B$(A).(34).(|
00000A60: 30 29 3B 00 78 12 3E 03 82 20 41 3A 98 32 2C C7 |0);.x.>.. A:.2,.|
00000A70: 28 30 29 C7 28 30 29 3B 00 82 12 48 03 A0 20 32 |(0).(0);...H.. 2|
00000A80: 3A 8E 00 A5 12 52 03 46 24 B2 22 46 49 4C 45 22 |:....R.F$."FILE"|
00000A90: 3A 8D 20 31 30 35 30 3A 8B 20 44 4E 24 B2 22 51 |:. 1050:. DN$."Q|
00000AA0: 22 20 A7 20 8E 00 D2 12 5C 03 9F 20 32 2C 38 2C |" . ....\.. 2,8,|
00000AB0: 32 2C 22 30 3A 22 AA 44 4E 24 AA 22 2C 53 2C 52 |2,"0:".DN$.",S,R|
00000AC0: 22 3A 8D 20 33 39 30 3A 8B 20 45 58 20 A7 20 38 |":. 390:. EX . 8|
00000AD0: 35 30 00 F8 12 66 03 46 4C B2 AB 31 3A 42 24 28 |50...f.FL..1:B$(|
00000AE0: 43 29 B2 22 22 3A 81 20 41 B2 31 20 A4 20 35 3A |C)."":. A.1 . 5:|
00000AF0: A1 23 32 2C 41 24 3A 82 00 14 13 70 03 A1 23 32 |.#2,A$:....p..#2|
00000B00: 2C 41 24 3A 8B 20 41 24 B2 C7 28 31 33 29 20 A7 |,A$:. A$..(13) .|
00000B10: 20 39 31 30 00 27 13 7A 03 42 24 28 43 29 B2 42 | 910.'.z.B$(C).B|
00000B20: 24 28 43 29 AA 41 24 00 31 13 84 03 89 20 38 38 |$(C).A$.1.... 88|
00000B30: 30 00 42 13 8E 03 8B 20 53 54 20 A7 20 A0 20 32 |0.B.... ST . . 2|
00000B40: 3A 8E 00 5B 13 98 03 43 B2 43 AA 31 3A 8B 20 43 |:..[...C.C.1:. C|
00000B50: B2 38 30 30 20 A7 20 31 30 38 30 00 65 13 A2 03 |.800 . 1080.e...|
00000B60: 89 20 38 37 30 00 88 13 AC 03 46 24 B2 22 44 49 |. 870.....F$."DI|
00000B70: 53 4B 22 3A 8D 20 31 30 35 30 3A 8B 20 44 4E 24 |SK":. 1050:. DN$|
00000B80: B2 22 51 22 20 A7 20 8E 00 A7 13 B6 03 99 22 93 |."Q" . .......".|
00000B90: 22 44 24 3B A6 31 34 29 22 C4 45 4C 45 54 49 4E |"D$;.14)".ELETIN|
00000BA0: 47 22 3A 45 4E B2 30 00 BC 13 C0 03 46 4C B2 30 |G":EN.0.....FL.0|
00000BB0: 3A 81 20 41 B2 30 20 A4 20 43 AB 31 00 E8 13 CA |:. A.0 . C.1....|
00000BC0: 03 8B 20 CA 28 42 24 28 41 29 2C 32 32 2C 31 36 |.. .(B$(A),22,16|
00000BD0: 29 B2 44 4E 24 20 AF 20 46 4C B2 30 20 A7 20 46 |).DN$ . FL.0 . F|
00000BE0: 4C B2 31 3A 53 4E B2 41 00 14 14 D4 03 8B 20 CA |L.1:SN.A...... .|
00000BF0: 28 42 24 28 41 29 2C 32 32 2C 31 36 29 B3 B1 44 |(B$(A),22,16)..D|
00000C00: 4E 24 20 AF 20 46 4C B2 31 20 A7 20 45 4E B2 41 |N$ . FL.1 . EN.A|
00000C10: 3A 41 B2 43 00 43 14 DE 03 82 3A 8B 20 46 4C B2 |:A.C.C....:. FL.|
00000C20: 30 20 A7 20 99 22 11 22 A6 31 32 29 22 C6 49 4C |0 . .".".12)".IL|
00000C30: 45 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 89 20 31 |E NOT FOUND":. 1|
00000C40: 30 33 30 00 5E 14 E8 03 8B 20 45 4E B2 30 20 A7 |030.^.... EN.0 .|
00000C50: 20 45 4E B2 43 AA 31 3A 89 20 31 30 32 30 00 89 | EN.C.1:. 1020..|
00000C60: 14 F2 03 81 20 41 B2 53 4E 20 A4 20 43 AB 28 45 |.... A.SN . C.(E|
00000C70: 4E AB 53 4E 29 3A 42 24 28 41 29 B2 42 24 28 45 |N.SN):B$(A).B$(E|
00000C80: 4E AA 41 AB 53 4E 29 3A 82 00 AB 14 FC 03 43 B2 |N.A.SN):......C.|
00000C90: 43 AB 28 45 4E AB 53 4E 29 3A 99 22 11 22 A6 31 |C.(EN.SN):.".".1|
00000CA0: 34 29 22 C4 45 4C 45 54 45 44 22 00 C1 14 06 04 |4)".ELETED".....|
00000CB0: 8D 20 35 30 30 3A 43 B2 43 AB 28 43 B3 30 29 3A |. 500:C.C.(C.0):|
00000CC0: 8E 00 CB 14 10 04 43 B2 30 3A 8E 00 FD 14 1A 04 |......C.0:......|
00000CD0: 99 22 93 11 11 11 11 20 D0 55 54 20 44 49 53 4B |."..... .UT DISK|
00000CE0: 20 49 4E 20 44 52 49 56 45 20 41 4E 44 20 45 4E | IN DRIVE AND EN|
00000CF0: 54 45 52 20 22 46 24 22 4E 41 4D 45 22 00 27 15 |TER "F$"NAME".'.|
00000D00: 24 04 99 22 20 28 55 50 20 54 4F 20 31 36 20 43 |$.." (UP TO 16 C|
00000D10: 48 41 52 41 43 54 45 52 53 29 20 12 D1 A0 54 4F |HARACTERS) ...TO|
00000D20: 20 51 55 49 54 92 22 00 54 15 2E 04 97 20 31 39 | QUIT.".T.... 19|
00000D30: 2C 31 3A 85 22 11 1C 20 22 3B 44 4E 24 3A 97 20 |,1:.".. ";DN$:. |
00000D40: 31 39 2C 30 3A 44 4E 24 B2 C8 28 44 4E 24 2C 31 |19,0:DN$..(DN$,1|
00000D50: 36 29 3A 8E 00 9D 15 38 04 99 22 93 22 44 4E 24 |6):....8.."."DN$|
00000D60: 22 1C D4 48 45 20 4D 41 53 54 45 52 20 44 49 52 |"..HE MASTER DIR|
00000D70: 45 43 54 4F 52 59 20 49 53 20 46 55 4C 4C 2E 20 |ECTORY IS FULL. |
00000D80: 20 53 41 56 45 20 54 48 45 20 50 52 45 53 45 4E | SAVE THE PRESEN|
00000D90: 54 20 46 49 4C 45 20 41 4E 44 20 22 3B 00 C4 15 |T FILE AND ";...|
00000DA0: 42 04 99 22 53 54 41 52 54 20 41 20 4E 45 57 20 |B.."START A NEW |
00000DB0: 44 49 52 45 43 54 4F 52 59 2E 90 22 3A 8D 20 35 |DIRECTORY..":. 5|
00000DC0: 30 30 3A 8E 00 00 00 |00:.... |
....... B$(800).7.... 53280,15:. 53281,1
5:KB.198:RO.214.R.<.S$."
":C.0:. 15,8,15:D$."........."...F..
G(14);"... CHOOSE ONE OF THE FOLLOW
ING ..".U.P..".. 1. CATALOGE A
SET OF DISKS"...Z..". 2. SEE ALL FIL
E NAMES"...D..". 3. PRINT ALL FILE N
AMES".G.N..". 4. SORT NAMES ALPHABET
ICALLY".P.X..". 5. CREATE A SEQUENTI
AL FILE"......". 6. CREATE A PROGRAM
FILE"......". 7. LOAD AN OLD FILE".
U....". 8. DELETE A DISK"... ..".
9. START A NEW FILE".+...."...
PRESS Q TO QUIT ..".U...
. KB,0:. KB,1:. A$:. A$."Q" . .".";:..Q.
... A$."1" . A$."9" . 180...H.. E(A$) .
210,510,520,640,730,740,850,940,1040:. 7
0.L.R.F$."DISK":. 1050:. DN$."Q" . .....
.."...".20.C(DN$).2)DN$"..."..... 2:. 2
,8,0,"$":. 390:. A$."Q" . ..+...X.4:NF.0
:. EX . 220.Q...B$(C).""::FL..1:. 310:X.
2:.#2,LN$......#2,HN$:NM.F(LN$.G(0)).256
.F(HN$.G(0)):." "NM;......#2,A$:. A$
."" . 320...... A$.G(34) . FL..FL.U."..
FL.1 . B$(C).B$(C).A$...,.. A$;:. 270...
6.. A.1 . X:.#2,A$:.:..).@.. B$(C)."" .
2:. 480:. A$.."Q" . 210.<.J.. B$(C).""
. ..L.T..:NM$.D(NM).J.^.B$(C).I(B$(C),C
(B$(C)).1). .H.B$(C).B$(C).H(S$,19.C(B$(
C)).C(NM$)).NM$." ".DN$.B.R.. NF.1 . C.
C.1:. C.800 . 1080.Q.|.NF.1:. 250.....RF
.0:EX.0:A$."":.15,EN,M$,T,S...... EN.20
. ..@...."."D$:. A.1 . 5:."
":..L...EX.1:.:."..
"D$;EN;M$;T;S:. EN..63 . 470.....RF.1:."
. DO YOU WANT TO REPLACE THE FILE? (Y/N)
"...... A$:. A$."N" . ..K.B.. A$.."Y" .
440...L.EX.0:.15,"S".DN$:....V. 2.+....
:.".. PRESS ANY KEY TO CONTINUE .Q TO Q
UIT.":. KB,0:. KB,1.6.... A$:..Q....:.".
. PRESS ANY KEY TO CONTINUE":. KB,0
:. KB,1:......DV.3:SA.0:SP.1:DN$."":NM.0
:. 550......"."DN$"PRESS 'M' TO RETURN T
O THE MENU ANY OTHER KEY TO PRINT"..
.... KB,0:. KB,1:. A$:. A$."M" . 70.#...
DV.4:SP.20:SA.0:DN$."":NM.0.W.&.. C..0 .
."."D$;.10)".NO FILES IN MEMORY":. 500.
}.0.. NM . . 1050:DN$."0:".DN$.",S,W"...
:. 2:. 2,DV,SA,DN$:. 390:. A$."Q" . ...
.D.. RF . EX.0 . 570.K.N.. RF . 560.Z.X.
. EX . 570...B.."..":. A.0 . C:.2,.SP)B$
(A)...L.. B(RO).21 . . 500:."....".,.V..
: 2:. 500:..`.... C..0 . ."."D$;.10)".N
O FILES IN MEMORY":. 500.....D.C.1:M.D:.
"."D$;.15)"SORTING....".....M..(M.2):. M
.0 . ......J.0:K.D.M.....I.J.....L.I.M..
.... B$(I).B$(L) . T$.B$(I):B$(I).B$(L):
B$(L).T$:I.I.M:. I.0 . 690...F.J.J.1:. J
.K . 660.".P.. 680.Y.Z.DV.8:SP.5:SA.2:F$
."FILE":NM.1:DN$.DN$.",S,W":. 550......
1050:DN$."0:".DN$:. DN$."0:Q" . ......
2:. 2,8,2,DN$.",P,W":. 390:. A$."Q" . ..
E.... RF . EX.0 . 750.T.... RF . 740....
.. EX . 750......2,G(1)G(8);:. A.0 . C.1
... ..2,G(4)G(4);:LN.100.A.G.*.HB..(LN.2
56):LB.LN.HB.256:.2,G(LB)G(HB);.C.4..2,G
(34)B$(A)G(34)G(0);.X.>.. A:.2,G(0)G(0);
...H. 2:....R.F$."FILE":. 1050:. DN$."Q
" . ..R.\.. 2,8,2,"0:".DN$.",S,R":. 390:
. EX . 850...F.FL..1:B$(C)."":. A.1 . 5:
.#2,A$:....P..#2,A$:. A$.G(13) . 910.'.Z
.B$(C).B$(C).A$.1.... 880.B.... ST . 2
:..[...C.C.1:. C.800 . 1080.E.... 870...
..F$."DISK":. 1050:. DN$."Q" . .......".
"D$;.14)"DELETING":EN.0.....FL.0:. A.0 .
C.1...J.. J(B$(A),22,16).DN$ . FL.0 . F
L.1:SN.A...T.. J(B$(A),22,16)..DN$ . FL.
1 . EN.A:A.C.C....:. FL.0 . .".".12)"FIL
E NOT FOUND":. 1030.^.... EN.0 . EN.C.1:
. 1020...... A.SN . C.(EN.SN):B$(A).B$(E
N.A.SN):......C.C.(EN.SN):.".".14)"DELET
ED".A.... 500:C.C.(C.0):..K...C.0:......
."..... PUT DISK IN DRIVE AND ENTER "F$"
NAME".'.$.." (UP TO 16 CHARACTERS) .Q TO
QUIT.".T.... 19,1:.".. ";DN$:. 19,0:DN$
.H(DN$,16):....8.."."DN$".THE MASTER DIR
ECTORY IS FULL. SAVE THE PRESENT FILE A
ND ";.D.B.."START A NEW DIRECTORY..":. 5
00:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL