DDFILE DIRECTORY
FILE INFORMATION
FILENAME(S): DDFILE DIRECTORY
FILE TYPE(S): PRG
FILE SIZE: 11.3K
FIRST SEEN: 2025-11-30 17:23:56
APPEARS ON: 1 disk(s)
FILE HASH
fa200bbcdbae891fb12322e587039dc5f5d08907c82429e92bfde07ae4527673
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DAVE | DDFILE DIRECTORY | PRG | Quetzal & Style | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 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 3A 00 54 08 01 00 56 |41025,195:.T...V|
00000020: 45 52 53 4E 24 B2 22 34 2E 37 22 3A 44 41 54 45 |ERSN$."4.7":DATE|
00000030: 24 B2 22 31 32 2F 30 32 2F 38 34 22 3A 97 35 33 |$."12/02/84":.53|
00000040: 32 38 30 2C 2E 3A 97 35 33 32 38 31 2C 2E 3A 99 |280,.:.53281,.:.|
00000050: 22 93 1E 22 00 74 08 0A 00 8B C2 28 34 39 31 35 |"..".t.....(4915|
00000060: 32 29 B3 B1 33 32 A7 93 22 4C 2D 53 4F 52 54 22 |2)..32.."L-SORT"|
00000070: 2C 38 2C 31 00 95 08 0C 00 8B C2 28 38 32 38 29 |,8,1.......(828)|
00000080: B3 B1 31 36 39 A7 93 22 44 49 52 20 40 38 32 38 |..169.."DIR @828|
00000090: 22 2C 38 2C 31 00 C2 08 0D 00 46 31 24 B2 C7 28 |",8,1.....F1$..(|
000000A0: 31 33 33 29 3A 46 35 24 B2 C7 28 31 33 35 29 3A |133):F5$..(135):|
000000B0: 46 37 24 B2 C7 28 31 33 36 29 3A 5A 24 B2 C7 28 |F7$..(136):Z$..(|
000000C0: 2E 29 00 EB 08 0E 00 99 22 1E 22 3A 86 44 24 28 |.)......".":.D$(|
000000D0: 31 30 38 30 29 3A 8B 41 41 B2 31 A7 8D 36 32 30 |1080):.AA.1..620|
000000E0: 30 30 3A 8D 36 33 30 30 30 3A 8E 00 F6 08 0F 00 |00:.63000:......|
000000F0: 8D 36 32 30 30 30 00 01 09 10 00 8D 36 30 30 30 |.62000......6000|
00000100: 30 00 3C 09 14 00 99 22 93 1D 1D 1D 1D 1E 44 49 |0.<...."......DI|
00000110: 53 4B 20 46 49 4C 45 20 50 52 4F 47 52 41 4D 3A |SK FILE PROGRAM:|
00000120: 20 20 22 56 45 24 3A 99 22 11 20 20 20 20 31 20 | "VE$:.". 1 |
00000130: 2D 20 41 44 44 20 46 49 4C 45 53 22 00 73 09 28 |- ADD FILES".s.(|
00000140: 00 99 22 11 20 20 20 20 32 20 2D 20 50 52 49 4E |..". 2 - PRIN|
00000150: 54 20 41 20 46 49 4C 45 22 3A 99 22 11 20 20 20 |T A FILE":.". |
00000160: 20 33 20 2D 20 53 4F 52 54 20 54 48 45 20 46 49 | 3 - SORT THE FI|
00000170: 4C 45 22 00 BB 09 46 00 99 22 11 20 20 20 20 34 |LE"...F..". 4|
00000180: 20 2D 20 53 45 41 52 43 48 20 46 4F 52 20 46 49 | - SEARCH FOR FI|
00000190: 4C 45 20 4E 41 4D 45 22 3A 99 22 11 20 20 20 20 |LE NAME":.". |
000001A0: 35 20 2D 20 53 45 41 52 43 48 20 46 4F 52 20 44 |5 - SEARCH FOR D|
000001B0: 49 53 4B 20 4E 55 4D 42 45 52 22 00 F7 09 50 00 |ISK NUMBER"...P.|
000001C0: 99 22 11 20 20 20 20 36 20 2D 20 56 49 45 57 20 |.". 6 - VIEW |
000001D0: 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 22 3A |DISK DIRECTORY":|
000001E0: 99 22 11 20 20 20 20 37 20 2D 20 53 41 56 45 20 |.". 7 - SAVE |
000001F0: 44 2D 46 49 4C 45 22 00 2D 0A 56 00 99 22 11 20 |D-FILE".-.V..". |
00000200: 20 20 20 38 20 2D 20 4C 4F 41 44 20 44 2D 46 49 | 8 - LOAD D-FI|
00000210: 4C 45 22 3A 99 22 11 20 20 20 20 39 20 2D 20 52 |LE":.". 9 - R|
00000220: 45 4D 4F 56 45 20 41 20 4E 41 4D 45 22 00 5D 0A |EMOVE A NAME".].|
00000230: 5A 00 99 22 11 20 20 20 20 30 20 2D 20 51 55 49 |Z..". 0 - QUI|
00000240: 54 22 3A 99 22 11 20 20 20 20 52 45 43 4F 52 44 |T":.". RECORD|
00000250: 53 20 49 4E 20 4D 45 4D 4F 52 59 22 4E 00 70 0A |S IN MEMORY"N.p.|
00000260: 6E 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 31 30 |n..A$:.A$."".110|
00000270: 00 87 0A 78 00 8B 41 24 B3 22 30 22 B0 41 24 B1 |...x..A$."0".A$.|
00000280: 22 39 22 A7 31 31 30 00 99 0A 7D 00 8B 41 24 B2 |"9".110...}..A$.|
00000290: 22 30 22 A7 8D 31 30 30 30 00 A5 0A 82 00 41 B2 |"0"..1000.....A.|
000002A0: C5 28 41 24 29 00 DF 0A 8C 00 91 41 8D 31 37 30 |.(A$)......A.170|
000002B0: 30 30 2C 32 30 30 30 2C 34 30 30 30 2C 35 30 30 |00,2000,4000,500|
000002C0: 30 2C 35 35 30 30 2C 36 30 30 30 2C 39 30 30 30 |0,5500,6000,9000|
000002D0: 2C 39 35 30 30 2C 38 30 30 30 2C 31 30 30 30 00 |,9500,8000,1000.|
000002E0: E7 0A 96 00 89 32 30 00 ED 0A E8 03 8F 00 11 0B |.....20.........|
000002F0: F2 03 99 22 93 11 11 11 11 11 20 20 51 55 49 54 |..."...... QUIT|
00000300: 21 20 20 41 52 45 20 59 4F 55 20 53 55 52 45 3F |! ARE YOU SURE?|
00000310: 22 00 25 0B FC 03 A1 41 24 3A 8B 41 24 B2 22 22 |".%....A$:.A$.""|
00000320: A7 31 30 32 30 00 34 0B 06 04 8B 41 24 B3 B1 22 |.1020.4....A$.."|
00000330: 59 22 A7 8E 00 46 0B 10 04 99 22 93 22 3A 8D 33 |Y"...F....".":.3|
00000340: 35 30 33 30 3A 80 00 4E 0B 1A 04 89 32 30 00 54 |5030:..N....20.T|
00000350: 0B D0 07 8F 00 71 0B DA 07 99 22 93 12 22 5A 53 |.....q....".."ZS|
00000360: 24 3A 99 A3 31 30 29 22 4F 55 54 50 55 54 20 4F |$:..10)"OUTPUT O|
00000370: 4E 00 A0 0B E4 07 99 22 20 12 31 92 20 20 20 53 |N......" .1. S|
00000380: 43 52 45 45 4E 22 3A 99 22 20 12 32 92 20 20 20 |CREEN":." .2. |
00000390: 38 30 20 43 4F 4C 2E 20 50 52 49 4E 54 45 52 22 |80 COL. PRINTER"|
000003A0: 00 D1 0B E9 07 99 22 20 12 33 92 20 20 20 31 33 |......" .3. 13|
000003B0: 36 20 43 4F 4C 2E 20 50 52 49 4E 54 45 52 20 28 |6 COL. PRINTER (|
000003C0: 43 4F 4E 44 45 4E 53 45 44 20 50 52 49 4E 54 29 |CONDENSED PRINT)|
000003D0: 22 00 F5 0B EE 07 A1 41 24 3A 91 C5 28 41 24 29 |"......A$:..(A$)|
000003E0: 89 32 30 35 30 2C 32 31 35 30 2C 33 32 30 30 3A |.2050,2150,3200:|
000003F0: 89 32 30 33 30 00 FB 0B F8 07 8F 00 29 0C 02 08 |.2030.......)...|
00000400: 81 49 B2 31 A4 B5 28 4E AD 32 32 29 AA 31 3A 99 |.I.1..(N.22).1:.|
00000410: 22 93 22 3A 81 4A B2 32 32 AC 28 49 AB 31 29 AA |".":.J.22.(I.1).|
00000420: 31 A4 32 32 AC 49 AB 31 31 00 35 0C 07 08 81 4B |1.22.I.11.5....K|
00000430: B2 2E A4 32 31 00 49 0C 09 08 8B 4A AA 4B B1 31 |...21.I....J.K.1|
00000440: 30 38 30 A7 89 32 30 36 35 00 62 0C 0C 08 99 22 |080..2065.b...."|
00000450: 20 20 20 20 20 20 20 20 20 22 3B 44 24 28 4A AA | ";D$(J.|
00000460: 4B 29 00 69 0C 11 08 82 4B 00 9C 0C 16 08 97 32 |K).i....K......2|
00000470: 31 34 2C 32 33 3A 99 3A 99 A3 36 29 22 12 20 46 |14,23:.:..6)". F|
00000480: 31 3D 4D 45 4E 55 20 20 20 46 35 3D 55 50 20 20 |1=MENU F5=UP |
00000490: 20 46 37 3D 44 4F 57 4E 20 92 22 3B 00 B0 0C 20 | F7=DOWN .";... |
000004A0: 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 38 30 |..A$:.A$."".2080|
000004B0: 00 D0 0C 25 08 8B 41 24 B2 46 31 24 A7 49 B2 28 |...%..A$.F1$.I.(|
000004C0: B5 28 4E AD 32 32 29 29 AA 31 3A 89 32 31 33 30 |.(N.22)).1:.2130|
000004D0: 00 EC 0C 2A 08 8B 41 24 B2 46 35 24 AF 49 B1 31 |...*..A$.F5$.I.1|
000004E0: A7 49 B2 49 AB 32 3A 89 32 31 33 30 00 06 0D 34 |.I.I.2:.2130...4|
000004F0: 08 8B 41 24 B2 46 35 24 AF 49 B2 31 A7 49 B2 2E |..A$.F5$.I.1.I..|
00000500: 3A 89 32 31 33 30 00 18 0D 3E 08 8B 41 24 B3 B1 |:.2130...>..A$..|
00000510: 46 37 24 A7 32 30 38 30 00 33 0D 48 08 8B 49 B2 |F7$.2080.3.H..I.|
00000520: B5 28 4E AD 32 32 29 AA 31 A7 49 B2 B5 28 4E AD |.(N.22).1.I..(N.|
00000530: 32 32 29 00 3C 0D 52 08 82 49 3A 8E 00 42 0D 5C |22).<.R..I:..B.\|
00000540: 08 8F 00 6E 0D 66 08 99 22 93 45 4E 54 45 52 20 |...n.f..".ENTER |
00000550: 54 4F 44 41 59 27 53 20 44 41 54 45 20 28 4E 4F |TODAY'S DATE (NO|
00000560: 20 43 4F 4D 4D 41 53 29 22 3A 85 58 59 24 00 A6 | COMMAS)":.XY$..|
00000570: 0D 68 08 99 22 93 45 4E 54 45 52 20 50 52 49 4E |.h..".ENTER PRIN|
00000580: 54 45 52 20 44 45 56 49 43 45 20 4E 55 4D 42 45 |TER DEVICE NUMBE|
00000590: 52 22 3A 85 44 4E 24 3A 44 4E B2 C5 28 C8 28 44 |R":.DN$:DN..(.(D|
000005A0: 4E 24 2C 31 29 29 00 BA 0D 69 08 8B 44 4E B3 34 |N$,1))...i..DN.4|
000005B0: B0 44 4E B1 37 A7 32 31 35 32 00 CA 0D 70 08 A0 |.DN.7.2152...p..|
000005C0: 33 3A 9F 33 2C 44 4E 3A 98 33 00 0A 0E 72 08 8B |3:.3,DN:.3...r..|
000005D0: 53 54 A7 99 22 11 11 11 50 52 49 4E 54 45 52 20 |ST.."...PRINTER |
000005E0: 4E 4F 54 20 4F 4E 2D 4C 49 4E 45 2C 20 48 49 54 |NOT ON-LINE, HIT|
000005F0: 20 41 20 4B 45 59 2E 22 3A 92 31 39 38 2C 31 3A | A KEY.":.198,1:|
00000600: 97 31 39 38 2C 2E 3A 89 32 30 00 33 0E 75 08 99 |.198,.:.20.3.u..|
00000610: 22 93 50 52 49 4E 54 49 4E 47 2C 20 48 4F 4C 44 |".PRINTING, HOLD|
00000620: 20 44 4F 57 4E 20 46 31 20 54 4F 20 41 42 4F 52 | DOWN F1 TO ABOR|
00000630: 54 2E 22 00 6B 0E 7A 08 42 24 B2 22 20 20 20 20 |T.".k.z.B$." |
00000640: 20 22 3A 41 B2 31 3A 42 B2 36 30 3A 50 4E 24 B2 | ":A.1:B.60:PN$.|
00000650: 22 31 22 3A 8D 32 32 39 30 3A 8D 33 30 30 30 3A |"1":.2290:.3000:|
00000660: 8B 4E B3 31 38 30 A7 33 39 39 30 00 9B 0E 84 08 |.N.180.3990.....|
00000670: 41 B2 31 38 31 3A 42 B2 32 34 30 3A 50 4E 24 B2 |A.181:B.240:PN$.|
00000680: 22 32 22 3A 8D 32 32 39 30 3A 8D 33 30 30 30 3A |"2":.2290:.3000:|
00000690: 8B 4E B3 32 34 30 A7 33 39 39 30 00 CB 0E 8E 08 |.N.240.3990.....|
000006A0: 41 B2 33 36 31 3A 42 B2 34 32 30 3A 50 4E 24 B2 |A.361:B.420:PN$.|
000006B0: 22 33 22 3A 8D 32 32 39 30 3A 8D 33 30 30 30 3A |"3":.2290:.3000:|
000006C0: 8B 4E B3 34 32 30 A7 33 39 39 30 00 FB 0E 98 08 |.N.420.3990.....|
000006D0: 41 B2 35 34 31 3A 42 B2 36 30 30 3A 50 4E 24 B2 |A.541:B.600:PN$.|
000006E0: 22 34 22 3A 8D 32 32 39 30 3A 8D 33 30 30 30 3A |"4":.2290:.3000:|
000006F0: 8B 4E B3 36 30 30 A7 33 39 39 30 00 2B 0F A2 08 |.N.600.3990.+...|
00000700: 41 B2 37 32 31 3A 42 B2 37 38 30 3A 50 4E 24 B2 |A.721:B.780:PN$.|
00000710: 22 35 22 3A 8D 32 32 39 30 3A 8D 33 30 30 30 3A |"5":.2290:.3000:|
00000720: 8B 4E B3 37 38 30 A7 33 39 39 30 00 55 0F AC 08 |.N.780.3990.U...|
00000730: 41 B2 39 30 31 3A 42 B2 39 36 30 3A 50 4E 24 B2 |A.901:B.960:PN$.|
00000740: 22 36 22 3A 8D 32 32 39 30 3A 8D 33 30 30 30 3A |"6":.2290:.3000:|
00000750: 89 33 39 39 30 00 9B 0F F2 08 98 33 2C 22 20 20 |.3990......3," |
00000760: 20 20 20 50 41 47 45 20 22 50 4E 24 22 20 20 20 | PAGE "PN$" |
00000770: 20 20 20 20 20 20 22 5A 53 24 22 20 20 20 20 20 | "ZS$" |
00000780: 20 22 58 59 24 22 20 20 20 20 20 22 4E 22 46 49 | "XY$" "N"FI|
00000790: 4C 45 53 22 3A 98 33 2C 22 20 22 00 A6 0F FC 08 |LES":.3," ".....|
000007A0: 81 4A B2 41 A4 42 00 E3 0F 06 09 98 33 2C 42 24 |.J.A.B......3,B$|
000007B0: 3B 44 24 28 4A 29 3B 42 24 3B 44 24 28 4A AA 36 |;D$(J);B$;D$(J.6|
000007C0: 30 29 3B 42 24 3B 44 24 28 4A AA 31 32 30 29 3A |0);B$;D$(J.120):|
000007D0: 8B C2 28 31 39 37 29 B2 34 A7 98 33 3A A0 33 3A |..(197).4..3:.3:|
000007E0: 89 32 30 00 0A 10 0B 09 58 B2 AB 28 58 B2 2E 29 |.20.....X..(X..)|
000007F0: 3A 97 31 39 39 2C 58 3A 99 22 13 50 52 49 4E 54 |:.199,X:.".PRINT|
00000800: 49 4E 47 11 11 11 22 3A 82 4A 00 10 10 10 09 8F |ING...":.J......|
00000810: 00 25 10 1A 09 81 49 49 B2 31 A4 34 3A 98 33 3A |.%....II.1.4:.3:|
00000820: 82 49 49 3A 8E 00 54 10 B8 0B 99 22 12 4E 45 58 |.II:..T....".NEX|
00000830: 54 20 50 41 47 45 3A 20 20 50 52 45 53 53 20 41 |T PAGE: PRESS A|
00000840: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
00000850: 55 45 92 22 00 68 10 C2 0B A1 41 24 3A 8B 41 24 |UE.".h....A$:.A$|
00000860: B2 22 22 A7 33 30 31 30 00 6E 10 CC 0B 8E 00 74 |."".3010.n.....t|
00000870: 10 80 0C 8F 00 A0 10 8A 0C 99 22 93 45 4E 54 45 |..........".ENTE|
00000880: 52 20 54 4F 44 41 59 27 53 20 44 41 54 45 20 28 |R TODAY'S DATE (|
00000890: 4E 4F 20 43 4F 4D 4D 41 53 29 22 3A 85 58 59 24 |NO COMMAS)":.XY$|
000008A0: 00 D8 10 8F 0C 99 22 93 45 4E 54 45 52 20 50 52 |......".ENTER PR|
000008B0: 49 4E 54 45 52 20 44 45 56 49 43 45 20 4E 55 4D |INTER DEVICE NUM|
000008C0: 42 45 52 22 3A 85 44 4E 24 3A 44 4E B2 C5 28 C8 |BER":.DN$:DN..(.|
000008D0: 28 44 4E 24 2C 31 29 29 00 EC 10 90 0C 8B 44 4E |(DN$,1))......DN|
000008E0: B3 34 B0 44 4E B1 37 A7 33 32 31 35 00 2F 11 91 |.4.DN.7.3215./..|
000008F0: 0C 85 22 93 11 11 11 11 43 48 52 24 28 58 58 29 |..".....CHR$(XX)|
00000900: 20 46 4F 52 20 43 4F 4E 44 45 4E 53 45 44 20 4D | FOR CONDENSED M|
00000910: 4F 44 45 20 20 20 31 35 9D 9D 9D 9D 22 3B 44 43 |ODE 15....";DC|
00000920: 24 3A 44 43 24 B2 C7 28 C5 28 44 43 24 29 29 00 |$:DC$..(.(DC$)).|
00000930: 3F 11 94 0C A0 33 3A 9F 33 2C 44 4E 3A 98 33 00 |?....3:.3,DN:.3.|
00000940: 7F 11 95 0C 8B 53 54 A7 99 22 11 11 11 50 52 49 |.....ST.."...PRI|
00000950: 4E 54 45 52 20 4E 4F 54 20 4F 4E 2D 4C 49 4E 45 |NTER NOT ON-LINE|
00000960: 2C 20 48 49 54 20 41 20 4B 45 59 2E 22 3A 92 31 |, HIT A KEY.":.1|
00000970: 39 38 2C 31 3A 97 31 39 38 2C 2E 3A 89 32 30 00 |98,1:.198,.:.20.|
00000980: A8 11 98 0C 99 22 93 50 52 49 4E 54 49 4E 47 2C |.....".PRINTING,|
00000990: 20 48 4F 4C 44 20 44 4F 57 4E 20 46 31 20 54 4F | HOLD DOWN F1 TO|
000009A0: 20 41 42 4F 52 54 2E 22 00 DE 11 9E 0C 42 24 B2 | ABORT.".....B$.|
000009B0: 22 20 20 22 3A 41 B2 31 3A 42 B2 36 30 3A 50 4E |" ":A.1:B.60:PN|
000009C0: 24 B2 22 31 22 3A 8D 33 33 30 30 3A 8D 33 30 30 |$."1":.3300:.300|
000009D0: 30 3A 8B 4E B3 33 36 30 A7 89 33 39 39 30 00 0F |0:.N.360..3990..|
000009E0: 12 A8 0C 41 B2 33 36 31 3A 42 B2 34 32 30 3A 50 |...A.361:B.420:P|
000009F0: 4E 24 B2 22 32 22 3A 8D 33 33 30 30 3A 8D 33 30 |N$."2":.3300:.30|
00000A00: 30 30 3A 8B 4E B3 37 32 31 A7 89 33 39 39 30 00 |00:.N.721..3990.|
00000A10: 39 12 B2 0C 41 B2 37 32 31 3A 42 B2 37 38 30 3A |9...A.721:B.780:|
00000A20: 50 4E 24 B2 22 33 22 3A 8D 33 33 30 30 3A 8D 33 |PN$."3":.3300:.3|
00000A30: 30 30 30 3A 89 33 39 39 30 00 7F 12 E4 0C 98 33 |000:.3990......3|
00000A40: 2C 22 50 41 47 45 20 22 50 4E 24 22 20 20 20 20 |,"PAGE "PN$" |
00000A50: 20 20 20 20 20 22 5A 53 24 22 20 20 20 20 20 20 | "ZS$" |
00000A60: 20 20 20 22 58 59 24 22 20 20 20 20 20 20 20 22 | "XY$" "|
00000A70: 4E 22 46 49 4C 45 53 22 3A 98 33 2C 22 A0 22 00 |N"FILES":.3,".".|
00000A80: BE 12 F8 0C 81 4A B2 41 A4 42 3A 98 33 2C 44 43 |.....J.A.B:.3,DC|
00000A90: 24 3B 44 24 28 4A 29 3B 42 24 3B 44 24 28 4A AA |$;D$(J);B$;D$(J.|
00000AA0: 36 30 29 3B 42 24 3B 44 24 28 4A AA 31 32 30 29 |60);B$;D$(J.120)|
00000AB0: 3B 42 24 3B 44 24 28 4A AA 31 38 30 29 3B 00 F9 |;B$;D$(J.180);..|
00000AC0: 12 FD 0C 98 33 2C 42 24 3B 44 24 28 4A AA 32 34 |....3,B$;D$(J.24|
00000AD0: 30 29 3B 42 24 3B 44 24 28 4A AA 33 30 30 29 3B |0);B$;D$(J.300);|
00000AE0: C7 28 31 38 29 3A 8B C2 28 31 39 37 29 B2 34 A7 |.(18):..(197).4.|
00000AF0: 98 33 3A A0 33 3A 89 32 30 00 20 13 FE 0C 58 B2 |.3:.3:.20. ...X.|
00000B00: AB 28 58 B2 2E 29 3A 97 31 39 39 2C 58 3A 99 22 |.(X..):.199,X:."|
00000B10: 13 50 52 49 4E 54 49 4E 47 11 11 11 22 3A 82 4A |.PRINTING...":.J|
00000B20: 00 26 13 02 0D 8F 00 3B 13 0C 0D 81 49 49 B2 31 |.&.....;....II.1|
00000B30: A4 34 3A 98 33 3A 82 49 49 3A 8E 00 66 13 96 0F |.4:.3:.II:..f...|
00000B40: 98 33 3A A0 33 3A 99 22 11 12 45 4E 44 20 4F 46 |.3:.3:."..END OF|
00000B50: 20 4C 49 53 54 2E 20 20 50 52 45 53 53 20 41 4E | LIST. PRESS AN|
00000B60: 59 20 4B 45 59 22 00 80 13 9E 0F 41 24 B2 22 22 |Y KEY".....A$.""|
00000B70: 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 33 39 39 38 |:.A$:.A$."".3998|
00000B80: 00 86 13 9F 0F 8E 00 8C 13 A0 0F 8F 00 A7 13 AA |................|
00000B90: 0F 99 22 93 11 11 11 11 11 20 20 53 4F 52 54 20 |.."...... SORT |
00000BA0: 41 20 46 49 4C 45 22 00 C3 13 B8 0F 99 3A 99 22 |A FILE"......:."|
00000BB0: 11 20 20 12 53 4F 52 54 49 4E 47 2E 2E 2E 2E 2E |. .SORTING.....|
00000BC0: 2E 92 22 00 E0 13 B9 0F 4E 31 B2 2E 3A 4E 32 B2 |..".....N1..:N2.|
00000BD0: 2E 3A 9E 34 39 31 35 32 2C 4E 2C 44 24 28 31 29 |.:.49152,N,D$(1)|
00000BE0: 00 09 14 BE 0F 81 49 B2 31 A4 4E 3A 8B 44 24 28 |......I.1.N:.D$(|
00000BF0: 49 29 B2 50 49 24 A7 4E 31 B2 49 AB 31 3A 8D 34 |I).PI$.N1.I.1:.4|
00000C00: 31 30 30 3A 89 34 30 34 30 00 18 14 C3 0F 82 49 |100:.4040......I|
00000C10: 3A 8B 4E 31 B2 2E A7 8E 00 41 14 C8 0F 4E 32 B2 |:.N1.....A...N2.|
00000C20: 4E AB 4E 31 3A 99 22 11 11 20 22 4E 32 22 46 49 |N.N1:.".. "N2"FI|
00000C30: 4C 45 53 20 52 45 4D 4F 56 45 44 22 3A 4E B2 4E |LES REMOVED":N.N|
00000C40: 31 00 5D 14 CD 0F 99 22 11 20 20 12 20 50 52 45 |1.]....". . PRE|
00000C50: 53 53 20 41 4E 59 20 4B 45 59 20 92 22 00 71 14 |SS ANY KEY .".q.|
00000C60: D2 0F A1 41 24 3A 8B 41 24 B2 22 22 A7 34 30 35 |...A$:.A$."".405|
00000C70: 30 00 77 14 03 10 8E 00 85 14 04 10 81 49 B2 31 |0.w..........I.1|
00000C80: A4 31 30 38 30 00 B2 14 0E 10 8B 44 24 28 49 29 |.1080......D$(I)|
00000C90: B2 50 49 24 A7 44 24 28 49 29 B2 22 20 20 20 20 |.PI$.D$(I)." |
00000CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CB0: 20 22 00 BB 14 18 10 82 49 3A 8E 00 C1 14 88 13 | "......I:......|
00000CC0: 8F 00 E5 14 92 13 99 22 93 11 11 11 11 11 20 20 |......."...... |
00000CD0: 53 45 41 52 43 48 20 46 4F 52 20 46 49 4C 45 20 |SEARCH FOR FILE |
00000CE0: 4E 41 4D 45 22 00 00 15 9C 13 8F 47 45 54 41 24 |NAME"......GETA$|
00000CF0: 3A 49 46 41 24 3D 22 22 54 48 45 4E 35 30 32 30 |:IFA$=""THEN5020|
00000D00: 00 20 15 A6 13 99 22 45 4E 54 45 52 20 4E 41 4D |. ...."ENTER NAM|
00000D10: 45 20 54 4F 20 53 45 41 52 43 48 20 46 4F 52 22 |E TO SEARCH FOR"|
00000D20: 00 39 15 B0 13 53 4E 24 B2 22 22 3A 85 53 4E 24 |.9...SN$."":.SN$|
00000D30: 3A 5A B2 C3 28 53 4E 24 29 00 5B 15 BA 13 81 49 |:Z..(SN$).[....I|
00000D40: B2 31 A4 4E 3A 8B C8 28 44 24 28 49 29 2C 5A 29 |.1.N:..(D$(I),Z)|
00000D50: B2 53 4E 24 A7 99 44 24 28 49 29 00 6E 15 BB 13 |.SN$..D$(I).n...|
00000D60: 8B C2 28 36 35 33 29 B2 31 A7 35 30 35 31 00 96 |..(653).1.5051..|
00000D70: 15 BC 13 82 49 3A 99 22 11 12 45 4E 44 20 4F 46 |....I:."..END OF|
00000D80: 20 4C 49 53 54 2E 20 20 50 52 45 53 53 20 41 4E | LIST. PRESS AN|
00000D90: 59 20 4B 45 59 22 00 AA 15 CE 13 A1 41 24 3A 8B |Y KEY"......A$:.|
00000DA0: 41 24 B2 22 22 A7 35 30 37 30 00 B0 15 7B 15 8E |A$."".5070...{..|
00000DB0: 00 B6 15 7C 15 8F 00 DC 15 86 15 99 22 93 11 11 |...|........"...|
00000DC0: 11 11 11 20 20 53 45 41 52 43 48 20 46 4F 52 20 |... SEARCH FOR |
00000DD0: 44 49 53 4B 20 4E 55 4D 42 45 52 22 00 01 16 9A |DISK NUMBER"....|
00000DE0: 15 99 22 45 4E 54 45 52 20 33 20 43 48 52 2E 20 |.."ENTER 3 CHR. |
00000DF0: 49 44 20 54 4F 20 53 45 41 52 43 48 20 46 4F 52 |ID TO SEARCH FOR|
00000E00: 22 00 1A 16 A4 15 53 4E 24 B2 22 22 3A 85 53 4E |".....SN$."":.SN|
00000E10: 24 3A 5A B2 C3 28 53 4E 24 29 00 3F 16 AE 15 81 |$:Z..(SN$).?....|
00000E20: 49 B2 31 A4 4E 3A 8B CA 28 44 24 28 49 29 2C 31 |I.1.N:..(D$(I),1|
00000E30: 38 2C 5A 29 B2 53 4E 24 A7 99 44 24 28 49 29 00 |8,Z).SN$..D$(I).|
00000E40: 52 16 AF 15 8B C2 28 36 35 33 29 B2 31 A7 35 35 |R.....(653).1.55|
00000E50: 35 31 00 7A 16 B0 15 82 49 3A 99 22 11 12 45 4E |51.z....I:."..EN|
00000E60: 44 20 4F 46 20 4C 49 53 54 2E 20 20 50 52 45 53 |D OF LIST. PRES|
00000E70: 53 20 41 4E 59 20 4B 45 59 22 00 8E 16 C2 15 A1 |S ANY KEY"......|
00000E80: 41 24 3A 8B 41 24 B2 22 22 A7 35 35 37 30 00 94 |A$:.A$."".5570..|
00000E90: 16 6F 17 8E 00 9A 16 70 17 8F 00 B5 16 71 17 44 |.o.....p.....q.D|
00000EA0: B2 38 3A 44 44 24 B2 22 30 22 3A 8B 44 31 B2 38 |.8:DD$."0":.D1.8|
00000EB0: A7 36 30 30 34 00 E4 16 72 17 99 22 93 57 48 41 |.6004...r..".WHA|
00000EC0: 54 20 44 45 56 49 43 45 20 28 38 20 4F 52 20 39 |T DEVICE (8 OR 9|
00000ED0: 29 22 3B 3A 85 44 24 3A 44 B2 C5 28 C8 28 44 24 |)";:.D$:D..(.(D$|
00000EE0: 2C 31 29 29 00 F6 16 73 17 8B 44 B3 38 B0 44 B1 |,1))...s..D.8.D.|
00000EF0: 39 A7 36 30 30 32 00 09 17 74 17 8B 44 32 24 B2 |9.6002...t..D2$.|
00000F00: 22 30 3A 22 A7 36 30 30 38 00 32 17 75 17 99 22 |"0:".6008.2.u.."|
00000F10: 93 57 48 41 54 20 44 52 49 56 45 20 28 30 20 4F |.WHAT DRIVE (0 O|
00000F20: 52 20 31 2C 20 2A 20 46 4F 52 20 42 4F 54 48 29 |R 1, * FOR BOTH)|
00000F30: 22 3B 00 4A 17 76 17 85 44 44 24 3A 44 52 B2 C5 |";.J.v..DD$:DR..|
00000F40: 28 C8 28 44 44 24 2C 31 29 29 00 5E 17 77 17 8B |(.(DD$,1)).^.w..|
00000F50: 44 52 B3 2E B0 44 52 B1 31 A7 36 30 30 34 00 75 |DR...DR.1.6004.u|
00000F60: 17 78 17 97 38 33 39 2C C6 28 44 44 24 29 3A 97 |.x..839,.(DD$):.|
00000F70: 38 34 36 2C 44 00 9F 17 83 17 99 22 93 49 53 20 |846,D......".IS |
00000F80: 54 48 45 20 43 4F 52 52 45 43 54 20 44 49 53 4B |THE CORRECT DISK|
00000F90: 20 49 4E 20 54 48 45 20 44 52 49 56 45 3F 22 00 | IN THE DRIVE?".|
00000FA0: B5 17 84 17 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 |.....A$:.A$.."Y"|
00000FB0: A7 36 30 32 30 00 DB 17 85 17 9F 31 35 2C 44 2C |.6020......15,D,|
00000FC0: 31 35 2C 22 49 22 AA 44 44 24 3A 84 31 35 2C 45 |15,"I".DD$:.15,E|
00000FD0: 2C 45 24 2C 46 2C 47 3A A0 31 35 00 09 18 86 17 |,E$,F,G:.15.....|
00000FE0: 8B 45 B3 B1 2E A7 99 22 20 20 20 20 20 20 20 20 |.E....." |
00000FF0: 22 45 22 20 22 45 24 22 20 22 46 22 20 22 47 3A |"E" "E$" "F" "G:|
00001000: A0 31 35 3A 89 36 30 34 30 00 12 18 8E 17 9E 38 |.15:.6040......8|
00001010: 32 38 00 37 18 98 17 99 A3 38 29 22 11 12 50 52 |28.7.....8)"..PR|
00001020: 45 53 53 20 41 4E 59 20 4B 45 59 20 57 48 45 4E |ESS ANY KEY WHEN|
00001030: 20 52 45 41 44 59 22 00 4B 18 A2 17 A1 41 24 3A | READY".K....A$:|
00001040: 8B 41 24 B2 22 22 A7 36 30 35 30 00 51 18 AC 17 |.A$."".6050.Q...|
00001050: 8E 00 57 18 58 1B 8F 00 7B 18 62 1B 99 22 93 11 |..W.X...{.b.."..|
00001060: 11 11 1E 20 20 20 20 20 20 20 20 20 20 41 44 44 |... ADD|
00001070: 20 46 52 4F 4D 20 44 49 53 4B 22 00 AB 18 63 1B | FROM DISK"...c.|
00001080: 99 22 11 46 49 4C 45 53 22 4E 3B 3A 8B 49 34 24 |.".FILES"N;:.I4$|
00001090: B3 B1 22 41 22 A7 99 22 2D 20 4C 41 53 54 20 49 |.."A".."- LAST I|
000010A0: 44 20 55 53 45 44 20 22 49 34 24 00 DC 18 64 1B |D USED "I4$...d.|
000010B0: 99 3A 99 22 11 50 4C 41 43 45 20 44 49 53 4B 20 |.:.".PLACE DISK |
000010C0: 54 4F 20 42 45 20 52 45 41 44 20 49 4E 54 4F 20 |TO BE READ INTO |
000010D0: 44 52 49 56 45 20 38 20 41 4E 44 22 00 17 19 65 |DRIVE 8 AND"...e|
000010E0: 1B 99 22 11 49 4E 50 55 54 20 41 20 54 48 52 45 |..".INPUT A THRE|
000010F0: 45 20 43 48 41 52 41 43 54 45 52 20 49 44 20 12 |E CHARACTER ID .|
00001100: 28 41 3D 41 42 4F 52 54 29 92 22 3A 99 22 11 20 |(A=ABORT).":.". |
00001110: 20 20 20 2D 2D 2D 22 00 37 19 66 1B 49 34 24 B2 | ---".7.f.I4$.|
00001120: 22 22 3A 85 22 20 20 22 3B 49 34 24 3A 8B 49 34 |"":." ";I4$:.I4|
00001130: 24 B2 22 41 22 A7 8E 00 48 19 67 1B 8B 49 34 24 |$."A"...H.g..I4$|
00001140: B2 22 22 A7 37 30 30 30 00 5C 19 68 1B 8B C3 28 |."".7000.\.h...(|
00001150: 49 34 24 29 B3 B1 33 A7 37 30 30 30 00 75 19 69 |I4$)..3.7000.u.i|
00001160: 1B 99 22 11 20 51 55 45 52 59 3F 20 28 59 2F 4E |..". QUERY? (Y/N|
00001170: 29 20 20 22 3B 00 8B 19 6A 1B A1 51 55 24 3A 8B |) ";...j..QU$:.|
00001180: 51 55 24 B2 22 22 A7 37 30 31 38 00 A7 19 6B 1B |QU$."".7018...k.|
00001190: 8B 51 55 24 B3 B1 22 59 22 AF 51 55 24 B3 B1 22 |.QU$.."Y".QU$.."|
000011A0: 4E 22 A7 37 30 31 38 00 AD 19 6C 1B 8F 00 C1 19 |N".7018...l.....|
000011B0: 6D 1B 8B C3 28 49 34 24 29 B3 B1 33 A7 37 30 30 |m...(I4$)..3.700|
000011C0: 30 00 EA 19 6E 1B 8B 51 55 24 B2 22 59 22 A7 99 |0...n..QU$."Y"..|
000011D0: 22 12 28 59 2F 4E 2F 45 2F 46 31 3D 41 42 4F 52 |".(Y/N/E/F1=ABOR|
000011E0: 54 29 92 22 3A 89 37 30 33 30 00 07 1A 6F 1B 8B |T).":.7030...o..|
000011F0: 51 55 24 B2 22 4E 22 A7 99 22 12 28 46 31 3D 41 |QU$."N"..".(F1=A|
00001200: 42 4F 52 54 29 92 22 00 2A 1A 76 1B 9F 31 35 2C |BORT).".*.v..15,|
00001210: 38 2C 31 35 2C 22 49 30 22 3A 84 31 35 2C 45 2C |8,15,"I0":.15,E,|
00001220: 45 24 2C 46 2C 47 3A A0 31 35 00 55 1A 77 1B 8B |E$,F,G:.15.U.w..|
00001230: 45 B3 B1 2E A7 99 22 11 20 20 20 22 45 22 20 12 |E.....". "E" .|
00001240: 22 45 24 22 92 20 22 46 22 20 22 47 22 20 22 3A |"E$". "F" "G" ":|
00001250: 89 37 33 35 30 00 6B 1A 80 1B 9F 37 2C 38 2C 2E |.7350.k....7,8,.|
00001260: 2C 22 24 30 22 3A 89 37 33 36 30 00 79 1A 8A 1B |,"$0":.7360.y...|
00001270: A1 23 37 2C 41 24 2C 42 24 00 87 1A 94 1B A1 23 |.#7,A$,B$......#|
00001280: 37 2C 41 24 2C 42 24 00 95 1A 9E 1B A1 23 37 2C |7,A$,B$......#7,|
00001290: 41 24 2C 42 24 00 B5 1A A8 1B 43 B2 2E 3A 46 53 |A$,B$.....C..:FS|
000012A0: 24 B2 22 22 3A 4E 46 24 B2 22 22 3A 58 58 B2 2E |$."":NF$."":XX..|
000012B0: 3A 58 B2 58 58 00 C9 1A B2 1B 8B 41 24 B3 B1 22 |:X.XX......A$.."|
000012C0: 22 A7 43 B2 C6 28 41 24 29 00 E3 1A BC 1B 8B 42 |".C..(A$)......B|
000012D0: 24 B3 B1 22 22 A7 43 B2 43 AA C6 28 42 24 29 AC |$.."".C.C..(B$).|
000012E0: 32 35 36 00 F5 1A C6 1B 46 53 24 B2 CA 28 C4 28 |256.....FS$..(.(|
000012F0: 43 29 2C 32 29 00 01 1B 0C 1C 99 22 20 20 20 22 |C),2)......" "|
00001300: 3B 00 2E 1B 16 1C 8B C5 28 46 53 24 29 B3 31 30 |;.......(FS$).10|
00001310: A7 46 53 24 B2 46 53 24 AA 22 20 20 20 20 20 20 |.FS$.FS$." |
00001320: 20 22 3A 99 46 53 24 3B 3A 89 37 32 32 30 00 59 | ":.FS$;:.7220.Y|
00001330: 1B 20 1C 8B C5 28 46 53 24 29 B1 39 39 A7 46 53 |. ...(FS$).99.FS|
00001340: 24 B2 46 53 24 AA 22 20 20 20 20 20 22 3A 99 46 |$.FS$." ":.F|
00001350: 53 24 3B 3A 89 37 32 32 30 00 74 1B 2A 1C 46 53 |S$;:.7220.t.*.FS|
00001360: 24 B2 46 53 24 AA 22 20 20 20 20 20 20 22 3A 99 |$.FS$." ":.|
00001370: 46 53 24 3B 00 92 1B 34 1C 42 24 B2 22 22 3A A1 |FS$;...4.B$."":.|
00001380: 23 37 2C 42 24 3A 8B 53 54 20 AF 36 34 A7 37 33 |#7,B$:.ST .64.73|
00001390: 33 30 00 A6 1B 3E 1C 8B 42 24 B3 B1 C7 28 33 34 |30...>..B$...(34|
000013A0: 29 A7 37 32 32 30 00 D4 1B 48 1C A1 23 37 2C 42 |).7220...H..#7,B|
000013B0: 24 3A 8B 42 24 B3 B1 C7 28 33 34 29 A7 8D 34 30 |$:.B$...(34)..40|
000013C0: 30 30 30 3A 4E 46 24 B2 4E 46 24 AA 42 24 3A 89 |000:NF$.NF$.B$:.|
000013D0: 37 32 34 30 00 F2 1B 52 1C 50 44 24 B2 22 2E 2E |7240...R.PD$."..|
000013E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000013F0: 2E 22 00 1E 1C 5C 1C 8B C8 28 4E 46 24 2C 31 29 |."...\...(NF$,1)|
00001400: B2 22 20 22 A7 4E 46 24 B2 C9 28 4E 46 24 2C C3 |." ".NF$..(NF$,.|
00001410: 28 4E 46 24 29 AB 31 29 3A 89 37 32 36 30 00 4A |(NF$).1):.7260.J|
00001420: 1C 5D 1C 8B C9 28 4E 46 24 2C 31 29 B2 22 20 22 |.]...(NF$,1)." "|
00001430: A7 4E 46 24 B2 C8 28 4E 46 24 2C C3 28 4E 46 24 |.NF$..(NF$,.(NF$|
00001440: 29 AB 31 29 3A 89 37 32 36 31 00 7A 1C 61 1C 58 |).1):.7261.z.a.X|
00001450: B2 C3 28 4E 46 24 29 3A 58 58 B2 31 38 AB 58 3A |..(NF$):XX.18.X:|
00001460: 4E 46 24 B2 4E 46 24 AA C8 28 50 44 24 2C 58 58 |NF$.NF$..(PD$,XX|
00001470: 29 3A 99 4E 46 24 22 20 22 3B 00 94 1C 66 1C A1 |):.NF$" ";...f..|
00001480: 23 37 2C 42 24 3A 8B 42 24 B2 C7 28 33 32 29 A7 |#7,B$:.B$..(32).|
00001490: 37 32 37 30 00 9E 1C 70 1C 43 24 B2 22 22 00 BF |7270...p.C$.""..|
000014A0: 1C 7A 1C 43 24 B2 43 24 AA 42 24 3A A1 23 37 2C |.z.C$.C$.B$:.#7,|
000014B0: 42 24 3A 8B 42 24 B3 B1 22 22 A7 37 32 39 30 00 |B$:.B$.."".7290.|
000014C0: CC 1C 84 1C 99 C8 28 43 24 2C 31 29 00 D2 1C 8E |......(C$,1)....|
000014D0: 1C 8F 00 E4 1C 98 1C 8B A8 53 54 20 AF 36 34 A7 |.........ST .64.|
000014E0: 37 35 30 30 00 FB 1C A2 1C 99 22 2D 2D 2D 20 42 |7500......"--- B|
000014F0: 4C 4F 43 4B 53 20 46 52 45 45 22 00 01 1D AC 1C |LOCKS FREE".....|
00001500: 8F 00 2A 1D B6 1C A0 37 3A 99 22 11 11 20 20 20 |..*....7:.".. |
00001510: 12 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 |.HIT ANY KEY TO |
00001520: 43 4F 4E 54 49 4E 55 45 92 22 00 3E 1D B8 1C A1 |CONTINUE.".>....|
00001530: 41 24 3A 8B 41 24 B2 22 22 A7 37 33 35 32 00 48 |A$:.A$."".7352.H|
00001540: 1D B9 1C 89 37 30 30 30 00 5C 1D C0 1C A1 23 37 |....7000.\....#7|
00001550: 2C 41 24 2C 41 24 2C 41 24 2C 41 24 00 77 1D CA |,A$,A$,A$,A$.w..|
00001560: 1C A1 23 37 2C 41 24 3A 8B 41 24 B3 B1 C7 28 33 |..#7,A$:.A$...(3|
00001570: 34 29 A7 37 33 37 30 00 91 1D D4 1C A1 23 37 2C |4).7370......#7,|
00001580: 41 24 3A 8B 41 24 B2 C7 28 33 34 29 A7 37 34 30 |A$:.A$..(34).740|
00001590: 30 00 A6 1D DE 1C 4E 4E 24 B2 4E 4E 24 AA 41 24 |0.....NN$.NN$.A$|
000015A0: 3A 89 37 33 38 30 00 B1 1D E8 1C A1 23 37 2C 41 |:.7380......#7,A|
000015B0: 24 00 C9 1D F2 1C A1 23 37 2C 41 24 2C 42 24 3A |$......#7,A$,B$:|
000015C0: 49 44 24 B2 41 24 AA 42 24 00 F9 1D FC 1C 99 3A |ID$.A$.B$......:|
000015D0: 50 24 B2 22 20 20 20 4E 41 4D 45 3A 22 3A 99 50 |P$." NAME:":.P|
000015E0: 24 AA 4E 4E 24 2C 3A 50 24 B2 22 9D 9D 49 44 3A |$.NN$,:P$."..ID:|
000015F0: 22 3A 99 50 24 AA 49 44 24 00 0C 1E 06 1D 50 24 |":.P$.ID$.....P$|
00001600: B2 22 22 3A 4E 4E 24 B2 22 22 3A 99 00 36 1E 10 |."":NN$."":..6..|
00001610: 1D 99 22 20 20 20 12 53 49 5A 45 20 20 20 20 4E |.." .SIZE N|
00001620: 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |AME |
00001630: 54 59 50 45 92 22 00 50 1E 2E 1D A1 23 37 2C 41 |TYPE.".P....#7,A|
00001640: 24 2C 41 24 2C 41 24 2C 41 24 3A 89 37 30 36 30 |$,A$,A$,A$:.7060|
00001650: 00 6B 1E 4C 1D 8B 51 55 24 B2 22 4E 22 A7 41 4E |.k.L..QU$."N".AN|
00001660: 24 B2 22 59 22 3A 89 37 35 33 30 00 81 1E 56 1D |$."Y":.7530...V.|
00001670: A1 41 4E 24 3A 8B 41 4E 24 B2 22 22 A7 37 35 31 |.AN$:.AN$."".751|
00001680: 30 00 BD 1E 60 1D 8B 41 4E 24 B2 22 4E 22 A7 99 |0...`..AN$."N"..|
00001690: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
000016A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000016B0: 20 20 20 20 20 91 22 3A 89 37 30 36 30 00 D6 1E | .":.7060...|
000016C0: 6A 1D 8B 41 4E 24 B2 22 59 22 A7 4E B2 4E AA 31 |j..AN$."Y".N.N.1|
000016D0: 3A 89 37 35 34 30 00 EF 1E 6E 1D 8B 41 4E 24 B2 |:.7540...n..AN$.|
000016E0: 22 45 22 A7 4E B2 4E AA 31 3A 89 37 36 30 30 00 |"E".N.N.1:.7600.|
000016F0: 01 1F 6F 1D 8B 41 4E 24 B2 46 31 24 A7 37 33 35 |..o..AN$.F1$.735|
00001700: 30 00 0B 1F 70 1D 89 37 35 31 30 00 38 1F 74 1D |0...p..7510.8.t.|
00001710: 8B 4E B1 31 30 37 39 A7 99 3A 99 22 12 2A 20 46 |.N.1079..:.".* F|
00001720: 49 4C 45 20 46 55 4C 4C 21 20 2A 92 22 3A A0 37 |ILE FULL! *.":.7|
00001730: 3A A0 31 35 3A 89 32 30 00 54 1F 75 1D 44 24 28 |:.15:.20.T.u.D$(|
00001740: 4E 29 B2 C8 28 4E 46 24 2C 31 36 29 AA 22 2E 22 |N)..(NF$,16)."."|
00001750: AA 49 34 24 00 6B 1F 79 1D A1 41 42 24 3A 8B 41 |.I4$.k.y..AB$:.A|
00001760: 42 24 B2 46 31 24 A7 37 33 35 30 00 75 1F 7E 1D |B$.F1$.7350.u.~.|
00001770: 89 37 30 36 30 00 87 1F B0 1D 99 22 20 20 20 12 |.7060......" .|
00001780: 45 44 49 54 92 22 3B 00 B3 1F B5 1D 8B C9 28 4E |EDIT.";.......(N|
00001790: 46 24 2C 31 29 B2 22 2E 22 A7 4E 46 24 B2 C8 28 |F$,1).".".NF$..(|
000017A0: 4E 46 24 2C C3 28 4E 46 24 29 AB 31 29 3A 89 37 |NF$,.(NF$).1):.7|
000017B0: 36 30 35 00 C2 1F B6 1D 99 22 20 20 20 20 22 4E |605......" "N|
000017C0: 46 24 00 F6 1F BA 1D 85 22 91 1D 1D 1D 1D 1D 1D |F$......".......|
000017D0: 1D 1D 1D 22 3B 4E 4D 24 3A 4E 4D 24 B2 4E 4D 24 |...";NM$:NM$.NM$|
000017E0: AA 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |."..............|
000017F0: 2E 2E 2E 2E 2E 22 00 0E 20 C4 1D 4E 46 24 B2 C8 |.....".. ..NF$..|
00001800: 28 4E 4D 24 2C 31 36 29 3A 89 37 35 34 30 00 14 |(NM$,16):.7540..|
00001810: 20 40 1F 8F 00 32 20 4A 1F 99 22 93 11 11 11 11 | @...2 J..".....|
00001820: 11 11 20 20 20 52 45 4D 4F 56 45 20 4E 41 4D 45 |.. REMOVE NAME|
00001830: 53 22 00 53 20 54 1F 99 22 11 11 20 20 44 45 4C |S".S T..".. DEL|
00001840: 45 54 45 20 12 4E 92 41 4D 45 20 4F 52 20 12 49 |ETE .N.AME OR .I|
00001850: 92 44 22 00 6D 20 5E 1F 41 24 B2 22 22 3A A1 41 |.D".m ^.A$."":.A|
00001860: 24 3A 8B 41 24 B2 22 22 A7 38 30 33 30 00 7E 20 |$:.A$."".8030.~ |
00001870: 68 1F 8B 41 24 B2 22 4E 22 A7 38 31 30 30 00 8F |h..A$."N".8100..|
00001880: 20 72 1F 8B 41 24 B2 22 49 22 A7 38 32 30 30 00 | r..A$."I".8200.|
00001890: 99 20 7C 1F 89 38 30 33 30 00 9F 20 A4 1F 8F 00 |. |..8030.. ....|
000018A0: D1 20 AE 1F 99 22 93 11 11 11 11 11 1D 1D 1D 49 |. ...".........I|
000018B0: 4E 50 55 54 20 4E 41 4D 45 20 54 4F 20 52 45 4D |NPUT NAME TO REM|
000018C0: 4F 56 45 20 4F 52 20 45 44 49 54 22 3A 41 31 B2 |OVE OR EDIT":A1.|
000018D0: 2E 00 EA 20 B8 1F 52 4E 24 B2 22 22 3A 85 52 4E |... ..RN$."":.RN|
000018E0: 24 3A 5A B2 C3 28 52 4E 24 29 00 22 21 C2 1F 81 |$:Z..(RN$)."!...|
000018F0: 49 B2 31 A4 4E 3A 8B C8 28 44 24 28 49 29 2C 5A |I.1.N:..(D$(I),Z|
00001900: 29 B2 52 4E 24 A7 99 44 24 28 49 29 22 20 12 28 |).RN$..D$(I)" .(|
00001910: 59 2F 4E 2F 45 2F 46 31 29 92 22 3B 3A 89 38 31 |Y/N/E/F1).";:.81|
00001920: 34 30 00 2C 21 C7 1F 89 38 31 38 30 00 40 21 CC |40.,!...8180.@!.|
00001930: 1F A1 41 24 3A 8B 41 24 B2 22 22 A7 38 31 34 30 |..A$:.A$."".8140|
00001940: 00 58 21 D6 1F 8B 41 24 B2 22 4E 22 A7 99 22 20 |.X!...A$."N".." |
00001950: 4E 22 3A 89 38 31 38 30 00 7F 21 E0 1F 8B 41 24 |N":.8180..!...A$|
00001960: B2 22 59 22 A7 44 24 28 49 29 B2 50 49 24 3A 99 |."Y".D$(I).PI$:.|
00001970: 22 20 59 22 3A 41 31 B2 31 3A 89 38 31 38 30 00 |" Y":A1.1:.8180.|
00001980: 90 21 E2 1F 8B 41 24 B2 22 45 22 A7 38 31 39 32 |.!...A$."E".8192|
00001990: 00 A1 21 E5 1F 8B 41 24 B2 46 31 24 A7 38 31 39 |..!...A$.F1$.819|
000019A0: 30 00 AB 21 EA 1F 89 38 31 34 30 00 B2 21 F4 1F |0..!...8140..!..|
000019B0: 82 49 00 C4 21 FE 1F 8B 41 31 B2 31 A7 99 3A 8D |.I..!...A1.1..:.|
000019C0: 34 30 32 34 00 CA 21 FF 1F 8E 00 DE 21 00 20 4E |4024..!.....!. N|
000019D0: 4D 24 B2 C8 28 44 24 28 49 29 2C 31 36 29 00 0A |M$..(D$(I),16)..|
000019E0: 22 01 20 8B C9 28 4E 4D 24 2C 31 29 B2 22 2E 22 |". ..(NM$,1)."."|
000019F0: A7 4E 4D 24 B2 C8 28 4E 4D 24 2C C3 28 4E 4D 24 |.NM$..(NM$,.(NM$|
00001A00: 29 AB 31 29 3A 89 38 31 39 33 00 33 22 03 20 99 |).1):.8193.3". .|
00001A10: 3A 99 22 11 20 3E 12 45 44 49 54 92 2D 2D 2D 2D |:.". >.EDIT.----|
00001A20: 2D 2D 2D 2D 2D 2D 2D 2D 3C 22 3A 99 22 20 20 22 |--------<":." "|
00001A30: 4E 4D 24 00 6D 22 06 20 85 22 91 22 3B 4E 4D 24 |NM$.m". .".";NM$|
00001A40: 3A 4E 4D 24 B2 4E 4D 24 AA 22 2E 2E 2E 2E 2E 2E |:NM$.NM$."......|
00001A50: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A 4E |.............":N|
00001A60: 4F 24 B2 C9 28 44 24 28 49 29 2C 34 29 00 90 22 |O$..(D$(I),4).."|
00001A70: 07 20 44 24 28 49 29 B2 C8 28 4E 4D 24 2C 31 37 |. D$(I)..(NM$,17|
00001A80: 29 AA 4E 4F 24 3A 41 31 B2 31 3A 89 38 31 38 30 |).NO$:A1.1:.8180|
00001A90: 00 96 22 08 20 8F 00 C6 22 12 20 99 22 93 11 11 |..". ...". ."...|
00001AA0: 11 11 11 1D 1D 1D 49 4E 50 55 54 20 49 44 20 4F |......INPUT ID O|
00001AB0: 46 20 44 49 53 4B 20 54 4F 20 52 45 4D 4F 56 45 |F DISK TO REMOVE|
00001AC0: 22 3A 41 31 B2 2E 00 DF 22 1C 20 52 4E 24 B2 22 |":A1....". RN$."|
00001AD0: 22 3A 85 52 4E 24 3A 5A B2 C3 28 52 4E 24 29 00 |":.RN$:Z..(RN$).|
00001AE0: F0 22 21 20 8B 52 4E 24 B2 22 22 A7 38 32 31 30 |."! .RN$."".8210|
00001AF0: 00 2F 23 26 20 81 49 B2 31 A4 4E 3A 8B CA 28 44 |./#& .I.1.N:..(D|
00001B00: 24 28 49 29 2C 31 38 2C 5A 29 B2 52 4E 24 A7 99 |$(I),18,Z).RN$..|
00001B10: 44 24 28 49 29 22 20 12 28 59 2F 4E 2F 46 31 3D |D$(I)" .(Y/N/F1=|
00001B20: 41 42 4F 52 54 29 92 22 3B 3A 89 38 32 34 30 00 |ABORT).";:.8240.|
00001B30: 39 23 2B 20 89 38 32 38 30 00 4D 23 30 20 A1 41 |9#+ .8280.M#0 .A|
00001B40: 24 3A 8B 41 24 B2 22 22 A7 38 32 34 30 00 65 23 |$:.A$."".8240.e#|
00001B50: 3A 20 8B 41 24 B2 22 4E 22 A7 99 22 20 4E 22 3A |: .A$."N".." N":|
00001B60: 89 38 32 38 30 00 8C 23 44 20 8B 41 24 B2 22 59 |.8280..#D .A$."Y|
00001B70: 22 A7 44 24 28 49 29 B2 50 49 24 3A 99 22 20 59 |".D$(I).PI$:." Y|
00001B80: 22 3A 41 31 B2 31 3A 89 38 32 38 30 00 9D 23 49 |":A1.1:.8280..#I|
00001B90: 20 8B 41 24 B2 46 31 24 A7 38 32 39 30 00 A7 23 | .A$.F1$.8290..#|
00001BA0: 4E 20 89 38 32 34 30 00 AE 23 58 20 82 49 00 BE |N .8240..#X .I..|
00001BB0: 23 62 20 8B 41 31 B2 31 A7 8D 34 30 32 34 00 C4 |#b .A1.1..4024..|
00001BC0: 23 67 20 8E 00 CF 23 28 23 8D 31 31 30 30 30 00 |#g ...#(#.11000.|
00001BD0: DE 23 2D 23 8B 41 24 B2 22 41 22 A7 32 30 00 01 |.#-#.A$."A".20..|
00001BE0: 24 32 23 9F 31 35 2C 44 31 2C 31 35 3A 98 31 35 |$2#.15,D1,15:.15|
00001BF0: 2C 22 53 22 44 32 24 AA 5A 53 24 AA 22 2E 42 55 |,"S"D2$.ZS$.".BU|
00001C00: 22 00 22 24 3C 23 98 31 35 2C 22 52 22 44 32 24 |"."$<#.15,"R"D2$|
00001C10: AA 5A 53 24 AA 22 2E 42 55 3D 22 44 32 24 AA 5A |.ZS$.".BU="D2$.Z|
00001C20: 53 24 00 3D 24 46 23 9F 38 2C 44 31 2C 38 2C 44 |S$.=$F#.8,D1,8,D|
00001C30: 32 24 AA 5A 53 24 AA 22 2C 53 2C 57 22 00 4A 24 |2$.ZS$.",S,W".J$|
00001C40: 50 23 84 31 35 2C 45 2C 45 24 00 7F 24 51 23 8B |P#.15,E,E$..$Q#.|
00001C50: 45 B1 2E A7 A0 38 3A A0 31 35 3A 99 22 11 20 20 |E....8:.15:.". |
00001C60: 20 20 20 20 12 22 45 24 22 20 50 52 45 53 53 20 | ."E$" PRESS |
00001C70: 41 4E 59 20 4B 45 59 92 22 3A 89 39 30 34 33 00 |ANY KEY.":.9043.|
00001C80: 89 24 52 23 89 39 30 35 30 00 9D 24 53 23 A1 41 |.$R#.9050..$S#.A|
00001C90: 24 3A 8B 41 24 B2 22 22 A7 39 30 34 33 00 A3 24 |$:.A$."".9043..$|
00001CA0: 54 23 8E 00 C9 24 5A 23 99 22 93 12 22 5A 5A 24 |T#...$Z#.".."ZZ$|
00001CB0: 3B 3A 99 22 92 20 53 41 56 49 4E 47 22 4E 22 46 |;:.". SAVING"N"F|
00001CC0: 49 4C 45 20 4E 41 4D 45 53 00 FB 24 64 23 98 38 |ILE NAMES..$d#.8|
00001CD0: 2C 4E 3A 81 49 B2 31 A4 4E 3A 98 38 2C 44 24 28 |,N:.I.1.N:.8,D$(|
00001CE0: 49 29 3A 99 22 13 11 11 22 43 45 24 44 24 28 49 |I):."..."CE$D$(I|
00001CF0: 29 22 20 20 20 20 20 22 49 3A 82 00 08 25 6E 23 |)" "I:...%n#|
00001D00: A0 38 3A A0 31 35 3A 8E 00 0E 25 1C 25 8F 00 30 |.8:.15:...%.%..0|
00001D10: 25 1D 25 99 22 93 11 11 11 11 11 11 20 20 4C 4F |%.%."....... LO|
00001D20: 41 44 20 46 49 4C 45 20 12 28 59 2F 4E 29 92 22 |AD FILE .(Y/N)."|
00001D30: 00 4A 25 1E 25 41 24 B2 22 22 3A A1 41 24 3A 8B |.J%.%A$."":.A$:.|
00001D40: 41 24 B2 22 22 A7 39 35 30 32 00 5B 25 1F 25 8B |A$."".9502.[%.%.|
00001D50: 41 24 B2 22 59 22 A7 39 35 30 35 00 61 25 20 25 |A$."Y".9505.a% %|
00001D60: 8E 00 7A 25 21 25 8B 41 41 B2 31 A7 9C 3A 41 41 |..z%!%.AA.1..:AA|
00001D70: B2 31 3A 42 42 B2 31 3A 8D 31 00 85 25 26 25 8D |.1:BB.1:.1..%&%.|
00001D80: 31 30 30 30 30 00 93 25 2B 25 8B 41 24 B2 22 41 |10000..%+%.A$."A|
00001D90: 22 A7 8E 00 A6 25 2C 25 9F 31 35 2C 44 31 2C 31 |"....%,%.15,D1,1|
00001DA0: 35 3A 41 41 B2 31 00 C1 25 2F 25 9F 38 2C 44 31 |5:AA.1..%/%.8,D1|
00001DB0: 2C 38 2C 44 32 24 AA 5A 53 24 AA 22 2C 53 2C 52 |,8,D2$.ZS$.",S,R|
00001DC0: 22 00 D2 25 30 25 84 31 35 2C 45 2C 45 24 2C 47 |"..%0%.15,E,E$,G|
00001DD0: 2C 48 00 0C 26 3A 25 8B 45 B1 2E A7 A0 38 3A A0 |,H..&:%.E....8:.|
00001DE0: 31 35 3A 99 22 11 20 20 20 20 20 20 12 22 45 24 |15:.". ."E$|
00001DF0: 22 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 92 |" PRESS ANY KEY.|
00001E00: 22 3A 42 42 B2 31 3A 89 39 35 33 32 00 16 26 3B |":BB.1:.9532..&;|
00001E10: 25 89 39 35 34 30 00 2A 26 3C 25 A1 41 24 3A 8B |%.9540.*&<%.A$:.|
00001E20: 41 24 B2 22 22 A7 39 35 33 32 00 37 26 3D 25 8B |A$."".9532.7&=%.|
00001E30: 42 42 B2 31 A7 32 30 00 3D 26 44 25 8F 00 67 26 |BB.1.20.=&D%..g&|
00001E40: 4E 25 84 38 2C 4E 3A 99 22 93 12 22 5A 5A 24 3B |N%.8,N:.".."ZZ$;|
00001E50: 22 92 20 4C 4F 41 44 49 4E 47 22 4E 22 46 49 4C |". LOADING"N"FIL|
00001E60: 45 20 4E 41 4D 45 53 00 98 26 58 25 81 49 B2 31 |E NAMES..&X%.I.1|
00001E70: A4 4E 3A 84 38 2C 44 24 28 49 29 3A 99 22 13 11 |.N:.8,D$(I):."..|
00001E80: 11 22 44 24 28 49 29 22 20 20 20 20 20 22 49 3A |."D$(I)" "I:|
00001E90: 82 3A A0 38 3A A0 31 35 00 A5 26 5D 25 8B 42 42 |.:.8:.15..&]%.BB|
00001EA0: B2 31 A7 32 30 00 AB 26 62 25 8E 00 B1 26 10 27 |.1.20..&b%...&.'|
00001EB0: 8F 00 E2 26 24 27 99 22 93 11 11 11 20 20 20 49 |...&$'.".... I|
00001EC0: 53 20 4D 41 53 54 45 52 20 44 41 54 41 20 44 49 |S MASTER DATA DI|
00001ED0: 53 4B 20 49 4E 20 44 52 49 56 45 22 44 31 22 9D |SK IN DRIVE"D1".|
00001EE0: 3F 22 00 F7 26 2E 27 A1 41 24 3A 8B 41 24 B2 22 |?"..&.'.A$:.A$."|
00001EF0: 22 A7 31 30 30 33 30 00 09 27 33 27 8B 41 24 B2 |".10030..'3'.A$.|
00001F00: 22 59 22 A7 31 30 30 34 30 00 17 27 34 27 8B 41 |"Y".10040..'4'.A|
00001F10: 24 B2 22 41 22 A7 8E 00 22 27 35 27 89 31 30 30 |$."A"..."'5'.100|
00001F20: 33 30 00 35 27 38 27 9F 31 35 2C 44 31 2C 31 35 |30.5'8'.15,D1,15|
00001F30: 3A 99 22 93 22 00 56 27 42 27 9F 38 2C 44 31 2C |:.".".V'B'.8,D1,|
00001F40: 38 2C 44 32 24 AA 22 43 41 54 45 47 4F 52 49 45 |8,D2$."CATEGORIE|
00001F50: 53 2C 53 2C 52 22 00 67 27 4C 27 84 31 35 2C 45 |S,S,R".g'L'.15,E|
00001F60: 2C 45 24 2C 54 2C 53 00 82 27 56 27 8B 45 B2 36 |,E$,T,S..'V'.E.6|
00001F70: 32 B0 45 B2 37 34 A7 4E 4E B2 30 3A 89 31 30 31 |2.E.74.NN.0:.101|
00001F80: 34 30 00 AD 27 60 27 99 22 93 20 20 20 20 20 20 |40..'`'.". |
00001F90: 20 12 45 58 49 53 54 49 4E 47 20 43 41 54 45 47 | .EXISTING CATEG|
00001FA0: 4F 52 49 45 53 20 41 52 45 3A 22 3A 99 00 C9 27 |ORIES ARE:":...'|
00001FB0: 6A 27 84 38 2C 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A |j'.8,NN:.I.1.NN:|
00001FC0: 84 38 2C 44 44 24 28 49 29 00 F0 27 88 27 99 22 |.8,DD$(I)..'.'."|
00001FD0: 12 22 C9 28 C4 28 49 29 2C 31 29 22 92 20 20 22 |.".(.(I),1)". "|
00001FE0: 44 44 24 28 49 29 3A 82 49 3A A0 38 3A A0 31 35 |DD$(I):.I:.8:.15|
00001FF0: 00 FB 27 9C 27 A0 38 3A A0 31 35 00 2A 28 A6 27 |..'.'.8:.15.*(.'|
00002000: 99 22 11 11 20 44 4F 20 59 4F 55 20 57 41 4E 54 |.".. DO YOU WANT|
00002010: 20 54 4F 20 43 52 45 41 54 45 20 41 20 4E 45 57 | TO CREATE A NEW|
00002020: 20 43 41 54 45 47 4F 52 59 3F 00 3F 28 B0 27 A1 | CATEGORY?.?(.'.|
00002030: 41 24 3A 8B 41 24 B2 22 22 A7 31 30 31 36 30 00 |A$:.A$."".10160.|
00002040: 56 28 BA 27 8B 41 24 B2 22 4E 22 AF 4E 4E B2 30 |V(.'.A$."N".NN.0|
00002050: A7 31 30 31 36 30 00 68 28 C4 27 8B 41 24 B2 22 |.10160.h(.'.A$."|
00002060: 4E 22 A7 31 30 33 39 30 00 7B 28 CE 27 8B 41 24 |N".10390.{(.'.A$|
00002070: B3 B1 22 59 22 A7 31 30 31 36 30 00 A2 28 D8 27 |.."Y".10160..(.'|
00002080: 8B 4E 4E B2 39 A7 99 22 4E 4F 20 4D 4F 52 45 20 |.NN.9.."NO MORE |
00002090: 43 41 54 45 47 4F 52 49 45 53 22 3A 89 31 30 33 |CATEGORIES":.103|
000020A0: 39 30 00 DD 28 E2 27 99 3A 85 22 4E 41 4D 45 20 |90..(.'.:."NAME |
000020B0: 4F 46 20 4E 45 57 20 43 41 54 45 47 4F 52 59 22 |OF NEW CATEGORY"|
000020C0: 3B 44 44 24 3A 8B C3 28 44 44 24 29 B1 31 36 A7 |;DD$:..(DD$).16.|
000020D0: 99 22 91 91 91 22 3A 89 31 30 32 31 30 00 F5 28 |."...":.10210..(|
000020E0: EC 27 4E 4E B2 4E 4E AA 31 3A 44 44 24 28 4E 4E |.'NN.NN.1:DD$(NN|
000020F0: 29 B2 44 44 24 00 1C 29 F6 27 8B 4E 4E B2 39 A7 |).DD$..).'.NN.9.|
00002100: 99 22 4E 4F 20 4D 4F 52 45 20 43 41 54 45 47 4F |."NO MORE CATEGO|
00002110: 52 49 45 53 22 3A 89 31 30 33 32 30 00 2A 29 00 |RIES":.10320.*).|
00002120: 28 99 22 11 4D 4F 52 45 3F 22 00 3F 29 0A 28 A1 |(.".MORE?".?).(.|
00002130: 41 24 3A 8B 41 24 B2 22 22 A7 31 30 32 35 30 00 |A$:.A$."".10250.|
00002140: 51 29 14 28 8B 41 24 B2 22 59 22 A7 31 30 32 30 |Q).(.A$."Y".1020|
00002150: 30 00 64 29 1E 28 8B 41 24 B3 B1 22 4E 22 A7 31 |0.d).(.A$.."N".1|
00002160: 30 32 35 30 00 A7 29 50 28 9F 31 35 2C 44 31 2C |0250..)P(.15,D1,|
00002170: 31 35 2C 22 53 22 AA 44 32 24 AA 22 42 55 43 41 |15,"S".D2$."BUCA|
00002180: 54 53 22 3A 98 31 35 2C 22 52 22 AA 44 32 24 AA |TS":.15,"R".D2$.|
00002190: 22 42 55 43 41 54 53 3D 43 41 54 45 47 4F 52 49 |"BUCATS=CATEGORI|
000021A0: 45 53 22 3A A0 31 35 00 C8 29 5A 28 9F 38 2C 44 |ES":.15..)Z(.8,D|
000021B0: 31 2C 38 2C 44 32 24 AA 22 43 41 54 45 47 4F 52 |1,8,D2$."CATEGOR|
000021C0: 49 45 53 2C 53 2C 57 22 00 EA 29 64 28 98 38 2C |IES,S,W"..)d(.8,|
000021D0: 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 38 2C 44 44 |NN:.I.1.NN:.8,DD|
000021E0: 24 28 49 29 3A 82 49 3A A0 38 00 15 2A 96 28 99 |$(I):.I:.8..*.(.|
000021F0: 22 93 20 20 20 20 20 20 20 12 45 58 49 53 54 49 |". .EXISTI|
00002200: 4E 47 20 43 41 54 45 47 4F 52 49 45 53 20 41 52 |NG CATEGORIES AR|
00002210: 45 3A 22 3A 99 00 3D 2A A0 28 81 49 B2 31 A4 4E |E:":..=*.(.I.1.N|
00002220: 4E 3A 99 22 12 22 C9 28 C4 28 49 29 2C 31 29 22 |N:.".".(.(I),1)"|
00002230: 92 20 20 22 44 44 24 28 49 29 3A 82 49 00 68 2A |. "DD$(I):.I.h*|
00002240: BE 28 99 22 11 11 20 20 20 20 20 20 57 48 49 43 |.(.".. WHIC|
00002250: 48 20 43 41 54 45 47 4F 52 59 20 44 4F 20 59 4F |H CATEGORY DO YO|
00002260: 55 20 57 41 4E 54 3F 22 00 7D 2A C8 28 A1 41 24 |U WANT?".}*.(.A$|
00002270: 3A 8B 41 24 B2 22 22 A7 31 30 34 34 30 00 9C 2A |:.A$."".10440..*|
00002280: D2 28 5A 53 B2 C5 28 41 24 29 3A 8B 5A 53 B3 31 |.(ZS..(A$):.ZS.1|
00002290: B0 5A 53 B1 4E 4E A7 31 30 34 34 30 00 B6 2A DC |.ZS.NN.10440..*.|
000022A0: 28 5A 53 24 B2 44 44 24 28 5A 53 29 3A 5A 5A 24 |(ZS$.DD$(ZS):ZZ$|
000022B0: B2 5A 53 24 3A 8E 00 DF 2A F8 2A 99 22 93 11 11 |.ZS$:...*.*."...|
000022C0: 11 11 11 11 11 20 20 53 41 56 45 20 46 49 4C 45 |..... SAVE FILE|
000022D0: 22 3A 8B 5A 53 24 B2 22 22 A7 31 30 30 30 30 00 |":.ZS$."".10000.|
000022E0: FD 2A FD 2A 99 22 11 20 20 43 55 52 52 45 4E 54 |.*.*.". CURRENT|
000022F0: 20 46 49 4C 45 20 49 53 20 22 5A 53 24 00 29 2B | FILE IS "ZS$.)+|
00002300: 02 2B 99 22 11 20 20 49 53 20 54 48 49 53 20 43 |.+.". IS THIS C|
00002310: 4F 52 52 45 43 54 3F 20 20 12 28 59 2F 4E 2F 41 |ORRECT? .(Y/N/A|
00002320: 3D 41 42 4F 52 54 29 92 22 00 44 2B 0C 2B 41 24 |=ABORT).".D+.+A$|
00002330: B2 22 22 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |."":.A$:.A$."".1|
00002340: 31 30 32 30 00 52 2B 16 2B 8B 41 24 B2 22 59 22 |1020.R+.+.A$."Y"|
00002350: A7 8E 00 66 2B 20 2B 8B 41 24 B2 22 4E 22 A7 31 |...f+ +.A$."N".1|
00002360: 30 30 30 30 3A 8E 00 74 2B 2A 2B 8B 41 24 B2 22 |0000:..t+*+.A$."|
00002370: 41 22 A7 8E 00 7A 2B 68 42 8F 00 A5 2B 72 42 49 |A"...z+hB...+rBI|
00002380: 34 24 B2 22 22 3A 99 22 93 11 11 11 11 11 11 20 |4$."":."....... |
00002390: 20 20 20 20 20 20 20 20 20 20 20 41 44 44 20 46 | ADD F|
000023A0: 49 4C 45 53 22 00 E3 2B 73 42 8B 4E B1 31 30 37 |ILES"..+sB.N.107|
000023B0: 39 A7 99 22 11 11 20 20 20 12 2A 20 57 41 52 4E |9..".. .* WARN|
000023C0: 49 4E 47 20 46 49 4C 45 20 46 55 4C 4C 21 21 20 |ING FILE FULL!! |
000023D0: 2A 12 22 3A 81 49 B2 31 A4 33 30 30 3A 82 49 3A |*.":.I.1.300:.I:|
000023E0: 89 32 30 00 29 2C 74 42 8B 4E B1 31 30 30 30 A7 |.20.),tB.N.1000.|
000023F0: 99 22 11 11 12 2A 20 57 41 52 4E 49 4E 47 20 46 |."...* WARNING F|
00002400: 49 4C 45 20 41 4C 4D 4F 53 54 20 46 55 4C 4C 21 |ILE ALMOST FULL!|
00002410: 21 20 2A 12 22 3A 99 31 30 38 30 AB 4E 22 52 45 |! *.":.1080.N"RE|
00002420: 4D 41 49 4E 49 4E 47 21 22 00 6D 2C 7C 42 99 22 |MAINING!".m,|B."|
00002430: 11 11 11 20 20 20 20 20 20 20 20 20 12 49 92 4E |... .I.N|
00002440: 44 49 56 49 44 55 41 4C 20 4F 52 20 12 44 92 49 |DIVIDUAL OR .D.I|
00002450: 53 4B 22 3A 99 22 11 20 20 20 20 20 20 20 20 20 |SK":.". |
00002460: 20 20 20 41 20 3D 20 41 42 4F 52 54 22 00 88 2C | A = ABORT"..,|
00002470: 86 42 41 24 B2 22 22 3A A1 41 24 3A 8B 41 24 B2 |.BA$."":.A$:.A$.|
00002480: 22 22 A7 31 37 30 33 30 00 99 2C 90 42 8B 41 24 |"".17030..,.B.A$|
00002490: B2 22 44 22 A7 37 30 30 30 00 AB 2C 9A 42 8B 41 |."D".7000..,.B.A|
000024A0: 24 B2 22 49 22 A7 31 37 30 37 30 00 B9 2C 9F 42 |$."I".17070..,.B|
000024B0: 8B 41 24 B2 22 41 22 A7 8E 00 C4 2C A4 42 89 31 |.A$."A"....,.B.1|
000024C0: 37 30 33 30 00 EC 2C AE 42 99 22 93 11 11 11 1D |7030..,.B.".....|
000024D0: 1D 1D 1D 20 20 20 20 20 20 41 44 44 20 49 4E 44 |... ADD IND|
000024E0: 49 56 55 44 41 4C 20 46 49 4C 45 22 00 FB 2C AF |IVUDAL FILE"..,.|
000024F0: 42 8B 4E B1 31 30 37 39 A7 32 30 00 35 2D B3 42 |B.N.1079.20.5-.B|
00002500: 99 3A 99 22 11 49 4E 50 55 54 20 41 20 54 48 52 |.:.".INPUT A THR|
00002510: 45 45 20 43 48 41 52 41 43 54 45 52 20 49 44 20 |EE CHARACTER ID |
00002520: 12 28 41 3D 41 42 4F 52 54 29 92 22 3A 99 22 20 |.(A=ABORT).":." |
00002530: 20 2D 2D 2D 22 00 49 2D B8 42 85 49 34 24 3A 8B | ---".I-.B.I4$:.|
00002540: 49 34 24 B2 22 41 22 A7 8E 00 5B 2D C2 42 8B 49 |I4$."A"...[-.B.I|
00002550: 34 24 B2 22 22 A7 31 37 30 37 30 00 70 2D CC 42 |4$."".17070.p-.B|
00002560: 8B C3 28 49 34 24 29 B3 B1 33 A7 31 37 30 37 30 |..(I4$)..3.17070|
00002570: 00 AC 2D D6 42 99 22 11 45 4E 54 45 52 20 46 49 |..-.B.".ENTER FI|
00002580: 4C 45 20 4E 41 4D 45 20 28 4D 41 58 20 31 36 20 |LE NAME (MAX 16 |
00002590: 43 48 52 53 29 22 3A 99 22 20 20 2D 2D 2D 2D 2D |CHRS)":." -----|
000025A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 CE 2D E0 |-----------"..-.|
000025B0: 42 4E 24 B2 22 22 3A 85 4E 24 3A 8B 4E 24 B2 22 |BN$."":.N$:.N$."|
000025C0: 22 A7 99 22 91 91 22 3A 89 31 37 31 32 30 00 ED |".."..":.17120..|
000025D0: 2D E5 42 4E 24 B2 4E 24 AA 22 2E 2E 2E 2E 2E 2E |-.BN$.N$."......|
000025E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 1B 2E |............"...|
000025F0: EA 42 4E 24 B2 C8 28 4E 24 2C 31 36 29 AA 22 2E |.BN$..(N$,16).".|
00002600: 22 AA 49 34 24 3A 4E B2 4E AA 31 3A 44 24 28 4E |".I4$:N.N.1:D$(N|
00002610: 29 B2 4E 24 3A 89 31 37 30 37 30 00 4E 2E 30 75 |).N$:.17070.N.0u|
00002620: 8D 33 35 30 30 30 3A 43 48 24 B2 22 05 1C 9F 9C |.35000:CH$."....|
00002630: 1E 1F 9E 81 95 96 97 98 99 9A 9B 22 3A 99 22 93 |...........":.".|
00002640: 22 3A 4A B2 31 3A 81 49 B2 31 A4 34 30 30 00 6E |":J.1:.I.1.400.n|
00002650: 2E 31 75 99 CA 28 43 48 24 2C 4A 2C 31 29 3A 4A |.1u..(CH$,J,1):J|
00002660: B2 4A AA 31 3A 8B 4A B1 31 35 A7 4A B2 31 00 A3 |.J.1:.J.15.J.1..|
00002670: 2E 32 75 99 22 13 11 11 11 20 20 20 44 49 53 4B |.2u.".... DISK|
00002680: 20 46 49 4C 45 20 22 56 45 24 22 20 20 20 20 20 | FILE "VE$" |
00002690: 20 3A 20 4D 53 44 20 53 44 2D 32 20 2D 20 34 30 | : MSD SD-2 - 40|
000026A0: 34 30 22 00 CE 2E 3A 75 99 22 11 20 20 20 22 44 |40"...:u.". "D|
000026B0: 41 24 22 20 20 20 20 20 20 20 20 20 20 20 3A 20 |A$" : |
000026C0: 31 20 4F 52 20 32 20 31 35 34 31 27 53 22 00 EC |1 OR 2 1541'S"..|
000026D0: 2E 3F 75 99 A3 32 32 29 22 11 3A 20 38 30 20 43 |.?u..22)".: 80 C|
000026E0: 4F 4C 2E 20 50 52 49 4E 54 45 52 22 00 0B 2F 40 |OL. PRINTER"../@|
000026F0: 75 99 A3 32 32 29 22 11 3A 20 31 33 36 20 43 4F |u..22)".: 136 CO|
00002700: 4C 2E 20 50 52 49 4E 54 45 52 22 00 39 2F 44 75 |L. PRINTER".9/Du|
00002710: 99 22 20 20 20 44 49 52 45 43 54 4F 52 59 20 20 |." DIRECTORY |
00002720: 20 20 20 20 28 43 29 20 3A 20 43 4F 4D 50 55 54 | (C) : COMPUT|
00002730: 45 21 20 31 31 2F 38 33 22 00 68 2F 4E 75 99 22 |E! 11/83".h/Nu."|
00002740: 11 20 20 20 4C 49 47 48 54 4E 49 4E 47 20 53 4F |. LIGHTNING SO|
00002750: 52 54 20 28 43 29 20 3A 20 43 4F 4D 50 55 54 45 |RT (C) : COMPUTE|
00002760: 21 20 30 39 2F 38 34 22 00 96 2F 51 75 99 22 11 |! 09/84"../Qu.".|
00002770: 20 20 20 43 4F 4D 50 49 4C 45 52 20 50 41 52 54 | COMPILER PART|
00002780: 53 20 28 43 29 20 3A 20 27 49 4E 53 54 41 2D 53 |S (C) : 'INSTA-S|
00002790: 50 45 45 44 27 22 00 C4 2F 53 75 99 22 11 20 20 |PEED'"../Su.". |
000027A0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | --------------|
000027B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000027C0: 2D 2D 2D 22 00 F1 2F 58 75 99 22 20 20 20 20 20 |---"../Xu." |
000027D0: 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 28 43 29 |MAIN PROGRAM (C)|
000027E0: 20 43 4F 50 59 52 49 47 48 54 20 31 39 38 34 20 | COPYRIGHT 1984 |
000027F0: 22 00 1E 30 62 75 99 22 20 20 20 20 20 42 59 20 |"..0bu." BY |
00002800: 52 4F 59 20 53 43 48 41 48 52 45 52 20 2D 20 5B |ROY SCHAHRER - [|
00002810: 37 30 33 36 36 2C 31 37 31 37 5D 20 20 22 00 4B |70366,1717] ".K|
00002820: 30 6C 75 8F 50 52 49 4E 54 22 20 20 20 20 20 54 |0lu.PRINT" T|
00002830: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 |HIS PROGRAM IS I|
00002840: 4E 20 46 52 45 45 57 41 52 45 22 00 72 30 6E 75 |N FREEWARE".r0nu|
00002850: 8F 50 52 49 4E 54 22 20 20 20 20 20 53 55 47 47 |.PRINT" SUGG|
00002860: 45 53 54 45 44 20 44 4F 4E 41 54 49 4F 4E 20 24 |ESTED DONATION $|
00002870: 32 30 00 9F 30 71 75 99 22 20 20 20 20 2D 2D 2D |20..0qu." ---|
00002880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002890: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
000028A0: CD 30 76 75 58 B2 AB 28 58 B2 2E 29 3A 97 31 39 |.0vuX..(X..):.19|
000028B0: 39 2C 58 3A 99 A3 31 31 29 22 48 49 54 20 41 20 |9,X:..11)"HIT A |
000028C0: 4B 45 59 20 54 4F 20 53 54 41 52 54 22 00 DF 30 |KEY TO START"..0|
000028D0: 80 75 A1 41 24 3A 8B 41 24 B2 22 22 A7 82 49 00 |.u.A$:.A$.""..I.|
000028E0: 04 31 8A 75 97 35 33 32 38 31 2C 2E 3A 97 35 33 |.1.u.53281,.:.53|
000028F0: 32 38 30 2C 2E 3A 99 22 1E 22 3A 49 B2 31 30 30 |280,.:.".":I.100|
00002900: 30 30 3A 8E 00 35 31 B8 88 99 22 93 11 11 20 50 |00:..51..."... P|
00002910: 41 52 54 53 20 4F 46 20 54 48 49 53 20 50 52 4F |ARTS OF THIS PRO|
00002920: 47 52 41 4D 20 41 52 45 20 43 4F 50 59 52 49 47 |GRAM ARE COPYRIG|
00002930: 48 54 45 44 22 00 63 31 C2 88 99 22 11 20 20 42 |HTED".c1...". B|
00002940: 59 20 44 52 49 56 45 20 54 45 43 48 4E 4F 4C 4F |Y DRIVE TECHNOLO|
00002950: 47 59 20 4C 54 44 2E 2C 20 20 28 43 29 20 31 39 |GY LTD., (C) 19|
00002960: 38 33 22 00 91 31 CC 88 99 22 11 11 20 20 27 54 |83"..1...".. 'T|
00002970: 48 41 4E 4B 53 20 46 4F 52 20 54 48 45 20 48 45 |HANKS FOR THE HE|
00002980: 4C 50 20 49 4E 53 54 41 2D 53 50 45 45 44 2E 27 |LP INSTA-SPEED.'|
00002990: 22 00 C2 31 D1 88 99 22 11 2D 2D 2D 2D 2D 2D 2D |"..1...".-------|
000029A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000029B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000029C0: 2D 22 00 F2 31 D6 88 99 22 54 48 49 53 20 50 52 |-"..1..."THIS PR|
000029D0: 4F 47 52 41 4D 20 49 53 20 49 4E 20 46 52 45 45 |OGRAM IS IN FREE|
000029E0: 57 41 52 45 2E 20 49 46 20 59 4F 55 20 46 49 4E |WARE. IF YOU FIN|
000029F0: 44 22 00 21 32 E0 88 99 22 49 46 20 55 53 45 46 |D".!2..."IF USEF|
00002A00: 55 4C 4C 20 50 4C 45 41 53 45 20 53 45 4E 44 20 |ULL PLEASE SEND |
00002A10: 24 32 30 2C 20 4F 52 20 57 48 41 54 45 56 45 52 |$20, OR WHATEVER|
00002A20: 22 00 43 32 EA 88 99 22 11 59 4F 55 20 46 45 45 |".C2...".YOU FEE|
00002A30: 4C 20 49 54 20 49 53 20 57 4F 52 54 48 2C 20 54 |L IT IS WORTH, T|
00002A40: 4F 3A 22 00 5B 32 F4 88 99 22 11 11 20 20 20 52 |O:".[2...".. R|
00002A50: 4F 59 20 53 43 48 41 48 52 45 52 00 7B 32 FE 88 |OY SCHAHRER.{2..|
00002A60: 99 22 20 20 20 38 34 32 20 57 2E 20 43 41 4C 4C |." 842 W. CALL|
00002A70: 45 20 44 45 4C 20 4E 4F 52 54 45 00 9B 32 08 89 |E DEL NORTE..2..|
00002A80: 99 22 20 20 20 43 48 41 4E 44 4C 45 52 2C 20 41 |." CHANDLER, A|
00002A90: 52 49 5A 2E 20 20 38 35 32 32 34 00 C6 32 0D 89 |RIZ. 85224..2..|
00002AA0: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00002AB0: 20 20 20 20 20 20 20 20 20 20 20 54 48 41 4E 4B | THANK|
00002AC0: 20 59 4F 55 2E 22 00 D9 32 12 89 81 49 B2 31 A4 | YOU."..2...I.1.|
00002AD0: 31 30 30 30 3A 82 49 3A 8E 00 DF 32 40 9C 8F 00 |1000:.I:...2@...|
00002AE0: 07 33 7C 9C 8B C6 28 42 24 AA 5A 24 29 B1 31 32 |.3|...(B$.Z$).12|
00002AF0: 37 AF C6 28 42 24 AA 5A 24 29 B3 31 36 30 A7 42 |7..(B$.Z$).160.B|
00002B00: 24 B2 C7 28 36 33 29 00 21 33 86 9C 8B C6 28 42 |$..(63).!3....(B|
00002B10: 24 AA 5A 24 29 B3 33 32 A7 42 24 B2 C7 28 36 33 |$.Z$).32.B$..(63|
00002B20: 29 00 49 33 90 9C 8B C6 28 42 24 AA 5A 24 29 B1 |).I3....(B$.Z$).|
00002B30: 32 32 34 AF C6 28 42 24 AA 5A 24 29 B3 32 35 34 |224..(B$.Z$).254|
00002B40: A7 42 24 B2 C7 28 36 33 29 00 4F 33 A4 9C 8E 00 |.B$..(63).O3....|
00002B50: 7B 33 60 EA 99 22 93 90 11 11 11 11 11 11 20 20 |{3`.."........ |
00002B60: 53 45 4C 45 43 54 20 44 52 49 56 45 20 43 4F 4E |SELECT DRIVE CON|
00002B70: 46 49 47 55 52 41 54 49 4F 4E 22 00 AD 33 6A EA |FIGURATION"..3j.|
00002B80: 99 22 11 11 11 11 20 20 31 2E 20 4D 53 44 20 53 |.".... 1. MSD S|
00002B90: 44 2D 32 20 4F 52 20 34 30 34 30 20 44 55 41 4C |D-2 OR 4040 DUAL|
00002BA0: 20 44 52 49 56 45 20 28 44 56 20 38 29 00 D8 33 | DRIVE (DV 8)..3|
00002BB0: 74 EA 99 22 11 20 20 32 2E 20 53 49 4E 47 4C 45 |t..". 2. SINGLE|
00002BC0: 20 31 35 34 31 20 44 49 53 4B 20 44 52 49 56 45 | 1541 DISK DRIVE|
00002BD0: 20 28 44 56 20 38 29 22 00 05 34 7E EA 99 22 11 | (DV 8)"..4~..".|
00002BE0: 20 20 33 2E 20 54 57 4F 20 31 35 34 31 20 44 49 | 3. TWO 1541 DI|
00002BF0: 53 4B 20 44 52 49 56 45 53 20 28 44 56 20 38 20 |SK DRIVES (DV 8 |
00002C00: 26 20 39 29 22 00 28 34 92 EA 8B 41 24 B2 22 31 |& 9)".(4...A$."1|
00002C10: 22 A7 44 31 B2 38 3A 44 32 24 B2 22 31 3A 22 3A |".D1.8:D2$."1:":|
00002C20: 97 36 38 30 2C 31 3A 8E 00 43 34 9C EA 44 31 B2 |.680,1:..C4..D1.|
00002C30: 38 3A 44 32 24 B2 22 30 3A 22 3A 97 36 38 30 2C |8:D2$."0:":.680,|
00002C40: 32 3A 8E 00 66 34 A6 EA 8B 41 24 B2 22 33 22 A7 |2:..f4...A$."3".|
00002C50: 44 31 B2 39 3A 44 32 24 B2 22 30 3A 22 3A 97 36 |D1.9:D2$."0:":.6|
00002C60: 38 30 2C 33 3A 8E 00 71 34 B0 EA 89 36 30 30 34 |80,3:..q4...6004|
00002C70: 30 00 93 34 30 F2 50 49 24 B2 22 FF FF FF FF FF |0..40.PI$.".....|
00002C80: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00002C90: 22 3A 8E 00 B3 34 18 F6 41 B2 C2 28 36 38 30 29 |":...4..A..(680)|
00002CA0: 3A 8B 41 B2 31 A7 44 31 B2 38 3A 44 32 24 B2 22 |:.A.1.D1.8:D2$."|
00002CB0: 31 3A 22 00 CA 34 22 F6 8B 41 B2 32 A7 44 31 B2 |1:"..4"..A.2.D1.|
00002CC0: 38 3A 44 32 24 B2 22 30 3A 22 00 E1 34 2C F6 8B |8:D2$."0:"..4,..|
00002CD0: 41 B2 33 A7 44 31 B2 39 3A 44 32 24 B2 22 30 3A |A.3.D1.9:D2$."0:|
00002CE0: 22 00 E7 34 36 F6 8E 00 00 00 FF 00 00 00 00 00 |"..46...........|
00002CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
.......41024,0:.41025,195:.T...VERSN$."4
.7":DATE$."12/02/84":.53280,.:.53281,.:.
"..".T....B(49152)..32.."L-SORT",8,1....
..B(828)..169.."DIR @828",8,1.B...F1$.G(
133):F5$.G(135):F7$.G(136):Z$.G(.)......
".":.D$(1080):.AA.1..62000:.63000:......
.62000......60000.<...."......DISK FILE
PROGRAM: "VE$:.". 1 - ADD FILES".S.(
..". 2 - PRINT A FILE":.". 3 - SOR
T THE FILE"...F..". 4 - SEARCH FOR FI
LE NAME":.". 5 - SEARCH FOR DISK NUMB
ER"...P..". 6 - VIEW DISK DIRECTORY":
.". 7 - SAVE D-FILE".-.V..". 8 - L
OAD D-FILE":.". 9 - REMOVE A NAME".].
Z..". 0 - QUIT":.". RECORDS IN MEM
ORY"N.P.N..A$:.A$."".110...X..A$."0".A$.
"9".110...}..A$."0"..1000.....A.E(A$)...
...A.17000,2000,4000,5000,5500,6000,9000
,9500,8000,1000......20............"....
.. QUIT! ARE YOU SURE?".%....A$:.A$.""
.1020.4....A$.."Y"...F....".":.35030:..N
....20.T.P...Q.Z..".."ZS$:..10)"OUTPUT O
N. ...." .1. SCREEN":." .2. 80 COL.
PRINTER".Q...." .3. 136 COL. PRINTER (
CONDENSED PRINT)"......A$:.E(A$).2050,21
50,3200:.2030.......)....I.1..(N.22).1:.
".":.J.22.(I.1).1.22.I.11.5....K...21.I.
...J.K.1080..2065.B...." ";D$(J.
K).I....K......214,23:.:..6)". F1=MENU
F5=UP F7=DOWN .";... ..A$:.A$."".2080
.P.%..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.3.H..I..(N.22).
1.I..(N.22).<.R..I:..B.\...N.F..".ENTER
TODAY'S DATE (NO COMMAS)":.XY$...H..".EN
TER PRINTER DEVICE NUMBER":.DN$:DN.E(H(D
N$,1))...I..DN.4.DN.7.2152.J.P. 3:.3,DN:
.3...R..ST.."...PRINTER NOT ON-LINE, HIT
A KEY.":.198,1:.198,.:.20.3.U..".PRINTI
NG, HOLD DOWN F1 TO ABORT.".K.Z.B$."
":A.1:B.60:PN$."1":.2290:.3000:.N.180.3
990.....A.181:B.240:PN$."2":.2290:.3000:
.N.240.3990.K...A.361:B.420:PN$."3":.229
0:.3000:.N.420.3990.....A.541:B.600:PN$.
"4":.2290:.3000:.N.600.3990.+...A.721:B.
780:PN$."5":.2290:.3000:.N.780.3990.U...
A.901:B.960:PN$."6":.2290:.3000:.3990...
...3," PAGE "PN$" "ZS$"
"XY$" "N"FILES":.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:
.II:..T....".NEXT PAGE: PRESS ANY KEY T
O CONTINUE.".H.B..A$:.A$."".3010.N.L...T
..... ....".ENTER TODAY'S DATE (NO COMMA
S)":.XY$.X....".ENTER PRINTER DEVICE NUM
BER":.DN$:DN.E(H(DN$,1))......DN.4.DN.7.
3215./....".....CHR$(XX) FOR CONDENSED M
ODE 15....";DC$:DC$.G(E(DC$)).?... 3:.
3,DN:.3.....ST.."...PRINTER NOT ON-LINE
, HIT A KEY.":.198,1:.198,.:.20......".P
RINTING, HOLD DOWN F1 TO ABORT.".....B$.
" ":A.1:B.60:PN$."1":.3300:.3000:.N.360
..3990.....A.361:B.420:PN$."2":.3300:.30
00:.N.721..3990.9...A.721:B.780:PN$."3":
.3300:.3000:.3990.....3,"PAGE "PN$"
"ZS$" "XY$" "N"FILES"
:.3," "......J.A.B:.3,DC$;D$(J);B$;D$(J.
60);B$;D$(J.120);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:.".PRINTIN
G...":.J.&.....;....II.1.4:.3:.II:..F...
.3: 3:."..END OF LIST. PRESS ANY KEY"..
...A$."":.A$:.A$."".3998......... ......
.."...... SORT A FILE".C....:.". .SORT
ING.......".....N1..:N2..:.49152,N,D$(1)
......I.1.N:.D$(I).PI$.N1.I.1:.4100:.404
0...C..I:.N1.....A.H.N2.N.N1:.".. "N2"FI
LES REMOVED":N.N1.].M..". . PRESS ANY K
EY .".Q.R..A$:.A$."".4050.W..........I.1
.1080......D$(I).PI$.D$(I)."
"......I:..A.........."......
SEARCH FOR FILE NAME"......GETA$:IFA$=""
THEN5020. ...."ENTER NAME TO SEARCH FOR"
.9...SN$."":.SN$:Z.C(SN$).[....I.1.N:.H(
D$(I),Z).SN$..D$(I).N....B(653).1.5051..
....I:."..END OF LIST. PRESS ANY KEY"..
.N..A$:.A$."".5070...{.....|........"...
... SEARCH FOR DISK NUMBER"......"ENTER
3 CHR. ID TO SEARCH FOR".....SN$."":.SN
$:Z.C(SN$).?....I.1.N:.J(D$(I),18,Z).SN$
..D$(I).R....B(653).1.5551.Z....I:."..EN
D OF LIST. PRESS ANY KEY"...B..A$:.A$."
".5570...O.....P.....Q.D.8:DD$."0":.D1.8
.6004...R..".WHAT DEVICE (8 OR 9)";:.D$:
D.E(H(D$,1))...S..D.8.D.9.6002...T..D2$.
"0:".6008.2.U..".WHAT DRIVE (0 OR 1, * F
OR BOTH)";.J.V..DD$:DR.E(H(DD$,1)).^.W..
DR...DR.1.6004.U.X..839,F(DD$):.846,D...
...".IS THE CORRECT DISK IN THE DRIVE?".
.....A$:.A$.."Y".6020......15,D,15,"I".D
D$:.15,E,E$,F,G: 15......E....."
"E" "E$" "F" "G: 15:.6040......828.7....
.8)"..PRESS ANY KEY WHEN READY".K....A$:
.A$."".6050.Q.....W.X...{.B..".....
ADD FROM DISK"...C..".FILES"N;:.I4$
.."A".."- LAST ID USED "I4$...D..:.".PLA
CE DISK TO BE READ INTO DRIVE 8 AND"...E
..".INPUT A THREE CHARACTER ID .(A=ABORT
).":.". ---".7.F.I4$."":." ";I4$:.I4
$."A"...H.G..I4$."".7000.\.H..C(I4$)..3.
7000.U.I..". QUERY? (Y/N) ";...J..QU$:.
QU$."".7018...K..QU$.."Y".QU$.."N".7018.
..L...A.M..C(I4$)..3.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.U.W..E.....". "E" ."E$". "F
" "G" ":.7350.K....7,8,.,"$0":.7360.Y...
.#7,A$,B$......#7,A$,B$......#7,A$,B$...
..C..:FS$."":NF$."":XX..:X.XX.I....A$.."
".C.F(A$)......B$.."".C.C.F(B$).256...F.
FS$.J(D(C),2)......" ";......E(FS$).10
.FS$.FS$." ":.FS$;:.7220.Y. ..E(FS
$).99.FS$.FS$." ":.FS$;:.7220.T.*.FS
$.FS$." ":.FS$;...4.B$."":.#7,B$:.S
T .64.7330...>..B$..G(34).7220.T.H..#7,B
$:.B$..G(34)..40000:NF$.NF$.B$:.7240...R
.PD$."..................."...\..H(NF$,1)
." ".NF$.I(NF$,C(NF$).1):.7260.J.]..I(NF
$,1)." ".NF$.H(NF$,C(NF$).1):.7261.Z.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.L....H(C
$,1).R...........ST .64.7500......"--- B
LOCKS FREE".......*... 7:.".. .HIT ANY
KEY TO CONTINUE.".>....A$:.A$."".7352.H
....7000.\....#7,A$,A$,A$,A$.W.J..#7,A$:
.A$..G(34).7370...T..#7,A$:.A$.G(34).740
0.....NN$.NN$.A$:.7380......#7,A$.I....#
7,A$,B$:ID$.A$.B$......:P$." NAME:":.P
$.NN$,:P$."..ID:":.P$.ID$.....P$."":NN$.
"":..6...." .SIZE NAME
TYPE.".P....#7,A$,A$,A$,A$:.7060.K.L..QU
$."N".AN$."Y":.7530...V..AN$:.AN$."".751
0...`..AN$."N"..".
.":.7060.V.J..AN$."Y".N.N.1
:.7540...N..AN$."E".N.N.1:.7600...O..AN$
.F1$.7350...P..7510.8.T..N.1079..:.".* F
ILE FULL! *.": 7: 15:.20.T.U.D$(N).H(NF$
,16).".".I4$.K.Y..AB$:.AB$.F1$.7350.U.~.
.7060......" .EDIT.";......I(NF$,1).".
".NF$.H(NF$,C(NF$).1):.7605.B...." "N
F$......"..........";NM$:NM$.NM$."......
.............".. D.NF$.H(NM$,16):.7540..
@...2 J.."....... REMOVE NAMES".S T..
".. DELETE .N.AME OR .I.D".M ^.A$."":.A
$:.A$."".8030.~ H..A$."N".8100.. R..A$."
I".8200.. |..8030.. ....Q ...".........I
NPUT 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.,!G..
8180.@!L..A$:.A$."".8140.X!V..A$."N".."
N":.8180.!...A$."Y".D$(I).PI$:." Y":A1.
1:.8180..!...A$."E".8192..!...A$.F1$.819
0..!...8140..!...I.D!...A1.1..:.4024.J!.
....!. NM$.H(D$(I),16)..". .I(NM$,1)."."
.NM$.H(NM$,C(NM$).1):.8193.3". .:.". >.E
DIT.------------<":." "NM$.M". .".";NM$
:NM$.NM$."...................":NO$.I(D$(
I),4)..". D$(I).H(NM$,17).NO$:A1.1:.8180
..". ..F". .".........INPUT ID OF DISK T
O REMOVE":A1....". RN$."":.RN$:Z.C(RN$).
."! .RN$."".8210./#& .I.1.N:.J(D$(I),18,
Z).RN$..D$(I)" .(Y/N/F1=ABORT).";:.8240.
9#+ .8280.M#0 .A$:.A$."".8240.E#: .A$."N
".." N":.8280..#D .A$."Y".D$(I).PI$:." Y
":A1.1:.8280..#I .A$.F1$.8290..#N .8240.
.#X .I..#B .A1.1..4024.D#G ..O#(#.11000.
.#-#.A$."A".20..$2#.15,D1,15:.15,"S"D2$.
ZS$.".BU"."$<#.15,"R"D2$.ZS$.".BU="D2$.Z
S$.=$F#.8,D1,8,D2$.ZS$.",S,W".J$P#.15,E,
E$.$Q#.E... 8: 15:.". ."E$" PRESS
ANY KEY.":.9043..$R#.9050..$S#.A$:.A$.""
.9043..$T#..I$Z#.".."ZZ$;:.". SAVING"N"F
ILE NAMES..$D#.8,N:.I.1.N:.8,D$(I):."...
"CE$D$(I)" "I:...%N# 8: 15:...%.%..0
%.%."....... LOAD FILE .(Y/N).".J%.%A$.
"":.A$:.A$."".9502.[%.%.A$."Y".9505.A% %
..Z%!%.AA.1..:AA.1:BB.1:.1..%&%.10000..%
+%.A$."A"....%,%.15,D1,15:AA.1.A%/%.8,D1
,8,D2$.ZS$.",S,R".R%0%.15,E,E$,G,H..&:%.
E... 8: 15:.". ."E$" PRESS ANY KEY.
":BB.1:.9532..&;%.9540.*&<%.A$:.A$."".95
32.7&=%.BB.1.20.=&D%..G&N%.8,N:.".."ZZ$;
". LOADING"N"FILE NAMES..&X%.I.1.N:.8,D$
(I):."..."D$(I)" "I:.: 8: 15..&]%.BB
.1.20..&B%...&.'...&$'.".... IS MASTER
DATA DISK IN DRIVE"D1".?"..&.'.A$:.A$."
".10030..'3'.A$."Y".10040..'4'.A$."A"...
"'5'.10030.5'8'.15,D1,15:.".".V'B'.8,D1,
8,D2$."CATEGORIES,S,R".G'L'.15,E,E$,T,S.
.'V'.E.62.E.74.NN.0:.10140..'`'.".
.EXISTING CATEGORIES ARE:":..I'J'.8,NN:
.I.1.NN:.8,DD$(I)..'.'."."I(D(I),1)". "
DD$(I):.I: 8: 15..'.' 8: 15.*(.'.".. DO
YOU WANT TO CREATE A NEW CATEGORY?.?(.'.
A$:.A$."".10160.V(.'.A$."N".NN.0.10160.H
(D'.A$."N".10390.{(N'.A$.."Y".10160..(X'
.NN.9.."NO MORE CATEGORIES":.10390..(.'.
:."NAME OF NEW CATEGORY";DD$:.C(DD$).16.
."...":.10210..(.'NN.NN.1:DD$(NN).DD$..)
.'.NN.9.."NO MORE CATEGORIES":.10320.*).
(.".MORE?".?).(.A$:.A$."".10250.Q).(.A$.
"Y".10200.D).(.A$.."N".10250..)P(.15,D1,
15,"S".D2$."BUCATS":.15,"R".D2$."BUCATS=
CATEGORIES": 15.H)Z(.8,D1,8,D2$."CATEGOR
IES,S,W"..)D(.8,NN:.I.1.NN:.8,DD$(I):.I:
8..*.(.". .EXISTING CATEGORIES AR
E:":..=* (.I.1.NN:."."I(D(I),1)". "DD$(
I):.I.H*.(.".. WHICH CATEGORY DO YO
U WANT?".}*H(.A$:.A$."".10440..*R(ZS.E(A
$):.ZS.1.ZS.NN.10440..*.(ZS$.DD$(ZS):ZZ$
.ZS$:...*.*."........ SAVE FILE":.ZS$."
".10000..*.*.". CURRENT FILE IS "ZS$.)+
.+.". IS THIS CORRECT? .(Y/N/A=ABORT).
".D+.+A$."":.A$:.A$."".11020.R+.+.A$."Y"
...F+ +.A$."N".10000:..T+*+.A$."A"...Z+H
B...+RBI4$."":."....... ADD F
ILES"..+SB.N.1079..".. .* WARNING FILE
FULL!! *.":.I.1.300:.I:.20.),TB.N.1000.
."...* WARNING FILE ALMOST FULL!! *.":.1
080.N"REMAINING!".M,|B."... .I.N
DIVIDUAL OR .D.ISK":.". A = A
BORT"..,.BA$."":.A$:.A$."".17030..,.B.A$
."D".7000..,.B.A$."I".17070..,.B.A$."A".
..D,.B.17030..,.B."........ ADD IND
IVUDAL FILE"..,.B.N.1079.20.5-.B.:.".INP
UT A THREE CHARACTER ID .(A=ABORT).":."
---".I-.B.I4$:.I4$."A"...[-BB.I4$."".17
070.P-LB.C(I4$)..3.17070..-VB.".ENTER FI
LE NAME (MAX 16 CHRS)":." -------------
---".N-.BN$."":.N$:.N$."".."..":.17120..
-.BN$.N$.".................."....BN$.H(N
$,16).".".I4$:N.N.1:D$(N).N$:.17070.N.0U
.35000:CH$."...............":.".":J.1:.I
.1.400.N.1U.J(CH$,J,1):J.J.1:.J.15.J.1..
.2U.".... DISK FILE "VE$" : MSD S
D-2 - 4040".N.:U.". "DA$" :
1 OR 2 1541'S"...?U..22)".: 80 COL. PRIN
TER"../@U..22)".: 136 COL. PRINTER".9/DU
." DIRECTORY (C) : COMPUTE! 11/83
".H/NU.". LIGHTNING SORT (C) : COMPUTE
! 09/84"../QU.". COMPILER PARTS (C) :
'INSTA-SPEED'".D/SU.". --------------
-------------------"../XU." MAIN PRO
GRAM (C) COPYRIGHT 1984 "..0BU." BY
ROY SCHAHRER - [70366,1717] ".K0LU.PRIN
T" THIS PROGRAM IS IN FREEWARE".R0NU
.PRINT" SUGGESTED DONATION $20..0QU.
" ---------------------------------".
M0VUX..(X..):.199,X:..11)"HIT A KEY TO S
TART"..0.U.A$:.A$.""..I..1.U.53281,.:.53
280,.:.".":I.10000:..51..."... PARTS OF
THIS PROGRAM ARE COPYRIGHTED".C1B..". B
Y DRIVE TECHNOLOGY LTD., (C) 1983"..1L.
.".. 'THANKS FOR THE HELP INSTA-SPEED.'
".B1Q..".-------------------------------
---------"..1V.."THIS PROGRAM IS IN FREE
WARE. IF YOU FIND".!2..."IF USEFULL PLEA
SE SEND $20, OR WHATEVER".C2...".YOU FEE
L IT IS WORTH, TO:".[2...".. ROY SCHAH
RER.{2..." 842 W. CALLE DEL NORTE..2..
." CHANDLER, ARIZ. 85224.F2...".
THANK YOU.".Y2...I.1.
1000:.I:...2@....3|..F(B$.Z$).127.F(B$.Z
$).160.B$.G(63).!3...F(B$.Z$).32.B$.G(63
).I3...F(B$.Z$).224.F(B$.Z$).254.B$.G(63
).O3....{3`.."........ SELECT DRIVE CON
FIGURATION"..3J..".... 1. MSD SD-2 OR 4
040 DUAL DRIVE (DV 8).X3T..". 2. SINGLE
1541 DISK DRIVE (DV 8)"..4~..". 3. TWO
1541 DISK DRIVES (DV 8 & 9)".(4...A$."1
".D1.8:D2$."1:":.680,1:..C4..D1.8:D2$."0
:":.680,2:..F4...A$."3".D1.9:D2$."0:":.6
80,3:..Q4...60040..40.PI$.".............
........":...4..A.B(680):.A.1.D1.8:D2$."
1:".J4"..A.2.D1.8:D2$."0:"..4,..A.3.D1.9
:D2$."0:"..46...........................
> CLICK IMAGE PREVIEW FOR FULL MODAL