CODE LOCK
FILE INFORMATION
FILENAME(S): CODE LOCK
FILE TYPE(S): PRG
FILE SIZE: 11K
FIRST SEEN: 2025-12-01 00:59:43
APPEARS ON: 1 disk(s)
FILE HASH
105573990dcf054ad8fa69ad8ca38e3f9fcbf9d95e6cb71cff22a47297e4cd7c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| J J DISK 6 | CODE LOCK | PRG | hedning, Dean | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 01 00 41 B2 31 3A 42 24 B2 22 22 3A |......A.1:B$."":| 00000010: 45 24 B2 22 22 3A 89 31 30 00 3E 08 02 00 97 35 |E$."":.10.>....5| 00000020: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:| 00000030: 41 24 B2 22 43 4F 44 45 20 4C 4F 43 4B 22 00 72 |A$."CODE LOCK".r| 00000040: 08 03 00 99 22 93 9F 12 20 20 20 20 20 20 20 20 |...."... | 00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 91 22 00 B8 08 04 00 99 22 12 20 20 20 20 20 20 |."......". | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 91 22 A3 32 30 AB B5 28 C3 28 41 24 29 AD | .".20..(.(A$).| 000000B0: 32 29 AA 2E 35 29 41 24 00 EA 08 05 00 99 22 12 |2)..5)A$......".| 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 91 22 00 27 09 06 00 99 | .".'....| 000000F0: 22 11 11 11 11 9C 53 43 52 41 54 43 48 49 4E 47 |".....SCRATCHING| 00000100: 20 4F 4C 44 20 46 49 4C 45 20 22 3B 3A 9F 31 35 | OLD FILE ";:.15| 00000110: 2C 38 2C 31 35 2C 22 53 30 3A 22 AA 28 41 24 29 |,8,15,"S0:".(A$)| 00000120: 3A A0 31 35 3A 8D 39 00 4E 09 07 00 99 22 11 53 |:.15:.9.N....".S| 00000130: 41 56 49 4E 47 20 20 20 20 20 4E 45 57 20 46 49 |AVING NEW FI| 00000140: 4C 45 20 22 3B 3A 94 41 24 2C 38 3A 8D 39 00 77 |LE ";:.A$,8:.9.w| 00000150: 09 08 00 99 22 11 56 45 52 49 46 59 49 4E 47 20 |....".VERIFYING | 00000160: 20 4E 45 57 20 46 49 4C 45 20 22 3B 3A 95 41 24 | NEW FILE ";:.A$| 00000170: 2C 38 3A 8D 39 3A 80 00 8A 09 09 00 99 A3 32 32 |,8:.9:........22| 00000180: 29 22 9E 4F 4B 21 9C 22 3A 8E 00 A0 09 0A 00 97 |)".OK!.":.......| 00000190: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0| 000001A0: 00 CA 09 14 00 43 24 B2 22 33 35 34 36 33 35 34 |.....C$."3546354| 000001B0: 36 33 35 34 36 33 35 34 36 33 35 34 36 33 35 34 |6354635463546354| 000001C0: 36 33 35 34 36 33 35 34 36 22 00 E1 09 1E 00 44 |635463546".....D| 000001D0: 24 B2 22 4A 45 52 52 59 20 4A 41 4E 53 53 4F 4E |$."JERRY JANSSON| 000001E0: 22 00 F1 09 28 00 99 22 93 98 43 4F 44 45 20 3A |"...(.."..CODE :| 000001F0: 22 00 00 0A 32 00 81 49 B2 31 A4 C3 28 44 24 29 |"...2..I.1..(D$)| 00000200: 00 12 0A 3C 00 A1 42 24 3A 8B 42 24 B2 22 22 A7 |...<..B$:.B$."".| 00000210: 36 30 00 20 0A 46 00 8B 42 24 B2 22 03 22 A7 31 |60. .F..B$.".".1| 00000220: 00 54 0A 50 00 45 24 B2 45 24 AA 42 24 3A 8B 42 |.T.P.E$.E$.B$:.B| 00000230: 24 B2 CA 28 44 24 2C 49 2C 31 29 A7 97 35 33 32 |$..(D$,I,1)..532| 00000240: 38 30 2C C5 28 CA 28 43 24 2C 49 2C 31 29 29 3A |80,.(.(C$,I,1)):| 00000250: 89 31 30 30 00 61 0A 5A 00 97 35 33 32 38 30 2C |.100.a.Z..53280,| 00000260: 30 00 73 0A 64 00 81 47 B2 31 A4 31 30 30 3A 82 |0.s.d..G.1.100:.| 00000270: 47 2C 49 00 8F 0A 6E 00 8B 45 24 B2 44 24 A7 81 |G,I...n..E$.D$..| 00000280: 49 B2 31 A4 32 30 30 3A 82 49 3A 89 31 33 30 00 |I.1.200:.I:.130.| 00000290: AF 0A 78 00 97 35 33 32 38 30 2C 31 34 3A 97 35 |..x..53280,14:.5| 000002A0: 33 32 38 31 2C 36 3A 99 22 93 9A 22 3B 3A A2 00 |3281,6:."..";:..| 000002B0: C6 0A 82 00 97 35 33 32 38 30 2C 31 34 3A 97 35 |.....53280,14:.5| 000002C0: 33 32 38 31 2C 36 00 E8 0A 8C 00 99 22 93 9A 22 |3281,6......".."| 000002D0: 2C 22 12 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |,". ............| 000002E0: A4 A4 A4 A4 A4 A4 20 22 00 08 0B 96 00 99 2C 22 |...... "......,"| 000002F0: 12 A7 92 20 20 20 53 50 45 43 49 41 4C 20 4D 45 |... SPECIAL ME| 00000300: 4E 55 20 20 20 12 A5 22 00 26 0B A0 00 99 2C 22 |NU ..".&....,"| 00000310: 12 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |. ..............| 00000320: A3 A3 A3 A3 20 22 00 45 0B AA 00 99 22 11 22 2C |.... ".E....".",| 00000330: 22 20 31 2E 20 20 4E 45 57 20 4E 41 4D 45 20 26 |" 1. NEW NAME &| 00000340: 20 49 44 2E 22 00 61 0B B4 00 99 2C 22 20 32 2E | ID.".a....," 2.| 00000350: 20 20 57 52 49 54 45 50 52 4F 54 45 43 54 2E 2E | WRITEPROTECT..| 00000360: 22 00 7D 0B BE 00 99 2C 22 20 33 2E 20 20 44 49 |".}....," 3. DI| 00000370: 53 50 4C 41 59 20 42 41 4D 2E 2E 2E 22 00 99 0B |SPLAY BAM..."...| 00000380: C8 00 99 2C 22 20 34 2E 20 20 55 4E 53 43 52 41 |...," 4. UNSCRA| 00000390: 54 43 48 2E 2E 2E 2E 2E 22 00 B5 0B D2 00 99 2C |TCH....."......,| 000003A0: 22 20 35 2E 20 20 48 45 41 44 45 52 20 43 48 41 |" 5. HEADER CHA| 000003B0: 4E 47 45 2E 22 00 D1 0B DC 00 99 2C 22 20 36 2E |NGE."......," 6.| 000003C0: 20 20 43 48 41 4E 47 45 20 55 4E 49 54 2E 2E 2E | CHANGE UNIT...| 000003D0: 22 00 ED 0B E6 00 99 2C 22 20 37 2E 20 20 50 52 |"......," 7. PR| 000003E0: 4F 47 52 41 4D 2D 46 49 4E 44 45 52 22 00 09 0C |OGRAM-FINDER"...| 000003F0: F0 00 99 2C 22 20 30 2E 20 20 51 55 49 54 2E 2E |...," 0. QUIT..| 00000400: 2E 2E 2E 2E 2E 2E 2E 2E 22 00 1C 0C FA 00 A1 41 |........"......A| 00000410: 24 3A 8B 41 24 B2 22 22 A7 32 35 30 00 2D 0C 04 |$:.A$."".250.-..| 00000420: 01 8B 41 24 B2 22 31 22 A7 31 35 31 30 00 3E 0C |..A$."1".1510.>.| 00000430: 0E 01 8B 41 24 B2 22 32 22 A7 32 32 30 30 00 4E |...A$."2".2200.N| 00000440: 0C 18 01 8B 41 24 B2 22 33 22 A7 38 33 30 00 5F |....A$."3".830._| 00000450: 0C 22 01 8B 41 24 B2 22 34 22 A7 32 34 36 30 00 |."..A$."4".2460.| 00000460: 70 0C 2C 01 8B 41 24 B2 22 35 22 A7 31 38 32 30 |p.,..A$."5".1820| 00000470: 00 80 0C 36 01 8B 41 24 B2 22 36 22 A7 34 30 30 |...6..A$."6".400| 00000480: 00 91 0C 40 01 8B 41 24 B2 22 37 22 A7 33 31 34 |...@..A$."7".314| 00000490: 30 00 A1 0C 4A 01 8B 41 24 B2 22 30 22 A7 31 32 |0...J..A$."0".12| 000004A0: 30 00 AF 0C 54 01 8B 41 24 B2 22 03 22 A7 31 00 |0...T..A$.".".1.| 000004B0: B8 0C 5E 01 89 32 35 30 00 DF 0C 68 01 99 22 93 |..^..250...h..".| 000004C0: 11 11 22 2C 22 9D 12 20 A4 A4 A4 A4 A4 A4 A4 A4 |..",".. ........| 000004D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 92 22 00 |............ .".| 000004E0: 03 0D 72 01 99 2C 22 9D 12 A7 92 45 52 52 4F 52 |..r..,"....ERROR| 000004F0: 20 4B 45 45 50 20 4F 4E 20 54 52 59 49 4E 47 12 | KEEP ON TRYING.| 00000500: A5 92 22 00 36 0D 7C 01 99 2C 22 9D 12 20 A3 A3 |..".6.|..,".. ..| 00000510: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 00000520: A3 A3 20 92 22 3A 81 49 B2 31 A4 35 30 30 30 3A |.. .":.I.1.5000:| 00000530: 82 3A 89 31 34 30 00 4E 0D 86 01 8F 20 2A 2A 20 |.:.140.N.... ** | 00000540: 43 48 41 4E 47 45 20 55 4E 49 54 20 2A 2A 00 63 |CHANGE UNIT **.c| 00000550: 0D 90 01 5A 24 B2 C7 28 30 29 3A 20 42 24 B2 C7 |...Z$..(0): B$..| 00000560: 28 32 29 00 89 0D 9A 01 99 20 22 93 11 20 20 43 |(2)...... ".. C| 00000570: 48 41 4E 47 45 20 44 49 53 4B 20 44 45 56 49 43 |HANGE DISK DEVIC| 00000580: 45 20 4E 55 4D 42 45 52 22 00 B4 0D A4 01 99 20 |E NUMBER"...... | 00000590: 22 11 11 20 49 46 20 12 20 41 4C 4C 20 92 20 44 |".. IF . ALL . D| 000005A0: 49 53 4B 20 55 4E 49 54 53 20 41 52 45 20 53 54 |ISK UNITS ARE ST| 000005B0: 49 4C 4C 22 00 DD 0D AE 01 99 20 22 20 44 45 56 |ILL"...... " DEV| 000005C0: 49 43 45 20 4E 52 20 38 2C 20 54 48 45 4E 20 50 |ICE NR 8, THEN P| 000005D0: 4F 57 45 52 2D 4F 46 46 20 41 4C 4C 22 00 09 0E |OWER-OFF ALL"...| 000005E0: B8 01 99 20 22 20 42 55 54 20 54 48 45 20 46 49 |... " BUT THE FI| 000005F0: 52 53 54 20 55 4E 49 54 20 54 4F 20 42 45 20 43 |RST UNIT TO BE C| 00000600: 48 41 4E 47 45 44 2E 11 22 00 38 0E C2 01 85 20 |HANGED..".8.... | 00000610: 22 11 20 12 20 4F 4C 44 20 92 20 44 45 56 49 43 |". . OLD . DEVIC| 00000620: 45 20 4E 52 20 28 38 2D 31 35 29 3A 20 3F 20 38 |E NR (8-15): ? 8| 00000630: 20 9D 9D 9D 9D 22 3B 46 00 5A 0E CC 01 8B 20 46 | ....";F.Z.... F| 00000640: B3 38 20 B0 20 46 B1 31 35 20 A7 20 99 20 22 91 |.8 . F.15 . . ".| 00000650: 91 91 22 3A 20 89 20 34 35 30 00 89 0E D6 01 85 |..": . 450......| 00000660: 20 22 11 20 12 20 4E 45 57 20 92 20 44 45 56 49 | ". . NEW . DEVI| 00000670: 43 45 20 4E 52 20 28 38 2D 31 35 29 3A 20 3F 20 |CE NR (8-15): ? | 00000680: 39 20 9D 9D 9D 9D 22 3B 54 00 AB 0E E0 01 8B 20 |9 ....";T...... | 00000690: 54 B3 38 20 B0 20 54 B1 31 35 20 A7 20 99 20 22 |T.8 . T.15 . . "| 000006A0: 91 91 91 22 3A 20 89 20 34 37 30 00 C8 0E EA 01 |...": . 470.....| 000006B0: A0 20 31 3A 9F 20 31 2C 46 2C 31 35 3A 20 8B 20 |. 1:. 1,F,15: . | 000006C0: 53 54 20 A7 20 36 33 30 00 E1 0E F4 01 98 31 2C |ST . 630......1,| 000006D0: 22 4D 2D 52 22 C7 28 32 35 35 29 C7 28 32 35 35 |"M-R".(255).(255| 000006E0: 29 00 F2 0E FE 01 8D 20 36 31 30 3A 20 8D 20 36 |)...... 610: . 6| 000006F0: 36 30 00 14 0F 08 02 99 20 22 11 20 55 4E 49 54 |60...... ". UNIT| 00000700: 2D 54 59 50 45 2F 44 4F 53 20 56 45 52 53 3A 20 |-TYPE/DOS VERS: | 00000710: 22 3B 41 24 00 37 0F 12 02 98 31 2C 22 4D 2D 57 |";A$.7....1,"M-W| 00000720: 22 C7 28 4D 29 5A 24 42 24 C7 28 54 AA 33 32 29 |".(M)Z$B$.(T.32)| 00000730: C7 28 54 AA 36 34 29 00 46 0F 1C 02 8B 20 53 54 |.(T.64).F.... ST| 00000740: 20 A7 20 36 33 30 00 70 0F 26 02 99 20 22 11 11 | . 630.p.&.. "..| 00000750: 20 44 45 56 49 43 45 22 3B 46 3B 22 43 48 41 4E | DEVICE";F;"CHAN| 00000760: 47 45 44 20 54 4F 20 44 45 56 49 43 45 22 3B 54 |GED TO DEVICE";T| 00000770: 00 9D 0F 30 02 85 20 22 11 20 43 48 41 4E 47 45 |...0.. ". CHANGE| 00000780: 20 4D 4F 52 45 20 55 4E 49 54 53 20 28 59 2F 4E | MORE UNITS (Y/N| 00000790: 29 3A 20 3F 20 4E 9D 9D 9D 22 3B 43 24 00 B0 0F |): ? N...";C$...| 000007A0: 3A 02 8B 20 43 24 B2 22 4E 22 20 A7 20 36 35 30 |:.. C$."N" . 650| 000007B0: 00 CF 0F 44 02 8B 20 43 24 B3 B1 22 59 22 20 A7 |...D.. C$.."Y" .| 000007C0: 20 99 20 22 91 91 91 22 3A 20 89 20 35 36 30 00 | . "...": . 560.| 000007D0: FB 0F 4E 02 99 20 22 93 11 20 4F 4B 2C 20 50 4F |..N.. ".. OK, PO| 000007E0: 57 45 52 2D 4F 4E 20 4E 45 58 54 20 55 4E 49 54 |WER-ON NEXT UNIT| 000007F0: 20 54 4F 20 43 48 41 4E 47 45 22 00 05 10 58 02 | TO CHANGE"...X.| 00000800: 89 20 34 35 30 00 1C 10 62 02 A1 23 31 2C 43 24 |. 450...b..#1,C$| 00000810: 3A 20 43 B2 C6 28 43 24 AA 5A 24 29 00 2B 10 6C |: C..(C$.Z$).+.l| 00000820: 02 8B 20 53 54 B2 30 20 A7 20 8E 00 50 10 76 02 |.. ST.0 . ..P.v.| 00000830: 99 20 22 11 20 44 45 56 49 43 45 20 45 52 52 4F |. ". DEVICE ERRO| 00000840: 52 20 4F 4E 22 3B 46 3A A0 31 3A 89 20 33 36 30 |R ON";F:.1:. 360| 00000850: 00 6F 10 80 02 99 20 22 20 55 4E 4B 4E 4F 57 4E |.o.... " UNKNOWN| 00000860: 20 44 45 56 49 43 45 20 54 59 50 45 22 3B 46 00 | DEVICE TYPE";F.| 00000870: 7C 10 8A 02 A0 20 31 3A 89 31 33 30 00 96 10 94 ||.... 1:.130....| 00000880: 02 8B 20 43 B2 31 39 38 20 A7 20 4D B2 31 32 3A |.. C.198 . M.12:| 00000890: 20 89 20 37 34 30 00 BC 10 9E 02 8B 20 43 B2 32 | . 740...... C.2| 000008A0: 35 35 20 A7 20 4D B2 31 32 3A 20 41 24 B2 22 44 |55 . M.12: A$."D| 000008B0: 39 30 58 58 20 2F 20 56 33 2E 30 22 00 E9 10 A8 |90XX / V3.0"....| 000008C0: 02 8B 20 43 B2 32 35 34 20 A7 20 4D B2 31 31 39 |.. C.254 . M.119| 000008D0: 3A 20 41 24 B2 22 31 35 37 31 2D 31 35 34 31 2F |: A$."1571-1541/| 000008E0: 56 33 2E 30 2D 32 2E 36 22 00 0E 11 B2 02 8B 20 |V3.0-2.6"...... | 000008F0: 43 B2 32 34 32 20 A7 20 4D B2 31 32 3A 20 41 24 |C.242 . M.12: A$| 00000900: B2 22 38 30 35 30 20 2F 20 56 32 2E 35 22 00 33 |."8050 / V2.5".3| 00000910: 11 BC 02 8B 20 43 B2 32 34 31 20 A7 20 4D B2 31 |.... C.241 . M.1| 00000920: 32 3A 20 41 24 B2 22 31 35 35 31 20 2F 20 56 32 |2: A$."1551 / V2| 00000930: 2E 36 22 00 58 11 C6 02 8B 20 43 B2 32 32 36 20 |.6".X.... C.226 | 00000940: A7 20 4D B2 35 30 3A 20 41 24 B2 22 32 30 34 30 |. M.50: A$."2040| 00000950: 20 2F 20 56 31 2E 32 22 00 7D 11 D0 02 8B 20 43 | / V1.2".}.... C| 00000960: B2 32 31 33 20 A7 20 4D B2 31 32 3A 20 41 24 B2 |.213 . M.12: A$.| 00000970: 22 34 30 34 30 20 2F 20 56 32 2E 31 22 00 83 11 |"4040 / V2.1"...| 00000980: DA 02 8E 00 9B 11 E4 02 98 31 2C 22 4D 2D 52 22 |.........1,"M-R"| 00000990: C7 28 32 33 34 29 C7 28 31 36 29 00 B2 11 EE 02 |.(234).(16).....| 000009A0: 8D 20 36 31 30 3A 20 8B 20 43 B1 31 20 A7 20 36 |. 610: . C.1 . 6| 000009B0: 36 30 00 D1 11 F8 02 8B 20 43 B2 30 20 A7 20 41 |60...... C.0 . A| 000009C0: 24 B2 22 34 30 34 30 20 2F 20 56 32 2E 37 22 3A |$."4040 / V2.7":| 000009D0: 8E 00 E9 11 02 03 98 31 2C 22 4D 2D 52 22 C7 28 |.......1,"M-R".(| 000009E0: 31 37 32 29 C7 28 31 36 29 00 06 12 0C 03 8D 20 |172).(16)...... | 000009F0: 36 31 30 3A 20 8B 20 43 B3 31 20 B0 20 43 B1 32 |610: . C.1 . C.2| 00000A00: 20 A7 20 36 34 30 00 23 12 16 03 8B 20 43 B2 31 | . 640.#.... C.1| 00000A10: 20 A7 20 41 24 B2 22 38 30 35 30 20 2F 20 56 32 | . A$."8050 / V2| 00000A20: 2E 37 22 00 40 12 20 03 8B 20 43 B2 32 20 A7 20 |.7".@. .. C.2 . | 00000A30: 41 24 B2 22 38 32 35 30 20 2F 20 56 32 2E 37 22 |A$."8250 / V2.7"| 00000A40: 00 46 12 2A 03 8E 00 5E 12 34 03 8F 20 2A 2A 20 |.F.*...^.4.. ** | 00000A50: 44 49 53 50 4C 41 59 20 42 41 4D 20 2A 2A 00 75 |DISPLAY BAM **.u| 00000A60: 12 3E 03 51 32 B2 30 3A 51 53 B2 30 3A 51 45 B2 |.>.Q2.0:QS.0:QE.| 00000A70: 30 3A 46 B2 30 00 A3 12 48 03 99 22 93 11 20 20 |0:F.0...H..".. | 00000A80: 20 20 20 20 44 49 53 50 4C 41 59 20 42 4C 4F 43 | DISPLAY BLOC| 00000A90: 4B 20 41 4C 4C 4F 43 41 54 49 4F 4E 20 4D 41 50 |K ALLOCATION MAP| 00000AA0: 11 11 22 00 CD 12 52 03 85 20 22 11 20 44 49 53 |.."...R.. ". DIS| 00000AB0: 4B 20 55 4E 49 54 20 4E 52 20 28 38 2D 31 31 29 |K UNIT NR (8-11)| 00000AC0: 3A 20 3F 20 38 20 9D 9D 9D 9D 22 3B 55 00 EF 12 |: ? 8 ....";U...| 00000AD0: 5C 03 8B 20 55 B3 38 20 B0 20 55 B1 31 31 20 A7 |\.. U.8 . U.11 .| 00000AE0: 20 99 20 22 91 91 91 22 3A 20 89 20 38 35 30 00 | . "...": . 850.| 00000AF0: 17 13 66 03 85 20 22 11 20 44 49 53 4B 20 44 52 |..f.. ". DISK DR| 00000B00: 49 56 45 20 4E 52 20 28 30 2D 31 29 3A 20 3F 20 |IVE NR (0-1): ? | 00000B10: 30 9D 9D 9D 22 3B 44 00 38 13 70 03 8B 20 44 B3 |0...";D.8.p.. D.| 00000B20: 30 20 B0 20 44 B1 31 20 A7 20 99 20 22 91 91 91 |0 . D.1 . . "...| 00000B30: 22 3A 20 89 20 38 37 30 00 67 13 7A 03 99 20 22 |": . 870.g.z.. "| 00000B40: 11 11 20 50 55 54 20 54 41 52 47 45 54 20 44 49 |.. PUT TARGET DI| 00000B50: 53 4B 20 49 4E 20 44 52 49 56 45 22 3B 44 3B 22 |SK IN DRIVE";D;"| 00000B60: 55 4E 49 54 22 3B 55 00 8C 13 84 03 99 20 22 20 |UNIT";U...... " | 00000B70: 54 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B |THEN PRESS ANY K| 00000B80: 45 59 20 54 4F 20 53 54 41 52 54 22 00 A4 13 8E |EY TO START"....| 00000B90: 03 A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 A7 |.. A$: . A$."" .| 00000BA0: 20 39 31 30 00 BE 13 98 03 5A 24 B2 C7 28 30 29 | 910.....Z$..(0)| 00000BB0: 3A 20 44 24 B2 C9 28 C4 28 44 29 2C 31 29 00 E1 |: D$..(.(D),1)..| 00000BC0: 13 A2 03 59 24 B2 22 13 11 11 11 11 11 11 11 11 |...Y$.".........| 00000BD0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000BE0: 22 00 13 14 AC 03 58 24 B2 22 1D 1D 1D 1D 1D 1D |".....X$."......| 00000BF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000C00: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000C10: 1D 1D 22 00 2C 14 B6 03 9F 31 35 2C 55 2C 31 35 |..".,....15,U,15| 00000C20: 2C 22 55 30 3E 4D 31 22 3A A0 31 35 00 53 14 C0 |,"U0>M1":.15.S..| 00000C30: 03 9F 20 31 35 2C 55 2C 31 35 3A 20 98 31 35 2C |.. 15,U,15: .15,| 00000C40: 22 49 22 AA 44 24 3A 20 9F 20 32 2C 55 2C 32 2C |"I".D$: . 2,U,2,| 00000C50: 22 23 22 00 69 14 CA 03 51 51 B2 31 38 3A 8B 51 |"#".i...QQ.18:.Q| 00000C60: 53 B2 31 A7 51 51 B2 35 33 00 80 14 D4 03 98 31 |S.1.QQ.53......1| 00000C70: 35 2C 22 55 31 3A 22 3B 32 3B 44 3B 51 51 3B 30 |5,"U1:";2;D;QQ;0| 00000C80: 00 91 14 DE 03 84 31 35 2C 41 2C 42 24 2C 43 2C |......15,A,B$,C,| 00000C90: 44 00 AC 14 E8 03 8B 41 B2 36 36 AF 51 51 B2 35 |D......A.66.QQ.5| 00000CA0: 33 A7 51 45 B2 31 3A 89 31 32 33 30 00 E3 14 F2 |3.QE.1:.1230....| 00000CB0: 03 8B 41 B3 B1 30 A7 99 22 11 1D 44 4F 53 20 45 |..A..0.."..DOS E| 00000CC0: 52 52 4F 52 3A 22 41 3B 22 2C 22 3B 42 24 3B 22 |RROR:"A;",";B$;"| 00000CD0: 2C 22 3B 43 3B 22 2C 22 3B 44 3A A0 31 35 3A 89 |,";C;",";D:.15:.| 00000CE0: 33 36 30 00 F5 14 FC 03 98 31 35 2C 22 42 2D 50 |360......15,"B-P| 00000CF0: 22 3B 32 3B 30 00 15 15 06 04 99 20 22 93 22 3B |";2;0...... ".";| 00000D00: 59 24 3B 22 20 D1 20 3D 20 42 4C 4F 43 4B 20 55 |Y$;" . = BLOCK U| 00000D10: 53 45 44 22 3B 00 2B 15 10 04 59 B2 31 34 3A 20 |SED";.+...Y.14: | 00000D20: 58 B2 31 3A 20 8D 20 31 32 39 30 00 49 15 1A 04 |X.1: . 1290.I...| 00000D30: 99 20 22 53 11 9D 45 11 9D 43 11 9D 54 11 9D 4F |. "S..E..C..T..O| 00000D40: 11 9D 52 11 9D 53 11 22 3B 00 6E 15 24 04 81 20 |..R..S.";.n.$.. | 00000D50: 4A B2 30 20 A4 20 32 30 3A 20 99 20 C9 28 C4 28 |J.0 . 20: . .(.(| 00000D60: 4A 29 2C 32 29 3B 22 91 9D 9D 22 3B 3A 82 00 7D |J),2);"...";:..}| 00000D70: 15 2E 04 8B 51 53 B2 31 A7 31 31 30 30 00 9F 15 |....QS.1.1100...| 00000D80: 38 04 A1 23 32 2C 41 24 3A A1 23 32 2C 41 24 3A |8..#2,A$:.#2,A$:| 00000D90: 20 A1 23 32 2C 41 24 3A 20 A1 23 32 2C 41 24 00 | .#2,A$: .#2,A$.| 00000DA0: B8 15 42 04 8B C6 28 41 24 AA C7 28 30 29 29 B2 |..B...(A$..(0)).| 00000DB0: 31 32 38 A7 51 32 B2 31 00 D8 15 4C 04 8B 51 32 |128.Q2.1...L..Q2| 00000DC0: B2 31 AF 51 53 B2 30 A7 99 A3 33 31 29 22 28 53 |.1.QS.0...31)"(S| 00000DD0: 49 44 45 20 31 29 22 3B 00 F8 15 56 04 8B 51 32 |IDE 1)";...V..Q2| 00000DE0: B2 31 AF 51 53 B2 31 A7 99 A3 33 31 29 22 28 53 |.1.QS.1...31)"(S| 00000DF0: 49 44 45 20 32 29 22 3B 00 11 16 60 04 8B 51 53 |IDE 2)";...`..QS| 00000E00: B2 30 A7 81 54 54 B2 31 A4 20 33 35 3A 54 B2 54 |.0..TT.1. 35:T.T| 00000E10: 54 00 2D 16 6A 04 8B 51 53 B2 31 A7 81 54 54 B2 |T.-.j..QS.1..TT.| 00000E20: 33 36 A4 37 30 3A 54 B2 54 54 AB 33 35 00 38 16 |36.70:T.TT.35.8.| 00000E30: 74 04 8D 20 31 33 31 30 00 58 16 7E 04 59 B2 32 |t.. 1310.X.~.Y.2| 00000E40: 32 3A 20 58 B2 54 AA 35 3A 20 8D 20 31 32 39 30 |2: X.T.5: . 1290| 00000E50: 3A 20 8D 20 31 33 37 30 00 6F 16 88 04 82 3A 8B |: . 1370.o....:.| 00000E60: 51 32 B2 31 AF 51 53 B2 31 A7 89 31 32 30 30 00 |Q2.1.QS.1..1200.| 00000E70: 8A 16 92 04 98 31 35 2C 22 42 2D 50 22 3B 32 3B |.....15,"B-P";2;| 00000E80: 31 34 34 3A 20 4E 24 B2 22 22 00 AE 16 9C 04 81 |144: N$.""......| 00000E90: 20 4A B2 31 20 A4 20 32 30 3A 20 A1 23 32 2C 41 | J.1 . 20: .#2,A| 00000EA0: 24 3A 20 4E 24 B2 4E 24 AA 41 24 3A 20 82 00 B9 |$: N$.N$.A$: ...| 00000EB0: 16 A6 04 8D 20 31 34 36 30 00 D5 16 B0 04 99 20 |.... 1460...... | 00000EC0: 59 24 3B 22 20 50 52 45 53 53 20 41 4E 59 20 4B |Y$;" PRESS ANY K| 00000ED0: 45 59 20 22 3B 00 EE 16 BA 04 A1 20 41 24 3A 20 |EY ";...... A$: | 00000EE0: 8B 20 41 24 B2 22 22 20 A7 20 31 32 30 30 00 07 |. A$."" . 1200..| 00000EF0: 17 C4 04 8B 51 32 B2 31 AF 51 53 B2 30 A7 51 53 |....Q2.1.QS.0.QS| 00000F00: B2 31 3A 89 39 37 30 00 31 17 CE 04 99 20 22 93 |.1:.970.1.... ".| 00000F10: 11 11 20 44 49 53 4B 20 48 45 41 44 45 52 20 3D |.. DISK HEADER =| 00000F20: 20 22 3B C7 28 33 34 29 3B 4E 24 3B C7 28 33 34 | ";.(34);N$;.(34| 00000F30: 29 00 49 17 D8 04 99 3A 99 46 3B 22 20 42 4C 4F |).I....:.F;" BLO| 00000F40: 43 4B 53 20 46 52 45 45 22 00 95 17 E2 04 8B 51 |CKS FREE"......Q| 00000F50: 53 B2 31 A7 99 22 11 11 1D 31 35 37 31 20 46 4F |S.1.."...1571 FO| 00000F60: 52 4D 41 54 20 44 49 53 4B 2E 22 3A 99 22 20 43 |RMAT DISK.":." C| 00000F70: 41 4E 20 4F 4E 4C 59 20 52 45 41 44 20 53 49 44 |AN ONLY READ SID| 00000F80: 45 20 4F 4E 45 20 4F 4E 20 54 48 49 53 20 44 52 |E ONE ON THIS DR| 00000F90: 49 56 45 2E 22 00 C6 17 EC 04 85 20 22 11 11 20 |IVE."...... ".. | 00000FA0: 56 49 45 57 20 41 4E 4F 54 48 45 52 20 44 49 53 |VIEW ANOTHER DIS| 00000FB0: 4B 45 54 54 45 20 28 59 2F 4E 29 20 3F 20 4E 9D |KETTE (Y/N) ? N.| 00000FC0: 9D 9D 22 3B 41 24 00 E4 17 F6 04 A0 20 32 3A 20 |..";A$...... 2: | 00000FD0: A0 20 31 35 3A 20 8B 41 24 B3 B1 22 4E 22 A7 20 |. 15: .A$.."N". | 00000FE0: 89 38 32 30 00 ED 17 00 05 89 31 33 30 00 07 18 |.820......130...| 00000FF0: 0A 05 99 20 C8 28 59 24 2C 59 29 3B C8 28 58 24 |... .(Y$,Y);.(X$| 00001000: 2C 58 29 22 9D 22 3B 00 0D 18 14 05 8E 00 1C 18 |,X)".";.........| 00001010: 1E 05 8B 51 53 B2 31 A7 31 33 33 30 00 27 18 28 |...QS.1.1330.'.(| 00001020: 05 A1 23 32 2C 43 24 00 2D 18 32 05 8F 00 47 18 |..#2,C$.-.2...G.| 00001030: 3C 05 A1 23 32 2C 41 24 3A 20 42 28 30 29 B2 C6 |<..#2,A$: B(0)..| 00001040: 28 41 24 AA 5A 24 29 00 61 18 46 05 A1 23 32 2C |(A$.Z$).a.F..#2,| 00001050: 41 24 3A 20 42 28 31 29 B2 C6 28 41 24 AA 5A 24 |A$: B(1)..(A$.Z$| 00001060: 29 00 7E 18 50 05 A1 23 32 2C 41 24 3A 20 42 28 |).~.P..#2,A$: B(| 00001070: 32 29 B2 C6 28 41 24 AA 5A 24 29 3A 20 8E 00 99 |2)..(A$.Z$): ...| 00001080: 18 5A 05 99 20 22 11 9D 22 3B 3A 20 54 24 B2 C9 |.Z.. "..";: T$..| 00001090: 28 C4 28 54 54 29 2C 32 29 00 B9 18 64 05 99 C9 |(.(TT),2)...d...| 000010A0: 28 54 24 2C 31 29 3B 22 9D 91 22 3B C8 28 54 24 |(T$,1);"..";.(T$| 000010B0: 2C 31 29 3B 22 9D 91 22 3B 00 D1 18 6E 05 4C B2 |,1);"..";...n.L.| 000010C0: 32 30 3A 20 8B 20 54 B1 31 37 20 A7 20 4C B2 31 |20: . T.17 . L.1| 000010D0: 38 00 E3 18 78 05 8B 20 54 B1 32 34 20 A7 20 4C |8...x.. T.24 . L| 000010E0: B2 31 37 00 F5 18 82 05 8B 20 54 B1 33 30 20 A7 |.17...... T.30 .| 000010F0: 20 4C B2 31 36 00 03 19 8C 05 81 20 53 B2 30 20 | L.16...... S.0 | 00001100: A4 20 4C 00 24 19 96 05 5A B2 32 AE 28 53 AB B5 |. L.$...Z.2.(S..| 00001110: 28 53 AD 38 29 AC 38 29 AF 28 42 28 B5 28 53 AD |(S.8).8).(B(.(S.| 00001120: 38 29 29 29 00 3F 19 A0 05 8B 20 5A B2 30 20 A7 |8))).?.... Z.0 .| 00001130: 20 99 20 22 D1 91 9D 22 3B 3A 20 82 3A 20 8E 00 | . "...";: .: ..| 00001140: 52 19 AA 05 99 20 22 2B 91 9D 22 3B 3A 20 82 3A |R.... "+..";: .:| 00001150: 20 8E 00 69 19 B4 05 9F 39 36 2C 55 2C 30 2C 22 | ..i....96,U,0,"| 00001160: 24 22 AA 44 24 AA 22 3A 22 00 82 19 BE 05 81 58 |$".D$.":"......X| 00001170: 58 B2 31 A4 33 34 3A A1 23 39 36 2C 41 24 3A 82 |X.1.34:.#96,A$:.| 00001180: 58 58 00 AD 19 C8 05 A1 23 39 36 2C 41 24 2C 42 |XX......#96,A$,B| 00001190: 24 3A 46 B2 C6 28 41 24 AA C7 28 30 29 29 AA 32 |$:F..(A$..(0)).2| 000011A0: 35 36 AC C6 28 42 24 AA C7 28 30 29 29 00 B7 19 |56..(B$..(0))...| 000011B0: D2 05 A0 39 36 3A 8E 00 D1 19 DC 05 8F 20 2A 2A |...96:....... **| 000011C0: 20 4E 45 57 20 4E 41 4D 45 20 26 20 49 44 20 2A | NEW NAME & ID *| 000011D0: 2A 00 03 1A E6 05 97 35 33 32 38 30 2C 30 3A 97 |*......53280,0:.| 000011E0: 35 33 32 38 31 2C 30 3A 99 22 93 9F 22 2C 22 A4 |53281,0:."..",".| 000011F0: A4 CE A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 CD |................| 00001200: A4 A4 22 00 31 1A F0 05 97 35 33 32 38 30 2C 30 |..".1....53280,0| 00001210: 3A 97 35 33 32 38 31 2C 30 3A 99 2C 22 A5 A5 A5 |:.53281,0:.,"...| 00001220: 4E 45 57 20 4E 41 4D 45 20 26 20 49 44 A7 A7 A7 |NEW NAME & ID...| 00001230: 22 00 5F 1A FA 05 97 35 33 32 38 30 2C 30 3A 97 |"._....53280,0:.| 00001240: 35 33 32 38 31 2C 30 3A 99 2C 22 A3 A3 CD A4 A4 |53281,0:.,".....| 00001250: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 CE A3 A3 22 00 |..............".| 00001260: 8C 1A 04 06 99 22 11 11 9C 20 20 20 20 20 20 20 |....."... | 00001270: 50 52 45 53 53 20 12 20 53 50 41 43 45 20 92 20 |PRESS . SPACE . | 00001280: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 A1 1A 0E |TO CONTINUE"....| 00001290: 06 A1 41 24 3A 8B 41 24 B2 22 20 22 A7 31 35 37 |..A$:.A$." ".157| 000012A0: 30 00 AB 1A 18 06 89 31 35 35 30 00 D0 1A 22 06 |0......1550...".| 000012B0: 9F 32 2C 38 2C 32 2C 22 23 22 3A 9F 31 2C 38 2C |.2,8,2,"#":.1,8,| 000012C0: 31 35 2C 22 55 31 20 32 20 30 20 31 38 20 30 22 |15,"U1 2 0 18 0"| 000012D0: 00 FF 1A 2C 06 99 22 13 11 11 11 11 11 20 20 20 |...,.."...... | 000012E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 00 | .".| 00001300: 12 1B 36 06 98 31 2C 22 42 2D 50 20 32 20 31 34 |..6..1,"B-P 2 14| 00001310: 34 22 00 49 1B 40 06 99 22 4E 41 4D 45 20 20 3A |4".I.@.."NAME :| 00001320: 20 20 22 3B 3A 81 58 B2 30 A4 31 36 3A A1 23 32 | ";:.X.0.16:.#2| 00001330: 2C 41 24 3A 99 41 24 3B 3A 82 3A 98 31 2C 22 42 |,A$:.A$;:.:.1,"B| 00001340: 2D 50 20 32 20 31 36 32 22 00 6B 1B 4A 06 A1 23 |-P 2 162".k.J..#| 00001350: 32 2C 41 24 2C 42 24 3A 99 3A 99 22 49 44 20 20 |2,A$,B$:.:."ID | 00001360: 20 20 3A 20 20 22 41 24 3B 42 24 00 8B 1B 54 06 | : "A$;B$...T.| 00001370: 98 31 2C 22 42 2D 50 20 32 20 32 22 3A 99 22 11 |.1,"B-P 2 2":.".| 00001380: 53 4F 46 54 57 41 52 45 20 22 3B 00 B4 1B 5E 06 |SOFTWARE ";...^.| 00001390: A1 23 32 2C 41 24 3A 8B 41 24 B3 B1 22 41 22 A7 |.#2,A$:.A$.."A".| 000013A0: 99 22 57 2F 50 20 49 53 20 4F 4E 21 21 22 3A 89 |."W/P IS ON!!":.| 000013B0: 31 38 30 30 00 C9 1B 68 06 99 22 57 2F 50 20 49 |1800...h.."W/P I| 000013C0: 53 20 4E 4F 54 20 4F 4E 22 00 16 1C 72 06 99 22 |S NOT ON"...r.."| 000013D0: 11 11 28 4E 29 2E 2E 2E 2E 2E 2E 4E 41 4D 45 9D |..(N)......NAME.| 000013E0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 11 28 49 29 |.............(I)| 000013F0: 2E 2E 2E 2E 2E 2E 2E 2E 49 44 9D 9D 9D 9D 9D 9D |........ID......| 00001400: 9D 9D 9D 9D 9D 9D 9D 11 28 5F 29 2E 2E 2E 2E 2E |........(_).....| 00001410: 2E 53 54 4F 50 22 00 2A 1C 7C 06 A1 43 24 3A 8B |.STOP".*.|..C$:.| 00001420: 43 24 B2 22 22 A7 31 36 36 30 00 3B 1C 86 06 8B |C$."".1660.;....| 00001430: 43 24 B2 22 49 22 A7 31 37 36 30 00 5B 1C 90 06 |C$."I".1760.[...| 00001440: 8B 43 24 B2 C7 28 39 35 29 A7 98 31 2C 22 49 22 |.C$..(95)..1,"I"| 00001450: 3A A0 31 3A A0 32 3A 89 31 33 30 00 6D 1C 9A 06 |:.1:.2:.130.m...| 00001460: 8B 43 24 B3 B1 22 4E 22 A7 31 37 39 30 00 96 1C |.C$.."N".1790...| 00001470: A4 06 85 22 11 11 4E 45 57 20 4E 41 4D 45 22 3B |..."..NEW NAME";| 00001480: 43 4F 24 3A 41 B2 C3 28 43 4F 24 29 3A 8B 41 B2 |CO$:A..(CO$):.A.| 00001490: 30 A7 31 37 39 30 00 A5 1C AE 06 8B 41 B1 31 36 |0.1790......A.16| 000014A0: A7 31 37 30 30 00 B4 1C B8 06 8B 41 B2 31 36 A7 |.1700......A.16.| 000014B0: 31 37 34 30 00 D3 1C C2 06 81 58 B2 31 A4 31 36 |1740......X.1.16| 000014C0: AB 41 3A 43 4F 24 B2 43 4F 24 AA C7 28 31 36 30 |.A:CO$.CO$..(160| 000014D0: 29 3A 82 00 E4 1C CC 06 4E 4F B2 31 34 34 3A 89 |):......NO.144:.| 000014E0: 31 37 38 30 00 07 1D D6 06 85 22 11 11 4E 45 57 |1780......"..NEW| 000014F0: 20 49 44 22 3B 43 4F 24 3A 8B C3 28 43 4F 24 29 | ID";CO$:..(CO$)| 00001500: B2 30 A7 31 37 39 30 00 1C 1D E0 06 8B 20 C3 28 |.0.1790...... .(| 00001510: 43 4F 24 29 B3 B1 32 A7 31 37 35 30 00 27 1D EA |CO$)..2.1750.'..| 00001520: 06 4E 4F B2 31 36 32 00 52 1D F4 06 98 31 2C 22 |.NO.162.R....1,"| 00001530: 42 2D 50 20 32 20 22 4E 4F 3A 98 32 2C 43 4F 24 |B-P 2 "NO:.2,CO$| 00001540: 3B 3A 98 31 2C 22 55 32 20 32 20 30 20 31 38 20 |;:.1,"U2 2 0 18 | 00001550: 30 22 00 62 1D FE 06 A0 31 3A A0 32 3A 89 31 35 |0".b....1:.2:.15| 00001560: 31 30 00 78 1D 08 07 98 31 2C 22 49 22 3A A0 31 |10.x....1,"I":.1| 00001570: 3A A0 32 3A 89 33 36 30 00 92 1D 12 07 8F 20 2A |:.2:.360...... *| 00001580: 2A 20 48 45 41 44 45 52 20 43 48 41 4E 47 45 20 |* HEADER CHANGE | 00001590: 2A 2A 00 B9 1D 1C 07 99 20 22 93 11 20 43 48 41 |**...... ".. CHA| 000015A0: 4E 47 45 20 44 49 53 4B 45 54 54 45 20 48 45 41 |NGE DISKETTE HEA| 000015B0: 44 45 52 2D 4E 41 4D 45 22 00 E1 1D 26 07 99 20 |DER-NAME"...&.. | 000015C0: 22 11 20 44 49 53 4B 20 55 4E 49 54 20 4E 52 20 |". DISK UNIT NR | 000015D0: 28 38 2D 31 35 29 20 3F A0 38 20 9D 9D 9D 9D 22 |(8-15) ?.8 ...."| 000015E0: 3B 00 09 1E 30 07 85 20 55 3A 20 8B 20 55 B3 38 |;...0.. U: . U.8| 000015F0: 20 B0 20 55 B1 31 35 20 A7 20 99 20 22 91 91 91 | . U.15 . . "...| 00001600: 22 3A 20 89 20 31 38 33 30 00 2F 1E 3A 07 99 20 |": . 1830./.:.. | 00001610: 22 11 20 44 49 53 4B 20 44 52 49 56 45 20 4E 52 |". DISK DRIVE NR| 00001620: 20 28 30 2F 31 29 20 3F A0 30 9D 9D 9D 22 3B 00 | (0/1) ?.0...";.| 00001630: 56 1E 44 07 85 20 44 3A 20 8B 20 44 B3 30 20 B0 |V.D.. D: . D.0 .| 00001640: 20 44 B1 31 20 A7 20 99 20 22 91 91 91 22 3A 20 | D.1 . . "...": | 00001650: 89 20 31 38 35 30 00 86 1E 4E 07 99 20 22 11 11 |. 1850...N.. "..| 00001660: 20 50 55 54 20 54 41 52 47 45 54 20 44 49 53 4B | PUT TARGET DISK| 00001670: 20 49 4E 20 55 4E 49 54 22 3B 55 3B 22 20 44 52 | IN UNIT";U;" DR| 00001680: 49 56 45 22 3B 44 00 AE 1E 58 07 99 20 22 20 54 |IVE";D...X.. " T| 00001690: 48 45 4E 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |HEN PRESS ANY KE| 000016A0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 C6 |Y TO CONTINUE"..| 000016B0: 1E 62 07 A1 20 58 24 3A 20 8B 20 58 24 B2 22 22 |.b.. X$: . X$.""| 000016C0: A7 20 31 38 39 30 00 E9 1E 6C 07 41 B2 31 3A 20 |. 1890...l.A.1: | 000016D0: 56 B2 31 36 3A 20 51 24 B2 C7 28 33 34 29 3A 20 |V.16: Q$..(34): | 000016E0: 50 24 B2 C7 28 31 36 30 29 00 09 1F 76 07 54 B2 |P$..(160)...v.T.| 000016F0: 31 38 3A 20 53 B2 30 3A 20 49 24 B2 22 49 22 AA |18: S.0: I$."I".| 00001700: C9 28 C4 28 44 29 2C 31 29 00 21 1F 80 07 9F 20 |.(.(D),1).!.... | 00001710: 31 2C 55 2C 31 35 2C 49 24 3A 20 8D 20 32 31 36 |1,U,15,I$: . 216| 00001720: 30 00 44 1F 8A 07 8D 20 32 31 32 30 3A 20 46 24 |0.D.... 2120: F$| 00001730: B2 48 24 3A 20 A1 23 32 2C 58 24 2C 58 24 2C 41 |.H$: .#2,X$,X$,A| 00001740: 24 2C 42 24 00 6E 1F 94 07 99 20 22 93 11 11 20 |$,B$.n.... "... | 00001750: 43 55 52 52 45 4E 54 20 48 45 41 44 45 52 2D 4E |CURRENT HEADER-N| 00001760: 41 4D 45 20 22 3B 51 24 3B 46 24 3B 51 24 00 8F |AME ";Q$;F$;Q$..| 00001770: 1F 9E 07 99 20 22 20 44 49 53 4B 45 54 54 45 20 |.... " DISKETTE | 00001780: 49 44 20 49 53 3A 20 20 22 3B 41 24 3B 42 24 00 |ID IS: ";A$;B$.| 00001790: C0 1F A8 07 99 20 22 11 20 4E 45 57 20 4E 41 4D |..... ". NEW NAM| 000017A0: 45 20 28 4D 41 58 20 31 36 20 43 48 41 52 41 43 |E (MAX 16 CHARAC| 000017B0: 54 45 52 53 29 20 4F 52 20 27 51 55 49 54 27 22 |TERS) OR 'QUIT'"| 000017C0: 00 F0 1F B2 07 85 20 22 20 3F 20 51 55 49 54 9D |...... " ? QUIT.| 000017D0: 9D 9D 9D 9D 9D 22 3B 4E 24 3A 20 4C B2 C3 28 4E |.....";N$: L..(N| 000017E0: 24 29 3A 20 8B 20 4C B1 56 20 A7 20 31 39 34 30 |$): . L.V . 1940| 000017F0: 00 11 20 BC 07 8B 20 4E 24 B2 22 51 55 49 54 22 |.. ... N$."QUIT"| 00001800: 20 A7 20 99 20 22 93 22 3B 3A 20 89 20 32 31 38 | . . ".";: . 218| 00001810: 30 00 45 20 C6 07 99 20 22 11 20 4F 4B 20 54 4F |0.E ... ". OK TO| 00001820: 20 57 52 49 54 45 20 4E 45 57 20 48 45 41 44 45 | WRITE NEW HEADE| 00001830: 52 2D 4E 41 4D 45 20 28 59 2F 4E 29 20 3F 20 59 |R-NAME (Y/N) ? Y| 00001840: 9D 9D 9D 22 3B 00 60 20 D0 07 85 20 58 24 3A 20 |...";.` ... X$: | 00001850: 8B 20 58 24 B3 B1 22 59 22 20 A7 20 31 39 34 30 |. X$.."Y" . 1940| 00001860: 00 71 20 DA 07 8B 20 4C B2 56 20 A7 20 32 30 33 |.q ... L.V . 203| 00001870: 30 00 8E 20 E4 07 81 20 58 B2 4C AA 41 20 A4 20 |0.. ... X.L.A . | 00001880: 56 3A 20 4E 24 B2 4E 24 AA 50 24 3A 20 82 00 AA |V: N$.N$.P$: ...| 00001890: 20 EE 07 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 31 | ...1,"B-P:";2;1| 000018A0: 34 34 3A 20 98 32 2C 4E 24 3B 00 C7 20 F8 07 98 |44: .2,N$;.. ...| 000018B0: 31 2C 22 55 32 3A 22 3B 32 3B 44 3B 54 3B 53 3A |1,"U2:";2;D;T;S:| 000018C0: 20 8D 20 32 31 36 30 00 DE 20 02 08 98 31 2C 49 | . 2160.. ...1,I| 000018D0: 24 3A 20 8D 20 32 31 36 30 3A 20 A0 20 32 00 02 |$: . 2160: . 2..| 000018E0: 21 0C 08 99 20 22 11 20 4F 4C 44 20 48 45 41 44 |!... ". OLD HEAD| 000018F0: 45 52 2D 4E 41 4D 45 20 22 3B 51 24 3B 46 24 3B |ER-NAME ";Q$;F$;| 00001900: 51 24 00 17 21 16 08 8D 20 32 31 32 30 3A 20 A0 |Q$..!... 2120: .| 00001910: 20 32 3A 20 A0 20 31 00 3B 21 20 08 99 20 22 11 | 2: . 1.;! .. ".| 00001920: 20 4E 45 57 20 48 45 41 44 45 52 2D 4E 41 4D 45 | NEW HEADER-NAME| 00001930: 20 22 3B 51 24 3B 48 24 3B 51 24 00 6B 21 2A 08 | ";Q$;H$;Q$.k!*.| 00001940: 99 20 22 11 20 43 48 41 4E 47 45 20 41 4E 4F 54 |. ". CHANGE ANOT| 00001950: 48 45 52 20 44 49 53 4B 45 54 54 45 20 28 59 2F |HER DISKETTE (Y/| 00001960: 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 85 21 34 08 |N) ? Y...";..!4.| 00001970: 85 20 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 A7 |. X$: . X$."Y" .| 00001980: 20 31 38 37 30 00 95 21 3E 08 99 20 22 93 22 3B | 1870..!>.. ".";| 00001990: 3A 89 31 33 30 00 B4 21 48 08 9F 20 32 2C 55 2C |:.130..!H.. 2,U,| 000019A0: 32 2C 22 23 22 3A 20 8D 20 32 31 36 30 3A 20 48 |2,"#": . 2160: H| 000019B0: 24 B2 22 22 00 D1 21 52 08 98 31 2C 22 55 31 3A |$.""..!R..1,"U1:| 000019C0: 22 3B 32 3B 44 3B 54 3B 53 3A 20 8D 20 32 31 36 |";2;D;T;S: . 216| 000019D0: 30 00 F0 21 5C 08 98 31 2C 22 42 2D 50 3A 22 3B |0..!\..1,"B-P:";| 000019E0: 32 3B 31 34 34 3A 20 81 20 58 B2 41 20 A4 20 56 |2;144: . X.A . V| 000019F0: 00 0B 22 66 08 A1 23 32 2C 54 24 3A 20 48 24 B2 |.."f..#2,T$: H$.| 00001A00: 48 24 AA 54 24 3A 20 82 3A 20 8E 00 25 22 70 08 |H$.T$: .: ..%"p.| 00001A10: 84 31 2C 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 45 B2 |.1,E,M$,J,K:. E.| 00001A20: 30 20 A7 20 8E 00 4B 22 7A 08 99 20 22 11 20 45 |0 . ..K"z.. ". E| 00001A30: 52 52 4F 52 3A 20 22 3B 45 3B 4D 24 3B 4A 3B 4B |RROR: ";E;M$;J;K| 00001A40: 3A A0 32 3A A0 31 3A 89 33 36 30 00 5D 22 84 08 |:.2:.1:.360.]"..| 00001A50: A0 20 32 3A 20 A0 20 31 3A 89 31 33 30 00 76 22 |. 2: . 1:.130.v"| 00001A60: 8E 08 8F 20 2A 2A 20 57 52 49 54 45 50 52 4F 54 |... ** WRITEPROT| 00001A70: 45 43 54 20 2A 2A 00 B8 22 98 08 99 22 93 9F 20 |ECT **.."...".. | 00001A80: 20 CE A3 CD CE A3 CD CE A3 CD CE A3 CD CE A3 CD | ...............| 00001A90: CE A3 CD CE A3 CD CE A3 CD CE A3 CD CE A3 CD CE |................| 00001AA0: A3 CD CE A3 CD 22 3A 97 35 33 32 38 30 2C 30 3A |.....":.53280,0:| 00001AB0: 97 35 33 32 38 31 2C 30 00 E8 22 A2 08 99 22 20 |.53281,0.."..." | 00001AC0: 20 A5 20 A7 A5 20 A7 A5 20 A7 A5 20 A7 9E 57 52 | . .. .. .. ..WR| 00001AD0: 49 54 45 50 52 4F 54 45 43 54 9F A5 20 A7 A5 20 |ITEPROTECT.. .. | 00001AE0: AA A5 20 A7 A5 20 A7 22 00 16 23 AC 08 99 22 20 |.. .. ."..#..." | 00001AF0: 20 CD A4 CE CD A4 CE CD A4 CE CD A4 CE CD A4 CE | ...............| 00001B00: CD A4 CE CD A4 CE CD A4 CE CD A4 CE CD A4 CE CD |................| 00001B10: A4 CE CD A4 CE 22 00 47 23 B6 08 99 22 11 11 20 |.....".G#...".. | 00001B20: 53 45 54 20 41 20 50 52 4F 54 45 43 54 20 4F 52 |SET A PROTECT OR| 00001B30: 20 54 41 4B 45 20 41 57 41 59 20 54 48 45 20 50 | TAKE AWAY THE P| 00001B40: 52 4F 54 45 43 54 22 00 70 23 C0 08 99 2C 22 11 |ROTECT".p#...,".| 00001B50: 9D 9D 9D 50 52 45 53 53 20 12 20 53 50 41 43 45 |...PRESS . SPACE| 00001B60: 20 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 | . TO CONTINUE."| 00001B70: 00 86 23 CA 08 A1 43 24 3A 8B 43 24 B3 B1 22 20 |..#...C$:.C$.." | 00001B80: 22 A7 32 32 35 30 00 AD 23 D4 08 85 22 11 11 57 |".2250..#..."..W| 00001B90: 48 49 54 43 48 20 44 45 56 49 43 45 20 28 38 2D |HITCH DEVICE (8-| 00001BA0: 31 31 29 20 20 38 9D 9D 9D 22 3B 43 24 00 D1 23 |11) 8...";C$..#| 00001BB0: DE 08 43 B2 C5 28 43 24 29 3A 8B 43 B3 38 AF 43 |..C..(C$):.C.8.C| 00001BC0: B1 31 31 A7 99 22 91 91 22 3A 89 32 32 36 30 3A |.11.."..":.2260:| 00001BD0: 99 00 E0 23 E8 08 9F 31 2C 43 2C 32 2C 22 23 22 |...#...1,C,2,"#"| 00001BE0: 00 EC 23 F2 08 9F 32 2C 43 2C 31 35 00 01 24 FC |..#...2,C,15..$.| 00001BF0: 08 98 32 2C 22 55 31 20 32 20 30 20 31 38 20 30 |..2,"U1 2 0 18 0| 00001C00: 22 00 12 24 06 09 98 32 2C 22 42 2D 50 20 32 20 |"..$...2,"B-P 2 | 00001C10: 32 22 00 1D 24 10 09 A1 23 31 2C 41 24 00 4B 24 |2"..$...#1,A$.K$| 00001C20: 1A 09 42 24 B2 22 41 22 3A 99 22 11 54 41 4B 49 |..B$."A":.".TAKI| 00001C30: 4E 47 20 41 57 41 59 20 50 52 4F 54 45 43 54 49 |NG AWAY PROTECTI| 00001C40: 4F 4E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 81 24 24 09 |ON........"..$$.| 00001C50: 8B 41 24 B2 22 41 22 A7 42 24 B2 22 42 22 3A 99 |.A$."A".B$."B":.| 00001C60: 22 91 53 45 54 54 49 4E 47 20 55 50 20 41 20 50 |".SETTING UP A P| 00001C70: 52 4F 54 45 43 54 49 4F 4E 2E 2E 2E 2E 2E 2E 2E |ROTECTION.......| 00001C80: 22 00 9F 24 2E 09 98 32 2C 22 4D 2D 57 22 C7 28 |"..$...2,"M-W".(| 00001C90: 31 29 C7 28 31 29 C7 28 31 29 C7 28 36 35 29 00 |1).(1).(1).(65).| 00001CA0: B0 24 38 09 98 32 2C 22 42 2D 50 20 32 20 32 22 |.$8..2,"B-P 2 2"| 00001CB0: 00 BB 24 42 09 98 31 2C 42 24 3B 00 D0 24 4C 09 |..$B..1,B$;..$L.| 00001CC0: 98 32 2C 22 55 32 20 32 20 30 20 31 38 20 30 22 |.2,"U2 2 0 18 0"| 00001CD0: 00 DA 24 56 09 A0 31 3A A0 32 00 EB 24 60 09 99 |..$V..1:.2..$`..| 00001CE0: 2C 2C 2C 22 9E 91 4F 4B 21 9F 22 00 1B 25 6A 09 |,,,"..OK!."..%j.| 00001CF0: 85 22 11 57 41 4E 54 20 54 4F 20 50 52 4F 54 45 |.".WANT TO PROTE| 00001D00: 43 54 20 41 4E 59 20 4D 4F 52 45 20 44 49 53 43 |CT ANY MORE DISC| 00001D10: 53 20 20 59 9D 9D 9D 22 3B 43 24 00 2D 25 74 09 |S Y...";C$.-%t.| 00001D20: 8B 43 24 B2 22 59 22 A7 89 32 32 30 30 00 47 25 |.C$."Y"..2200.G%| 00001D30: 7E 09 8B 43 24 B3 B1 22 4E 22 A7 99 22 91 91 91 |~..C$.."N".."...| 00001D40: 22 3A 89 32 34 31 30 00 50 25 88 09 89 31 33 30 |":.2410.P%...130| 00001D50: 00 66 25 92 09 8F 20 2A 2A 20 55 4E 53 43 52 41 |.f%... ** UNSCRA| 00001D60: 54 43 48 20 2A 2A 00 93 25 9C 09 99 22 93 22 2C |TCH **..%...".",| 00001D70: 22 20 20 20 20 20 55 4E 53 43 52 41 54 43 48 22 |" UNSCRATCH"| 00001D80: 3A 99 2C 22 20 20 20 20 20 A3 A3 A3 A3 A3 A3 A3 |:.," .......| 00001D90: A3 A3 22 00 B9 25 A6 09 99 20 22 11 20 52 45 56 |.."..%... ". REV| 00001DA0: 49 56 45 20 53 43 52 41 54 43 48 45 44 20 44 49 |IVE SCRATCHED DI| 00001DB0: 53 4B 20 46 49 4C 45 53 22 00 E2 25 B0 09 99 20 |SK FILES"..%... | 00001DC0: 22 11 11 20 44 49 53 4B 20 55 4E 49 54 20 4E 52 |".. DISK UNIT NR| 00001DD0: 20 28 38 2D 31 35 29 20 3F A0 38 20 9D 9D 9D 9D | (8-15) ?.8 ....| 00001DE0: 22 3B 00 0A 26 BA 09 85 20 55 3A 20 8B 20 55 B3 |";..&... U: . U.| 00001DF0: 38 20 B0 20 55 B1 31 35 20 A7 20 99 20 22 91 91 |8 . U.15 . . "..| 00001E00: 91 22 3A 20 89 20 32 34 38 30 00 35 26 C4 09 99 |.": . 2480.5&...| 00001E10: 20 22 11 20 44 49 53 4B 20 44 52 49 56 45 20 4E | ". DISK DRIVE N| 00001E20: 52 20 28 30 2F 31 29 20 3F A0 30 9D 9D 9D 22 3B |R (0/1) ?.0...";| 00001E30: 3A 20 47 B2 30 00 5C 26 CE 09 85 20 44 3A 20 8B |: G.0.\&... D: .| 00001E40: 20 44 B3 30 20 B0 20 44 B1 31 20 A7 20 99 20 22 | D.0 . D.1 . . "| 00001E50: 91 91 91 22 3A 20 89 20 32 35 30 30 00 8B 26 D8 |...": . 2500..&.| 00001E60: 09 99 20 22 11 11 20 50 55 54 20 54 41 52 47 45 |.. ".. PUT TARGE| 00001E70: 54 20 44 49 53 4B 20 49 4E 20 55 4E 49 54 22 3B |T DISK IN UNIT";| 00001E80: 55 3B 22 44 52 49 56 45 22 3B 44 00 B3 26 E2 09 |U;"DRIVE";D..&..| 00001E90: 99 20 22 20 54 48 45 4E 20 50 52 45 53 53 20 41 |. " THEN PRESS A| 00001EA0: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN| 00001EB0: 55 45 22 00 CB 26 EC 09 A1 20 58 24 3A 20 8B 20 |UE"..&... X$: . | 00001EC0: 58 24 B2 22 22 A7 20 32 35 34 30 00 F9 26 F6 09 |X$."". 2540..&..| 00001ED0: 99 20 22 93 11 20 45 4E 54 45 52 20 53 43 52 41 |. ".. ENTER SCRA| 00001EE0: 54 43 48 45 44 20 46 49 4C 45 2D 4E 41 4D 45 20 |TCHED FILE-NAME | 00001EF0: 28 4F 52 20 45 4E 44 29 22 00 29 27 00 0A 99 20 |(OR END)".)'... | 00001F00: 22 20 55 53 45 20 2A 20 41 54 20 4E 41 4D 45 2D |" USE * AT NAME-| 00001F10: 45 4E 44 20 46 4F 52 20 57 49 4C 44 2D 43 41 52 |END FOR WILD-CAR| 00001F20: 44 20 53 45 41 52 43 48 22 00 53 27 0A 0A 85 20 |D SEARCH".S'... | 00001F30: 22 20 3F 20 45 4E 44 9D 9D 9D 9D 9D 22 3B 4E 24 |" ? END.....";N$| 00001F40: 3A 20 8B 20 4E 24 B2 22 45 4E 44 22 20 A7 20 33 |: . N$."END" . 3| 00001F50: 30 30 30 00 79 27 14 0A 56 B2 31 36 3A 20 51 B2 |000.y'..V.16: Q.| 00001F60: 33 32 3A 20 46 B2 32 35 36 3A 20 54 B2 31 38 3A |32: F.256: T.18:| 00001F70: 20 53 B2 31 3A 20 57 B2 30 00 93 27 1E 0A 5A 24 | S.1: W.0..'..Z$| 00001F80: B2 C7 28 30 29 3A 20 44 24 B2 C9 28 C4 28 44 29 |..(0): D$..(.(D)| 00001F90: 2C 31 29 00 AB 27 28 0A 4E 24 B2 C8 28 4E 24 2C |,1)..'(.N$..(N$,| 00001FA0: 56 29 3A 20 4C B2 C3 28 4E 24 29 00 C5 27 32 0A |V): L..(N$)..'2.| 00001FB0: 8B 20 C9 28 4E 24 2C 31 29 B3 B1 22 2A 22 20 A7 |. .(N$,1).."*" .| 00001FC0: 20 32 36 33 30 00 E7 27 3C 0A 4C B2 4C AB 31 3A | 2630..'<.L.L.1:| 00001FD0: 20 4E 24 B2 C8 28 4E 24 2C 4C 29 3A 20 57 B2 31 | N$..(N$,L): W.1| 00001FE0: 3A 89 20 32 36 35 30 00 F8 27 46 0A 8B 20 4C B2 |:. 2650..'F.. L.| 00001FF0: 56 20 A7 20 32 36 35 30 00 1E 28 50 0A 81 20 58 |V . 2650..(P.. X| 00002000: B2 4C AA 31 20 A4 20 56 3A 20 4E 24 B2 4E 24 AA |.L.1 . V: N$.N$.| 00002010: C7 28 31 36 30 29 3A 20 82 3A 20 4C B2 56 00 3A |.(160): .: L.V.:| 00002020: 28 5A 0A 9F 20 31 2C 55 2C 31 35 2C 22 49 22 AA |(Z.. 1,U,15,"I".| 00002030: 44 24 3A 20 8D 20 32 39 38 30 00 52 28 64 0A 9F |D$: . 2980.R(d..| 00002040: 20 32 2C 55 2C 32 2C 22 23 22 3A 20 8D 20 32 39 | 2,U,2,"#": . 29| 00002050: 38 30 00 6F 28 6E 0A 98 31 2C 22 55 31 3A 22 3B |80.o(n..1,"U1:";| 00002060: 32 3B 44 3B 54 3B 53 3A 20 8D 20 32 39 38 30 00 |2;D;T;S: . 2980.| 00002070: 8C 28 78 0A 98 31 2C 22 42 2D 50 3A 22 3B 32 3B |.(x..1,"B-P:";2;| 00002080: 30 3A 20 A1 23 32 2C 41 24 2C 42 24 00 AE 28 82 |0: .#2,A$,B$..(.| 00002090: 0A 54 52 B2 C6 28 41 24 AA 5A 24 29 3A 20 53 43 |.TR..(A$.Z$): SC| 000020A0: B2 C6 28 42 24 AA 5A 24 29 3A 20 48 B2 32 00 C8 |..(B$.Z$): H.2..| 000020B0: 28 8C 0A 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 48 |(...1,"B-P:";2;H| 000020C0: 3A 20 A1 23 32 2C 54 24 00 E5 28 96 0A 43 B2 C6 |: .#2,T$..(..C..| 000020D0: 28 54 24 AA 5A 24 29 3A 20 8B 20 43 B1 30 20 A7 |(T$.Z$): . C.0 .| 000020E0: 20 32 37 35 30 00 05 29 A0 0A A1 23 32 2C 41 24 | 2750..)...#2,A$| 000020F0: 2C 42 24 3A 20 46 24 B2 22 22 3A 20 81 20 58 B2 |,B$: F$."": . X.| 00002100: 31 20 A4 20 56 00 2D 29 AA 0A A1 23 32 2C 54 24 |1 . V.-)...#2,T$| 00002110: 3A 20 46 24 B2 46 24 AA 54 24 3A 20 82 3A 20 8B |: F$.F$.T$: .: .| 00002120: 20 46 24 B2 22 22 20 A7 20 32 37 37 30 00 4B 29 | F$."" . 2770.K)| 00002130: B4 0A 8B 20 4C B2 30 20 B0 20 4E 24 B2 C8 28 46 |... L.0 . N$..(F| 00002140: 24 2C 4C 29 20 A7 20 32 38 32 30 00 63 29 BE 0A |$,L) . 2820.c)..| 00002150: 48 B2 48 AA 51 3A 20 8B 20 48 B3 46 20 A7 20 32 |H.H.Q: . H.F . 2| 00002160: 37 30 30 00 83 29 C8 0A 8B 20 54 52 B1 30 20 A7 |700..)... TR.0 .| 00002170: 20 54 B2 54 52 3A 20 53 B2 53 43 3A 20 89 20 32 | T.TR: S.SC: . 2| 00002180: 36 37 30 00 AC 29 D2 0A 8B 20 57 20 A7 20 99 20 |670..)... W . . | 00002190: 22 11 20 45 4E 44 20 4F 46 20 44 49 52 45 43 54 |". END OF DIRECT| 000021A0: 4F 52 59 22 3A 20 89 20 32 39 35 30 00 CC 29 DC |ORY": . 2950..).| 000021B0: 0A 99 20 22 11 20 54 48 45 52 45 20 49 53 20 4E |.. ". THERE IS N| 000021C0: 4F 20 53 43 52 41 54 43 48 45 44 22 00 EE 29 E6 |O SCRATCHED"..).| 000021D0: 0A 99 20 22 20 46 49 4C 45 20 57 49 54 48 20 54 |.. " FILE WITH T| 000021E0: 48 45 20 4E 41 4D 45 3A 20 20 22 3B 4E 24 00 08 |HE NAME: ";N$..| 000021F0: 2A F0 0A 99 20 22 20 49 4E 20 54 48 45 20 44 49 |*... " IN THE DI| 00002200: 52 45 43 54 4F 52 59 22 00 24 2A FA 0A 81 20 58 |RECTORY".$*... X| 00002210: B2 31 20 A4 20 34 30 30 30 3A 20 82 3A 20 89 20 |.1 . 4000: .: . | 00002220: 32 39 37 30 00 3F 2A 04 0B 41 B2 C6 28 41 24 AA |2970.?*..A..(A$.| 00002230: 5A 24 29 3A 20 42 B2 C6 28 42 24 AA 5A 24 29 00 |Z$): B..(B$.Z$).| 00002240: 5A 2A 0E 0B 99 20 22 11 20 46 4F 55 4E 44 20 46 |Z*... ". FOUND F| 00002250: 49 4C 45 3A 20 20 22 3B 46 24 00 7A 2A 18 0B 99 |ILE: ";F$.z*...| 00002260: 20 22 20 41 54 20 54 52 41 43 4B 22 3B 41 3B 22 | " AT TRACK";A;"| 00002270: 20 53 45 43 54 4F 52 22 3B 42 00 AB 2A 22 0B 99 | SECTOR";B..*"..| 00002280: 20 22 11 20 57 41 4E 54 20 54 4F 20 52 45 56 49 | ". WANT TO REVI| 00002290: 56 45 20 54 48 49 53 20 46 49 4C 45 20 28 59 2F |VE THIS FILE (Y/| 000022A0: 4E 29 20 3F 20 59 9D 9D 9D 22 3B 00 C5 2A 2C 0B |N) ? Y...";..*,.| 000022B0: 85 20 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 A7 |. X$: . X$."Y" .| 000022C0: 20 32 38 39 30 00 D4 2A 36 0B 8B 20 57 20 A7 20 | 2890..*6.. W . | 000022D0: 32 37 35 30 00 DE 2A 40 0B 89 32 39 35 30 00 03 |2750..*@..2950..| 000022E0: 2B 4A 0B 99 20 22 11 20 31 3D 53 45 51 20 20 32 |+J.. ". 1=SEQ 2| 000022F0: 3D 50 52 47 20 20 33 3D 55 53 52 20 20 34 3D 52 |=PRG 3=USR 4=R| 00002300: 45 4C 22 00 2A 2B 54 0B 99 20 22 20 45 4E 54 45 |EL".*+T.. " ENTE| 00002310: 52 20 46 49 4C 45 2D 54 59 50 45 20 28 31 2D 34 |R FILE-TYPE (1-4| 00002320: 29 20 3F 20 31 9D 9D 9D 22 3B 00 50 2B 5E 0B 85 |) ? 1...";.P+^..| 00002330: 20 50 3A 20 8B 20 50 B3 31 20 B0 20 50 B1 34 20 | P: . P.1 . P.4 | 00002340: A7 20 99 20 22 91 91 22 3A 20 89 20 32 38 37 30 |. . "..": . 2870| 00002350: 00 70 2B 68 0B 98 31 2C 22 42 2D 50 3A 22 3B 32 |.p+h..1,"B-P:";2| 00002360: 3B 48 3A 20 98 32 2C C7 28 50 AA 31 32 38 29 3B |;H: .2,.(P.128);| 00002370: 00 90 2B 72 0B 98 31 2C 22 55 32 3A 22 3B 32 3B |..+r..1,"U2:";2;| 00002380: 44 3B 54 3B 53 3A 8D 20 32 39 38 30 3A 47 B2 31 |D;T;S:. 2980:G.1| 00002390: 00 BE 2B 7C 0B 99 20 22 11 20 55 4E 2D 53 43 52 |..+|.. ". UN-SCR| 000023A0: 41 54 43 48 45 44 20 46 49 4C 45 3A 20 20 22 3B |ATCHED FILE: ";| 000023B0: 46 24 3A 20 8B 20 57 20 A7 20 32 37 35 30 00 E8 |F$: . W . 2750..| 000023C0: 2B 86 0B 99 20 22 11 20 52 45 56 49 56 45 20 4D |+... ". REVIVE M| 000023D0: 4F 52 45 20 46 49 4C 45 53 20 28 59 2F 4E 29 20 |ORE FILES (Y/N) | 000023E0: 3F 20 59 9D 9D 9D 22 3B 00 03 2C 90 0B 85 20 58 |? Y...";..,... X| 000023F0: 24 3A 20 8B 20 58 24 B3 B1 22 59 22 20 A7 20 33 |$: . X$.."Y" . 3| 00002400: 30 30 30 00 18 2C 9A 0B A0 20 32 3A 20 A0 20 31 |000..,... 2: . 1| 00002410: 3A 20 89 20 32 35 35 30 00 32 2C A4 0B 84 31 2C |: . 2550.2,...1,| 00002420: 45 2C 4D 24 2C 4A 2C 4B 3A 8B 20 45 B2 30 20 A7 |E,M$,J,K:. E.0 .| 00002430: 20 8E 00 4D 2C AE 0B 99 20 22 11 20 45 52 52 4F | ..M,... ". ERRO| 00002440: 52 3A 20 22 3B 45 3B 4D 24 3B 4A 3B 4B 00 67 2C |R: ";E;M$;J;K.g,| 00002450: B8 0B A0 20 32 3A 20 A0 20 31 3A 20 8B 20 47 B2 |... 2: . 1: . G.| 00002460: 30 20 A7 20 31 33 30 00 88 2C C2 0B 99 20 22 93 |0 . 130..,... ".| 00002470: 11 20 52 45 2D 42 55 49 4C 44 49 4E 47 20 56 41 |. RE-BUILDING VA| 00002480: 4C 49 44 20 42 41 4D 22 00 AB 2C CC 0B 99 20 22 |LID BAM"..,... "| 00002490: 20 4F 4E 20 44 49 53 4B 2D 55 4E 49 54 22 3B 55 | ON DISK-UNIT";U| 000024A0: 3B 22 20 44 52 49 56 45 22 3B 44 00 C9 2C D6 0B |;" DRIVE";D..,..| 000024B0: 9F 20 31 2C 55 2C 31 35 2C 22 56 22 AA 44 24 3A |. 1,U,15,"V".D$:| 000024C0: 20 A0 20 31 3A 89 31 33 30 00 08 2D 44 0C 97 35 | . 1:.130..-D..5| 000024D0: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 31 31 |3280,0:.53281,11| 000024E0: 3A 99 22 93 22 3B 3A 99 A3 37 29 22 9F C0 C0 C0 |:.".";:..7)"....| 000024F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002500: C0 C0 C0 C0 C0 C0 C0 22 00 35 2D 4E 0C 99 A3 37 |.......".5-N...7| 00002510: 29 22 C0 11 9D C0 20 05 4F 4C 53 53 4F 4E 53 20 |)".... .OLSSONS | 00002520: 50 52 4F 47 52 41 4D 20 46 49 4E 44 45 52 20 9F |PROGRAM FINDER .| 00002530: C0 91 9D C0 22 00 64 2D 58 0C 99 A3 37 29 22 11 |....".d-X...7)".| 00002540: C0 11 9D C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00002550: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 91 9D C0 |................| 00002560: 11 22 3A 8C 00 7D 2D 62 0C 85 22 9E 11 49 4E 50 |.":..}-b.."..INP| 00002570: 55 54 20 4C 45 54 54 45 52 22 3B 46 24 00 8E 2D |UT LETTER";F$..-| 00002580: 6C 0C 87 41 24 2C 42 24 2C 43 24 2C 44 24 00 B7 |l..A$,B$,C$,D$..| 00002590: 2D 76 0C 8B 41 24 B2 22 2A 22 AF 42 24 B2 22 2A |-v..A$."*".B$."*| 000025A0: 22 A7 8B 43 24 B2 22 2A 22 AF 44 24 B2 22 2A 22 |"..C$."*".D$."*"| 000025B0: A7 20 89 33 33 30 30 00 D2 2D 80 0C 8B 46 24 B3 |. .3300..-...F$.| 000025C0: B1 C8 28 41 24 2C C3 28 46 24 29 29 A7 20 33 31 |..(A$,.(F$)). 31| 000025D0: 38 30 00 DC 2D 8A 0C 99 22 93 9F 22 00 F6 2D 94 |80..-...".."..-.| 000025E0: 0C 99 22 47 41 4D 45 20 4E 41 4D 45 20 20 20 20 |.."GAME NAME | 000025F0: 3A 20 22 3B 41 24 00 10 2E 9E 0C 99 22 42 4C 4F |: ";A$......"BLO| 00002600: 43 4B 20 20 20 20 20 20 20 20 3A 20 22 3B 42 24 |CK : ";B$| 00002610: 00 2A 2E A8 0C 99 22 44 49 53 4B 20 4E 55 4D 42 |.*...."DISK NUMB| 00002620: 45 52 20 20 3A 20 22 3B 43 24 00 48 2E B2 0C 99 |ER : ";C$.H....| 00002630: 22 12 49 53 20 54 48 49 53 20 52 49 47 48 54 3F |".IS THIS RIGHT?| 00002640: 92 20 28 59 2F 4E 29 22 00 5C 2E BC 0C A1 5A 24 |. (Y/N)".\....Z$| 00002650: 3A 8B 5A 24 B2 22 22 A7 33 32 36 30 00 76 2E C6 |:.Z$."".3260.v..| 00002660: 0C 8B 5A 24 B2 22 59 22 B0 5A 24 B2 C7 28 31 33 |..Z$."Y".Z$..(13| 00002670: 29 A7 33 33 38 30 00 91 2E D0 0C 8B 5A 24 B2 22 |).3380......Z$."| 00002680: 4E 22 B0 5A 24 B2 C7 28 33 32 29 A7 89 33 31 38 |N".Z$..(32)..318| 00002690: 30 00 9B 2E DA 0C 89 33 32 36 30 00 CE 2E E4 0C |0......3260.....| 000026A0: 99 22 93 99 11 11 11 20 20 49 20 48 41 56 45 20 |."..... I HAVE | 000026B0: 20 47 4F 4E 45 20 54 48 52 4F 57 20 41 4C 4C 20 | GONE THROW ALL | 000026C0: 54 48 45 20 50 52 4F 47 52 41 4D 53 2E 22 00 EB |THE PROGRAMS."..| 000026D0: 2E EE 0C 99 A3 31 32 29 22 11 49 20 43 41 4E 27 |.....12)".I CAN'| 000026E0: 54 20 46 49 4E 44 20 49 54 2E 22 00 32 2F F8 0C |T FIND IT.".2/..| 000026F0: 99 22 11 20 20 20 20 44 4F 20 59 4F 55 20 57 41 |.". DO YOU WA| 00002700: 4E 54 20 49 54 20 41 44 44 45 44 20 54 4F 20 54 |NT IT ADDED TO T| 00002710: 48 45 20 4C 49 53 54 9D 9D 9D 9D 9D 9D 9D 9D 9D |HE LIST.........| 00002720: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 11 11 28 59 2F 4E |............(Y/N| 00002730: 29 22 00 46 2F 02 0D A1 5A 24 3A 8B 5A 24 B2 22 |)".F/...Z$:.Z$."| 00002740: 22 A7 33 33 33 30 00 57 2F 0C 0D 8B 5A 24 B2 22 |".3330.W/...Z$."| 00002750: 59 22 A7 33 33 36 30 00 68 2F 16 0D 8B 5A 24 B3 |Y".3360.h/...Z$.| 00002760: B1 22 59 22 A7 31 33 30 00 77 2F 20 0D 81 49 B2 |."Y".130.w/ ..I.| 00002770: 31 A4 34 30 30 3A 82 00 80 2F 2A 0D 89 31 32 30 |1.400:.../*..120| 00002780: 00 B3 2F 34 0D 99 22 93 12 20 20 20 20 20 20 20 |../4..".. | 00002790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000027A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000027B0: 20 91 22 00 F9 2F 3E 0D 99 22 12 20 4E 41 4D 45 | ."../>..". NAME| 000027C0: 20 4F 46 20 50 52 4F 47 52 41 4D 20 20 20 20 3A | OF PROGRAM :| 000027D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000027E0: 20 20 20 91 22 A3 33 30 AB B5 28 C3 28 41 24 29 | .".30..(.(A$)| 000027F0: AA 2E 35 29 AD 32 29 41 24 00 2A 30 48 0D 99 22 |..5).2)A$.*0H.."| 00002800: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00002810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002820: 20 20 20 20 20 20 20 20 20 22 00 70 30 52 0D 99 | ".p0R..| 00002830: 22 12 20 4F 4E 20 44 49 53 4B 20 20 20 20 20 20 |". ON DISK | 00002840: 20 20 20 20 20 20 3A 20 20 20 20 20 20 20 20 20 | : | 00002850: 20 20 20 20 20 20 20 20 20 20 91 22 A3 33 30 AB | .".30.| 00002860: B5 28 C3 28 41 24 29 AA 2E 35 29 AD 32 29 43 24 |.(.(A$)..5).2)C$| 00002870: 00 A1 30 5C 0D 99 22 12 20 20 20 20 20 20 20 20 |..0\..". | 00002880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000028A0: 22 00 D2 30 66 0D 99 A3 34 29 22 11 11 11 11 9E |"..0f...4)".....| 000028B0: 12 AC A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 000028C0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 000028D0: BB 22 00 FE 30 70 0D 99 A3 34 29 22 A1 50 52 45 |."..0p...4)".PRE| 000028E0: 53 53 20 53 50 41 43 45 20 57 48 45 4E 20 59 4F |SS SPACE WHEN YO| 000028F0: 55 20 41 52 45 20 52 45 41 44 59 12 A1 22 00 2C |U ARE READY..".,| 00002900: 31 7A 0D 99 A3 34 29 22 12 BC 92 A2 A2 A2 A2 A2 |1z...4)"........| 00002910: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................| 00002920: A2 A2 A2 A2 A2 A2 A2 A2 A2 12 BE 22 00 40 31 84 |...........".@1.| 00002930: 0D A1 5A 24 3A 8B 5A 24 B2 22 22 A7 33 34 36 30 |..Z$:.Z$."".3460| 00002940: 00 53 31 8E 0D 8B 5A 24 B2 C7 28 33 32 29 A7 33 |.S1...Z$..(32).3| 00002950: 35 30 30 00 64 31 98 0D 8B 5A 24 B3 B1 C7 28 33 |500.d1...Z$...(3| 00002960: 32 29 A7 8A 00 6E 31 A2 0D 89 33 34 35 30 00 7E |2)...n1...3450.~| 00002970: 31 AC 0D 8B 44 24 B2 22 30 22 A7 31 33 30 00 8F |1...D$."0".130..| 00002980: 31 B6 0D 8B 44 24 B2 22 31 22 A7 33 35 34 30 00 |1...D$."1".3540.| 00002990: A0 31 C0 0D 8B 44 24 B2 22 32 22 A7 33 35 35 30 |.1...D$."2".3550| 000029A0: 00 CD 31 CA 0D 99 22 93 11 11 20 20 45 52 52 4F |..1..."... ERRO| 000029B0: 52 20 4F 46 20 44 41 54 41 20 49 4E 20 4C 4F 41 |R OF DATA IN LOA| 000029C0: 44 54 59 50 45 2E 22 3A 89 33 33 36 30 00 D9 31 |DTYPE.":.3360..1| 000029D0: D4 0D 93 28 41 24 29 2C 38 00 E7 31 DE 0D 93 28 |...(A$),8..1...(| 000029E0: 41 24 29 2C 38 2C 31 00 00 32 DF 0D 83 4E 45 4D |A$),8,1..2...NEM| 000029F0: 20 4E 41 4D 45 20 26 20 49 44 2C 2A 2C 2A 2C 30 | NAME & ID,*,*,0| 00002A00: 00 18 32 E0 0D 83 57 52 49 54 45 50 52 4F 54 45 |..2...WRITEPROTE| 00002A10: 43 54 2C 2A 2C 2A 2C 30 00 2F 32 E1 0D 83 44 49 |CT,*,*,0./2...DI| 00002A20: 53 50 4C 41 59 20 42 41 4D 2C 2A 2C 2A 2C 30 00 |SPLAY BAM,*,*,0.| 00002A30: 44 32 E2 0D 83 55 4E 53 43 52 41 54 43 48 2C 2A |D2...UNSCRATCH,*| 00002A40: 2C 2A 2C 30 00 5D 32 E3 0D 83 48 45 41 44 45 52 |,*,0.]2...HEADER| 00002A50: 20 43 48 41 4E 47 45 2C 2A 2C 2A 2C 30 00 74 32 | CHANGE,*,*,0.t2| 00002A60: E4 0D 83 43 48 41 4E 47 45 20 55 4E 49 54 2C 2A |...CHANGE UNIT,*| 00002A70: 2C 2A 2C 30 00 8E 32 E5 0D 83 50 52 4F 47 52 41 |,*,0..2...PROGRA| 00002A80: 4D 20 46 49 4E 44 45 52 2C 2A 2C 2A 2C 30 00 A5 |M FINDER,*,*,0..| 00002A90: 32 E6 0D 83 48 2E 45 2E 52 2E 4F 2E 2C 30 36 37 |2...H.E.R.O.,067| 00002AA0: 2C 41 32 2C 32 00 B2 32 E8 0D 83 2A 2C 2A 2C 2A |,A2,2..2...*,*,*| 00002AB0: 2C 2A 00 D2 32 F2 0D 8F 2E 2E 2E 2E 2E 2E 2E 2E |,*..2...........| 00002AC0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00002AD0: 2E 2E 00 F2 32 FC 0D 8F 2E 47 41 4D 45 2C 42 4C |....2....GAME,BL| 00002AE0: 4F 43 4B 2C 44 49 53 4B 2C 4C 4F 41 44 54 59 50 |OCK,DISK,LOADTYP| 00002AF0: 45 2E 00 12 33 06 0E 8F 2E 2E 2E 2E 2E 2E 2E 2E |E...3...........| 00002B00: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00002B10: 2E 2E 00 32 33 10 0E 8F 2E 4D 45 4E 49 4E 47 2E |...23....MENING.| 00002B20: 4F 46 2E 44 49 46 46 45 52 45 4E 54 2E 54 59 50 |OF.DIFFERENT.TYP| 00002B30: 45 2E 00 52 33 1A 0E 8F 2E 2E 2E 2E 2E 2E 2E 2E |E..R3...........| 00002B40: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00002B50: 2E 2E 00 72 33 24 0E 8F 2E 2E 30 2E 3D 2E 2E 47 |...r3$....0.=..G| 00002B60: 4F 54 4F 31 33 30 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |OTO130..........| 00002B70: 2E 2E 00 92 33 2E 0E 8F 2E 2E 31 2E 3D 2E 2E 4C |....3.....1.=..L| 00002B80: 4F 41 44 28 41 24 29 2C 38 2E 2E 2E 2E 2E 2E 2E |OAD(A$),8.......| 00002B90: 2E 2E 00 B2 33 38 0E 8F 2E 2E 32 2E 3D 2E 2E 4C |....38....2.=..L| 00002BA0: 4F 41 44 28 41 24 29 2C 38 2C 31 2E 2E 2E 2E 2E |OAD(A$),8,1.....| 00002BB0: 2E 2E 00 D2 33 42 0E 8F 2E 2E 2E 2E 2E 2E 2E 2E |....3B..........| 00002BC0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00002BD0: 2E 2E 00 F2 33 4C 0E 8F 2E 52 55 4E 2E 32 2E 53 |....3L...RUN.2.S| 00002BE0: 41 56 45 2E 4E 45 57 2E 4C 49 53 54 2E 2E 2E 2E |AVE.NEW.LIST....| 00002BF0: 2E 2E 00 12 34 56 0E 8F 2E 2E 2E 2E 2E 2E 2E 2E |....4V..........| 00002C00: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................| 00002C10: 2E 2E 00 00 00 |..... |
......A.1:B$."":E$."":.10.>....53280,0:.
53281,0:A$."CODE LOCK".R...."...
."......
".
.".20..(C(A$).2)..5)A$......".
.".'....
".....SCRATCHING OLD FILE ";:.15,8,15,"S
0:".(A$): 15:.9.N....".SAVING NEW FI
LE ";:.A$,8:.9.W....".VERIFYING NEW FIL
E ";:.A$,8:.9:........22)".OK!.":.. ....
53280,0:.53281,0.J...C$."354635463546354
63546354635463546".....D$."JERRY JANSSON
"...(.."..CODE :"...2..I.1.C(D$)...<..B$
:.B$."".60. .F..B$.".".1.T.P.E$.E$.B$:.B
$.J(D$,I,1)..53280,E(J(C$,I,1)):.100.A.Z
..53280,0.S.D..G.1.100:.G,I...N..E$.D$..
I.1.200:.I:.130...X..53280,14:.53281,6:.
"..";:..F....53280,14:.53281,6......".."
,". .................. "......,"... SP
ECIAL MENU ..".&. ..,". ..............
.... ".E...."."," 1. NEW NAME & ID.".A.
...," 2. WRITEPROTECT..".}....," 3. DI
SPLAY BAM..."...H..," 4. UNSCRATCH.....
"...R..," 5. HEADER CHANGE.".Q....," 6.
CHANGE UNIT..."......," 7. PROGRAM-FI
NDER"......," 0. QUIT.........."......A
$:.A$."".250.-....A$."1".1510.>....A$."2
".2200.N....A$."3".830._."..A$."4".2460.
P.,..A$."5".1820...6..A$."6".400...@..A$
."7".3140...J..A$."0".120...T..A$.".".1.
..^..250...H.."...",".. ................
.... ."...R..,"....ERROR KEEP ON TRYING.
..".6.|..,".. .................... .":.I
.1.5000:.:.140.N.... ** CHANGE UNIT **.C
...Z$.G(0): B$.G(2)...... ".. CHANGE DI
SK DEVICE NUMBER"...... ".. IF . ALL . D
ISK UNITS ARE STILL"...... " DEVICE NR 8
, THEN POWER-OFF ALL"...... " BUT THE FI
RST UNIT TO BE CHANGED..".8.B.. ". . OLD
. DEVICE NR (8-15): ? 8 ....";F.Z.L.. F
.8 . F.15 . . "...": . 450...V.. ". . NE
W . DEVICE NR (8-15): ? 9 ....";T......
T.8 . T.15 . . "...": . 470.H... 1:. 1,
F,15: . ST . 630......1,"M-R"G(255)G(255
)...... 610: . 660...... ". UNIT-TYPE/DO
S VERS: ";A$.7....1,"M-W"G(M)Z$B$G(T.32)
G(T.64).F.... ST . 630.P.&.. ".. DEVICE"
;F;"CHANGED TO DEVICE";T...0.. ". CHANGE
MORE UNITS (Y/N): ? N...";C$...:.. C$."
N" . 650.O.D.. C$.."Y" . . "...": . 560.
..N.. ".. OK, POWER-ON NEXT UNIT TO CHAN
GE"...X.. 450...B..#1,C$: C.F(C$.Z$).+.L
.. ST.0 . ..P.V.. ". DEVICE ERROR ON";F:
1:. 360.O.... " UNKNOWN DEVICE TYPE";F.
|... 1:.130...... C.198 . M.12: . 740..
.... C.255 . M.12: A$."D90XX / V3.0"....
.. C.254 . M.119: A$."1571-1541/V3.0-2.6
"...... C.242 . M.12: A$."8050 / V2.5".3
.... C.241 . M.12: A$."1551 / V2.6".X.F.
. C.226 . M.50: A$."2040 / V1.2".}.P.. C
.213 . M.12: A$."4040 / V2.1"...Z.......
.1,"M-R"G(234)G(16)...... 610: . C.1 . 6
60.Q.... C.0 . A$."4040 / V2.7":.......1
,"M-R"G(172)G(16)...... 610: . C.1 . C.2
. 640.#.... C.1 . A$."8050 / V2.7".@. .
. C.2 . A$."8250 / V2.7".F.*...^.4.. **
DISPLAY BAM **.U.>.Q2.0:QS.0:QE.0:F.0...
H..".. DISPLAY BLOCK ALLOCATION MAP
..".M.R.. ". DISK UNIT NR (8-11): ? 8 ..
..";U...\.. U.8 . U.11 . . "...": . 850.
..F.. ". DISK DRIVE NR (0-1): ? 0...";D.
8.P.. D.0 . D.1 . . "...": . 870.G.Z.. "
.. PUT TARGET DISK IN DRIVE";D;"UNIT";U.
..... " THEN PRESS ANY KEY TO START"....
.. A$: . A$."" . 910.....Z$.G(0): D$.I(D
(D),1).....Y$.".........................
".....X$."..............................
..........".,....15,U,15,"U0>M1": 15.S..
.. 15,U,15: .15,"I".D$: . 2,U,2,"#".I.J.
QQ.18:.QS.1.QQ.53...T..15,"U1:";2;D;QQ;0
......15,A,B$,C,D......A.66.QQ.53.QE.1:.
1230......A..0.."..DOS ERROR:"A;",";B$;"
,";C;",";D: 15:.360......15,"B-P";2;0...
... ".";Y$;" Q = BLOCK USED";.+...Y.14:
X.1: . 1290.I.... "S..E..C..T..O..R..S."
;.N.$.. J.0 . 20: . I(D(J),2);"...";:..}
....QS.1.1100...8..#2,A$:.#2,A$: .#2,A$:
.#2,A$...B..F(A$.G(0)).128.Q2.1.X.L..Q2
.1.QS.0...31)"(SIDE 1)";...V..Q2.1.QS.1.
..31)"(SIDE 2)";...`..QS.0..TT.1. 35:T.T
T.-.J..QS.1..TT.36.70:T.TT.35.8.T.. 1310
.X.~.Y.22: X.T.5: . 1290: . 1370.O....:.
Q2.1.QS.1..1200......15,"B-P";2;144: N$.
""...... J.1 . 20: .#2,A$: N$.N$.A$: ...
.... 1460.U.... Y$;" PRESS ANY KEY ";...
... A$: . A$."" . 1200...D..Q2.1.QS.0.QS
.1:.970.1.N.. "... DISK HEADER = ";G(34)
;N$;G(34).I.X..:.F;" BLOCKS FREE"......Q
S.1.."...1571 FORMAT DISK.":." CAN ONLY
READ SIDE ONE ON THIS DRIVE.".F.... "..
VIEW ANOTHER DISKETTE (Y/N) ? N...";A$..
... 2: 15: .A$.."N". .820......130...
... H(Y$,Y);H(X$,X)".";............QS.1.
1330.'.(..#2,C$.-.2...G.<..#2,A$: B(0).F
(A$.Z$).A.F..#2,A$: B(1).F(A$.Z$).~.P..#
2,A$: B(2).F(A$.Z$): ....Z.. "..";: T$.I
(D(TT),2)...D..I(T$,1);"..";H(T$,1);".."
;.Q.N.L.20: . T.17 . L.18...X.. T.24 . L
.17...... T.30 . L.16...... S.0 . L.$...
Z.2.(S..(S.8).8).(B(.(S.8))).?. .. Z.0 .
. "Q..";: .: ..R.... "+..";: .: ..I....
96,U,0,"$".D$.":"......XX.1.34:.#96,A$:.
XX...H..#96,A$,B$:F.F(A$.G(0)).256.F(B$.
G(0))...R. 96:..Q.... ** NEW NAME & ID *
*......53280,0:.53281,0:."..","..N......
.......M..".1....53280,0:.53281,0:.,"...
NEW NAME & ID..."._....53280,0:.53281,0:
.,"..M.............N.."......"...
PRESS . SPACE . TO CONTINUE"......A$:.A$
." ".1570......1550.P."..2,8,2,"#":.1,8,
15,"U1 2 0 18 0"...,.."......
."...6..1,"B-P 2 14
4".I.@.."NAME : ";:.X.0.16:.#2,A$:.A$;
:.:.1,"B-P 2 162".K.J..#2,A$,B$:.:."ID
: "A$;B$...T..1,"B-P 2 2":.".SOFTWARE
";...^..#2,A$:.A$.."A".."W/P IS ON!!":.
1800.I.H.."W/P IS NOT ON"...R.."..(N)...
...NAME..............(I)........ID......
........(_)......STOP".*.|..C$:.C$."".16
60.;....C$."I".1760.[....C$.G(95)..1,"I"
: 1: 2:.130.M....C$.."N".1790......"..NE
W NAME";CO$:A.C(CO$):.A.0.1790......A.16
.1700......A.16.1740.S.B..X.1.16.A:CO$.C
O$.G(160):....L.NO.144:.1780...V.."..NEW
ID";CO$:.C(CO$).0.1790...... C(CO$)..2.
1750.'...NO.162.R....1,"B-P 2 "NO:.2,CO$
;:.1,"U2 2 0 18 0".B... 1: 2:.1510.X....
1,"I": 1: 2:.360...... ** HEADER CHANGE
**...... ".. CHANGE DISKETTE HEADER-NAME
"...&.. ". DISK UNIT NR (8-15) ? 8 ...."
;...0.. U: . U.8 . U.15 . . "...": . 183
0./.:.. ". DISK DRIVE NR (0/1) ? 0...";.
V.D.. D: . D.0 . D.1 . . "...": . 1850..
.N.. ".. PUT TARGET DISK IN UNIT";U;" DR
IVE";D...X.. " THEN PRESS ANY KEY TO CON
TINUE".F.B.. X$: . X$."". 1890...L.A.1:
V.16: Q$.G(34): P$.G(160)...V.T.18: S.0:
I$."I".I(D(D),1).!.... 1,U,15,I$: . 216
0.D.... 2120: F$.H$: .#2,X$,X$,A$,B$.N..
.. "... CURRENT HEADER-NAME ";Q$;F$;Q$..
.... " DISKETTE ID IS: ";A$;B$...... ".
NEW NAME (MAX 16 CHARACTERS) OR 'QUIT'"
...... " ? QUIT......";N$: L.C(N$): . L.
V . 1940.. ... N$."QUIT" . . ".";: . 218
0.E F.. ". OK TO WRITE NEW HEADER-NAME (
Y/N) ? Y...";.` P.. X$: . X$.."Y" . 1940
.Q Z.. L.V . 2030.. ... X.L.A . V: N$.N$
.P$: ... ...1,"B-P:";2;144: .2,N$;.G ...
1,"U2:";2;D;T;S: . 2160.. ...1,I$: . 216
0: 2..!... ". OLD HEADER-NAME ";Q$;F$;
Q$..!... 2120: 2: 1.;! .. ". NEW HEA
DER-NAME ";Q$;H$;Q$.K!*.. ". CHANGE ANOT
HER DISKETTE (Y/N) ? Y...";..!4.. X$: .
X$."Y" . 1870..!>.. ".";:.130..!H.. 2,U,
2,"#": . 2160: H$."".Q!R..1,"U1:";2;D;T;
S: . 2160..!\..1,"B-P:";2;144: . X.A . V
.."F..#2,T$: H$.H$.T$: .: ..%"P..1,E,M$,
J,K:. E.0 . ..K"Z.. ". ERROR: ";E;M$;J;K
: 2: 1:.360.]".. 2: 1:.130.V"... ** W
RITEPROTECT **.."...".. N.MN.MN.MN.MN.M
N.MN.MN.MN.MN.MN.MN.M":.53280,0:.53281,0
.."..." . .. .. .. ..WRITEPROTECT.. ..
.. .. ."..#..." M.NM.NM.NM.NM.NM.NM.NM.
NM.NM.NM.NM.N".G#...".. SET A PROTECT OR
TAKE AWAY THE PROTECT".P#...,"....PRESS
. SPACE . TO CONTINUE."..#J..C$:.C$.."
".2250..#T.."..WHITCH DEVICE (8-11) 8..
.";C$.Q#..C.E(C$):.C.8.C.11.."..":.2260:
...#...1,C,2,"#"..#...2,C,15..$...2,"U1
2 0 18 0"..$...2,"B-P 2 2"..$...#1,A$.K$
..B$."A":.".TAKING AWAY PROTECTION......
.."..$$..A$."A".B$."B":.".SETTING UP A P
ROTECTION......."..$...2,"M-W"G(1)G(1)G(
1)G(65)..$8..2,"B-P 2 2"..$B..1,B$;.P$L.
.2,"U2 2 0 18 0".Z$V. 1: 2..$`..,,,"..OK
!."..%J..".WANT TO PROTECT ANY MORE DISC
S Y...";C$.-%T..C$."Y"..2200.G%~..C$.."
N".."...":.2410.P%...130.F%... ** UNSCRA
TCH **..%..."."," UNSCRATCH":.,"
........."..%... ". REVIVE SCRATCHED DI
SK FILES"..%... ".. DISK UNIT NR (8-15)
? 8 ....";..&... U: . U.8 . U.15 . . "..
.": . 2480.5&D.. ". DISK DRIVE NR (0/1)
? 0...";: G.0.\&N.. D: . D.0 . D.1 . . "
...": . 2500..&X.. ".. PUT TARGET DISK I
N UNIT";U;"DRIVE";D..&... " THEN PRESS A
NY KEY TO CONTINUE".K&... X$: . X$."". 2
540..&... ".. ENTER SCRATCHED FILE-NAME
(OR END)".)'... " USE * AT NAME-END FOR
WILD-CARD SEARCH".S'... " ? END.....";N$
: . N$."END" . 3000.Y'..V.16: Q.32: F.25
6: T.18: S.1: W.0..'..Z$.G(0): D$.I(D(D)
,1)..'(.N$.H(N$,V): L.C(N$).E'2.. I(N$,1
).."*" . 2630..'<.L.L.1: N$.H(N$,L): W.1
:. 2650..'F.. L.V . 2650..(P.. X.L.1 . V
: N$.N$.G(160): .: L.V.:(Z.. 1,U,15,"I".
D$: . 2980.R(D.. 2,U,2,"#": . 2980.O(N..
1,"U1:";2;D;T;S: . 2980..(X..1,"B-P:";2;
0: .#2,A$,B$..(..TR.F(A$.Z$): SC.F(B$.Z$
): H.2.H(...1,"B-P:";2;H: .#2,T$..(..C.F
(T$.Z$): . C.0 . 2750..) ..#2,A$,B$: F$.
"": . X.1 . V.-)...#2,T$: F$.F$.T$: .: .
F$."" . 2770.K)... L.0 . N$.H(F$,L) . 2
820.C)..H.H.Q: . H.F . 2700..)H.. TR.0 .
T.TR: S.SC: . 2670..)R.. W . . ". END O
F DIRECTORY": . 2950.L)... ". THERE IS N
O SCRATCHED"..)... " FILE WITH THE NAME:
";N$..*... " IN THE DIRECTORY".$*... X
.1 . 4000: .: . 2970.?*..A.F(A$.Z$): B.F
(B$.Z$).Z*... ". FOUND FILE: ";F$.Z*...
" AT TRACK";A;" SECTOR";B..*".. ". WANT
TO REVIVE THIS FILE (Y/N) ? Y...";.E*,.
. X$: . X$."Y" . 2890.T*6.. W . 2750..*@
..2950..+J.. ". 1=SEQ 2=PRG 3=USR 4=R
EL".*+T.. " ENTER FILE-TYPE (1-4) ? 1...
";.P+^.. P: . P.1 . P.4 . . "..": . 2870
.P+H..1,"B-P:";2;H: .2,G(P.128);..+R..1,
"U2:";2;D;T;S:. 2980:G.1..+|.. ". UN-SCR
ATCHED FILE: ";F$: . W . 2750..+... ".
REVIVE MORE FILES (Y/N) ? Y...";..,... X
$: . X$.."Y" . 3000..,.. 2: 1: . 2550
.2,...1,E,M$,J,K:. E.0 . ..M,... ". ERRO
R: ";E;M$;J;K.G,.. 2: 1: . G.0 . 130.
.,B.. ".. RE-BUILDING VALID BAM"..,L.. "
ON DISK-UNIT";U;" DRIVE";D.I,V.. 1,U,15
,"V".D$: 1:.130..-D..53280,0:.53281,11
:.".";:..7)"..........................."
.5-N...7)".... .OLSSONS PROGRAM FINDER .
....".D-X...7)".........................
.........":..}-B.."..INPUT LETTER";F$..-
L..A$,B$,C$,D$..-V..A$."*".B$."*"..C$."*
".D$."*". .3300.R-...F$..H(A$,C(F$)). 31
80..-...".."..-..."GAME NAME : ";A$..
...."BLOCK : ";B$.*...."DISK NUMB
ER : ";C$.H....".IS THIS RIGHT?. (Y/N)"
.\....Z$:.Z$."".3260.V.F..Z$."Y".Z$.G(13
).3380...P..Z$."N".Z$.G(32)..3180...Z..3
260.N...."..... I HAVE GONE THROW ALL
THE PROGRAMS.".......12)".I CAN'T FIND I
T.".2/...". DO YOU WANT IT ADDED TO T
HE LIST.....................(Y/N)".F/...
Z$:.Z$."".3330.W/...Z$."Y".3360.H/...Z$.
."Y".130.W/ ..I.1.400:.../*..120../4..".
.
."../>..". NAME OF PROGRAM :
.".30..(C(A$)..5).2)A$.*0H.."
.
".P0R..". ON DISK :
.".30..(C(A$)..5).2)C$..0\..".
".R0F...4)".............................
........."..0P...4)".PRESS SPACE WHEN YO
U ARE READY..".,1Z...4)"................
...................".@1...Z$:.Z$."".3460
.S1...Z$.G(32).3500.D1...Z$..G(32)...N1.
..3450.~1...D$."0".130..1...D$."1".3540.
1...D$."2".3550.M1J.."... ERROR OF DAT
A IN LOADTYPE.":.3360.Y1T..(A$),8..1...(
A$),8,1..2...NEM NAME & ID,*,*,0..2...WR
ITEPROTECT,*,*,0./2...DISPLAY BAM,*,*,0.
D2...UNSCRATCH,*,*,0.]2...HEADER CHANGE,
*,*,0.T2...CHANGE UNIT,*,*,0..2...PROGRA
M FINDER,*,*,0..2...H.E.R.O.,067,A2,2..2
...*,*,*,*.R2...........................
....2....GAME,BLOCK,DISK,LOADTYPE...3...
...........................23....MENING.
OF.DIFFERENT.TYPE..R3...................
...........R3$....0.=..GOTO130..........
....3.....1.=..LOAD(A$),8...........38..
..2.=..LOAD(A$),8,1........R3B..........
....................3L...RUN.2.SAVE.NEW.
LIST........4V..........................
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL