DIR
FILE INFORMATION
FILENAME(S): DIR
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-11-30 19:47:16
APPEARS ON: 1 disk(s)
FILE HASH
b3280922fef98117163cd2f348f31164fbddd91ba54e383d382895caf3486455
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A3 1 | DIR | PRG | Curtcool, Frank | 30 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 01 00 97 20 35 33 32 38 30 2C 30 36 |..#.... 53280,06| 00000010: 3A 97 20 35 33 32 38 31 2C 31 35 3A 97 20 36 34 |:. 53281,15:. 64| 00000020: 36 2C 30 00 2F 08 02 00 89 20 33 30 30 30 30 00 |6,0./.... 30000.| 00000030: 68 08 0A 00 99 22 93 11 12 1C 20 20 20 20 92 90 |h....".... ..| 00000040: 20 55 44 53 4B 52 49 46 54 20 41 46 20 42 41 4D | UDSKRIFT AF BAM| 00000050: 20 12 1C 20 20 20 20 20 20 20 20 20 20 20 20 20 | .. | 00000060: 20 20 20 20 20 20 90 22 00 86 08 1E 00 86 20 52 | ."...... R| 00000070: 24 28 31 30 30 29 2C 53 24 28 31 30 30 29 2C 54 |$(100),S$(100),T| 00000080: 24 28 31 30 30 29 00 98 08 1F 00 8F 20 4F 50 45 |$(100)...... OPE| 00000090: 4E 31 35 2C 38 2C 31 35 00 A4 08 20 00 9F 32 2C |N15,8,15... ..2,| 000000A0: 38 2C 31 35 00 B6 08 21 00 8F 20 47 4F 53 55 42 |8,15...!.. GOSUB| 000000B0: 20 32 30 30 30 30 00 C6 08 22 00 8F 20 47 4F 54 | 20000...".. GOT| 000000C0: 4F 20 38 30 30 30 00 D6 08 28 00 9F 31 2C 38 2C |O 8000...(..1,8,| 000000D0: 30 2C 22 24 30 22 00 E4 08 29 00 A1 23 31 2C 41 |0,"$0"...)..#1,A| 000000E0: 24 2C 42 24 00 F2 08 2A 00 A1 23 31 2C 41 24 2C |$,B$...*..#1,A$,| 000000F0: 42 24 00 00 09 2B 00 A1 23 31 2C 41 24 2C 42 24 |B$...+..#1,A$,B$| 00000100: 00 12 09 2C 00 8F 20 47 4F 53 55 42 20 32 30 30 |...,.. GOSUB 200| 00000110: 30 30 00 2C 09 32 00 43 B2 30 3A 52 B2 52 AA 31 |00.,.2.C.0:R.R.1| 00000120: 3A 53 B2 53 AA 31 3A 54 B2 54 AA 31 00 43 09 3C |:S.S.1:T.T.1.C.<| 00000130: 00 8B 20 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 28 |.. A$.."" . C..(| 00000140: 41 24 29 00 60 09 46 00 8B 20 42 24 B3 B1 22 22 |A$).`.F.. B$..""| 00000150: 20 A7 20 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 | . C.C..(B$).256| 00000160: 00 74 09 55 00 52 24 28 52 29 B2 CA 28 C4 28 43 |.t.U.R$(R)..(.(C| 00000170: 29 2C 32 29 00 9C 09 56 00 8B 20 C3 28 52 24 28 |),2)...V.. .(R$(| 00000180: 52 29 29 B3 34 20 A7 20 52 24 28 52 29 B2 52 24 |R)).4 . R$(R).R$| 00000190: 28 52 29 AA 22 20 22 3A 89 20 38 36 00 B6 09 5A |(R)." ":. 86...Z| 000001A0: 00 A1 23 31 2C 42 24 3A 8B 20 53 54 B3 B1 30 20 |..#1,B$:. ST..0 | 000001B0: A7 20 31 30 30 30 00 CB 09 64 00 8B 20 42 24 B3 |. 1000...d.. B$.| 000001C0: B1 C7 28 33 34 29 20 A7 20 39 30 00 F7 09 6E 00 |..(34) . 90...n.| 000001D0: A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 C7 28 33 |.#1,B$:. B$...(3| 000001E0: 34 29 A7 20 53 24 28 53 29 B2 53 24 28 53 29 AA |4). S$(S).S$(S).| 000001F0: 42 24 3A 89 31 31 30 00 21 0A 73 00 8B 20 C3 28 |B$:.110.!.s.. .(| 00000200: 53 24 28 53 29 29 B3 31 38 20 A7 20 53 24 28 53 |S$(S)).18 . S$(S| 00000210: 29 B2 53 24 28 53 29 AA 22 20 22 3A 89 20 31 31 |).S$(S)." ":. 11| 00000220: 35 00 3D 0A 78 00 A1 23 31 2C 42 24 3A 8B 20 42 |5.=.x..#1,B$:. B| 00000230: 24 B2 C7 28 33 32 29 20 A7 20 31 32 30 00 47 0A |$..(32) . 120.G.| 00000240: 82 00 43 24 B2 22 22 00 6B 0A 8C 00 43 24 B2 43 |..C$."".k...C$.C| 00000250: 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B 20 42 24 |$.B$:.#1,B$:. B$| 00000260: B3 B1 22 22 20 20 A7 20 31 34 30 00 7D 0A 9B 00 |.."" . 140.}...| 00000270: 54 24 28 54 29 B2 C8 28 43 24 2C 33 29 00 AC 0A |T$(T)..(C$,3)...| 00000280: 9D 00 8B 20 54 B2 31 20 A7 20 99 20 A3 36 29 22 |... T.1 . . .6)"| 00000290: 12 22 52 24 28 52 29 3B 53 24 28 53 29 3B 54 24 |."R$(R);S$(S);T$| 000002A0: 28 54 29 22 92 22 3A 89 20 31 36 30 00 C7 0A 9E |(T)".":. 160....| 000002B0: 00 99 20 A3 36 29 52 24 28 52 29 3B 53 24 28 53 |.. .6)R$(R);S$(S| 000002C0: 29 3B 54 24 28 54 29 00 E0 0A A0 00 A1 20 57 24 |);T$(T)...... W$| 000002D0: 3A 8B 20 57 24 B2 22 20 22 20 A7 20 A0 31 3A 8A |:. W$." " . .1:.| 000002E0: 00 F0 0A AA 00 8B 20 53 54 B2 30 20 A7 20 34 32 |...... ST.0 . 42| 000002F0: 00 0D 0B E8 03 99 20 A3 36 29 52 24 28 52 29 22 |...... .6)R$(R)"| 00000300: 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 00 14 0B | BLOCKS FREE"...| 00000310: F2 03 A0 31 00 3F 0B F4 03 99 22 11 11 20 20 20 |...1.?....".. | 00000320: 20 20 20 20 43 4F 50 59 20 46 52 4F 4D 20 50 52 | COPY FROM PR| 00000330: 49 4E 54 45 52 3F 20 28 59 2F 4E 29 11 11 22 00 |INTER? (Y/N)..".| 00000340: 59 0B F6 03 A1 20 53 56 24 3A 8B 20 53 56 24 B2 |Y.... SV$:. SV$.| 00000350: 22 22 20 A7 20 31 30 31 34 00 81 0B F7 03 8B 20 |"" . 1014...... | 00000360: 53 56 24 B2 22 59 22 20 A7 20 8D 20 31 33 30 30 |SV$."Y" . . 1300| 00000370: 30 3A 8D 20 31 31 30 30 30 3A 89 20 31 34 30 30 |0:. 11000:. 1400| 00000380: 30 00 93 0B F8 03 8B 20 53 56 24 B2 22 4E 22 20 |0...... SV$."N" | 00000390: A7 20 8A 00 A9 0B F9 03 8B 20 53 56 24 B3 B1 22 |. ....... SV$.."| 000003A0: 4E 22 20 A7 20 31 30 31 34 00 B2 0B FC 03 A0 34 |N" . 1014......4| 000003B0: 3A 9C 00 D0 0B 06 04 86 20 52 24 28 31 30 30 29 |:....... R$(100)| 000003C0: 2C 53 24 28 31 30 30 29 2C 54 24 28 31 30 30 29 |,S$(100),T$(100)| 000003D0: 00 DC 0B 10 04 89 20 31 30 30 30 30 00 F0 0B D0 |...... 10000....| 000003E0: 07 8B 20 57 24 B2 22 20 22 20 A7 20 A0 31 3A 8A |.. W$." " . .1:.| 000003F0: 00 08 0C DA 07 A1 20 57 24 3A 8B 20 57 24 B2 22 |...... W$:. W$."| 00000400: 22 20 A7 20 32 30 30 30 00 0E 0C E4 07 8E 00 3F |" . 2000.......?| 00000410: 0C 40 1F 99 22 93 11 11 20 20 20 20 20 49 4E 53 |.@.."... INS| 00000420: 45 52 54 20 44 49 53 4B 20 41 4E 44 20 48 49 54 |ERT DISK AND HIT| 00000430: 20 12 1C 20 52 45 54 55 52 4E 20 92 90 11 22 00 | .. RETURN ...".| 00000440: 64 0C 4A 1F 99 22 20 20 20 20 20 20 20 2E 2E 2E |d.J.." ...| 00000450: 41 4E 59 20 4F 54 48 45 52 20 54 4F 20 51 55 49 |ANY OTHER TO QUI| 00000460: 54 11 11 22 00 79 0C A4 1F A1 41 24 3A 8B 41 24 |T..".y....A$:.A$| 00000470: B2 22 22 A7 20 38 31 30 30 00 96 0C 08 20 8B 20 |."". 8100.... . | 00000480: 41 24 B2 C7 28 31 33 29 20 A7 20 99 22 93 11 11 |A$..(13) . ."...| 00000490: 22 3A 89 20 34 30 00 AA 0C 76 20 8B 20 41 24 B3 |":. 40...v . A$.| 000004A0: B1 C7 28 31 33 29 20 A7 20 80 00 B5 0C 80 20 89 |..(13) . ..... .| 000004B0: 20 38 31 30 30 00 DD 0C 10 27 99 22 11 20 20 20 | 8100....'.". | 000004C0: 20 20 20 2E 2E 2E 41 4E 44 20 48 49 54 20 12 1C | ...AND HIT ..| 000004D0: 20 52 45 54 55 52 4E 20 92 90 11 11 22 00 F2 0C | RETURN ...."...| 000004E0: 74 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 31 |t'.A$:.A$."".101| 000004F0: 30 30 00 06 0D D8 27 8B 20 41 24 B2 C7 28 31 33 |00....'. A$..(13| 00000500: 29 20 A7 20 34 30 00 17 0D 46 28 8B 20 41 24 B2 |) . 40...F(. A$.| 00000510: 22 51 22 20 A7 20 80 00 23 0D 50 28 89 20 31 30 |"Q" . ..#.P(. 10| 00000520: 31 30 30 00 46 0D F8 2A 8F 20 2A 2A 2A 2A 2A 20 |100.F..*. ***** | 00000530: 50 52 49 4E 54 45 52 20 52 55 54 49 4E 45 20 31 |PRINTER RUTINE 1| 00000540: 20 2A 2A 2A 2A 2A 00 4F 0D FA 2A 9F 34 2C 34 00 | *****.O..*.4,4.| 00000550: 5B 0D FB 2A 98 34 2C C7 28 50 29 00 7F 0D FC 2A |[..*.4,.(P)....*| 00000560: 8F 20 50 52 49 4E 54 22 11 11 20 20 49 4E 53 45 |. PRINT".. INSE| 00000570: 52 54 20 4E 45 57 20 44 49 53 4B 2E 2E 2E 22 00 |RT NEW DISK...".| 00000580: 8F 0D FD 2A 81 20 49 B2 31 20 A4 20 52 AB 31 00 |...*. I.1 . R.1.| 00000590: AB 0D FE 2A 8B 20 49 B2 31 20 A7 20 8D 20 31 32 |...*. I.1 . . 12| 000005A0: 30 30 30 3A 89 20 31 31 30 32 30 00 D8 0D 02 2B |000:. 11020....+| 000005B0: 98 34 2C C7 28 32 37 29 C7 28 31 36 29 C7 28 48 |.4,.(27).(16).(H| 000005C0: 50 29 C7 28 4C 50 29 52 24 28 49 29 3B 53 24 28 |P).(LP)R$(I);S$(| 000005D0: 49 29 3B 54 24 28 49 29 00 DE 0D 0C 2B 82 00 0C |I);T$(I)....+...| 000005E0: 0E 16 2B 98 34 2C C7 28 32 37 29 C7 28 31 36 29 |..+.4,.(27).(16)| 000005F0: C7 28 48 50 29 C7 28 4C 50 29 52 24 28 49 29 22 |.(HP).(LP)R$(I)"| 00000600: 42 4C 4F 43 4B 53 20 46 52 45 45 22 00 18 0E 1B |BLOCKS FREE"....| 00000610: 2B 8D 20 31 35 30 30 30 00 2B 0E 1C 2B 8B 20 4C |+. 15000.+..+. L| 00000620: B3 B2 30 20 A7 20 31 31 30 35 30 00 3E 0E 20 2B |..0 . 11050.>. +| 00000630: 81 20 59 B2 31 20 A4 20 4C 3A 98 34 3A 82 00 44 |. Y.1 . L:.4:..D| 00000640: 0E 2A 2B 8E 00 67 0E E0 2E 8F 20 2A 2A 2A 2A 2A |.*+..g.... *****| 00000650: 20 50 52 49 4E 54 45 52 20 52 55 54 49 4E 45 20 | PRINTER RUTINE | 00000660: 32 20 2A 2A 2A 2A 2A 00 9F 0E EA 2E 98 34 2C C7 |2 *****......4,.| 00000670: 28 32 37 29 C7 28 31 36 29 C7 28 48 50 29 C7 28 |(27).(16).(HP).(| 00000680: 4C 50 29 C7 28 31 38 29 52 24 28 49 29 3B 53 24 |LP).(18)R$(I);S$| 00000690: 28 49 29 3B 54 24 28 49 29 C7 28 31 34 36 29 00 |(I);T$(I).(146).| 000006A0: A5 0E F4 2E 8E 00 C6 0E C8 32 8F 20 2A 2A 2A 2A |.........2. ****| 000006B0: 2A 20 53 50 30 52 47 45 52 55 54 49 4E 45 20 32 |* SP0RGERUTINE 2| 000006C0: 20 2A 2A 2A 2A 2A 00 E9 0E D2 32 99 22 11 11 20 | *****....2.".. | 000006D0: 20 20 20 20 20 20 20 20 20 20 20 43 41 52 41 43 | CARAC| 000006E0: 54 45 52 20 53 49 5A 45 22 00 0C 0F DC 32 99 22 |TER SIZE"....2."| 000006F0: 11 20 20 20 20 20 20 20 20 20 20 53 49 4E 47 4C |. SINGL| 00000700: 45 20 57 49 54 48 2E 2E 2E 2E 46 31 00 2F 0F E6 |E WITH....F1./..| 00000710: 32 99 22 11 20 20 20 20 20 20 20 20 20 20 44 4F |2.". DO| 00000720: 55 42 4C 45 20 57 49 54 48 2E 2E 2E 2E 46 33 00 |UBLE WITH....F3.| 00000730: 49 0F F0 32 A1 20 53 56 24 3A 8B 20 53 56 24 B2 |I..2. SV$:. SV$.| 00000740: 22 22 A7 20 31 33 30 34 30 00 68 0F FA 32 8B 20 |"". 13040.h..2. | 00000750: 53 56 24 B2 22 85 22 20 A7 20 50 B2 31 35 3A 8D |SV$."." . P.15:.| 00000760: 20 31 36 30 30 30 3A 8E 00 87 0F 04 33 8B 20 53 | 16000:.....3. S| 00000770: 56 24 B2 22 86 22 20 A7 20 50 B2 31 34 3A 8D 20 |V$."." . P.14:. | 00000780: 31 36 30 30 30 3A 8E 00 9E 0F 0E 33 8B 20 53 56 |16000:.....3. SV| 00000790: 24 B3 B1 22 86 22 20 A7 20 31 33 30 34 30 00 BF |$.."." . 13040..| 000007A0: 0F B0 36 8F 20 2A 2A 2A 2A 2A 20 53 50 30 52 47 |..6. ***** SP0RG| 000007B0: 45 52 55 54 49 4E 45 20 33 20 2A 2A 2A 2A 2A 00 |ERUTINE 3 *****.| 000007C0: E2 0F BA 36 99 22 11 20 20 20 20 20 20 20 20 41 |...6.". A| 000007D0: 4E 4F 54 48 45 52 20 43 4F 50 59 20 28 59 2F 4E |NOTHER COPY (Y/N| 000007E0: 29 22 00 FC 0F D8 36 A1 20 53 56 24 3A 8B 20 53 |)"....6. SV$:. S| 000007F0: 56 24 B2 22 22 A7 20 31 34 30 34 30 00 24 10 E2 |V$."". 14040.$..| 00000800: 36 8B 20 53 56 24 B2 22 59 22 20 A7 20 8D 20 31 |6. SV$."Y" . . 1| 00000810: 33 30 30 30 3A 8D 20 31 31 30 30 33 3A 89 20 31 |3000:. 11003:. 1| 00000820: 34 30 30 30 00 36 10 EC 36 8B 20 53 56 24 B2 22 |4000.6..6. SV$."| 00000830: 4E 22 20 A7 20 8A 00 4D 10 F6 36 8B 20 53 56 24 |N" . ..M..6. SV$| 00000840: B3 B1 22 86 22 20 A7 20 31 34 30 34 30 00 6A 10 |.."." . 14040.j.| 00000850: 98 3A 8F 20 2A 2A 2A 2A 2A 20 50 41 50 45 52 20 |.:. ***** PAPER | 00000860: 46 45 45 44 20 2A 2A 2A 2A 2A 00 85 10 A2 3A 99 |FEED *****....:.| 00000870: 22 11 20 20 20 20 20 20 20 20 50 41 50 45 52 20 |". PAPER | 00000880: 46 45 45 44 22 00 A7 10 AC 3A 99 22 11 20 20 20 |FEED"....:.". | 00000890: 20 20 20 20 53 49 4E 47 4C 45 20 4C 49 4E 45 53 | SINGLE LINES| 000008A0: 2E 2E 2E 2E 46 31 22 00 C9 10 B6 3A 99 22 11 20 |....F1"....:.". | 000008B0: 20 20 20 20 20 20 50 41 47 45 20 4F 55 54 2E 2E | PAGE OUT..| 000008C0: 2E 2E 2E 2E 2E 2E 46 33 22 00 E3 10 C0 3A A1 20 |......F3"....:. | 000008D0: 53 56 24 3A 8B 20 53 56 24 B2 22 22 A7 20 31 35 |SV$:. SV$."". 15| 000008E0: 30 34 30 00 F9 10 CA 3A 8B 20 53 56 24 B2 22 85 |040....:. SV$.".| 000008F0: 22 20 A7 20 31 35 32 30 30 00 12 11 D4 3A 8B 20 |" . 15200....:. | 00000900: 53 56 24 B2 22 86 22 20 A7 20 4C B2 37 31 AB 49 |SV$."." . L.71.I| 00000910: 3A 8E 00 29 11 DE 3A 8B 20 53 56 24 B3 B1 22 86 |:..)..:. SV$..".| 00000920: 22 20 A7 20 31 35 30 34 30 00 3F 11 60 3B 85 22 |" . 15040.?.`;."| 00000930: 11 20 20 20 20 20 4C 49 4E 45 53 3A 22 3B 4C 00 |. LINES:";L.| 00000940: 45 11 6A 3B 8E 00 4B 11 74 3B 8E 00 65 11 80 3E |E.j;..K.t;..e..>| 00000950: 8F 20 2A 2A 2A 2A 2A 20 48 50 20 2F 20 4C 50 20 |. ***** HP / LP | 00000960: 2A 2A 2A 2A 2A 00 83 11 8A 3E 99 22 11 20 20 20 |*****....>.". | 00000970: 20 20 20 20 53 54 41 52 54 20 50 4F 53 49 54 49 | START POSITI| 00000980: 4F 4E 22 00 AB 11 94 3E 85 22 11 20 20 4E 55 4D |ON"....>.". NUM| 00000990: 45 52 53 20 4F 46 20 43 48 41 52 27 53 20 46 52 |ERS OF CHAR'S FR| 000009A0: 4F 4D 20 4C 45 46 54 22 3B 53 50 00 C6 11 9E 3E |OM LEFT";SP....>| 000009B0: 8B 20 53 50 B3 30 20 B0 20 53 50 B1 38 30 20 A7 |. SP.0 . SP.80 .| 000009C0: 20 31 36 30 32 30 00 D7 11 A8 3E 48 50 B2 B5 28 | 16020....>HP..(| 000009D0: 53 50 AD 32 35 36 29 00 EC 11 B2 3E 4C 50 B2 28 |SP.256)....>LP.(| 000009E0: 53 50 AB 48 50 AC 32 35 36 29 AC 36 00 F2 11 BC |SP.HP.256).6....| 000009F0: 3E 8E 00 10 12 20 4E 8F 20 2A 2A 2A 2A 2A 20 45 |>.... N. ***** E| 00000A00: 52 52 4F 52 20 43 48 45 43 4B 20 2A 2A 2A 2A 2A |RROR CHECK *****| 00000A10: 00 25 12 2A 4E 84 31 35 2C 45 4E 2C 45 4D 24 2C |.%.*N.15,EN,EM$,| 00000A20: 45 54 2C 45 53 00 35 12 34 4E 8B 20 45 4E B3 32 |ET,ES.5.4N. EN.2| 00000A30: 30 20 A7 20 8E 00 5B 12 3E 4E 99 22 20 20 20 20 |0 . ..[.>N." | 00000A40: 20 20 20 20 20 20 20 20 20 12 1C 20 44 49 53 4B | .. DISK| 00000A50: 20 45 52 52 4F 52 20 92 90 11 22 00 72 12 48 4E | ERROR ...".r.HN| 00000A60: 99 20 A3 38 29 20 45 4E 3B 45 4D 24 3B 45 54 3B |. .8) EN;EM$;ET;| 00000A70: 45 53 00 7A 12 52 4E A0 31 35 00 83 12 5C 4E 8A |ES.z.RN.15...\N.| 00000A80: 20 31 32 00 9F 12 30 75 8F 20 2A 2A 2A 2A 2A 20 | 12...0u. ***** | 00000A90: 48 4F 56 45 44 4D 45 4E 55 20 2A 2A 2A 2A 2A 00 |HOVEDMENU *****.| 00000AA0: D7 12 3A 75 99 22 93 11 12 1C 20 20 20 20 92 90 |..:u.".... ..| 00000AB0: 20 44 49 52 20 12 1C 20 20 20 20 20 20 20 20 20 | DIR .. | 00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AD0: 20 20 20 20 20 20 22 00 02 13 44 75 99 22 90 11 | "...Du."..| 00000AE0: 11 11 11 20 20 20 20 20 20 20 20 20 55 44 53 4B |... UDSK| 00000AF0: 52 49 46 54 20 41 46 20 42 41 4D 2E 2E 2E 2E 46 |RIFT AF BAM....F| 00000B00: 31 22 00 29 13 4E 75 99 22 11 20 20 20 20 20 20 |1".).Nu.". | 00000B10: 20 20 20 41 45 4E 44 52 45 20 42 41 4D 20 48 45 | AENDRE BAM HE| 00000B20: 41 44 45 52 2E 2E 46 33 22 00 50 13 53 75 99 22 |ADER..F3".P.Su."| 00000B30: 11 20 20 20 20 20 20 20 20 20 44 49 53 4B 20 43 |. DISK C| 00000B40: 4F 4D 4D 41 4E 44 2E 2E 2E 2E 2E 2E 2E 46 35 22 |OMMAND.......F5"| 00000B50: 00 77 13 58 75 99 22 11 20 20 20 20 20 20 20 20 |.w.Xu.". | 00000B60: 20 53 54 4F 50 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | STOP...........| 00000B70: 2E 2E 2E 2E 46 37 22 00 A3 13 5D 75 99 22 11 11 |....F7"...]u."..| 00000B80: 11 11 11 11 11 20 20 20 20 20 20 20 20 20 4D 41 |..... MA| 00000B90: 44 45 20 42 59 20 20 20 53 49 52 20 54 48 4F 4D |DE BY SIR THOM| 00000BA0: 41 53 22 00 BE 13 62 75 A1 20 53 56 24 3A 8B 20 |AS"...bu. SV$:. | 00000BB0: 53 56 24 B2 22 22 20 A7 20 33 30 30 35 30 00 D1 |SV$."" . 30050..| 00000BC0: 13 6C 75 8B 20 53 56 24 B2 22 85 22 20 A7 20 31 |.lu. SV$."." . 1| 00000BD0: 30 00 E7 13 76 75 8B 20 53 56 24 B2 22 86 22 20 |0...vu. SV$."." | 00000BE0: A7 20 34 30 30 30 30 00 FD 13 80 75 8B 20 53 56 |. 40000....u. SV| 00000BF0: 24 B2 22 87 22 20 A7 20 34 32 30 30 30 00 0F 14 |$."." . 42000...| 00000C00: 8A 75 8B 20 53 56 24 B2 22 88 22 20 A7 20 80 00 |.u. SV$."." . ..| 00000C10: 26 14 94 75 8B 20 53 56 24 B3 B1 22 88 22 20 A7 |&..u. SV$.."." .| 00000C20: 20 33 30 30 35 30 00 47 14 40 9C 8F 20 2A 2A 2A | 30050.G.@.. ***| 00000C30: 2A 2A 20 4E 45 57 20 42 41 4D 20 48 45 41 44 45 |** NEW BAM HEADE| 00000C40: 52 20 2A 2A 2A 2A 2A 00 65 14 45 9C 8F 20 50 4F |R *****.e.E.. PO| 00000C50: 4B 45 35 33 32 38 30 2C 34 3A 50 4F 4B 45 35 33 |KE53280,4:POKE53| 00000C60: 32 38 31 2C 37 00 99 14 4A 9C 99 22 93 12 81 20 |281,7...J.."... | 00000C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000C90: 20 20 20 20 20 20 20 22 3B 00 CC 14 54 9C 99 22 | ";...T.."| 00000CA0: 92 1E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************| 00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 00 15 5E |**********";...^| 00000CD0: 9C 99 22 2A 92 1C 20 20 20 4E 20 20 59 20 20 54 |.."*.. N Y T| 00000CE0: 20 20 20 42 20 20 41 20 20 4D 20 20 20 48 20 20 | B A M H | 00000CF0: 4F 20 20 56 20 20 45 20 20 44 20 20 1E 2A 22 3B |O V E D .*";| 00000D00: 00 31 15 68 9C 99 22 2A 2A 2A 2A 2A 2A 2A 2A 2A |.1.h.."*********| 00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |***************"| 00000D30: 3B 00 64 15 72 9C 99 22 12 81 20 20 20 20 20 20 |;.d.r..".. | 00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000D60: 20 20 22 3B 00 95 15 7C 9C 97 32 31 34 2C 32 32 | ";...|..214,22| 00000D70: 3A 99 3A 99 22 92 90 20 20 20 20 20 20 20 20 20 |:.:.".. | 00000D80: 4D 20 41 20 44 20 45 20 20 20 42 20 59 20 20 20 |M A D E B Y | 00000D90: 54 20 2F 20 44 00 D1 15 86 9C 99 A6 33 29 22 92 |T / D.......3)".| 00000DA0: 1F 13 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... | 00000DB0: 20 44 49 53 4B 45 54 54 45 20 4E 41 56 4E 20 20 | DISKETTE NAVN | 00000DC0: 20 20 20 20 49 44 20 20 20 20 46 4F 52 4D 41 54 | ID FORMAT| 00000DD0: 22 00 FD 15 90 9C 99 A6 33 29 22 1C D5 C3 C3 C3 |".......3)".....| 00000DE0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 20 |............... | 00000DF0: 20 D5 C3 C3 C3 C9 20 20 D5 C3 C3 C3 C9 00 28 16 | ..... ......(.| 00000E00: 9A 9C 99 A6 33 29 22 C2 20 20 20 20 20 20 20 20 |....3)". | 00000E10: 20 20 20 20 20 20 20 20 20 C2 20 20 C2 20 20 20 | . . | 00000E20: C2 20 20 C2 20 20 20 C2 00 53 16 A4 9C 99 A6 33 |. . ..S.....3| 00000E30: 29 22 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |)"..............| 00000E40: C3 C3 C3 C3 CB 20 20 CA C3 C3 C3 CB 20 20 CA C3 |..... ..... ..| 00000E50: C3 C3 CB 00 73 16 AE 9C 86 44 24 28 32 30 29 3A |....s....D$(20):| 00000E60: 51 B2 34 3A 41 B2 31 36 3A 5A B2 31 3A 8D 34 30 |Q.4:A.16:Z.1:.40| 00000E70: 32 33 30 00 8D 16 B8 9C 43 24 B2 22 20 20 20 20 |230.....C$." | 00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 B6 16 | "...| 00000E90: C2 9C 43 B2 C3 28 43 24 29 AB C3 28 41 24 28 31 |..C..(C$)..(A$(1| 00000EA0: 29 29 3A 41 24 28 31 29 B2 41 24 28 31 29 AA C9 |)):A$(1).A$(1)..| 00000EB0: 28 43 24 2C 43 29 00 DE 16 CC 9C 41 24 B2 41 24 |(C$,C).....A$.A$| 00000EC0: 28 31 29 AA 22 A0 20 22 AA 41 24 28 32 29 AA 22 |(1).". ".A$(2)."| 00000ED0: 20 22 AA 41 24 28 33 29 AA 22 20 A0 A0 22 00 F5 | ".A$(3)." .."..| 00000EE0: 16 D6 9C 9F 31 2C 38 2C 31 35 3A 9F 32 2C 38 2C |....1,8,15:.2,8,| 00000EF0: 32 2C 22 23 22 00 0B 17 E0 9C 98 31 2C 22 55 31 |2,"#"......1,"U1| 00000F00: 3A 22 3B 32 3B 30 3B 31 38 3B 30 00 1F 17 EA 9C |:";2;0;18;0.....| 00000F10: 98 31 2C 22 42 2D 50 3A 22 3B 32 3B 31 34 34 00 |.1,"B-P:";2;144.| 00000F20: 2A 17 F4 9C 98 32 2C 41 24 3B 00 47 17 FE 9C 98 |*....2,A$;.G....| 00000F30: 31 2C 22 55 32 3A 22 3B 32 3B 30 3B 31 38 3B 30 |1,"U2:";2;0;18;0| 00000F40: 3A 98 31 2C 22 49 22 00 51 17 08 9D A0 32 3A A0 |:.1,"I".Q....2:.| 00000F50: 31 00 73 17 12 9D 9F 32 2C 38 2C 30 2C 22 24 22 |1.s....2,8,0,"$"| 00000F60: 3A 99 22 11 11 11 11 11 1C 20 20 20 20 20 20 20 |:."...... | 00000F70: 20 22 3B 00 9A 17 1C 9D 81 54 B2 31 A4 33 34 3A | ";......T.1.34:| 00000F80: A1 23 32 2C 42 24 3A 99 42 24 3B 3A 82 3A A0 32 |.#2,B$:.B$;:.:.2| 00000F90: 3A 9C 3A 89 20 34 31 30 30 30 00 B2 17 26 9D 97 |:.:. 41000...&..| 00000FA0: 32 31 34 2C 31 30 3A 99 3A 99 A6 51 AA 59 29 22 |214,10:.:..Q.Y)"| 00000FB0: 3C 22 00 D1 17 30 9D A1 47 24 3A 3A 44 24 28 59 |<"...0..G$::D$(Y| 00000FC0: 29 B2 47 24 3A 8B 47 24 B2 22 22 A7 34 30 32 34 |).G$:.G$."".4024| 00000FD0: 30 00 0D 18 3A 9D 8B C2 28 31 39 37 29 B2 30 AF |0...:...(197).0.| 00000FE0: 59 B1 B2 31 A7 59 B2 59 AB 31 3A 97 32 31 34 2C |Y..1.Y.Y.1:.214,| 00000FF0: 31 30 3A 99 3A 99 A3 51 AA 59 29 22 3C 20 22 3A |10:.:..Q.Y)"< ":| 00001000: 8D 34 30 33 34 30 3A 89 34 30 32 34 30 00 1F 18 |.40340:.40240...| 00001010: 44 9D 8B C2 28 31 39 37 29 B2 30 A7 32 35 30 00 |D...(197).0.250.| 00001020: 5E 18 4E 9D 8B C2 28 31 39 37 29 B2 31 AF 59 B1 |^.N...(197).1.Y.| 00001030: 30 A7 43 24 B2 22 22 3A 81 58 B2 30 A4 59 AB 31 |0.C$."":.X.0.Y.1| 00001040: 3A 43 24 B2 43 24 AA 44 24 28 58 29 3A 82 3A 41 |:C$.C$.D$(X):.:A| 00001050: 24 28 5A 29 B2 43 24 3A 89 34 30 33 31 30 00 6D |$(Z).C$:.40310.m| 00001060: 18 58 9D 8B 59 B2 41 A7 34 30 32 35 30 00 9B 18 |.X..Y.A.40250...| 00001070: 62 9D 8B C2 28 31 39 37 29 B1 31 A7 97 32 31 34 |b...(197).1..214| 00001080: 2C 31 30 3A 99 3A 99 A3 51 AA 59 29 44 24 28 59 |,10:.:..Q.Y)D$(Y| 00001090: 29 AA 22 3C 22 3A 59 B2 59 AA 31 00 AD 18 6C 9D |)."<":Y.Y.1...l.| 000010A0: 8D 34 30 33 34 30 3A 89 34 30 32 34 30 00 D0 18 |.40340:.40240...| 000010B0: 76 9D 8B 20 51 B2 34 20 A7 51 B2 32 35 3A 41 B2 |v.. Q.4 .Q.25:A.| 000010C0: 32 3A 5A B2 32 3A 59 B2 30 3A 89 34 30 32 33 30 |2:Z.2:Y.0:.40230| 000010D0: 00 F3 18 80 9D 8B 20 51 B2 32 35 A7 51 B2 33 32 |...... Q.25.Q.32| 000010E0: 3A 41 B2 32 3A 5A B2 33 3A 59 B2 30 3A 89 34 30 |:A.2:Z.3:Y.0:.40| 000010F0: 32 33 30 00 F9 18 8A 9D 8E 00 0F 19 94 9D 97 31 |230............1| 00001100: 39 38 2C 30 3A 20 8B 59 B2 AB 31 A7 59 B2 30 00 |98,0: .Y..1.Y.0.| 00001110: 15 19 9E 9D 8E 00 3B 19 28 A0 99 3A 99 22 11 11 |......;.(..:."..| 00001120: 90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 |. H| 00001130: 49 54 20 41 4E 59 20 4B 45 59 22 00 56 19 32 A0 |IT ANY KEY".V.2.| 00001140: A1 20 53 56 24 3A 8B 20 53 56 24 B2 22 22 20 A7 |. SV$:. SV$."" .| 00001150: 20 34 31 30 31 30 00 62 19 3C A0 89 20 33 30 30 | 41010.b.<.. 300| 00001160: 30 30 00 81 19 10 A4 8F 20 2A 2A 2A 2A 2A 20 44 |00...... ***** D| 00001170: 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 2A 2A 2A 2A |ISK COMMAND ****| 00001180: 2A 00 BA 19 1A A4 99 22 93 11 12 1C 20 20 20 20 |*......".... | 00001190: 92 90 20 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 20 |.. DISK COMMAND | 000011A0: 12 1C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 000011B0: 20 20 20 20 20 20 20 20 90 22 00 C3 19 24 A4 9F | ."...$..| 000011C0: 39 2C 30 00 D0 19 29 A4 9F 31 35 2C 38 2C 31 35 |9,0...)..15,8,15| 000011D0: 00 EC 19 2E A4 99 22 11 11 20 20 20 20 44 49 53 |......".. DIS| 000011E0: 4B 20 43 4F 4D 4D 41 4E 44 53 3A 22 00 13 1A 38 |K COMMANDS:"...8| 000011F0: A4 99 22 11 20 20 20 20 20 20 53 43 52 41 43 48 |..". SCRACH| 00001200: 20 46 49 4C 45 28 53 29 2E 2E 2E 2E 2E 2E 2E 2E | FILE(S)........| 00001210: 46 31 22 00 3A 1A 3D A4 99 22 11 20 20 20 20 20 |F1".:.=..". | 00001220: 20 52 45 4E 41 4D 45 20 46 49 4C 45 28 53 29 2E | RENAME FILE(S).| 00001230: 2E 2E 2E 2E 2E 2E 2E 46 33 22 00 61 1A 42 A4 99 |.......F3".a.B..| 00001240: 22 11 20 20 20 20 20 20 49 4E 49 54 49 41 4C 49 |". INITIALI| 00001250: 5A 45 20 44 49 53 4B 2E 2E 2E 2E 2E 2E 2E 46 35 |ZE DISK.......F5| 00001260: 22 00 88 1A 47 A4 99 22 11 20 20 20 20 20 20 56 |"...G..". V| 00001270: 41 4C 49 44 41 54 45 20 44 49 53 4B 2E 2E 2E 2E |ALIDATE DISK....| 00001280: 2E 2E 2E 2E 2E 46 37 22 00 B3 1A 4C A4 99 22 11 |.....F7"...L..".| 00001290: 20 20 20 20 20 20 48 4F 56 45 44 4D 45 4E 55 2E | HOVEDMENU.| 000012A0: 2E 2E 2E 2E 2E 2E 2E 2E 12 1C 52 45 54 55 52 4E |..........RETURN| 000012B0: 92 90 22 00 CC 1A 74 A4 99 22 11 20 20 20 20 49 |.."...t..". I| 000012C0: 4E 44 54 41 53 54 20 56 41 4C 47 22 00 E7 1A 7E |NDTAST VALG"...~| 000012D0: A4 A1 20 53 56 24 3A 8B 20 53 56 24 B2 22 22 20 |.. SV$:. SV$."" | 000012E0: A7 20 34 32 31 31 30 00 FB 1A 88 A4 8B 20 53 56 |. 42110...... SV| 000012F0: 24 B2 C7 28 31 33 29 20 A7 20 8A 00 11 1B 92 A4 |$..(13) . ......| 00001300: 8B 20 53 56 24 B2 22 85 22 20 A7 20 34 32 35 30 |. SV$."." . 4250| 00001310: 30 00 27 1B 9C A4 8B 20 53 56 24 B2 22 86 22 20 |0.'.... SV$."." | 00001320: A7 20 34 32 35 35 30 00 3D 1B A6 A4 8B 20 53 56 |. 42550.=.... SV| 00001330: 24 B2 22 87 22 20 A7 20 34 32 36 30 30 00 53 1B |$."." . 42600.S.| 00001340: B0 A4 8B 20 53 56 24 B2 22 88 22 20 A7 20 34 32 |... SV$."." . 42| 00001350: 36 35 30 00 6A 1B BA A4 8B 20 53 56 24 B3 B1 22 |650.j.... SV$.."| 00001360: 88 22 20 A7 20 34 32 31 31 30 00 7F 1B D8 A4 84 |." . 42110......| 00001370: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 |15,EN,EM$,ET,ES.| 00001380: B4 1B E2 A4 99 22 11 20 20 20 20 20 44 49 53 4B |.....". DISK| 00001390: 20 45 52 52 4F 52 3A 11 22 3A 99 22 20 20 20 20 | ERROR:.":." | 000013A0: 22 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 3A A0 31 |"EN;EM$;ET;ES:.1| 000013B0: 35 3A A0 39 00 D8 1B EC A4 99 22 11 11 11 20 20 |5:.9......"... | 000013C0: 20 20 20 20 20 20 20 20 20 20 20 20 48 49 54 20 | HIT | 000013D0: 41 4E 59 20 4B 45 59 22 00 F3 1B F6 A4 A1 20 53 |ANY KEY"...... S| 000013E0: 56 24 3A 8B 20 53 56 24 B2 22 22 20 A7 20 34 32 |V$:. SV$."" . 42| 000013F0: 32 33 30 00 FF 1B 00 A5 89 20 33 30 30 30 30 00 |230...... 30000.| 00001400: 21 1C 04 A6 8F 20 2A 2A 2A 2A 2A 20 53 43 52 41 |!.... ***** SCRA| 00001410: 54 43 48 20 46 49 4C 45 28 53 29 20 2A 2A 2A 2A |TCH FILE(S) ****| 00001420: 2A 00 5D 1C 09 A6 99 22 93 11 12 1C 20 20 20 20 |*.]....".... | 00001430: 92 90 20 53 43 52 41 54 43 48 20 46 49 4C 45 28 |.. SCRATCH FILE(| 00001440: 53 29 20 12 1C 20 20 20 20 20 20 20 20 20 20 20 |S) .. | 00001450: 20 20 20 20 20 20 20 20 90 11 11 11 22 00 7E 1C | ....".~.| 00001460: 0E A6 99 22 11 20 20 20 20 20 46 49 4C 45 20 4E |...". FILE N| 00001470: 41 4D 45 3A 22 3B 3A 84 39 2C 45 24 3A 99 00 8F |AME:";:.9,E$:...| 00001480: 1C 18 A6 98 31 35 2C 22 53 38 3A 22 AA 45 24 00 |....15,"S8:".E$.| 00001490: 9B 1C 22 A6 89 20 34 32 32 30 30 00 BC 1C 36 A6 |..".. 42200...6.| 000014A0: 8F 20 2A 2A 2A 2A 2A 20 52 45 4E 41 4D 45 20 46 |. ***** RENAME F| 000014B0: 49 4C 45 28 53 29 20 2A 2A 2A 2A 2A 00 F8 1C 3B |ILE(S) *****...;| 000014C0: A6 99 22 93 11 12 1C 20 20 20 20 92 90 20 52 45 |..".... .. RE| 000014D0: 4E 41 4D 45 20 46 49 4C 45 28 53 29 20 12 1C 20 |NAME FILE(S) .. | 000014E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014F0: 20 20 20 90 11 11 11 22 00 1C 1D 40 A6 99 22 20 | ...."...@.." | 00001500: 20 20 20 20 4F 4C 44 20 46 49 4C 45 4E 41 4D 45 | OLD FILENAME| 00001510: 3A 22 3B 3A 84 39 2C 45 31 24 3A 99 00 41 1D 45 |:";:.9,E1$:..A.E| 00001520: A6 99 22 11 20 20 20 20 20 4E 45 57 20 46 49 4C |..". NEW FIL| 00001530: 45 4E 41 4D 45 3A 22 3B 3A 84 39 2C 45 32 24 3A |ENAME:";:.9,E2$:| 00001540: 99 00 5B 1D 4A A6 98 31 35 2C 22 52 38 3A 22 AA |..[.J..15,"R8:".| 00001550: 45 32 24 AA 22 3D 22 AA 45 31 24 00 67 1D 54 A6 |E2$."=".E1$.g.T.| 00001560: 89 20 34 32 32 30 30 00 89 1D 68 A6 8F 20 2A 2A |. 42200...h.. **| 00001570: 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 44 |*** INITIALIZE D| 00001580: 49 53 4B 20 2A 2A 2A 2A 2A 00 C5 1D 6D A6 99 22 |ISK *****...m.."| 00001590: 93 11 12 1C 20 20 20 20 92 90 20 49 4E 49 54 49 |.... .. INITI| 000015A0: 41 4C 49 5A 45 20 44 49 53 4B 20 12 1C 20 20 20 |ALIZE DISK .. | 000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015C0: 90 11 11 11 22 00 D1 1D 72 A6 98 31 35 2C 22 49 |...."...r..15,"I| 000015D0: 22 00 DD 1D 7C A6 89 20 34 32 32 30 30 00 FD 1D |"...|.. 42200...| 000015E0: 9A A6 8F 20 2A 2A 2A 2A 2A 20 56 41 4C 49 44 41 |... ***** VALIDA| 000015F0: 54 45 20 44 49 53 4B 20 2A 2A 2A 2A 2A 00 39 1E |TE DISK *****.9.| 00001600: 9F A6 99 22 93 11 12 1C 20 20 20 20 92 90 20 56 |...".... .. V| 00001610: 41 4C 49 44 41 54 45 20 44 49 53 4B 20 12 1C 20 |ALIDATE DISK .. | 00001620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001630: 20 20 20 20 90 11 11 11 22 00 55 1E A1 A6 99 22 | ....".U...."| 00001640: 11 11 11 20 20 20 20 20 20 56 41 4C 49 44 41 54 |... VALIDAT| 00001650: 49 4E 47 21 22 00 61 1E A4 A6 98 31 35 2C 22 56 |ING!".a....15,"V| 00001660: 22 00 6D 1E AE A6 89 20 34 32 32 30 30 00 00 00 |".m.... 42200...|
..#.... 53280,06:. 53281,15:. 646,0./...
. 30000.H....".... .. UDSKRIFT AF BAM
.. ."...... R$(100),S
$(100),T$(100)...... OPEN15,8,15... ..2,
8,15...!.. GOSUB 20000.F.".. GOTO 8000.V
.(..1,8,0,"$0"...)..#1,A$,B$...*..#1,A$,
B$...+..#1,A$,B$...,.. GOSUB 20000.,.2.C
.0:R.R.1:S.S.1:T.T.1.C.<.. A$.."" . C.F(
A$).`.F.. B$.."" . C.C.F(B$).256.T.U.R$(
R).J(D(C),2)...V.. C(R$(R)).4 . R$(R).R$
(R)." ":. 86...Z..#1,B$:. ST..0 . 1000.K
.D.. B$..G(34) . 90...N..#1,B$:. B$..G(3
4). S$(S).S$(S).B$:.110.!.S.. C(S$(S)).1
8 . S$(S).S$(S)." ":. 115.=.X..#1,B$:. B
$.G(32) . 120.G...C$."".K...C$.C$.B$:.#1
,B$:. B$.."" . 140.}...T$(T).H(C$,3)...
... T.1 . . .6)"."R$(R);S$(S);T$(T)".":.
160.G.... .6)R$(R);S$(S);T$(T)... .. W$
:. W$." " . 1:....... ST.0 . 42...... .
6)R$(R)" BLOCKS FREE"..... 1.?...."..
COPY FROM PRINTER? (Y/N)..".Y.... SV
$:. SV$."" . 1014...... SV$."Y" . . 1300
0:. 11000:. 14000...... SV$."N" . ......
. SV$.."N" . 1014..... 4:..P.... R$(100)
,S$(100),T$(100)...... 10000...P.. W$."
" . 1:....Z.. W$:. W$."" . 2000.......?
.@.."... INSERT DISK AND HIT .. RETU
RN ...".D.J.." ...ANY OTHER TO QUI
T..".Y....A$:.A$."". 8100.... . A$.G(13)
. ."...":. 40...V . A$..G(13) . ..... .
8100....'.". ...AND HIT .. RETURN
...."...T'.A$:.A$."".10100...X'. A$.G(13
) . 40...F(. A$."Q" . ..#.P(. 10100.F..*
. ***** PRINTER RUTINE 1 *****.O..*.4,4.
[..*.4,G(P)...*. PRINT".. INSERT NEW D
ISK..."....*. I.1 . R.1....*. I.1 . . 12
000:. 11020.X..+.4,G(27)G(16)G(HP)G(LP)R
$(I);S$(I);T$(I)....+.....+.4,G(27)G(16)
G(HP)G(LP)R$(I)"BLOCKS FREE"....+. 15000
.+..+. L..0 . 11050.>. +. Y.1 . L:.4:..D
.*+..G.... ***** PRINTER RUTINE 2 *****.
.....4,G(27)G(16)G(HP)G(LP)G(18)R$(I);S$
(I);T$(I)G(146).......F.H2. ***** SP0RGE
RUTINE 2 *****...R2.".. CARAC
TER SIZE"....2.". SINGLE WITH..
..F1./..2.". DOUBLE WITH....F3.
I..2. SV$:. SV$."". 13040.H..2. SV$."."
. P.15:. 16000:.....3. SV$."." . P.14:.
16000:.....3. SV$.."." . 13040....6. ***
** SP0RGERUTINE 3 *****....6.". A
NOTHER COPY (Y/N)"...X6. SV$:. SV$."". 1
4040.$..6. SV$."Y" . . 13000:. 11003:. 1
4000.6..6. SV$."N" . ..M..6. SV$.."." .
14040.J..:. ***** PAPER FEED *****....:.
". PAPER FEED"....:.". SING
LE LINES....F1".I..:.". PAGE OUT..
......F3"....:. SV$:. SV$."". 15040...J:
. SV$."." . 15200...T:. SV$."." . L.71.I
:..)..:. SV$.."." . 15040.?.`;.". LI
NES:";L.E.J;..K.T;..E..>. ***** HP / LP
*****....>.". START POSITION"....>
.". NUMERS OF CHAR'S FROM LEFT";SP.F..>
. SP.0 . SP.80 . 16020.W..>HP..(SP.256).
...>LP.(SP.HP.256).6....>.... N. ***** E
RROR CHECK *****.%.*N.15,EN,EM$,ET,ES.5.
4N. EN.20 . ..[.>N." .. DISK
ERROR ...".R.HN. .8) EN;EM$;ET;ES.Z.RN
15...\N. 12...0U. ***** HOVEDMENU *****.
W.:U.".... .. DIR ..
"...DU."..... UDSK
RIFT AF BAM....F1".).NU.". AENDR
E BAM HEADER..F3".P.SU.". DISK C
OMMAND.......F5".W.XU.". STOP...
............F7"...]U."....... MA
DE BY SIR THOMAS"...BU. SV$:. SV$."" .
30050.Q.LU. SV$."." . 10...VU. SV$."."
. 40000....U. SV$."." . 42000....U. SV$.
"." . ..&..U. SV$.."." . 30050.G.@.. ***
** NEW BAM HEADER *****.E.E.. POKE53280,
4:POKE53281,7...J.."...
";.L.T.."..******
**********************************";...^
.."*.. N Y T B A M H O V E
D .*";.1.H.."*************************
***************";.D.R.."..
";...|..214,22
:.:.".. M A D E B Y T / D.Q.
....3)"............ DISKETTE NAVN
ID FORMAT".......3)".UCCCCCCCCCCC
CCCCCCI UCCCI UCCCI.(.....3)"B
B B B B B.S.....3)"JCCCCC
CCCCCCCCCCCCK JCCCK JCCCK.S....D$(20):
Q.4:A.16:Z.1:.40230.....C$."
"...B.C.C(C$).C(A$(1)):A$(1).A$(1).I
(C$,C)...L.A$.A$(1)." ".A$(2)." ".A$(3)
." "...V..1,8,15:.2,8,2,"#"......1,"U1
:";2;0;18;0......1,"B-P:";2;144.*....2,A
$;.G....1,"U2:";2;0;18;0:.1,"I".Q... 2:
1.S....2,8,0,"$":."...... ";.....
.T.1.34:.#2,B$:.B$;:.: 2:.:. 41000...&..
214,10:.:..Q.Y)"<".Q.0..G$::D$(Y).G$:.G$
."".40240...:..B(197).0.Y..1.Y.Y.1:.214,
10:.:..Q.Y)"< ":.40340:.40240...D..B(197
).0.250.^.N..B(197).1.Y.0.C$."":.X.0.Y.1
:C$.C$.D$(X):.:A$(Z).C$:.40310.M.X..Y.A.
40250...B..B(197).1..214,10:.:..Q.Y)D$(Y
)."<":Y.Y.1...L..40340:.40240.P.V.. Q.4
.Q.25:A.2:Z.2:Y.0:.40230...... Q.25.Q.32
:A.2:Z.3:Y.0:.40230............198,0: .Y
..1.Y.0.......;.( .:."... H
IT ANY KEY".V.2 . SV$:. SV$."" . 41010.B
.< . 30000...... ***** DISK COMMAND ****
*......".... .. DISK COMMAND ..
.".C.$..9,0.P.)..15,8,15
......".. DISK COMMANDS:"...8..".
SCRACH FILE(S)........F1".:.=..".
RENAME FILE(S)........F3".A.B..".
INITIALIZE DISK.......F5"...G..". V
ALIDATE DISK.........F7"...L..". HO
VEDMENU...........RETURN..".L.T..". I
NDTAST VALG"...~.. SV$:. SV$."" . 42110.
..... SV$.G(13) . ....... SV$."." . 4250
0.'.... SV$."." . 42550.=.... SV$."." .
42600.S.... SV$."." . 42650.J.... SV$.."
." . 42110..X..15,EN,EM$,ET,ES......".
DISK ERROR:.":." "EN;EM$;ET;ES: 1
5: 9.X...."... HIT ANY KEY"
...... SV$:. SV$."" . 42230...... 30000.
!.... ***** SCRATCH FILE(S) *****.]...."
.... .. SCRATCH FILE(S) ..
....".~....". FILE NAME:";:.
9,E$:.......15,"S8:".E$...".. 42200...6.
. ***** RENAME FILE(S) *****...;.."....
.. RENAME FILE(S) ..
...."...@.." OLD FILENAME:";:.9,E
1$:..A.E..". NEW FILENAME:";:.9,E2$:
..[.J..15,"R8:".E2$."=".E1$.G.T.. 42200.
..H.. ***** INITIALIZE DISK *****.E.M.."
.... .. INITIALIZE DISK ..
....".Q.R..15,"I"...|.. 42200...
... ***** VALIDATE DISK *****.9...."....
.. VALIDATE DISK ..
....".U...."... VALIDATING!".A.
...15,"V".M.... 42200...
> CLICK IMAGE PREVIEW FOR FULL MODAL