RUNNER
FILE INFORMATION
FILENAME(S): RUNNER
FILE TYPE(S): PRG
FILE SIZE: 12.7K
FIRST SEEN: 2025-11-30 17:31:37
APPEARS ON: 1 disk(s)
FILE HASH
513db2e0a5eb166851b77b54b8f303d863975f1387468f9d0d626b6d75ddaa61
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK FILER | RUNNER | PRG | UK CD | 21 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 00 00 97 34 31 30 32 34 2C 30 3A 97 |.......41024,0:.|
00000010: 34 31 30 32 35 2C 31 39 35 00 53 08 01 00 56 45 |41025,195.S...VE|
00000020: 52 53 4E 24 B2 22 34 2E 37 22 3A 44 41 54 45 24 |RSN$."4.7":DATE$|
00000030: B2 22 31 32 2F 30 32 2F 38 34 22 3A 97 35 33 32 |."12/02/84":.532|
00000040: 38 30 2C 2E 3A 97 35 33 32 38 31 2C 2E 3A 99 22 |80,.:.53281,.:."|
00000050: 93 1E 22 00 73 08 0A 00 8B C2 28 34 39 31 35 32 |..".s.....(49152|
00000060: 29 B3 B1 33 32 A7 93 22 4C 2D 53 4F 52 54 22 2C |)..32.."L-SORT",|
00000070: 38 2C 31 00 94 08 0C 00 8B C2 28 38 32 38 29 B3 |8,1.......(828).|
00000080: B1 31 36 39 A7 93 22 44 49 52 20 40 38 32 38 22 |.169.."DIR @828"|
00000090: 2C 38 2C 31 00 C1 08 0D 00 46 31 24 B2 C7 28 31 |,8,1.....F1$..(1|
000000A0: 33 33 29 3A 46 35 24 B2 C7 28 31 33 35 29 3A 46 |33):F5$..(135):F|
000000B0: 37 24 B2 C7 28 31 33 36 29 3A 5A 24 B2 C7 28 2E |7$..(136):Z$..(.|
000000C0: 29 00 EA 08 0E 00 99 22 1E 22 3A 86 44 24 28 31 |)......".":.D$(1|
000000D0: 30 38 30 29 3A 8B 41 41 B2 31 A7 8D 36 32 30 30 |080):.AA.1..6200|
000000E0: 30 3A 8D 36 33 30 30 30 3A 8E 00 FC 08 0F 00 8D |0:.63000:.......|
000000F0: 33 30 30 30 30 3A 8D 36 32 30 30 30 00 07 09 10 |30000:.62000....|
00000100: 00 8D 36 30 30 30 30 00 42 09 14 00 99 22 93 1D |..60000.B...."..|
00000110: 1D 1D 1D 1E 44 49 53 4B 20 46 49 4C 45 20 50 52 |....DISK FILE PR|
00000120: 4F 47 52 41 4D 3A 20 20 22 56 45 24 3A 99 22 11 |OGRAM: "VE$:.".|
00000130: 20 20 20 20 31 20 2D 20 41 44 44 20 46 49 4C 45 | 1 - ADD FILE|
00000140: 53 22 00 79 09 28 00 99 22 11 20 20 20 20 32 20 |S".y.(..". 2 |
00000150: 2D 20 50 52 49 4E 54 20 41 20 46 49 4C 45 22 3A |- PRINT A FILE":|
00000160: 99 22 11 20 20 20 20 33 20 2D 20 53 4F 52 54 20 |.". 3 - SORT |
00000170: 54 48 45 20 46 49 4C 45 22 00 C1 09 46 00 99 22 |THE FILE"...F.."|
00000180: 11 20 20 20 20 34 20 2D 20 53 45 41 52 43 48 20 |. 4 - SEARCH |
00000190: 46 4F 52 20 46 49 4C 45 20 4E 41 4D 45 22 3A 99 |FOR FILE NAME":.|
000001A0: 22 11 20 20 20 20 35 20 2D 20 53 45 41 52 43 48 |". 5 - SEARCH|
000001B0: 20 46 4F 52 20 44 49 53 4B 20 4E 55 4D 42 45 52 | FOR DISK NUMBER|
000001C0: 22 00 FD 09 50 00 99 22 11 20 20 20 20 36 20 2D |"...P..". 6 -|
000001D0: 20 56 49 45 57 20 44 49 53 4B 20 44 49 52 45 43 | VIEW DISK DIREC|
000001E0: 54 4F 52 59 22 3A 99 22 11 20 20 20 20 37 20 2D |TORY":.". 7 -|
000001F0: 20 53 41 56 45 20 44 2D 46 49 4C 45 22 00 33 0A | SAVE D-FILE".3.|
00000200: 56 00 99 22 11 20 20 20 20 38 20 2D 20 4C 4F 41 |V..". 8 - LOA|
00000210: 44 20 44 2D 46 49 4C 45 22 3A 99 22 11 20 20 20 |D D-FILE":.". |
00000220: 20 39 20 2D 20 52 45 4D 4F 56 45 20 41 20 4E 41 | 9 - REMOVE A NA|
00000230: 4D 45 22 00 63 0A 5A 00 99 22 11 20 20 20 20 30 |ME".c.Z..". 0|
00000240: 20 2D 20 51 55 49 54 22 3A 99 22 11 20 20 20 20 | - QUIT":.". |
00000250: 52 45 43 4F 52 44 53 20 49 4E 20 4D 45 4D 4F 52 |RECORDS IN MEMOR|
00000260: 59 22 4E 00 76 0A 6E 00 A1 41 24 3A 8B 41 24 B2 |Y"N.v.n..A$:.A$.|
00000270: 22 22 A7 31 31 30 00 8D 0A 78 00 8B 41 24 B3 22 |"".110...x..A$."|
00000280: 30 22 B0 41 24 B1 22 39 22 A7 31 31 30 00 9F 0A |0".A$."9".110...|
00000290: 7D 00 8B 41 24 B2 22 30 22 A7 8D 31 30 30 30 00 |}..A$."0"..1000.|
000002A0: AB 0A 82 00 41 B2 C5 28 41 24 29 00 E5 0A 8C 00 |....A..(A$).....|
000002B0: 91 41 8D 31 37 30 30 30 2C 32 30 30 30 2C 34 30 |.A.17000,2000,40|
000002C0: 30 30 2C 35 30 30 30 2C 35 35 30 30 2C 36 30 30 |00,5000,5500,600|
000002D0: 30 2C 39 30 30 30 2C 39 35 30 30 2C 38 30 30 30 |0,9000,9500,8000|
000002E0: 2C 31 30 30 30 00 ED 0A 96 00 89 32 30 00 F3 0A |,1000......20...|
000002F0: E8 03 8F 00 17 0B F2 03 99 22 93 11 11 11 11 11 |........."......|
00000300: 20 20 51 55 49 54 21 20 20 41 52 45 20 59 4F 55 | QUIT! ARE YOU|
00000310: 20 53 55 52 45 3F 22 00 2B 0B FC 03 A1 41 24 3A | SURE?".+....A$:|
00000320: 8B 41 24 B2 22 22 A7 31 30 32 30 00 3A 0B 06 04 |.A$."".1020.:...|
00000330: 8B 41 24 B3 B1 22 59 22 A7 8E 00 4C 0B 10 04 99 |.A$.."Y"...L....|
00000340: 22 93 22 3A 8D 33 35 30 33 30 3A 80 00 54 0B 1A |".":.35030:..T..|
00000350: 04 89 32 30 00 5A 0B D0 07 8F 00 77 0B DA 07 99 |..20.Z.....w....|
00000360: 22 93 12 22 5A 53 24 3A 99 A3 31 30 29 22 4F 55 |".."ZS$:..10)"OU|
00000370: 54 50 55 54 20 4F 4E 00 A6 0B E4 07 99 22 20 12 |TPUT ON......" .|
00000380: 31 92 20 20 20 53 43 52 45 45 4E 22 3A 99 22 20 |1. SCREEN":." |
00000390: 12 32 92 20 20 20 38 30 20 43 4F 4C 2E 20 50 52 |.2. 80 COL. PR|
000003A0: 49 4E 54 45 52 22 00 D7 0B E9 07 99 22 20 12 33 |INTER"......" .3|
000003B0: 92 20 20 20 31 33 36 20 43 4F 4C 2E 20 50 52 49 |. 136 COL. PRI|
000003C0: 4E 54 45 52 20 28 43 4F 4E 44 45 4E 53 45 44 20 |NTER (CONDENSED |
000003D0: 50 52 49 4E 54 29 22 00 FB 0B EE 07 A1 41 24 3A |PRINT)"......A$:|
000003E0: 91 C5 28 41 24 29 89 32 30 35 30 2C 32 31 35 30 |..(A$).2050,2150|
000003F0: 2C 33 32 30 30 3A 89 32 30 33 30 00 01 0C F8 07 |,3200:.2030.....|
00000400: 8F 00 2F 0C 02 08 81 49 B2 31 A4 B5 28 4E AD 32 |../....I.1..(N.2|
00000410: 32 29 AA 31 3A 99 22 93 22 3A 81 4A B2 32 32 AC |2).1:.".":.J.22.|
00000420: 28 49 AB 31 29 AA 31 A4 32 32 AC 49 AB 31 31 00 |(I.1).1.22.I.11.|
00000430: 3B 0C 07 08 81 4B B2 2E A4 32 31 00 4F 0C 09 08 |;....K...21.O...|
00000440: 8B 4A AA 4B B1 31 30 38 30 A7 89 32 30 36 35 00 |.J.K.1080..2065.|
00000450: 68 0C 0C 08 99 22 20 20 20 20 20 20 20 20 20 22 |h...." "|
00000460: 3B 44 24 28 4A AA 4B 29 00 6F 0C 11 08 82 4B 00 |;D$(J.K).o....K.|
00000470: A2 0C 16 08 97 32 31 34 2C 32 33 3A 99 3A 99 A3 |.....214,23:.:..|
00000480: 36 29 22 12 20 46 31 3D 4D 45 4E 55 20 20 20 46 |6)". F1=MENU F|
00000490: 35 3D 55 50 20 20 20 46 37 3D 44 4F 57 4E 20 92 |5=UP F7=DOWN .|
000004A0: 22 3B 00 B6 0C 20 08 A1 41 24 3A 8B 41 24 B2 22 |";... ..A$:.A$."|
000004B0: 22 A7 32 30 38 30 00 D6 0C 25 08 8B 41 24 B2 46 |".2080...%..A$.F|
000004C0: 31 24 A7 49 B2 28 B5 28 4E AD 32 32 29 29 AA 31 |1$.I.(.(N.22)).1|
000004D0: 3A 89 32 31 33 30 00 F2 0C 2A 08 8B 41 24 B2 46 |:.2130...*..A$.F|
000004E0: 35 24 AF 49 B1 31 A7 49 B2 49 AB 32 3A 89 32 31 |5$.I.1.I.I.2:.21|
000004F0: 33 30 00 0C 0D 34 08 8B 41 24 B2 46 35 24 AF 49 |30...4..A$.F5$.I|
00000500: B2 31 A7 49 B2 2E 3A 89 32 31 33 30 00 1E 0D 3E |.1.I..:.2130...>|
00000510: 08 8B 41 24 B3 B1 46 37 24 A7 32 30 38 30 00 39 |..A$..F7$.2080.9|
00000520: 0D 48 08 8B 49 B2 B5 28 4E AD 32 32 29 AA 31 A7 |.H..I..(N.22).1.|
00000530: 49 B2 B5 28 4E AD 32 32 29 00 42 0D 52 08 82 49 |I..(N.22).B.R..I|
00000540: 3A 8E 00 48 0D 5C 08 8F 00 74 0D 66 08 99 22 93 |:..H.\...t.f..".|
00000550: 45 4E 54 45 52 20 54 4F 44 41 59 27 53 20 44 41 |ENTER TODAY'S DA|
00000560: 54 45 20 28 4E 4F 20 43 4F 4D 4D 41 53 29 22 3A |TE (NO COMMAS)":|
00000570: 85 58 59 24 00 AC 0D 68 08 99 22 93 45 4E 54 45 |.XY$...h..".ENTE|
00000580: 52 20 50 52 49 4E 54 45 52 20 44 45 56 49 43 45 |R PRINTER DEVICE|
00000590: 20 4E 55 4D 42 45 52 22 3A 85 44 4E 24 3A 44 4E | NUMBER":.DN$:DN|
000005A0: B2 C5 28 C8 28 44 4E 24 2C 31 29 29 00 C0 0D 69 |..(.(DN$,1))...i|
000005B0: 08 8B 44 4E B3 34 B0 44 4E B1 37 A7 32 31 35 32 |..DN.4.DN.7.2152|
000005C0: 00 D0 0D 70 08 A0 33 3A 9F 33 2C 44 4E 3A 98 33 |...p..3:.3,DN:.3|
000005D0: 00 10 0E 72 08 8B 53 54 A7 99 22 11 11 11 50 52 |...r..ST.."...PR|
000005E0: 49 4E 54 45 52 20 4E 4F 54 20 4F 4E 2D 4C 49 4E |INTER NOT ON-LIN|
000005F0: 45 2C 20 48 49 54 20 41 20 4B 45 59 2E 22 3A 92 |E, HIT A KEY.":.|
00000600: 31 39 38 2C 31 3A 97 31 39 38 2C 2E 3A 89 32 30 |198,1:.198,.:.20|
00000610: 00 39 0E 75 08 99 22 93 50 52 49 4E 54 49 4E 47 |.9.u..".PRINTING|
00000620: 2C 20 48 4F 4C 44 20 44 4F 57 4E 20 46 31 20 54 |, HOLD DOWN F1 T|
00000630: 4F 20 41 42 4F 52 54 2E 22 00 71 0E 7A 08 42 24 |O ABORT.".q.z.B$|
00000640: B2 22 20 20 20 20 20 22 3A 41 B2 31 3A 42 B2 36 |." ":A.1:B.6|
00000650: 30 3A 50 4E 24 B2 22 31 22 3A 8D 32 32 39 30 3A |0:PN$."1":.2290:|
00000660: 8D 33 30 30 30 3A 8B 4E B3 31 38 30 A7 33 39 39 |.3000:.N.180.399|
00000670: 30 00 A1 0E 84 08 41 B2 31 38 31 3A 42 B2 32 34 |0.....A.181:B.24|
00000680: 30 3A 50 4E 24 B2 22 32 22 3A 8D 32 32 39 30 3A |0:PN$."2":.2290:|
00000690: 8D 33 30 30 30 3A 8B 4E B3 32 34 30 A7 33 39 39 |.3000:.N.240.399|
000006A0: 30 00 D1 0E 8E 08 41 B2 33 36 31 3A 42 B2 34 32 |0.....A.361:B.42|
000006B0: 30 3A 50 4E 24 B2 22 33 22 3A 8D 32 32 39 30 3A |0:PN$."3":.2290:|
000006C0: 8D 33 30 30 30 3A 8B 4E B3 34 32 30 A7 33 39 39 |.3000:.N.420.399|
000006D0: 30 00 01 0F 98 08 41 B2 35 34 31 3A 42 B2 36 30 |0.....A.541:B.60|
000006E0: 30 3A 50 4E 24 B2 22 34 22 3A 8D 32 32 39 30 3A |0:PN$."4":.2290:|
000006F0: 8D 33 30 30 30 3A 8B 4E B3 36 30 30 A7 33 39 39 |.3000:.N.600.399|
00000700: 30 00 31 0F A2 08 41 B2 37 32 31 3A 42 B2 37 38 |0.1...A.721:B.78|
00000710: 30 3A 50 4E 24 B2 22 35 22 3A 8D 32 32 39 30 3A |0:PN$."5":.2290:|
00000720: 8D 33 30 30 30 3A 8B 4E B3 37 38 30 A7 33 39 39 |.3000:.N.780.399|
00000730: 30 00 5B 0F AC 08 41 B2 39 30 31 3A 42 B2 39 36 |0.[...A.901:B.96|
00000740: 30 3A 50 4E 24 B2 22 36 22 3A 8D 32 32 39 30 3A |0:PN$."6":.2290:|
00000750: 8D 33 30 30 30 3A 89 33 39 39 30 00 99 0F F2 08 |.3000:.3990.....|
00000760: 98 33 2C 22 20 20 20 20 20 20 20 20 20 50 41 47 |.3," PAG|
00000770: 45 20 22 50 4E 24 22 20 20 20 20 20 20 20 20 20 |E "PN$" |
00000780: 22 5A 53 24 22 20 20 20 20 20 20 20 20 20 22 58 |"ZS$" "X|
00000790: 59 24 3A 98 33 2C 22 A0 22 00 A4 0F FC 08 81 4A |Y$:.3,"."......J|
000007A0: B2 41 A4 42 00 E1 0F 06 09 98 33 2C 42 24 3B 44 |.A.B......3,B$;D|
000007B0: 24 28 4A 29 3B 42 24 3B 44 24 28 4A AA 36 30 29 |$(J);B$;D$(J.60)|
000007C0: 3B 42 24 3B 44 24 28 4A AA 31 32 30 29 3A 8B C2 |;B$;D$(J.120):..|
000007D0: 28 31 39 37 29 B2 34 A7 98 33 3A A0 33 3A 89 32 |(197).4..3:.3:.2|
000007E0: 30 00 08 10 0B 09 58 B2 AB 28 58 B2 2E 29 3A 97 |0.....X..(X..):.|
000007F0: 31 39 39 2C 58 3A 99 22 13 50 52 49 4E 54 49 4E |199,X:.".PRINTIN|
00000800: 47 11 11 11 22 3A 82 4A 00 0E 10 10 09 8F 00 23 |G...":.J.......#|
00000810: 10 1A 09 81 49 49 B2 31 A4 34 3A 98 33 3A 82 49 |....II.1.4:.3:.I|
00000820: 49 3A 8E 00 52 10 B8 0B 99 22 12 4E 45 58 54 20 |I:..R....".NEXT |
00000830: 50 41 47 45 3A 20 20 50 52 45 53 53 20 41 4E 59 |PAGE: PRESS ANY|
00000840: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00000850: 92 22 00 66 10 C2 0B A1 41 24 3A 8B 41 24 B2 22 |.".f....A$:.A$."|
00000860: 22 A7 33 30 31 30 00 6C 10 CC 0B 8E 00 72 10 80 |".3010.l.....r..|
00000870: 0C 8F 00 9E 10 8A 0C 99 22 93 45 4E 54 45 52 20 |........".ENTER |
00000880: 54 4F 44 41 59 27 53 20 44 41 54 45 20 28 4E 4F |TODAY'S DATE (NO|
00000890: 20 43 4F 4D 4D 41 53 29 22 3A 85 58 59 24 00 D6 | COMMAS)":.XY$..|
000008A0: 10 8F 0C 99 22 93 45 4E 54 45 52 20 50 52 49 4E |....".ENTER PRIN|
000008B0: 54 45 52 20 44 45 56 49 43 45 20 4E 55 4D 42 45 |TER DEVICE NUMBE|
000008C0: 52 22 3A 85 44 4E 24 3A 44 4E B2 C5 28 C8 28 44 |R":.DN$:DN..(.(D|
000008D0: 4E 24 2C 31 29 29 00 EA 10 90 0C 8B 44 4E B3 34 |N$,1))......DN.4|
000008E0: B0 44 4E B1 37 A7 33 32 31 35 00 2D 11 91 0C 85 |.DN.7.3215.-....|
000008F0: 22 93 11 11 11 11 43 48 52 24 28 58 58 29 20 46 |".....CHR$(XX) F|
00000900: 4F 52 20 43 4F 4E 44 45 4E 53 45 44 20 4D 4F 44 |OR CONDENSED MOD|
00000910: 45 20 20 20 31 35 9D 9D 9D 9D 22 3B 44 43 24 3A |E 15....";DC$:|
00000920: 44 43 24 B2 C7 28 C5 28 44 43 24 29 29 00 5E 11 |DC$..(.(DC$)).^.|
00000930: 94 0C A0 33 3A 9F 33 2C 44 4E 3A 44 43 24 B2 C7 |...3:.3,DN:DC$..|
00000940: 28 32 37 29 AA C7 28 36 36 29 AA C7 28 33 29 AA |(27)..(66)..(3).|
00000950: C7 28 32 37 29 AA C7 28 35 30 29 3A 98 33 00 9E |.(27)..(50):.3..|
00000960: 11 95 0C 8B 53 54 A7 99 22 11 11 11 50 52 49 4E |....ST.."...PRIN|
00000970: 54 45 52 20 4E 4F 54 20 4F 4E 2D 4C 49 4E 45 2C |TER NOT ON-LINE,|
00000980: 20 48 49 54 20 41 20 4B 45 59 2E 22 3A 92 31 39 | HIT A KEY.":.19|
00000990: 38 2C 31 3A 97 31 39 38 2C 2E 3A 89 32 30 00 C7 |8,1:.198,.:.20..|
000009A0: 11 98 0C 99 22 93 50 52 49 4E 54 49 4E 47 2C 20 |....".PRINTING, |
000009B0: 48 4F 4C 44 20 44 4F 57 4E 20 46 31 20 54 4F 20 |HOLD DOWN F1 TO |
000009C0: 41 42 4F 52 54 2E 22 00 FD 11 9E 0C 42 24 B2 22 |ABORT.".....B$."|
000009D0: 20 20 22 3A 41 B2 31 3A 42 B2 36 30 3A 50 4E 24 | ":A.1:B.60:PN$|
000009E0: B2 22 31 22 3A 8D 33 33 30 30 3A 8D 33 30 30 30 |."1":.3300:.3000|
000009F0: 3A 8B 4E B3 33 36 30 A7 89 33 39 39 30 00 2E 12 |:.N.360..3990...|
00000A00: A8 0C 41 B2 33 36 31 3A 42 B2 34 32 30 3A 50 4E |..A.361:B.420:PN|
00000A10: 24 B2 22 32 22 3A 8D 33 33 30 30 3A 8D 33 30 30 |$."2":.3300:.300|
00000A20: 30 3A 8B 4E B3 37 32 31 A7 89 33 39 39 30 00 58 |0:.N.721..3990.X|
00000A30: 12 B2 0C 41 B2 37 32 31 3A 42 B2 37 38 30 3A 50 |...A.721:B.780:P|
00000A40: 4E 24 B2 22 33 22 3A 8D 33 33 30 30 3A 8D 33 30 |N$."3":.3300:.30|
00000A50: 30 30 3A 89 33 39 39 30 00 99 12 E4 0C 98 33 2C |00:.3990......3,|
00000A60: 44 43 24 22 20 20 20 20 20 20 20 20 20 50 41 47 |DC$" PAG|
00000A70: 45 20 22 50 4E 24 22 20 20 20 20 20 20 20 20 20 |E "PN$" |
00000A80: 22 5A 53 24 22 20 20 20 20 20 20 20 20 20 22 58 |"ZS$" "X|
00000A90: 59 24 3A 98 33 2C 22 A0 22 00 D8 12 F8 0C 81 4A |Y$:.3,"."......J|
00000AA0: B2 41 A4 42 3A 98 33 2C 44 43 24 3B 44 24 28 4A |.A.B:.3,DC$;D$(J|
00000AB0: 29 3B 42 24 3B 44 24 28 4A AA 36 30 29 3B 42 24 |);B$;D$(J.60);B$|
00000AC0: 3B 44 24 28 4A AA 31 32 30 29 3B 42 24 3B 44 24 |;D$(J.120);B$;D$|
00000AD0: 28 4A AA 31 38 30 29 3B 00 13 13 FD 0C 98 33 2C |(J.180);......3,|
00000AE0: 42 24 3B 44 24 28 4A AA 32 34 30 29 3B 42 24 3B |B$;D$(J.240);B$;|
00000AF0: 44 24 28 4A AA 33 30 30 29 3B C7 28 31 38 29 3A |D$(J.300);.(18):|
00000B00: 8B C2 28 31 39 37 29 B2 34 A7 98 33 3A A0 33 3A |..(197).4..3:.3:|
00000B10: 89 32 30 00 3A 13 FE 0C 58 B2 AB 28 58 B2 2E 29 |.20.:...X..(X..)|
00000B20: 3A 97 31 39 39 2C 58 3A 99 22 13 50 52 49 4E 54 |:.199,X:.".PRINT|
00000B30: 49 4E 47 11 11 11 22 3A 82 4A 00 40 13 02 0D 8F |ING...":.J.@....|
00000B40: 00 55 13 0C 0D 81 49 49 B2 31 A4 34 3A 98 33 3A |.U....II.1.4:.3:|
00000B50: 82 49 49 3A 8E 00 80 13 96 0F 98 33 3A A0 33 3A |.II:.......3:.3:|
00000B60: 99 22 11 12 45 4E 44 20 4F 46 20 4C 49 53 54 2E |."..END OF LIST.|
00000B70: 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 | PRESS ANY KEY"|
00000B80: 00 9A 13 9E 0F 41 24 B2 22 22 3A A1 41 24 3A 8B |.....A$."":.A$:.|
00000B90: 41 24 B2 22 22 A7 33 39 39 38 00 A0 13 9F 0F 8E |A$."".3998......|
00000BA0: 00 A6 13 A0 0F 8F 00 C1 13 AA 0F 99 22 93 11 11 |............"...|
00000BB0: 11 11 11 20 20 53 4F 52 54 20 41 20 46 49 4C 45 |... SORT A FILE|
00000BC0: 22 00 DD 13 B8 0F 99 3A 99 22 11 20 20 12 53 4F |"......:.". .SO|
00000BD0: 52 54 49 4E 47 2E 2E 2E 2E 2E 2E 92 22 00 FA 13 |RTING......."...|
00000BE0: B9 0F 4E 31 B2 2E 3A 4E 32 B2 2E 3A 9E 34 39 31 |..N1..:N2..:.491|
00000BF0: 35 32 2C 4E 2C 44 24 28 31 29 00 23 14 BE 0F 81 |52,N,D$(1).#....|
00000C00: 49 B2 31 A4 4E 3A 8B 44 24 28 49 29 B2 50 49 24 |I.1.N:.D$(I).PI$|
00000C10: A7 4E 31 B2 49 AB 31 3A 8D 34 31 30 30 3A 89 34 |.N1.I.1:.4100:.4|
00000C20: 30 34 30 00 32 14 C3 0F 82 49 3A 8B 4E 31 B2 2E |040.2....I:.N1..|
00000C30: A7 8E 00 5B 14 C8 0F 4E 32 B2 4E AB 4E 31 3A 99 |...[...N2.N.N1:.|
00000C40: 22 11 11 20 22 4E 32 22 46 49 4C 45 53 20 52 45 |".. "N2"FILES RE|
00000C50: 4D 4F 56 45 44 22 3A 4E B2 4E 31 00 77 14 CD 0F |MOVED":N.N1.w...|
00000C60: 99 22 11 20 20 12 20 50 52 45 53 53 20 41 4E 59 |.". . PRESS ANY|
00000C70: 20 4B 45 59 20 92 22 00 8B 14 D2 0F A1 41 24 3A | KEY ."......A$:|
00000C80: 8B 41 24 B2 22 22 A7 34 30 35 30 00 91 14 03 10 |.A$."".4050.....|
00000C90: 8E 00 9F 14 04 10 81 49 B2 31 A4 31 30 38 30 00 |.......I.1.1080.|
00000CA0: CC 14 0E 10 8B 44 24 28 49 29 B2 50 49 24 A7 44 |.....D$(I).PI$.D|
00000CB0: 24 28 49 29 B2 22 20 20 20 20 20 20 20 20 20 20 |$(I)." |
00000CC0: 20 20 20 20 20 20 20 20 20 20 20 22 00 D5 14 18 | "....|
00000CD0: 10 82 49 3A 8E 00 DB 14 88 13 8F 00 FF 14 92 13 |..I:............|
00000CE0: 99 22 93 11 11 11 11 11 20 20 53 45 41 52 43 48 |."...... SEARCH|
00000CF0: 20 46 4F 52 20 46 49 4C 45 20 4E 41 4D 45 22 00 | FOR FILE NAME".|
00000D00: 1A 15 9C 13 8F 47 45 54 41 24 3A 49 46 41 24 3D |.....GETA$:IFA$=|
00000D10: 22 22 54 48 45 4E 35 30 32 30 00 3A 15 A6 13 99 |""THEN5020.:....|
00000D20: 22 45 4E 54 45 52 20 4E 41 4D 45 20 54 4F 20 53 |"ENTER NAME TO S|
00000D30: 45 41 52 43 48 20 46 4F 52 22 00 53 15 B0 13 53 |EARCH FOR".S...S|
00000D40: 4E 24 B2 22 22 3A 85 53 4E 24 3A 5A B2 C3 28 53 |N$."":.SN$:Z..(S|
00000D50: 4E 24 29 00 75 15 BA 13 81 49 B2 31 A4 4E 3A 8B |N$).u....I.1.N:.|
00000D60: C8 28 44 24 28 49 29 2C 5A 29 B2 53 4E 24 A7 99 |.(D$(I),Z).SN$..|
00000D70: 44 24 28 49 29 00 88 15 BB 13 8B C2 28 36 35 33 |D$(I).......(653|
00000D80: 29 B2 31 A7 35 30 35 31 00 B0 15 BC 13 82 49 3A |).1.5051......I:|
00000D90: 99 22 11 12 45 4E 44 20 4F 46 20 4C 49 53 54 2E |."..END OF LIST.|
00000DA0: 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 | PRESS ANY KEY"|
00000DB0: 00 C4 15 CE 13 A1 41 24 3A 8B 41 24 B2 22 22 A7 |......A$:.A$."".|
00000DC0: 35 30 37 30 00 CA 15 7B 15 8E 00 D0 15 7C 15 8F |5070...{.....|..|
00000DD0: 00 FE 15 7D 15 99 22 93 11 1D 1D 1D 1D 44 4F 20 |...}.."......DO |
00000DE0: 59 4F 55 20 57 49 53 48 20 54 4F 20 43 48 41 4E |YOU WISH TO CHAN|
00000DF0: 47 45 20 41 4E 20 49 44 20 28 59 2F 4E 29 00 18 |GE AN ID (Y/N)..|
00000E00: 16 7E 15 A1 20 43 41 24 3A 8B 20 43 41 24 B2 22 |.~.. CA$:. CA$."|
00000E10: 22 20 A7 20 35 35 30 32 00 38 16 7F 15 8B 20 43 |" . 5502.8.... C|
00000E20: 41 24 B3 B1 22 59 22 20 AF 20 43 41 24 B3 B1 22 |A$.."Y" . CA$.."|
00000E30: 4E 22 A7 20 35 35 30 32 00 4C 16 80 15 8B 20 43 |N". 5502.L.... C|
00000E40: 41 24 B2 22 4E 22 A7 20 35 35 32 39 00 6A 16 81 |A$."N". 5529.j..|
00000E50: 15 85 22 9C 11 11 20 20 45 4E 54 45 52 20 4F 4C |.."... ENTER OL|
00000E60: 44 20 49 44 20 22 3B 4F 49 24 00 81 16 82 15 8B |D ID ";OI$......|
00000E70: 20 C3 28 4F 49 24 29 B3 B1 34 20 A7 20 35 35 30 | .(OI$)..4 . 550|
00000E80: 35 00 9F 16 83 15 85 22 9E 11 11 20 20 45 4E 54 |5......"... ENT|
00000E90: 45 52 20 4E 45 57 20 49 44 20 22 3B 4E 49 24 00 |ER NEW ID ";NI$.|
00000EA0: B6 16 84 15 8B 20 C3 28 4E 49 24 29 B3 B1 34 20 |..... .(NI$)..4 |
00000EB0: A7 20 35 35 30 37 00 C1 16 85 15 97 36 34 36 2C |. 5507......646,|
00000EC0: 35 00 CC 16 86 15 81 49 B2 31 A4 4E 00 F7 16 87 |5......I.1.N....|
00000ED0: 15 8B 20 C9 28 44 24 28 49 29 2C 34 29 B2 4F 49 |.. .(D$(I),4).OI|
00000EE0: 24 A7 44 24 28 49 29 B2 C8 28 44 24 28 49 29 2C |$.D$(I)..(D$(I),|
00000EF0: 31 37 29 AA 4E 49 24 00 FD 16 88 15 82 00 2C 17 |17).NI$.......,.|
00000F00: 89 15 99 22 11 11 44 4F 20 59 4F 55 20 57 49 53 |..."..DO YOU WIS|
00000F10: 48 20 54 4F 20 43 48 41 4E 47 45 20 4D 4F 52 45 |H TO CHANGE MORE|
00000F20: 20 49 44 27 53 20 28 59 2F 4E 29 22 00 46 17 8A | ID'S (Y/N)".F..|
00000F30: 15 A1 20 43 4A 24 3A 8B 20 43 4A 24 B2 22 22 20 |.. CJ$:. CJ$."" |
00000F40: A7 20 35 35 31 34 00 68 17 8B 15 8B 20 43 4A 24 |. 5514.h.... CJ$|
00000F50: B3 B1 22 59 22 20 AF 20 43 4A 24 B3 B1 20 22 4E |.."Y" . CJ$.. "N|
00000F60: 22 20 A7 20 35 35 31 34 00 7D 17 8C 15 8B 20 43 |" . 5514.}.... C|
00000F70: 4A 24 B2 22 4E 22 20 A7 20 35 35 32 39 00 96 17 |J$."N" . 5529...|
00000F80: 8D 15 4F 49 24 B2 22 22 3A 4E 49 24 B2 22 22 3A |..OI$."":NI$."":|
00000F90: 89 20 35 35 30 35 00 BC 17 99 15 99 22 93 11 11 |. 5505......"...|
00000FA0: 11 11 11 20 20 53 45 41 52 43 48 20 46 4F 52 20 |... SEARCH FOR |
00000FB0: 44 49 53 4B 20 4E 55 4D 42 45 52 22 00 E1 17 9A |DISK NUMBER"....|
00000FC0: 15 99 22 45 4E 54 45 52 20 34 20 43 48 52 2E 20 |.."ENTER 4 CHR. |
00000FD0: 49 44 20 54 4F 20 53 45 41 52 43 48 20 46 4F 52 |ID TO SEARCH FOR|
00000FE0: 22 00 FA 17 A4 15 53 4E 24 B2 22 22 3A 85 53 4E |".....SN$."":.SN|
00000FF0: 24 3A 5A B2 C3 28 53 4E 24 29 00 1F 18 AE 15 81 |$:Z..(SN$)......|
00001000: 49 B2 31 A4 4E 3A 8B CA 28 44 24 28 49 29 2C 31 |I.1.N:..(D$(I),1|
00001010: 38 2C 5A 29 B2 53 4E 24 A7 99 44 24 28 49 29 00 |8,Z).SN$..D$(I).|
00001020: 32 18 AF 15 8B C2 28 36 35 33 29 B2 31 A7 35 35 |2.....(653).1.55|
00001030: 35 31 00 62 18 B0 15 82 49 3A 8D 20 36 33 35 30 |51.b....I:. 6350|
00001040: 30 3A 99 22 11 12 45 4E 44 20 4F 46 20 4C 49 53 |0:."..END OF LIS|
00001050: 54 2E 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |T. PRESS ANY KE|
00001060: 59 22 00 76 18 C2 15 A1 41 24 3A 8B 41 24 B2 22 |Y".v....A$:.A$."|
00001070: 22 A7 35 35 37 30 00 7C 18 6F 17 8E 00 82 18 70 |".5570.|.o.....p|
00001080: 17 8F 00 9D 18 71 17 44 B2 38 3A 44 44 24 B2 22 |.....q.D.8:DD$."|
00001090: 30 22 3A 8B 44 31 B2 38 A7 36 30 30 34 00 CC 18 |0":.D1.8.6004...|
000010A0: 72 17 99 22 93 57 48 41 54 20 44 45 56 49 43 45 |r..".WHAT DEVICE|
000010B0: 20 28 38 20 4F 52 20 39 29 22 3B 3A 85 44 24 3A | (8 OR 9)";:.D$:|
000010C0: 44 B2 C5 28 C8 28 44 24 2C 31 29 29 00 DE 18 73 |D..(.(D$,1))...s|
000010D0: 17 8B 44 B3 38 B0 44 B1 39 A7 36 30 30 32 00 F1 |..D.8.D.9.6002..|
000010E0: 18 74 17 8B 44 32 24 B2 22 30 3A 22 A7 36 30 30 |.t..D2$."0:".600|
000010F0: 38 00 1A 19 75 17 99 22 93 57 48 41 54 20 44 52 |8...u..".WHAT DR|
00001100: 49 56 45 20 28 30 20 4F 52 20 31 2C 20 2A 20 46 |IVE (0 OR 1, * F|
00001110: 4F 52 20 42 4F 54 48 29 22 3B 00 32 19 76 17 85 |OR BOTH)";.2.v..|
00001120: 44 44 24 3A 44 52 B2 C5 28 C8 28 44 44 24 2C 31 |DD$:DR..(.(DD$,1|
00001130: 29 29 00 46 19 77 17 8B 44 52 B3 2E B0 44 52 B1 |)).F.w..DR...DR.|
00001140: 31 A7 36 30 30 34 00 5D 19 78 17 97 38 33 39 2C |1.6004.].x..839,|
00001150: C6 28 44 44 24 29 3A 97 38 34 36 2C 44 00 87 19 |.(DD$):.846,D...|
00001160: 83 17 99 22 93 49 53 20 54 48 45 20 43 4F 52 52 |...".IS THE CORR|
00001170: 45 43 54 20 44 49 53 4B 20 49 4E 20 54 48 45 20 |ECT DISK IN THE |
00001180: 44 52 49 56 45 3F 22 00 9D 19 84 17 A1 41 24 3A |DRIVE?"......A$:|
00001190: 8B 41 24 B3 B1 22 59 22 A7 36 30 32 30 00 C3 19 |.A$.."Y".6020...|
000011A0: 85 17 9F 31 35 2C 44 2C 31 35 2C 22 49 22 AA 44 |...15,D,15,"I".D|
000011B0: 44 24 3A 84 31 35 2C 45 2C 45 24 2C 46 2C 47 3A |D$:.15,E,E$,F,G:|
000011C0: A0 31 35 00 F1 19 86 17 8B 45 B3 B1 2E A7 99 22 |.15......E....."|
000011D0: 20 20 20 20 20 20 20 20 22 45 22 20 22 45 24 22 | "E" "E$"|
000011E0: 20 22 46 22 20 22 47 3A A0 31 35 3A 89 36 30 34 | "F" "G:.15:.604|
000011F0: 30 00 FA 19 8E 17 9E 38 32 38 00 1F 1A 98 17 99 |0......828......|
00001200: A3 38 29 22 11 12 50 52 45 53 53 20 41 4E 59 20 |.8)"..PRESS ANY |
00001210: 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 22 00 |KEY WHEN READY".|
00001220: 33 1A A2 17 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 |3....A$:.A$."".6|
00001230: 30 35 30 00 39 1A AC 17 8E 00 3F 1A 58 1B 8F 00 |050.9.....?.X...|
00001240: 63 1A 62 1B 99 22 93 11 11 11 1E 20 20 20 20 20 |c.b.."..... |
00001250: 20 20 20 20 20 41 44 44 20 46 52 4F 4D 20 44 49 | ADD FROM DI|
00001260: 53 4B 22 00 93 1A 63 1B 99 22 11 46 49 4C 45 53 |SK"...c..".FILES|
00001270: 22 4E 3B 3A 8B 49 34 24 B3 B1 22 41 22 A7 99 22 |"N;:.I4$.."A".."|
00001280: 2D 20 4C 41 53 54 20 49 44 20 55 53 45 44 20 22 |- LAST ID USED "|
00001290: 49 34 24 00 C4 1A 64 1B 99 3A 99 22 11 50 4C 41 |I4$...d..:.".PLA|
000012A0: 43 45 20 44 49 53 4B 20 54 4F 20 42 45 20 52 45 |CE DISK TO BE RE|
000012B0: 41 44 20 49 4E 54 4F 20 44 52 49 56 45 20 38 20 |AD INTO DRIVE 8 |
000012C0: 41 4E 44 22 00 FF 1A 65 1B 99 22 11 49 4E 50 55 |AND"...e..".INPU|
000012D0: 54 20 41 20 46 4F 55 52 20 43 48 41 52 41 43 54 |T A FOUR CHARACT|
000012E0: 45 52 20 49 44 20 12 28 41 3D 41 42 4F 52 54 29 |ER ID .(A=ABORT)|
000012F0: 92 22 3A 99 22 11 20 20 20 20 2D 2D 2D 2D 22 00 |.":.". ----".|
00001300: 1F 1B 66 1B 49 34 24 B2 22 22 3A 85 22 20 20 22 |..f.I4$."":." "|
00001310: 3B 49 34 24 3A 8B 49 34 24 B2 22 41 22 A7 8E 00 |;I4$:.I4$."A"...|
00001320: 30 1B 67 1B 8B 49 34 24 B2 22 22 A7 37 30 30 30 |0.g..I4$."".7000|
00001330: 00 44 1B 68 1B 8B C3 28 49 34 24 29 B3 B1 34 A7 |.D.h...(I4$)..4.|
00001340: 37 30 30 30 00 5D 1B 69 1B 99 22 11 20 51 55 45 |7000.].i..". QUE|
00001350: 52 59 3F 20 28 59 2F 4E 29 20 20 22 3B 00 73 1B |RY? (Y/N) ";.s.|
00001360: 6A 1B A1 51 55 24 3A 8B 51 55 24 B2 22 22 A7 37 |j..QU$:.QU$."".7|
00001370: 30 31 38 00 8F 1B 6B 1B 8B 51 55 24 B3 B1 22 59 |018...k..QU$.."Y|
00001380: 22 AF 51 55 24 B3 B1 22 4E 22 A7 37 30 31 38 00 |".QU$.."N".7018.|
00001390: 95 1B 6C 1B 8F 00 A9 1B 6D 1B 8B C3 28 49 34 24 |..l.....m...(I4$|
000013A0: 29 B3 B1 34 A7 37 30 30 30 00 D2 1B 6E 1B 8B 51 |)..4.7000...n..Q|
000013B0: 55 24 B2 22 59 22 A7 99 22 12 28 59 2F 4E 2F 45 |U$."Y"..".(Y/N/E|
000013C0: 2F 46 31 3D 41 42 4F 52 54 29 92 22 3A 89 37 30 |/F1=ABORT).":.70|
000013D0: 33 30 00 EF 1B 6F 1B 8B 51 55 24 B2 22 4E 22 A7 |30...o..QU$."N".|
000013E0: 99 22 12 28 46 31 3D 41 42 4F 52 54 29 92 22 00 |.".(F1=ABORT).".|
000013F0: 12 1C 76 1B 9F 31 35 2C 38 2C 31 35 2C 22 49 30 |..v..15,8,15,"I0|
00001400: 22 3A 84 31 35 2C 45 2C 45 24 2C 46 2C 47 3A A0 |":.15,E,E$,F,G:.|
00001410: 31 35 00 3D 1C 77 1B 8B 45 B3 B1 2E A7 99 22 11 |15.=.w..E.....".|
00001420: 20 20 20 22 45 22 20 12 22 45 24 22 92 20 22 46 | "E" ."E$". "F|
00001430: 22 20 22 47 22 20 22 3A 89 37 33 35 30 00 53 1C |" "G" ":.7350.S.|
00001440: 80 1B 9F 37 2C 38 2C 2E 2C 22 24 30 22 3A 89 37 |...7,8,.,"$0":.7|
00001450: 33 36 30 00 61 1C 8A 1B A1 23 37 2C 41 24 2C 42 |360.a....#7,A$,B|
00001460: 24 00 6F 1C 94 1B A1 23 37 2C 41 24 2C 42 24 00 |$.o....#7,A$,B$.|
00001470: 7D 1C 9E 1B A1 23 37 2C 41 24 2C 42 24 00 9D 1C |}....#7,A$,B$...|
00001480: A8 1B 43 B2 2E 3A 46 53 24 B2 22 22 3A 4E 46 24 |..C..:FS$."":NF$|
00001490: B2 22 22 3A 58 58 B2 2E 3A 58 B2 58 58 00 B1 1C |."":XX..:X.XX...|
000014A0: B2 1B 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 |...A$.."".C..(A$|
000014B0: 29 00 CB 1C BC 1B 8B 42 24 B3 B1 22 22 A7 43 B2 |)......B$.."".C.|
000014C0: 43 AA C6 28 42 24 29 AC 32 35 36 00 DD 1C C6 1B |C..(B$).256.....|
000014D0: 46 53 24 B2 CA 28 C4 28 43 29 2C 32 29 00 E9 1C |FS$..(.(C),2)...|
000014E0: 0C 1C 99 22 20 20 20 22 3B 00 16 1D 16 1C 8B C5 |..." ";.......|
000014F0: 28 46 53 24 29 B3 31 30 A7 46 53 24 B2 46 53 24 |(FS$).10.FS$.FS$|
00001500: AA 22 20 20 20 20 20 20 20 22 3A 99 46 53 24 3B |." ":.FS$;|
00001510: 3A 89 37 32 32 30 00 41 1D 20 1C 8B C5 28 46 53 |:.7220.A. ...(FS|
00001520: 24 29 B1 39 39 A7 46 53 24 B2 46 53 24 AA 22 20 |$).99.FS$.FS$." |
00001530: 20 20 20 20 22 3A 99 46 53 24 3B 3A 89 37 32 32 | ":.FS$;:.722|
00001540: 30 00 5C 1D 2A 1C 46 53 24 B2 46 53 24 AA 22 20 |0.\.*.FS$.FS$." |
00001550: 20 20 20 20 20 22 3A 99 46 53 24 3B 00 7A 1D 34 | ":.FS$;.z.4|
00001560: 1C 42 24 B2 22 22 3A A1 23 37 2C 42 24 3A 8B 53 |.B$."":.#7,B$:.S|
00001570: 54 20 AF 36 34 A7 37 33 33 30 00 8E 1D 3E 1C 8B |T .64.7330...>..|
00001580: 42 24 B3 B1 C7 28 33 34 29 A7 37 32 32 30 00 BC |B$...(34).7220..|
00001590: 1D 48 1C A1 23 37 2C 42 24 3A 8B 42 24 B3 B1 C7 |.H..#7,B$:.B$...|
000015A0: 28 33 34 29 A7 8D 34 30 30 30 30 3A 4E 46 24 B2 |(34)..40000:NF$.|
000015B0: 4E 46 24 AA 42 24 3A 89 37 32 34 30 00 DA 1D 52 |NF$.B$:.7240...R|
000015C0: 1C 50 44 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.PD$."..........|
000015D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 06 1E 5C 1C 8B |........."...\..|
000015E0: C8 28 4E 46 24 2C 31 29 B2 22 20 22 A7 4E 46 24 |.(NF$,1)." ".NF$|
000015F0: B2 C9 28 4E 46 24 2C C3 28 4E 46 24 29 AB 31 29 |..(NF$,.(NF$).1)|
00001600: 3A 89 37 32 36 30 00 32 1E 5D 1C 8B C9 28 4E 46 |:.7260.2.]...(NF|
00001610: 24 2C 31 29 B2 22 20 22 A7 4E 46 24 B2 C8 28 4E |$,1)." ".NF$..(N|
00001620: 46 24 2C C3 28 4E 46 24 29 AB 31 29 3A 89 37 32 |F$,.(NF$).1):.72|
00001630: 36 31 00 62 1E 61 1C 58 B2 C3 28 4E 46 24 29 3A |61.b.a.X..(NF$):|
00001640: 58 58 B2 31 38 AB 58 3A 4E 46 24 B2 4E 46 24 AA |XX.18.X:NF$.NF$.|
00001650: C8 28 50 44 24 2C 58 58 29 3A 99 4E 46 24 22 20 |.(PD$,XX):.NF$" |
00001660: 22 3B 00 7C 1E 66 1C A1 23 37 2C 42 24 3A 8B 42 |";.|.f..#7,B$:.B|
00001670: 24 B2 C7 28 33 32 29 A7 37 32 37 30 00 86 1E 70 |$..(32).7270...p|
00001680: 1C 43 24 B2 22 22 00 A7 1E 7A 1C 43 24 B2 43 24 |.C$.""...z.C$.C$|
00001690: AA 42 24 3A A1 23 37 2C 42 24 3A 8B 42 24 B3 B1 |.B$:.#7,B$:.B$..|
000016A0: 22 22 A7 37 32 39 30 00 B4 1E 84 1C 99 C8 28 43 |"".7290.......(C|
000016B0: 24 2C 31 29 00 BA 1E 8E 1C 8F 00 CC 1E 98 1C 8B |$,1)............|
000016C0: A8 53 54 20 AF 36 34 A7 37 35 30 30 00 E3 1E A2 |.ST .64.7500....|
000016D0: 1C 99 22 2D 2D 2D 20 42 4C 4F 43 4B 53 20 46 52 |.."--- BLOCKS FR|
000016E0: 45 45 22 00 E9 1E AC 1C 8F 00 12 1F B6 1C A0 37 |EE"............7|
000016F0: 3A 99 22 11 11 20 20 20 12 48 49 54 20 41 4E 59 |:.".. .HIT ANY|
00001700: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00001710: 92 22 00 26 1F B8 1C A1 41 24 3A 8B 41 24 B2 22 |.".&....A$:.A$."|
00001720: 22 A7 37 33 35 32 00 30 1F B9 1C 89 37 30 30 30 |".7352.0....7000|
00001730: 00 44 1F C0 1C A1 23 37 2C 41 24 2C 41 24 2C 41 |.D....#7,A$,A$,A|
00001740: 24 2C 41 24 00 5F 1F CA 1C A1 23 37 2C 41 24 3A |$,A$._....#7,A$:|
00001750: 8B 41 24 B3 B1 C7 28 33 34 29 A7 37 33 37 30 00 |.A$...(34).7370.|
00001760: 79 1F D4 1C A1 23 37 2C 41 24 3A 8B 41 24 B2 C7 |y....#7,A$:.A$..|
00001770: 28 33 34 29 A7 37 34 30 30 00 8E 1F DE 1C 4E 4E |(34).7400.....NN|
00001780: 24 B2 4E 4E 24 AA 41 24 3A 89 37 33 38 30 00 99 |$.NN$.A$:.7380..|
00001790: 1F E8 1C A1 23 37 2C 41 24 00 B1 1F F2 1C A1 23 |....#7,A$......#|
000017A0: 37 2C 41 24 2C 42 24 3A 49 44 24 B2 41 24 AA 42 |7,A$,B$:ID$.A$.B|
000017B0: 24 00 E1 1F FC 1C 99 3A 50 24 B2 22 20 20 20 4E |$......:P$." N|
000017C0: 41 4D 45 3A 22 3A 99 50 24 AA 4E 4E 24 2C 3A 50 |AME:":.P$.NN$,:P|
000017D0: 24 B2 22 9D 9D 49 44 3A 22 3A 99 50 24 AA 49 44 |$."..ID:":.P$.ID|
000017E0: 24 00 F4 1F 06 1D 50 24 B2 22 22 3A 4E 4E 24 B2 |$.....P$."":NN$.|
000017F0: 22 22 3A 99 00 1E 20 10 1D 99 22 20 20 20 12 53 |"":... ..." .S|
00001800: 49 5A 45 20 20 20 20 4E 41 4D 45 20 20 20 20 20 |IZE NAME |
00001810: 20 20 20 20 20 20 20 20 54 59 50 45 92 22 00 38 | TYPE.".8|
00001820: 20 2E 1D A1 23 37 2C 41 24 2C 41 24 2C 41 24 2C | ...#7,A$,A$,A$,|
00001830: 41 24 3A 89 37 30 36 30 00 53 20 4C 1D 8B 51 55 |A$:.7060.S L..QU|
00001840: 24 B2 22 4E 22 A7 41 4E 24 B2 22 59 22 3A 89 37 |$."N".AN$."Y":.7|
00001850: 35 33 30 00 69 20 56 1D A1 41 4E 24 3A 8B 41 4E |530.i V..AN$:.AN|
00001860: 24 B2 22 22 A7 37 35 31 30 00 A5 20 60 1D 8B 41 |$."".7510.. `..A|
00001870: 4E 24 B2 22 4E 22 A7 99 22 91 20 20 20 20 20 20 |N$."N"..". |
00001880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 22 3A | .":|
000018A0: 89 37 30 36 30 00 BE 20 6A 1D 8B 41 4E 24 B2 22 |.7060.. j..AN$."|
000018B0: 59 22 A7 4E B2 4E AA 31 3A 89 37 35 34 30 00 D7 |Y".N.N.1:.7540..|
000018C0: 20 6E 1D 8B 41 4E 24 B2 22 45 22 A7 4E B2 4E AA | n..AN$."E".N.N.|
000018D0: 31 3A 89 37 36 30 30 00 E9 20 6F 1D 8B 41 4E 24 |1:.7600.. o..AN$|
000018E0: B2 46 31 24 A7 37 33 35 30 00 F3 20 70 1D 89 37 |.F1$.7350.. p..7|
000018F0: 35 31 30 00 20 21 74 1D 8B 4E B1 31 30 37 39 A7 |510. !t..N.1079.|
00001900: 99 3A 99 22 12 2A 20 46 49 4C 45 20 46 55 4C 4C |.:.".* FILE FULL|
00001910: 21 20 2A 92 22 3A A0 37 3A A0 31 35 3A 89 32 30 |! *.":.7:.15:.20|
00001920: 00 3C 21 75 1D 44 24 28 4E 29 B2 C8 28 4E 46 24 |.<!u.D$(N)..(NF$|
00001930: 2C 31 36 29 AA 22 2E 22 AA 49 34 24 00 53 21 79 |,16).".".I4$.S!y|
00001940: 1D A1 41 42 24 3A 8B 41 42 24 B2 46 31 24 A7 37 |..AB$:.AB$.F1$.7|
00001950: 33 35 30 00 5D 21 7E 1D 89 37 30 36 30 00 6F 21 |350.]!~..7060.o!|
00001960: B0 1D 99 22 20 20 20 12 45 44 49 54 92 22 3B 00 |..." .EDIT.";.|
00001970: 9B 21 B5 1D 8B C9 28 4E 46 24 2C 31 29 B2 22 2E |.!....(NF$,1).".|
00001980: 22 A7 4E 46 24 B2 C8 28 4E 46 24 2C C3 28 4E 46 |".NF$..(NF$,.(NF|
00001990: 24 29 AB 31 29 3A 89 37 36 30 35 00 AA 21 B6 1D |$).1):.7605..!..|
000019A0: 99 22 20 20 20 20 22 4E 46 24 00 DE 21 BA 1D 85 |." "NF$..!...|
000019B0: 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4E 4D 24 |"..........";NM$|
000019C0: 3A 4E 4D 24 B2 4E 4D 24 AA 22 2E 2E 2E 2E 2E 2E |:NM$.NM$."......|
000019D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 F6 |............."..|
000019E0: 21 C4 1D 4E 46 24 B2 C8 28 4E 4D 24 2C 31 36 29 |!..NF$..(NM$,16)|
000019F0: 3A 89 37 35 34 30 00 FC 21 40 1F 8F 00 1A 22 4A |:.7540..!@...."J|
00001A00: 1F 99 22 93 11 11 11 11 11 11 20 20 20 52 45 4D |.."....... REM|
00001A10: 4F 56 45 20 4E 41 4D 45 53 22 00 3B 22 54 1F 99 |OVE NAMES".;"T..|
00001A20: 22 11 11 20 20 44 45 4C 45 54 45 20 12 4E 92 41 |".. DELETE .N.A|
00001A30: 4D 45 20 4F 52 20 12 49 92 44 22 00 55 22 5E 1F |ME OR .I.D".U"^.|
00001A40: 41 24 B2 22 22 3A A1 41 24 3A 8B 41 24 B2 22 22 |A$."":.A$:.A$.""|
00001A50: A7 38 30 33 30 00 66 22 68 1F 8B 41 24 B2 22 4E |.8030.f"h..A$."N|
00001A60: 22 A7 38 31 30 30 00 77 22 72 1F 8B 41 24 B2 22 |".8100.w"r..A$."|
00001A70: 49 22 A7 38 32 30 30 00 81 22 7C 1F 89 38 30 33 |I".8200.."|..803|
00001A80: 30 00 87 22 A4 1F 8F 00 B9 22 AE 1F 99 22 93 11 |0.."....."..."..|
00001A90: 11 11 11 11 1D 1D 1D 49 4E 50 55 54 20 4E 41 4D |.......INPUT NAM|
00001AA0: 45 20 54 4F 20 52 45 4D 4F 56 45 20 4F 52 20 45 |E TO REMOVE OR E|
00001AB0: 44 49 54 22 3A 41 31 B2 2E 00 D2 22 B8 1F 52 4E |DIT":A1...."..RN|
00001AC0: 24 B2 22 22 3A 85 52 4E 24 3A 5A B2 C3 28 52 4E |$."":.RN$:Z..(RN|
00001AD0: 24 29 00 0A 23 C2 1F 81 49 B2 31 A4 4E 3A 8B C8 |$)..#...I.1.N:..|
00001AE0: 28 44 24 28 49 29 2C 5A 29 B2 52 4E 24 A7 99 44 |(D$(I),Z).RN$..D|
00001AF0: 24 28 49 29 22 20 12 28 59 2F 4E 2F 45 2F 46 31 |$(I)" .(Y/N/E/F1|
00001B00: 29 92 22 3B 3A 89 38 31 34 30 00 14 23 C7 1F 89 |).";:.8140..#...|
00001B10: 38 31 38 30 00 28 23 CC 1F A1 41 24 3A 8B 41 24 |8180.(#...A$:.A$|
00001B20: B2 22 22 A7 38 31 34 30 00 40 23 D6 1F 8B 41 24 |."".8140.@#...A$|
00001B30: B2 22 4E 22 A7 99 22 20 4E 22 3A 89 38 31 38 30 |."N".." N":.8180|
00001B40: 00 67 23 E0 1F 8B 41 24 B2 22 59 22 A7 44 24 28 |.g#...A$."Y".D$(|
00001B50: 49 29 B2 50 49 24 3A 99 22 20 59 22 3A 41 31 B2 |I).PI$:." Y":A1.|
00001B60: 31 3A 89 38 31 38 30 00 78 23 E2 1F 8B 41 24 B2 |1:.8180.x#...A$.|
00001B70: 22 45 22 A7 38 31 39 32 00 89 23 E5 1F 8B 41 24 |"E".8192..#...A$|
00001B80: B2 46 31 24 A7 38 31 39 30 00 93 23 EA 1F 89 38 |.F1$.8190..#...8|
00001B90: 31 34 30 00 9A 23 F4 1F 82 49 00 AC 23 FE 1F 8B |140..#...I..#...|
00001BA0: 41 31 B2 31 A7 99 3A 8D 34 30 32 34 00 B2 23 FF |A1.1..:.4024..#.|
00001BB0: 1F 8E 00 C6 23 00 20 4E 4D 24 B2 C8 28 44 24 28 |....#. NM$..(D$(|
00001BC0: 49 29 2C 31 36 29 00 F2 23 01 20 8B C9 28 4E 4D |I),16)..#. ..(NM|
00001BD0: 24 2C 31 29 B2 22 2E 22 A7 4E 4D 24 B2 C8 28 4E |$,1).".".NM$..(N|
00001BE0: 4D 24 2C C3 28 4E 4D 24 29 AB 31 29 3A 89 38 31 |M$,.(NM$).1):.81|
00001BF0: 39 33 00 1B 24 03 20 99 3A 99 22 11 20 3E 12 45 |93..$. .:.". >.E|
00001C00: 44 49 54 92 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |DIT.------------|
00001C10: 3C 22 3A 99 22 20 20 22 4E 4D 24 00 55 24 06 20 |<":." "NM$.U$. |
00001C20: 85 22 91 22 3B 4E 4D 24 3A 4E 4D 24 B2 4E 4D 24 |.".";NM$:NM$.NM$|
00001C30: AA 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |."..............|
00001C40: 2E 2E 2E 2E 2E 22 3A 4E 4F 24 B2 C9 28 44 24 28 |.....":NO$..(D$(|
00001C50: 49 29 2C 34 29 00 78 24 07 20 44 24 28 49 29 B2 |I),4).x$. D$(I).|
00001C60: C8 28 4E 4D 24 2C 31 37 29 AA 4E 4F 24 3A 41 31 |.(NM$,17).NO$:A1|
00001C70: B2 31 3A 89 38 31 38 30 00 7E 24 08 20 8F 00 AE |.1:.8180.~$. ...|
00001C80: 24 12 20 99 22 93 11 11 11 11 11 1D 1D 1D 49 4E |$. .".........IN|
00001C90: 50 55 54 20 49 44 20 4F 46 20 44 49 53 4B 20 54 |PUT ID OF DISK T|
00001CA0: 4F 20 52 45 4D 4F 56 45 22 3A 41 31 B2 2E 00 C7 |O REMOVE":A1....|
00001CB0: 24 1C 20 52 4E 24 B2 22 22 3A 85 52 4E 24 3A 5A |$. RN$."":.RN$:Z|
00001CC0: B2 C3 28 52 4E 24 29 00 D8 24 21 20 8B 52 4E 24 |..(RN$)..$! .RN$|
00001CD0: B2 22 22 A7 38 32 31 30 00 17 25 26 20 81 49 B2 |."".8210..%& .I.|
00001CE0: 31 A4 4E 3A 8B CA 28 44 24 28 49 29 2C 31 38 2C |1.N:..(D$(I),18,|
00001CF0: 5A 29 B2 52 4E 24 A7 99 44 24 28 49 29 22 20 12 |Z).RN$..D$(I)" .|
00001D00: 28 59 2F 4E 2F 46 31 3D 41 42 4F 52 54 29 92 22 |(Y/N/F1=ABORT)."|
00001D10: 3B 3A 89 38 32 34 30 00 21 25 2B 20 89 38 32 38 |;:.8240.!%+ .828|
00001D20: 30 00 35 25 30 20 A1 41 24 3A 8B 41 24 B2 22 22 |0.5%0 .A$:.A$.""|
00001D30: A7 38 32 34 30 00 4D 25 3A 20 8B 41 24 B2 22 4E |.8240.M%: .A$."N|
00001D40: 22 A7 99 22 20 4E 22 3A 89 38 32 38 30 00 74 25 |".." N":.8280.t%|
00001D50: 44 20 8B 41 24 B2 22 59 22 A7 44 24 28 49 29 B2 |D .A$."Y".D$(I).|
00001D60: 50 49 24 3A 99 22 20 59 22 3A 41 31 B2 31 3A 89 |PI$:." Y":A1.1:.|
00001D70: 38 32 38 30 00 85 25 49 20 8B 41 24 B2 46 31 24 |8280..%I .A$.F1$|
00001D80: A7 38 32 39 30 00 8F 25 4E 20 89 38 32 34 30 00 |.8290..%N .8240.|
00001D90: 96 25 58 20 82 49 00 AC 25 62 20 8B 41 31 B2 31 |.%X .I..%b .A1.1|
00001DA0: A7 8D 34 30 32 34 3A 8D 38 33 30 30 00 C5 25 63 |..4024:.8300..%c|
00001DB0: 20 8B 20 45 58 B2 31 20 A7 20 45 58 B2 30 3A 89 | . EX.1 . EX.0:.|
00001DC0: 20 38 32 39 35 00 D0 25 64 20 89 20 38 32 30 30 | 8295..%d . 8200|
00001DD0: 00 D6 25 67 20 8E 00 06 26 6C 20 99 22 93 11 11 |..%g ...&l ."...|
00001DE0: 11 11 11 1D 1D 1D 1D 1D 12 52 45 4D 4F 56 45 20 |.........REMOVE |
00001DF0: 4D 4F 52 45 20 42 59 20 49 44 92 20 20 20 12 28 |MORE BY ID. .(|
00001E00: 59 2F 4E 29 92 22 00 1E 26 6D 20 A1 20 51 49 24 |Y/N)."..&m . QI$|
00001E10: 3A 8B 51 49 24 B2 22 22 A7 20 38 33 30 31 00 3C |:.QI$."". 8301.<|
00001E20: 26 6E 20 8B 51 49 24 B3 B1 22 59 22 20 AF 20 51 |&n .QI$.."Y" . Q|
00001E30: 49 24 B3 B1 22 4E 22 A7 38 33 30 31 00 52 26 6F |I$.."N".8301.R&o|
00001E40: 20 8B 51 49 24 B2 22 4E 22 20 A7 20 45 58 B2 31 | .QI$."N" . EX.1|
00001E50: 3A 8E 00 5E 26 70 20 45 58 B2 30 20 3A 8E 00 69 |:..^&p EX.0 :..i|
00001E60: 26 28 23 8D 31 31 30 30 30 00 78 26 2D 23 8B 41 |&(#.11000.x&-#.A|
00001E70: 24 B2 22 41 22 A7 32 30 00 9B 26 32 23 9F 31 35 |$."A".20..&2#.15|
00001E80: 2C 44 31 2C 31 35 3A 98 31 35 2C 22 53 22 44 32 |,D1,15:.15,"S"D2|
00001E90: 24 AA 5A 53 24 AA 22 2E 42 55 22 00 BC 26 3C 23 |$.ZS$.".BU"..&<#|
00001EA0: 98 31 35 2C 22 52 22 44 32 24 AA 5A 53 24 AA 22 |.15,"R"D2$.ZS$."|
00001EB0: 2E 42 55 3D 22 44 32 24 AA 5A 53 24 00 D7 26 46 |.BU="D2$.ZS$..&F|
00001EC0: 23 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 5A 53 24 |#.8,D1,8,D2$.ZS$|
00001ED0: AA 22 2C 53 2C 57 22 00 E4 26 50 23 84 31 35 2C |.",S,W"..&P#.15,|
00001EE0: 45 2C 45 24 00 19 27 51 23 8B 45 B1 2E A7 A0 38 |E,E$..'Q#.E....8|
00001EF0: 3A A0 31 35 3A 99 22 11 20 20 20 20 20 20 12 22 |:.15:.". ."|
00001F00: 45 24 22 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |E$" PRESS ANY KE|
00001F10: 59 92 22 3A 89 39 30 34 33 00 23 27 52 23 89 39 |Y.":.9043.#'R#.9|
00001F20: 30 35 30 00 37 27 53 23 A1 41 24 3A 8B 41 24 B2 |050.7'S#.A$:.A$.|
00001F30: 22 22 A7 39 30 34 33 00 3D 27 54 23 8E 00 63 27 |"".9043.='T#..c'|
00001F40: 5A 23 99 22 93 12 22 5A 5A 24 3B 3A 99 22 92 20 |Z#.".."ZZ$;:.". |
00001F50: 53 41 56 49 4E 47 22 4E 22 46 49 4C 45 20 4E 41 |SAVING"N"FILE NA|
00001F60: 4D 45 53 00 95 27 64 23 98 38 2C 4E 3A 81 49 B2 |MES..'d#.8,N:.I.|
00001F70: 31 A4 4E 3A 98 38 2C 44 24 28 49 29 3A 99 22 13 |1.N:.8,D$(I):.".|
00001F80: 11 11 22 43 45 24 44 24 28 49 29 22 20 20 20 20 |.."CE$D$(I)" |
00001F90: 20 22 49 3A 82 00 A2 27 6E 23 A0 38 3A A0 31 35 | "I:...'n#.8:.15|
00001FA0: 3A 8E 00 A8 27 1C 25 8F 00 CA 27 1D 25 99 22 93 |:...'.%...'.%.".|
00001FB0: 11 11 11 11 11 11 20 20 4C 4F 41 44 20 46 49 4C |...... LOAD FIL|
00001FC0: 45 20 12 28 59 2F 4E 29 92 22 00 E4 27 1E 25 41 |E .(Y/N)."..'.%A|
00001FD0: 24 B2 22 22 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 |$."":.A$:.A$."".|
00001FE0: 39 35 30 32 00 F5 27 1F 25 8B 41 24 B2 22 59 22 |9502..'.%.A$."Y"|
00001FF0: A7 39 35 30 35 00 FB 27 20 25 8E 00 14 28 21 25 |.9505..' %...(!%|
00002000: 8B 41 41 B2 31 A7 9C 3A 41 41 B2 31 3A 42 42 B2 |.AA.1..:AA.1:BB.|
00002010: 31 3A 8D 31 00 1F 28 26 25 8D 31 30 30 30 30 00 |1:.1..(&%.10000.|
00002020: 2D 28 2B 25 8B 41 24 B2 22 41 22 A7 8E 00 40 28 |-(+%.A$."A"...@(|
00002030: 2C 25 9F 31 35 2C 44 31 2C 31 35 3A 41 41 B2 31 |,%.15,D1,15:AA.1|
00002040: 00 5B 28 2F 25 9F 38 2C 44 31 2C 38 2C 44 32 24 |.[(/%.8,D1,8,D2$|
00002050: AA 5A 53 24 AA 22 2C 53 2C 52 22 00 6C 28 30 25 |.ZS$.",S,R".l(0%|
00002060: 84 31 35 2C 45 2C 45 24 2C 47 2C 48 00 A6 28 3A |.15,E,E$,G,H..(:|
00002070: 25 8B 45 B1 2E A7 A0 38 3A A0 31 35 3A 99 22 11 |%.E....8:.15:.".|
00002080: 20 20 20 20 20 20 12 22 45 24 22 20 50 52 45 53 | ."E$" PRES|
00002090: 53 20 41 4E 59 20 4B 45 59 92 22 3A 42 42 B2 31 |S ANY KEY.":BB.1|
000020A0: 3A 89 39 35 33 32 00 B0 28 3B 25 89 39 35 34 30 |:.9532..(;%.9540|
000020B0: 00 C4 28 3C 25 A1 41 24 3A 8B 41 24 B2 22 22 A7 |..(<%.A$:.A$."".|
000020C0: 39 35 33 32 00 D1 28 3D 25 8B 42 42 B2 31 A7 32 |9532..(=%.BB.1.2|
000020D0: 30 00 D7 28 44 25 8F 00 01 29 4E 25 84 38 2C 4E |0..(D%...)N%.8,N|
000020E0: 3A 99 22 93 12 22 5A 5A 24 3B 22 92 20 4C 4F 41 |:.".."ZZ$;". LOA|
000020F0: 44 49 4E 47 22 4E 22 46 49 4C 45 20 4E 41 4D 45 |DING"N"FILE NAME|
00002100: 53 00 32 29 58 25 81 49 B2 31 A4 4E 3A 84 38 2C |S.2)X%.I.1.N:.8,|
00002110: 44 24 28 49 29 3A 99 22 13 11 11 22 44 24 28 49 |D$(I):."..."D$(I|
00002120: 29 22 20 20 20 20 20 22 49 3A 82 3A A0 38 3A A0 |)" "I:.:.8:.|
00002130: 31 35 00 3F 29 5D 25 8B 42 42 B2 31 A7 32 30 00 |15.?)]%.BB.1.20.|
00002140: 45 29 62 25 8E 00 4B 29 10 27 8F 00 7C 29 24 27 |E)b%..K).'..|)$'|
00002150: 99 22 93 11 11 11 20 20 20 49 53 20 4D 41 53 54 |.".... IS MAST|
00002160: 45 52 20 44 41 54 41 20 44 49 53 4B 20 49 4E 20 |ER DATA DISK IN |
00002170: 44 52 49 56 45 22 44 31 22 9D 3F 22 00 91 29 2E |DRIVE"D1".?"..).|
00002180: 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 30 33 |'.A$:.A$."".1003|
00002190: 30 00 A3 29 33 27 8B 41 24 B2 22 59 22 A7 31 30 |0..)3'.A$."Y".10|
000021A0: 30 34 30 00 B1 29 34 27 8B 41 24 B2 22 41 22 A7 |040..)4'.A$."A".|
000021B0: 8E 00 BC 29 35 27 89 31 30 30 33 30 00 CF 29 38 |...)5'.10030..)8|
000021C0: 27 9F 31 35 2C 44 31 2C 31 35 3A 99 22 93 22 00 |'.15,D1,15:.".".|
000021D0: F0 29 42 27 9F 38 2C 44 31 2C 38 2C 44 32 24 AA |.)B'.8,D1,8,D2$.|
000021E0: 22 43 41 54 45 47 4F 52 49 45 53 2C 53 2C 52 22 |"CATEGORIES,S,R"|
000021F0: 00 01 2A 4C 27 84 31 35 2C 45 2C 45 24 2C 54 2C |..*L'.15,E,E$,T,|
00002200: 53 00 1C 2A 56 27 8B 45 B2 36 32 B0 45 B2 37 34 |S..*V'.E.62.E.74|
00002210: A7 4E 4E B2 30 3A 89 31 30 31 34 30 00 47 2A 60 |.NN.0:.10140.G*`|
00002220: 27 99 22 93 20 20 20 20 20 20 20 12 45 58 49 53 |'.". .EXIS|
00002230: 54 49 4E 47 20 43 41 54 45 47 4F 52 49 45 53 20 |TING CATEGORIES |
00002240: 41 52 45 3A 22 3A 99 00 63 2A 6A 27 84 38 2C 4E |ARE:":..c*j'.8,N|
00002250: 4E 3A 81 49 B2 31 A4 4E 4E 3A 84 38 2C 44 44 24 |N:.I.1.NN:.8,DD$|
00002260: 28 49 29 00 8A 2A 88 27 99 22 12 22 C9 28 C4 28 |(I)..*.'.".".(.(|
00002270: 49 29 2C 31 29 22 92 20 20 22 44 44 24 28 49 29 |I),1)". "DD$(I)|
00002280: 3A 82 49 3A A0 38 3A A0 31 35 00 C5 2A 9C 27 A0 |:.I:.8:.15..*.'.|
00002290: 38 3A A0 31 35 3A 99 22 11 12 20 44 4F 20 59 4F |8:.15:.".. DO YO|
000022A0: 55 20 57 49 53 48 20 54 4F 20 53 43 52 41 54 43 |U WISH TO SCRATC|
000022B0: 48 20 41 20 43 41 54 45 47 4C 4F 52 59 22 3A 53 |H A CATEGLORY":S|
000022C0: 43 24 B2 22 22 00 DC 2A 9D 27 A1 53 43 24 3A 8B |C$.""..*.'.SC$:.|
000022D0: 53 43 24 B2 22 22 A7 31 30 31 34 31 00 F9 2A 9E |SC$."".10141..*.|
000022E0: 27 8B 53 43 24 B3 B1 22 59 22 AF 53 43 24 B3 B1 |'.SC$.."Y".SC$..|
000022F0: 22 4E 22 A7 31 30 31 34 31 00 0F 2B 9F 27 8B 53 |"N".10141..+.'.S|
00002300: 43 24 B2 22 59 22 A7 20 8D 20 36 33 34 30 30 00 |C$."Y". . 63400.|
00002310: 3E 2B A6 27 99 22 11 11 20 44 4F 20 59 4F 55 20 |>+.'.".. DO YOU |
00002320: 57 41 4E 54 20 54 4F 20 43 52 45 41 54 45 20 41 |WANT TO CREATE A|
00002330: 20 4E 45 57 20 43 41 54 45 47 4F 52 59 3F 00 53 | NEW CATEGORY?.S|
00002340: 2B B0 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 |+.'.A$:.A$."".10|
00002350: 31 36 30 00 6A 2B BA 27 8B 41 24 B2 22 4E 22 AF |160.j+.'.A$."N".|
00002360: 4E 4E B2 30 A7 31 30 31 36 30 00 7C 2B C4 27 8B |NN.0.10160.|+.'.|
00002370: 41 24 B2 22 4E 22 A7 31 30 33 39 30 00 8F 2B CE |A$."N".10390..+.|
00002380: 27 8B 41 24 B3 B1 22 59 22 A7 31 30 31 36 30 00 |'.A$.."Y".10160.|
00002390: B6 2B D8 27 8B 4E 4E B2 39 A7 99 22 4E 4F 20 4D |.+.'.NN.9.."NO M|
000023A0: 4F 52 45 20 43 41 54 45 47 4F 52 49 45 53 22 3A |ORE CATEGORIES":|
000023B0: 89 31 30 33 39 30 00 F1 2B E2 27 99 3A 85 22 4E |.10390..+.'.:."N|
000023C0: 41 4D 45 20 4F 46 20 4E 45 57 20 43 41 54 45 47 |AME OF NEW CATEG|
000023D0: 4F 52 59 22 3B 44 44 24 3A 8B C3 28 44 44 24 29 |ORY";DD$:..(DD$)|
000023E0: B1 31 36 A7 99 22 91 91 91 22 3A 89 31 30 32 31 |.16.."...":.1021|
000023F0: 30 00 09 2C EC 27 4E 4E B2 4E 4E AA 31 3A 44 44 |0..,.'NN.NN.1:DD|
00002400: 24 28 4E 4E 29 B2 44 44 24 00 30 2C F6 27 8B 4E |$(NN).DD$.0,.'.N|
00002410: 4E B2 39 A7 99 22 4E 4F 20 4D 4F 52 45 20 43 41 |N.9.."NO MORE CA|
00002420: 54 45 47 4F 52 49 45 53 22 3A 89 31 30 33 32 30 |TEGORIES":.10320|
00002430: 00 3E 2C 00 28 99 22 11 4D 4F 52 45 3F 22 00 53 |.>,.(.".MORE?".S|
00002440: 2C 0A 28 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 |,.(.A$:.A$."".10|
00002450: 32 35 30 00 65 2C 14 28 8B 41 24 B2 22 59 22 A7 |250.e,.(.A$."Y".|
00002460: 31 30 32 30 30 00 78 2C 1E 28 8B 41 24 B3 B1 22 |10200.x,.(.A$.."|
00002470: 4E 22 A7 31 30 32 35 30 00 BB 2C 50 28 9F 31 35 |N".10250..,P(.15|
00002480: 2C 44 31 2C 31 35 2C 22 53 22 AA 44 32 24 AA 22 |,D1,15,"S".D2$."|
00002490: 42 55 43 41 54 53 22 3A 98 31 35 2C 22 52 22 AA |BUCATS":.15,"R".|
000024A0: 44 32 24 AA 22 42 55 43 41 54 53 3D 43 41 54 45 |D2$."BUCATS=CATE|
000024B0: 47 4F 52 49 45 53 22 3A A0 31 35 00 DC 2C 5A 28 |GORIES":.15..,Z(|
000024C0: 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 22 43 41 54 |.8,D1,8,D2$."CAT|
000024D0: 45 47 4F 52 49 45 53 2C 53 2C 57 22 00 FE 2C 64 |EGORIES,S,W"..,d|
000024E0: 28 98 38 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 |(.8,NN:.I.1.NN:.|
000024F0: 38 2C 44 44 24 28 49 29 3A 82 49 3A A0 38 00 29 |8,DD$(I):.I:.8.)|
00002500: 2D 96 28 99 22 93 20 20 20 20 20 20 20 12 45 58 |-.(.". .EX|
00002510: 49 53 54 49 4E 47 20 43 41 54 45 47 4F 52 49 45 |ISTING CATEGORIE|
00002520: 53 20 41 52 45 3A 22 3A 99 00 51 2D A0 28 81 49 |S ARE:":..Q-.(.I|
00002530: B2 31 A4 4E 4E 3A 99 22 12 22 C9 28 C4 28 49 29 |.1.NN:.".".(.(I)|
00002540: 2C 31 29 22 92 20 20 22 44 44 24 28 49 29 3A 82 |,1)". "DD$(I):.|
00002550: 49 00 7C 2D BE 28 99 22 11 11 20 20 20 20 20 20 |I.|-.(.".. |
00002560: 57 48 49 43 48 20 43 41 54 45 47 4F 52 59 20 44 |WHICH CATEGORY D|
00002570: 4F 20 59 4F 55 20 57 41 4E 54 3F 22 00 91 2D C8 |O YOU WANT?"..-.|
00002580: 28 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 34 34 |(.A$:.A$."".1044|
00002590: 30 00 B0 2D D2 28 5A 53 B2 C5 28 41 24 29 3A 8B |0..-.(ZS..(A$):.|
000025A0: 5A 53 B3 31 B0 5A 53 B1 4E 4E A7 31 30 34 34 30 |ZS.1.ZS.NN.10440|
000025B0: 00 CA 2D DC 28 5A 53 24 B2 44 44 24 28 5A 53 29 |..-.(ZS$.DD$(ZS)|
000025C0: 3A 5A 5A 24 B2 5A 53 24 3A 8E 00 F3 2D F8 2A 99 |:ZZ$.ZS$:...-.*.|
000025D0: 22 93 11 11 11 11 11 11 11 20 20 53 41 56 45 20 |"........ SAVE |
000025E0: 46 49 4C 45 22 3A 8B 5A 53 24 B2 22 22 A7 31 30 |FILE":.ZS$."".10|
000025F0: 30 30 30 00 11 2E FD 2A 99 22 11 20 20 43 55 52 |000....*.". CUR|
00002600: 52 45 4E 54 20 46 49 4C 45 20 49 53 20 22 5A 53 |RENT FILE IS "ZS|
00002610: 24 00 3D 2E 02 2B 99 22 11 20 20 49 53 20 54 48 |$.=..+.". IS TH|
00002620: 49 53 20 43 4F 52 52 45 43 54 3F 20 20 12 28 59 |IS CORRECT? .(Y|
00002630: 2F 4E 2F 41 3D 41 42 4F 52 54 29 92 22 00 58 2E |/N/A=ABORT).".X.|
00002640: 0C 2B 41 24 B2 22 22 3A A1 41 24 3A 8B 41 24 B2 |.+A$."":.A$:.A$.|
00002650: 22 22 A7 31 31 30 32 30 00 66 2E 16 2B 8B 41 24 |"".11020.f..+.A$|
00002660: B2 22 59 22 A7 8E 00 7A 2E 20 2B 8B 41 24 B2 22 |."Y"...z. +.A$."|
00002670: 4E 22 A7 31 30 30 30 30 3A 8E 00 88 2E 2A 2B 8B |N".10000:....*+.|
00002680: 41 24 B2 22 41 22 A7 8E 00 8E 2E 68 42 8F 00 B9 |A$."A".....hB...|
00002690: 2E 72 42 49 34 24 B2 22 22 3A 99 22 93 11 11 11 |.rBI4$."":."....|
000026A0: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 41 |... A|
000026B0: 44 44 20 46 49 4C 45 53 22 00 F7 2E 73 42 8B 4E |DD FILES"...sB.N|
000026C0: B1 31 30 37 39 A7 99 22 11 11 20 20 20 12 2A 20 |.1079..".. .* |
000026D0: 57 41 52 4E 49 4E 47 20 46 49 4C 45 20 46 55 4C |WARNING FILE FUL|
000026E0: 4C 21 21 20 2A 12 22 3A 81 49 B2 31 A4 33 30 30 |L!! *.":.I.1.300|
000026F0: 3A 82 49 3A 89 32 30 00 3D 2F 74 42 8B 4E B1 31 |:.I:.20.=/tB.N.1|
00002700: 30 30 30 A7 99 22 11 11 12 2A 20 57 41 52 4E 49 |000.."...* WARNI|
00002710: 4E 47 20 46 49 4C 45 20 41 4C 4D 4F 53 54 20 46 |NG FILE ALMOST F|
00002720: 55 4C 4C 21 21 20 2A 12 22 3A 99 31 30 38 30 AB |ULL!! *.":.1080.|
00002730: 4E 22 52 45 4D 41 49 4E 49 4E 47 21 22 00 81 2F |N"REMAINING!"../|
00002740: 7C 42 99 22 11 11 11 20 20 20 20 20 20 20 20 20 ||B."... |
00002750: 12 49 92 4E 44 49 56 49 44 55 41 4C 20 4F 52 20 |.I.NDIVIDUAL OR |
00002760: 12 44 92 49 53 4B 22 3A 99 22 11 20 20 20 20 20 |.D.ISK":.". |
00002770: 20 20 20 20 20 20 20 41 20 3D 20 41 42 4F 52 54 | A = ABORT|
00002780: 22 00 9C 2F 86 42 41 24 B2 22 22 3A A1 41 24 3A |"../.BA$."":.A$:|
00002790: 8B 41 24 B2 22 22 A7 31 37 30 33 30 00 AD 2F 90 |.A$."".17030../.|
000027A0: 42 8B 41 24 B2 22 44 22 A7 37 30 30 30 00 BF 2F |B.A$."D".7000../|
000027B0: 9A 42 8B 41 24 B2 22 49 22 A7 31 37 30 37 30 00 |.B.A$."I".17070.|
000027C0: CD 2F 9F 42 8B 41 24 B2 22 41 22 A7 8E 00 D8 2F |./.B.A$."A"..../|
000027D0: A4 42 89 31 37 30 33 30 00 00 30 AE 42 99 22 93 |.B.17030..0.B.".|
000027E0: 11 11 11 1D 1D 1D 1D 20 20 20 20 20 20 41 44 44 |....... ADD|
000027F0: 20 49 4E 44 49 56 55 44 41 4C 20 46 49 4C 45 22 | INDIVUDAL FILE"|
00002800: 00 0F 30 AF 42 8B 4E B1 31 30 37 39 A7 32 30 00 |..0.B.N.1079.20.|
00002810: 49 30 B3 42 99 3A 99 22 11 49 4E 50 55 54 20 41 |I0.B.:.".INPUT A|
00002820: 20 46 4F 55 52 20 43 48 41 52 41 43 54 45 52 20 | FOUR CHARACTER |
00002830: 49 44 20 12 28 41 3D 41 42 4F 52 54 29 92 22 3A |ID .(A=ABORT).":|
00002840: 99 22 20 20 2D 2D 2D 2D 22 00 5D 30 B8 42 85 49 |." ----".]0.B.I|
00002850: 34 24 3A 8B 49 34 24 B2 22 41 22 A7 8E 00 6F 30 |4$:.I4$."A"...o0|
00002860: C2 42 8B 49 34 24 B2 22 22 A7 31 37 30 37 30 00 |.B.I4$."".17070.|
00002870: 84 30 CC 42 8B C3 28 49 34 24 29 B3 B1 34 A7 31 |.0.B..(I4$)..4.1|
00002880: 37 30 37 30 00 C0 30 D6 42 99 22 11 45 4E 54 45 |7070..0.B.".ENTE|
00002890: 52 20 46 49 4C 45 20 4E 41 4D 45 20 28 4D 41 58 |R FILE NAME (MAX|
000028A0: 20 31 36 20 43 48 52 53 29 22 3A 99 22 20 20 2D | 16 CHRS)":." -|
000028B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000028C0: 00 E2 30 E0 42 4E 24 B2 22 22 3A 85 4E 24 3A 8B |..0.BN$."":.N$:.|
000028D0: 4E 24 B2 22 22 A7 99 22 91 91 22 3A 89 31 37 31 |N$."".."..":.171|
000028E0: 32 30 00 01 31 E5 42 4E 24 B2 4E 24 AA 22 2E 2E |20..1.BN$.N$."..|
000028F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00002900: 22 00 2F 31 EA 42 4E 24 B2 C8 28 4E 24 2C 31 36 |"./1.BN$..(N$,16|
00002910: 29 AA 22 2E 22 AA 49 34 24 3A 4E B2 4E AA 31 3A |).".".I4$:N.N.1:|
00002920: 44 24 28 4E 29 B2 4E 24 3A 89 31 37 30 37 30 00 |D$(N).N$:.17070.|
00002930: 62 31 30 75 8D 33 35 30 30 30 3A 43 48 24 B2 22 |b10u.35000:CH$."|
00002940: 05 1C 9F 9C 1E 1F 9E 81 95 96 97 98 99 9A 9B 22 |..............."|
00002950: 3A 99 22 93 22 3A 4A B2 31 3A 81 49 B2 31 A4 34 |:.".":J.1:.I.1.4|
00002960: 30 30 00 82 31 31 75 99 CA 28 43 48 24 2C 4A 2C |00..11u..(CH$,J,|
00002970: 31 29 3A 4A B2 4A AA 31 3A 8B 4A B1 31 35 A7 4A |1):J.J.1:.J.15.J|
00002980: B2 31 00 B7 31 32 75 99 22 13 11 11 11 20 20 20 |.1..12u.".... |
00002990: 44 49 53 4B 20 46 49 4C 45 20 22 56 45 24 22 20 |DISK FILE "VE$" |
000029A0: 20 20 20 20 20 3A 20 4D 53 44 20 53 44 2D 32 20 | : MSD SD-2 |
000029B0: 2D 20 34 30 34 30 22 00 E2 31 3A 75 99 22 11 20 |- 4040"..1:u.". |
000029C0: 20 20 22 44 41 24 22 20 20 20 20 20 20 20 20 20 | "DA$" |
000029D0: 20 20 3A 20 31 20 4F 52 20 32 20 31 35 34 31 27 | : 1 OR 2 1541'|
000029E0: 53 22 00 00 32 3F 75 99 A3 32 32 29 22 11 3A 20 |S"..2?u..22)".: |
000029F0: 38 30 20 43 4F 4C 2E 20 50 52 49 4E 54 45 52 22 |80 COL. PRINTER"|
00002A00: 00 1F 32 40 75 99 A3 32 32 29 22 11 3A 20 31 33 |..2@u..22)".: 13|
00002A10: 36 20 43 4F 4C 2E 20 50 52 49 4E 54 45 52 22 00 |6 COL. PRINTER".|
00002A20: 4D 32 44 75 99 22 20 20 20 44 49 52 45 43 54 4F |M2Du." DIRECTO|
00002A30: 52 59 20 20 20 20 20 20 28 43 29 20 3A 20 43 4F |RY (C) : CO|
00002A40: 4D 50 55 54 45 21 20 31 31 2F 38 33 22 00 7C 32 |MPUTE! 11/83".|2|
00002A50: 4E 75 99 22 11 20 20 20 4C 49 47 48 54 4E 49 4E |Nu.". LIGHTNIN|
00002A60: 47 20 53 4F 52 54 20 28 43 29 20 3A 20 43 4F 4D |G SORT (C) : COM|
00002A70: 50 55 54 45 21 20 30 39 2F 38 34 22 00 AA 32 51 |PUTE! 09/84"..2Q|
00002A80: 75 99 22 11 20 20 20 43 4F 4D 50 49 4C 45 52 20 |u.". COMPILER |
00002A90: 50 41 52 54 53 20 28 43 29 20 3A 20 27 49 4E 53 |PARTS (C) : 'INS|
00002AA0: 54 41 2D 53 50 45 45 44 27 22 00 D8 32 53 75 99 |TA-SPEED'"..2Su.|
00002AB0: 22 11 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |". ----------|
00002AC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002AD0: 2D 2D 2D 2D 2D 2D 2D 22 00 05 33 58 75 99 22 20 |-------"..3Xu." |
00002AE0: 20 20 20 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D | MAIN PROGRAM|
00002AF0: 20 28 43 29 20 43 4F 50 59 52 49 47 48 54 20 31 | (C) COPYRIGHT 1|
00002B00: 39 38 34 20 22 00 32 33 62 75 99 22 20 20 20 20 |984 ".23bu." |
00002B10: 20 42 59 20 52 4F 59 20 53 43 48 41 48 52 45 52 | BY ROY SCHAHRER|
00002B20: 20 2D 20 5B 37 30 33 36 36 2C 31 37 31 37 5D 20 | - [70366,1717] |
00002B30: 20 22 00 5F 33 6C 75 8F 50 52 49 4E 54 22 20 20 | "._3lu.PRINT" |
00002B40: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00002B50: 49 53 20 49 4E 20 46 52 45 45 57 41 52 45 22 00 |IS IN FREEWARE".|
00002B60: 86 33 6E 75 8F 50 52 49 4E 54 22 20 20 20 20 20 |.3nu.PRINT" |
00002B70: 53 55 47 47 45 53 54 45 44 20 44 4F 4E 41 54 49 |SUGGESTED DONATI|
00002B80: 4F 4E 20 24 32 30 00 B3 33 71 75 99 22 20 20 20 |ON $20..3qu." |
00002B90: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00002BA0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002BB0: 2D 2D 22 00 E1 33 76 75 58 B2 AB 28 58 B2 2E 29 |--"..3vuX..(X..)|
00002BC0: 3A 97 31 39 39 2C 58 3A 99 A3 31 31 29 22 48 49 |:.199,X:..11)"HI|
00002BD0: 54 20 41 20 4B 45 59 20 54 4F 20 53 54 41 52 54 |T A KEY TO START|
00002BE0: 22 00 00 34 80 75 8F 20 20 20 47 45 54 41 24 3A |"..4.u. GETA$:|
00002BF0: 49 46 41 24 3D 22 22 54 48 45 4E 4E 45 58 54 49 |IFA$=""THENNEXTI|
00002C00: 00 25 34 8A 75 97 35 33 32 38 31 2C 2E 3A 97 35 |.%4.u.53281,.:.5|
00002C10: 33 32 38 30 2C 2E 3A 99 22 1E 22 3A 49 B2 31 30 |3280,.:.".":I.10|
00002C20: 30 30 30 3A 8E 00 56 34 B8 88 99 22 93 11 11 20 |000:..V4..."... |
00002C30: 50 41 52 54 53 20 4F 46 20 54 48 49 53 20 50 52 |PARTS OF THIS PR|
00002C40: 4F 47 52 41 4D 20 41 52 45 20 43 4F 50 59 52 49 |OGRAM ARE COPYRI|
00002C50: 47 48 54 45 44 22 00 84 34 C2 88 99 22 11 20 20 |GHTED"..4...". |
00002C60: 42 59 20 44 52 49 56 45 20 54 45 43 48 4E 4F 4C |BY DRIVE TECHNOL|
00002C70: 4F 47 59 20 4C 54 44 2E 2C 20 20 28 43 29 20 31 |OGY LTD., (C) 1|
00002C80: 39 38 33 22 00 B2 34 CC 88 99 22 11 11 20 20 27 |983"..4...".. '|
00002C90: 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 20 48 |THANKS FOR THE H|
00002CA0: 45 4C 50 20 49 4E 53 54 41 2D 53 50 45 45 44 2E |ELP INSTA-SPEED.|
00002CB0: 27 22 00 E3 34 D1 88 99 22 11 2D 2D 2D 2D 2D 2D |'"..4...".------|
00002CC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002CD0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002CE0: 2D 2D 22 00 13 35 D6 88 99 22 54 48 49 53 20 50 |--"..5..."THIS P|
00002CF0: 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 46 52 45 |ROGRAM IS IN FRE|
00002D00: 45 57 41 52 45 2E 20 49 46 20 59 4F 55 20 46 49 |EWARE. IF YOU FI|
00002D10: 4E 44 22 00 42 35 E0 88 99 22 49 46 20 55 53 45 |ND".B5..."IF USE|
00002D20: 46 55 4C 4C 20 50 4C 45 41 53 45 20 53 45 4E 44 |FULL PLEASE SEND|
00002D30: 20 24 32 30 2C 20 4F 52 20 57 48 41 54 45 56 45 | $20, OR WHATEVE|
00002D40: 52 22 00 64 35 EA 88 99 22 11 59 4F 55 20 46 45 |R".d5...".YOU FE|
00002D50: 45 4C 20 49 54 20 49 53 20 57 4F 52 54 48 2C 20 |EL IT IS WORTH, |
00002D60: 54 4F 3A 22 00 7C 35 F4 88 99 22 11 11 20 20 20 |TO:".|5...".. |
00002D70: 52 4F 59 20 53 43 48 41 48 52 45 52 00 9C 35 FE |ROY SCHAHRER..5.|
00002D80: 88 99 22 20 20 20 38 34 32 20 57 2E 20 43 41 4C |.." 842 W. CAL|
00002D90: 4C 45 20 44 45 4C 20 4E 4F 52 54 45 00 BC 35 08 |LE DEL NORTE..5.|
00002DA0: 89 99 22 20 20 20 43 48 41 4E 44 4C 45 52 2C 20 |.." CHANDLER, |
00002DB0: 41 52 49 5A 2E 20 20 38 35 32 32 34 00 E7 35 0D |ARIZ. 85224..5.|
00002DC0: 89 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00002DD0: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 41 4E | THAN|
00002DE0: 4B 20 59 4F 55 2E 22 00 F8 35 12 89 81 49 B2 31 |K YOU."..5...I.1|
00002DF0: A4 31 30 3A 82 49 3A 8E 00 FE 35 40 9C 8F 00 26 |.10:.I:...5@...&|
00002E00: 36 7C 9C 8B C6 28 42 24 AA 5A 24 29 B1 31 32 37 |6|...(B$.Z$).127|
00002E10: AF C6 28 42 24 AA 5A 24 29 B3 31 36 30 A7 42 24 |..(B$.Z$).160.B$|
00002E20: B2 C7 28 36 33 29 00 40 36 86 9C 8B C6 28 42 24 |..(63).@6....(B$|
00002E30: AA 5A 24 29 B3 33 32 A7 42 24 B2 C7 28 36 33 29 |.Z$).32.B$..(63)|
00002E40: 00 68 36 90 9C 8B C6 28 42 24 AA 5A 24 29 B1 32 |.h6....(B$.Z$).2|
00002E50: 32 34 AF C6 28 42 24 AA 5A 24 29 B3 32 35 34 A7 |24..(B$.Z$).254.|
00002E60: 42 24 B2 C7 28 36 33 29 00 6E 36 A4 9C 8E 00 99 |B$..(63).n6.....|
00002E70: 36 60 EA 99 22 93 11 11 11 11 11 11 20 20 53 45 |6`.."....... SE|
00002E80: 4C 45 43 54 20 44 52 49 56 45 20 43 4F 4E 46 49 |LECT DRIVE CONFI|
00002E90: 47 55 52 41 54 49 4F 4E 22 00 CB 36 6A EA 99 22 |GURATION"..6j.."|
00002EA0: 11 11 11 11 20 20 31 2E 20 4D 53 44 20 53 44 2D |.... 1. MSD SD-|
00002EB0: 32 20 4F 52 20 34 30 34 30 20 44 55 41 4C 20 44 |2 OR 4040 DUAL D|
00002EC0: 52 49 56 45 20 28 44 56 20 38 29 00 F6 36 74 EA |RIVE (DV 8)..6t.|
00002ED0: 99 22 11 20 20 32 2E 20 53 49 4E 47 4C 45 20 31 |.". 2. SINGLE 1|
00002EE0: 35 34 31 20 44 49 53 4B 20 44 52 49 56 45 20 28 |541 DISK DRIVE (|
00002EF0: 44 56 20 38 29 22 00 23 37 7E EA 99 22 11 20 20 |DV 8)".#7~..". |
00002F00: 33 2E 20 54 57 4F 20 31 35 34 31 20 44 49 53 4B |3. TWO 1541 DISK|
00002F10: 20 44 52 49 56 45 53 20 28 44 56 20 38 20 26 20 | DRIVES (DV 8 & |
00002F20: 39 29 22 00 38 37 88 EA A1 41 24 3A 8B 41 24 B2 |9)".87...A$:.A$.|
00002F30: 22 22 A7 36 30 30 34 30 00 5B 37 92 EA 8B 41 24 |"".60040.[7...A$|
00002F40: B2 22 31 22 A7 44 31 B2 38 3A 44 32 24 B2 22 31 |."1".D1.8:D2$."1|
00002F50: 3A 22 3A 97 36 38 30 2C 31 3A 8E 00 7E 37 9C EA |:":.680,1:..~7..|
00002F60: 8B 41 24 B2 22 32 22 A7 44 31 B2 38 3A 44 32 24 |.A$."2".D1.8:D2$|
00002F70: B2 22 30 3A 22 3A 97 36 38 30 2C 32 3A 8E 00 A1 |."0:":.680,2:...|
00002F80: 37 A6 EA 8B 41 24 B2 22 33 22 A7 44 31 B2 39 3A |7...A$."3".D1.9:|
00002F90: 44 32 24 B2 22 30 3A 22 3A 97 36 38 30 2C 33 3A |D2$."0:":.680,3:|
00002FA0: 8E 00 AC 37 B0 EA 89 36 30 30 34 30 00 CE 37 30 |...7...60040..70|
00002FB0: F2 50 49 24 B2 22 FF FF FF FF FF FF FF FF FF FF |.PI$."..........|
00002FC0: FF FF FF FF FF FF FF FF FF FF FF 22 3A 8E 00 EE |...........":...|
00002FD0: 37 18 F6 41 B2 C2 28 36 38 30 29 3A 8B 41 B2 31 |7..A..(680):.A.1|
00002FE0: A7 44 31 B2 38 3A 44 32 24 B2 22 31 3A 22 00 05 |.D1.8:D2$."1:"..|
00002FF0: 38 22 F6 8B 41 B2 32 A7 44 31 B2 38 3A 44 32 24 |8"..A.2.D1.8:D2$|
00003000: B2 22 30 3A 22 00 1C 38 2C F6 8B 41 B2 33 A7 44 |."0:"..8,..A.3.D|
00003010: 31 B2 39 3A 44 32 24 B2 22 30 3A 22 00 22 38 36 |1.9:D2$."0:"."86|
00003020: F6 8E 00 48 38 A8 F7 99 22 11 57 48 49 43 48 20 |...H8...".WHICH |
00003030: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 |DO YOU WISH TO S|
00003040: 43 52 41 54 43 48 20 22 00 63 38 A9 F7 A1 20 53 |CRATCH ".c8... S|
00003050: 46 24 20 3A 8B 53 46 24 B2 22 22 20 A7 20 36 33 |F$ :.SF$."" . 63|
00003060: 34 30 31 00 86 38 AA F7 8B 20 53 46 24 B3 C7 28 |401..8... SF$..(|
00003070: 34 39 29 20 B0 20 53 46 24 B1 C7 28 35 37 29 20 |49) . SF$..(57) |
00003080: A7 36 33 34 30 31 00 C3 38 AB F7 53 46 B2 C5 28 |.63401..8..SF..(|
00003090: C8 28 53 46 24 2C 31 29 29 3A 4E 4E B2 4E 4E AB |.(SF$,1)):NN.NN.|
000030A0: 31 3A 20 8F 20 53 46 3D 20 46 49 4C 45 20 54 4F |1: . SF= FILE TO|
000030B0: 20 53 43 52 41 54 43 48 20 46 4F 52 20 44 44 24 | SCRATCH FOR DD$|
000030C0: 28 49 29 00 FF 38 AC F7 9F 31 35 2C 44 31 2C 31 |(I)..8...15,D1,1|
000030D0: 35 2C 22 53 22 AA 44 32 24 AA 44 44 24 28 53 46 |5,"S".D2$.DD$(SF|
000030E0: 29 3A 98 31 35 2C 22 53 22 AA 44 32 24 AA 44 44 |):.15,"S".D2$.DD|
000030F0: 24 28 53 46 29 AA 22 2E 42 55 22 3A A0 31 35 00 |$(SF).".BU":.15.|
00003100: 0F 39 AD F7 81 20 52 4E B2 31 A4 4E 4E AA 31 00 |.9... RN.1.NN.1.|
00003110: 31 39 AE F7 8B 20 52 4E 20 B3 20 53 46 20 A7 20 |19... RN . SF . |
00003120: 44 44 24 28 52 4E 29 B2 44 44 24 28 52 4E 29 3A |DD$(RN).DD$(RN):|
00003130: 82 00 56 39 AF F7 8B 20 52 4E 20 B1 B2 20 53 46 |..V9... RN .. SF|
00003140: 20 A7 20 44 44 24 28 52 4E 29 B2 44 44 24 28 52 | . DD$(RN).DD$(R|
00003150: 4E AA 31 29 3A 82 00 99 39 DA F7 9F 31 35 2C 44 |N.1):...9...15,D|
00003160: 31 2C 31 35 2C 22 53 22 AA 44 32 24 AA 22 42 55 |1,15,"S".D2$."BU|
00003170: 43 41 54 53 22 3A 98 31 35 2C 22 52 22 AA 44 32 |CATS":.15,"R".D2|
00003180: 24 AA 22 42 55 43 41 54 53 3D 43 41 54 45 47 4F |$."BUCATS=CATEGO|
00003190: 52 49 45 53 22 3A A0 31 35 00 BA 39 E4 F7 9F 38 |RIES":.15..9...8|
000031A0: 2C 44 31 2C 38 2C 44 32 24 AA 22 43 41 54 45 47 |,D1,8,D2$."CATEG|
000031B0: 4F 52 49 45 53 2C 53 2C 57 22 00 DC 39 EE F7 98 |ORIES,S,W"..9...|
000031C0: 38 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 38 2C |8,NN:.I.1.NN:.8,|
000031D0: 44 44 24 28 49 29 3A 82 49 3A A0 38 00 F9 39 F8 |DD$(I):.I:.8..9.|
000031E0: F7 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 22 42 55 |..8,D1,8,D2$."BU|
000031F0: 43 41 54 53 2C 53 2C 57 22 00 1D 3A 02 F8 98 38 |CATS,S,W"..:...8|
00003200: 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 38 2C 44 |,NN:.I.1.NN:.8,D|
00003210: 44 24 28 49 29 3A 82 49 3A A0 38 3A 8E 00 3B 3A |D$(I):.I:.8:..;:|
00003220: 0C F8 99 22 11 20 20 20 12 20 48 41 52 44 20 43 |...". . HARD C|
00003230: 4F 50 59 20 28 59 2F 4E 29 20 22 00 54 3A 0D F8 |OPY (Y/N) ".T:..|
00003240: A1 20 48 43 24 3A 8B 48 43 24 B2 22 22 A7 20 36 |. HC$:.HC$."". 6|
00003250: 33 35 30 31 00 77 3A 0E F8 8B 20 48 43 24 B3 B1 |3501.w:... HC$..|
00003260: 22 59 22 20 AF 20 48 43 24 B3 B1 20 22 4E 22 20 |"Y" . HC$.. "N" |
00003270: A7 20 36 33 35 30 31 00 88 3A 0F F8 8B 20 48 43 |. 63501..:... HC|
00003280: 24 B2 22 4E 22 A7 20 8E 00 91 3A 10 F8 9F 34 2C |$."N". ...:...4,|
00003290: 34 00 C0 3A 70 F8 81 49 B2 31 A4 4E 3A 8B CA 28 |4..:p..I.1.N:..(|
000032A0: 44 24 28 49 29 2C 31 38 2C 5A 29 B2 53 4E 24 A7 |D$(I),18,Z).SN$.|
000032B0: 98 34 2C 44 24 28 49 29 3A 82 49 3A A0 34 3A 8E |.4,D$(I):.I:.4:.|
000032C0: 00 C6 3A 7A F8 82 00 CF 3A 84 F8 A0 34 3A 8E 00 |..:z....:...4:..|
000032D0: 00 00 FF 00 |.... |
.......41024,0:.41025,195.S...VERSN$."4.
7":DATE$."12/02/84":.53280,.:.53281,.:."
..".S....B(49152)..32.."L-SORT",8,1.....
.B(828)..169.."DIR @828",8,1.A...F1$.G(1
33):F5$.G(135):F7$.G(136):Z$.G(.)......"
.":.D$(1080):.AA.1..62000:.63000:.......
30000:.62000......60000.B...."......DISK
FILE PROGRAM: "VE$:.". 1 - ADD FILE
S".Y.(..". 2 - PRINT A FILE":.". 3
- SORT THE FILE".A.F..". 4 - SEARCH
FOR FILE NAME":.". 5 - SEARCH FOR DIS
K NUMBER"...P..". 6 - VIEW DISK DIREC
TORY":.". 7 - SAVE D-FILE".3.V..".
8 - LOAD D-FILE":.". 9 - REMOVE A NA
ME".C.Z..". 0 - QUIT":.". RECORDS
IN MEMORY"N.V.N..A$:.A$."".110...X..A$."
0".A$."9".110...}..A$."0"..1000.....A.E(
A$)......A.17000,2000,4000,5000,5500,600
0,9000,9500,8000,1000......20...........
."...... QUIT! ARE YOU SURE?".+....A$:
.A$."".1020.:....A$.."Y"...L....".":.350
30:..T....20.Z.P...W.Z..".."ZS$:..10)"OU
TPUT ON......" .1. SCREEN":." .2. 80
COL. PRINTER".W...." .3. 136 COL. PRI
NTER (CONDENSED PRINT)"......A$:.E(A$).2
050,2150,3200:.2030......./....I.1..(N.2
2).1:.".":.J.22.(I.1).1.22.I.11.;....K..
.21.O....J.K.1080..2065.H...." "
;D$(J.K).O....K......214,23:.:..6)". F1=
MENU F5=UP F7=DOWN .";... ..A$:.A$."
".2080.V.%..A$.F1$.I.(.(N.22)).1:.2130..
.*..A$.F5$.I.1.I.I.2:.2130...4..A$.F5$.I
.1.I..:.2130...>..A$..F7$.2080.9.H..I..(
N.22).1.I..(N.22).B.R..I:..H.\...T.F..".
ENTER TODAY'S DATE (NO COMMAS)":.XY$...H
..".ENTER PRINTER DEVICE NUMBER":.DN$:DN
.E(H(DN$,1))...I..DN.4.DN.7.2152.P.P. 3:
.3,DN:.3...R..ST.."...PRINTER NOT ON-LIN
E, HIT A KEY.":.198,1:.198,.:.20.9.U..".
PRINTING, HOLD DOWN F1 TO ABORT.".Q.Z.B$
." ":A.1:B.60:PN$."1":.2290:.3000:.N
.180.3990.....A.181:B.240:PN$."2":.2290:
.3000:.N.240.3990.Q...A.361:B.420:PN$."3
":.2290:.3000:.N.420.3990.....A.541:B.60
0:PN$."4":.2290:.3000:.N.600.3990.1...A.
721:B.780:PN$."5":.2290:.3000:.N.780.399
0.[...A.901:B.960:PN$."6":.2290:.3000:.3
990......3," PAGE "PN$"
"ZS$" "XY$:.3," "......J.A.B....
..3,B$;D$(J);B$;D$(J.60);B$;D$(J.120):.B
(197).4..3: 3:.20.....X..(X..):.199,X:."
.PRINTING...":.J.......#....II.1.4:.3:.I
I:..R....".NEXT PAGE: PRESS ANY KEY TO
CONTINUE.".F.B..A$:.A$."".3010.L.L...R..
........".ENTER TODAY'S DATE (NO COMMAS)
":.XY$.V....".ENTER PRINTER DEVICE NUMBE
R":.DN$:DN.E(H(DN$,1))......DN.4.DN.7.32
15.-....".....CHR$(XX) FOR CONDENSED MOD
E 15....";DC$:DC$.G(E(DC$)).^... 3:.3,
DN:DC$.G(27).G(66).G(3).G(27).G(50):.3..
....ST.."...PRINTER NOT ON-LINE, HIT A K
EY.":.198,1:.198,.:.20.G....".PRINTING,
HOLD DOWN F1 TO ABORT.".....B$." ":A.1:
B.60:PN$."1":.3300:.3000:.N.360..3990...
..A.361:B.420:PN$."2":.3300:.3000:.N.721
..3990.X...A.721:B.780:PN$."3":.3300:.30
00:.3990......3,DC$" PAGE "PN$"
"ZS$" "XY$:.3," ".X....J
.A.B:.3,DC$;D$(J);B$;D$(J.60);B$;D$(J.12
0);B$;D$(J.180);......3,B$;D$(J.240);B$;
D$(J.300);G(18):.B(197).4..3: 3:.20.:...
X..(X..):.199,X:.".PRINTING...":.J.@....
.U....II.1.4:.3:.II:.......3: 3:."..END
OF LIST. PRESS ANY KEY".....A$."":.A$:.
A$."".3998. ....... ...A...."...... SOR
T A FILE"......:.". .SORTING......."...
..N1..:N2..:.49152,N,D$(1).#....I.1.N:.D
$(I).PI$.N1.I.1:.4100:.4040.2.C..I:.N1..
...[.H.N2.N.N1:.".. "N2"FILES REMOVED":N
.N1.W.M..". . PRESS ANY KEY ."...R..A$:
.A$."".4050............I.1.1080.L....D$(
I).PI$.D$(I)." ".U..
..I:............."...... SEARCH FOR FIL
E NAME"......GETA$:IFA$=""THEN5020.:....
"ENTER NAME TO SEARCH FOR".S...SN$."":.S
N$:Z.C(SN$).U....I.1.N:.H(D$(I),Z).SN$..
D$(I)......B(653).1.5051......I:."..END
OF LIST. PRESS ANY KEY".D.N..A$:.A$."".
5070.J.{...P.|.....}.."......DO YOU WISH
TO CHANGE AN ID (Y/N)...~.. CA$:. CA$."
" . 5502.8... CA$.."Y" . CA$.."N". 5502
.L.... CA$."N". 5529.J...."... ENTER OL
D ID ";OI$...... C(OI$)..4 . 5505......"
... ENTER NEW ID ";NI$...... C(NI$)..4
. 5507.A....646,5.L....I.1.N...... I(D$(
I),4).OI$.D$(I).H(D$(I),17).NI$.......,.
..."..DO YOU WISH TO CHANGE MORE ID'S (Y
/N)".F.... CJ$:. CJ$."" . 5514.H.... CJ$
.."Y" . CJ$.. "N" . 5514.}.... CJ$."N" .
5529.....OI$."":NI$."":. 5505......"...
... SEARCH FOR DISK NUMBER"......"ENTER
4 CHR. ID TO SEARCH FOR".....SN$."":.SN
$:Z.C(SN$)......I.1.N:.J(D$(I),18,Z).SN$
..D$(I).2....B(653).1.5551.B....I:. 6350
0:."..END OF LIST. PRESS ANY KEY".V.B..
A$:.A$."".5570.|.O.....P.....Q.D.8:DD$."
0":.D1.8.6004.L.R..".WHAT DEVICE (8 OR 9
)";:.D$:D.E(H(D$,1))...S..D.8.D.9.6002..
.T..D2$."0:".6008...U..".WHAT DRIVE (0 O
R 1, * FOR BOTH)";.2.V..DD$:DR.E(H(DD$,1
)).F.W..DR...DR.1.6004.].X..839,F(DD$):.
846,D......".IS THE CORRECT DISK IN THE
DRIVE?"......A$:.A$.."Y".6020.C....15,D,
15,"I".DD$:.15,E,E$,F,G: 15......E....."
"E" "E$" "F" "G: 15:.6040......8
28.......8)"..PRESS ANY KEY WHEN READY".
3....A$:.A$."".6050.9.....?.X...C.B.."..
... ADD FROM DISK"...C..".FILES
"N;:.I4$.."A".."- LAST ID USED "I4$.D.D.
.:.".PLACE DISK TO BE READ INTO DRIVE 8
AND"...E..".INPUT A FOUR CHARACTER ID .(
A=ABORT).":.". ----"...F.I4$."":." "
;I4$:.I4$."A"...0.G..I4$."".7000.D.H..C(
I4$)..4.7000.].I..". QUERY? (Y/N) ";.S.
J..QU$:.QU$."".7018...K..QU$.."Y".QU$.."
N".7018...L.....M..C(I4$)..4.7000.R.N..Q
U$."Y"..".(Y/N/E/F1=ABORT).":.7030...O..
QU$."N"..".(F1=ABORT)."...V..15,8,15,"I0
":.15,E,E$,F,G: 15.=.W..E.....". "E" .
"E$". "F" "G" ":.7350.S....7,8,.,"$0":.7
360.A....#7,A$,B$.O....#7,A$,B$.}....#7,
A$,B$.....C..:FS$."":NF$."":XX..:X.XX...
...A$.."".C.F(A$).K....B$.."".C.C.F(B$).
256...F.FS$.J(D(C),2)......" ";......E
(FS$).10.FS$.FS$." ":.FS$;:.7220.A
. ..E(FS$).99.FS$.FS$." ":.FS$;:.722
0.\.*.FS$.FS$." ":.FS$;.Z.4.B$."":.
#7,B$:.ST .64.7330...>..B$..G(34).7220..
.H..#7,B$:.B$..G(34)..40000:NF$.NF$.B$:.
7240.Z.R.PD$."..................."...\..
H(NF$,1)." ".NF$.I(NF$,C(NF$).1):.7260.2
.]..I(NF$,1)." ".NF$.H(NF$,C(NF$).1):.72
61.B.A.X.C(NF$):XX.18.X:NF$.NF$.H(PD$,XX
):.NF$" ";.|.F..#7,B$:.B$.G(32).7270...P
.C$.""...Z.C$.C$.B$:.#7,B$:.B$.."".7290.
.....H(C$,1).......L.....ST .64.7500....
.."--- BLOCKS FREE"........... 7:."..
.HIT ANY KEY TO CONTINUE.".&....A$:.A$."
".7352.0....7000.D....#7,A$,A$,A$,A$._.J
..#7,A$:.A$..G(34).7370.Y.T..#7,A$:.A$.G
(34).7400.....NN$.NN$.A$:.7380......#7,A
$......#7,A$,B$:ID$.A$.B$......:P$." N
AME:":.P$.NN$,:P$."..ID:":.P$.ID$.....P$
."":NN$."":... ..." .SIZE NAME
TYPE.".8 ...#7,A$,A$,A$,A$:.7060
.S L..QU$."N".AN$."Y":.7530.I V..AN$:.AN
$."".7510.. `..AN$."N"..".
.":.7060.. J..AN$."
Y".N.N.1:.7540.W N..AN$."E".N.N.1:.7600.
. O..AN$.F1$.7350.. P..7510. !T..N.1079.
.:.".* FILE FULL! *.": 7: 15:.20.<!U.D$(
N).H(NF$,16).".".I4$.S!Y..AB$:.AB$.F1$.7
350.]!~..7060.O!..." .EDIT.";..!...I(N
F$,1).".".NF$.H(NF$,C(NF$).1):.7605..!..
." "NF$..!..."..........";NM$:NM$.NM$
."..................."..!D.NF$.H(NM$,16)
:.7540..!@...."J.."....... REMOVE NAME
S".;"T..".. DELETE .N.AME OR .I.D".U"^.
A$."":.A$:.A$."".8030.F"H..A$."N".8100.W
"R..A$."I".8200.."|..8030.."....."..."..
.......INPUT NAME TO REMOVE OR EDIT":A1.
..R"..RN$."":.RN$:Z.C(RN$)..#B..I.1.N:.H
(D$(I),Z).RN$..D$(I)" .(Y/N/E/F1).";:.81
40..#G..8180.(#L..A$:.A$."".8140.@#V..A$
."N".." N":.8180.G#...A$."Y".D$(I).PI$:.
" Y":A1.1:.8180.X#...A$."E".8192..#...A$
.F1$.8190..#...8140..#...I..#...A1.1..:.
4024..#....F#. NM$.H(D$(I),16)..#. .I(NM
$,1).".".NM$.H(NM$,C(NM$).1):.8193..$. .
:.". >.EDIT.------------<":." "NM$.U$.
.".";NM$:NM$.NM$."...................":N
O$.I(D$(I),4).X$. D$(I).H(NM$,17).NO$:A1
.1:.8180.~$. ...$. .".........INPUT ID O
F DISK TO REMOVE":A1...G$. RN$."":.RN$:Z
.C(RN$).X$! .RN$."".8210..%& .I.1.N:.J(D
$(I),18,Z).RN$..D$(I)" .(Y/N/F1=ABORT)."
;:.8240.!%+ .8280.5%0 .A$:.A$."".8240.M%
: .A$."N".." N":.8280.T%D .A$."Y".D$(I).
PI$:." Y":A1.1:.8280..%I .A$.F1$.8290..%
N .8240..%X .I..%B .A1.1..4024:.8300.E%C
. EX.1 . EX.0:. 8295.P%D . 8200.V%G ...
&L ."............REMOVE MORE BY ID. .(
Y/N)."..&M . QI$:.QI$."". 8301.<&N .QI$.
."Y" . QI$.."N".8301.R&O .QI$."N" . EX.1
:..^&P EX.0 :..I&(#.11000.X&-#.A$."A".20
..&2#.15,D1,15:.15,"S"D2$.ZS$.".BU"..&<#
.15,"R"D2$.ZS$.".BU="D2$.ZS$.W&F#.8,D1,8
,D2$.ZS$.",S,W"..&P#.15,E,E$..'Q#.E... 8
: 15:.". ."E$" PRESS ANY KEY.":.904
3.#'R#.9050.7'S#.A$:.A$."".9043.='T#..C'
Z#.".."ZZ$;:.". SAVING"N"FILE NAMES..'D#
.8,N:.I.1.N:.8,D$(I):."..."CE$D$(I)"
"I:...'N# 8: 15:...'.%..J'.%.".......
LOAD FILE .(Y/N)."..'.%A$."":.A$:.A$."".
9502..'.%.A$."Y".9505..' %...(!%.AA.1..:
AA.1:BB.1:.1..(&%.10000.-(+%.A$."A"...@(
,%.15,D1,15:AA.1.[(/%.8,D1,8,D2$.ZS$.",S
,R".L(0%.15,E,E$,G,H..(:%.E... 8: 15:.".
."E$" PRESS ANY KEY.":BB.1:.9532..
(;%.9540.D(<%.A$:.A$."".9532.Q(=%.BB.1.2
0.W(D%...)N%.8,N:.".."ZZ$;". LOADING"N"F
ILE NAMES.2)X%.I.1.N:.8,D$(I):."..."D$(I
)" "I:.: 8: 15.?)]%.BB.1.20.E)B%..K)
.'..|)$'.".... IS MASTER DATA DISK IN
DRIVE"D1".?"..).'.A$:.A$."".10030..)3'.A
$."Y".10040..)4'.A$."A"....)5'.10030.O)8
'.15,D1,15:."."..)B'.8,D1,8,D2$."CATEGOR
IES,S,R"..*L'.15,E,E$,T,S..*V'.E.62.E.74
.NN.0:.10140.G*`'.". .EXISTING CAT
EGORIES ARE:":..C*J'.8,NN:.I.1.NN:.8,DD$
(I)..*.'."."I(D(I),1)". "DD$(I):.I: 8:
15.E*.' 8: 15:.".. DO YOU WISH TO SCRATC
H A CATEGLORY":SC$.""..*.'.SC$:.SC$."".1
0141..*.'.SC$.."Y".SC$.."N".10141..+.'.S
C$."Y". . 63400.>+.'.".. DO YOU WANT TO
CREATE A NEW CATEGORY?.S+.'.A$:.A$."".10
160.J+.'.A$."N".NN.0.10160.|+D'.A$."N".1
0390..+N'.A$.."Y".10160..+X'.NN.9.."NO M
ORE CATEGORIES":.10390..+.'.:."NAME OF N
EW CATEGORY";DD$:.C(DD$).16.."...":.1021
0..,.'NN.NN.1:DD$(NN).DD$.0,.'.NN.9.."NO
MORE CATEGORIES":.10320.>,.(.".MORE?".S
,.(.A$:.A$."".10250.E,.(.A$."Y".10200.X,
.(.A$.."N".10250..,P(.15,D1,15,"S".D2$."
BUCATS":.15,"R".D2$."BUCATS=CATEGORIES":
15..,Z(.8,D1,8,D2$."CATEGORIES,S,W"..,D
(.8,NN:.I.1.NN:.8,DD$(I):.I: 8.)-.(.".
.EXISTING CATEGORIES ARE:":..Q- (.I
.1.NN:."."I(D(I),1)". "DD$(I):.I.|-.(."
.. WHICH CATEGORY DO YOU WANT?"..-H
(.A$:.A$."".10440..-R(ZS.E(A$):.ZS.1.ZS.
NN.10440.J-.(ZS$.DD$(ZS):ZZ$.ZS$:...-.*.
"........ SAVE FILE":.ZS$."".10000....*
.". CURRENT FILE IS "ZS$.=..+.". IS TH
IS CORRECT? .(Y/N/A=ABORT).".X..+A$."":
.A$:.A$."".11020.F..+.A$."Y"...Z. +.A$."
N".10000:....*+.A$."A".....HB....RBI4$."
":."....... ADD FILES"...SB.N
.1079..".. .* WARNING FILE FULL!! *.":
.I.1.300:.I:.20.=/TB.N.1000.."...* WARNI
NG FILE ALMOST FULL!! *.":.1080.N"REMAIN
ING!"../|B."... .I.NDIVIDUAL OR
.D.ISK":.". A = ABORT"../.BA$
."":.A$:.A$."".17030../.B.A$."D".7000../
.B.A$."I".17070.M/.B.A$."A"...X/.B.17030
..0.B."........ ADD INDIVUDAL FILE"
..0.B.N.1079.20.I0.B.:.".INPUT A FOUR CH
ARACTER ID .(A=ABORT).":." ----".]0.B.I
4$:.I4$."A"...O0BB.I4$."".17070..0LB.C(I
4$)..4.17070..0VB.".ENTER FILE NAME (MAX
16 CHRS)":." ----------------"..0.BN$.
"":.N$:.N$."".."..":.17120..1.BN$.N$."..
................"./1.BN$.H(N$,16).".".I4
$:N.N.1:D$(N).N$:.17070.B10U.35000:CH$."
...............":.".":J.1:.I.1.400..11U.
J(CH$,J,1):J.J.1:.J.15.J.1..12U."....
DISK FILE "VE$" : MSD SD-2 - 4040".
.1:U.". "DA$" : 1 OR 2 1541'
S"..2?U..22)".: 80 COL. PRINTER"..2@U..2
2)".: 136 COL. PRINTER".M2DU." DIRECTO
RY (C) : COMPUTE! 11/83".|2NU.".
LIGHTNING SORT (C) : COMPUTE! 09/84"..2Q
U.". COMPILER PARTS (C) : 'INSTA-SPEED
'".X2SU.". --------------------------
-------"..3XU." MAIN PROGRAM (C) COP
YRIGHT 1984 ".23BU." BY ROY SCHAHRER
- [70366,1717] "._3LU.PRINT" THIS
PROGRAM IS IN FREEWARE"..3NU.PRINT"
SUGGESTED DONATION $20..3QU." -------
--------------------------"..3VUX..(X..)
:.199,X:..11)"HIT A KEY TO START"..4.U.
GETA$:IFA$=""THENNEXTI.%4.U.53281,.:.5
3280,.:.".":I.10000:..V4..."... PARTS OF
THIS PROGRAM ARE COPYRIGHTED"..4B..".
BY DRIVE TECHNOLOGY LTD., (C) 1983"..4L
..".. 'THANKS FOR THE HELP INSTA-SPEED.
'"..4Q..".------------------------------
----------"..5V.."THIS PROGRAM IS IN FRE
EWARE. IF YOU FIND".B5..."IF USEFULL PLE
ASE SEND $20, OR WHATEVER".D5...".YOU FE
EL IT IS WORTH, TO:".|5...".. ROY SCHA
HRER..5..." 842 W. CALLE DEL NORTE..5.
.." CHANDLER, ARIZ. 85224..5...".
THANK YOU."..5...I.1
.10:.I:...5@...&6|..F(B$.Z$).127.F(B$.Z$
).160.B$.G(63).@6...F(B$.Z$).32.B$.G(63)
.H6...F(B$.Z$).224.F(B$.Z$).254.B$.G(63)
.N6.....6`.."....... SELECT DRIVE CONFI
GURATION".K6J..".... 1. MSD SD-2 OR 404
0 DUAL DRIVE (DV 8)..6T..". 2. SINGLE 1
541 DISK DRIVE (DV 8)".#7~..". 3. TWO 1
541 DISK DRIVES (DV 8 & 9)".87...A$:.A$.
"".60040.[7...A$."1".D1.8:D2$."1:":.680,
1:..~7...A$."2".D1.8:D2$."0:":.680,2:...
7...A$."3".D1.9:D2$."0:":.680,3:...7...6
0040.N70.PI$.".....................":...
7..A.B(680):.A.1.D1.8:D2$."1:"..8"..A.2.
D1.8:D2$."0:"..8,..A.3.D1.9:D2$."0:"."86
...H8...".WHICH DO YOU WISH TO SCRATCH "
.C8... SF$ :.SF$."" . 63401..8... SF$.G(
49) . SF$.G(57) .63401.C8..SF.E(H(SF$,1)
):NN.NN.1: . SF= FILE TO SCRATCH FOR DD$
(I)..8...15,D1,15,"S".D2$.DD$(SF):.15,"S
".D2$.DD$(SF).".BU": 15..9... RN.1.NN.1.
19... RN . SF . DD$(RN).DD$(RN):..V9...
RN .. SF . DD$(RN).DD$(RN.1):...9Z..15,D
1,15,"S".D2$."BUCATS":.15,"R".D2$."BUCAT
S=CATEGORIES": 15..9...8,D1,8,D2$."CATEG
ORIES,S,W"..9...8,NN:.I.1.NN:.8,DD$(I):.
I: 8..9...8,D1,8,D2$."BUCATS,S,W"..:...8
,NN:.I.1.NN:.8,DD$(I):.I: 8:..;:...".
. HARD COPY (Y/N) ".T:... HC$:.HC$."". 6
3501.W:... HC$.."Y" . HC$.. "N" . 63501.
.:... HC$."N". ...:...4,4..:P..I.1.N:.J(
D$(I),18,Z).SN$..4,D$(I):.I: 4:..F:Z...O
:.. 4:......
> CLICK IMAGE PREVIEW FOR FULL MODAL