DIR
FILE INFORMATION
FILENAME(S): DIR
FILE TYPE(S): PRG
FILE SIZE: 7.2K
FIRST SEEN: 2025-11-30 19:47:22
APPEARS ON: 3 disk(s)
FILE HASH
67a4df7cb55a67460d6773e9779608f9949ba80dcf6737a9bfe352ce2b2c8e9e
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIDISK 10 2 | DIR | PRG | Curtcool, Frank | 16 | 11 | DOWNLOAD FILE |
| KOPIDISK 01 2 | DIR | PRG | Curtcool, Frank | 10 | 11 | DOWNLOAD FILE |
| LEON OLSEN | DIR | PRG | hedning, Martin L0fgren | 5 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 01 00 97 20 35 33 32 38 30 2C 36 3A |..,.... 53280,6:|
00000010: 97 20 35 33 32 38 31 2C 31 35 3A 97 20 36 34 36 |. 53281,15:. 646|
00000020: 2C 30 3A 97 20 38 30 38 2C 32 32 35 00 37 08 02 |,0:. 808,225.7..|
00000030: 00 99 20 C7 28 38 29 00 43 08 03 00 89 20 33 30 |.. .(8).C.... 30|
00000040: 30 30 30 00 7E 08 0A 00 99 22 93 11 12 1C 20 20 |000.~....".... |
00000050: 20 20 92 90 20 55 44 53 4B 52 49 46 54 20 41 46 | .. UDSKRIFT AF|
00000060: 20 42 41 4D 20 12 1C 20 20 20 20 20 20 20 20 20 | BAM .. |
00000070: 20 20 20 20 20 20 20 20 20 20 90 11 11 22 00 9C | ..."..|
00000080: 08 1E 00 86 20 52 24 28 31 30 30 29 2C 53 24 28 |.... R$(100),S$(|
00000090: 31 30 30 29 2C 54 24 28 31 30 30 29 00 A8 08 20 |100),T$(100)... |
000000A0: 00 9F 32 2C 38 2C 31 35 00 B8 08 28 00 9F 31 2C |..2,8,15...(..1,|
000000B0: 38 2C 30 2C 22 24 30 22 00 C6 08 29 00 A1 23 31 |8,0,"$0"...)..#1|
000000C0: 2C 41 24 2C 42 24 00 D4 08 2A 00 A1 23 31 2C 41 |,A$,B$...*..#1,A|
000000D0: 24 2C 42 24 00 E2 08 2B 00 A1 23 31 2C 41 24 2C |$,B$...+..#1,A$,|
000000E0: 42 24 00 FC 08 32 00 43 B2 30 3A 52 B2 52 AA 31 |B$...2.C.0:R.R.1|
000000F0: 3A 53 B2 53 AA 31 3A 54 B2 54 AA 31 00 13 09 3C |:S.S.1:T.T.1...<|
00000100: 00 8B 20 41 24 B3 B1 22 22 20 A7 20 43 B2 C6 28 |.. A$.."" . C..(|
00000110: 41 24 29 00 30 09 46 00 8B 20 42 24 B3 B1 22 22 |A$).0.F.. B$..""|
00000120: 20 A7 20 43 B2 43 AA C6 28 42 24 29 AC 32 35 36 | . C.C..(B$).256|
00000130: 00 44 09 55 00 52 24 28 52 29 B2 CA 28 C4 28 43 |.D.U.R$(R)..(.(C|
00000140: 29 2C 32 29 00 6C 09 56 00 8B 20 C3 28 52 24 28 |),2).l.V.. .(R$(|
00000150: 52 29 29 B3 34 20 A7 20 52 24 28 52 29 B2 52 24 |R)).4 . R$(R).R$|
00000160: 28 52 29 AA 22 20 22 3A 89 20 38 36 00 86 09 5A |(R)." ":. 86...Z|
00000170: 00 A1 23 31 2C 42 24 3A 8B 20 53 54 B3 B1 30 20 |..#1,B$:. ST..0 |
00000180: A7 20 31 30 30 30 00 9B 09 64 00 8B 20 42 24 B3 |. 1000...d.. B$.|
00000190: B1 C7 28 33 34 29 20 A7 20 39 30 00 C7 09 6E 00 |..(34) . 90...n.|
000001A0: A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 C7 28 33 |.#1,B$:. B$...(3|
000001B0: 34 29 A7 20 53 24 28 53 29 B2 53 24 28 53 29 AA |4). S$(S).S$(S).|
000001C0: 42 24 3A 89 31 31 30 00 F1 09 73 00 8B 20 C3 28 |B$:.110...s.. .(|
000001D0: 53 24 28 53 29 29 B3 31 38 20 A7 20 53 24 28 53 |S$(S)).18 . S$(S|
000001E0: 29 B2 53 24 28 53 29 AA 22 20 22 3A 89 20 31 31 |).S$(S)." ":. 11|
000001F0: 35 00 0D 0A 78 00 A1 23 31 2C 42 24 3A 8B 20 42 |5...x..#1,B$:. B|
00000200: 24 B2 C7 28 33 32 29 20 A7 20 31 32 30 00 17 0A |$..(32) . 120...|
00000210: 82 00 43 24 B2 22 22 00 3B 0A 8C 00 43 24 B2 43 |..C$."".;...C$.C|
00000220: 24 AA 42 24 3A A1 23 31 2C 42 24 3A 8B 20 42 24 |$.B$:.#1,B$:. B$|
00000230: B3 B1 22 22 20 20 A7 20 31 34 30 00 4D 0A 9B 00 |.."" . 140.M...|
00000240: 54 24 28 54 29 B2 C8 28 43 24 2C 33 29 00 7C 0A |T$(T)..(C$,3).|.|
00000250: 9D 00 8B 20 54 B2 31 20 A7 20 99 20 A3 36 29 22 |... T.1 . . .6)"|
00000260: 12 22 52 24 28 52 29 3B 53 24 28 53 29 3B 54 24 |."R$(R);S$(S);T$|
00000270: 28 54 29 22 92 22 3A 89 20 31 36 30 00 97 0A 9E |(T)".":. 160....|
00000280: 00 99 20 A3 36 29 52 24 28 52 29 3B 53 24 28 53 |.. .6)R$(R);S$(S|
00000290: 29 3B 54 24 28 54 29 00 B0 0A A0 00 A1 20 57 24 |);T$(T)...... W$|
000002A0: 3A 8B 20 57 24 B2 22 88 22 20 A7 20 A0 31 3A 8A |:. W$."." . .1:.|
000002B0: 00 C0 0A AA 00 8B 20 53 54 B2 30 20 A7 20 34 32 |...... ST.0 . 42|
000002C0: 00 F3 0A E8 03 8B 20 C5 28 52 24 28 52 29 29 B1 |...... .(R$(R)).|
000002D0: 36 36 34 20 A7 20 A0 31 3A 9F 31 35 2C 38 2C 31 |664 . .1:.15,8,1|
000002E0: 35 3A 8D 20 32 30 30 30 30 3A 8D 20 35 30 30 30 |5:. 20000:. 5000|
000002F0: 30 3A 8A 00 10 0B EA 03 99 20 A3 36 29 52 24 28 |0:....... .6)R$(|
00000300: 52 29 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 |R)" BLOCKS FREE"|
00000310: 00 17 0B F2 03 A0 31 00 43 0B F4 03 99 22 11 11 |......1.C...."..|
00000320: 11 20 20 20 20 20 20 20 43 4F 50 59 20 46 52 4F |. COPY FRO|
00000330: 4D 20 50 52 49 4E 54 45 52 3F 20 28 59 2F 4E 29 |M PRINTER? (Y/N)|
00000340: 11 11 22 00 5D 0B F6 03 A1 20 53 56 24 3A 8B 20 |..".].... SV$:. |
00000350: 53 56 24 B2 22 22 20 A7 20 31 30 31 34 00 85 0B |SV$."" . 1014...|
00000360: F7 03 8B 20 53 56 24 B2 22 59 22 20 A7 20 8D 20 |... SV$."Y" . . |
00000370: 31 33 30 30 30 3A 8D 20 31 31 30 30 30 3A 89 20 |13000:. 11000:. |
00000380: 31 34 30 30 30 00 97 0B F8 03 8B 20 53 56 24 B2 |14000...... SV$.|
00000390: 22 4E 22 20 A7 20 8A 00 AD 0B F9 03 8B 20 53 56 |"N" . ....... SV|
000003A0: 24 B3 B1 22 4E 22 20 A7 20 31 30 31 34 00 B6 0B |$.."N" . 1014...|
000003B0: FC 03 A0 34 3A 9C 00 D4 0B 06 04 86 20 52 24 28 |...4:....... R$(|
000003C0: 31 30 30 29 2C 53 24 28 31 30 30 29 2C 54 24 28 |100),S$(100),T$(|
000003D0: 31 30 30 29 00 E0 0B 10 04 89 20 31 30 30 30 30 |100)...... 10000|
000003E0: 00 F4 0B D0 07 8B 20 57 24 B2 22 20 22 20 A7 20 |...... W$." " . |
000003F0: A0 31 3A 8A 00 0C 0C DA 07 A1 20 57 24 3A 8B 20 |.1:....... W$:. |
00000400: 57 24 B2 22 22 20 A7 20 32 30 30 30 00 12 0C E4 |W$."" . 2000....|
00000410: 07 8E 00 43 0C 40 1F 99 22 93 11 11 20 20 20 20 |...C.@.."... |
00000420: 20 49 4E 53 45 52 54 20 44 49 53 4B 20 41 4E 44 | INSERT DISK AND|
00000430: 20 48 49 54 20 12 1C 20 52 45 54 55 52 4E 20 92 | HIT .. RETURN .|
00000440: 90 11 22 00 68 0C 4A 1F 99 22 20 20 20 20 20 20 |..".h.J.." |
00000450: 20 2E 2E 2E 41 4E 59 20 4F 54 48 45 52 20 54 4F | ...ANY OTHER TO|
00000460: 20 51 55 49 54 11 11 22 00 7D 0C A4 1F A1 41 24 | QUIT..".}....A$|
00000470: 3A 8B 41 24 B2 22 22 A7 20 38 31 30 30 00 9A 0C |:.A$."". 8100...|
00000480: 08 20 8B 20 41 24 B2 C7 28 31 33 29 20 A7 20 99 |. . A$..(13) . .|
00000490: 22 93 11 11 22 3A 89 20 34 30 00 AE 0C 76 20 8B |"...":. 40...v .|
000004A0: 20 41 24 B3 B1 C7 28 31 33 29 20 A7 20 80 00 B9 | A$...(13) . ...|
000004B0: 0C 80 20 89 20 38 31 30 30 00 E1 0C 10 27 99 22 |.. . 8100....'."|
000004C0: 11 20 20 20 20 20 20 2E 2E 2E 41 4E 44 20 48 49 |. ...AND HI|
000004D0: 54 20 12 1C 20 52 45 54 55 52 4E 20 92 90 11 11 |T .. RETURN ....|
000004E0: 22 00 F6 0C 74 27 A1 41 24 3A 8B 41 24 B2 22 22 |"...t'.A$:.A$.""|
000004F0: A7 31 30 31 30 30 00 0A 0D D8 27 8B 20 41 24 B2 |.10100....'. A$.|
00000500: C7 28 31 33 29 20 A7 20 34 30 00 1B 0D 46 28 8B |.(13) . 40...F(.|
00000510: 20 41 24 B2 22 51 22 20 A7 20 80 00 27 0D 50 28 | A$."Q" . ..'.P(|
00000520: 89 20 31 30 31 30 30 00 4A 0D F8 2A 8F 20 2A 2A |. 10100.J..*. **|
00000530: 2A 2A 2A 20 50 52 49 4E 54 45 52 20 52 55 54 49 |*** PRINTER RUTI|
00000540: 4E 45 20 31 20 2A 2A 2A 2A 2A 00 53 0D FA 2A 9F |NE 1 *****.S..*.|
00000550: 34 2C 34 00 5F 0D FB 2A 98 34 2C C7 28 50 29 00 |4,4._..*.4,.(P).|
00000560: 6F 0D FD 2A 81 20 49 B2 31 20 A4 20 52 AB 31 00 |o..*. I.1 . R.1.|
00000570: 8B 0D FE 2A 8B 20 49 B2 31 20 A7 20 8D 20 31 32 |...*. I.1 . . 12|
00000580: 30 30 30 3A 89 20 31 31 30 32 30 00 A6 0D 00 2B |000:. 11020....+|
00000590: 99 20 A3 36 29 52 24 28 49 29 3B 53 24 28 49 29 |. .6)R$(I);S$(I)|
000005A0: 3B 54 24 28 49 29 00 D3 0D 02 2B 98 34 2C C7 28 |;T$(I)....+.4,.(|
000005B0: 32 37 29 C7 28 31 36 29 C7 28 48 50 29 C7 28 4C |27).(16).(HP).(L|
000005C0: 50 29 52 24 28 49 29 3B 53 24 28 49 29 3B 54 24 |P)R$(I);S$(I);T$|
000005D0: 28 49 29 00 D9 0D 0C 2B 82 00 F5 0D 11 2B 99 20 |(I)....+.....+. |
000005E0: A3 36 29 52 24 28 49 29 22 42 4C 4F 43 4B 53 20 |.6)R$(I)"BLOCKS |
000005F0: 46 52 45 45 22 00 23 0E 16 2B 98 34 2C C7 28 32 |FREE".#..+.4,.(2|
00000600: 37 29 C7 28 31 36 29 C7 28 48 50 29 C7 28 4C 50 |7).(16).(HP).(LP|
00000610: 29 52 24 28 49 29 22 42 4C 4F 43 4B 53 20 46 52 |)R$(I)"BLOCKS FR|
00000620: 45 45 22 00 2F 0E 1B 2B 8D 20 31 35 30 30 30 00 |EE"./..+. 15000.|
00000630: 42 0E 1C 2B 8B 20 4C B3 B2 30 20 A7 20 31 31 30 |B..+. L..0 . 110|
00000640: 35 30 00 55 0E 20 2B 81 20 59 B2 31 20 A4 20 4C |50.U. +. Y.1 . L|
00000650: 3A 98 34 3A 82 00 5B 0E 2A 2B 8E 00 7E 0E E0 2E |:.4:..[.*+..~...|
00000660: 8F 20 2A 2A 2A 2A 2A 20 50 52 49 4E 54 45 52 20 |. ***** PRINTER |
00000670: 52 55 54 49 4E 45 20 32 20 2A 2A 2A 2A 2A 00 B9 |RUTINE 2 *****..|
00000680: 0E EA 2E 99 22 93 11 12 1C 20 20 20 20 92 90 20 |....".... .. |
00000690: 50 52 49 4E 54 45 52 20 52 4F 55 54 49 4E 45 20 |PRINTER ROUTINE |
000006A0: 12 1C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000006B0: 20 20 20 20 20 90 11 11 22 00 DA 0E F4 2E 99 20 | ..."...... |
000006C0: A3 36 29 22 12 22 52 24 28 49 29 3B 53 24 28 49 |.6)"."R$(I);S$(I|
000006D0: 29 3B 54 24 28 49 29 22 92 22 00 12 0F FE 2E 98 |);T$(I)"."......|
000006E0: 34 2C C7 28 32 37 29 C7 28 31 36 29 C7 28 48 50 |4,.(27).(16).(HP|
000006F0: 29 C7 28 4C 50 29 C7 28 31 38 29 52 24 28 49 29 |).(LP).(18)R$(I)|
00000700: 3B 53 24 28 49 29 3B 54 24 28 49 29 C7 28 31 34 |;S$(I);T$(I).(14|
00000710: 36 29 00 18 0F 08 2F 8E 00 39 0F C8 32 8F 20 2A |6)..../..9..2. *|
00000720: 2A 2A 2A 2A 20 53 50 30 52 47 45 52 55 54 49 4E |**** SP0RGERUTIN|
00000730: 45 20 32 20 2A 2A 2A 2A 2A 00 72 0F CD 32 99 22 |E 2 *****.r..2."|
00000740: 93 11 12 1C 20 20 20 20 92 90 20 50 52 49 4E 54 |.... .. PRINT|
00000750: 45 52 20 52 4F 55 54 49 4E 45 20 12 1C 20 20 20 |ER ROUTINE .. |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 90 22 00 95 0F D2 32 99 22 11 11 20 20 20 20 20 |."....2.".. |
00000780: 20 20 20 20 20 20 20 43 41 52 41 43 54 45 52 20 | CARACTER |
00000790: 53 49 5A 45 22 00 B8 0F DC 32 99 22 11 20 20 20 |SIZE"....2.". |
000007A0: 20 20 20 20 20 20 20 53 49 4E 47 4C 45 20 57 49 | SINGLE WI|
000007B0: 54 48 2E 2E 2E 2E 46 31 00 DB 0F E6 32 99 22 11 |TH....F1....2.".|
000007C0: 20 20 20 20 20 20 20 20 20 20 44 4F 55 42 4C 45 | DOUBLE|
000007D0: 20 57 49 54 48 2E 2E 2E 2E 46 33 00 F5 0F F0 32 | WITH....F3....2|
000007E0: A1 20 53 56 24 3A 8B 20 53 56 24 B2 22 22 A7 20 |. SV$:. SV$."". |
000007F0: 31 33 30 34 30 00 14 10 FA 32 8B 20 53 56 24 B2 |13040....2. SV$.|
00000800: 22 85 22 20 A7 20 50 B2 31 35 3A 8D 20 31 36 30 |"." . P.15:. 160|
00000810: 30 30 3A 8E 00 33 10 04 33 8B 20 53 56 24 B2 22 |00:..3..3. SV$."|
00000820: 86 22 20 A7 20 50 B2 31 34 3A 8D 20 31 36 30 30 |." . P.14:. 1600|
00000830: 30 3A 8E 00 4A 10 0E 33 8B 20 53 56 24 B3 B1 22 |0:..J..3. SV$.."|
00000840: 86 22 20 A7 20 31 33 30 34 30 00 6B 10 B0 36 8F |." . 13040.k..6.|
00000850: 20 2A 2A 2A 2A 2A 20 53 50 30 52 47 45 52 55 54 | ***** SP0RGERUT|
00000860: 49 4E 45 20 33 20 2A 2A 2A 2A 2A 00 8F 10 BA 36 |INE 3 *****....6|
00000870: 99 22 11 11 20 20 20 20 20 20 20 20 41 4E 4F 54 |.".. ANOT|
00000880: 48 45 52 20 43 4F 50 59 20 28 59 2F 4E 29 22 00 |HER COPY (Y/N)".|
00000890: A9 10 D8 36 A1 20 53 56 24 3A 8B 20 53 56 24 B2 |...6. SV$:. SV$.|
000008A0: 22 22 A7 20 31 34 30 34 30 00 D1 10 E2 36 8B 20 |"". 14040....6. |
000008B0: 53 56 24 B2 22 59 22 20 A7 20 8D 20 31 33 30 30 |SV$."Y" . . 1300|
000008C0: 30 3A 8D 20 31 31 30 30 33 3A 89 20 31 34 30 30 |0:. 11003:. 1400|
000008D0: 30 00 E3 10 EC 36 8B 20 53 56 24 B2 22 4E 22 20 |0....6. SV$."N" |
000008E0: A7 20 8A 00 FA 10 F6 36 8B 20 53 56 24 B3 B1 22 |. .....6. SV$.."|
000008F0: 86 22 20 A7 20 31 34 30 34 30 00 17 11 98 3A 8F |." . 14040....:.|
00000900: 20 2A 2A 2A 2A 2A 20 50 41 50 45 52 20 46 45 45 | ***** PAPER FEE|
00000910: 44 20 2A 2A 2A 2A 2A 00 52 11 9D 3A 99 22 93 11 |D *****.R..:."..|
00000920: 12 1C 20 20 20 20 92 90 20 50 52 49 4E 54 45 52 |.. .. PRINTER|
00000930: 20 52 4F 55 54 49 4E 45 20 12 1C 20 20 20 20 20 | ROUTINE .. |
00000940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 90 11 | ..|
00000950: 11 22 00 6D 11 A2 3A 99 22 11 20 20 20 20 20 20 |.".m..:.". |
00000960: 20 20 50 41 50 45 52 20 46 45 45 44 22 00 8F 11 | PAPER FEED"...|
00000970: AC 3A 99 22 11 20 20 20 20 20 20 20 53 49 4E 47 |.:.". SING|
00000980: 4C 45 20 4C 49 4E 45 53 2E 2E 2E 2E 46 31 22 00 |LE LINES....F1".|
00000990: B1 11 B6 3A 99 22 11 20 20 20 20 20 20 20 50 41 |...:.". PA|
000009A0: 47 45 20 4F 55 54 2E 2E 2E 2E 2E 2E 2E 2E 46 33 |GE OUT........F3|
000009B0: 22 00 CB 11 C0 3A A1 20 53 56 24 3A 8B 20 53 56 |"....:. SV$:. SV|
000009C0: 24 B2 22 22 A7 20 31 35 30 34 30 00 E1 11 CA 3A |$."". 15040....:|
000009D0: 8B 20 53 56 24 B2 22 85 22 20 A7 20 31 35 32 30 |. SV$."." . 1520|
000009E0: 30 00 FA 11 D4 3A 8B 20 53 56 24 B2 22 86 22 20 |0....:. SV$."." |
000009F0: A7 20 4C B2 37 31 AB 49 3A 8E 00 11 12 DE 3A 8B |. L.71.I:.....:.|
00000A00: 20 53 56 24 B3 B1 22 86 22 20 A7 20 31 35 30 34 | SV$.."." . 1504|
00000A10: 30 00 27 12 60 3B 85 22 11 20 20 20 20 20 4C 49 |0.'.`;.". LI|
00000A20: 4E 45 53 3A 22 3B 4C 00 2D 12 6A 3B 8E 00 47 12 |NES:";L.-.j;..G.|
00000A30: 80 3E 8F 20 2A 2A 2A 2A 2A 20 48 50 20 2F 20 4C |.>. ***** HP / L|
00000A40: 50 20 2A 2A 2A 2A 2A 00 6B 12 8A 3E 99 22 11 11 |P *****.k..>."..|
00000A50: 11 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 |. STAR|
00000A60: 54 20 50 4F 53 49 54 49 4F 4E 22 00 95 12 94 3E |T POSITION"....>|
00000A70: 85 22 11 20 20 20 20 20 4E 55 4D 45 52 20 4F 46 |.". NUMER OF|
00000A80: 20 43 48 41 52 27 53 20 46 52 4F 4D 20 4C 45 46 | CHAR'S FROM LEF|
00000A90: 54 22 3B 53 50 00 B0 12 9E 3E 8B 20 53 50 B3 30 |T";SP....>. SP.0|
00000AA0: 20 B0 20 53 50 B1 38 30 20 A7 20 31 36 30 32 30 | . SP.80 . 16020|
00000AB0: 00 C1 12 A8 3E 48 50 B2 B5 28 53 50 AD 32 35 36 |....>HP..(SP.256|
00000AC0: 29 00 D6 12 B2 3E 4C 50 B2 28 53 50 AB 48 50 AC |)....>LP.(SP.HP.|
00000AD0: 32 35 36 29 AC 36 00 DC 12 BC 3E 8E 00 FA 12 20 |256).6....>.... |
00000AE0: 4E 8F 20 2A 2A 2A 2A 2A 20 45 52 52 4F 52 20 43 |N. ***** ERROR C|
00000AF0: 48 45 43 4B 20 2A 2A 2A 2A 2A 00 0F 13 2A 4E 84 |HECK *****...*N.|
00000B00: 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 |15,EN,EM$,ET,ES.|
00000B10: 44 13 34 4E 99 22 11 20 20 20 20 20 44 49 53 4B |D.4N.". DISK|
00000B20: 20 45 52 52 4F 52 3A 11 22 3A 99 22 20 20 20 20 | ERROR:.":." |
00000B30: 22 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 3A A0 31 |"EN;EM$;ET;ES:.1|
00000B40: 35 3A A0 39 00 4C 13 52 4E A0 31 35 00 52 13 5C |5:.9.L.RN.15.R.\|
00000B50: 4E 8E 00 6E 13 30 75 8F 20 2A 2A 2A 2A 2A 20 48 |N..n.0u. ***** H|
00000B60: 4F 56 45 44 4D 45 4E 55 20 2A 2A 2A 2A 2A 00 A6 |OVEDMENU *****..|
00000B70: 13 3A 75 99 22 93 11 12 1C 20 20 20 20 92 90 20 |.:u.".... .. |
00000B80: 44 49 52 20 12 1C 20 20 20 20 20 20 20 20 20 20 |DIR .. |
00000B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BA0: 20 20 20 20 20 22 00 D1 13 44 75 99 22 90 11 11 | "...Du."...|
00000BB0: 11 11 20 20 20 20 20 20 20 20 20 55 44 53 4B 52 |.. UDSKR|
00000BC0: 49 46 54 20 41 46 20 42 41 4D 2E 2E 2E 2E 46 31 |IFT AF BAM....F1|
00000BD0: 22 00 F8 13 4E 75 99 22 11 20 20 20 20 20 20 20 |"...Nu.". |
00000BE0: 20 20 41 45 4E 44 52 45 20 42 41 4D 20 48 45 41 | AENDRE BAM HEA|
00000BF0: 44 45 52 2E 2E 46 33 22 00 1F 14 53 75 99 22 11 |DER..F3"...Su.".|
00000C00: 20 20 20 20 20 20 20 20 20 43 4F 4D 4D 41 4E 44 | COMMAND|
00000C10: 20 44 49 53 4B 2E 2E 2E 2E 2E 2E 2E 46 35 22 00 | DISK.......F5".|
00000C20: 46 14 58 75 99 22 11 20 20 20 20 20 20 20 20 20 |F.Xu.". |
00000C30: 53 54 4F 50 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |STOP............|
00000C40: 2E 2E 2E 46 37 22 00 6D 14 5A 75 99 22 11 20 20 |...F7".m.Zu.". |
00000C50: 20 20 20 20 20 20 20 44 49 53 4B 20 45 52 52 4F | DISK ERRO|
00000C60: 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 40 22 00 97 14 |R..........@"...|
00000C70: 5D 75 99 22 11 11 11 11 11 20 20 20 20 20 20 20 |]u."..... |
00000C80: 20 20 20 4D 41 44 45 20 42 59 20 20 53 49 52 20 | MADE BY SIR |
00000C90: 54 48 4F 4D 41 53 22 00 B2 14 62 75 A1 20 53 56 |THOMAS"...bu. SV|
00000CA0: 24 3A 8B 20 53 56 24 B2 22 22 20 A7 20 33 30 30 |$:. SV$."" . 300|
00000CB0: 35 30 00 C8 14 67 75 8B 20 53 56 24 B2 22 40 22 |50...gu. SV$."@"|
00000CC0: 20 A7 20 36 32 30 30 30 00 DB 14 6C 75 8B 20 53 | . 62000...lu. S|
00000CD0: 56 24 B2 22 85 22 20 A7 20 31 30 00 F1 14 76 75 |V$."." . 10...vu|
00000CE0: 8B 20 53 56 24 B2 22 86 22 20 A7 20 34 30 30 30 |. SV$."." . 4000|
00000CF0: 30 00 07 15 80 75 8B 20 53 56 24 B2 22 87 22 20 |0....u. SV$."." |
00000D00: A7 20 34 32 30 30 30 00 1D 15 8A 75 8B 20 53 56 |. 42000....u. SV|
00000D10: 24 B2 22 88 22 20 A7 20 36 30 30 30 30 00 29 15 |$."." . 60000.).|
00000D20: 94 75 89 20 33 30 30 35 30 00 4A 15 40 9C 8F 20 |.u. 30050.J.@.. |
00000D30: 2A 2A 2A 2A 2A 20 4E 45 57 20 42 41 4D 20 48 45 |***** NEW BAM HE|
00000D40: 41 44 45 52 20 2A 2A 2A 2A 2A 00 68 15 45 9C 8F |ADER *****.h.E..|
00000D50: 20 50 4F 4B 45 35 33 32 38 30 2C 34 3A 50 4F 4B | POKE53280,4:POK|
00000D60: 45 35 33 32 38 31 2C 37 00 9C 15 4A 9C 99 22 93 |E53281,7...J..".|
00000D70: 12 81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D90: 20 20 20 20 20 20 20 20 20 20 22 3B 00 CF 15 54 | ";...T|
00000DA0: 9C 99 22 92 1E 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.."..***********|
00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3B 00 |*************";.|
00000DD0: 03 16 5E 9C 99 22 2A 92 1C 20 20 20 4E 20 20 59 |..^.."*.. N Y|
00000DE0: 20 20 54 20 20 20 42 20 20 41 20 20 4D 20 20 20 | T B A M |
00000DF0: 48 20 20 4F 20 20 56 20 20 45 20 20 44 20 20 1E |H O V E D .|
00000E00: 2A 22 3B 00 34 16 68 9C 99 22 2A 2A 2A 2A 2A 2A |*";.4.h.."******|
00000E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E30: 2A 2A 22 3B 00 67 16 72 9C 99 22 12 81 20 20 20 |**";.g.r..".. |
00000E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E60: 20 20 20 20 20 22 3B 00 96 16 7C 9C 97 32 31 34 | ";...|..214|
00000E70: 2C 31 39 3A 99 3A 99 22 92 90 20 20 20 20 20 20 |,19:.:.".. |
00000E80: 20 20 20 20 20 20 48 49 54 20 46 37 20 46 4F 52 | HIT F7 FOR|
00000E90: 20 4D 45 4E 55 11 00 BD 16 81 9C 99 22 92 90 20 | MENU.......".. |
00000EA0: 20 20 20 20 20 20 20 20 4D 20 41 20 44 20 45 20 | M A D E |
00000EB0: 20 20 42 20 59 20 20 20 54 20 2F 20 44 00 F9 16 | B Y T / D...|
00000EC0: 86 9C 99 A6 33 29 22 92 1F 13 11 11 11 11 11 11 |....3)".........|
00000ED0: 11 11 11 20 20 20 20 20 20 44 49 53 4B 45 54 54 |... DISKETT|
00000EE0: 45 20 4E 41 56 4E 20 20 20 20 20 20 49 44 20 20 |E NAVN ID |
00000EF0: 20 20 46 4F 52 4D 41 54 22 00 25 17 90 9C 99 A6 | FORMAT".%.....|
00000F00: 33 29 22 1C D5 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |3)".............|
00000F10: C3 C3 C3 C3 C3 C3 C9 20 20 D5 C3 C3 C3 C9 20 20 |....... ..... |
00000F20: D5 C3 C3 C3 C9 00 50 17 9A 9C 99 A6 33 29 22 C2 |......P.....3)".|
00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F40: 20 C2 20 20 C2 20 20 20 C2 20 20 C2 20 20 20 C2 | . . . . .|
00000F50: 00 7B 17 A4 9C 99 A6 33 29 22 CA C3 C3 C3 C3 C3 |.{.....3)"......|
00000F60: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 20 20 CA |............. .|
00000F70: C3 C3 C3 CB 20 20 CA C3 C3 C3 CB 00 9B 17 AE 9C |.... ..........|
00000F80: 86 44 24 28 32 30 29 3A 51 B2 34 3A 41 B2 31 36 |.D$(20):Q.4:A.16|
00000F90: 3A 5A B2 31 3A 8D 34 30 32 33 30 00 B5 17 B8 9C |:Z.1:.40230.....|
00000FA0: 43 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |C$." |
00000FB0: 20 20 20 20 22 00 DE 17 C2 9C 43 B2 C3 28 43 24 | ".....C..(C$|
00000FC0: 29 AB C3 28 41 24 28 31 29 29 3A 41 24 28 31 29 |)..(A$(1)):A$(1)|
00000FD0: B2 41 24 28 31 29 AA C9 28 43 24 2C 43 29 00 06 |.A$(1)..(C$,C)..|
00000FE0: 18 CC 9C 41 24 B2 41 24 28 31 29 AA 22 A0 20 22 |...A$.A$(1).". "|
00000FF0: AA 41 24 28 32 29 AA 22 20 22 AA 41 24 28 33 29 |.A$(2)." ".A$(3)|
00001000: AA 22 20 A0 A0 22 00 1D 18 D6 9C 9F 31 2C 38 2C |." .."......1,8,|
00001010: 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 33 18 |15:.2,8,2,"#".3.|
00001020: E0 9C 98 31 2C 22 55 31 3A 22 3B 32 3B 30 3B 31 |...1,"U1:";2;0;1|
00001030: 38 3B 30 00 47 18 EA 9C 98 31 2C 22 42 2D 50 3A |8;0.G....1,"B-P:|
00001040: 22 3B 32 3B 31 34 34 00 52 18 F4 9C 98 32 2C 41 |";2;144.R....2,A|
00001050: 24 3B 00 6F 18 FE 9C 98 31 2C 22 55 32 3A 22 3B |$;.o....1,"U2:";|
00001060: 32 3B 30 3B 31 38 3B 30 3A 98 31 2C 22 49 22 00 |2;0;18;0:.1,"I".|
00001070: 79 18 08 9D A0 32 3A A0 31 00 9B 18 12 9D 9F 32 |y....2:.1......2|
00001080: 2C 38 2C 30 2C 22 24 22 3A 99 22 11 11 11 11 11 |,8,0,"$":.".....|
00001090: 1C 20 20 20 20 20 20 20 20 22 3B 00 C2 18 1C 9D |. ";.....|
000010A0: 81 54 B2 31 A4 33 34 3A A1 23 32 2C 42 24 3A 99 |.T.1.34:.#2,B$:.|
000010B0: 42 24 3B 3A 82 3A A0 32 3A 9C 3A 89 20 34 31 30 |B$;:.:.2:.:. 410|
000010C0: 30 30 00 DA 18 26 9D 97 32 31 34 2C 31 30 3A 99 |00...&..214,10:.|
000010D0: 3A 99 A6 51 AA 59 29 22 3C 22 00 00 19 30 9D A1 |:..Q.Y)"<"...0..|
000010E0: 47 24 3A 8D 20 34 31 31 30 30 3A 44 24 28 59 29 |G$:. 41100:D$(Y)|
000010F0: B2 47 24 3A 8B 47 24 B2 22 22 A7 34 30 32 34 30 |.G$:.G$."".40240|
00001100: 00 3C 19 3A 9D 8B C2 28 31 39 37 29 B2 30 AF 59 |.<.:...(197).0.Y|
00001110: B1 B2 31 A7 59 B2 59 AB 31 3A 97 32 31 34 2C 31 |..1.Y.Y.1:.214,1|
00001120: 30 3A 99 3A 99 A3 51 AA 59 29 22 3C 20 22 3A 8D |0:.:..Q.Y)"< ":.|
00001130: 34 30 33 34 30 3A 89 34 30 32 34 30 00 4E 19 44 |40340:.40240.N.D|
00001140: 9D 8B C2 28 31 39 37 29 B2 30 A7 32 35 30 00 8D |...(197).0.250..|
00001150: 19 4E 9D 8B C2 28 31 39 37 29 B2 31 AF 59 B1 30 |.N...(197).1.Y.0|
00001160: A7 43 24 B2 22 22 3A 81 58 B2 30 A4 59 AB 31 3A |.C$."":.X.0.Y.1:|
00001170: 43 24 B2 43 24 AA 44 24 28 58 29 3A 82 3A 41 24 |C$.C$.D$(X):.:A$|
00001180: 28 5A 29 B2 43 24 3A 89 34 30 33 31 30 00 9C 19 |(Z).C$:.40310...|
00001190: 58 9D 8B 59 B2 41 A7 34 30 32 35 30 00 CA 19 62 |X..Y.A.40250...b|
000011A0: 9D 8B C2 28 31 39 37 29 B1 31 A7 97 32 31 34 2C |...(197).1..214,|
000011B0: 31 30 3A 99 3A 99 A3 51 AA 59 29 44 24 28 59 29 |10:.:..Q.Y)D$(Y)|
000011C0: AA 22 3C 22 3A 59 B2 59 AA 31 00 DC 19 6C 9D 8D |."<":Y.Y.1...l..|
000011D0: 34 30 33 34 30 3A 89 34 30 32 34 30 00 FF 19 76 |40340:.40240...v|
000011E0: 9D 8B 20 51 B2 34 20 A7 51 B2 32 35 3A 41 B2 32 |.. Q.4 .Q.25:A.2|
000011F0: 3A 5A B2 32 3A 59 B2 30 3A 89 34 30 32 33 30 00 |:Z.2:Y.0:.40230.|
00001200: 22 1A 80 9D 8B 20 51 B2 32 35 A7 51 B2 33 32 3A |".... Q.25.Q.32:|
00001210: 41 B2 32 3A 5A B2 33 3A 59 B2 30 3A 89 34 30 32 |A.2:Z.3:Y.0:.402|
00001220: 33 30 00 28 1A 8A 9D 8E 00 3E 1A 94 9D 97 31 39 |30.(.....>....19|
00001230: 38 2C 30 3A 20 8B 59 B2 AB 31 A7 59 B2 30 00 44 |8,0: .Y..1.Y.0.D|
00001240: 1A 9E 9D 8E 00 72 1A 28 A0 99 3A 99 22 11 11 90 |.....r.(..:."...|
00001250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 | HI|
00001260: 54 20 41 4E 59 20 4B 45 59 20 20 20 20 20 20 20 |T ANY KEY |
00001270: 20 22 00 8D 1A 32 A0 A1 20 53 56 24 3A 8B 20 53 | "...2.. SV$:. S|
00001280: 56 24 B2 22 22 20 A7 20 34 31 30 31 30 00 99 1A |V$."" . 41010...|
00001290: 3C A0 89 20 33 30 30 30 30 00 AA 1A 8C A0 8B 20 |<.. 30000...... |
000012A0: 47 24 B2 22 88 22 20 A7 20 8A 00 B0 1A 96 A0 8E |G$."." . .......|
000012B0: 00 CF 1A 10 A4 8F 20 2A 2A 2A 2A 2A 20 44 49 53 |...... ***** DIS|
000012C0: 4B 20 43 4F 4D 4D 41 4E 44 20 2A 2A 2A 2A 2A 00 |K COMMAND *****.|
000012D0: 08 1B 1A A4 99 22 93 11 12 1C 20 20 20 20 92 90 |.....".... ..|
000012E0: 20 43 4F 4D 4D 41 4E 44 20 44 49 53 4B 20 12 1C | COMMAND DISK ..|
000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001300: 20 20 20 20 20 20 90 22 00 11 1B 24 A4 9F 39 2C | ."...$..9,|
00001310: 30 00 1E 1B 29 A4 9F 31 35 2C 38 2C 31 35 00 3A |0...)..15,8,15.:|
00001320: 1B 2E A4 99 22 11 11 20 20 20 20 44 49 53 4B 20 |....".. DISK |
00001330: 43 4F 4D 4D 41 4E 44 53 3A 22 00 61 1B 38 A4 99 |COMMANDS:".a.8..|
00001340: 22 11 20 20 20 20 20 20 53 43 52 41 43 48 20 46 |". SCRACH F|
00001350: 49 4C 45 28 53 29 2E 2E 2E 2E 2E 2E 2E 2E 46 31 |ILE(S)........F1|
00001360: 22 00 88 1B 3D A4 99 22 11 20 20 20 20 20 20 52 |"...=..". R|
00001370: 45 4E 41 4D 45 20 46 49 4C 45 28 53 29 2E 2E 2E |ENAME FILE(S)...|
00001380: 2E 2E 2E 2E 2E 46 33 22 00 AF 1B 42 A4 99 22 11 |.....F3"...B..".|
00001390: 20 20 20 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 | INITIALIZE|
000013A0: 20 44 49 53 4B 2E 2E 2E 2E 2E 2E 2E 46 35 22 00 | DISK.......F5".|
000013B0: D6 1B 47 A4 99 22 11 20 20 20 20 20 20 56 41 4C |..G..". VAL|
000013C0: 49 44 41 54 45 20 44 49 53 4B 2E 2E 2E 2E 2E 2E |IDATE DISK......|
000013D0: 2E 2E 2E 46 37 22 00 FD 1B 4C A4 99 22 11 20 20 |...F7"...L..". |
000013E0: 20 20 20 20 46 4F 52 4D 41 54 20 44 49 53 4B 2E | FORMAT DISK.|
000013F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 46 38 22 00 28 1C |..........F8".(.|
00001400: 51 A4 99 22 11 20 20 20 20 20 20 48 4F 56 45 44 |Q..". HOVED|
00001410: 4D 45 4E 55 2E 2E 2E 2E 2E 2E 2E 2E 2E 12 1C 52 |MENU...........R|
00001420: 45 54 55 52 4E 92 90 22 00 41 1C 74 A4 99 22 11 |ETURN..".A.t..".|
00001430: 20 20 20 20 49 4E 44 54 41 53 54 20 56 41 4C 47 | INDTAST VALG|
00001440: 22 00 5C 1C 7E A4 A1 20 53 56 24 3A 8B 20 53 56 |".\.~.. SV$:. SV|
00001450: 24 B2 22 22 20 A7 20 34 32 31 31 30 00 70 1C 88 |$."" . 42110.p..|
00001460: A4 8B 20 53 56 24 B2 C7 28 31 33 29 20 A7 20 8A |.. SV$..(13) . .|
00001470: 00 86 1C 92 A4 8B 20 53 56 24 B2 22 85 22 20 A7 |...... SV$."." .|
00001480: 20 34 32 35 30 30 00 9C 1C 9C A4 8B 20 53 56 24 | 42500...... SV$|
00001490: B2 22 86 22 20 A7 20 34 32 35 35 30 00 B2 1C A6 |."." . 42550....|
000014A0: A4 8B 20 53 56 24 B2 22 87 22 20 A7 20 34 32 36 |.. SV$."." . 426|
000014B0: 30 30 00 C8 1C B0 A4 8B 20 53 56 24 B2 22 88 22 |00...... SV$."."|
000014C0: 20 A7 20 34 32 36 35 30 00 DE 1C BA A4 8B 20 53 | . 42650...... S|
000014D0: 56 24 B2 22 8C 22 20 A7 20 34 32 37 30 30 00 F5 |V$."." . 42700..|
000014E0: 1C C4 A4 8B 20 53 56 24 B3 B1 22 8C 22 20 A7 20 |.... SV$.."." . |
000014F0: 34 32 31 31 30 00 0A 1D D8 A4 84 31 35 2C 45 4E |42110......15,EN|
00001500: 2C 45 4D 24 2C 45 54 2C 45 53 00 3F 1D E2 A4 99 |,EM$,ET,ES.?....|
00001510: 22 11 20 20 20 20 20 44 49 53 4B 20 45 52 52 4F |". DISK ERRO|
00001520: 52 3A 11 22 3A 99 22 20 20 20 20 22 45 4E 3B 45 |R:.":." "EN;E|
00001530: 4D 24 3B 45 54 3B 45 53 3A A0 31 35 3A A0 39 00 |M$;ET;ES:.15:.9.|
00001540: 63 1D EC A4 99 22 11 11 11 20 20 20 20 20 20 20 |c...."... |
00001550: 20 20 20 20 20 20 20 48 49 54 20 41 4E 59 20 4B | HIT ANY K|
00001560: 45 59 22 00 7E 1D F6 A4 A1 20 53 56 24 3A 8B 20 |EY".~.... SV$:. |
00001570: 53 56 24 B2 22 22 20 A7 20 34 32 32 33 30 00 8A |SV$."" . 42230..|
00001580: 1D 00 A5 89 20 33 30 30 30 30 00 AC 1D 04 A6 8F |.... 30000......|
00001590: 20 2A 2A 2A 2A 2A 20 53 43 52 41 54 43 48 20 46 | ***** SCRATCH F|
000015A0: 49 4C 45 28 53 29 20 2A 2A 2A 2A 2A 00 E8 1D 09 |ILE(S) *****....|
000015B0: A6 99 22 93 11 12 1C 20 20 20 20 92 90 20 53 43 |..".... .. SC|
000015C0: 52 41 54 43 48 20 46 49 4C 45 28 53 29 20 12 1C |RATCH FILE(S) ..|
000015D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015E0: 20 20 20 90 11 11 11 22 00 09 1E 0E A6 99 22 11 | ...."......".|
000015F0: 20 20 20 20 20 46 49 4C 45 20 4E 41 4D 45 3A 22 | FILE NAME:"|
00001600: 3B 3A 84 39 2C 45 24 3A 99 00 1A 1E 18 A6 98 31 |;:.9,E$:.......1|
00001610: 35 2C 22 53 38 3A 22 AA 45 24 00 26 1E 22 A6 89 |5,"S8:".E$.&."..|
00001620: 20 34 32 32 30 30 00 47 1E 36 A6 8F 20 2A 2A 2A | 42200.G.6.. ***|
00001630: 2A 2A 20 52 45 4E 41 4D 45 20 46 49 4C 45 28 53 |** RENAME FILE(S|
00001640: 29 20 2A 2A 2A 2A 2A 00 83 1E 3B A6 99 22 93 11 |) *****...;.."..|
00001650: 12 1C 20 20 20 20 92 90 20 52 45 4E 41 4D 45 20 |.. .. RENAME |
00001660: 46 49 4C 45 28 53 29 20 12 1C 20 20 20 20 20 20 |FILE(S) .. |
00001670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 90 11 | ..|
00001680: 11 11 22 00 A7 1E 40 A6 99 22 20 20 20 20 20 4F |.."...@.." O|
00001690: 4C 44 20 46 49 4C 45 4E 41 4D 45 3A 22 3B 3A 84 |LD FILENAME:";:.|
000016A0: 39 2C 45 31 24 3A 99 00 CC 1E 45 A6 99 22 11 20 |9,E1$:....E..". |
000016B0: 20 20 20 20 4E 45 57 20 46 49 4C 45 4E 41 4D 45 | NEW FILENAME|
000016C0: 3A 22 3B 3A 84 39 2C 45 32 24 3A 99 00 E6 1E 4A |:";:.9,E2$:....J|
000016D0: A6 98 31 35 2C 22 52 38 3A 22 AA 45 32 24 AA 22 |..15,"R8:".E2$."|
000016E0: 3D 22 AA 45 31 24 00 F2 1E 54 A6 89 20 34 32 32 |=".E1$...T.. 422|
000016F0: 30 30 00 14 1F 68 A6 8F 20 2A 2A 2A 2A 2A 20 49 |00...h.. ***** I|
00001700: 4E 49 54 49 41 4C 49 5A 45 20 44 49 53 4B 20 2A |NITIALIZE DISK *|
00001710: 2A 2A 2A 2A 00 50 1F 6D A6 99 22 93 11 12 1C 20 |****.P.m..".... |
00001720: 20 20 20 92 90 20 49 4E 49 54 49 41 4C 49 5A 45 | .. INITIALIZE|
00001730: 20 44 49 53 4B 20 12 1C 20 20 20 20 20 20 20 20 | DISK .. |
00001740: 20 20 20 20 20 20 20 20 20 20 20 90 11 11 11 22 | ...."|
00001750: 00 6C 1F 6F A6 99 22 11 11 11 20 20 20 20 20 49 |.l.o.."... I|
00001760: 4E 49 54 41 4C 49 5A 49 4E 47 21 22 00 78 1F 72 |NITALIZING!".x.r|
00001770: A6 98 31 35 2C 22 49 22 00 84 1F 7C A6 89 20 34 |..15,"I"...|.. 4|
00001780: 32 32 30 30 00 A4 1F 9A A6 8F 20 2A 2A 2A 2A 2A |2200...... *****|
00001790: 20 56 41 4C 49 44 41 54 45 20 44 49 53 4B 20 2A | VALIDATE DISK *|
000017A0: 2A 2A 2A 2A 00 E0 1F 9F A6 99 22 93 11 12 1C 20 |****......".... |
000017B0: 20 20 20 92 90 20 56 41 4C 49 44 41 54 45 20 44 | .. VALIDATE D|
000017C0: 49 53 4B 20 12 1C 20 20 20 20 20 20 20 20 20 20 |ISK .. |
000017D0: 20 20 20 20 20 20 20 20 20 20 20 90 11 11 11 22 | ...."|
000017E0: 00 FB 1F A1 A6 99 22 11 11 11 20 20 20 20 20 56 |......"... V|
000017F0: 41 4C 49 44 41 54 49 4E 47 21 22 00 07 20 A4 A6 |ALIDATING!".. ..|
00001800: 98 31 35 2C 22 56 22 00 13 20 AE A6 89 20 34 32 |.15,"V".. ... 42|
00001810: 32 30 30 00 31 20 CC A6 8F 20 2A 2A 2A 2A 2A 20 |200.1 ... ***** |
00001820: 46 4F 52 4D 41 54 20 44 49 53 4B 20 2A 2A 2A 2A |FORMAT DISK ****|
00001830: 2A 00 6D 20 D1 A6 99 22 93 11 12 1C 20 20 20 20 |*.m ...".... |
00001840: 92 90 20 46 4F 52 4D 41 54 20 44 49 53 4B 20 12 |.. FORMAT DISK .|
00001850: 1C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001860: 20 20 20 20 20 20 20 20 90 11 11 11 22 00 8D 20 | ....".. |
00001870: D6 A6 99 22 11 20 20 20 20 20 44 49 53 4B 20 4E |...". DISK N|
00001880: 41 4D 45 3A 22 3B 3A 84 39 2C 46 31 24 00 C5 20 |AME:";:.9,F1$.. |
00001890: DB A6 8B 20 46 31 24 B2 22 3D 22 20 A7 20 46 31 |... F1$."=" . F1|
000018A0: 24 B2 22 54 48 4F 4D 41 53 20 44 49 44 52 49 4B |$."THOMAS DIDRIK|
000018B0: 53 45 4E 22 3A 99 22 9D 9D 22 46 31 24 3A 89 20 |SEN":.".."F1$:. |
000018C0: 34 32 37 32 30 00 CB 20 DD A6 99 00 ED 20 E0 A6 |42720.. ..... ..|
000018D0: 99 22 11 20 20 20 20 20 44 49 53 4B 20 49 44 3A |.". DISK ID:|
000018E0: 20 20 22 3B 3A 84 39 2C 46 32 24 3A 99 00 0E 21 | ";:.9,F2$:...!|
000018F0: E5 A6 8B 20 C3 28 46 32 24 29 B3 B1 32 20 A7 20 |... .(F2$)..2 . |
00001900: 99 22 91 91 91 22 3A 89 20 34 32 37 32 30 00 15 |."...":. 42720..|
00001910: 21 E7 A6 A0 39 00 2E 21 EA A6 98 31 35 2C 22 4E |!...9..!...15,"N|
00001920: 3A 22 AA 46 31 24 AA 22 2C 22 AA 46 32 24 00 3A |:".F1$.",".F2$.:|
00001930: 21 F4 A6 89 20 34 32 32 30 30 00 57 21 50 C3 8F |!... 42200.W!P..|
00001940: 20 2A 2A 2A 2A 2A 20 47 45 54 20 52 55 54 49 4E | ***** GET RUTIN|
00001950: 45 20 2A 2A 2A 2A 2A 00 6E 21 5A C3 81 20 49 B2 |E *****.n!Z.. I.|
00001960: 31 20 A4 20 35 30 3A A1 20 53 56 24 3A 82 00 90 |1 . 50:. SV$:...|
00001970: 21 64 C3 99 22 11 11 11 20 20 20 20 20 20 20 20 |!d.."... |
00001980: 20 20 20 20 48 49 54 20 41 4E 59 20 4B 45 59 22 | HIT ANY KEY"|
00001990: 00 AB 21 6E C3 A1 20 53 56 24 3A 8B 20 53 56 24 |..!n.. SV$:. SV$|
000019A0: B2 22 22 20 A7 20 35 30 30 33 30 00 B1 21 78 C3 |."" . 50030..!x.|
000019B0: 8E 00 D5 21 60 EA 8F 20 2A 2A 2A 20 53 54 4F 50 |...!`.. *** STOP|
000019C0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000019D0: 2A 2A 2A 2A 2A 00 04 22 65 EA 51 51 24 B2 22 20 |*****.."e.QQ$." |
000019E0: 20 20 20 20 20 20 20 20 44 49 53 4B 20 45 52 52 | DISK ERR|
000019F0: 4F 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 40 20 20 20 |OR..........@ |
00001A00: 20 20 20 22 00 3D 22 6A EA 99 22 13 11 11 11 11 | ".="j..".....|
00001A10: 11 11 11 11 11 11 11 11 11 11 11 12 1C 1D 1D 1D |................|
00001A20: 1D 1D 1D 1D 1D 1D 53 54 4F 50 21 21 20 20 45 52 |......STOP!! ER|
00001A30: 20 44 55 20 53 49 4B 4B 45 52 3F 90 22 00 54 22 | DU SIKKER?.".T"|
00001A40: 74 EA 81 20 49 B2 31 20 A4 20 35 30 3A A1 20 53 |t.. I.1 . 50:. S|
00001A50: 56 24 3A 82 00 6F 22 7E EA A1 20 53 56 24 3A 8B |V$:..o"~.. SV$:.|
00001A60: 20 53 56 24 B2 22 22 20 A7 20 36 30 30 33 30 00 | SV$."" . 60030.|
00001A70: 9F 22 88 EA 8B 20 53 56 24 B3 B1 22 4A 22 20 A7 |."... SV$.."J" .|
00001A80: 20 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 | .".............|
00001A90: 11 11 11 22 51 51 24 3A 89 20 33 30 30 35 30 00 |..."QQ$:. 30050.|
00001AA0: AB 22 92 EA 9E 20 36 34 37 33 38 00 CF 22 30 F2 |."... 64738.."0.|
00001AB0: 8F 20 2A 2A 2A 20 44 49 53 4B 20 45 52 52 4F 52 |. *** DISK ERROR|
00001AC0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 | **************.|
00001AD0: 08 23 94 F2 99 22 93 11 12 1C 20 20 20 20 92 90 |.#...".... ..|
00001AE0: 20 44 49 53 4B 20 45 52 52 4F 52 20 12 1C 20 20 | DISK ERROR .. |
00001AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001B00: 20 20 20 20 20 20 90 22 00 14 23 99 F2 8D 20 36 | ."..#... 6|
00001B10: 32 35 30 30 00 54 23 9E F2 9F 31 35 2C 38 2C 31 |2500.T#...15,8,1|
00001B20: 35 3A 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |5:.15,EN,EM$,ET,|
00001B30: 45 53 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 |ES:."...........|
00001B40: 11 11 22 A3 35 29 22 44 49 53 4B 20 45 52 52 4F |..".5)"DISK ERRO|
00001B50: 52 3A 11 22 00 6E 23 A8 F2 99 20 A3 34 29 45 4E |R:.".n#... .4)EN|
00001B60: 3B 45 4D 24 3B 45 54 3B 45 53 3A A0 31 35 00 87 |;EM$;ET;ES:.15..|
00001B70: 23 B2 F2 99 20 A3 35 29 22 11 11 48 49 54 20 41 |#... .5)"..HIT A|
00001B80: 4E 59 20 4B 45 59 22 00 A2 23 BC F2 A1 20 53 56 |NY KEY"..#... SV|
00001B90: 24 3A 8B 20 53 56 24 B2 22 22 20 A7 20 36 32 31 |$:. SV$."" . 621|
00001BA0: 34 30 00 AE 23 C6 F2 89 20 33 30 30 30 30 00 DE |40..#... 30000..|
00001BB0: 23 24 F4 99 22 13 11 11 11 11 11 20 20 20 20 20 |#$.."...... |
00001BC0: 20 20 20 20 20 20 20 20 20 20 20 20 D5 C3 C3 C3 | ....|
00001BD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C9 00 08 |................|
00001BE0: 24 29 F4 99 22 20 20 20 20 20 20 20 20 20 20 20 |$).." |
00001BF0: 20 20 20 20 20 20 C2 20 20 46 4C 4F 50 50 59 20 | . FLOPPY |
00001C00: 20 44 49 53 4B 20 20 C2 00 32 24 2E F4 99 22 20 | DISK ..2$..." |
00001C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C20: C2 20 B0 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 AE |. ..............|
00001C30: 20 C2 00 5C 24 33 F4 99 22 20 20 20 20 20 20 20 | ..\$3.." |
00001C40: 20 20 20 20 20 20 20 20 20 20 C2 20 C2 D2 D2 D2 | . ....|
00001C50: D2 B8 B8 B8 B8 D2 D2 D2 D2 C2 20 C2 00 8A 24 38 |.......... ...$8|
00001C60: F4 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00001C70: 20 20 20 20 C2 1E D1 90 C2 20 1C D1 90 20 20 CC | ..... ... .|
00001C80: AF AF BA 20 20 20 20 C2 20 C2 00 B4 24 3D F4 99 |... . ...$=..|
00001C90: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00001CA0: 20 20 C2 20 AD C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | . ............|
00001CB0: C3 BD 20 C2 00 DE 24 42 F4 99 22 20 20 20 20 20 |.. ...$B.." |
00001CC0: 20 20 20 20 20 20 20 20 20 20 20 20 CA C3 C3 C3 | ....|
00001CD0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 00 E4 |................|
00001CE0: 24 88 F4 8E 00 00 00 |$...... |
..,.... 53280,6:. 53281,15:. 646,0:. 808
,225.7.... G(8).C.... 30000.~...."....
.. UDSKRIFT AF BAM ..
..."...... R$(100),S$(100),T$(100)...
..2,8,15...(..1,8,0,"$0".F.)..#1,A$,B$.T
.*..#1,A$,B$...+..#1,A$,B$...2.C.0:R.R.1
:S.S.1:T.T.1...<.. A$.."" . C.F(A$).0.F.
. B$.."" . C.C.F(B$).256.D.U.R$(R).J(D(C
),2).L.V.. C(R$(R)).4 . R$(R).R$(R)." ":
. 86...Z..#1,B$:. ST..0 . 1000...D.. B$.
.G(34) . 90.G.N..#1,B$:. B$..G(34). S$(S
).S$(S).B$:.110...S.. C(S$(S)).18 . S$(S
).S$(S)." ":. 115...X..#1,B$:. B$.G(32)
. 120.....C$."".;...C$.C$.B$:.#1,B$:. B$
.."" . 140.M...T$(T).H(C$,3).|.... T.1
. . .6)"."R$(R);S$(S);T$(T)".":. 160....
.. .6)R$(R);S$(S);T$(T)... .. W$:. W$.".
" . 1:....... ST.0 . 42...... E(R$(R)).
664 . 1:.15,8,15:. 20000:. 50000:......
. .6)R$(R)" BLOCKS FREE"..... 1.C...."..
. COPY FROM PRINTER? (Y/N)..".]...
. SV$:. SV$."" . 1014...... SV$."Y" . .
13000:. 11000:. 14000...... SV$."N" . ..
..... SV$.."N" . 1014..... 4:..T.... R$(
100),S$(100),T$(100)...... 10000...P.. W
$." " . 1:....Z.. W$:. W$."" . 2000....
...C.@.."... INSERT DISK AND HIT ..
RETURN ...".H.J.." ...ANY OTHER TO
QUIT..".}....A$:.A$."". 8100.... . A$.G
(13) . ."...":. 40...V . A$..G(13) . ...
.. . 8100....'.". ...AND HIT .. RET
URN ...."...T'.A$:.A$."".10100...X'. A$.
G(13) . 40...F(. A$."Q" . ..'.P(. 10100.
J..*. ***** PRINTER RUTINE 1 *****.S..*.
4,4._..*.4,G(P).O..*. I.1 . R.1....*. I.
1 . . 12000:. 11020....+. .6)R$(I);S$(I)
;T$(I).S..+.4,G(27)G(16)G(HP)G(LP)R$(I);
S$(I);T$(I).Y..+.....+. .6)R$(I)"BLOCKS
FREE".#..+.4,G(27)G(16)G(HP)G(LP)R$(I)"B
LOCKS FREE"./..+. 15000.B..+. L..0 . 110
50.U. +. Y.1 . L:.4:..[.*+..~.... *****
PRINTER RUTINE 2 *****......".... ..
PRINTER ROUTINE .. ...
".Z.... .6)"."R$(I);S$(I);T$(I)"."......
4,G(27)G(16)G(HP)G(LP)G(18)R$(I);S$(I);T
$(I)G(146)..../..9.H2. ***** SP0RGERUTIN
E 2 *****.R.M2.".... .. PRINTER ROUTI
NE .. ."...R2."..
CARACTER SIZE"....2.". S
INGLE WITH....F1....2.". DOUBLE
WITH....F3....2. SV$:. SV$."". 13040...
.2. SV$."." . P.15:. 16000:..3..3. SV$."
." . P.14:. 16000:..J..3. SV$.."." . 130
40.K..6. ***** SP0RGERUTINE 3 *****....6
.".. ANOTHER COPY (Y/N)"...X6. SV
$:. SV$."". 14040.Q..6. SV$."Y" . . 1300
0:. 11003:. 14000....6. SV$."N" . .....6
. SV$.."." . 14040....:. ***** PAPER FEE
D *****.R..:.".... .. PRINTER ROUTINE
.. ...".M..:.".
PAPER FEED"....:.". SINGLE LINES
....F1"....:.". PAGE OUT........F3
".K..:. SV$:. SV$."". 15040...J:. SV$.".
" . 15200...T:. SV$."." . L.71.I:.....:.
SV$.."." . 15040.'.`;.". LINES:";L.
-.J;..G..>. ***** HP / LP *****.K..>."..
. START POSITION"....>.".
NUMER OF CHAR'S FROM LEFT";SP....>. SP.0
. SP.80 . 16020.A..>HP..(SP.256).V..>LP
.(SP.HP.256).6....>.... N. ***** ERROR C
HECK *****...*N.15,EN,EM$,ET,ES.D.4N.".
DISK ERROR:.":." "EN;EM$;ET;ES: 1
5: 9.L.RN 15.R.\N..N.0U. ***** HOVEDMENU
*****...:U.".... .. DIR ..
".Q.DU.".....
UDSKRIFT AF BAM....F1"...NU.".
AENDRE BAM HEADER..F3"...SU.".
COMMAND DISK.......F5".F.XU.".
STOP...............F7".M.ZU.". D
ISK ERROR..........@"...]U.".....
MADE BY SIR THOMAS"...BU. SV$:. SV$.
"" . 30050.H.GU. SV$."@" . 62000...LU. S
V$."." . 10...VU. SV$."." . 40000....U.
SV$."." . 42000....U. SV$."." . 60000.).
.U. 30050.J.@.. ***** NEW BAM HEADER ***
**.H.E.. POKE53280,4:POKE53281,7...J..".
..
";.O.T.."..***************************
*************";...^.."*.. N Y T B
A M H O V E D .*";.4.H.."******
**********************************";.G.R
.."..
";...|..214,19:.:.".. HI
T F7 FOR MENU.......".. M A D E
B Y T / D.......3)"............
DISKETTE NAVN ID FORMAT".%.....
3)".UCCCCCCCCCCCCCCCCCI UCCCI UCCCI.P.
....3)"B B B B B B
.{.....3)"JCCCCCCCCCCCCCCCCCK JCCCK JC
CCK......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,"#".3....1,"U1:";2;0;18;0.G....1,"B-P:
";2;144.R....2,A$;.O....1,"U2:";2;0;18;0
:.1,"I".Y... 2: 1......2,8,0,"$":.".....
. ";.B....T.1.34:.#2,B$:.B$;:.: 2
:.:. 41000.Z.&..214,10:.:..Q.Y)"<"...0..
G$:. 41100:D$(Y).G$:.G$."".40240.<.:..B(
197).0.Y..1.Y.Y.1:.214,10:.:..Q.Y)"< ":.
40340:.40240.N.D..B(197).0.250...N..B(19
7).1.Y.0.C$."":.X.0.Y.1:C$.C$.D$(X):.:A$
(Z).C$:.40310...X..Y.A.40250.J.B..B(197)
.1..214,10:.:..Q.Y)D$(Y)."<":Y.Y.1...L..
40340:.40240...V.. Q.4 .Q.25:A.2:Z.2:Y.0
:.40230.".... Q.25.Q.32:A.2:Z.3:Y.0:.402
30.(.....>....198,0: .Y..1.Y.0.D.....R.(
.:."... HIT ANY KEY
"...2 . SV$:. SV$."" . 41010...< . 3000
0.... . G$."." . ..... ..O.... ***** DIS
K COMMAND *****......".... .. COMMAND
DISK .. ."...$..9,
0...)..15,8,15.:....".. DISK COMMANDS
:".A.8..". SCRACH FILE(S)........F1
"...=..". RENAME FILE(S)........F3"
...B..". INITIALIZE DISK.......F5".
V.G..". VALIDATE DISK.........F7"..
.L..". FORMAT DISK...........F8".(.
Q..". HOVEDMENU...........RETURN.."
.A.T..". INDTAST VALG".\.~.. SV$:. SV
$."" . 42110.P.... SV$.G(13) . ....... S
V$."." . 42500...... SV$."." . 42550....
.. SV$."." . 42600.H.... SV$."." . 42650
...... SV$."." . 42700...D.. SV$.."." .
42110...X..15,EN,EM$,ET,ES.?....". D
ISK ERROR:.":." "EN;EM$;ET;ES: 15: 9.
C...."... HIT ANY KEY".~...
. SV$:. SV$."" . 42230...... 30000......
***** SCRATCH FILE(S) *****......"....
.. SCRATCH FILE(S) ..
...."......". FILE NAME:";:.9,E$:
.......15,"S8:".E$.&.".. 42200.G.6.. ***
** RENAME FILE(S) *****...;..".... ..
RENAME FILE(S) .. ..
.."...@.." OLD FILENAME:";:.9,E1$:..
L.E..". NEW FILENAME:";:.9,E2$:....J
..15,"R8:".E2$."=".E1$...T.. 42200...H..
***** INITIALIZE DISK *****.P.M.."....
.. INITIALIZE DISK ..
....".L.O.."... INITALIZING!".X.R
..15,"I"...|.. 42200...... ***** VALIDAT
E DISK *****......".... .. VALIDATE D
ISK .. ...."......".
.. VALIDATING!".. ...15,"V".. ... 42
200.1 L.. ***** FORMAT DISK *****.M Q.."
.... .. FORMAT DISK ..
....".. V..". DISK NAME:";:.
9,F1$.E ... F1$."=" . F1$."THOMAS DIDRIK
SEN":.".."F1$:. 42720.K ..... ...".
DISK ID: ";:.9,F2$:...!... C(F2$)..2 .
."...":. 42720..!.. 9..!...15,"N:".F1$."
,".F2$.:!... 42200.W!PC. ***** GET RUTIN
E *****.N!ZC. I.1 . 50:. SV$:...!DC."...
HIT ANY KEY"..!NC. SV$:. SV$
."" . 50030..!XC..U!`.. *** STOP *******
*************.."E.QQ$." DISK ERR
OR..........@ ".="J..".............
..............STOP!! ER DU SIKKER?.".T"
T.. I.1 . 50:. SV$:..O"~.. SV$:. SV$.""
. 60030.."... SV$.."J" . .".............
..."QQ$:. 30050.."... 64738.O"0.. *** DI
SK ERROR **************..#...".... ..
DISK ERROR .. ."
..#... 62500.T#...15,8,15:.15,EN,EM$,ET,
ES:.".............".5)"DISK ERROR:.".N#.
.. .4)EN;EM$;ET;ES: 15..#... .5)"..HIT A
NY KEY"..#... SV$:. SV$."" . 62140..#F..
30000..#$.."...... UCCC
CCCCCCCCCCCCCI..$).." B
FLOPPY DISK B.2$..."
B .CCCCCCCCCCCC. B.\$3.."
B BRRRR....RRRRB B..$8.."
B.Q.B .Q. L... B B..$=.."
B .CCCCCCCCCCCC. B..$B.."
JCCCCCCCCCCCCCCCCK..$......
> CLICK IMAGE PREVIEW FOR FULL MODAL