DISK FILER(C)
FILE INFORMATION
FILENAME(S): DISK FILER(C)
FILE TYPE(S): PRG
FILE SIZE: 13K
FIRST SEEN: 2025-11-30 17:31:37
APPEARS ON: 1 disk(s)
FILE HASH
9b7cc57d25ddef1f48f8860ff21d944775908d43a04490a02928a62eb8585839
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK FILER | DISK FILER(C) | PRG | UK CD | 26 | 3 | 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 9A 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 9A 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 9A 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 AB 0F 8B 20 C8 28 5A 53 24 2C 31 29 |"...... .(ZS$,1)|
00000BD0: B2 22 5F 22 20 A7 20 89 20 34 30 33 30 00 F9 13 |."_" . . 4030...|
00000BE0: B8 0F 99 3A 99 22 11 20 20 12 53 4F 52 54 49 4E |...:.". .SORTIN|
00000BF0: 47 2E 2E 2E 2E 2E 2E 92 22 00 16 14 B9 0F 4E 31 |G.......".....N1|
00000C00: B2 2E 3A 4E 32 B2 2E 3A 9E 34 39 31 35 32 2C 4E |..:N2..:.49152,N|
00000C10: 2C 44 24 28 31 29 00 3F 14 BE 0F 81 49 B2 31 A4 |,D$(1).?....I.1.|
00000C20: 4E 3A 8B 44 24 28 49 29 B2 50 49 24 A7 4E 31 B2 |N:.D$(I).PI$.N1.|
00000C30: 49 AB 31 3A 8D 34 31 30 30 3A 89 34 30 34 30 00 |I.1:.4100:.4040.|
00000C40: 4E 14 C3 0F 82 49 3A 8B 4E 31 B2 2E A7 8E 00 77 |N....I:.N1.....w|
00000C50: 14 C8 0F 4E 32 B2 4E AB 4E 31 3A 99 22 11 11 20 |...N2.N.N1:.".. |
00000C60: 22 4E 32 22 46 49 4C 45 53 20 52 45 4D 4F 56 45 |"N2"FILES REMOVE|
00000C70: 44 22 3A 4E B2 4E 31 00 93 14 CD 0F 99 22 11 20 |D":N.N1......". |
00000C80: 20 12 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 | . PRESS ANY KEY|
00000C90: 20 92 22 00 A7 14 D2 0F A1 41 24 3A 8B 41 24 B2 | ."......A$:.A$.|
00000CA0: 22 22 A7 34 30 35 30 00 AD 14 03 10 8E 00 BB 14 |"".4050.........|
00000CB0: 04 10 81 49 B2 31 A4 31 30 38 30 00 E8 14 0E 10 |...I.1.1080.....|
00000CC0: 8B 44 24 28 49 29 B2 50 49 24 A7 44 24 28 49 29 |.D$(I).PI$.D$(I)|
00000CD0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000CE0: 20 20 20 20 20 20 20 22 00 F1 14 18 10 82 49 3A | "......I:|
00000CF0: 8E 00 F7 14 88 13 8F 00 1B 15 92 13 99 22 93 11 |............."..|
00000D00: 11 11 11 11 20 20 53 45 41 52 43 48 20 46 4F 52 |.... SEARCH FOR|
00000D10: 20 46 49 4C 45 20 4E 41 4D 45 22 00 36 15 9C 13 | FILE NAME".6...|
00000D20: 8F 47 45 54 41 24 3A 49 46 41 24 3D 22 22 54 48 |.GETA$:IFA$=""TH|
00000D30: 45 4E 35 30 32 30 00 56 15 A6 13 99 22 45 4E 54 |EN5020.V...."ENT|
00000D40: 45 52 20 4E 41 4D 45 20 54 4F 20 53 45 41 52 43 |ER NAME TO SEARC|
00000D50: 48 20 46 4F 52 22 00 6F 15 B0 13 53 4E 24 B2 22 |H FOR".o...SN$."|
00000D60: 22 3A 85 53 4E 24 3A 5A B2 C3 28 53 4E 24 29 00 |":.SN$:Z..(SN$).|
00000D70: 91 15 BA 13 81 49 B2 31 A4 4E 3A 8B C8 28 44 24 |.....I.1.N:..(D$|
00000D80: 28 49 29 2C 5A 29 B2 53 4E 24 A7 99 44 24 28 49 |(I),Z).SN$..D$(I|
00000D90: 29 00 A4 15 BB 13 8B C2 28 36 35 33 29 B2 31 A7 |).......(653).1.|
00000DA0: 35 30 35 31 00 CC 15 BC 13 82 49 3A 99 22 11 12 |5051......I:."..|
00000DB0: 45 4E 44 20 4F 46 20 4C 49 53 54 2E 20 20 50 52 |END OF LIST. PR|
00000DC0: 45 53 53 20 41 4E 59 20 4B 45 59 22 00 E0 15 CE |ESS ANY KEY"....|
00000DD0: 13 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 37 30 |..A$:.A$."".5070|
00000DE0: 00 E6 15 7B 15 8E 00 EC 15 7C 15 8F 00 1A 16 7D |...{.....|.....}|
00000DF0: 15 99 22 93 11 1D 1D 1D 1D 44 4F 20 59 4F 55 20 |.."......DO YOU |
00000E00: 57 49 53 48 20 54 4F 20 43 48 41 4E 47 45 20 41 |WISH TO CHANGE A|
00000E10: 4E 20 49 44 20 28 59 2F 4E 29 00 34 16 7E 15 A1 |N ID (Y/N).4.~..|
00000E20: 20 43 41 24 3A 8B 20 43 41 24 B2 22 22 20 A7 20 | CA$:. CA$."" . |
00000E30: 35 35 30 32 00 54 16 7F 15 8B 20 43 41 24 B3 B1 |5502.T.... CA$..|
00000E40: 22 59 22 20 AF 20 43 41 24 B3 B1 22 4E 22 A7 20 |"Y" . CA$.."N". |
00000E50: 35 35 30 32 00 68 16 80 15 8B 20 43 41 24 B2 22 |5502.h.... CA$."|
00000E60: 4E 22 A7 20 35 35 32 39 00 86 16 81 15 85 22 9C |N". 5529......".|
00000E70: 11 11 20 20 45 4E 54 45 52 20 4F 4C 44 20 49 44 |.. ENTER OLD ID|
00000E80: 20 22 3B 4F 49 24 00 9D 16 82 15 8B 20 C3 28 4F | ";OI$...... .(O|
00000E90: 49 24 29 B3 B1 34 20 A7 20 35 35 30 35 00 BB 16 |I$)..4 . 5505...|
00000EA0: 83 15 85 22 9E 11 11 20 20 45 4E 54 45 52 20 4E |..."... ENTER N|
00000EB0: 45 57 20 49 44 20 22 3B 4E 49 24 00 D2 16 84 15 |EW ID ";NI$.....|
00000EC0: 8B 20 C3 28 4E 49 24 29 B3 B1 34 20 A7 20 35 35 |. .(NI$)..4 . 55|
00000ED0: 30 37 00 DD 16 85 15 97 36 34 36 2C 35 00 E8 16 |07......646,5...|
00000EE0: 86 15 81 49 B2 31 A4 4E 00 13 17 87 15 8B 20 C9 |...I.1.N...... .|
00000EF0: 28 44 24 28 49 29 2C 34 29 B2 4F 49 24 A7 44 24 |(D$(I),4).OI$.D$|
00000F00: 28 49 29 B2 C8 28 44 24 28 49 29 2C 31 37 29 AA |(I)..(D$(I),17).|
00000F10: 4E 49 24 00 19 17 88 15 82 00 48 17 89 15 99 22 |NI$.......H...."|
00000F20: 11 11 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |..DO YOU WISH TO|
00000F30: 20 43 48 41 4E 47 45 20 4D 4F 52 45 20 49 44 27 | CHANGE MORE ID'|
00000F40: 53 20 28 59 2F 4E 29 22 00 62 17 8A 15 A1 20 43 |S (Y/N)".b.... C|
00000F50: 4A 24 3A 8B 20 43 4A 24 B2 22 22 20 A7 20 35 35 |J$:. CJ$."" . 55|
00000F60: 31 34 00 84 17 8B 15 8B 20 43 4A 24 B3 B1 22 59 |14...... CJ$.."Y|
00000F70: 22 20 AF 20 43 4A 24 B3 B1 20 22 4E 22 20 A7 20 |" . CJ$.. "N" . |
00000F80: 35 35 31 34 00 99 17 8C 15 8B 20 43 4A 24 B2 22 |5514...... CJ$."|
00000F90: 4E 22 20 A7 20 35 35 32 39 00 B2 17 8D 15 4F 49 |N" . 5529.....OI|
00000FA0: 24 B2 22 22 3A 4E 49 24 B2 22 22 3A 89 20 35 35 |$."":NI$."":. 55|
00000FB0: 30 35 00 D8 17 99 15 99 22 93 11 11 11 11 11 20 |05......"...... |
00000FC0: 20 53 45 41 52 43 48 20 46 4F 52 20 44 49 53 4B | SEARCH FOR DISK|
00000FD0: 20 4E 55 4D 42 45 52 22 00 FD 17 9A 15 99 22 45 | NUMBER"......"E|
00000FE0: 4E 54 45 52 20 34 20 43 48 52 2E 20 49 44 20 54 |NTER 4 CHR. ID T|
00000FF0: 4F 20 53 45 41 52 43 48 20 46 4F 52 22 00 16 18 |O SEARCH FOR"...|
00001000: A4 15 53 4E 24 B2 22 22 3A 85 53 4E 24 3A 5A B2 |..SN$."":.SN$:Z.|
00001010: C3 28 53 4E 24 29 00 3B 18 AE 15 81 49 B2 31 A4 |.(SN$).;....I.1.|
00001020: 4E 3A 8B CA 28 44 24 28 49 29 2C 31 38 2C 5A 29 |N:..(D$(I),18,Z)|
00001030: B2 53 4E 24 A7 99 44 24 28 49 29 00 4E 18 AF 15 |.SN$..D$(I).N...|
00001040: 8B C2 28 36 35 33 29 B2 31 A7 35 35 35 31 00 7E |..(653).1.5551.~|
00001050: 18 B0 15 82 49 3A 8D 20 36 33 35 30 30 3A 99 22 |....I:. 63500:."|
00001060: 11 12 45 4E 44 20 4F 46 20 4C 49 53 54 2E 20 20 |..END OF LIST. |
00001070: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 00 92 |PRESS ANY KEY"..|
00001080: 18 C2 15 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 35 |....A$:.A$."".55|
00001090: 37 30 00 98 18 6F 17 8E 00 9E 18 70 17 8F 00 B9 |70...o.....p....|
000010A0: 18 71 17 44 B2 38 3A 44 44 24 B2 22 30 22 3A 8B |.q.D.8:DD$."0":.|
000010B0: 44 31 B2 38 A7 36 30 30 34 00 E8 18 72 17 99 22 |D1.8.6004...r.."|
000010C0: 93 57 48 41 54 20 44 45 56 49 43 45 20 28 38 20 |.WHAT DEVICE (8 |
000010D0: 4F 52 20 39 29 22 3B 3A 85 44 24 3A 44 B2 C5 28 |OR 9)";:.D$:D..(|
000010E0: C8 28 44 24 2C 31 29 29 00 FA 18 73 17 8B 44 B3 |.(D$,1))...s..D.|
000010F0: 38 B0 44 B1 39 A7 36 30 30 32 00 0D 19 74 17 8B |8.D.9.6002...t..|
00001100: 44 32 24 B2 22 30 3A 22 A7 36 30 30 38 00 36 19 |D2$."0:".6008.6.|
00001110: 75 17 99 22 93 57 48 41 54 20 44 52 49 56 45 20 |u..".WHAT DRIVE |
00001120: 28 30 20 4F 52 20 31 2C 20 2A 20 46 4F 52 20 42 |(0 OR 1, * FOR B|
00001130: 4F 54 48 29 22 3B 00 4E 19 76 17 85 44 44 24 3A |OTH)";.N.v..DD$:|
00001140: 44 52 B2 C5 28 C8 28 44 44 24 2C 31 29 29 00 62 |DR..(.(DD$,1)).b|
00001150: 19 77 17 8B 44 52 B3 2E B0 44 52 B1 31 A7 36 30 |.w..DR...DR.1.60|
00001160: 30 34 00 79 19 78 17 97 38 33 39 2C C6 28 44 44 |04.y.x..839,.(DD|
00001170: 24 29 3A 97 38 34 36 2C 44 00 A3 19 83 17 99 22 |$):.846,D......"|
00001180: 93 49 53 20 54 48 45 20 43 4F 52 52 45 43 54 20 |.IS THE CORRECT |
00001190: 44 49 53 4B 20 49 4E 20 54 48 45 20 44 52 49 56 |DISK IN THE DRIV|
000011A0: 45 3F 22 00 B9 19 84 17 A1 41 24 3A 8B 41 24 B3 |E?"......A$:.A$.|
000011B0: B1 22 59 22 A7 36 30 32 30 00 DF 19 85 17 9F 31 |."Y".6020......1|
000011C0: 35 2C 44 2C 31 35 2C 22 49 22 AA 44 44 24 3A 84 |5,D,15,"I".DD$:.|
000011D0: 31 35 2C 45 2C 45 24 2C 46 2C 47 3A A0 31 35 00 |15,E,E$,F,G:.15.|
000011E0: 0D 1A 86 17 8B 45 B3 B1 2E A7 99 22 20 20 20 20 |.....E....." |
000011F0: 20 20 20 20 22 45 22 20 22 45 24 22 20 22 46 22 | "E" "E$" "F"|
00001200: 20 22 47 3A A0 31 35 3A 89 36 30 34 30 00 16 1A | "G:.15:.6040...|
00001210: 8E 17 9E 38 32 38 00 3B 1A 98 17 99 A3 38 29 22 |...828.;.....8)"|
00001220: 11 12 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |..PRESS ANY KEY |
00001230: 57 48 45 4E 20 52 45 41 44 59 22 00 4F 1A A2 17 |WHEN READY".O...|
00001240: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 30 35 30 00 |.A$:.A$."".6050.|
00001250: 55 1A AC 17 8E 00 5B 1A 58 1B 8F 00 7F 1A 62 1B |U.....[.X.....b.|
00001260: 99 22 93 11 11 11 1E 20 20 20 20 20 20 20 20 20 |."..... |
00001270: 20 41 44 44 20 46 52 4F 4D 20 44 49 53 4B 22 00 | ADD FROM DISK".|
00001280: AF 1A 63 1B 99 22 11 46 49 4C 45 53 22 4E 3B 3A |..c..".FILES"N;:|
00001290: 8B 49 34 24 B3 B1 22 41 22 A7 99 22 2D 20 4C 41 |.I4$.."A".."- LA|
000012A0: 53 54 20 49 44 20 55 53 45 44 20 22 49 34 24 00 |ST ID USED "I4$.|
000012B0: E0 1A 64 1B 99 3A 99 22 11 50 4C 41 43 45 20 44 |..d..:.".PLACE D|
000012C0: 49 53 4B 20 54 4F 20 42 45 20 52 45 41 44 20 49 |ISK TO BE READ I|
000012D0: 4E 54 4F 20 44 52 49 56 45 20 38 20 41 4E 44 22 |NTO DRIVE 8 AND"|
000012E0: 00 1B 1B 65 1B 99 22 11 49 4E 50 55 54 20 41 20 |...e..".INPUT A |
000012F0: 46 4F 55 52 20 43 48 41 52 41 43 54 45 52 20 49 |FOUR CHARACTER I|
00001300: 44 20 12 28 41 3D 41 42 4F 52 54 29 92 22 3A 99 |D .(A=ABORT).":.|
00001310: 22 11 20 20 20 20 2D 2D 2D 2D 22 00 3B 1B 66 1B |". ----".;.f.|
00001320: 49 34 24 B2 22 22 3A 85 22 20 20 22 3B 49 34 24 |I4$."":." ";I4$|
00001330: 3A 8B 49 34 24 B2 22 41 22 A7 8E 00 4C 1B 67 1B |:.I4$."A"...L.g.|
00001340: 8B 49 34 24 B2 22 22 A7 37 30 30 30 00 60 1B 68 |.I4$."".7000.`.h|
00001350: 1B 8B C3 28 49 34 24 29 B3 B1 34 A7 37 30 30 30 |...(I4$)..4.7000|
00001360: 00 79 1B 69 1B 99 22 11 20 51 55 45 52 59 3F 20 |.y.i..". QUERY? |
00001370: 28 59 2F 4E 29 20 20 22 3B 00 8F 1B 6A 1B A1 51 |(Y/N) ";...j..Q|
00001380: 55 24 3A 8B 51 55 24 B2 22 22 A7 37 30 31 38 00 |U$:.QU$."".7018.|
00001390: AB 1B 6B 1B 8B 51 55 24 B3 B1 22 59 22 AF 51 55 |..k..QU$.."Y".QU|
000013A0: 24 B3 B1 22 4E 22 A7 37 30 31 38 00 B1 1B 6C 1B |$.."N".7018...l.|
000013B0: 8F 00 C5 1B 6D 1B 8B C3 28 49 34 24 29 B3 B1 34 |....m...(I4$)..4|
000013C0: A7 37 30 30 30 00 EE 1B 6E 1B 8B 51 55 24 B2 22 |.7000...n..QU$."|
000013D0: 59 22 A7 99 22 12 28 59 2F 4E 2F 45 2F 46 31 3D |Y"..".(Y/N/E/F1=|
000013E0: 41 42 4F 52 54 29 92 22 3A 89 37 30 33 30 00 0B |ABORT).":.7030..|
000013F0: 1C 6F 1B 8B 51 55 24 B2 22 4E 22 A7 99 22 12 28 |.o..QU$."N"..".(|
00001400: 46 31 3D 41 42 4F 52 54 29 92 22 00 2E 1C 76 1B |F1=ABORT)."...v.|
00001410: 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 84 31 |.15,8,15,"I0":.1|
00001420: 35 2C 45 2C 45 24 2C 46 2C 47 3A A0 31 35 00 59 |5,E,E$,F,G:.15.Y|
00001430: 1C 77 1B 8B 45 B3 B1 2E A7 99 22 11 20 20 20 22 |.w..E.....". "|
00001440: 45 22 20 12 22 45 24 22 92 20 22 46 22 20 22 47 |E" ."E$". "F" "G|
00001450: 22 20 22 3A 89 37 33 35 30 00 6F 1C 80 1B 9F 37 |" ":.7350.o....7|
00001460: 2C 38 2C 2E 2C 22 24 30 22 3A 89 37 33 36 30 00 |,8,.,"$0":.7360.|
00001470: 7D 1C 8A 1B A1 23 37 2C 41 24 2C 42 24 00 8B 1C |}....#7,A$,B$...|
00001480: 94 1B A1 23 37 2C 41 24 2C 42 24 00 99 1C 9E 1B |...#7,A$,B$.....|
00001490: A1 23 37 2C 41 24 2C 42 24 00 B9 1C A8 1B 43 B2 |.#7,A$,B$.....C.|
000014A0: 2E 3A 46 53 24 B2 22 22 3A 4E 46 24 B2 22 22 3A |.:FS$."":NF$."":|
000014B0: 58 58 B2 2E 3A 58 B2 58 58 00 CD 1C B2 1B 8B 41 |XX..:X.XX......A|
000014C0: 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 00 E7 1C |$.."".C..(A$)...|
000014D0: BC 1B 8B 42 24 B3 B1 22 22 A7 43 B2 43 AA C6 28 |...B$.."".C.C..(|
000014E0: 42 24 29 AC 32 35 36 00 F9 1C C6 1B 46 53 24 B2 |B$).256.....FS$.|
000014F0: CA 28 C4 28 43 29 2C 32 29 00 05 1D 0C 1C 99 22 |.(.(C),2)......"|
00001500: 20 20 20 22 3B 00 32 1D 16 1C 8B C5 28 46 53 24 | ";.2.....(FS$|
00001510: 29 B3 31 30 A7 46 53 24 B2 46 53 24 AA 22 20 20 |).10.FS$.FS$." |
00001520: 20 20 20 20 20 22 3A 99 46 53 24 3B 3A 89 37 32 | ":.FS$;:.72|
00001530: 32 30 00 5D 1D 20 1C 8B C5 28 46 53 24 29 B1 39 |20.]. ...(FS$).9|
00001540: 39 A7 46 53 24 B2 46 53 24 AA 22 20 20 20 20 20 |9.FS$.FS$." |
00001550: 22 3A 99 46 53 24 3B 3A 89 37 32 32 30 00 78 1D |":.FS$;:.7220.x.|
00001560: 2A 1C 46 53 24 B2 46 53 24 AA 22 20 20 20 20 20 |*.FS$.FS$." |
00001570: 20 22 3A 99 46 53 24 3B 00 96 1D 34 1C 42 24 B2 | ":.FS$;...4.B$.|
00001580: 22 22 3A A1 23 37 2C 42 24 3A 8B 53 54 20 AF 36 |"":.#7,B$:.ST .6|
00001590: 34 A7 37 33 33 30 00 AA 1D 3E 1C 8B 42 24 B3 B1 |4.7330...>..B$..|
000015A0: C7 28 33 34 29 A7 37 32 32 30 00 D8 1D 48 1C A1 |.(34).7220...H..|
000015B0: 23 37 2C 42 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 |#7,B$:.B$...(34)|
000015C0: A7 8D 34 30 30 30 30 3A 4E 46 24 B2 4E 46 24 AA |..40000:NF$.NF$.|
000015D0: 42 24 3A 89 37 32 34 30 00 F6 1D 52 1C 50 44 24 |B$:.7240...R.PD$|
000015E0: B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |."..............|
000015F0: 2E 2E 2E 2E 2E 22 00 22 1E 5C 1C 8B C8 28 4E 46 |.....".".\...(NF|
00001600: 24 2C 31 29 B2 22 20 22 A7 4E 46 24 B2 C9 28 4E |$,1)." ".NF$..(N|
00001610: 46 24 2C C3 28 4E 46 24 29 AB 31 29 3A 89 37 32 |F$,.(NF$).1):.72|
00001620: 36 30 00 4E 1E 5D 1C 8B C9 28 4E 46 24 2C 31 29 |60.N.]...(NF$,1)|
00001630: B2 22 20 22 A7 4E 46 24 B2 C8 28 4E 46 24 2C C3 |." ".NF$..(NF$,.|
00001640: 28 4E 46 24 29 AB 31 29 3A 89 37 32 36 31 00 7E |(NF$).1):.7261.~|
00001650: 1E 61 1C 58 B2 C3 28 4E 46 24 29 3A 58 58 B2 31 |.a.X..(NF$):XX.1|
00001660: 38 AB 58 3A 4E 46 24 B2 4E 46 24 AA C8 28 50 44 |8.X:NF$.NF$..(PD|
00001670: 24 2C 58 58 29 3A 99 4E 46 24 22 20 22 3B 00 98 |$,XX):.NF$" ";..|
00001680: 1E 66 1C A1 23 37 2C 42 24 3A 8B 42 24 B2 C7 28 |.f..#7,B$:.B$..(|
00001690: 33 32 29 A7 37 32 37 30 00 A2 1E 70 1C 43 24 B2 |32).7270...p.C$.|
000016A0: 22 22 00 C3 1E 7A 1C 43 24 B2 43 24 AA 42 24 3A |""...z.C$.C$.B$:|
000016B0: A1 23 37 2C 42 24 3A 8B 42 24 B3 B1 22 22 A7 37 |.#7,B$:.B$.."".7|
000016C0: 32 39 30 00 D0 1E 84 1C 99 C8 28 43 24 2C 31 29 |290.......(C$,1)|
000016D0: 00 D6 1E 8E 1C 8F 00 E8 1E 98 1C 8B A8 53 54 20 |.............ST |
000016E0: AF 36 34 A7 37 35 30 30 00 FF 1E A2 1C 99 22 2D |.64.7500......"-|
000016F0: 2D 2D 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 00 |-- BLOCKS FREE".|
00001700: 05 1F AC 1C 8F 00 2E 1F B6 1C A0 37 3A 99 22 11 |...........7:.".|
00001710: 11 20 20 20 12 48 49 54 20 41 4E 59 20 4B 45 59 |. .HIT ANY KEY|
00001720: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 42 | TO CONTINUE.".B|
00001730: 1F B8 1C A1 41 24 3A 8B 41 24 B2 22 22 A7 37 33 |....A$:.A$."".73|
00001740: 35 32 00 4C 1F B9 1C 89 37 30 30 30 00 60 1F C0 |52.L....7000.`..|
00001750: 1C A1 23 37 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |..#7,A$,A$,A$,A$|
00001760: 00 7B 1F CA 1C A1 23 37 2C 41 24 3A 8B 41 24 B3 |.{....#7,A$:.A$.|
00001770: B1 C7 28 33 34 29 A7 37 33 37 30 00 95 1F D4 1C |..(34).7370.....|
00001780: A1 23 37 2C 41 24 3A 8B 41 24 B2 C7 28 33 34 29 |.#7,A$:.A$..(34)|
00001790: A7 37 34 30 30 00 AA 1F DE 1C 4E 4E 24 B2 4E 4E |.7400.....NN$.NN|
000017A0: 24 AA 41 24 3A 89 37 33 38 30 00 B5 1F E8 1C A1 |$.A$:.7380......|
000017B0: 23 37 2C 41 24 00 CD 1F F2 1C A1 23 37 2C 41 24 |#7,A$......#7,A$|
000017C0: 2C 42 24 3A 49 44 24 B2 41 24 AA 42 24 00 FD 1F |,B$:ID$.A$.B$...|
000017D0: FC 1C 99 3A 50 24 B2 22 20 20 20 4E 41 4D 45 3A |...:P$." NAME:|
000017E0: 22 3A 99 50 24 AA 4E 4E 24 2C 3A 50 24 B2 22 9D |":.P$.NN$,:P$.".|
000017F0: 9D 49 44 3A 22 3A 99 50 24 AA 49 44 24 00 10 20 |.ID:":.P$.ID$.. |
00001800: 06 1D 50 24 B2 22 22 3A 4E 4E 24 B2 22 22 3A 99 |..P$."":NN$."":.|
00001810: 00 3A 20 10 1D 99 22 20 20 20 12 53 49 5A 45 20 |.: ..." .SIZE |
00001820: 20 20 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 | NAME |
00001830: 20 20 20 20 54 59 50 45 92 22 00 54 20 2E 1D A1 | TYPE.".T ...|
00001840: 23 37 2C 41 24 2C 41 24 2C 41 24 2C 41 24 3A 89 |#7,A$,A$,A$,A$:.|
00001850: 37 30 36 30 00 6F 20 4C 1D 8B 51 55 24 B2 22 4E |7060.o L..QU$."N|
00001860: 22 A7 41 4E 24 B2 22 59 22 3A 89 37 35 33 30 00 |".AN$."Y":.7530.|
00001870: 85 20 56 1D A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 |. V..AN$:.AN$.""|
00001880: A7 37 35 31 30 00 C1 20 60 1D 8B 41 4E 24 B2 22 |.7510.. `..AN$."|
00001890: 4E 22 A7 99 22 91 20 20 20 20 20 20 20 20 20 20 |N"..". |
000018A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018B0: 20 20 20 20 20 20 20 20 20 91 22 3A 89 37 30 36 | .":.706|
000018C0: 30 00 DA 20 6A 1D 8B 41 4E 24 B2 22 59 22 A7 4E |0.. j..AN$."Y".N|
000018D0: B2 4E AA 31 3A 89 37 35 34 30 00 F3 20 6E 1D 8B |.N.1:.7540.. n..|
000018E0: 41 4E 24 B2 22 45 22 A7 4E B2 4E AA 31 3A 89 37 |AN$."E".N.N.1:.7|
000018F0: 36 30 30 00 05 21 6F 1D 8B 41 4E 24 B2 46 31 24 |600..!o..AN$.F1$|
00001900: A7 37 33 35 30 00 0F 21 70 1D 89 37 35 31 30 00 |.7350..!p..7510.|
00001910: 3C 21 74 1D 8B 4E B1 31 30 37 39 A7 99 3A 99 22 |<!t..N.1079..:."|
00001920: 12 2A 20 46 49 4C 45 20 46 55 4C 4C 21 20 2A 92 |.* FILE FULL! *.|
00001930: 22 3A A0 37 3A A0 31 35 3A 89 32 30 00 58 21 75 |":.7:.15:.20.X!u|
00001940: 1D 44 24 28 4E 29 B2 C8 28 4E 46 24 2C 31 36 29 |.D$(N)..(NF$,16)|
00001950: AA 22 2E 22 AA 49 34 24 00 6F 21 79 1D A1 41 42 |.".".I4$.o!y..AB|
00001960: 24 3A 8B 41 42 24 B2 46 31 24 A7 37 33 35 30 00 |$:.AB$.F1$.7350.|
00001970: 79 21 7E 1D 89 37 30 36 30 00 8B 21 B0 1D 99 22 |y!~..7060..!..."|
00001980: 20 20 20 12 45 44 49 54 92 22 3B 00 B7 21 B5 1D | .EDIT.";..!..|
00001990: 8B C9 28 4E 46 24 2C 31 29 B2 22 2E 22 A7 4E 46 |..(NF$,1).".".NF|
000019A0: 24 B2 C8 28 4E 46 24 2C C3 28 4E 46 24 29 AB 31 |$..(NF$,.(NF$).1|
000019B0: 29 3A 89 37 36 30 35 00 C6 21 B6 1D 99 22 20 20 |):.7605..!..." |
000019C0: 20 20 22 4E 46 24 00 FA 21 BA 1D 85 22 91 1D 1D | "NF$..!..."...|
000019D0: 1D 1D 1D 1D 1D 1D 1D 22 3B 4E 4D 24 3A 4E 4D 24 |.......";NM$:NM$|
000019E0: B2 4E 4D 24 AA 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.NM$."..........|
000019F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 12 22 C4 1D 4E |.........".."..N|
00001A00: 46 24 B2 C8 28 4E 4D 24 2C 31 36 29 3A 89 37 35 |F$..(NM$,16):.75|
00001A10: 34 30 00 18 22 40 1F 8F 00 36 22 4A 1F 99 22 93 |40.."@...6"J..".|
00001A20: 11 11 11 11 11 11 20 20 20 52 45 4D 4F 56 45 20 |...... REMOVE |
00001A30: 4E 41 4D 45 53 22 00 57 22 54 1F 99 22 11 11 20 |NAMES".W"T..".. |
00001A40: 20 44 45 4C 45 54 45 20 12 4E 92 41 4D 45 20 4F | DELETE .N.AME O|
00001A50: 52 20 12 49 92 44 22 00 71 22 5E 1F 41 24 B2 22 |R .I.D".q"^.A$."|
00001A60: 22 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 38 30 33 |":.A$:.A$."".803|
00001A70: 30 00 82 22 68 1F 8B 41 24 B2 22 4E 22 A7 38 31 |0.."h..A$."N".81|
00001A80: 30 30 00 93 22 72 1F 8B 41 24 B2 22 49 22 A7 38 |00.."r..A$."I".8|
00001A90: 32 30 30 00 9D 22 7C 1F 89 38 30 33 30 00 A3 22 |200.."|..8030.."|
00001AA0: A4 1F 8F 00 D5 22 AE 1F 99 22 93 11 11 11 11 11 |....."..."......|
00001AB0: 1D 1D 1D 49 4E 50 55 54 20 4E 41 4D 45 20 54 4F |...INPUT NAME TO|
00001AC0: 20 52 45 4D 4F 56 45 20 4F 52 20 45 44 49 54 22 | REMOVE OR EDIT"|
00001AD0: 3A 41 31 B2 2E 00 EE 22 B8 1F 52 4E 24 B2 22 22 |:A1...."..RN$.""|
00001AE0: 3A 85 52 4E 24 3A 5A B2 C3 28 52 4E 24 29 00 26 |:.RN$:Z..(RN$).&|
00001AF0: 23 C2 1F 81 49 B2 31 A4 4E 3A 8B C8 28 44 24 28 |#...I.1.N:..(D$(|
00001B00: 49 29 2C 5A 29 B2 52 4E 24 A7 99 44 24 28 49 29 |I),Z).RN$..D$(I)|
00001B10: 22 20 12 28 59 2F 4E 2F 45 2F 46 31 29 92 22 3B |" .(Y/N/E/F1).";|
00001B20: 3A 89 38 31 34 30 00 30 23 C7 1F 89 38 31 38 30 |:.8140.0#...8180|
00001B30: 00 44 23 CC 1F A1 41 24 3A 8B 41 24 B2 22 22 A7 |.D#...A$:.A$."".|
00001B40: 38 31 34 30 00 5C 23 D6 1F 8B 41 24 B2 22 4E 22 |8140.\#...A$."N"|
00001B50: A7 99 22 20 4E 22 3A 89 38 31 38 30 00 83 23 E0 |.." N":.8180..#.|
00001B60: 1F 8B 41 24 B2 22 59 22 A7 44 24 28 49 29 B2 50 |..A$."Y".D$(I).P|
00001B70: 49 24 3A 99 22 20 59 22 3A 41 31 B2 31 3A 89 38 |I$:." Y":A1.1:.8|
00001B80: 31 37 31 00 94 23 E2 1F 8B 41 24 B2 22 45 22 A7 |171..#...A$."E".|
00001B90: 38 31 39 32 00 A5 23 E5 1F 8B 41 24 B2 46 31 24 |8192..#...A$.F1$|
00001BA0: A7 38 31 39 30 00 AF 23 EA 1F 89 38 31 34 30 00 |.8190..#...8140.|
00001BB0: D2 23 EB 1F 8B 20 C8 28 5A 53 24 2C 31 29 B2 22 |.#... .(ZS$,1)."|
00001BC0: 5F 22 20 A7 20 50 4F B2 50 4F AA 31 3A 89 38 31 |_" . PO.PO.1:.81|
00001BD0: 37 33 00 DC 23 EC 1F 89 38 31 38 30 00 04 24 ED |73..#...8180..$.|
00001BE0: 1F 4B 4B B2 49 3A 81 4D B2 4B 4B A4 4E 3A 44 24 |.KK.I:.M.KK.N:D$|
00001BF0: 28 4D 29 B2 44 24 28 4D AA 31 29 3A 82 4D 3A 4E |(M).D$(M.1):.M:N|
00001C00: B2 4E AB 31 00 0A 24 EE 1F 8F 00 11 24 F4 1F 82 |.N.1..$.....$...|
00001C10: 49 00 28 24 FE 1F 8B 41 31 B2 31 A7 99 3A 8D 34 |I.($...A1.1..:.4|
00001C20: 30 30 30 3A 41 31 B2 30 00 2E 24 FF 1F 8E 00 42 |000:A1.0..$....B|
00001C30: 24 00 20 4E 4D 24 B2 C8 28 44 24 28 49 29 2C 31 |$. NM$..(D$(I),1|
00001C40: 36 29 00 6E 24 01 20 8B C9 28 4E 4D 24 2C 31 29 |6).n$. ..(NM$,1)|
00001C50: B2 22 2E 22 A7 4E 4D 24 B2 C8 28 4E 4D 24 2C C3 |.".".NM$..(NM$,.|
00001C60: 28 4E 4D 24 29 AB 31 29 3A 89 38 31 39 33 00 97 |(NM$).1):.8193..|
00001C70: 24 03 20 99 3A 99 22 11 20 3E 12 45 44 49 54 92 |$. .:.". >.EDIT.|
00001C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 22 3A 99 |------------<":.|
00001C90: 22 20 20 22 4E 4D 24 00 D1 24 06 20 85 22 91 22 |" "NM$..$. ."."|
00001CA0: 3B 4E 4D 24 3A 4E 4D 24 B2 4E 4D 24 AA 22 2E 2E |;NM$:NM$.NM$."..|
00001CB0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00001CC0: 2E 22 3A 4E 4F 24 B2 C9 28 44 24 28 49 29 2C 34 |.":NO$..(D$(I),4|
00001CD0: 29 00 F4 24 07 20 44 24 28 49 29 B2 C8 28 4E 4D |)..$. D$(I)..(NM|
00001CE0: 24 2C 31 37 29 AA 4E 4F 24 3A 41 31 B2 31 3A 89 |$,17).NO$:A1.1:.|
00001CF0: 38 31 38 30 00 FA 24 08 20 8F 00 2A 25 12 20 99 |8180..$. ..*%. .|
00001D00: 22 93 11 11 11 11 11 1D 1D 1D 49 4E 50 55 54 20 |".........INPUT |
00001D10: 49 44 20 4F 46 20 44 49 53 4B 20 54 4F 20 52 45 |ID OF DISK TO RE|
00001D20: 4D 4F 56 45 22 3A 41 31 B2 2E 00 43 25 1C 20 52 |MOVE":A1...C%. R|
00001D30: 4E 24 B2 22 22 3A 85 52 4E 24 3A 5A B2 C3 28 52 |N$."":.RN$:Z..(R|
00001D40: 4E 24 29 00 54 25 21 20 8B 52 4E 24 B2 22 22 A7 |N$).T%! .RN$."".|
00001D50: 38 32 31 30 00 93 25 26 20 81 49 B2 31 A4 4E 3A |8210..%& .I.1.N:|
00001D60: 8B CA 28 44 24 28 49 29 2C 31 38 2C 5A 29 B2 52 |..(D$(I),18,Z).R|
00001D70: 4E 24 A7 99 44 24 28 49 29 22 20 12 28 59 2F 4E |N$..D$(I)" .(Y/N|
00001D80: 2F 46 31 3D 41 42 4F 52 54 29 92 22 3B 3A 89 38 |/F1=ABORT).";:.8|
00001D90: 32 34 30 00 9D 25 2B 20 89 38 32 38 30 00 B1 25 |240..%+ .8280..%|
00001DA0: 30 20 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 32 34 |0 .A$:.A$."".824|
00001DB0: 30 00 C9 25 3A 20 8B 41 24 B2 22 4E 22 A7 99 22 |0..%: .A$."N".."|
00001DC0: 20 4E 22 3A 89 38 32 38 30 00 F0 25 44 20 8B 41 | N":.8280..%D .A|
00001DD0: 24 B2 22 59 22 A7 44 24 28 49 29 B2 50 49 24 3A |$."Y".D$(I).PI$:|
00001DE0: 99 22 20 59 22 3A 41 31 B2 31 3A 89 38 32 37 31 |." Y":A1.1:.8271|
00001DF0: 00 01 26 49 20 8B 41 24 B2 46 31 24 A7 38 32 39 |..&I .A$.F1$.829|
00001E00: 30 00 0B 26 4E 20 89 38 32 34 30 00 2E 26 4F 20 |0..&N .8240..&O |
00001E10: 8B 20 C8 28 5A 53 24 2C 31 29 B2 22 5F 22 20 A7 |. .(ZS$,1)."_" .|
00001E20: 20 50 4F B2 50 4F AA 31 3A 89 38 32 37 33 00 38 | PO.PO.1:.8273.8|
00001E30: 26 50 20 89 38 32 38 30 00 6A 26 51 20 4B 4B B2 |&P .8280.j&Q KK.|
00001E40: 49 3A 81 4D B2 4B 4B A4 4E AA 31 3A 44 24 28 4D |I:.M.KK.N.1:D$(M|
00001E50: 29 B2 44 24 28 4D AA 31 29 3A 82 4D 3A 50 50 B2 |).D$(M.1):.M:PP.|
00001E60: 50 50 AA 31 3A 49 B2 49 AB 31 00 70 26 52 20 8F |PP.1:I.I.1.p&R .|
00001E70: 00 88 26 58 20 82 49 3A 4E B2 4E AB 50 50 3A 50 |..&X .I:N.N.PP:P|
00001E80: 50 B2 30 3A 41 31 B2 31 00 9E 26 62 20 8B 41 31 |P.0:A1.1..&b .A1|
00001E90: B2 31 A7 8D 34 30 30 30 3A 8D 38 33 30 30 00 B7 |.1..4000:.8300..|
00001EA0: 26 63 20 8B 20 45 58 B2 31 20 A7 20 45 58 B2 30 |&c . EX.1 . EX.0|
00001EB0: 3A 89 20 38 32 39 35 00 C2 26 64 20 89 20 38 32 |:. 8295..&d . 82|
00001EC0: 30 30 00 C8 26 67 20 8E 00 F8 26 6C 20 99 22 93 |00..&g ...&l .".|
00001ED0: 11 11 11 11 11 1D 1D 1D 1D 1D 12 52 45 4D 4F 56 |...........REMOV|
00001EE0: 45 20 4D 4F 52 45 20 42 59 20 49 44 92 20 20 20 |E MORE BY ID. |
00001EF0: 12 28 59 2F 4E 29 92 22 00 10 27 6D 20 A1 20 51 |.(Y/N)."..'m . Q|
00001F00: 49 24 3A 8B 51 49 24 B2 22 22 A7 20 38 33 30 31 |I$:.QI$."". 8301|
00001F10: 00 2E 27 6E 20 8B 51 49 24 B3 B1 22 59 22 20 AF |..'n .QI$.."Y" .|
00001F20: 20 51 49 24 B3 B1 22 4E 22 A7 38 33 30 31 00 44 | QI$.."N".8301.D|
00001F30: 27 6F 20 8B 51 49 24 B2 22 4E 22 20 A7 20 45 58 |'o .QI$."N" . EX|
00001F40: B2 31 3A 8E 00 50 27 70 20 45 58 B2 30 20 3A 8E |.1:..P'p EX.0 :.|
00001F50: 00 5B 27 28 23 8D 31 31 30 30 30 00 6A 27 2D 23 |.['(#.11000.j'-#|
00001F60: 8B 41 24 B2 22 41 22 A7 32 30 00 8D 27 32 23 9F |.A$."A".20..'2#.|
00001F70: 31 35 2C 44 31 2C 31 35 3A 98 31 35 2C 22 53 22 |15,D1,15:.15,"S"|
00001F80: 44 32 24 AA 5A 53 24 AA 22 2E 42 55 22 00 AE 27 |D2$.ZS$.".BU"..'|
00001F90: 3C 23 98 31 35 2C 22 52 22 44 32 24 AA 5A 53 24 |<#.15,"R"D2$.ZS$|
00001FA0: AA 22 2E 42 55 3D 22 44 32 24 AA 5A 53 24 00 C9 |.".BU="D2$.ZS$..|
00001FB0: 27 46 23 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 5A |'F#.8,D1,8,D2$.Z|
00001FC0: 53 24 AA 22 2C 53 2C 57 22 00 D6 27 50 23 84 31 |S$.",S,W"..'P#.1|
00001FD0: 35 2C 45 2C 45 24 00 0B 28 51 23 8B 45 B1 2E A7 |5,E,E$..(Q#.E...|
00001FE0: A0 38 3A A0 31 35 3A 99 22 11 20 20 20 20 20 20 |.8:.15:.". |
00001FF0: 12 22 45 24 22 20 50 52 45 53 53 20 41 4E 59 20 |."E$" PRESS ANY |
00002000: 4B 45 59 92 22 3A 89 39 30 34 33 00 15 28 52 23 |KEY.":.9043..(R#|
00002010: 89 39 30 35 30 00 29 28 53 23 A1 41 24 3A 8B 41 |.9050.)(S#.A$:.A|
00002020: 24 B2 22 22 A7 39 30 34 33 00 2F 28 54 23 8E 00 |$."".9043./(T#..|
00002030: 55 28 5A 23 99 22 93 12 22 5A 5A 24 3B 3A 99 22 |U(Z#.".."ZZ$;:."|
00002040: 92 20 53 41 56 49 4E 47 22 4E 22 46 49 4C 45 20 |. SAVING"N"FILE |
00002050: 4E 41 4D 45 53 00 87 28 64 23 98 38 2C 4E 3A 81 |NAMES..(d#.8,N:.|
00002060: 49 B2 31 A4 4E 3A 98 38 2C 44 24 28 49 29 3A 99 |I.1.N:.8,D$(I):.|
00002070: 22 13 11 11 22 43 45 24 44 24 28 49 29 22 20 20 |"..."CE$D$(I)" |
00002080: 20 20 20 22 49 3A 82 00 94 28 6E 23 A0 38 3A A0 | "I:...(n#.8:.|
00002090: 31 35 3A 8E 00 9A 28 1C 25 8F 00 BC 28 1D 25 99 |15:...(.%...(.%.|
000020A0: 22 93 11 11 11 11 11 11 20 20 4C 4F 41 44 20 46 |"....... LOAD F|
000020B0: 49 4C 45 20 12 28 59 2F 4E 29 92 22 00 D6 28 1E |ILE .(Y/N)."..(.|
000020C0: 25 41 24 B2 22 22 3A A1 41 24 3A 8B 41 24 B2 22 |%A$."":.A$:.A$."|
000020D0: 22 A7 39 35 30 32 00 E7 28 1F 25 8B 41 24 B2 22 |".9502..(.%.A$."|
000020E0: 59 22 A7 39 35 30 35 00 ED 28 20 25 8E 00 06 29 |Y".9505..( %...)|
000020F0: 21 25 8B 41 41 B2 31 A7 9C 3A 41 41 B2 31 3A 42 |!%.AA.1..:AA.1:B|
00002100: 42 B2 31 3A 8D 31 00 11 29 26 25 8D 31 30 30 30 |B.1:.1..)&%.1000|
00002110: 30 00 1F 29 2B 25 8B 41 24 B2 22 41 22 A7 8E 00 |0..)+%.A$."A"...|
00002120: 32 29 2C 25 9F 31 35 2C 44 31 2C 31 35 3A 41 41 |2),%.15,D1,15:AA|
00002130: B2 31 00 4D 29 2F 25 9F 38 2C 44 31 2C 38 2C 44 |.1.M)/%.8,D1,8,D|
00002140: 32 24 AA 5A 53 24 AA 22 2C 53 2C 52 22 00 5E 29 |2$.ZS$.",S,R".^)|
00002150: 30 25 84 31 35 2C 45 2C 45 24 2C 47 2C 48 00 98 |0%.15,E,E$,G,H..|
00002160: 29 3A 25 8B 45 B1 2E A7 A0 38 3A A0 31 35 3A 99 |):%.E....8:.15:.|
00002170: 22 11 20 20 20 20 20 20 12 22 45 24 22 20 50 52 |". ."E$" PR|
00002180: 45 53 53 20 41 4E 59 20 4B 45 59 92 22 3A 42 42 |ESS ANY KEY.":BB|
00002190: B2 31 3A 89 39 35 33 32 00 A2 29 3B 25 89 39 35 |.1:.9532..);%.95|
000021A0: 34 30 00 B6 29 3C 25 A1 41 24 3A 8B 41 24 B2 22 |40..)<%.A$:.A$."|
000021B0: 22 A7 39 35 33 32 00 C3 29 3D 25 8B 42 42 B2 31 |".9532..)=%.BB.1|
000021C0: A7 32 30 00 C9 29 44 25 8F 00 F3 29 4E 25 84 38 |.20..)D%...)N%.8|
000021D0: 2C 4E 3A 99 22 93 12 22 5A 5A 24 3B 22 92 20 4C |,N:.".."ZZ$;". L|
000021E0: 4F 41 44 49 4E 47 22 4E 22 46 49 4C 45 20 4E 41 |OADING"N"FILE NA|
000021F0: 4D 45 53 00 24 2A 58 25 81 49 B2 31 A4 4E 3A 84 |MES.$*X%.I.1.N:.|
00002200: 38 2C 44 24 28 49 29 3A 99 22 13 11 11 22 44 24 |8,D$(I):."..."D$|
00002210: 28 49 29 22 20 20 20 20 20 22 49 3A 82 3A A0 38 |(I)" "I:.:.8|
00002220: 3A A0 31 35 00 31 2A 5D 25 8B 42 42 B2 31 A7 32 |:.15.1*]%.BB.1.2|
00002230: 30 00 37 2A 62 25 8E 00 3D 2A 10 27 8F 00 6E 2A |0.7*b%..=*.'..n*|
00002240: 24 27 99 22 93 11 11 11 20 20 20 49 53 20 4D 41 |$'.".... IS MA|
00002250: 53 54 45 52 20 44 41 54 41 20 44 49 53 4B 20 49 |STER DATA DISK I|
00002260: 4E 20 44 52 49 56 45 22 44 31 22 9D 3F 22 00 83 |N DRIVE"D1".?"..|
00002270: 2A 2E 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 |*.'.A$:.A$."".10|
00002280: 30 33 30 00 95 2A 33 27 8B 41 24 B2 22 59 22 A7 |030..*3'.A$."Y".|
00002290: 31 30 30 34 30 00 A3 2A 34 27 8B 41 24 B2 22 41 |10040..*4'.A$."A|
000022A0: 22 A7 8E 00 AE 2A 35 27 89 31 30 30 33 30 00 C1 |"....*5'.10030..|
000022B0: 2A 38 27 9F 31 35 2C 44 31 2C 31 35 3A 99 22 93 |*8'.15,D1,15:.".|
000022C0: 22 00 E2 2A 42 27 9F 38 2C 44 31 2C 38 2C 44 32 |"..*B'.8,D1,8,D2|
000022D0: 24 AA 22 43 41 54 45 47 4F 52 49 45 53 2C 53 2C |$."CATEGORIES,S,|
000022E0: 52 22 00 F3 2A 4C 27 84 31 35 2C 45 2C 45 24 2C |R"..*L'.15,E,E$,|
000022F0: 54 2C 53 00 0E 2B 56 27 8B 45 B2 36 32 B0 45 B2 |T,S..+V'.E.62.E.|
00002300: 37 34 A7 4E 4E B2 30 3A 89 31 30 31 34 30 00 39 |74.NN.0:.10140.9|
00002310: 2B 60 27 99 22 93 20 20 20 20 20 20 20 12 45 58 |+`'.". .EX|
00002320: 49 53 54 49 4E 47 20 43 41 54 45 47 4F 52 49 45 |ISTING CATEGORIE|
00002330: 53 20 41 52 45 3A 22 3A 99 00 55 2B 6A 27 84 38 |S ARE:":..U+j'.8|
00002340: 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 84 38 2C 44 |,NN:.I.1.NN:.8,D|
00002350: 44 24 28 49 29 00 7C 2B 88 27 99 22 12 22 C9 28 |D$(I).|+.'.".".(|
00002360: C4 28 49 29 2C 31 29 22 92 20 20 22 44 44 24 28 |.(I),1)". "DD$(|
00002370: 49 29 3A 82 49 3A A0 38 3A A0 31 35 00 B6 2B 9B |I):.I:.8:.15..+.|
00002380: 27 A0 38 3A A0 31 35 3A 99 22 11 12 20 44 4F 20 |'.8:.15:.".. DO |
00002390: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 43 52 41 |YOU WISH TO SCRA|
000023A0: 54 43 48 20 41 20 43 41 54 45 47 4F 52 59 22 3A |TCH A CATEGORY":|
000023B0: 53 43 24 B2 22 22 00 BC 2B 9C 27 99 00 D3 2B 9D |SC$.""..+.'...+.|
000023C0: 27 A1 53 43 24 3A 8B 53 43 24 B2 22 22 A7 31 30 |'.SC$:.SC$."".10|
000023D0: 31 34 31 00 F0 2B 9E 27 8B 53 43 24 B3 B1 22 59 |141..+.'.SC$.."Y|
000023E0: 22 AF 53 43 24 B3 B1 22 4E 22 A7 31 30 31 34 31 |".SC$.."N".10141|
000023F0: 00 06 2C 9F 27 8B 53 43 24 B2 22 59 22 A7 20 8D |..,.'.SC$."Y". .|
00002400: 20 36 33 34 30 30 00 0C 2C A4 27 99 00 3E 2C A5 | 63400..,.'..>,.|
00002410: 27 99 22 11 11 20 44 4F 20 59 4F 55 20 57 41 4E |'.".. DO YOU WAN|
00002420: 54 20 54 4F 20 43 52 45 41 54 45 20 41 20 4E 45 |T TO CREATE A NE|
00002430: 57 20 43 41 54 45 47 4F 52 59 3F 22 3A 99 00 6E |W CATEGORY?":..n|
00002440: 2C A6 27 99 22 05 20 5F 20 41 54 20 53 54 41 52 |,.'.". _ AT STAR|
00002450: 54 20 4F 46 20 43 41 54 45 52 47 4F 52 59 20 44 |T OF CATERGORY D|
00002460: 49 53 41 42 4C 45 53 20 53 4F 52 54 9A 22 00 83 |ISABLES SORT."..|
00002470: 2C B0 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 |,.'.A$:.A$."".10|
00002480: 31 36 30 00 9A 2C BA 27 8B 41 24 B2 22 4E 22 AF |160..,.'.A$."N".|
00002490: 4E 4E B2 30 A7 31 30 31 36 30 00 AC 2C C4 27 8B |NN.0.10160..,.'.|
000024A0: 41 24 B2 22 4E 22 A7 31 30 33 39 30 00 BF 2C CE |A$."N".10390..,.|
000024B0: 27 8B 41 24 B3 B1 22 59 22 A7 31 30 31 36 30 00 |'.A$.."Y".10160.|
000024C0: E6 2C D8 27 8B 4E 4E B2 39 A7 99 22 4E 4F 20 4D |.,.'.NN.9.."NO M|
000024D0: 4F 52 45 20 43 41 54 45 47 4F 52 49 45 53 22 3A |ORE CATEGORIES":|
000024E0: 89 31 30 33 39 30 00 21 2D E2 27 99 3A 85 22 4E |.10390.!-.'.:."N|
000024F0: 41 4D 45 20 4F 46 20 4E 45 57 20 43 41 54 45 47 |AME OF NEW CATEG|
00002500: 4F 52 59 22 3B 44 44 24 3A 8B C3 28 44 44 24 29 |ORY";DD$:..(DD$)|
00002510: B1 31 36 A7 99 22 91 91 91 22 3A 89 31 30 32 31 |.16.."...":.1021|
00002520: 30 00 39 2D EC 27 4E 4E B2 4E 4E AA 31 3A 44 44 |0.9-.'NN.NN.1:DD|
00002530: 24 28 4E 4E 29 B2 44 44 24 00 60 2D F6 27 8B 4E |$(NN).DD$.`-.'.N|
00002540: 4E B2 39 A7 99 22 4E 4F 20 4D 4F 52 45 20 43 41 |N.9.."NO MORE CA|
00002550: 54 45 47 4F 52 49 45 53 22 3A 89 31 30 33 32 30 |TEGORIES":.10320|
00002560: 00 6E 2D 00 28 99 22 11 4D 4F 52 45 3F 22 00 83 |.n-.(.".MORE?"..|
00002570: 2D 0A 28 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 |-.(.A$:.A$."".10|
00002580: 32 35 30 00 95 2D 14 28 8B 41 24 B2 22 59 22 A7 |250..-.(.A$."Y".|
00002590: 31 30 32 30 30 00 A8 2D 1E 28 8B 41 24 B3 B1 22 |10200..-.(.A$.."|
000025A0: 4E 22 A7 31 30 32 35 30 00 EB 2D 50 28 9F 31 35 |N".10250..-P(.15|
000025B0: 2C 44 31 2C 31 35 2C 22 53 22 AA 44 32 24 AA 22 |,D1,15,"S".D2$."|
000025C0: 42 55 43 41 54 53 22 3A 98 31 35 2C 22 52 22 AA |BUCATS":.15,"R".|
000025D0: 44 32 24 AA 22 42 55 43 41 54 53 3D 43 41 54 45 |D2$."BUCATS=CATE|
000025E0: 47 4F 52 49 45 53 22 3A A0 31 35 00 0C 2E 5A 28 |GORIES":.15...Z(|
000025F0: 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 22 43 41 54 |.8,D1,8,D2$."CAT|
00002600: 45 47 4F 52 49 45 53 2C 53 2C 57 22 00 2E 2E 64 |EGORIES,S,W"...d|
00002610: 28 98 38 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 |(.8,NN:.I.1.NN:.|
00002620: 38 2C 44 44 24 28 49 29 3A 82 49 3A A0 38 00 59 |8,DD$(I):.I:.8.Y|
00002630: 2E 96 28 99 22 93 20 20 20 20 20 20 20 12 45 58 |..(.". .EX|
00002640: 49 53 54 49 4E 47 20 43 41 54 45 47 4F 52 49 45 |ISTING CATEGORIE|
00002650: 53 20 41 52 45 3A 22 3A 99 00 81 2E A0 28 81 49 |S ARE:":.....(.I|
00002660: B2 31 A4 4E 4E 3A 99 22 12 22 C9 28 C4 28 49 29 |.1.NN:.".".(.(I)|
00002670: 2C 31 29 22 92 20 20 22 44 44 24 28 49 29 3A 82 |,1)". "DD$(I):.|
00002680: 49 00 AC 2E BE 28 99 22 11 11 20 20 20 20 20 20 |I....(.".. |
00002690: 57 48 49 43 48 20 43 41 54 45 47 4F 52 59 20 44 |WHICH CATEGORY D|
000026A0: 4F 20 59 4F 55 20 57 41 4E 54 3F 22 00 C1 2E C8 |O YOU WANT?"....|
000026B0: 28 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 34 34 |(.A$:.A$."".1044|
000026C0: 30 00 E0 2E D2 28 5A 53 B2 C5 28 41 24 29 3A 8B |0....(ZS..(A$):.|
000026D0: 5A 53 B3 31 B0 5A 53 B1 4E 4E A7 31 30 34 34 30 |ZS.1.ZS.NN.10440|
000026E0: 00 FA 2E DC 28 5A 53 24 B2 44 44 24 28 5A 53 29 |....(ZS$.DD$(ZS)|
000026F0: 3A 5A 5A 24 B2 5A 53 24 3A 8E 00 23 2F F8 2A 99 |:ZZ$.ZS$:..#/.*.|
00002700: 22 93 11 11 11 11 11 11 11 20 20 53 41 56 45 20 |"........ SAVE |
00002710: 46 49 4C 45 22 3A 8B 5A 53 24 B2 22 22 A7 31 30 |FILE":.ZS$."".10|
00002720: 30 30 30 00 41 2F FD 2A 99 22 11 20 20 43 55 52 |000.A/.*.". CUR|
00002730: 52 45 4E 54 20 46 49 4C 45 20 49 53 20 22 5A 53 |RENT FILE IS "ZS|
00002740: 24 00 6D 2F 02 2B 99 22 11 20 20 49 53 20 54 48 |$.m/.+.". IS TH|
00002750: 49 53 20 43 4F 52 52 45 43 54 3F 20 20 12 28 59 |IS CORRECT? .(Y|
00002760: 2F 4E 2F 41 3D 41 42 4F 52 54 29 92 22 00 88 2F |/N/A=ABORT)."../|
00002770: 0C 2B 41 24 B2 22 22 3A A1 41 24 3A 8B 41 24 B2 |.+A$."":.A$:.A$.|
00002780: 22 22 A7 31 31 30 32 30 00 96 2F 16 2B 8B 41 24 |"".11020../.+.A$|
00002790: B2 22 59 22 A7 8E 00 AA 2F 20 2B 8B 41 24 B2 22 |."Y"..../ +.A$."|
000027A0: 4E 22 A7 31 30 30 30 30 3A 8E 00 B8 2F 2A 2B 8B |N".10000:.../*+.|
000027B0: 41 24 B2 22 41 22 A7 8E 00 BE 2F 68 42 8F 00 E9 |A$."A"..../hB...|
000027C0: 2F 72 42 49 34 24 B2 22 22 3A 99 22 93 11 11 11 |/rBI4$."":."....|
000027D0: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 41 |... A|
000027E0: 44 44 20 46 49 4C 45 53 22 00 27 30 73 42 8B 4E |DD FILES".'0sB.N|
000027F0: B1 31 30 37 39 A7 99 22 11 11 20 20 20 12 2A 20 |.1079..".. .* |
00002800: 57 41 52 4E 49 4E 47 20 46 49 4C 45 20 46 55 4C |WARNING FILE FUL|
00002810: 4C 21 21 20 2A 12 22 3A 81 49 B2 31 A4 33 30 30 |L!! *.":.I.1.300|
00002820: 3A 82 49 3A 89 32 30 00 6D 30 74 42 8B 4E B1 31 |:.I:.20.m0tB.N.1|
00002830: 30 30 30 A7 99 22 11 11 12 2A 20 57 41 52 4E 49 |000.."...* WARNI|
00002840: 4E 47 20 46 49 4C 45 20 41 4C 4D 4F 53 54 20 46 |NG FILE ALMOST F|
00002850: 55 4C 4C 21 21 20 2A 12 22 3A 99 31 30 38 30 AB |ULL!! *.":.1080.|
00002860: 4E 22 52 45 4D 41 49 4E 49 4E 47 21 22 00 B1 30 |N"REMAINING!"..0|
00002870: 7C 42 99 22 11 11 11 20 20 20 20 20 20 20 20 20 ||B."... |
00002880: 12 49 92 4E 44 49 56 49 44 55 41 4C 20 4F 52 20 |.I.NDIVIDUAL OR |
00002890: 12 44 92 49 53 4B 22 3A 99 22 11 20 20 20 20 20 |.D.ISK":.". |
000028A0: 20 20 20 20 20 20 20 41 20 3D 20 41 42 4F 52 54 | A = ABORT|
000028B0: 22 00 CC 30 86 42 41 24 B2 22 22 3A A1 41 24 3A |"..0.BA$."":.A$:|
000028C0: 8B 41 24 B2 22 22 A7 31 37 30 33 30 00 DD 30 90 |.A$."".17030..0.|
000028D0: 42 8B 41 24 B2 22 44 22 A7 37 30 30 30 00 EF 30 |B.A$."D".7000..0|
000028E0: 9A 42 8B 41 24 B2 22 49 22 A7 31 37 30 37 30 00 |.B.A$."I".17070.|
000028F0: FD 30 9F 42 8B 41 24 B2 22 41 22 A7 8E 00 08 31 |.0.B.A$."A"....1|
00002900: A4 42 89 31 37 30 33 30 00 30 31 AE 42 99 22 93 |.B.17030.01.B.".|
00002910: 11 11 11 1D 1D 1D 1D 20 20 20 20 20 20 41 44 44 |....... ADD|
00002920: 20 49 4E 44 49 56 55 44 41 4C 20 46 49 4C 45 22 | INDIVUDAL FILE"|
00002930: 00 3F 31 AF 42 8B 4E B1 31 30 37 39 A7 32 30 00 |.?1.B.N.1079.20.|
00002940: 79 31 B3 42 99 3A 99 22 11 49 4E 50 55 54 20 41 |y1.B.:.".INPUT A|
00002950: 20 46 4F 55 52 20 43 48 41 52 41 43 54 45 52 20 | FOUR CHARACTER |
00002960: 49 44 20 12 28 41 3D 41 42 4F 52 54 29 92 22 3A |ID .(A=ABORT).":|
00002970: 99 22 20 20 2D 2D 2D 2D 22 00 8D 31 B8 42 85 49 |." ----"..1.B.I|
00002980: 34 24 3A 8B 49 34 24 B2 22 41 22 A7 8E 00 9F 31 |4$:.I4$."A"....1|
00002990: C2 42 8B 49 34 24 B2 22 22 A7 31 37 30 37 30 00 |.B.I4$."".17070.|
000029A0: B4 31 CC 42 8B C3 28 49 34 24 29 B3 B1 34 A7 31 |.1.B..(I4$)..4.1|
000029B0: 37 30 37 30 00 F0 31 D6 42 99 22 11 45 4E 54 45 |7070..1.B.".ENTE|
000029C0: 52 20 46 49 4C 45 20 4E 41 4D 45 20 28 4D 41 58 |R FILE NAME (MAX|
000029D0: 20 31 36 20 43 48 52 53 29 22 3A 99 22 20 20 2D | 16 CHRS)":." -|
000029E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
000029F0: 00 12 32 E0 42 4E 24 B2 22 22 3A 85 4E 24 3A 8B |..2.BN$."":.N$:.|
00002A00: 4E 24 B2 22 22 A7 99 22 91 91 22 3A 89 31 37 31 |N$."".."..":.171|
00002A10: 32 30 00 31 32 E5 42 4E 24 B2 4E 24 AA 22 2E 2E |20.12.BN$.N$."..|
00002A20: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00002A30: 22 00 5F 32 EA 42 4E 24 B2 C8 28 4E 24 2C 31 36 |"._2.BN$..(N$,16|
00002A40: 29 AA 22 2E 22 AA 49 34 24 3A 4E B2 4E AA 31 3A |).".".I4$:N.N.1:|
00002A50: 44 24 28 4E 29 B2 4E 24 3A 89 31 37 30 37 30 00 |D$(N).N$:.17070.|
00002A60: 92 32 30 75 8D 33 35 30 30 30 3A 43 48 24 B2 22 |.20u.35000:CH$."|
00002A70: 05 1C 9F 9C 1E 1F 9E 81 95 96 97 98 99 9A 9B 22 |..............."|
00002A80: 3A 99 22 93 22 3A 4A B2 31 3A 81 49 B2 31 A4 34 |:.".":J.1:.I.1.4|
00002A90: 30 30 00 B2 32 31 75 99 CA 28 43 48 24 2C 4A 2C |00..21u..(CH$,J,|
00002AA0: 31 29 3A 4A B2 4A AA 31 3A 8B 4A B1 31 35 A7 4A |1):J.J.1:.J.15.J|
00002AB0: B2 31 00 E7 32 32 75 99 22 13 11 11 11 20 20 20 |.1..22u.".... |
00002AC0: 44 49 53 4B 20 46 49 4C 45 20 22 56 45 24 22 20 |DISK FILE "VE$" |
00002AD0: 20 20 20 20 20 3A 20 4D 53 44 20 53 44 2D 32 20 | : MSD SD-2 |
00002AE0: 2D 20 34 30 34 30 22 00 12 33 3A 75 99 22 11 20 |- 4040"..3:u.". |
00002AF0: 20 20 22 44 41 24 22 20 20 20 20 20 20 20 20 20 | "DA$" |
00002B00: 20 20 3A 20 31 20 4F 52 20 32 20 31 35 34 31 27 | : 1 OR 2 1541'|
00002B10: 53 22 00 30 33 3F 75 99 A3 32 32 29 22 11 3A 20 |S".03?u..22)".: |
00002B20: 38 30 20 43 4F 4C 2E 20 50 52 49 4E 54 45 52 22 |80 COL. PRINTER"|
00002B30: 00 4F 33 40 75 99 A3 32 32 29 22 11 3A 20 31 33 |.O3@u..22)".: 13|
00002B40: 36 20 43 4F 4C 2E 20 50 52 49 4E 54 45 52 22 00 |6 COL. PRINTER".|
00002B50: 7D 33 44 75 99 22 20 20 20 44 49 52 45 43 54 4F |}3Du." DIRECTO|
00002B60: 52 59 20 20 20 20 20 20 28 43 29 20 3A 20 43 4F |RY (C) : CO|
00002B70: 4D 50 55 54 45 21 20 31 31 2F 38 33 22 00 AC 33 |MPUTE! 11/83"..3|
00002B80: 4E 75 99 22 11 20 20 20 4C 49 47 48 54 4E 49 4E |Nu.". LIGHTNIN|
00002B90: 47 20 53 4F 52 54 20 28 43 29 20 3A 20 43 4F 4D |G SORT (C) : COM|
00002BA0: 50 55 54 45 21 20 30 39 2F 38 34 22 00 DA 33 51 |PUTE! 09/84"..3Q|
00002BB0: 75 99 22 11 20 20 20 43 4F 4D 50 49 4C 45 52 20 |u.". COMPILER |
00002BC0: 50 41 52 54 53 20 28 43 29 20 3A 20 27 49 4E 53 |PARTS (C) : 'INS|
00002BD0: 54 41 2D 53 50 45 45 44 27 22 00 08 34 53 75 99 |TA-SPEED'"..4Su.|
00002BE0: 22 11 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |". ----------|
00002BF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002C00: 2D 2D 2D 2D 2D 2D 2D 22 00 35 34 58 75 99 22 20 |-------".54Xu." |
00002C10: 20 20 20 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D | MAIN PROGRAM|
00002C20: 20 28 43 29 20 43 4F 50 59 52 49 47 48 54 20 31 | (C) COPYRIGHT 1|
00002C30: 39 38 34 20 22 00 62 34 62 75 99 22 20 20 20 20 |984 ".b4bu." |
00002C40: 20 42 59 20 52 4F 59 20 53 43 48 41 48 52 45 52 | BY ROY SCHAHRER|
00002C50: 20 2D 20 5B 37 30 33 36 36 2C 31 37 31 37 5D 20 | - [70366,1717] |
00002C60: 20 22 00 8F 34 6C 75 8F 50 52 49 4E 54 22 20 20 | "..4lu.PRINT" |
00002C70: 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 | THIS PROGRAM |
00002C80: 49 53 20 49 4E 20 46 52 45 45 57 41 52 45 22 00 |IS IN FREEWARE".|
00002C90: B6 34 6E 75 8F 50 52 49 4E 54 22 20 20 20 20 20 |.4nu.PRINT" |
00002CA0: 53 55 47 47 45 53 54 45 44 20 44 4F 4E 41 54 49 |SUGGESTED DONATI|
00002CB0: 4F 4E 20 24 32 30 00 E3 34 71 75 99 22 20 20 20 |ON $20..4qu." |
00002CC0: 20 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 11 35 76 75 58 B2 AB 28 58 B2 2E 29 |--"..5vuX..(X..)|
00002CF0: 3A 97 31 39 39 2C 58 3A 99 A3 31 31 29 22 48 49 |:.199,X:..11)"HI|
00002D00: 54 20 41 20 4B 45 59 20 54 4F 20 53 54 41 52 54 |T A KEY TO START|
00002D10: 22 00 30 35 80 75 8F 20 20 20 47 45 54 41 24 3A |".05.u. GETA$:|
00002D20: 49 46 41 24 3D 22 22 54 48 45 4E 4E 45 58 54 49 |IFA$=""THENNEXTI|
00002D30: 00 55 35 8A 75 97 35 33 32 38 31 2C 2E 3A 97 35 |.U5.u.53281,.:.5|
00002D40: 33 32 38 30 2C 2E 3A 99 22 1E 22 3A 49 B2 31 30 |3280,.:.".":I.10|
00002D50: 30 30 30 3A 8E 00 86 35 B8 88 99 22 93 11 11 20 |000:...5..."... |
00002D60: 50 41 52 54 53 20 4F 46 20 54 48 49 53 20 50 52 |PARTS OF THIS PR|
00002D70: 4F 47 52 41 4D 20 41 52 45 20 43 4F 50 59 52 49 |OGRAM ARE COPYRI|
00002D80: 47 48 54 45 44 22 00 B4 35 C2 88 99 22 11 20 20 |GHTED"..5...". |
00002D90: 42 59 20 44 52 49 56 45 20 54 45 43 48 4E 4F 4C |BY DRIVE TECHNOL|
00002DA0: 4F 47 59 20 4C 54 44 2E 2C 20 20 28 43 29 20 31 |OGY LTD., (C) 1|
00002DB0: 39 38 33 22 00 E2 35 CC 88 99 22 11 11 20 20 27 |983"..5...".. '|
00002DC0: 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 20 48 |THANKS FOR THE H|
00002DD0: 45 4C 50 20 49 4E 53 54 41 2D 53 50 45 45 44 2E |ELP INSTA-SPEED.|
00002DE0: 27 22 00 13 36 D1 88 99 22 11 2D 2D 2D 2D 2D 2D |'"..6...".------|
00002DF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E10: 2D 2D 22 00 43 36 D6 88 99 22 54 48 49 53 20 50 |--".C6..."THIS P|
00002E20: 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 46 52 45 |ROGRAM IS IN FRE|
00002E30: 45 57 41 52 45 2E 20 49 46 20 59 4F 55 20 46 49 |EWARE. IF YOU FI|
00002E40: 4E 44 22 00 72 36 E0 88 99 22 49 46 20 55 53 45 |ND".r6..."IF USE|
00002E50: 46 55 4C 4C 20 50 4C 45 41 53 45 20 53 45 4E 44 |FULL PLEASE SEND|
00002E60: 20 24 32 30 2C 20 4F 52 20 57 48 41 54 45 56 45 | $20, OR WHATEVE|
00002E70: 52 22 00 94 36 EA 88 99 22 11 59 4F 55 20 46 45 |R"..6...".YOU FE|
00002E80: 45 4C 20 49 54 20 49 53 20 57 4F 52 54 48 2C 20 |EL IT IS WORTH, |
00002E90: 54 4F 3A 22 00 AC 36 F4 88 99 22 11 11 20 20 20 |TO:"..6...".. |
00002EA0: 52 4F 59 20 53 43 48 41 48 52 45 52 00 CC 36 FE |ROY SCHAHRER..6.|
00002EB0: 88 99 22 20 20 20 38 34 32 20 57 2E 20 43 41 4C |.." 842 W. CAL|
00002EC0: 4C 45 20 44 45 4C 20 4E 4F 52 54 45 00 EC 36 08 |LE DEL NORTE..6.|
00002ED0: 89 99 22 20 20 20 43 48 41 4E 44 4C 45 52 2C 20 |.." CHANDLER, |
00002EE0: 41 52 49 5A 2E 20 20 38 35 32 32 34 00 17 37 0D |ARIZ. 85224..7.|
00002EF0: 89 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00002F00: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 41 4E | THAN|
00002F10: 4B 20 59 4F 55 2E 22 00 28 37 12 89 81 49 B2 31 |K YOU.".(7...I.1|
00002F20: A4 31 30 3A 82 49 3A 8E 00 2E 37 40 9C 8F 00 56 |.10:.I:...7@...V|
00002F30: 37 7C 9C 8B C6 28 42 24 AA 5A 24 29 B1 31 32 37 |7|...(B$.Z$).127|
00002F40: AF C6 28 42 24 AA 5A 24 29 B3 31 36 30 A7 42 24 |..(B$.Z$).160.B$|
00002F50: B2 C7 28 36 33 29 00 70 37 86 9C 8B C6 28 42 24 |..(63).p7....(B$|
00002F60: AA 5A 24 29 B3 33 32 A7 42 24 B2 C7 28 36 33 29 |.Z$).32.B$..(63)|
00002F70: 00 98 37 90 9C 8B C6 28 42 24 AA 5A 24 29 B1 32 |..7....(B$.Z$).2|
00002F80: 32 34 AF C6 28 42 24 AA 5A 24 29 B3 32 35 34 A7 |24..(B$.Z$).254.|
00002F90: 42 24 B2 C7 28 36 33 29 00 9E 37 A4 9C 8E 00 C9 |B$..(63)..7.....|
00002FA0: 37 60 EA 99 22 93 11 11 11 11 11 11 20 20 53 45 |7`.."....... SE|
00002FB0: 4C 45 43 54 20 44 52 49 56 45 20 43 4F 4E 46 49 |LECT DRIVE CONFI|
00002FC0: 47 55 52 41 54 49 4F 4E 22 00 FB 37 6A EA 99 22 |GURATION"..7j.."|
00002FD0: 11 11 11 11 20 20 31 2E 20 4D 53 44 20 53 44 2D |.... 1. MSD SD-|
00002FE0: 32 20 4F 52 20 34 30 34 30 20 44 55 41 4C 20 44 |2 OR 4040 DUAL D|
00002FF0: 52 49 56 45 20 28 44 56 20 38 29 00 26 38 74 EA |RIVE (DV 8).&8t.|
00003000: 99 22 11 20 20 32 2E 20 53 49 4E 47 4C 45 20 31 |.". 2. SINGLE 1|
00003010: 35 34 31 20 44 49 53 4B 20 44 52 49 56 45 20 28 |541 DISK DRIVE (|
00003020: 44 56 20 38 29 22 00 53 38 7E EA 99 22 11 20 20 |DV 8)".S8~..". |
00003030: 33 2E 20 54 57 4F 20 31 35 34 31 20 44 49 53 4B |3. TWO 1541 DISK|
00003040: 20 44 52 49 56 45 53 20 28 44 56 20 38 20 26 20 | DRIVES (DV 8 & |
00003050: 39 29 22 00 68 38 88 EA A1 41 24 3A 8B 41 24 B2 |9)".h8...A$:.A$.|
00003060: 22 22 A7 36 30 30 34 30 00 8B 38 92 EA 8B 41 24 |"".60040..8...A$|
00003070: B2 22 31 22 A7 44 31 B2 38 3A 44 32 24 B2 22 31 |."1".D1.8:D2$."1|
00003080: 3A 22 3A 97 36 38 30 2C 31 3A 8E 00 AE 38 9C EA |:":.680,1:...8..|
00003090: 8B 41 24 B2 22 32 22 A7 44 31 B2 38 3A 44 32 24 |.A$."2".D1.8:D2$|
000030A0: B2 22 30 3A 22 3A 97 36 38 30 2C 32 3A 8E 00 D1 |."0:":.680,2:...|
000030B0: 38 A6 EA 8B 41 24 B2 22 33 22 A7 44 31 B2 39 3A |8...A$."3".D1.9:|
000030C0: 44 32 24 B2 22 30 3A 22 3A 97 36 38 30 2C 33 3A |D2$."0:":.680,3:|
000030D0: 8E 00 DC 38 B0 EA 89 36 30 30 34 30 00 FE 38 30 |...8...60040..80|
000030E0: F2 50 49 24 B2 22 FF FF FF FF FF FF FF FF FF FF |.PI$."..........|
000030F0: FF FF FF FF FF FF FF FF FF FF FF 22 3A 8E 00 1E |...........":...|
00003100: 39 18 F6 41 B2 C2 28 36 38 30 29 3A 8B 41 B2 31 |9..A..(680):.A.1|
00003110: A7 44 31 B2 38 3A 44 32 24 B2 22 31 3A 22 00 35 |.D1.8:D2$."1:".5|
00003120: 39 22 F6 8B 41 B2 32 A7 44 31 B2 38 3A 44 32 24 |9"..A.2.D1.8:D2$|
00003130: B2 22 30 3A 22 00 4C 39 2C F6 8B 41 B2 33 A7 44 |."0:".L9,..A.3.D|
00003140: 31 B2 39 3A 44 32 24 B2 22 30 3A 22 00 52 39 36 |1.9:D2$."0:".R96|
00003150: F6 8E 00 78 39 A8 F7 99 22 11 57 48 49 43 48 20 |...x9...".WHICH |
00003160: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 |DO YOU WISH TO S|
00003170: 43 52 41 54 43 48 20 22 00 93 39 A9 F7 A1 20 53 |CRATCH "..9... S|
00003180: 46 24 20 3A 8B 53 46 24 B2 22 22 20 A7 20 36 33 |F$ :.SF$."" . 63|
00003190: 34 30 31 00 B6 39 AA F7 8B 20 53 46 24 B3 C7 28 |401..9... SF$..(|
000031A0: 34 39 29 20 B0 20 53 46 24 B1 C7 28 35 37 29 20 |49) . SF$..(57) |
000031B0: A7 36 33 34 30 31 00 F3 39 AB F7 53 46 B2 C5 28 |.63401..9..SF..(|
000031C0: C8 28 53 46 24 2C 31 29 29 3A 4E 4E B2 4E 4E AB |.(SF$,1)):NN.NN.|
000031D0: 31 3A 20 8F 20 53 46 3D 20 46 49 4C 45 20 54 4F |1: . SF= FILE TO|
000031E0: 20 53 43 52 41 54 43 48 20 46 4F 52 20 44 44 24 | SCRATCH FOR DD$|
000031F0: 28 49 29 00 2F 3A AC F7 9F 31 35 2C 44 31 2C 31 |(I)./:...15,D1,1|
00003200: 35 2C 22 53 22 AA 44 32 24 AA 44 44 24 28 53 46 |5,"S".D2$.DD$(SF|
00003210: 29 3A 98 31 35 2C 22 53 22 AA 44 32 24 AA 44 44 |):.15,"S".D2$.DD|
00003220: 24 28 53 46 29 AA 22 2E 42 55 22 3A A0 31 35 00 |$(SF).".BU":.15.|
00003230: 3F 3A AD F7 81 20 52 4E B2 31 A4 4E 4E AA 31 00 |?:... RN.1.NN.1.|
00003240: 61 3A AE F7 8B 20 52 4E 20 B3 20 53 46 20 A7 20 |a:... RN . SF . |
00003250: 44 44 24 28 52 4E 29 B2 44 44 24 28 52 4E 29 3A |DD$(RN).DD$(RN):|
00003260: 82 00 86 3A AF F7 8B 20 52 4E 20 B1 B2 20 53 46 |...:... RN .. SF|
00003270: 20 A7 20 44 44 24 28 52 4E 29 B2 44 44 24 28 52 | . DD$(RN).DD$(R|
00003280: 4E AA 31 29 3A 82 00 C9 3A DA F7 9F 31 35 2C 44 |N.1):...:...15,D|
00003290: 31 2C 31 35 2C 22 53 22 AA 44 32 24 AA 22 42 55 |1,15,"S".D2$."BU|
000032A0: 43 41 54 53 22 3A 98 31 35 2C 22 52 22 AA 44 32 |CATS":.15,"R".D2|
000032B0: 24 AA 22 42 55 43 41 54 53 3D 43 41 54 45 47 4F |$."BUCATS=CATEGO|
000032C0: 52 49 45 53 22 3A A0 31 35 00 EA 3A E4 F7 9F 38 |RIES":.15..:...8|
000032D0: 2C 44 31 2C 38 2C 44 32 24 AA 22 43 41 54 45 47 |,D1,8,D2$."CATEG|
000032E0: 4F 52 49 45 53 2C 53 2C 57 22 00 0C 3B EE F7 98 |ORIES,S,W"..;...|
000032F0: 38 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 38 2C |8,NN:.I.1.NN:.8,|
00003300: 44 44 24 28 49 29 3A 82 49 3A A0 38 00 29 3B F8 |DD$(I):.I:.8.);.|
00003310: F7 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 22 42 55 |..8,D1,8,D2$."BU|
00003320: 43 41 54 53 2C 53 2C 57 22 00 4D 3B 02 F8 98 38 |CATS,S,W".M;...8|
00003330: 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 38 2C 44 |,NN:.I.1.NN:.8,D|
00003340: 44 24 28 49 29 3A 82 49 3A A0 38 3A 8E 00 6B 3B |D$(I):.I:.8:..k;|
00003350: 0C F8 99 22 11 20 20 20 12 20 48 41 52 44 20 43 |...". . HARD C|
00003360: 4F 50 59 20 28 59 2F 4E 29 20 22 00 84 3B 0D F8 |OPY (Y/N) "..;..|
00003370: A1 20 48 43 24 3A 8B 48 43 24 B2 22 22 A7 20 36 |. HC$:.HC$."". 6|
00003380: 33 35 30 31 00 A7 3B 0E F8 8B 20 48 43 24 B3 B1 |3501..;... HC$..|
00003390: 22 59 22 20 AF 20 48 43 24 B3 B1 20 22 4E 22 20 |"Y" . HC$.. "N" |
000033A0: A7 20 36 33 35 30 31 00 B8 3B 0F F8 8B 20 48 43 |. 63501..;... HC|
000033B0: 24 B2 22 4E 22 A7 20 8E 00 C1 3B 10 F8 9F 34 2C |$."N". ...;...4,|
000033C0: 34 00 F0 3B 70 F8 81 49 B2 31 A4 4E 3A 8B CA 28 |4..;p..I.1.N:..(|
000033D0: 44 24 28 49 29 2C 31 38 2C 5A 29 B2 53 4E 24 A7 |D$(I),18,Z).SN$.|
000033E0: 98 34 2C 44 24 28 49 29 3A 82 49 3A A0 34 3A 8E |.4,D$(I):.I:.4:.|
000033F0: 00 F6 3B 7A F8 82 00 FF 3B 84 F8 A0 34 3A 8E 00 |..;z....;...4:..|
00003400: 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"...... H(ZS$,1)."_" . . 4030...
...:.". .SORTING.......".....N1..:N2..:
.49152,N,D$(1).?....I.1.N:.D$(I).PI$.N1.
I.1:.4100:.4040.N.C..I:.N1.....W.H.N2.N.
N1:.".. "N2"FILES REMOVED":N.N1...M..".
. PRESS ANY KEY ."...R..A$:.A$."".4050.
...........I.1.1080......D$(I).PI$.D$(I)
." "......I:........
....."...... SEARCH FOR FILE NAME".6...
.GETA$:IFA$=""THEN5020.V...."ENTER NAME
TO SEARCH FOR".O...SN$."":.SN$:Z.C(SN$).
.....I.1.N:.H(D$(I),Z).SN$..D$(I)......B
(653).1.5051.L....I:."..END OF LIST. PR
ESS ANY KEY"...N..A$:.A$."".5070...{....
.|.....}.."......DO YOU WISH TO CHANGE A
N ID (Y/N).4.~.. CA$:. CA$."" . 5502.T.
.. CA$.."Y" . CA$.."N". 5502.H.... CA$."
N". 5529......"... ENTER OLD ID ";OI$..
.... C(OI$)..4 . 5505......"... ENTER N
EW ID ";NI$.R.... C(NI$)..4 . 5507......
646,5......I.1.N...... I(D$(I),4).OI$.D$
(I).H(D$(I),17).NI$.......H...."..DO YOU
WISH TO CHANGE MORE ID'S (Y/N)".B.... C
J$:. CJ$."" . 5514...... CJ$.."Y" . CJ$.
. "N" . 5514...... CJ$."N" . 5529.....OI
$."":NI$."":. 5505.X...."...... SEARCH
FOR DISK NUMBER"......"ENTER 4 CHR. ID T
O SEARCH FOR".....SN$."":.SN$:Z.C(SN$).;
....I.1.N:.J(D$(I),18,Z).SN$..D$(I).N...
.B(653).1.5551.~....I:. 63500:."..END OF
LIST. PRESS ANY KEY"...B..A$:.A$."".55
70...O.....P.....Q.D.8:DD$."0":.D1.8.600
4...R..".WHAT DEVICE (8 OR 9)";:.D$:D.E(
H(D$,1))...S..D.8.D.9.6002...T..D2$."0:"
.6008.6.U..".WHAT DRIVE (0 OR 1, * FOR B
OTH)";.N.V..DD$:DR.E(H(DD$,1)).B.W..DR..
.DR.1.6004.Y.X..839,F(DD$):.846,D......"
.IS THE CORRECT DISK IN THE DRIVE?".....
.A$:.A$.."Y".6020......15,D,15,"I".DD$:.
15,E,E$,F,G: 15......E....." "E"
"E$" "F" "G: 15:.6040......828.;.....8)"
..PRESS ANY KEY WHEN READY".O....A$:.A$.
"".6050.U.....[.X....B..".....
ADD FROM DISK"...C..".FILES"N;:.I4$.."A
".."- LAST ID USED "I4$...D..:.".PLACE D
ISK TO BE READ INTO DRIVE 8 AND"...E..".
INPUT A FOUR CHARACTER ID .(A=ABORT).":.
". ----".;.F.I4$."":." ";I4$:.I4$."A
"...L.G..I4$."".7000.`.H..C(I4$)..4.7000
.Y.I..". QUERY? (Y/N) ";...J..QU$:.QU$.
"".7018...K..QU$.."Y".QU$.."N".7018...L.
..E.M..C(I4$)..4.7000...N..QU$."Y"..".(Y
/N/E/F1=ABORT).":.7030...O..QU$."N"..".(
F1=ABORT)."...V..15,8,15,"I0":.15,E,E$,F
,G: 15.Y.W..E.....". "E" ."E$". "F" "G
" ":.7350.O....7,8,.,"$0":.7360.}....#7,
A$,B$......#7,A$,B$......#7,A$,B$.....C.
.:FS$."":NF$."":XX..:X.XX.M....A$.."".C.
F(A$)......B$.."".C.C.F(B$).256...F.FS$.
J(D(C),2)......" ";.2....E(FS$).10.FS$
.FS$." ":.FS$;:.7220.]. ..E(FS$).9
9.FS$.FS$." ":.FS$;:.7220.X.*.FS$.FS
$." ":.FS$;...4.B$."":.#7,B$:.ST .6
4.7330...>..B$..G(34).7220.X.H..#7,B$:.B
$..G(34)..40000:NF$.NF$.B$:.7240...R.PD$
."...................".".\..H(NF$,1)." "
.NF$.I(NF$,C(NF$).1):.7260.N.]..I(NF$,1)
." ".NF$.H(NF$,C(NF$).1):.7261.~.A.X.C(N
F$):XX.18.X:NF$.NF$.H(PD$,XX):.NF$" ";..
.F..#7,B$:.B$.G(32).7270...P.C$."".C.Z.C
$.C$.B$:.#7,B$:.B$.."".7290.P....H(C$,1)
.V...........ST .64.7500......"--- BLOCK
S FREE"........... 7:.".. .HIT ANY KEY
TO CONTINUE.".B....A$:.A$."".7352.L....
7000.`....#7,A$,A$,A$,A$.{.J..#7,A$:.A$.
.G(34).7370...T..#7,A$:.A$.G(34).7400...
..NN$.NN$.A$:.7380......#7,A$.M....#7,A$
,B$:ID$.A$.B$......:P$." NAME:":.P$.NN
$,:P$."..ID:":.P$.ID$.. ..P$."":NN$."":.
.: ..." .SIZE NAME TYPE
.".T ...#7,A$,A$,A$,A$:.7060.O L..QU$."N
".AN$."Y":.7530.. V..AN$:.AN$."".7510.A
`..AN$."N"..".
.":.7060.Z J..AN$."Y".N.N.1:.75
40.. N..AN$."E".N.N.1:.7600..!O..AN$.F1$
.7350..!P..7510.<!T..N.1079..:.".* FILE
FULL! *.": 7: 15:.20.X!U.D$(N).H(NF$,16)
.".".I4$.O!Y..AB$:.AB$.F1$.7350.Y!~..706
0..!..." .EDIT.";..!...I(NF$,1).".".NF
$.H(NF$,C(NF$).1):.7605.F!..." "NF$..
!..."..........";NM$:NM$.NM$."..........
.........".."D.NF$.H(NM$,16):.7540.."@..
.6"J.."....... REMOVE NAMES".W"T.."..
DELETE .N.AME OR .I.D".Q"^.A$."":.A$:.A
$."".8030.."H..A$."N".8100.."R..A$."I".8
200.."|..8030.."....U"...".........INPUT
NAME TO REMOVE OR EDIT":A1...."..RN$.""
:.RN$:Z.C(RN$).&#B..I.1.N:.H(D$(I),Z).RN
$..D$(I)" .(Y/N/E/F1).";:.8140.0#G..8180
.D#L..A$:.A$."".8140.\#V..A$."N".." N":.
8180..#...A$."Y".D$(I).PI$:." Y":A1.1:.8
171..#...A$."E".8192..#...A$.F1$.8190..#
...8140.R#... H(ZS$,1)."_" . PO.PO.1:.81
73..#...8180..$..KK.I:.M.KK.N:D$(M).D$(M
.1):.M:N.N.1..$.....$...I.($...A1.1..:.4
000:A1.0..$....B$. NM$.H(D$(I),16).N$. .
I(NM$,1).".".NM$.H(NM$,C(NM$).1):.8193..
$. .:.". >.EDIT.------------<":." "NM$.
Q$. .".";NM$:NM$.NM$."..................
.":NO$.I(D$(I),4)..$. D$(I).H(NM$,17).NO
$:A1.1:.8180..$. ..*%. .".........INPUT
ID OF DISK TO REMOVE":A1...C%. RN$."":.R
N$:Z.C(RN$).T%! .RN$."".8210..%& .I.1.N:
.J(D$(I),18,Z).RN$..D$(I)" .(Y/N/F1=ABOR
T).";:.8240..%+ .8280..%0 .A$:.A$."".824
0.I%: .A$."N".." N":.8280..%D .A$."Y".D$
(I).PI$:." Y":A1.1:.8271..&I .A$.F1$.829
0..&N .8240..&O . H(ZS$,1)."_" . PO.PO.1
:.8273.8&P .8280.J&Q KK.I:.M.KK.N.1:D$(M
).D$(M.1):.M:PP.PP.1:I.I.1.P&R ...&X .I:
N.N.PP:PP.0:A1.1..&B .A1.1..4000:.8300..
&C . EX.1 . EX.0:. 8295.B&D . 8200.H&G .
..&L ."............REMOVE MORE BY ID.
.(Y/N)."..'M . QI$:.QI$."". 8301..'N .QI
$.."Y" . QI$.."N".8301.D'O .QI$."N" . EX
.1:..P'P EX.0 :..['(#.11000.J'-#.A$."A".
20..'2#.15,D1,15:.15,"S"D2$.ZS$.".BU"..'
<#.15,"R"D2$.ZS$.".BU="D2$.ZS$.I'F#.8,D1
,8,D2$.ZS$.",S,W".V'P#.15,E,E$..(Q#.E...
8: 15:.". ."E$" PRESS ANY KEY.":.9
043..(R#.9050.)(S#.A$:.A$."".9043./(T#..
U(Z#.".."ZZ$;:.". SAVING"N"FILE NAMES..(
D#.8,N:.I.1.N:.8,D$(I):."..."CE$D$(I)"
"I:...(N# 8: 15:...(.%...(.%.".......
LOAD FILE .(Y/N).".V(.%A$."":.A$:.A$."
".9502..(.%.A$."Y".9505..( %...)!%.AA.1.
.:AA.1:BB.1:.1..)&%.10000..)+%.A$."A"...
2),%.15,D1,15:AA.1.M)/%.8,D1,8,D2$.ZS$."
,S,R".^)0%.15,E,E$,G,H..):%.E... 8: 15:.
". ."E$" PRESS ANY KEY.":BB.1:.9532
..);%.9540..)<%.A$:.A$."".9532.C)=%.BB.1
.20.I)D%...)N%.8,N:.".."ZZ$;". LOADING"N
"FILE NAMES.$*X%.I.1.N:.8,D$(I):."..."D$
(I)" "I:.: 8: 15.1*]%.BB.1.20.7*B%..
=*.'..N*$'.".... IS MASTER DATA DISK I
N DRIVE"D1".?"..*.'.A$:.A$."".10030..*3'
.A$."Y".10040..*4'.A$."A"....*5'.10030.A
*8'.15,D1,15:."."..*B'.8,D1,8,D2$."CATEG
ORIES,S,R"..*L'.15,E,E$,T,S..+V'.E.62.E.
74.NN.0:.10140.9+`'.". .EXISTING C
ATEGORIES ARE:":..U+J'.8,NN:.I.1.NN:.8,D
D$(I).|+.'."."I(D(I),1)". "DD$(I):.I: 8
: 15..+.' 8: 15:.".. DO YOU WISH TO SCRA
TCH A CATEGORY":SC$.""..+.'..S+.'.SC$:.S
C$."".10141..+.'.SC$.."Y".SC$.."N".10141
..,.'.SC$."Y". . 63400..,.'..>,.'.".. DO
YOU WANT TO CREATE A NEW CATEGORY?":..N
,.'.". _ AT START OF CATERGORY DISABLES
SORT."..,.'.A$:.A$."".10160..,.'.A$."N".
NN.0.10160..,D'.A$."N".10390..,N'.A$.."Y
".10160..,X'.NN.9.."NO MORE CATEGORIES":
.10390.!-.'.:."NAME OF NEW CATEGORY";DD$
:.C(DD$).16.."...":.10210.9-.'NN.NN.1:DD
$(NN).DD$.`-.'.NN.9.."NO MORE CATEGORIES
":.10320.N-.(.".MORE?"..-.(.A$:.A$."".10
250..-.(.A$."Y".10200..-.(.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.Y..(.". .EXISTING C
ATEGORIES ARE:":.... (.I.1.NN:."."I(D(I)
,1)". "DD$(I):.I....(.".. WHICH CA
TEGORY DO YOU WANT?".A.H(.A$:.A$."".1044
0...R(ZS.E(A$):.ZS.1.ZS.NN.10440....(ZS$
.DD$(ZS):ZZ$.ZS$:..#/.*."........ SAVE
FILE":.ZS$."".10000.A/.*.". CURRENT FIL
E IS "ZS$.M/.+.". IS THIS CORRECT? .(Y
/N/A=ABORT)."../.+A$."":.A$:.A$."".11020
../.+.A$."Y"..../ +.A$."N".10000:.../*+.
A$."A"..../HB.../RBI4$."":.".......
ADD FILES".'0SB.N.1079..".. .*
WARNING FILE FULL!! *.":.I.1.300:.I:.20.
M0TB.N.1000.."...* WARNING FILE ALMOST F
ULL!! *.":.1080.N"REMAINING!"..0|B."...
.I.NDIVIDUAL OR .D.ISK":.".
A = ABORT".L0.BA$."":.A$:.A$."".1
7030..0.B.A$."D".7000..0.B.A$."I".17070.
.0.B.A$."A"....1.B.17030.01.B."........
ADD INDIVUDAL FILE".?1.B.N.1079.20.
Y1.B.:.".INPUT A FOUR CHARACTER ID .(A=A
BORT).":." ----"..1.B.I4$:.I4$."A"....1
BB.I4$."".17070..1LB.C(I4$)..4.17070..1V
B.".ENTER FILE NAME (MAX 16 CHRS)":." -
---------------"..2.BN$."":.N$:.N$."".."
..":.17120.12.BN$.N$."..................
"._2.BN$.H(N$,16).".".I4$:N.N.1:D$(N).N$
:.17070..20U.35000:CH$."..............."
:.".":J.1:.I.1.400..21U.J(CH$,J,1):J.J.1
:.J.15.J.1..22U.".... DISK FILE "VE$"
: MSD SD-2 - 4040"..3:U.". "DA$"
: 1 OR 2 1541'S".03?U..22)".:
80 COL. PRINTER".O3@U..22)".: 136 COL. P
RINTER".}3DU." DIRECTORY (C) : CO
MPUTE! 11/83"..3NU.". LIGHTNING SORT (
C) : COMPUTE! 09/84".Z3QU.". COMPILER
PARTS (C) : 'INSTA-SPEED'"..4SU.". --
-------------------------------".54XU."
MAIN PROGRAM (C) COPYRIGHT 1984 ".B4
BU." BY ROY SCHAHRER - [70366,1717]
"..4LU.PRINT" THIS PROGRAM IS IN FR
EEWARE"..4NU.PRINT" SUGGESTED DONATI
ON $20..4QU." -----------------------
----------"..5VUX..(X..):.199,X:..11)"HI
T A KEY TO START".05.U. GETA$:IFA$=""T
HENNEXTI.U5.U.53281,.:.53280,.:.".":I.10
000:...5..."... PARTS OF THIS PROGRAM AR
E COPYRIGHTED"..5B..". BY DRIVE TECHNOL
OGY LTD., (C) 1983"..5L..".. 'THANKS F
OR THE HELP INSTA-SPEED.'"..6Q..".------
----------------------------------".C6V.
."THIS PROGRAM IS IN FREEWARE. IF YOU FI
ND".R6..."IF USEFULL PLEASE SEND $20, OR
WHATEVER"..6...".YOU FEEL IT IS WORTH,
TO:"..6...".. ROY SCHAHRER.L6..." 84
2 W. CALLE DEL NORTE..6..." CHANDLER,
ARIZ. 85224..7...".
THANK YOU.".(7...I.1.10:.I:...7@...V
7|..F(B$.Z$).127.F(B$.Z$).160.B$.G(63).P
7...F(B$.Z$).32.B$.G(63)..7...F(B$.Z$).2
24.F(B$.Z$).254.B$.G(63)..7....I7`.."...
.... SELECT DRIVE CONFIGURATION"..7J.."
.... 1. MSD SD-2 OR 4040 DUAL DRIVE (DV
8).&8T..". 2. SINGLE 1541 DISK DRIVE (
DV 8)".S8~..". 3. TWO 1541 DISK DRIVES
(DV 8 & 9)".H8...A$:.A$."".60040..8...A$
."1".D1.8:D2$."1:":.680,1:...8...A$."2".
D1.8:D2$."0:":.680,2:..Q8...A$."3".D1.9:
D2$."0:":.680,3:...8...60040..80.PI$."..
...................":...9..A.B(680):.A.1
.D1.8:D2$."1:".59"..A.2.D1.8:D2$."0:".L9
,..A.3.D1.9:D2$."0:".R96...X9...".WHICH
DO YOU WISH TO SCRATCH "..9... SF$ :.SF$
."" . 63401..9... SF$.G(49) . SF$.G(57)
.63401..9..SF.E(H(SF$,1)):NN.NN.1: . SF=
FILE TO SCRATCH FOR DD$(I)./:...15,D1,1
5,"S".D2$.DD$(SF):.15,"S".D2$.DD$(SF).".
BU": 15.?:... RN.1.NN.1.A:... RN . SF .
DD$(RN).DD$(RN):...:... RN .. SF . DD$(R
N).DD$(RN.1):..I:Z..15,D1,15,"S".D2$."BU
CATS":.15,"R".D2$."BUCATS=CATEGORIES": 1
5..:...8,D1,8,D2$."CATEGORIES,S,W"..;...
8,NN:.I.1.NN:.8,DD$(I):.I: 8.);...8,D1,8
,D2$."BUCATS,S,W".M;...8,NN:.I.1.NN:.8,D
D$(I):.I: 8:..K;...". . HARD COPY (Y/N
) "..;... HC$:.HC$."". 63501..;... HC$..
"Y" . HC$.. "N" . 63501..;... HC$."N". .
.A;...4,4..;P..I.1.N:.J(D$(I),18,Z).SN$.
.4,D$(I):.I: 4:...;Z....;.. 4:......
> CLICK IMAGE PREVIEW FOR FULL MODAL