DISK FILER(B)
FILE INFORMATION
FILENAME(S): DISK FILER(B)
FILE TYPE(S): PRG
FILE SIZE: 14.5K
FIRST SEEN: 2025-11-30 17:31:37
APPEARS ON: 1 disk(s)
FILE HASH
d0e6419f8990fb063169d2889f4f74b2a8fecf4cd94a67b010ccfadaa37b0913
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK FILER | DISK FILER(B) | PRG | UK CD | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 05 00 99 C7 28 38 29 22 93 90 22 3A |..1.....(8)"..":|
00000010: 97 36 35 30 2C 31 32 38 3A 53 43 B2 35 33 32 38 |.650,128:SC.5328|
00000020: 30 3A 97 53 43 2C 31 33 3A 97 53 43 AA 31 2C 31 |0:.SC,13:.SC.1,1|
00000030: 33 00 65 08 0A 00 8B C2 28 34 39 31 35 32 29 B3 |3.e.....(49152).|
00000040: B1 37 36 AF C2 28 34 39 31 35 33 29 B3 B1 32 39 |.76..(49153)..29|
00000050: A7 93 22 4D 2F 43 20 44 49 53 4B 20 46 49 4C 45 |.."M/C DISK FILE|
00000060: 22 2C 38 2C 31 00 92 08 14 00 46 31 24 B2 C7 28 |",8,1.....F1$..(|
00000070: 31 33 33 29 3A 46 35 24 B2 C7 28 31 33 35 29 3A |133):F5$..(135):|
00000080: 46 37 24 B2 C7 28 31 33 36 29 3A 5A 24 B2 C7 28 |F7$..(136):Z$..(|
00000090: 2E 29 00 AB 08 19 00 56 45 24 B2 22 56 37 2E 30 |.).....VE$."V7.0|
000000A0: 30 22 3A 52 24 B2 C7 28 31 33 29 00 CD 08 1E 00 |0":R$..(13).....|
000000B0: 86 44 24 28 31 32 30 30 29 3A 8B 41 41 B2 31 A7 |.D$(1200):.AA.1.|
000000C0: 8D 32 32 38 30 3A 8D 32 32 38 35 3A 8E 00 EA 08 |.2280:.2285:....|
000000D0: 23 00 9E 34 39 31 35 32 3A 8D 32 33 39 30 3A 8D |#..49152:.2390:.|
000000E0: 32 32 38 30 3A 8D 32 32 33 30 00 11 09 28 00 8D |2280:.2230...(..|
000000F0: 32 35 30 35 3A 99 22 20 20 12 31 92 20 2D 20 41 |2505:." .1. - A|
00000100: 44 44 20 4E 41 4D 45 53 20 54 4F 20 46 49 4C 45 |DD NAMES TO FILE|
00000110: 22 00 31 09 2D 00 99 22 11 20 20 12 32 92 20 2D |".1.-..". .2. -|
00000120: 20 50 52 49 4E 54 20 44 41 54 41 20 46 49 4C 45 | PRINT DATA FILE|
00000130: 22 00 50 09 32 00 99 22 11 20 20 12 33 92 20 2D |".P.2..". .3. -|
00000140: 20 53 4F 52 54 20 44 41 54 41 20 46 49 4C 45 22 | SORT DATA FILE"|
00000150: 00 75 09 37 00 99 22 11 20 20 12 34 92 20 2D 20 |.u.7..". .4. - |
00000160: 53 45 41 52 43 48 20 46 4F 52 20 46 49 4C 45 20 |SEARCH FOR FILE |
00000170: 4E 41 4D 45 22 00 A7 09 3C 00 99 22 11 20 20 12 |NAME"...<..". .|
00000180: 35 92 20 2D 20 43 48 41 4E 47 45 20 49 44 2E 2F |5. - CHANGE ID./|
00000190: 53 45 41 52 43 48 20 46 4F 52 20 44 49 53 4B 20 |SEARCH FOR DISK |
000001A0: 4E 55 4D 42 45 52 22 00 CB 09 41 00 99 22 11 20 |NUMBER"...A..". |
000001B0: 20 12 36 92 20 2D 20 56 49 45 57 20 44 49 53 4B | .6. - VIEW DISK|
000001C0: 20 44 49 52 45 43 54 4F 52 59 22 00 EA 09 46 00 | DIRECTORY"...F.|
000001D0: 99 22 11 20 20 12 37 92 20 2D 20 53 41 56 45 20 |.". .7. - SAVE |
000001E0: 44 41 54 41 20 46 49 4C 45 22 00 09 0A 4B 00 99 |DATA FILE"...K..|
000001F0: 22 11 20 20 12 38 92 20 2D 20 4C 4F 41 44 20 44 |". .8. - LOAD D|
00000200: 41 54 41 20 46 49 4C 45 22 00 39 0A 50 00 99 22 |ATA FILE".9.P.."|
00000210: 11 20 20 12 39 92 20 2D 20 45 44 49 54 20 4E 41 |. .9. - EDIT NA|
00000220: 4D 45 53 2F 44 45 4C 45 54 45 20 42 59 1D 4E 41 |MES/DELETE BY.NA|
00000230: 4D 45 20 4F 52 20 49 44 22 00 56 0A 55 00 99 22 |ME OR ID".V.U.."|
00000240: 11 20 20 12 30 92 20 2D 20 45 58 49 54 20 50 52 |. .0. - EXIT PR|
00000250: 4F 47 52 41 4D 22 00 7A 0A 5A 00 99 22 11 20 20 |OGRAM".z.Z..". |
00000260: 20 20 20 20 52 45 43 4F 52 44 53 20 49 4E 20 4D | RECORDS IN M|
00000270: 45 4D 4F 52 59 22 4E 22 13 22 00 94 0A 5F 00 A1 |EMORY"N"."..._..|
00000280: 41 24 3A 8B 41 24 B3 22 30 22 B0 41 24 B1 22 39 |A$:.A$."0".A$."9|
00000290: 22 A7 39 35 00 A4 0A 64 00 8B 41 24 B2 22 30 22 |".95...d..A$."0"|
000002A0: A7 31 35 30 00 DB 0A 69 00 41 B2 C5 28 41 24 29 |.150...i.A..(A$)|
000002B0: 3A 91 41 89 32 30 32 35 2C 31 36 35 2C 35 39 35 |:.A.2025,165,595|
000002C0: 2C 37 33 30 2C 37 38 35 2C 39 33 30 2C 31 35 39 |,730,785,930,159|
000002D0: 35 2C 31 36 35 35 2C 31 34 31 30 00 E4 0A 6E 00 |5,1655,1410...n.|
000002E0: 3A 3A 21 A0 00 EA 0A 73 00 8E 00 F6 0A 78 00 3A |::!....s.....x.:|
000002F0: 3A 21 9F 2C 50 24 00 FC 0A 7D 00 8E 00 05 0B 82 |:!.,P$...}......|
00000300: 00 3A 3A 21 8C 00 0B 0B 87 00 8E 00 1B 0B 8C 00 |.::!............|
00000310: 3A 3A 21 41 47 41 49 4E 2C 50 24 00 21 0B 91 00 |::!AGAIN,P$.!...|
00000320: 8E 00 34 0B 96 00 3A 3A 21 86 28 39 2C 35 2C 33 |..4...::!.(9,5,3|
00000330: 30 2C 37 29 00 70 0B 9B 00 50 24 B2 22 11 11 20 |0,7).p...P$.".. |
00000340: 20 51 55 49 54 21 20 20 41 52 45 20 59 4F 55 20 | QUIT! ARE YOU |
00000350: 53 55 52 45 20 59 2F 4E 22 3A 8D 31 32 30 3A 8D |SURE Y/N":.120:.|
00000360: 32 34 39 35 3A 8B 41 24 B2 22 4E 22 A7 32 31 30 |2495:.A$."N".210|
00000370: 00 82 0B A0 00 99 22 93 22 3A 9E 34 39 31 35 32 |......".":.49152|
00000380: 3A 80 00 96 0B A5 00 3A 3A 21 86 28 36 2C 33 2C |:......::!.(6,3,|
00000390: 33 33 2C 31 32 29 00 BF 0B AA 00 50 24 B2 22 20 |33,12).....P$." |
000003A0: 20 20 50 52 49 4E 54 20 54 48 45 20 46 49 4C 45 | PRINT THE FILE|
000003B0: 2D 4F 55 54 50 55 54 20 54 4F 3F 22 AA 52 24 00 |-OUTPUT TO?".R$.|
000003C0: EB 0B AF 00 50 24 B2 50 24 AA 22 20 20 20 B7 B7 |....P$.P$." ..|
000003D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000003E0: B7 B7 B7 B7 B7 B7 B7 22 AA 52 24 00 08 0C B4 00 |.......".R$.....|
000003F0: 50 24 B2 50 24 AA 22 20 20 12 31 92 20 53 43 52 |P$.P$." .1. SCR|
00000400: 45 45 4E 11 22 AA 52 24 00 36 0C B9 00 50 24 B2 |EEN.".R$.6...P$.|
00000410: 50 24 AA 22 20 20 12 32 92 20 20 38 30 20 43 4F |P$." .2. 80 CO|
00000420: 4C 2E 20 53 54 41 4E 44 41 52 44 20 50 52 49 4E |L. STANDARD PRIN|
00000430: 54 11 22 AA 52 24 00 65 0C BE 00 50 24 B2 50 24 |T.".R$.e...P$.P$|
00000440: AA 22 20 20 12 33 92 20 31 33 36 20 43 4F 4C 2E |." .3. 136 COL.|
00000450: 20 43 4F 4E 44 45 4E 53 45 44 20 50 52 49 4E 54 | CONDENSED PRINT|
00000460: 11 22 AA 52 24 00 82 0C C3 00 50 24 B2 50 24 AA |.".R$.....P$.P$.|
00000470: 22 20 20 12 34 92 20 41 42 4F 52 54 22 3A 8D 31 |" .4. ABORT":.1|
00000480: 32 30 00 A1 0C C8 00 A1 41 24 3A 91 C5 28 41 24 |20......A$:..(A$|
00000490: 29 89 32 32 35 2C 32 39 35 2C 33 39 30 2C 32 31 |).225,295,390,21|
000004A0: 30 00 AA 0C CD 00 89 32 30 30 00 B7 0C D2 00 8D |0......200......|
000004B0: 31 31 30 3A 89 39 35 00 CA 0C D7 00 A1 41 24 3A |110:.95......A$:|
000004C0: 8B 41 24 B2 22 22 A7 32 31 35 00 D0 0C DC 00 8E |.A$."".215......|
000004D0: 00 03 0D E1 00 8D 31 31 30 3A 81 49 B2 31 A4 B5 |......110:.I.1..|
000004E0: 28 4E AD 32 32 29 AA 31 3A 99 22 93 22 3A 81 4A |(N.22).1:.".":.J|
000004F0: B2 32 32 AC 28 49 AB 31 29 AA 31 A4 32 32 AC 49 |.22.(I.1).1.22.I|
00000500: AB 31 31 00 0F 0D EB 00 81 4B B2 2E A4 32 31 00 |.11......K...21.|
00000510: 21 0D F0 00 8B 4A AA 4B B1 31 32 30 30 A7 32 35 |!....J.K.1200.25|
00000520: 30 00 3A 0D F5 00 99 22 20 20 20 20 20 20 20 20 |0.:...." |
00000530: 20 22 3B 44 24 28 4A AA 4B 29 00 41 0D FA 00 82 | ";D$(J.K).A....|
00000540: 4B 00 74 0D FF 00 97 32 31 34 2C 32 33 3A 99 3A |K.t....214,23:.:|
00000550: 99 A3 36 29 22 12 20 46 31 3D 4D 45 4E 55 20 20 |..6)". F1=MENU |
00000560: 20 46 35 3D 55 50 20 20 20 46 37 3D 44 4F 57 4E | F5=UP F7=DOWN|
00000570: 20 92 22 3B 00 97 0D 04 01 A1 41 24 3A 8B 41 24 | .";......A$:.A$|
00000580: B2 46 31 24 A7 49 B2 28 B5 28 4E AD 32 32 29 29 |.F1$.I.(.(N.22))|
00000590: AA 31 3A 89 32 39 30 00 B2 0D 0E 01 8B 41 24 B2 |.1:.290......A$.|
000005A0: 46 35 24 AF 49 B1 31 A7 49 B2 49 AB 32 3A 89 32 |F5$.I.1.I.I.2:.2|
000005B0: 39 30 00 CB 0D 13 01 8B 41 24 B2 46 35 24 AF 49 |90......A$.F5$.I|
000005C0: B2 31 A7 49 B2 2E 3A 89 32 39 30 00 DC 0D 18 01 |.1.I..:.290.....|
000005D0: 8B 41 24 B3 B1 46 37 24 A7 32 36 30 00 F7 0D 1D |.A$..F7$.260....|
000005E0: 01 8B 49 B2 B5 28 4E AD 32 32 29 AA 31 A7 49 B2 |..I..(N.22).1.I.|
000005F0: B5 28 4E AD 32 32 29 00 02 0E 22 01 82 49 3A 89 |.(N.22)..."..I:.|
00000600: 34 30 00 0B 0E 27 01 8D 31 33 30 00 48 0E 2C 01 |40...'..130.H.,.|
00000610: 8D 32 35 30 35 3A 99 22 11 20 45 4E 54 45 52 20 |.2505:.". ENTER |
00000620: 54 4F 44 41 59 27 53 20 44 41 54 45 20 28 4E 30 |TODAY'S DATE (N0|
00000630: 20 43 4F 4D 4D 41 53 29 11 22 3A 99 22 20 20 20 | COMMAS).":." |
00000640: 20 22 3B 3A 85 58 59 24 00 88 0E 31 01 99 22 11 | ";:.XY$...1..".|
00000650: 20 45 4E 54 45 52 20 50 52 49 4E 54 45 52 20 44 | ENTER PRINTER D|
00000660: 45 56 49 43 45 20 4E 55 4D 42 45 52 20 34 20 2D |EVICE NUMBER 4 -|
00000670: 20 37 11 22 3A 99 22 20 20 20 20 20 20 34 9D 9D | 7.":." 4..|
00000680: 9D 22 3B 3A 85 44 4E 24 00 B4 0E 36 01 44 4E B2 |.";:.DN$...6.DN.|
00000690: C5 28 C8 28 44 4E 24 2C 31 29 29 3A 8B 44 4E B3 |.(.(DN$,1)):.DN.|
000006A0: 34 B0 44 4E B1 37 A7 99 22 91 91 91 91 22 3B 3A |4.DN.7.."....";:|
000006B0: 89 33 30 35 00 F5 0E 3B 01 50 53 24 B2 5A 53 24 |.305...;.PS$.ZS$|
000006C0: 3A 8B 50 53 24 B2 22 22 A7 99 22 11 20 45 4E 54 |:.PS$.""..". ENT|
000006D0: 45 52 20 4E 41 4D 45 20 46 4F 52 20 50 52 49 4E |ER NAME FOR PRIN|
000006E0: 54 4F 55 54 22 3A 99 22 20 20 20 20 20 11 22 3B |TOUT":." .";|
000006F0: 3A 85 50 53 24 00 27 0F 40 01 99 22 11 20 45 4E |:.PS$.'.@..". EN|
00000700: 54 45 52 20 50 41 47 45 20 4C 45 4E 47 54 48 11 |TER PAGE LENGTH.|
00000710: 22 3A 99 22 20 20 20 20 20 20 36 36 9D 9D 9D 9D |":." 66....|
00000720: 22 3B 3A 85 20 4C 50 00 3C 0F 45 01 8D 35 36 35 |";:. LP.<.E..565|
00000730: 3A A0 34 3A 9F 34 2C 44 4E 3A 98 34 00 5B 0F 4A |:.4:.4,DN:.4.[.J|
00000740: 01 4C 50 B2 4C 50 AB 37 3A 50 4E B2 B5 28 28 4E |.LP.LP.7:PN..((N|
00000750: AD 28 4C 50 AC 33 29 29 AA 31 29 00 7B 0F 4F 01 |.(LP.3)).1).{.O.|
00000760: 81 50 B2 31 A4 50 4E 3A 53 B2 50 AC 28 4C 50 AC |.P.1.PN:S.P.(LP.|
00000770: 33 29 AB 28 4C 50 AC 33 29 AA 31 00 BE 0F 54 01 |3).(LP.3).1...T.|
00000780: 98 34 2C 22 20 20 20 20 43 41 54 41 4C 4F 47 55 |.4," CATALOGU|
00000790: 45 20 4F 46 20 22 3B 50 53 24 3B 22 20 4F 4E 20 |E OF ";PS$;" ON |
000007A0: 54 48 45 20 22 3B 58 59 24 3B 22 20 20 20 20 20 |THE ";XY$;" |
000007B0: 20 20 20 20 20 20 50 41 47 45 23 22 3B 50 00 C7 | PAGE#";P..|
000007C0: 0F 59 01 8D 35 35 35 00 01 10 5E 01 98 34 2C 22 |.Y..555...^..4,"|
000007D0: 20 20 20 22 3B 3A 81 51 51 B2 31 A4 33 3A 98 34 | ";:.QQ.1.3:.4|
000007E0: 2C 22 20 20 50 52 4F 47 52 41 4D 20 4E 41 4D 45 |," PROGRAM NAME|
000007F0: 2E 2E 2E 2E 2E 44 49 53 4B 20 22 3B 3A 82 3A 98 |.....DISK ";:.:.|
00000800: 34 00 29 10 63 01 8D 35 35 35 3A 8B 50 B2 50 4E |4.).c..555:.P.PN|
00000810: A7 4C 50 B2 B5 28 28 4E AD 33 29 AB 28 28 50 AB |.LP..((N.3).((P.|
00000820: 31 29 AC 4C 50 29 29 AA 31 00 39 10 68 01 81 58 |1).LP)).1.9.h..X|
00000830: B2 53 A4 53 AA 4C 50 AB 31 00 6F 10 6D 01 98 34 |.S.S.LP.1.o.m..4|
00000840: 2C 22 20 20 20 20 20 22 3B 44 24 28 58 29 AA 22 |," ";D$(X)."|
00000850: 20 20 20 22 3B AA 44 24 28 58 AA 4C 50 29 AA 22 | ";.D$(X.LP)."|
00000860: 20 20 20 22 AA 44 24 28 58 AA 32 AC 4C 50 29 00 | ".D$(X.2.LP).|
00000870: 85 10 72 01 8B 20 C2 28 31 39 37 29 B2 34 20 A7 |..r.. .(197).4 .|
00000880: 20 89 33 38 30 00 98 10 77 01 82 58 3A 98 34 3A | .380...w..X:.4:|
00000890: 98 34 3A 98 34 3A 82 50 00 A2 10 7C 01 98 34 3A |.4:.4:.P...|..4:|
000008A0: A0 34 00 AF 10 81 01 8D 31 33 30 3A 89 34 30 00 |.4......130:.40.|
000008B0: BF 10 86 01 97 31 39 38 2C 30 3A 8D 31 33 30 00 |.....198,0:.130.|
000008C0: FC 10 8B 01 8D 32 35 30 35 3A 99 22 11 20 45 4E |.....2505:.". EN|
000008D0: 54 45 52 20 54 4F 44 41 59 27 53 20 44 41 54 45 |TER TODAY'S DATE|
000008E0: 20 28 4E 30 20 43 4F 4D 4D 41 53 29 11 22 3A 99 | (N0 COMMAS).":.|
000008F0: 22 20 20 20 20 22 3B 3A 85 58 59 24 00 3C 11 90 |" ";:.XY$.<..|
00000900: 01 99 22 11 20 45 4E 54 45 52 20 50 52 49 4E 54 |..". ENTER PRINT|
00000910: 45 52 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 |ER DEVICE NUMBER|
00000920: 20 34 20 2D 20 37 11 22 3A 99 22 20 20 20 20 20 | 4 - 7.":." |
00000930: 20 34 9D 9D 9D 22 3B 3A 85 44 4E 24 00 68 11 95 | 4...";:.DN$.h..|
00000940: 01 44 4E B2 C5 28 C8 28 44 4E 24 2C 31 29 29 3A |.DN..(.(DN$,1)):|
00000950: 8B 44 4E B3 34 B0 44 4E B1 37 A7 99 22 91 91 91 |.DN.4.DN.7.."...|
00000960: 91 22 3B 3A 89 34 30 30 00 A8 11 9A 01 50 53 24 |.";:.400.....PS$|
00000970: B2 5A 53 24 3A 8B 50 53 24 B2 22 22 A7 99 22 11 |.ZS$:.PS$.""..".|
00000980: 20 45 4E 54 45 52 20 4E 41 4D 45 20 46 4F 52 20 | ENTER NAME FOR |
00000990: 50 52 49 4E 54 4F 55 54 22 3A 99 22 20 20 20 20 |PRINTOUT":." |
000009A0: 11 22 3B 3A 85 50 53 24 00 EA 11 9F 01 99 22 11 |.";:.PS$......".|
000009B0: 49 4E 54 45 52 46 41 43 45 20 12 54 92 52 41 4E |INTERFACE .T.RAN|
000009C0: 53 50 41 52 45 4E 54 2F 12 58 92 45 54 49 43 20 |SPARENT/.X.ETIC |
000009D0: 53 45 4E 49 4F 52 22 3A 85 22 11 20 20 20 20 20 |SENIOR":.". |
000009E0: 20 54 9D 9D 9D 22 3B 44 43 24 00 0F 12 A4 01 8B | T...";DC$......|
000009F0: 44 43 24 B3 B1 22 54 22 AF 44 43 24 B3 B1 22 58 |DC$.."T".DC$.."X|
00000A00: 22 A7 99 22 91 91 91 91 22 3B 3A 89 34 31 35 00 |".."....";:.415.|
00000A10: 26 12 A9 01 8B 44 43 24 B2 22 58 22 A7 48 B2 31 |&....DC$."X".H.1|
00000A20: 35 3A 89 34 35 30 00 61 12 AE 01 99 22 11 20 45 |5:.450.a....". E|
00000A30: 50 53 4F 4D 20 4F 52 20 47 45 4D 49 4E 49 20 50 |PSOM OR GEMINI P|
00000A40: 52 49 4E 54 45 52 20 20 45 2F 47 11 22 3A 99 22 |RINTER E/G.":."|
00000A50: 20 20 20 20 20 20 45 9D 9D 9D 22 3B 3A 85 44 43 | E...";:.DC|
00000A60: 24 00 87 12 B3 01 8B 44 43 24 B3 B1 22 45 22 AF |$......DC$.."E".|
00000A70: 20 44 43 24 B3 B1 22 47 22 A7 99 22 91 91 91 91 | DC$.."G".."....|
00000A80: 22 3B 3A 89 34 33 30 00 9A 12 B8 01 8B 44 43 24 |";:.430......DC$|
00000A90: B2 22 45 22 A7 48 B2 31 35 37 00 AC 12 BD 01 8B |."E".H.157......|
00000AA0: 44 43 24 B2 22 47 22 A7 48 B2 32 30 00 B7 12 C2 |DC$."G".H.20....|
00000AB0: 01 97 31 39 38 2C 30 00 E9 12 C7 01 99 22 11 20 |..198,0......". |
00000AC0: 45 4E 54 45 52 20 50 41 47 45 20 4C 45 4E 47 54 |ENTER PAGE LENGT|
00000AD0: 48 11 22 3A 99 22 20 20 20 20 20 20 36 36 9D 9D |H.":." 66..|
00000AE0: 9D 9D 22 3B 3A 85 20 4C 50 00 17 13 CC 01 8D 35 |..";:. LP......5|
00000AF0: 36 35 3A 8B 44 43 24 B2 22 58 22 A7 A0 34 3A 9F |65:.DC$."X"..4:.|
00000B00: 34 2C 44 4E 3A 98 34 2C C7 28 32 37 29 3B C7 28 |4,DN:.4,.(27);.(|
00000B10: 48 29 3A 89 34 37 30 00 2C 13 D1 01 A0 34 3A 9F |H):.470.,....4:.|
00000B20: 34 2C 44 4E 3A 98 34 2C C7 28 48 29 00 4B 13 D6 |4,DN:.4,.(H).K..|
00000B30: 01 4C 50 B2 4C 50 AB 37 3A 50 4E B2 B5 28 28 4E |.LP.LP.7:PN..((N|
00000B40: AD 28 4C 50 AC 35 29 29 AA 31 29 00 6B 13 DB 01 |.(LP.5)).1).k...|
00000B50: 81 50 B2 31 A4 50 4E 3A 53 B2 50 AC 28 4C 50 AC |.P.1.PN:S.P.(LP.|
00000B60: 35 29 AB 28 4C 50 AC 35 29 AA 31 00 A3 13 E0 01 |5).(LP.5).1.....|
00000B70: 53 31 24 B2 22 20 20 20 20 20 22 3A 53 32 24 B2 |S1$." ":S2$.|
00000B80: 22 20 20 20 20 20 20 20 20 20 20 22 3A 53 33 24 |" ":S3$|
00000B90: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000BA0: 20 20 22 00 E9 13 E5 01 8B 44 43 24 B3 B1 22 58 | "......DC$.."X|
00000BB0: 22 A7 98 34 2C 53 32 24 3B 22 43 41 54 41 4C 4F |"..4,S2$;"CATALO|
00000BC0: 47 55 45 20 4F 46 20 22 3B 50 53 24 3B 22 20 4F |GUE OF ";PS$;" O|
00000BD0: 4E 20 54 48 45 20 22 3B 58 59 24 3B 53 33 24 3B |N THE ";XY$;S3$;|
00000BE0: 22 50 41 47 45 23 22 3B 50 00 FB 13 EA 01 8B 44 |"PAGE#";P......D|
00000BF0: 43 24 B3 B1 22 58 22 A7 35 31 30 00 0F 14 EF 01 |C$.."X".510.....|
00000C00: 98 34 2C C7 28 32 37 29 3B C7 28 31 34 29 3B 00 |.4,.(27);.(14);.|
00000C10: 42 14 F4 01 98 34 2C 53 31 24 3B 22 4C 49 53 54 |B....4,S1$;"LIST|
00000C20: 20 4F 46 20 22 3B C7 28 32 37 29 3B C7 28 37 31 | OF ";.(27);.(71|
00000C30: 29 3B 50 53 24 3B C7 28 32 37 29 3B C7 28 37 32 |);PS$;.(27);.(72|
00000C40: 29 3B 00 77 14 F9 01 98 34 2C 22 20 4F 4E 20 54 |);.w....4," ON T|
00000C50: 48 45 20 22 3B 58 59 24 3B 53 32 24 3B 22 20 50 |HE ";XY$;S2$;" P|
00000C60: 41 47 45 22 3B 50 3B C7 28 32 37 29 3B C7 28 38 |AGE";P;.(27);.(8|
00000C70: 37 29 3B C7 28 30 29 00 80 14 FE 01 8D 35 36 30 |7);.(0)......560|
00000C80: 00 BF 14 03 02 98 34 2C 22 20 20 20 20 20 20 20 |......4," |
00000C90: 20 22 3B 3A 81 51 51 B2 31 A4 35 3A 98 34 2C 22 | ";:.QQ.1.5:.4,"|
00000CA0: 20 20 50 52 4F 47 52 41 4D 20 4E 41 4D 45 2E 2E | PROGRAM NAME..|
00000CB0: 2E 2E 2E 44 49 53 4B 20 22 3B 3A 82 3A 98 34 00 |...DISK ";:.:.4.|
00000CC0: E7 14 08 02 8D 35 36 30 3A 8B 50 B2 50 4E A7 4C |.....560:.P.PN.L|
00000CD0: 50 B2 B5 28 28 4E AD 35 29 AB 28 28 50 AB 31 29 |P..((N.5).((P.1)|
00000CE0: AC 4C 50 29 29 AA 31 00 F7 14 0D 02 81 58 B2 53 |.LP)).1......X.S|
00000CF0: A4 53 AA 4C 50 AB 31 00 37 15 12 02 98 34 2C 22 |.S.LP.1.7....4,"|
00000D00: 20 20 20 20 20 20 20 20 20 20 22 3B 44 24 28 58 | ";D$(X|
00000D10: 29 AA 22 20 20 20 22 3B AA 44 24 28 58 AA 4C 50 |)." ";.D$(X.LP|
00000D20: 29 AA 22 20 20 20 22 AA 44 24 28 58 AA 32 AC 4C |)." ".D$(X.2.L|
00000D30: 50 29 AA 22 20 22 3B 00 5F 15 17 02 98 34 2C 22 |P)." ";._....4,"|
00000D40: 20 20 22 AA 44 24 28 58 AA 33 AC 4C 50 29 AA 22 | ".D$(X.3.LP)."|
00000D50: 20 20 20 22 AA 44 24 28 58 AA 34 AC 4C 50 29 00 | ".D$(X.4.LP).|
00000D60: 75 15 1C 02 8B 20 C2 28 31 39 37 29 B2 34 20 A7 |u.... .(197).4 .|
00000D70: 20 89 35 35 30 00 88 15 21 02 82 58 3A 98 34 3A | .550...!..X:.4:|
00000D80: 98 34 3A 98 34 3A 82 50 00 A5 15 26 02 98 34 2C |.4:.4:.P...&..4,|
00000D90: C7 28 32 37 29 AA 22 40 22 3A 98 34 3A A0 34 3A |.(27)."@":.4:.4:|
00000DA0: 3A 89 33 38 35 00 CA 15 2B 02 98 34 2C 22 20 20 |:.385...+..4," |
00000DB0: 22 3B 3A 81 51 51 B2 31 A4 37 36 3A 98 34 2C 22 |";:.QQ.1.76:.4,"|
00000DC0: 2D 22 3B 3A 82 3A 98 34 3A 8E 00 F8 15 30 02 98 |-";:.:.4:....0..|
00000DD0: 34 2C 22 20 20 20 20 20 20 20 20 20 20 22 3B 3A |4," ";:|
00000DE0: 81 51 51 B2 31 A4 31 31 37 3A 98 34 2C 22 2D 22 |.QQ.1.117:.4,"-"|
00000DF0: 3B 3A 82 3A 98 34 3A 8E 00 0B 16 35 02 3A 3A 21 |;:.:.4:....5.::!|
00000E00: 86 28 35 2C 35 2C 33 31 2C 37 29 00 34 16 3A 02 |.(5,5,31,7).4.:.|
00000E10: 50 24 B2 22 53 45 54 20 50 52 49 4E 54 45 52 20 |P$."SET PRINTER |
00000E20: 54 4F 20 54 4F 50 20 4F 46 20 53 48 45 45 54 11 |TO TOP OF SHEET.|
00000E30: 22 AA 52 24 00 5F 16 3F 02 50 24 B2 50 24 AA 22 |".R$._.?.P$.P$."|
00000E40: 20 20 20 20 50 52 45 53 53 20 12 20 53 48 49 46 | PRESS . SHIF|
00000E50: 54 20 92 20 4B 45 59 20 54 4F 11 22 AA 52 24 00 |T . KEY TO.".R$.|
00000E60: 87 16 44 02 50 24 B2 50 24 AA 22 20 20 20 20 20 |..D.P$.P$." |
00000E70: 20 20 20 53 54 41 52 54 20 50 52 49 4E 54 49 4E | START PRINTIN|
00000E80: 47 22 3A 8D 31 32 30 00 BD 16 4E 02 92 28 36 35 |G":.120...N..(65|
00000E90: 33 29 2C 31 3A 50 24 B2 22 11 11 50 52 49 4E 54 |3),1:P$."..PRINT|
00000EA0: 49 4E 47 20 50 52 45 53 53 20 27 46 31 27 20 54 |ING PRESS 'F1' T|
00000EB0: 4F 20 41 42 4F 52 54 22 3A 89 31 34 30 00 E1 16 |O ABORT":.140...|
00000EC0: 52 02 50 24 B2 22 20 20 20 20 20 20 20 53 4F 52 |R.P$." SOR|
00000ED0: 54 20 54 48 45 20 46 49 4C 45 11 22 AA 52 24 3A |T THE FILE.".R$:|
00000EE0: 8E 00 EC 16 53 02 8F 20 53 4F 52 54 00 00 17 58 |....S.. SORT...X|
00000EF0: 02 3A 3A 21 86 28 35 2C 31 30 2C 32 30 2C 35 29 |.::!.(5,10,20,5)|
00000F00: 00 33 17 5D 02 50 24 B2 22 11 53 4F 52 54 20 54 |.3.].P$.".SORT T|
00000F10: 48 45 20 46 49 4C 45 20 59 2F 4E 22 3A 8D 31 32 |HE FILE Y/N":.12|
00000F20: 30 3A 8D 32 34 39 35 3A 8B 41 24 B2 22 4E 22 A7 |0:.2495:.A$."N".|
00000F30: 32 31 30 00 42 17 62 02 8D 31 33 30 3A 8D 32 35 |210.B.b..130:.25|
00000F40: 30 35 00 55 17 67 02 3A 3A 21 86 28 35 2C 35 2C |05.U.g.::!.(5,5,|
00000F50: 33 30 2C 35 29 00 87 17 71 02 8D 35 39 34 3A 50 |30,5)...q..594:P|
00000F60: 24 B2 50 24 AA 22 20 20 20 20 20 53 4F 52 54 20 |$.P$." SORT |
00000F70: 42 59 20 12 4E 92 41 4D 45 20 4F 52 20 12 49 92 |BY .N.AME OR .I.|
00000F80: 44 22 3A 8D 31 32 30 00 A4 17 76 02 A1 41 24 3A |D":.120...v..A$:|
00000F90: 8B 41 24 B3 B1 22 4E 22 AF 41 24 B3 B1 22 49 22 |.A$.."N".A$.."I"|
00000FA0: A7 36 33 30 00 B4 17 7B 02 8B 41 24 B2 22 4E 22 |.630...{..A$."N"|
00000FB0: A7 36 37 30 00 E6 17 85 02 8D 35 39 34 3A 50 24 |.670......594:P$|
00000FC0: B2 50 24 AA 22 20 53 4F 52 54 49 4E 47 20 42 59 |.P$." SORTING BY|
00000FD0: 20 49 44 3A 3A 50 4C 45 41 53 45 20 57 41 49 54 | ID::PLEASE WAIT|
00000FE0: 22 3A 8D 31 34 30 00 10 18 8A 02 81 49 B2 31 A4 |":.140......I.1.|
00000FF0: 4E 3A 44 24 28 49 29 B2 C9 28 44 24 28 49 29 2C |N:D$(I)..(D$(I),|
00001000: 34 29 AA C8 28 44 24 28 49 29 2C 31 37 29 3A 82 |4)..(D$(I),17):.|
00001010: 00 23 18 8F 02 9E 35 32 34 38 30 2C 4E 2C 44 24 |.#....52480,N,D$|
00001020: 28 31 29 00 4D 18 94 02 81 49 B2 31 A4 4E 3A 44 |(1).M....I.1.N:D|
00001030: 24 28 49 29 B2 C9 28 44 24 28 49 29 2C 31 37 29 |$(I)..(D$(I),17)|
00001040: AA C8 28 44 24 28 49 29 2C 34 29 3A 82 00 56 18 |..(D$(I),4):..V.|
00001050: 99 02 89 33 38 35 00 88 18 9E 02 8D 35 39 34 3A |...385......594:|
00001060: 50 24 B2 50 24 AA 22 53 4F 52 54 49 4E 47 20 42 |P$.P$."SORTING B|
00001070: 59 20 4E 41 4D 45 3A 50 4C 45 41 53 45 20 57 41 |Y NAME:PLEASE WA|
00001080: 49 54 22 3A 8D 31 34 30 00 A5 18 A8 02 4E 31 B2 |IT":.140.....N1.|
00001090: 2E 3A 4E 32 B2 2E 3A 9E 35 32 34 38 30 2C 4E 2C |.:N2..:.52480,N,|
000010A0: 44 24 28 31 29 00 CC 18 AD 02 81 49 B2 31 A4 4E |D$(1)......I.1.N|
000010B0: 3A 8B 44 24 28 49 29 B2 50 49 24 A7 4E 31 B2 49 |:.D$(I).PI$.N1.I|
000010C0: AB 31 3A 8D 37 32 30 3A 89 36 39 35 00 DE 18 B2 |.1:.720:.695....|
000010D0: 02 82 49 3A 3A 8B 4E 31 B2 2E A7 36 36 35 00 F1 |..I::.N1...665..|
000010E0: 18 B7 02 3A 3A 21 86 28 35 2C 35 2C 33 30 2C 35 |...::!.(5,5,30,5|
000010F0: 29 00 FA 18 BC 02 8D 31 33 30 00 41 19 C1 02 4E |)......130.A...N|
00001100: 32 B2 4E AB 4E 31 3A 50 24 B2 22 20 20 20 20 20 |2.N.N1:P$." |
00001110: 20 22 3A 4E 32 24 B2 C4 28 4E 32 29 3A 50 24 B2 | ":N2$..(N2):P$.|
00001120: 50 24 AA 4E 32 24 AA 22 20 20 46 49 4C 45 53 20 |P$.N2$." FILES |
00001130: 52 45 4D 4F 56 45 44 11 22 AA 52 24 3A 4E B2 4E |REMOVED.".R$:N.N|
00001140: 31 00 6B 19 C6 02 50 24 B2 50 24 AA 22 20 20 20 |1.k...P$.P$." |
00001150: 20 20 20 20 12 20 50 52 45 53 53 20 41 4E 59 20 | . PRESS ANY |
00001160: 4B 45 59 20 92 22 3A 8D 31 32 30 00 79 19 CB 02 |KEY .":.120.y...|
00001170: 8D 32 31 35 3A 89 33 38 35 00 AF 19 D0 02 81 49 |.215:.385......I|
00001180: B2 31 A4 4E AA 31 3A 8B 44 24 28 49 29 B2 50 49 |.1.N.1:.D$(I).PI|
00001190: 24 A7 44 24 28 49 29 B2 22 20 20 20 20 20 20 20 |$.D$(I)." |
000011A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000011B0: B8 19 D5 02 82 49 3A 8E 00 CB 19 DA 02 3A 3A 21 |.....I:......::!|
000011C0: 86 28 35 2C 35 2C 33 30 2C 35 29 00 07 1A DF 02 |.(5,5,30,5).....|
000011D0: 50 24 B2 22 11 20 20 53 45 41 52 43 48 20 46 4F |P$.". SEARCH FO|
000011E0: 52 20 46 49 4C 45 20 4E 41 4D 45 20 59 2F 4E 22 |R FILE NAME Y/N"|
000011F0: 3A 8D 31 32 30 3A 8D 32 34 39 35 3A 8B 41 24 B2 |:.120:.2495:.A$.|
00001200: 22 4E 22 A7 32 31 30 00 1A 1A E4 02 3A 3A 21 86 |"N".210.....::!.|
00001210: 28 34 2C 36 2C 32 38 2C 35 29 00 4B 1A E9 02 8D |(4,6,28,5).K....|
00001220: 32 35 30 35 3A 8D 31 33 30 3A 50 24 B2 22 20 20 |2505:.130:P$." |
00001230: 53 45 41 52 43 48 20 46 4F 52 20 46 49 4C 45 20 |SEARCH FOR FILE |
00001240: 4E 41 4D 45 22 AA 52 24 AA 52 24 00 75 1A EE 02 |NAME".R$.R$.u...|
00001250: 50 24 B2 50 24 AA 22 45 4E 54 45 52 20 4E 41 4D |P$.P$."ENTER NAM|
00001260: 45 20 54 4F 20 53 45 41 52 43 48 20 46 4F 52 22 |E TO SEARCH FOR"|
00001270: 3A 8D 31 32 30 00 8E 1A F3 02 3A 3A 21 99 40 31 |:.120.....::!.@1|
00001280: 2C 31 32 2C 22 20 20 20 20 20 20 20 22 3B 00 A7 |,12," ";..|
00001290: 1A F8 02 53 4E 24 B2 22 22 3A 85 53 4E 24 3A 5A |...SN$."":.SN$:Z|
000012A0: B2 C3 28 53 4E 24 29 00 CC 1A FD 02 81 49 B2 31 |..(SN$)......I.1|
000012B0: A4 4E 3A 8B C8 28 44 24 28 49 29 2C 5A 29 B2 53 |.N:..(D$(I),Z).S|
000012C0: 4E 24 A7 99 A3 39 29 44 24 28 49 29 00 DE 1A 02 |N$...9)D$(I)....|
000012D0: 03 8B C2 28 36 35 33 29 B2 31 A7 37 37 30 00 12 |...(653).1.770..|
000012E0: 1B 07 03 82 49 3A 8D 32 32 31 30 3A 99 22 11 20 |....I:.2210:.". |
000012F0: 20 20 20 20 20 12 45 4E 44 20 4F 46 20 4C 49 53 | .END OF LIS|
00001300: 54 2E 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |T. PRESS ANY KE|
00001310: 59 22 00 20 1B 0C 03 8D 32 31 35 3A 89 33 38 35 |Y". ....215:.385|
00001320: 00 36 1B 11 03 8F 20 43 48 41 4E 47 45 20 44 49 |.6.... CHANGE DI|
00001330: 53 4B 20 49 2F 44 00 49 1B 16 03 3A 3A 21 86 28 |SK I/D.I...::!.(|
00001340: 33 2C 31 2C 33 39 2C 33 29 00 7B 1B 1B 03 50 24 |3,1,39,3).{...P$|
00001350: B2 22 20 20 44 4F 20 59 4F 55 20 57 49 53 48 20 |." DO YOU WISH |
00001360: 54 4F 20 43 48 41 4E 47 45 20 41 4E 20 49 44 20 |TO CHANGE AN ID |
00001370: 28 59 2F 4E 29 22 3A 8D 31 32 30 00 91 1B 20 03 |(Y/N)":.120... .|
00001380: 8D 32 34 39 35 3A 8B 41 24 B2 22 59 22 A7 38 31 |.2495:.A$."Y".81|
00001390: 30 00 9F 1B 25 03 8D 31 31 30 3A 89 38 37 30 00 |0...%..110:.870.|
000013A0: AE 1B 2A 03 8D 32 35 30 35 3A 8D 31 33 30 00 CB |..*..2505:.130..|
000013B0: 1B 2F 03 99 A3 31 32 29 22 11 11 43 48 41 4E 47 |./...12)"..CHANG|
000013C0: 45 20 44 49 53 4B 20 49 2F 44 22 00 E8 1B 34 03 |E DISK I/D"...4.|
000013D0: 85 22 11 11 20 20 45 4E 54 45 52 20 4F 4C 44 20 |.".. ENTER OLD |
000013E0: 49 44 20 22 3B 4F 49 24 00 04 1C 39 03 8B C3 28 |ID ";OI$...9...(|
000013F0: 4F 49 24 29 B3 B1 34 A7 99 22 91 91 91 22 3B 3A |OI$)..4.."...";:|
00001400: 89 38 32 30 00 21 1C 3E 03 85 22 11 11 20 20 45 |.820.!.>..".. E|
00001410: 4E 54 45 52 20 4E 45 57 20 49 44 20 22 3B 4E 49 |NTER NEW ID ";NI|
00001420: 24 00 3D 1C 43 03 8B C3 28 4E 49 24 29 B3 B1 34 |$.=.C...(NI$)..4|
00001430: A7 99 22 91 91 91 22 3B 3A 89 38 33 30 00 48 1C |.."...";:.830.H.|
00001440: 48 03 81 49 B2 31 A4 4E 00 73 1C 4D 03 8B 20 C9 |H..I.1.N.s.M.. .|
00001450: 28 44 24 28 49 29 2C 34 29 B2 4F 49 24 A7 44 24 |(D$(I),4).OI$.D$|
00001460: 28 49 29 B2 C8 28 44 24 28 49 29 2C 31 37 29 AA |(I)..(D$(I),17).|
00001470: 4E 49 24 00 79 1C 52 03 82 00 AC 1C 57 03 50 24 |NI$.y.R.....W.P$|
00001480: B2 22 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |."DO YOU WISH TO|
00001490: 20 43 48 41 4E 47 45 20 4D 4F 52 45 20 49 44 27 | CHANGE MORE ID'|
000014A0: 53 28 59 2F 4E 29 22 3A 8D 31 32 30 00 C8 1C 5C |S(Y/N)":.120...\|
000014B0: 03 8D 32 34 39 35 3A 8B 41 24 B2 22 4E 22 A7 8D |..2495:.A$."N"..|
000014C0: 31 31 30 3A 89 38 37 30 00 E5 1C 61 03 8D 31 31 |110:.870...a..11|
000014D0: 30 3A 4F 49 24 B2 22 22 3A 4E 49 24 B2 22 22 3A |0:OI$."":NI$."":|
000014E0: 89 20 38 32 30 00 02 1D 66 03 8F 20 53 45 41 52 |. 820...f.. SEAR|
000014F0: 43 48 20 46 4F 52 20 44 49 53 4B 20 4E 55 4D 42 |CH FOR DISK NUMB|
00001500: 45 52 00 15 1D 6B 03 3A 3A 21 86 28 33 2C 32 2C |ER...k.::!.(3,2,|
00001510: 33 37 2C 33 29 00 54 1D 70 03 50 24 B2 22 20 20 |37,3).T.p.P$." |
00001520: 20 20 53 45 41 52 43 48 20 46 4F 52 20 44 49 53 | SEARCH FOR DIS|
00001530: 4B 20 4E 55 4D 42 45 52 20 59 2F 4E 22 3A 8D 31 |K NUMBER Y/N":.1|
00001540: 32 30 3A 8D 32 34 39 35 3A 8B 41 24 B2 22 4E 22 |20:.2495:.A$."N"|
00001550: A7 33 38 35 00 8B 1D 75 03 8D 31 33 30 3A 8D 32 |.385...u..130:.2|
00001560: 35 30 35 3A 50 24 B2 22 20 20 20 20 20 20 20 53 |505:P$." S|
00001570: 45 41 52 43 48 20 46 4F 52 20 44 49 53 4B 20 4E |EARCH FOR DISK N|
00001580: 55 4D 42 45 52 22 3A 8D 31 32 30 00 9E 1D 7A 03 |UMBER":.120...z.|
00001590: 3A 3A 21 86 28 36 2C 34 2C 33 32 2C 33 29 00 CA |::!.(6,4,32,3)..|
000015A0: 1D 7F 03 50 24 B2 22 45 4E 54 45 52 20 34 20 43 |...P$."ENTER 4 C|
000015B0: 48 52 2E 20 49 44 20 54 4F 20 53 45 41 52 43 48 |HR. ID TO SEARCH|
000015C0: 20 46 4F 52 22 3A 8D 31 32 30 00 DD 1D 84 03 3A | FOR":.120.....:|
000015D0: 3A 21 99 40 2C 31 31 2C 30 2C 22 20 22 00 01 1E |:!.@,11,0," "...|
000015E0: 89 03 99 22 20 20 20 20 20 20 22 3B 3A 53 4E 24 |..." ";:SN$|
000015F0: B2 22 22 3A 85 53 4E 24 3A 5A B2 C3 28 53 4E 24 |."":.SN$:Z..(SN$|
00001600: 29 00 29 1E 8E 03 81 49 B2 31 A4 4E 3A 8B CA 28 |).)....I.1.N:..(|
00001610: 44 24 28 49 29 2C 31 38 2C 5A 29 B2 53 4E 24 A7 |D$(I),18,Z).SN$.|
00001620: 99 A3 39 29 44 24 28 49 29 00 3B 1E 93 03 8B C2 |..9)D$(I).;.....|
00001630: 28 36 35 33 29 B2 31 A7 39 31 35 00 6E 1E 98 03 |(653).1.915.n...|
00001640: 82 49 3A 8D 32 33 37 30 3A 99 22 11 20 20 20 20 |.I:.2370:.". |
00001650: 20 12 45 4E 44 20 4F 46 20 4C 49 53 54 2E 20 20 | .END OF LIST. |
00001660: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 00 7C |PRESS ANY KEY".||
00001670: 1E 9D 03 8D 32 31 35 3A 89 33 38 35 00 96 1E A2 |....215:.385....|
00001680: 03 8F 20 52 45 41 44 20 44 49 53 4B 20 44 49 52 |.. READ DISK DIR|
00001690: 45 43 54 4F 52 59 00 A9 1E A7 03 3A 3A 21 86 28 |ECTORY.....::!.(|
000016A0: 35 2C 37 2C 32 36 2C 35 29 00 E2 1E AC 03 50 24 |5,7,26,5).....P$|
000016B0: B2 22 11 56 49 45 57 20 44 49 53 4B 20 44 49 52 |.".VIEW DISK DIR|
000016C0: 45 43 54 4F 52 59 20 59 2F 4E 22 3A 8D 31 32 30 |ECTORY Y/N":.120|
000016D0: 3A 8D 32 34 39 35 3A 8B 41 24 B2 22 4E 22 A7 32 |:.2495:.A$."N".2|
000016E0: 31 30 00 EB 1E B1 03 8D 31 31 30 00 FE 1E B6 03 |10......110.....|
000016F0: 3A 3A 21 86 28 35 2C 33 2C 33 34 2C 35 29 00 18 |::!.(5,3,34,5)..|
00001700: 1F BB 03 44 B2 38 3A 44 44 24 B2 22 30 22 3A 8B |...D.8:DD$."0":.|
00001710: 44 31 B2 38 A7 39 37 35 00 4A 1F C0 03 8D 31 30 |D1.8.975.J....10|
00001720: 34 35 3A 50 24 B2 50 24 AA 22 20 20 20 20 20 20 |45:P$.P$." |
00001730: 57 48 41 54 20 44 45 56 49 43 45 20 28 38 20 4F |WHAT DEVICE (8 O|
00001740: 52 20 39 29 22 3A 8D 31 32 30 00 5F 1F C5 03 A1 |R 9)":.120._....|
00001750: 44 24 3A 44 B2 C5 28 C8 28 44 24 2C 31 29 29 00 |D$:D..(.(D$,1)).|
00001760: 70 1F CA 03 8B 44 B3 38 B0 44 B1 39 A7 39 36 35 |p....D.8.D.9.965|
00001770: 00 82 1F CF 03 8B 44 32 24 B2 22 30 3A 22 A7 39 |......D2$."0:".9|
00001780: 39 35 00 B3 1F D4 03 8D 31 30 34 35 3A 50 24 B2 |95......1045:P$.|
00001790: 50 24 AA 22 20 20 20 20 20 20 57 48 41 54 20 44 |P$." WHAT D|
000017A0: 52 49 56 45 20 28 30 20 4F 52 20 31 29 22 3A 8D |RIVE (0 OR 1)":.|
000017B0: 31 32 30 00 D1 1F D9 03 A1 44 44 24 3A 8B 44 44 |120......DD$:.DD|
000017C0: 24 B3 22 30 22 B0 44 44 24 B1 22 31 22 A7 39 38 |$."0".DD$."1".98|
000017D0: 35 00 DF 1F DE 03 44 52 B2 C5 28 44 44 24 29 00 |5.....DR..(DD$).|
000017E0: FA 1F E3 03 97 35 33 30 30 33 2C C6 28 44 44 24 |.....53003,.(DD$|
000017F0: 29 3A 97 35 33 30 31 30 2C 44 00 2C 20 E8 03 8D |):.53010,D., ...|
00001800: 31 30 34 35 3A 50 24 B2 50 24 AA 22 20 49 53 20 |1045:P$.P$." IS |
00001810: 43 4F 52 52 45 43 54 20 44 49 53 4B 20 49 4E 20 |CORRECT DISK IN |
00001820: 54 48 45 20 44 52 49 56 45 3F 22 3A 00 49 20 ED |THE DRIVE?":.I .|
00001830: 03 8B 44 31 B2 38 B0 44 32 24 B2 22 30 22 A7 8D |..D1.8.D2$."0"..|
00001840: 31 32 30 3A 89 31 30 31 35 00 52 20 F2 03 8D 31 |120:.1015.R ...1|
00001850: 34 30 00 68 20 F7 03 8D 32 34 39 35 3A 8B 41 24 |40.h ...2495:.A$|
00001860: B2 22 4E 22 A7 33 38 35 00 92 20 FC 03 9F 31 35 |."N".385.. ...15|
00001870: 2C 44 2C 31 35 3A 98 31 35 2C 22 49 22 AA 44 44 |,D,15:.15,"I".DD|
00001880: 24 3A 84 31 35 2C 45 2C 45 24 2C 46 2C 47 3A A0 |$:.15,E,E$,F,G:.|
00001890: 31 35 00 CC 20 01 04 8B 45 B3 B1 2E A7 99 22 93 |15.. ...E.....".|
000018A0: 11 11 11 20 44 49 53 4B 20 45 52 52 4F 52 2D 11 |... DISK ERROR-.|
000018B0: 11 22 3A 99 45 22 20 22 45 24 22 20 22 46 22 20 |.":.E" "E$" "F" |
000018C0: 22 47 3A A0 31 35 3A 89 31 30 33 35 00 DD 20 06 |"G:.15:.1035.. .|
000018D0: 04 8D 32 35 30 35 3A 9E 35 32 39 39 32 00 02 21 |..2505:.52992..!|
000018E0: 0B 04 99 A3 38 29 22 11 12 50 52 45 53 53 20 41 |....8)"..PRESS A|
000018F0: 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 |NY KEY WHEN READ|
00001900: 59 22 00 0F 21 10 04 8D 32 31 35 3A 89 34 30 00 |Y"..!...215:.40.|
00001910: 38 21 15 04 50 24 B2 22 20 20 20 20 20 20 56 49 |8!..P$." VI|
00001920: 45 57 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 |EW DISK DIRECTOR|
00001930: 59 11 22 AA 52 24 3A 8E 00 4C 21 1A 04 8F 20 41 |Y.".R$:..L!... A|
00001940: 44 44 20 46 52 4F 4D 20 44 49 53 4B 00 56 21 1F |DD FROM DISK.V!.|
00001950: 04 8D 32 35 30 35 00 69 21 24 04 3A 3A 21 86 28 |..2505.i!$.::!.(|
00001960: 32 2C 39 2C 32 32 2C 33 29 00 8B 21 29 04 50 24 |2,9,22,3)..!).P$|
00001970: B2 22 41 44 44 20 46 49 4C 45 53 20 46 52 4F 4D |."ADD FILES FROM|
00001980: 20 44 49 53 4B 22 3A 8D 31 32 30 00 9F 21 2E 04 | DISK":.120..!..|
00001990: 3A 3A 21 99 40 2C 37 2C 32 2C 22 20 20 20 22 00 |::!.@,7,2," ".|
000019A0: CE 21 33 04 99 22 46 49 4C 45 53 22 4E 3B 3A 8B |.!3.."FILES"N;:.|
000019B0: 49 34 24 B3 B1 22 41 22 A7 99 22 2D 20 4C 41 53 |I4$.."A".."- LAS|
000019C0: 54 20 49 44 20 55 53 45 44 20 22 49 34 24 00 FD |T ID USED "I4$..|
000019D0: 21 38 04 99 22 11 50 4C 41 43 45 20 44 49 53 4B |!8..".PLACE DISK|
000019E0: 20 54 4F 20 42 45 20 52 45 41 44 20 49 4E 54 4F | TO BE READ INTO|
000019F0: 20 44 52 49 56 45 20 38 20 41 4E 44 22 00 38 22 | DRIVE 8 AND".8"|
00001A00: 3D 04 99 22 11 49 4E 50 55 54 20 41 20 46 4F 55 |=..".INPUT A FOU|
00001A10: 52 20 43 48 41 52 41 43 54 45 52 20 49 44 20 12 |R CHARACTER ID .|
00001A20: 28 41 3D 41 42 4F 52 54 29 92 22 3A 99 22 11 20 |(A=ABORT).":.". |
00001A30: 20 20 20 2D 2D 2D 2D 22 00 5B 22 42 04 49 34 24 | ----".["B.I4$|
00001A40: B2 22 22 3A 85 22 20 20 22 3B 49 34 24 3A 3A 8B |."":." ";I4$::.|
00001A50: 49 34 24 B2 22 41 22 A7 33 38 35 00 6C 22 47 04 |I4$."A".385.l"G.|
00001A60: 8B 49 34 24 B2 22 22 A7 31 30 37 30 00 80 22 4C |.I4$."".1070.."L|
00001A70: 04 8B C3 28 49 34 24 29 B3 B1 34 A7 31 30 37 30 |...(I4$)..4.1070|
00001A80: 00 99 22 51 04 99 22 11 20 51 55 45 52 59 3F 20 |.."Q..". QUERY? |
00001A90: 28 59 2F 4E 29 20 20 22 3B 00 BA 22 56 04 A1 51 |(Y/N) ";.."V..Q|
00001AA0: 55 24 3A 8B 51 55 24 B3 B1 22 59 22 AF 51 55 24 |U$:.QU$.."Y".QU$|
00001AB0: B3 B1 22 4E 22 A7 31 31 31 30 00 DD 22 5B 04 8B |.."N".1110.."[..|
00001AC0: 51 55 24 B2 22 59 22 A7 99 22 12 28 59 2F 4E 2F |QU$."Y"..".(Y/N/|
00001AD0: 45 2F 46 31 3D 41 42 4F 52 54 29 92 22 00 FA 22 |E/F1=ABORT).".."|
00001AE0: 60 04 8B 51 55 24 B2 22 4E 22 A7 99 22 12 28 46 |`..QU$."N"..".(F|
00001AF0: 31 3D 41 42 4F 52 54 29 92 22 00 21 23 65 04 9F |1=ABORT).".!#e..|
00001B00: 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 49 30 22 |15,8,15:.15,"I0"|
00001B10: 3A 84 31 35 2C 45 2C 45 24 2C 46 2C 47 3A A0 31 |:.15,E,E$,F,G:.1|
00001B20: 35 00 4C 23 6A 04 8B 45 B3 B1 2E A7 99 22 11 20 |5.L#j..E.....". |
00001B30: 20 20 22 45 22 20 12 22 45 24 22 92 20 22 46 22 | "E" ."E$". "F"|
00001B40: 20 22 47 22 20 22 3A 89 31 32 37 30 00 62 23 6F | "G" ":.1270.b#o|
00001B50: 04 9F 37 2C 38 2C 2E 2C 22 24 30 22 3A 89 31 32 |..7,8,.,"$0":.12|
00001B60: 38 35 00 70 23 74 04 A1 23 37 2C 41 24 2C 42 24 |85.p#t..#7,A$,B$|
00001B70: 00 7E 23 79 04 A1 23 37 2C 41 24 2C 42 24 00 8C |.~#y..#7,A$,B$..|
00001B80: 23 7E 04 A1 23 37 2C 41 24 2C 42 24 00 AC 23 83 |#~..#7,A$,B$..#.|
00001B90: 04 43 B2 2E 3A 46 53 24 B2 22 22 3A 4E 46 24 B2 |.C..:FS$."":NF$.|
00001BA0: 22 22 3A 58 58 B2 2E 3A 58 B2 58 58 00 C0 23 88 |"":XX..:X.XX..#.|
00001BB0: 04 8B 41 24 B3 B1 22 22 A7 43 B2 C6 28 41 24 29 |..A$.."".C..(A$)|
00001BC0: 00 DA 23 8D 04 8B 42 24 B3 B1 22 22 A7 43 B2 43 |..#...B$.."".C.C|
00001BD0: AA C6 28 42 24 29 AC 32 35 36 00 EC 23 92 04 46 |..(B$).256..#..F|
00001BE0: 53 24 B2 CA 28 C4 28 43 29 2C 32 29 00 F8 23 97 |S$..(.(C),2)..#.|
00001BF0: 04 99 22 20 20 20 22 3B 00 25 24 9C 04 8B C5 28 |.." ";.%$....(|
00001C00: 46 53 24 29 B3 31 30 A7 46 53 24 B2 46 53 24 AA |FS$).10.FS$.FS$.|
00001C10: 22 20 20 20 20 20 20 20 22 3A 99 46 53 24 3B 3A |" ":.FS$;:|
00001C20: 89 31 31 39 35 00 50 24 A1 04 8B C5 28 46 53 24 |.1195.P$....(FS$|
00001C30: 29 B1 39 39 A7 46 53 24 B2 46 53 24 AA 22 20 20 |).99.FS$.FS$." |
00001C40: 20 20 20 22 3A 99 46 53 24 3B 3A 89 31 31 39 35 | ":.FS$;:.1195|
00001C50: 00 6B 24 A6 04 46 53 24 B2 46 53 24 AA 22 20 20 |.k$..FS$.FS$." |
00001C60: 20 20 20 20 22 3A 99 46 53 24 3B 00 89 24 AB 04 | ":.FS$;..$..|
00001C70: 42 24 B2 22 22 3A A1 23 37 2C 42 24 3A 8B 53 54 |B$."":.#7,B$:.ST|
00001C80: 20 AF 36 34 A7 31 32 36 30 00 9D 24 B0 04 8B 42 | .64.1260..$...B|
00001C90: 24 B3 B1 C7 28 33 34 29 A7 31 31 39 35 00 CA 24 |$...(34).1195..$|
00001CA0: B5 04 A1 23 37 2C 42 24 3A 8B 42 24 B3 B1 C7 28 |...#7,B$:.B$...(|
00001CB0: 33 34 29 A7 8D 32 31 38 35 3A 4E 46 24 B2 4E 46 |34)..2185:NF$.NF|
00001CC0: 24 AA 42 24 3A 89 31 32 30 35 00 E8 24 BA 04 50 |$.B$:.1205..$..P|
00001CD0: 44 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |D$."............|
00001CE0: 2E 2E 2E 2E 2E 2E 2E 22 00 14 25 BF 04 8B C8 28 |......."..%....(|
00001CF0: 4E 46 24 2C 31 29 B2 22 20 22 A7 4E 46 24 B2 C9 |NF$,1)." ".NF$..|
00001D00: 28 4E 46 24 2C C3 28 4E 46 24 29 AB 31 29 3A 89 |(NF$,.(NF$).1):.|
00001D10: 31 32 31 35 00 40 25 C4 04 8B C9 28 4E 46 24 2C |1215.@%....(NF$,|
00001D20: 31 29 B2 22 20 22 A7 4E 46 24 B2 C8 28 4E 46 24 |1)." ".NF$..(NF$|
00001D30: 2C C3 28 4E 46 24 29 AB 31 29 3A 89 31 32 32 30 |,.(NF$).1):.1220|
00001D40: 00 70 25 C9 04 58 B2 C3 28 4E 46 24 29 3A 58 58 |.p%..X..(NF$):XX|
00001D50: B2 31 38 AB 58 3A 4E 46 24 B2 4E 46 24 AA C8 28 |.18.X:NF$.NF$..(|
00001D60: 50 44 24 2C 58 58 29 3A 99 4E 46 24 22 20 22 3B |PD$,XX):.NF$" ";|
00001D70: 00 8A 25 CE 04 A1 23 37 2C 42 24 3A 8B 42 24 B2 |..%...#7,B$:.B$.|
00001D80: C7 28 33 32 29 A7 31 32 33 30 00 94 25 D3 04 43 |.(32).1230..%..C|
00001D90: 24 B2 22 22 00 B5 25 D8 04 43 24 B2 43 24 AA 42 |$.""..%..C$.C$.B|
00001DA0: 24 3A A1 23 37 2C 42 24 3A 8B 42 24 B3 B1 22 22 |$:.#7,B$:.B$..""|
00001DB0: A7 31 32 34 30 00 C2 25 DD 04 99 C8 28 43 24 2C |.1240..%....(C$,|
00001DC0: 31 29 00 C8 25 E2 04 8F 00 DA 25 E7 04 8B A8 53 |1)..%.....%....S|
00001DD0: 54 20 AF 36 34 A7 31 33 33 35 00 F1 25 EC 04 99 |T .64.1335..%...|
00001DE0: 22 2D 2D 2D 20 42 4C 4F 43 4B 53 20 46 52 45 45 |"--- BLOCKS FREE|
00001DF0: 22 00 F7 25 F1 04 8F 00 20 26 F6 04 A0 37 3A 99 |"..%.... &...7:.|
00001E00: 22 11 11 20 20 20 12 48 49 54 20 41 4E 59 20 4B |".. .HIT ANY K|
00001E10: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 |EY TO CONTINUE."|
00001E20: 00 34 26 FB 04 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.4&...A$:.A$."".|
00001E30: 31 32 37 35 00 3E 26 00 05 89 31 30 35 30 00 52 |1275.>&...1050.R|
00001E40: 26 05 05 A1 23 37 2C 41 24 2C 41 24 2C 41 24 2C |&...#7,A$,A$,A$,|
00001E50: 41 24 00 6D 26 0A 05 A1 23 37 2C 41 24 3A 8B 41 |A$.m&...#7,A$:.A|
00001E60: 24 B3 B1 C7 28 33 34 29 A7 31 32 39 30 00 87 26 |$...(34).1290..&|
00001E70: 0F 05 A1 23 37 2C 41 24 3A 8B 41 24 B2 C7 28 33 |...#7,A$:.A$..(3|
00001E80: 34 29 A7 31 33 30 35 00 9C 26 14 05 4E 4E 24 B2 |4).1305..&..NN$.|
00001E90: 4E 4E 24 AA 41 24 3A 89 31 32 39 35 00 A7 26 19 |NN$.A$:.1295..&.|
00001EA0: 05 A1 23 37 2C 41 24 00 BF 26 1E 05 A1 23 37 2C |..#7,A$..&...#7,|
00001EB0: 41 24 2C 42 24 3A 49 44 24 B2 41 24 AA 42 24 00 |A$,B$:ID$.A$.B$.|
00001EC0: EF 26 23 05 99 3A 50 24 B2 22 20 20 20 4E 41 4D |.&#..:P$." NAM|
00001ED0: 45 3A 22 3A 99 50 24 AA 4E 4E 24 2C 3A 50 24 B2 |E:":.P$.NN$,:P$.|
00001EE0: 22 9D 9D 49 44 3A 22 3A 99 50 24 AA 49 44 24 00 |"..ID:":.P$.ID$.|
00001EF0: 02 27 28 05 50 24 B2 22 22 3A 4E 4E 24 B2 22 22 |.'(.P$."":NN$.""|
00001F00: 3A 99 00 2C 27 2D 05 99 22 20 20 20 12 53 49 5A |:..,'-.." .SIZ|
00001F10: 45 20 20 20 20 4E 41 4D 45 20 20 20 20 20 20 20 |E NAME |
00001F20: 20 20 20 20 20 20 54 59 50 45 92 22 00 46 27 32 | TYPE.".F'2|
00001F30: 05 A1 23 37 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |..#7,A$,A$,A$,A$|
00001F40: 3A 89 31 31 34 35 00 61 27 37 05 8B 51 55 24 B2 |:.1145.a'7..QU$.|
00001F50: 22 4E 22 A7 41 4E 24 B2 22 59 22 3A 89 31 33 34 |"N".AN$."Y":.134|
00001F60: 35 00 A2 27 3C 05 A1 41 4E 24 3A 8B 41 4E 24 B2 |5..'<..AN$:.AN$.|
00001F70: 22 4E 22 A7 99 22 91 20 20 20 20 20 20 20 20 20 |"N"..". |
00001F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F90: 20 20 20 20 20 20 20 20 20 20 91 22 3A 89 31 31 | .":.11|
00001FA0: 34 35 00 BB 27 41 05 8B 41 4E 24 B2 22 59 22 A7 |45..'A..AN$."Y".|
00001FB0: 4E B2 4E AA 31 3A 89 31 33 36 35 00 D4 27 46 05 |N.N.1:.1365..'F.|
00001FC0: 8B 41 4E 24 B2 22 45 22 A7 4E B2 4E AA 31 3A 89 |.AN$."E".N.N.1:.|
00001FD0: 31 33 38 35 00 E6 27 4B 05 8B 41 4E 24 B2 46 31 |1385..'K..AN$.F1|
00001FE0: 24 A7 31 32 37 30 00 F0 27 50 05 89 31 33 34 30 |$.1270..'P..1340|
00001FF0: 00 1C 28 55 05 8B 4E B1 31 31 39 39 A7 99 22 11 |..(U..N.1199..".|
00002000: 12 2A 20 46 49 4C 45 20 46 55 4C 4C 21 20 2A 92 |.* FILE FULL! *.|
00002010: 22 3A A0 37 3A A0 31 35 3A 89 34 30 00 38 28 5A |":.7:.15:.40.8(Z|
00002020: 05 44 24 28 4E 29 B2 C8 28 4E 46 24 2C 31 36 29 |.D$(N)..(NF$,16)|
00002030: AA 22 2E 22 AA 49 34 24 00 4F 28 5F 05 A1 41 42 |.".".I4$.O(_..AB|
00002040: 24 3A 8B 41 42 24 B2 46 31 24 A7 31 32 37 30 00 |$:.AB$.F1$.1270.|
00002050: 59 28 64 05 89 31 31 34 35 00 6B 28 69 05 99 22 |Y(d..1145.k(i.."|
00002060: 20 20 20 12 45 44 49 54 92 22 3B 00 97 28 6E 05 | .EDIT.";..(n.|
00002070: 8B C9 28 4E 46 24 2C 31 29 B2 22 2E 22 A7 4E 46 |..(NF$,1).".".NF|
00002080: 24 B2 C8 28 4E 46 24 2C C3 28 4E 46 24 29 AB 31 |$..(NF$,.(NF$).1|
00002090: 29 3A 89 31 33 39 30 00 A6 28 73 05 99 22 20 20 |):.1390..(s.." |
000020A0: 20 20 22 4E 46 24 00 DA 28 78 05 85 22 91 1D 1D | "NF$..(x.."...|
000020B0: 1D 1D 1D 1D 1D 1D 1D 22 3B 4E 4D 24 3A 4E 4D 24 |.......";NM$:NM$|
000020C0: B2 4E 4D 24 AA 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.NM$."..........|
000020D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 F2 28 7D 05 4E |........."..(}.N|
000020E0: 46 24 B2 C8 28 4E 4D 24 2C 31 36 29 3A 89 31 33 |F$..(NM$,16):.13|
000020F0: 36 35 00 05 29 82 05 3A 3A 21 86 28 35 2C 36 2C |65..)..::!.(5,6,|
00002100: 32 38 2C 35 29 00 40 29 87 05 50 24 B2 22 11 20 |28,5).@)..P$.". |
00002110: 44 45 4C 45 54 45 20 4F 52 20 45 44 49 54 20 4E |DELETE OR EDIT N|
00002120: 41 4D 45 53 20 59 2F 4E 22 3A 8D 31 32 30 3A 8D |AMES Y/N":.120:.|
00002130: 32 34 39 35 3A 8B 41 24 B2 22 4E 22 A7 32 31 30 |2495:.A$."N".210|
00002140: 00 8A 29 8C 05 50 24 B2 22 20 44 45 4C 45 54 45 |..)..P$." DELETE|
00002150: 20 4F 52 20 45 44 49 54 20 42 59 20 12 4E 92 41 | OR EDIT BY .N.A|
00002160: 4D 45 2E 22 AA 52 24 3A 50 24 B2 50 24 AA 22 11 |ME.".R$:P$.P$.".|
00002170: 20 20 20 20 20 44 45 4C 45 54 45 20 42 59 20 12 | DELETE BY .|
00002180: 49 92 44 2E 22 3A 8D 31 34 30 00 9F 29 91 05 A1 |I.D.":.140..)...|
00002190: 41 24 3A 8B 41 24 B2 22 49 22 A7 31 35 33 30 00 |A$:.A$."I".1530.|
000021A0: B1 29 96 05 8B 41 24 B3 B1 22 4E 22 A7 31 34 32 |.)...A$.."N".142|
000021B0: 35 00 DD 29 9B 05 8D 32 35 30 35 3A 50 24 B2 22 |5..)...2505:P$."|
000021C0: 49 4E 50 55 54 20 4E 41 4D 45 20 54 4F 20 44 45 |INPUT NAME TO DE|
000021D0: 4C 45 54 45 20 4F 52 20 45 44 49 54 22 00 F0 29 |LETE OR EDIT"..)|
000021E0: A0 05 3A 3A 21 86 28 33 2C 34 2C 33 32 2C 33 29 |..::!.(3,4,32,3)|
000021F0: 00 0D 2A A5 05 8D 31 32 30 3A 41 31 B2 2E 3A 99 |..*...120:A1..:.|
00002200: 22 11 11 11 11 11 20 20 20 20 20 22 3B 00 26 2A |"..... ";.&*|
00002210: AA 05 52 4E 24 B2 22 22 3A 85 52 4E 24 3A 5A B2 |..RN$."":.RN$:Z.|
00002220: C3 28 52 4E 24 29 00 61 2A AF 05 81 49 B2 31 A4 |.(RN$).a*...I.1.|
00002230: 4E 3A 8B C8 28 44 24 28 49 29 2C 5A 29 B2 52 4E |N:..(D$(I),Z).RN|
00002240: 24 A7 99 A3 33 29 44 24 28 49 29 22 20 12 28 59 |$...3)D$(I)" .(Y|
00002250: 2F 4E 2F 45 2F 46 31 29 92 22 3B 3A 89 31 34 36 |/N/E/F1).";:.146|
00002260: 35 00 6B 2A B4 05 89 31 34 39 30 00 87 2A B9 05 |5.k*...1490..*..|
00002270: A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 99 22 20 4E |.A$:.A$."N".." N|
00002280: 22 3A 89 31 34 39 30 00 AE 2A BE 05 8B 41 24 B2 |":.1490..*...A$.|
00002290: 22 59 22 A7 44 24 28 49 29 B2 50 49 24 3A 99 22 |"Y".D$(I).PI$:."|
000022A0: 20 59 22 3A 41 31 B2 31 3A 89 31 34 39 30 00 BF | Y":A1.1:.1490..|
000022B0: 2A C3 05 8B 41 24 B2 22 45 22 A7 31 35 30 35 00 |*...A$."E".1505.|
000022C0: D0 2A C8 05 8B 41 24 B2 46 31 24 A7 31 34 39 35 |.*...A$.F1$.1495|
000022D0: 00 DA 2A CD 05 89 31 34 36 35 00 E1 2A D2 05 82 |..*...1465..*...|
000022E0: 49 00 F2 2A D7 05 8B 41 31 B2 31 A7 99 3A 89 36 |I..*...A1.1..:.6|
000022F0: 38 30 00 FB 2A DC 05 89 33 38 35 00 0F 2B E1 05 |80..*...385..+..|
00002300: 4E 4D 24 B2 C8 28 44 24 28 49 29 2C 31 36 29 00 |NM$..(D$(I),16).|
00002310: 3B 2B E6 05 8B C9 28 4E 4D 24 2C 31 29 B2 22 2E |;+....(NM$,1).".|
00002320: 22 A7 4E 4D 24 B2 C8 28 4E 4D 24 2C C3 28 4E 4D |".NM$..(NM$,.(NM|
00002330: 24 29 AB 31 29 3A 89 31 35 31 30 00 64 2B EB 05 |$).1):.1510.d+..|
00002340: 99 3A 99 22 11 20 3E 12 45 44 49 54 92 2D 2D 2D |.:.". >.EDIT.---|
00002350: 2D 2D 2D 2D 2D 2D 2D 2D 2D 3C 22 3A 99 22 20 20 |---------<":." |
00002360: 22 4E 4D 24 00 9E 2B F0 05 85 22 91 22 3B 4E 4D |"NM$..+...".";NM|
00002370: 24 3A 4E 4D 24 B2 4E 4D 24 AA 22 2E 2E 2E 2E 2E |$:NM$.NM$.".....|
00002380: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3A |..............":|
00002390: 4E 4F 24 B2 C9 28 44 24 28 49 29 2C 34 29 00 C1 |NO$..(D$(I),4)..|
000023A0: 2B F5 05 44 24 28 49 29 B2 C8 28 4E 4D 24 2C 31 |+..D$(I)..(NM$,1|
000023B0: 37 29 AA 4E 4F 24 3A 41 31 B2 31 3A 89 31 34 39 |7).NO$:A1.1:.149|
000023C0: 30 00 EB 2B FA 05 8D 32 35 30 35 3A 50 24 B2 22 |0..+...2505:P$."|
000023D0: 49 4E 50 55 54 20 49 44 20 4F 46 20 44 49 53 4B |INPUT ID OF DISK|
000023E0: 20 54 4F 20 52 45 4D 4F 56 45 22 00 FE 2B FF 05 | TO REMOVE"..+..|
000023F0: 3A 3A 21 86 28 33 2C 35 2C 33 30 2C 33 29 00 1B |::!.(3,5,30,3)..|
00002400: 2C 04 06 8D 31 32 30 3A 41 31 B2 2E 3A 99 22 11 |,...120:A1..:.".|
00002410: 11 11 11 11 20 20 20 20 20 22 3B 00 34 2C 09 06 |.... ";.4,..|
00002420: 52 4E 24 B2 22 22 3A 85 52 4E 24 3A 5A B2 C3 28 |RN$."":.RN$:Z..(|
00002430: 52 4E 24 29 00 73 2C 0E 06 81 49 B2 31 A4 4E 3A |RN$).s,...I.1.N:|
00002440: 8B CA 28 44 24 28 49 29 2C 31 38 2C 5A 29 B2 52 |..(D$(I),18,Z).R|
00002450: 4E 24 A7 99 44 24 28 49 29 22 20 12 28 59 2F 4E |N$..D$(I)" .(Y/N|
00002460: 2F 46 31 3D 41 42 4F 52 54 29 92 22 3B 3A 89 31 |/F1=ABORT).";:.1|
00002470: 35 36 30 00 7D 2C 13 06 89 31 35 38 30 00 99 2C |560.},...1580..,|
00002480: 18 06 A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 99 22 |...A$:.A$."N".."|
00002490: 20 4E 22 3A 89 31 35 38 30 00 C0 2C 1D 06 8B 41 | N":.1580..,...A|
000024A0: 24 B2 22 59 22 A7 44 24 28 49 29 B2 50 49 24 3A |$."Y".D$(I).PI$:|
000024B0: 99 22 20 59 22 3A 41 31 B2 31 3A 89 31 35 38 30 |." Y":A1.1:.1580|
000024C0: 00 D1 2C 22 06 8B 41 24 B2 46 31 24 A7 31 35 38 |..,"..A$.F1$.158|
000024D0: 35 00 DB 2C 27 06 89 31 35 36 30 00 E2 2C 2C 06 |5..,'..1560..,,.|
000024E0: 82 49 00 F0 2C 31 06 8B 41 31 B2 31 A7 36 38 30 |.I..,1..A1.1.680|
000024F0: 00 F9 2C 36 06 89 33 38 35 00 09 2D 3B 06 8F 20 |..,6..385..-;.. |
00002500: 53 41 56 45 20 46 49 4C 45 00 1C 2D 40 06 3A 3A |SAVE FILE..-@.::|
00002510: 21 86 28 35 2C 35 2C 33 30 2C 35 29 00 55 2D 45 |!.(5,5,30,5).U-E|
00002520: 06 50 24 B2 22 11 20 20 20 20 20 53 41 56 45 20 |.P$.". SAVE |
00002530: 46 49 4C 45 3F 20 20 20 28 59 2F 4E 29 22 3A 8D |FILE? (Y/N)":.|
00002540: 31 32 30 3A 8D 32 34 39 35 3A 8B 41 24 B2 22 4E |120:.2495:.A$."N|
00002550: 22 A7 32 31 30 00 6B 2D 4A 06 8D 31 39 37 35 3A |".210.k-J..1975:|
00002560: 8B 41 24 B2 22 41 22 A7 33 38 35 00 8E 2D 4F 06 |.A$."A".385..-O.|
00002570: 9F 31 35 2C 44 31 2C 31 35 3A 98 31 35 2C 22 53 |.15,D1,15:.15,"S|
00002580: 22 44 32 24 AA 5A 53 24 AA 22 2E 42 55 22 00 AF |"D2$.ZS$.".BU"..|
00002590: 2D 54 06 98 31 35 2C 22 52 22 44 32 24 AA 5A 53 |-T..15,"R"D2$.ZS|
000025A0: 24 AA 22 2E 42 55 3D 22 44 32 24 AA 5A 53 24 00 |$.".BU="D2$.ZS$.|
000025B0: CA 2D 59 06 9F 38 2C 44 31 2C 38 2C 44 32 24 AA |.-Y..8,D1,8,D2$.|
000025C0: 5A 53 24 AA 22 2C 53 2C 57 22 00 D7 2D 5E 06 84 |ZS$.",S,W"..-^..|
000025D0: 31 35 2C 45 2C 45 24 00 10 2E 63 06 8B 45 B1 2E |15,E,E$...c..E..|
000025E0: A7 A0 38 3A A0 31 35 3A 99 22 11 20 20 20 20 20 |..8:.15:.". |
000025F0: 20 12 22 45 24 22 20 50 52 45 53 53 20 41 4E 59 | ."E$" PRESS ANY|
00002600: 20 4B 45 59 92 22 3A 8D 32 31 35 3A 89 33 38 35 | KEY.":.215:.385|
00002610: 00 3C 2E 68 06 8D 32 35 30 35 3A 99 22 11 12 22 |.<.h..2505:.".."|
00002620: 5A 5A 24 3B 3A 99 22 92 20 53 41 56 49 4E 47 22 |ZZ$;:.". SAVING"|
00002630: 4E 22 46 49 4C 45 20 4E 41 4D 45 53 00 72 2E 6D |N"FILE NAMES.r.m|
00002640: 06 98 38 2C 4E 3A 81 49 B2 31 A4 4E 3A 98 38 2C |..8,N:.I.1.N:.8,|
00002650: 44 24 28 49 29 3A 99 22 13 11 11 11 11 11 11 22 |D$(I):."......."|
00002660: 43 45 24 44 24 28 49 29 22 20 20 20 20 20 22 49 |CE$D$(I)" "I|
00002670: 3A 82 00 82 2E 72 06 A0 38 3A A0 31 35 3A 89 33 |:....r..8:.15:.3|
00002680: 38 35 00 92 2E 77 06 8F 20 46 49 4C 45 20 4C 4F |85...w.. FILE LO|
00002690: 41 44 00 A5 2E 7C 06 3A 3A 21 86 28 35 2C 35 2C |AD...|.::!.(5,5,|
000026A0: 33 30 2C 35 29 00 DE 2E 81 06 50 24 B2 22 11 20 |30,5).....P$.". |
000026B0: 20 20 20 20 4C 4F 41 44 20 46 49 4C 45 3F 20 20 | LOAD FILE? |
000026C0: 20 28 59 2F 4E 29 22 3A 8D 31 32 30 3A 8D 32 34 | (Y/N)":.120:.24|
000026D0: 39 35 3A 8B 41 24 B2 22 4E 22 A7 32 31 30 00 F8 |95:.A$."N".210..|
000026E0: 2E 86 06 8B 41 41 B2 31 A7 9C 3A 41 41 B2 31 3A |....AA.1..:AA.1:|
000026F0: 42 42 B2 31 3A 8D 32 30 00 07 2F 8B 06 8D 31 31 |BB.1:.20../...11|
00002700: 30 3A 8D 31 37 37 30 00 17 2F 90 06 8B 41 24 B2 |0:.1770../...A$.|
00002710: 22 4E 22 A7 33 38 35 00 2A 2F 95 06 9F 31 35 2C |"N".385.*/...15,|
00002720: 44 31 2C 31 35 3A 41 41 B2 31 00 45 2F 9A 06 9F |D1,15:AA.1.E/...|
00002730: 38 2C 44 31 2C 38 2C 44 32 24 AA 5A 53 24 AA 22 |8,D1,8,D2$.ZS$."|
00002740: 2C 53 2C 52 22 00 56 2F 9F 06 84 31 35 2C 45 2C |,S,R".V/...15,E,|
00002750: 45 24 2C 47 2C 48 00 90 2F A4 06 8B 45 B1 2E A7 |E$,G,H../...E...|
00002760: A0 38 3A A0 31 35 3A 99 22 11 20 20 20 20 20 20 |.8:.15:.". |
00002770: 12 22 45 24 22 20 50 52 45 53 53 20 41 4E 59 20 |."E$" PRESS ANY |
00002780: 4B 45 59 92 22 3A 42 42 B2 31 3A 89 31 37 31 30 |KEY.":BB.1:.1710|
00002790: 00 9A 2F A9 06 89 31 37 32 30 00 A3 2F AE 06 8D |../...1720../...|
000027A0: 32 31 35 00 B1 2F B3 06 8B 42 42 B2 31 A7 33 38 |215../...BB.1.38|
000027B0: 35 00 E1 2F B8 06 84 38 2C 4E 3A 8D 32 35 30 35 |5../...8,N:.2505|
000027C0: 3A 99 22 11 12 22 5A 5A 24 3B 22 92 20 4C 4F 41 |:.".."ZZ$;". LOA|
000027D0: 44 49 4E 47 22 4E 22 46 49 4C 45 20 4E 41 4D 45 |DING"N"FILE NAME|
000027E0: 53 00 16 30 BD 06 81 49 B2 31 A4 4E 3A 84 38 2C |S..0...I.1.N:.8,|
000027F0: 44 24 28 49 29 3A 99 22 13 11 11 11 11 11 11 22 |D$(I):."......."|
00002800: 44 24 28 49 29 22 20 20 20 20 20 22 49 3A 82 3A |D$(I)" "I:.:|
00002810: A0 38 3A A0 31 35 00 1F 30 C2 06 89 33 38 35 00 |.8:.15..0...385.|
00002820: 3E 30 C7 06 8D 32 35 33 30 3A 8B 41 24 B2 22 4E |>0...2530:.A$."N|
00002830: 22 A7 41 24 B2 22 41 22 3A 89 31 39 39 35 00 51 |".A$."A":.1995.Q|
00002840: 30 CC 06 9F 31 35 2C 44 31 2C 31 35 3A 8D 31 33 |0...15,D1,15:.13|
00002850: 30 00 5B 30 D1 06 8D 32 35 30 35 00 7C 30 D6 06 |0.[0...2505.|0..|
00002860: 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 22 43 41 54 |.8,D1,8,D2$."CAT|
00002870: 45 47 4F 52 49 45 53 2C 53 2C 52 22 00 8D 30 DB |EGORIES,S,R"..0.|
00002880: 06 84 31 35 2C 45 2C 45 24 2C 54 2C 53 00 AE 30 |..15,E,E$,T,S..0|
00002890: E0 06 8B 45 B2 36 32 B0 45 B2 37 34 A7 4E 4E B2 |...E.62.E.74.NN.|
000028A0: 30 3A A0 38 3A A0 31 35 3A 89 31 38 38 30 00 B8 |0:.8:.15:.1880..|
000028B0: 30 E5 06 89 31 38 31 35 00 CF 30 EA 06 8D 32 35 |0...1815..0...25|
000028C0: 33 30 3A 8B 41 24 B2 22 4E 22 A7 32 34 35 35 00 |30:.A$."N".2455.|
000028D0: E2 30 EF 06 9F 31 35 2C 44 31 2C 31 35 3A 8D 31 |.0...15,D1,15:.1|
000028E0: 33 30 00 EC 30 F4 06 8D 32 35 30 35 00 0D 31 F9 |30..0...2505..1.|
000028F0: 06 9F 38 2C 44 31 2C 38 2C 44 32 24 AA 22 43 41 |..8,D1,8,D2$."CA|
00002900: 54 45 47 4F 52 49 45 53 2C 53 2C 52 22 00 1E 31 |TEGORIES,S,R"..1|
00002910: FE 06 84 31 35 2C 45 2C 45 24 2C 54 2C 53 00 3F |...15,E,E$,T,S.?|
00002920: 31 03 07 8B 45 B2 36 32 B0 45 B2 37 34 A7 4E 4E |1...E.62.E.74.NN|
00002930: B2 30 3A A0 38 3A A0 31 35 3A 89 31 38 30 35 00 |.0:.8:.15:.1805.|
00002940: 49 31 08 07 89 31 38 31 35 00 90 31 0D 07 99 22 |I1...1815..1..."|
00002950: 4E 4F 54 20 41 20 44 49 53 4B 20 46 49 4C 45 20 |NOT A DISK FILE |
00002960: 44 41 54 41 20 44 49 53 4B 22 3A 99 22 11 11 20 |DATA DISK":.".. |
00002970: 20 12 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 | . PRESS ANY KEY|
00002980: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 92 22 3A | TO CONTINUE .":|
00002990: 00 9E 31 12 07 8D 32 31 35 3A 89 33 38 35 00 C3 |..1...215:.385..|
000029A0: 31 17 07 99 A3 36 29 22 12 45 58 49 53 54 49 4E |1....6)".EXISTIN|
000029B0: 47 20 43 41 54 45 47 4F 52 49 45 53 20 41 52 45 |G CATEGORIES ARE|
000029C0: 3A 11 22 00 DF 31 1C 07 84 38 2C 4E 4E 3A 81 49 |:."..1...8,NN:.I|
000029D0: B2 31 A4 4E 4E 3A 84 38 2C 44 44 24 28 49 29 00 |.1.NN:.8,DD$(I).|
000029E0: 09 32 21 07 99 A3 38 29 22 12 22 C9 28 C4 28 49 |.2!...8)".".(.(I|
000029F0: 29 2C 31 29 22 92 20 20 22 44 44 24 28 49 29 3A |),1)". "DD$(I):|
00002A00: 82 49 3A A0 38 3A A0 31 35 00 1D 32 26 07 3A 3A |.I:.8:.15..2&.::|
00002A10: 21 86 28 32 30 2C 31 2C 33 38 2C 34 29 00 4E 32 |!.(20,1,38,4).N2|
00002A20: 2B 07 50 24 B2 22 44 4F 20 59 4F 55 20 57 49 53 |+.P$."DO YOU WIS|
00002A30: 48 20 54 4F 20 53 43 52 41 54 43 48 20 41 20 43 |H TO SCRATCH A C|
00002A40: 41 54 45 47 4F 52 59 3F 22 3A 8D 31 32 30 00 66 |ATEGORY?":.120.f|
00002A50: 32 30 07 8D 32 34 39 35 3A 8B 41 24 B2 22 59 22 |20..2495:.A$."Y"|
00002A60: A7 8D 32 33 30 35 00 6F 32 35 07 8D 31 31 30 00 |..2305.o25..110.|
00002A70: 83 32 3A 07 3A 3A 21 86 28 32 30 2C 31 2C 33 38 |.2:.::!.(20,1,38|
00002A80: 2C 34 29 00 B7 32 3F 07 50 24 B2 22 44 4F 20 59 |,4)..2?.P$."DO Y|
00002A90: 4F 55 20 57 41 4E 54 20 54 4F 20 43 52 45 41 54 |OU WANT TO CREAT|
00002AA0: 45 20 41 20 4E 45 57 20 43 41 54 45 47 4F 52 59 |E A NEW CATEGORY|
00002AB0: 3F 22 3A 8D 31 32 30 00 CE 32 44 07 8D 32 34 39 |?":.120..2D..249|
00002AC0: 35 3A 8B 41 24 B2 22 59 22 A7 31 38 37 35 00 E4 |5:.A$."Y".1875..|
00002AD0: 32 49 07 8B 41 24 B2 22 4E 22 AF 4E 4E B2 30 A7 |2I..A$."N".NN.0.|
00002AE0: 31 38 36 30 00 F5 32 4E 07 8B 41 24 B2 22 4E 22 |1860..2N..A$."N"|
00002AF0: A7 31 39 32 35 00 1B 33 53 07 8B 4E 4E B2 39 A7 |.1925..3S..NN.9.|
00002B00: 99 22 4E 4F 20 4D 4F 52 45 20 43 41 54 45 47 4F |."NO MORE CATEGO|
00002B10: 52 49 45 53 22 3A 89 31 39 32 35 00 55 33 58 07 |RIES":.1925.U3X.|
00002B20: 99 3A 85 22 4E 41 4D 45 20 4F 46 20 4E 45 57 20 |.:."NAME OF NEW |
00002B30: 43 41 54 45 47 4F 52 59 22 3B 44 44 24 3A 8B C3 |CATEGORY";DD$:..|
00002B40: 28 44 44 24 29 B1 31 36 A7 99 22 91 91 91 22 3A |(DD$).16.."...":|
00002B50: 89 31 38 38 30 00 6D 33 5D 07 4E 4E B2 4E 4E AA |.1880.m3].NN.NN.|
00002B60: 31 3A 44 44 24 28 4E 4E 29 B2 44 44 24 00 93 33 |1:DD$(NN).DD$..3|
00002B70: 62 07 8B 4E 4E B2 39 A7 99 22 4F 4E 4C 59 20 4E |b..NN.9.."ONLY N|
00002B80: 49 4E 45 20 41 4C 4C 4F 57 45 44 21 22 3A 89 31 |INE ALLOWED!":.1|
00002B90: 39 30 35 00 A1 33 67 07 99 22 11 4D 4F 52 45 3F |905..3g..".MORE?|
00002BA0: 22 00 BE 33 6C 07 8D 32 34 39 35 3A 8B 41 24 B2 |"..3l..2495:.A$.|
00002BB0: 22 59 22 A7 8D 31 31 30 3A 89 31 38 37 35 00 E7 |"Y"..110:.1875..|
00002BC0: 33 71 07 9F 31 35 2C 44 31 2C 31 35 3A 53 24 B2 |3q..15,D1,15:S$.|
00002BD0: 22 53 22 AA 44 32 24 AA 22 42 55 43 41 54 53 22 |"S".D2$."BUCATS"|
00002BE0: 3A 98 31 35 2C 53 24 00 17 34 76 07 52 45 24 B2 |:.15,S$..4v.RE$.|
00002BF0: 22 52 22 AA 44 32 24 AA 22 42 55 43 41 54 53 3D |"R".D2$."BUCATS=|
00002C00: 43 41 54 45 47 4F 52 49 45 53 22 3A 98 31 35 2C |CATEGORIES":.15,|
00002C10: 52 45 24 3A A0 31 35 00 38 34 7B 07 9F 38 2C 44 |RE$:.15.84{..8,D|
00002C20: 31 2C 38 2C 44 32 24 AA 22 43 41 54 45 47 4F 52 |1,8,D2$."CATEGOR|
00002C30: 49 45 53 2C 53 2C 57 22 00 5A 34 80 07 98 38 2C |IES,S,W".Z4...8,|
00002C40: 4E 4E 3A 81 49 B2 31 A4 4E 4E 3A 98 38 2C 44 44 |NN:.I.1.NN:.8,DD|
00002C50: 24 28 49 29 3A 82 49 3A A0 38 00 63 34 85 07 8D |$(I):.I:.8.c4...|
00002C60: 31 31 30 00 8E 34 8A 07 8D 32 35 30 35 3A 99 A3 |110..4...2505:..|
00002C70: 36 29 22 12 45 58 49 53 54 49 4E 47 20 43 41 54 |6)".EXISTING CAT|
00002C80: 45 47 4F 52 49 45 53 20 41 52 45 3A 11 22 00 B9 |EGORIES ARE:."..|
00002C90: 34 8F 07 81 49 B2 31 A4 4E 4E 3A 99 A3 38 29 22 |4...I.1.NN:..8)"|
00002CA0: 12 22 C9 28 C4 28 49 29 2C 31 29 22 92 20 20 22 |.".(.(I),1)". "|
00002CB0: 44 44 24 28 49 29 3A 82 49 00 CD 34 94 07 3A 3A |DD$(I):.I..4..::|
00002CC0: 21 86 28 32 30 2C 31 2C 33 38 2C 34 29 00 FE 34 |!.(20,1,38,4)..4|
00002CD0: 99 07 50 24 B2 22 57 48 49 43 48 20 43 41 54 45 |..P$."WHICH CATE|
00002CE0: 47 4F 52 59 20 4E 55 4D 42 45 52 20 44 4F 20 59 |GORY NUMBER DO Y|
00002CF0: 4F 55 20 57 41 4E 54 3F 22 3A 8D 31 32 30 00 07 |OU WANT?":.120..|
00002D00: 35 9E 07 8D 32 31 35 00 25 35 A3 07 5A 53 B2 C5 |5...215.%5..ZS..|
00002D10: 28 41 24 29 3A 8B 5A 53 B3 31 B0 5A 53 B1 4E 4E |(A$):.ZS.1.ZS.NN|
00002D20: A7 31 39 35 30 00 3D 35 A8 07 5A 53 24 B2 44 44 |.1950.=5..ZS$.DD|
00002D30: 24 28 5A 53 29 3A 5A 5A 24 B2 5A 53 24 00 46 35 |$(ZS):ZZ$.ZS$.F5|
00002D40: AD 07 8D 31 31 30 00 51 35 B2 07 99 22 93 22 3A |...110.Q5...".":|
00002D50: 8E 00 73 35 B7 07 8D 31 31 30 3A 8D 32 35 30 35 |..s5...110:.2505|
00002D60: 3A 99 22 11 11 22 3A 8B 5A 53 24 B2 22 22 A7 31 |:."..":.ZS$."".1|
00002D70: 37 33 35 00 91 35 BC 07 99 22 11 20 20 43 55 52 |735..5...". CUR|
00002D80: 52 45 4E 54 20 46 49 4C 45 20 49 53 20 22 5A 53 |RENT FILE IS "ZS|
00002D90: 24 00 BD 35 C1 07 99 22 11 20 20 49 53 20 54 48 |$..5...". IS TH|
00002DA0: 49 53 20 43 4F 52 52 45 43 54 3F 20 20 12 28 59 |IS CORRECT? .(Y|
00002DB0: 2F 4E 2F 41 3D 41 42 4F 52 54 29 92 22 00 D2 35 |/N/A=ABORT)."..5|
00002DC0: C6 07 A1 41 24 3A 8B 41 24 B2 22 4E 22 A7 31 37 |...A$:.A$."N".17|
00002DD0: 35 35 00 E0 35 CB 07 8B 41 24 B2 22 41 22 A7 8E |55..5...A$."A"..|
00002DE0: 00 F2 35 D0 07 8B 41 24 B3 B1 22 59 22 A7 31 39 |..5...A$.."Y".19|
00002DF0: 39 30 00 06 36 D5 07 3A 3A 21 86 28 31 35 2C 33 |90..6..::!.(15,3|
00002E00: 2C 33 34 2C 33 29 00 39 36 DA 07 50 24 B2 22 20 |,34,3).96..P$." |
00002E10: 49 53 20 43 4F 52 52 45 43 54 20 44 49 53 4B 20 |IS CORRECT DISK |
00002E20: 49 4E 20 44 52 49 56 45 3F 20 59 2F 4E 22 3A 8D |IN DRIVE? Y/N":.|
00002E30: 31 32 30 3A 8D 32 34 39 35 00 53 36 DF 07 8D 31 |120:.2495.S6...1|
00002E40: 31 30 3A 8B 41 24 B2 22 4E 22 A7 41 24 B2 22 41 |10:.A$."N".A$."A|
00002E50: 22 3A 8E 00 59 36 E4 07 8E 00 69 36 E9 07 8F 20 |":..Y6....i6... |
00002E60: 41 44 44 20 46 49 4C 45 53 00 7C 36 EE 07 3A 3A |ADD FILES.|6..::|
00002E70: 21 86 28 35 2C 39 2C 32 32 2C 35 29 00 AF 36 F3 |!.(5,9,22,5)..6.|
00002E80: 07 50 24 B2 22 11 20 20 41 44 44 20 4E 41 4D 45 |.P$.". ADD NAME|
00002E90: 53 20 28 59 2F 4E 29 22 3A 8D 31 32 30 3A 8D 32 |S (Y/N)":.120:.2|
00002EA0: 34 39 35 3A 8B 41 24 B2 22 4E 22 A7 32 31 30 00 |495:.A$."N".210.|
00002EB0: BE 36 F8 07 8D 31 31 30 3A 8D 32 35 30 35 00 D9 |.6...110:.2505..|
00002EC0: 36 FD 07 49 34 24 B2 22 22 3A 50 24 B2 22 20 41 |6..I4$."":P$." A|
00002ED0: 44 44 20 4E 41 4D 45 53 22 00 ED 36 02 08 3A 3A |DD NAMES"..6..::|
00002EE0: 21 86 28 35 2C 31 33 2C 31 34 2C 33 29 00 F6 36 |!.(5,13,14,3)..6|
00002EF0: 07 08 8D 31 32 30 00 27 37 0C 08 8B 4E B1 31 31 |...120.'7...N.11|
00002F00: 39 39 A7 99 22 12 2A 20 46 49 4C 45 20 46 55 4C |99..".* FILE FUL|
00002F10: 4C 21 21 20 2A 12 22 3A 81 49 B2 31 A4 39 30 30 |L!! *.":.I.1.900|
00002F20: 3A 82 3A 89 33 38 35 00 65 37 11 08 8B 4E B1 31 |:.:.385.e7...N.1|
00002F30: 31 35 30 A7 99 22 12 2A 20 46 49 4C 45 20 41 4C |150..".* FILE AL|
00002F40: 4D 4F 53 54 20 46 55 4C 4C 21 21 20 2A 20 92 22 |MOST FULL!! * ."|
00002F50: 3B 3A 99 31 32 30 30 AB 4E 22 52 45 4D 41 49 4E |;:.1200.N"REMAIN|
00002F60: 49 4E 47 21 22 00 85 37 16 08 50 24 B2 22 12 49 |ING!"..7..P$.".I|
00002F70: 92 4E 44 49 56 49 44 55 41 4C 20 4F 52 20 12 44 |.NDIVIDUAL OR .D|
00002F80: 92 49 53 4B 22 00 99 37 1B 08 3A 3A 21 86 28 37 |.ISK"..7..::!.(7|
00002F90: 2C 31 30 2C 32 32 2C 33 29 00 A2 37 20 08 8D 31 |,10,22,3)..7 ..1|
00002FA0: 32 30 00 AB 37 25 08 8D 32 31 35 00 C7 37 2A 08 |20..7%..215..7*.|
00002FB0: 8B 41 24 B2 22 44 22 A7 8D 31 31 30 3A 8D 31 31 |.A$."D"..110:.11|
00002FC0: 30 3A 89 31 30 35 30 00 D9 37 2F 08 8B 41 24 B3 |0:.1050..7/..A$.|
00002FD0: B1 22 49 22 A7 32 30 38 35 00 00 38 34 08 8D 31 |."I".2085..84..1|
00002FE0: 31 30 3A 8D 31 31 30 3A 50 24 B2 22 41 44 44 20 |10:.110:P$."ADD |
00002FF0: 49 4E 44 49 56 49 44 55 41 4C 20 46 49 4C 45 22 |INDIVIDUAL FILE"|
00003000: 00 13 38 39 08 3A 3A 21 86 28 34 2C 38 2C 32 34 |..89.::!.(4,8,24|
00003010: 2C 33 29 00 1C 38 3E 08 8D 31 32 30 00 2D 38 43 |,3)..8>..120.-8C|
00003020: 08 8B 4E B1 31 31 39 39 A7 32 30 36 30 00 40 38 |..N.1199.2060.@8|
00003030: 48 08 3A 3A 21 99 40 2C 39 2C 32 2C 22 20 20 22 |H.::!.@,9,2," "|
00003040: 00 78 38 4D 08 99 22 20 49 4E 50 55 54 20 41 20 |.x8M.." INPUT A |
00003050: 46 4F 55 52 20 43 48 41 52 41 43 54 45 52 20 49 |FOUR CHARACTER I|
00003060: 44 20 12 28 41 3D 41 42 4F 52 54 29 92 22 3A 99 |D .(A=ABORT).":.|
00003070: 22 20 20 2D 2D 2D 2D 22 00 8F 38 52 08 85 49 34 |" ----"..8R..I4|
00003080: 24 3A 3A 8B 49 34 24 B2 22 41 22 A7 33 38 35 00 |$::.I4$."A".385.|
00003090: A0 38 57 08 8B 49 34 24 B2 22 22 A7 32 31 32 30 |.8W..I4$."".2120|
000030A0: 00 B4 38 5C 08 8B C3 28 49 34 24 29 B3 B1 34 A7 |..8\...(I4$)..4.|
000030B0: 32 31 32 30 00 F3 38 61 08 99 22 11 20 20 20 45 |2120..8a..". E|
000030C0: 4E 54 45 52 20 46 49 4C 45 20 4E 41 4D 45 20 28 |NTER FILE NAME (|
000030D0: 4D 41 58 20 31 36 20 43 48 52 53 29 22 3A 99 22 |MAX 16 CHRS)":."|
000030E0: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | --------------|
000030F0: 2D 2D 22 00 14 39 66 08 4E 24 B2 22 22 3A 85 4E |--"..9f.N$."":.N|
00003100: 24 3A 8B 4E 24 B2 22 22 A7 99 22 91 22 3B 3A 89 |$:.N$.""..".";:.|
00003110: 32 31 35 30 00 33 39 6B 08 4E 24 B2 4E 24 AA 22 |2150.39k.N$.N$."|
00003120: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00003130: 2E 2E 22 00 5A 39 70 08 4E 24 B2 C8 28 4E 24 2C |..".Z9p.N$..(N$,|
00003140: 31 36 29 AA 22 2E 22 AA 49 34 24 3A 4E B2 4E AA |16).".".I4$:N.N.|
00003150: 31 3A 44 24 28 4E 29 B2 4E 24 00 66 39 75 08 81 |1:D$(N).N$.f9u..|
00003160: 49 B2 39 A4 31 35 00 75 39 7A 08 3A 3A 21 45 52 |I.9.15.u9z.::!ER|
00003170: 41 53 45 2C 49 00 7B 39 7F 08 82 00 85 39 84 08 |ASE,I.{9.....9..|
00003180: 89 32 31 32 30 00 9A 39 89 08 8F 20 46 52 4F 4D |.2120..9... FROM|
00003190: 20 44 49 53 4B 20 52 45 41 44 00 C2 39 8E 08 8B | DISK READ..9...|
000031A0: C6 28 42 24 AA 5A 24 29 B1 31 32 37 AF C6 28 42 |.(B$.Z$).127..(B|
000031B0: 24 AA 5A 24 29 B3 31 36 30 A7 42 24 B2 C7 28 36 |$.Z$).160.B$..(6|
000031C0: 33 29 00 DC 39 93 08 8B C6 28 42 24 AA 5A 24 29 |3)..9....(B$.Z$)|
000031D0: B3 33 32 A7 42 24 B2 C7 28 36 33 29 00 04 3A 98 |.32.B$..(63)..:.|
000031E0: 08 8B C6 28 42 24 AA 5A 24 29 B1 32 32 34 AF C6 |...(B$.Z$).224..|
000031F0: 28 42 24 AA 5A 24 29 B3 32 35 34 A7 42 24 B2 C7 |(B$.Z$).254.B$..|
00003200: 28 36 33 29 00 0A 3A 9D 08 8E 00 1E 3A A2 08 8D |(63)..:.....:...|
00003210: 32 34 39 30 3A 8B 41 24 B2 22 4E 22 A7 8E 00 2E |2490:.A$."N"....|
00003220: 3A A7 08 9F 34 2C 34 3A 81 49 B2 31 A4 4E 00 55 |:...4,4:.I.1.N.U|
00003230: 3A AC 08 8B C8 28 44 24 28 49 29 2C 5A 29 B2 53 |:....(D$(I),Z).S|
00003240: 4E 24 A7 98 34 2C 44 24 28 49 29 3A 82 3A 98 34 |N$..4,D$(I):.:.4|
00003250: 3A A0 34 3A 8E 00 63 3A B1 08 82 3A 98 34 3A A0 |:.4:..c:...:.4:.|
00003260: 34 3A 8E 00 82 3A B6 08 8F 20 44 52 49 56 45 20 |4:...:... DRIVE |
00003270: 53 45 4C 45 43 54 2D 53 41 4D 45 20 57 49 4E 44 |SELECT-SAME WIND|
00003280: 4F 57 00 B0 3A BB 08 50 24 B2 22 20 20 20 20 20 |OW..:..P$." |
00003290: 53 45 4C 45 43 54 20 44 52 49 56 45 20 43 4F 4E |SELECT DRIVE CON|
000032A0: 46 49 47 55 52 41 54 49 4F 4E 11 11 22 AA 52 24 |FIGURATION..".R$|
000032B0: 00 E1 3A C0 08 50 24 B2 50 24 AA 22 31 2E 20 53 |..:..P$.P$."1. S|
000032C0: 49 4E 47 4C 45 20 31 35 34 31 20 44 49 53 4B 20 |INGLE 1541 DISK |
000032D0: 44 52 49 56 45 20 44 56 20 38 20 11 11 22 AA 52 |DRIVE DV 8 ..".R|
000032E0: 24 00 13 3B C5 08 50 24 B2 50 24 AA 22 32 2E 20 |$..;..P$.P$."2. |
000032F0: 54 57 4F 20 31 35 34 31 20 44 49 53 4B 20 44 52 |TWO 1541 DISK DR|
00003300: 49 56 45 53 20 44 56 20 38 20 26 20 39 11 11 22 |IVES DV 8 & 9.."|
00003310: AA 52 24 00 43 3B CA 08 50 24 B2 50 24 AA 22 33 |.R$.C;..P$.P$."3|
00003320: 2E 20 4D 53 44 20 53 44 2D 32 20 4F 52 20 34 30 |. MSD SD-2 OR 40|
00003330: 34 30 20 44 55 41 4C 20 44 52 49 56 45 20 44 56 |40 DUAL DRIVE DV|
00003340: 20 38 22 00 76 3B CF 08 50 24 B2 50 24 AA 22 11 | 8".v;..P$.P$.".|
00003350: 20 20 20 20 20 20 20 20 12 20 53 45 4C 45 43 54 | . SELECT|
00003360: 20 42 59 20 4E 55 4D 42 45 52 20 31 2D 33 20 92 | BY NUMBER 1-3 .|
00003370: 22 3A 8D 31 32 30 00 A0 3B D4 08 A1 41 24 3A 8B |":.120..;...A$:.|
00003380: 41 24 B2 22 31 22 A7 44 31 B2 38 3A 44 32 24 B2 |A$."1".D1.8:D2$.|
00003390: 22 30 3A 22 3A 97 36 38 30 2C 31 3A 89 31 33 30 |"0:":.680,1:.130|
000033A0: 00 C6 3B D9 08 8B 41 24 B2 22 32 22 A7 44 31 B2 |..;...A$."2".D1.|
000033B0: 39 3A 44 32 24 B2 22 30 3A 22 3A 97 36 38 30 2C |9:D2$."0:":.680,|
000033C0: 32 3A 89 31 33 30 00 EC 3B DE 08 8B 41 24 B2 22 |2:.130..;...A$."|
000033D0: 33 22 A7 44 31 B2 38 3A 44 32 24 B2 22 31 3A 22 |3".D1.8:D2$."1:"|
000033E0: 3A 97 36 38 30 2C 33 3A 89 31 33 30 00 F6 3B E3 |:.680,3:.130..;.|
000033F0: 08 89 32 32 36 30 00 18 3C E8 08 50 49 24 B2 22 |..2260..<..PI$."|
00003400: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00003410: FF FF FF FF FF 22 3A 8E 00 38 3C ED 08 41 B2 C2 |.....":..8<..A..|
00003420: 28 36 38 30 29 3A 8B 41 B2 31 A7 44 31 B2 38 3A |(680):.A.1.D1.8:|
00003430: 44 32 24 B2 22 30 3A 22 00 4F 3C F2 08 8B 41 B2 |D2$."0:".O<...A.|
00003440: 32 A7 44 31 B2 39 3A 44 32 24 B2 22 30 3A 22 00 |2.D1.9:D2$."0:".|
00003450: 66 3C F7 08 8B 41 B2 33 A7 44 31 B2 38 3A 44 32 |f<...A.3.D1.8:D2|
00003460: 24 B2 22 31 3A 22 00 6C 3C FC 08 8E 00 99 3C 01 |$."1:".l<.....<.|
00003470: 09 99 22 11 57 48 49 43 48 20 4E 55 4D 42 45 52 |..".WHICH NUMBER|
00003480: 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 | DO YOU WISH TO |
00003490: 53 43 52 41 54 43 48 3F 22 00 A2 3C 06 09 8D 32 |SCRATCH?"..<...2|
000034A0: 31 35 00 BE 3C 0B 09 8B 41 24 B3 C7 28 34 39 29 |15..<...A$..(49)|
000034B0: B0 41 24 B1 C7 28 35 37 29 A7 32 33 31 30 00 FA |.A$..(57).2310..|
000034C0: 3C 10 09 53 46 B2 C5 28 C8 28 41 24 2C 31 29 29 |<..SF..(.(A$,1))|
000034D0: 3A 4E 4E B2 4E 4E AB 31 3A 20 8F 20 53 46 3D 20 |:NN.NN.1: . SF= |
000034E0: 46 49 4C 45 20 54 4F 20 53 43 52 41 54 43 48 20 |FILE TO SCRATCH |
000034F0: 46 4F 52 20 44 44 24 28 49 29 00 22 3D 15 09 9F |FOR DD$(I)."=...|
00003500: 31 35 2C 44 31 2C 31 35 3A 53 24 B2 22 53 22 AA |15,D1,15:S$."S".|
00003510: 44 32 24 AA 44 44 24 28 53 46 29 3A 98 31 35 2C |D2$.DD$(SF):.15,|
00003520: 53 24 00 4A 3D 1A 09 53 24 B2 22 53 22 AA 44 32 |S$.J=..S$."S".D2|
00003530: 24 AA 44 44 24 28 53 46 29 AA 22 2E 42 55 22 3A |$.DD$(SF).".BU":|
00003540: 98 31 35 2C 53 24 3A A0 31 35 00 5A 3D 1F 09 81 |.15,S$:.15.Z=...|
00003550: 20 52 4E B2 31 A4 4E 4E AA 31 00 77 3D 24 09 8B | RN.1.NN.1.w=$..|
00003560: 52 4E B3 53 46 A7 44 44 24 28 52 4E 29 B2 44 44 |RN.SF.DD$(RN).DD|
00003570: 24 28 52 4E 29 3A 82 00 97 3D 29 09 8B 52 4E B1 |$(RN):...=)..RN.|
00003580: B2 53 46 A7 44 44 24 28 52 4E 29 B2 44 44 24 28 |.SF.DD$(RN).DD$(|
00003590: 52 4E AA 31 29 3A 82 00 C0 3D 2E 09 9F 31 35 2C |RN.1):...=...15,|
000035A0: 44 31 2C 31 35 3A 53 24 B2 22 53 22 AA 44 32 24 |D1,15:S$."S".D2$|
000035B0: AA 22 42 55 43 41 54 53 22 3A 98 31 35 2C 53 24 |."BUCATS":.15,S$|
000035C0: 00 F0 3D 33 09 52 45 24 B2 22 52 22 AA 44 32 24 |..=3.RE$."R".D2$|
000035D0: AA 22 42 55 43 41 54 53 3D 43 41 54 45 47 4F 52 |."BUCATS=CATEGOR|
000035E0: 49 45 53 22 3A 98 31 35 2C 52 45 24 3A A0 31 35 |IES":.15,RE$:.15|
000035F0: 00 11 3E 38 09 9F 38 2C 44 31 2C 38 2C 44 32 24 |..>8..8,D1,8,D2$|
00003600: AA 22 43 41 54 45 47 4F 52 49 45 53 2C 53 2C 57 |."CATEGORIES,S,W|
00003610: 22 00 35 3E 3D 09 98 38 2C 4E 4E 3A 81 49 B2 31 |".5>=..8,NN:.I.1|
00003620: A4 4E 4E 3A 98 38 2C 44 44 24 28 49 29 3A 82 49 |.NN:.8,DD$(I):.I|
00003630: 3A A0 38 3A 8E 00 49 3E 42 09 8D 32 34 39 30 3A |:.8:..I>B..2490:|
00003640: 8B 41 24 B2 22 4E 22 A7 8E 00 59 3E 47 09 9F 34 |.A$."N"...Y>G..4|
00003650: 2C 34 3A 81 49 B2 31 A4 4E 00 83 3E 4C 09 8B CA |,4:.I.1.N..>L...|
00003660: 28 44 24 28 49 29 2C 31 38 2C 5A 29 B2 53 4E 24 |(D$(I),18,Z).SN$|
00003670: A7 98 34 2C 44 24 28 49 29 3A 82 3A 98 34 3A A0 |..4,D$(I):.:.4:.|
00003680: 34 3A 8E 00 91 3E 51 09 82 3A 98 34 3A A0 34 3A |4:...>Q..:.4:.4:|
00003690: 8E 00 9B 3E 56 09 8D 32 35 30 35 00 B4 3E 5B 09 |...>V..2505..>[.|
000036A0: 3A 3A 21 96 28 30 2C 31 2C 30 2C 30 2C 33 32 2C |::!.(0,1,0,0,32,|
000036B0: 31 2C 31 29 00 C8 3E 60 09 3A 3A 21 86 28 35 2C |1,1)..>`.::!.(5,|
000036C0: 31 2C 33 39 2C 31 35 29 00 05 3F 65 09 99 22 13 |1,39,15)..?e..".|
000036D0: 11 11 22 3B 3A 81 49 B2 31 A4 32 32 3A 99 22 20 |..";:.I.1.22:." |
000036E0: 20 20 44 49 53 4B 20 46 49 4C 45 20 22 56 45 24 | DISK FILE "VE$|
000036F0: 22 20 20 20 20 44 49 53 4B 20 46 49 4C 45 20 22 |" DISK FILE "|
00003700: 56 45 24 3A 82 00 37 3F 6A 09 50 24 B2 22 20 20 |VE$:..7?j.P$." |
00003710: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 41 |DO YOU WISH TO A|
00003720: 44 4A 55 53 54 20 54 48 45 20 43 4F 4C 4F 55 52 |DJUST THE COLOUR|
00003730: 53 11 11 22 AA 52 24 00 6B 3F 6F 09 50 24 B2 50 |S..".R$.k?o.P$.P|
00003740: 24 AA 22 20 20 50 52 45 53 53 20 46 31 20 54 4F |$." PRESS F1 TO|
00003750: 20 43 48 41 4E 47 45 20 53 43 52 45 45 4E 20 43 | CHANGE SCREEN C|
00003760: 4F 4C 4F 55 52 11 11 22 AA 52 24 00 9F 3F 74 09 |OLOUR..".R$..?t.|
00003770: 50 24 B2 50 24 AA 22 20 20 50 52 45 53 53 20 46 |P$.P$." PRESS F|
00003780: 33 20 54 4F 20 43 48 41 4E 47 45 20 42 4F 52 44 |3 TO CHANGE BORD|
00003790: 45 52 20 43 4F 4C 4F 55 52 11 11 22 AA 52 24 00 |ER COLOUR..".R$.|
000037A0: D1 3F 79 09 50 24 B2 50 24 AA 22 20 20 50 52 45 |.?y.P$.P$." PRE|
000037B0: 53 53 20 46 35 20 54 4F 20 43 48 41 4E 47 45 20 |SS F5 TO CHANGE |
000037C0: 54 45 58 54 20 43 4F 4C 4F 55 52 11 11 22 AA 52 |TEXT COLOUR..".R|
000037D0: 24 00 F7 3F 7E 09 50 24 B2 50 24 AA 22 20 20 50 |$..?~.P$.P$." P|
000037E0: 52 45 53 53 20 46 37 20 54 4F 20 46 49 4E 49 53 |RESS F7 TO FINIS|
000037F0: 48 22 3A 8D 31 32 30 00 0C 40 83 09 A1 41 24 3A |H":.120..@...A$:|
00003800: 8B 41 24 B2 46 31 24 A7 32 34 36 30 00 20 40 88 |.A$.F1$.2460. @.|
00003810: 09 8B 41 24 B2 C7 28 31 33 34 29 A7 32 34 37 30 |..A$..(134).2470|
00003820: 00 31 40 8D 09 8B 41 24 B2 46 35 24 A7 32 34 38 |.1@...A$.F5$.248|
00003830: 30 00 43 40 92 09 8B 41 24 B3 B1 46 37 24 A7 32 |0.C@...A$..F7$.2|
00003840: 34 33 35 00 4C 40 97 09 89 31 31 30 00 6D 40 9C |435.L@...110.m@.|
00003850: 09 53 B2 C2 28 53 43 AA 31 29 AF 31 35 3A 53 B2 |.S..(SC.1).15:S.|
00003860: 53 AA 31 3A 8B 53 B1 31 35 A7 53 B2 30 00 7F 40 |S.1:.S.15.S.0..@|
00003870: A1 09 97 53 43 AA 31 2C 53 3A 89 32 34 33 35 00 |...SC.1,S:.2435.|
00003880: 9E 40 A6 09 53 B2 C2 28 53 43 29 AF 31 35 3A 53 |.@..S..(SC).15:S|
00003890: B2 53 AA 31 3A 8B 53 B1 31 35 A7 53 B2 30 00 AE |.S.1:.S.15.S.0..|
000038A0: 40 AB 09 97 53 43 2C 53 3A 89 32 34 33 35 00 CB |@...SC,S:.2435..|
000038B0: 40 B0 09 53 B2 C2 28 36 34 36 29 3A 53 B2 53 AA |@..S..(646):S.S.|
000038C0: 31 3A 8B 53 B1 31 35 A7 53 B2 30 00 EC 40 B5 09 |1:.S.15.S.0..@..|
000038D0: 97 36 34 36 2C 53 3A 97 35 33 31 34 32 2C 53 3A |.646,S:.53142,S:|
000038E0: 9E 35 33 31 34 31 3A 89 32 34 33 35 00 09 41 BA |.53141:.2435..A.|
000038F0: 09 99 A3 31 31 29 22 48 41 52 44 20 43 4F 50 59 |...11)"HARD COPY|
00003900: 20 12 28 59 2F 4E 29 92 22 00 27 41 BF 09 A1 41 | .(Y/N).".'A...A|
00003910: 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 |$:.A$.."Y".A$.."|
00003920: 4E 22 A7 32 34 39 35 00 2D 41 C4 09 8E 00 54 41 |N".2495.-A....TA|
00003930: C9 09 99 22 93 22 3A 50 24 B2 22 44 49 53 4B 20 |...".":P$."DISK |
00003940: 46 49 4C 45 20 50 52 4F 47 52 41 4D 20 2D 20 22 |FILE PROGRAM - "|
00003950: AA 56 45 24 00 67 41 CE 09 3A 3A 21 43 45 4E 54 |.VE$.gA..::!CENT|
00003960: 45 52 2C 30 2C 50 24 00 8A 41 D3 09 50 24 B2 22 |ER,0,P$..A..P$."|
00003970: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00003980: B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 9D 41 D8 09 3A |........."..A..:|
00003990: 3A 21 43 45 4E 54 45 52 2C 31 2C 50 24 00 A7 41 |:!CENTER,1,P$..A|
000039A0: DD 09 99 52 24 3A 8E 00 BA 41 E2 09 3A 3A 21 86 |...R$:...A..::!.|
000039B0: 28 35 2C 35 2C 33 30 2C 35 29 00 EB 41 E7 09 4E |(5,5,30,5)..A..N|
000039C0: 44 24 B2 C4 28 44 31 29 3A 50 24 B2 22 20 20 20 |D$..(D1):P$." |
000039D0: 20 49 53 20 4D 41 53 54 45 52 20 44 41 54 41 20 | IS MASTER DATA |
000039E0: 44 49 53 4B 22 AA 52 24 AA 52 24 00 29 42 EC 09 |DISK".R$.R$.)B..|
000039F0: 50 24 B2 50 24 AA 22 20 20 20 20 20 49 4E 20 44 |P$.P$." IN D|
00003A00: 52 49 56 45 22 3A 50 24 B2 50 24 AA 4E 44 24 3A |RIVE":P$.P$.ND$:|
00003A10: 50 24 B2 50 24 AA 22 20 59 2F 4E 22 3A 8D 31 32 |P$.P$." Y/N":.12|
00003A20: 30 3A 8D 32 34 39 35 3A 8E 00 00 00 |0:.2495:.... |
..1....G(8)"..":.650,128:SC.53280:.SC,13
:.SC.1,13.E....B(49152)..76.B(49153)..29
.."M/C DISK FILE",8,1.....F1$.G(133):F5$
.G(135):F7$.G(136):Z$.G(.).....VE$."V7.0
0":R$.G(13).M....D$(1200):.AA.1..2280:.2
285:....#..49152:.2390:.2280:.2230...(..
2505:." .1. - ADD NAMES TO FILE".1.-.."
. .2. - PRINT DATA FILE".P.2..". .3. -
SORT DATA FILE".U.7..". .4. - SEARCH F
OR FILE NAME"...<..". .5. - CHANGE ID./
SEARCH FOR DISK NUMBER".K.A..". .6. - V
IEW DISK DIRECTORY"...F..". .7. - SAVE
DATA FILE"...K..". .8. - LOAD DATA FILE
".9.P..". .9. - EDIT NAMES/DELETE BY.NA
ME OR ID".V.U..". .0. - EXIT PROGRAM".Z
.Z..". RECORDS IN MEMORY"N"."..._..
A$:.A$."0".A$."9".95...D..A$."0".150...I
.A.E(A$):.A.2025,165,595,730,785,930,159
5,1655,1410...N.::! ...S.....X.::!.,P$..
.}.......::!............::!AGAIN,P$.!...
..4...::!.(9,5,30,7).P...P$.".. QUIT!
ARE YOU SURE Y/N":.120:.2495:.A$."N".210
... ..".":.49152:......::!.(6,3,33,12)..
...P$." PRINT THE FILE-OUTPUT TO?".R$.
....P$.P$." ........................."
.R$.....P$.P$." .1. SCREEN.".R$.6...P$.
P$." .2. 80 COL. STANDARD PRINT.".R$.E
...P$.P$." .3. 136 COL. CONDENSED PRINT
.".R$...C.P$.P$." .4. ABORT":.120...H..
A$:.E(A$).225,295,390,210...M..200...R..
110:.95.J.W..A$:.A$."".215.P..........11
0:.I.1..(N.22).1:.".":.J.22.(I.1).1.22.I
.11......K...21.!....J.K.1200.250.:...."
";D$(J.K).A....K.T....214,23:.:
..6)". F1=MENU F5=UP F7=DOWN .";....
..A$:.A$.F1$.I.(.(N.22)).1:.290......A$.
F5$.I.1.I.I.2:.290.K....A$.F5$.I.1.I..:.
290......A$..F7$.260......I..(N.22).1.I.
.(N.22)..."..I:.40...'..130.H.,..2505:."
. ENTER TODAY'S DATE (N0 COMMAS).":."
";:.XY$...1..". ENTER PRINTER DEVICE NU
MBER 4 - 7.":." 4...";:.DN$...6.DN.
E(H(DN$,1)):.DN.4.DN.7.."....";:.305...;
.PS$.ZS$:.PS$.""..". ENTER NAME FOR PRIN
TOUT":." .";:.PS$.'.@..". ENTER PAGE
LENGTH.":." 66....";:. LP.<.E..565
: 4:.4,DN:.4.[.J.LP.LP.7:PN..((N.(LP.3))
.1).{.O..P.1.PN:S.P.(LP.3).(LP.3).1...T.
.4," CATALOGUE OF ";PS$;" ON THE ";XY
$;" PAGE#";P.G.Y..555...^..4,"
";:.QQ.1.3:.4," PROGRAM NAME.....DIS
K ";:.:.4.).C..555:.P.PN.LP..((N.3).((P.
1).LP)).1.9.H..X.S.S.LP.1.O.M..4," "
;D$(X)." ";.D$(X.LP)." ".D$(X.2.LP).
..R.. B(197).4 . .380...W..X:.4:.4:.4:.P
...|..4: 4......130:.40......198,0:.130.
.....2505:.". ENTER TODAY'S DATE (N0 COM
MAS).":." ";:.XY$.<....". ENTER PRINT
ER DEVICE NUMBER 4 - 7.":." 4...";:
.DN$.H...DN.E(H(DN$,1)):.DN.4.DN.7.."...
.";:.400.....PS$.ZS$:.PS$.""..". ENTER N
AME FOR PRINTOUT":." .";:.PS$......".
INTERFACE .T.RANSPARENT/.X.ETIC SENIOR":
.". T...";DC$......DC$.."T".DC$.."X
".."....";:.415.&....DC$."X".H.15:.450.A
....". EPSOM OR GEMINI PRINTER E/G.":."
E...";:.DC$......DC$.."E". DC$.."G
".."....";:.430......DC$."E".H.157......
DC$."G".H.20...B..198,0...G..". ENTER PA
GE LENGTH.":." 66....";:. LP...L..5
65:.DC$."X". 4:.4,DN:.4,G(27);G(H):.470.
,.Q. 4:.4,DN:.4,G(H).K.V.LP.LP.7:PN..((N
.(LP.5)).1).K....P.1.PN:S.P.(LP.5).(LP.5
).1.....S1$." ":S2$." ":S3$
." "......DC$.."X"..4,S2$
;"CATALOGUE OF ";PS$;" ON THE ";XY$;S3$;
"PAGE#";P......DC$.."X".510......4,G(27)
;G(14);.B....4,S1$;"LIST OF ";G(27);G(71
);PS$;G(27);G(72);.W....4," ON THE ";XY$
;S2$;" PAGE";P;G(27);G(87);G(0)......560
......4," ";:.QQ.1.5:.4," PROGRA
M NAME.....DISK ";:.:.4......560:.P.PN.L
P..((N.5).((P.1).LP)).1......X.S.S.LP.1.
7....4," ";D$(X)." ";.D$(X.LP
)." ".D$(X.2.LP)." ";._....4," ".D$(X
.3.LP)." ".D$(X.4.LP).U.... B(197).4 .
.550...!..X:.4:.4:.4:.P...&..4,G(27)."@
":.4: 4::.385.J.+..4," ";:.QQ.1.76:.4,"
-";:.:.4:....0..4," ";:.QQ.1.11
7:.4,"-";:.:.4:....5.::!.(5,5,31,7).4.:.
P$."SET PRINTER TO TOP OF SHEET.".R$._.?
.P$.P$." PRESS . SHIFT . KEY TO.".R$.
..D.P$.P$." START PRINTING":.120.
..N..(653),1:P$."..PRINTING PRESS 'F1' T
O ABORT":.140...R.P$." SORT THE FI
LE.".R$:....S.. SORT...X.::!.(5,10,20,5)
.3.].P$.".SORT THE FILE Y/N":.120:.2495:
.A$."N".210.B.B..130:.2505.U.G.::!.(5,5,
30,5)...Q..594:P$.P$." SORT BY .N.AM
E OR .I.D":.120...V..A$:.A$.."N".A$.."I"
.630...{..A$."N".670......594:P$.P$." SO
RTING BY ID::PLEASE WAIT":.140......I.1.
N:D$(I).I(D$(I),4).H(D$(I),17):..#....52
480,N,D$(1).M....I.1.N:D$(I).I(D$(I),17)
.H(D$(I),4):..V....385......594:P$.P$."S
ORTING BY NAME:PLEASE WAIT":.140.....N1.
.:N2..:.52480,N,D$(1).L....I.1.N:.D$(I).
PI$.N1.I.1:.720:.695......I::.N1...665..
...::!.(5,5,30,5)......130.A.A.N2.N.N1:P
$." ":N2$.D(N2):P$.P$.N2$." FILES
REMOVED.".R$:N.N1.K.F.P$.P$." . PR
ESS ANY KEY .":.120.Y.K..215:.385...P..I
.1.N.1:.D$(I).PI$.D$(I)."
"...U..I:..K.Z.::!.(5,5,30,5).....
P$.". SEARCH FOR FILE NAME Y/N":.120:.2
495:.A$."N".210.....::!.(4,6,28,5).K....
2505:.130:P$." SEARCH FOR FILE NAME".R$
.R$.U...P$.P$."ENTER NAME TO SEARCH FOR"
:.120.....::!.@1,12," ";.....SN$."
":.SN$:Z.C(SN$).L....I.1.N:.H(D$(I),Z).S
N$...9)D$(I)......B(653).1.770......I:.2
210:.". .END OF LIST. PRESS ANY KE
Y". ....215:.385.6.... CHANGE DISK I/D.I
...::!.(3,1,39,3).{...P$." DO YOU WISH
TO CHANGE AN ID (Y/N)":.120... ..2495:.A
$."Y".810...%..110:.870...*..2505:.130.K
./...12)"..CHANGE DISK I/D"...4..".. EN
TER OLD ID ";OI$...9..C(OI$)..4.."...";:
.820.!.>..".. ENTER NEW ID ";NI$.=.C..C
(NI$)..4.."...";:.830.H.H..I.1.N.S.M.. I
(D$(I),4).OI$.D$(I).H(D$(I),17).NI$.Y.R.
....W.P$."DO YOU WISH TO CHANGE MORE ID'
S(Y/N)":.120.H.\..2495:.A$."N"..110:.870
...A..110:OI$."":NI$."":. 820...F.. SEAR
CH FOR DISK NUMBER...K.::!.(3,2,37,3).T.
P.P$." SEARCH FOR DISK NUMBER Y/N":.1
20:.2495:.A$."N".385...U..130:.2505:P$."
SEARCH FOR DISK NUMBER":.120...Z.
::!.(6,4,32,3).J..P$."ENTER 4 CHR. ID T
O SEARCH FOR":.120.....::!.@,11,0," "...
..." ";:SN$."":.SN$:Z.C(SN$).)....I
.1.N:.J(D$(I),18,Z).SN$...9)D$(I).;....B
(653).1.915.N....I:.2370:.". .END OF
LIST. PRESS ANY KEY".|....215:.385....
.. READ DISK DIRECTORY.....::!.(5,7,26,5
).....P$.".VIEW DISK DIRECTORY Y/N":.120
:.2495:.A$."N".210......110.....::!.(5,3
,34,5).....D.8:DD$."0":.D1.8.975.J....10
45:P$.P$." WHAT DEVICE (8 OR 9)":.1
20._.E..D$:D.E(H(D$,1)).P.J..D.8.D.9.965
...O..D2$."0:".995...T..1045:P$.P$."
WHAT DRIVE (0 OR 1)":.120.Q.Y..DD$:.DD
$."0".DD$."1".985.....DR.E(DD$)......530
03,F(DD$):.53010,D., ...1045:P$.P$." IS
CORRECT DISK IN THE DRIVE?":.I ...D1.8.D
2$."0"..120:.1015.R ...140.H ...2495:.A$
."N".385.. ...15,D,15:.15,"I".DD$:.15,E,
E$,F,G: 15.L ...E.....".... DISK ERROR-.
.":.E" "E$" "F" "G: 15:.1035.. ...2505:.
52992..!....8)"..PRESS ANY KEY WHEN READ
Y"..!...215:.40.8!..P$." VIEW DISK
DIRECTORY.".R$:..L!... ADD FROM DISK.V!.
..2505.I!$.::!.(2,9,22,3)..!).P$."ADD FI
LES FROM DISK":.120..!..::!.@,7,2," ".
N!3.."FILES"N;:.I4$.."A".."- LAST ID USE
D "I4$..!8..".PLACE DISK TO BE READ INTO
DRIVE 8 AND".8"=..".INPUT A FOUR CHARAC
TER ID .(A=ABORT).":.". ----".["B.I4$
."":." ";I4$::.I4$."A".385.L"G..I4$."".
1070.."L..C(I4$)..4.1070.."Q..". QUERY?
(Y/N) ";.."V..QU$:.QU$.."Y".QU$.."N".11
10.."[..QU$."Y"..".(Y/N/E/F1=ABORT).".."
`..QU$."N"..".(F1=ABORT).".!#E..15,8,15:
.15,"I0":.15,E,E$,F,G: 15.L#J..E.....".
"E" ."E$". "F" "G" ":.1270.B#O..7,8,.,
"$0":.1285.P#T..#7,A$,B$.~#Y..#7,A$,B$..
#~..#7,A$,B$..#..C..:FS$."":NF$."":XX..:
X.XX..#...A$.."".C.F(A$).Z#...B$.."".C.C
.F(B$).256..#..FS$.J(D(C),2)..#..." ";
.%$...E(FS$).10.FS$.FS$." ":.FS$;:
.1195.P$...E(FS$).99.FS$.FS$." ":.FS
$;:.1195.K$..FS$.FS$." ":.FS$;..$..
B$."":.#7,B$:.ST .64.1260..$...B$..G(34)
.1195.J$...#7,B$:.B$..G(34)..2185:NF$.NF
$.B$:.1205..$..PD$."..................."
..%...H(NF$,1)." ".NF$.I(NF$,C(NF$).1):.
1215.@%D..I(NF$,1)." ".NF$.H(NF$,C(NF$).
1):.1220.P%I.X.C(NF$):XX.18.X:NF$.NF$.H(
PD$,XX):.NF$" ";..%N..#7,B$:.B$.G(32).12
30..%S.C$.""..%X.C$.C$.B$:.#7,B$:.B$..""
.1240.B%...H(C$,1).H%....Z%....ST .64.13
35..%..."--- BLOCKS FREE"..%.... &.. 7:.
".. .HIT ANY KEY TO CONTINUE.".4&...A$
:.A$."".1275.>&...1050.R&...#7,A$,A$,A$,
A$.M&...#7,A$:.A$..G(34).1290..&...#7,A$
:.A$.G(34).1305..&..NN$.NN$.A$:.1295..&.
..#7,A$..&...#7,A$,B$:ID$.A$.B$..&#..:P$
." NAME:":.P$.NN$,:P$."..ID:":.P$.ID$.
.'(.P$."":NN$."":..,'-.." .SIZE NAM
E TYPE.".F'2..#7,A$,A$,A$,A$
:.1145.A'7..QU$."N".AN$."Y":.1345..'<..A
N$:.AN$."N"..".
.":.1145..'A..AN$."Y".N.N.1:.1
365.T'F..AN$."E".N.N.1:.1385..'K..AN$.F1
$.1270..'P..1340..(U..N.1199.."..* FILE
FULL! *.": 7: 15:.40.8(Z.D$(N).H(NF$,16)
.".".I4$.O(_..AB$:.AB$.F1$.1270.Y(D..114
5.K(I.." .EDIT.";..(N..I(NF$,1).".".NF
$.H(NF$,C(NF$).1):.1390..(S.." "NF$.Z
(X.."..........";NM$:NM$.NM$."..........
........."..(}.NF$.H(NM$,16):.1365..)..:
:!.(5,6,28,5).@)..P$.". DELETE OR EDIT N
AMES Y/N":.120:.2495:.A$."N".210..)..P$.
" DELETE OR EDIT BY .N.AME.".R$:P$.P$.".
DELETE BY .I.D.":.140..)...A$:.A$."
I".1530..)...A$.."N".1425..)...2505:P$."
INPUT NAME TO DELETE OR EDIT"..) .::!.(3
,4,32,3)..*...120:A1..:."..... ";.&*
..RN$."":.RN$:Z.C(RN$).A*...I.1.N:.H(D$(
I),Z).RN$...3)D$(I)" .(Y/N/E/F1).";:.146
5.K*...1490..*...A$:.A$."N".." N":.1490.
.*...A$."Y".D$(I).PI$:." Y":A1.1:.1490..
*C..A$."E".1505.P*H..A$.F1$.1495.Z*M..14
65..*R..I..*W..A1.1..:.680..*...385..+..
NM$.H(D$(I),16).;+...I(NM$,1).".".NM$.H(
NM$,C(NM$).1):.1510.D+...:.". >.EDIT.---
---------<":." "NM$..+...".";NM$:NM$.NM
$."...................":NO$.I(D$(I),4).A
+..D$(I).H(NM$,17).NO$:A1.1:.1490..+...2
505:P$."INPUT ID OF DISK TO REMOVE"..+..
::!.(3,5,30,3)..,...120:A1..:.".....
";.4,..RN$."":.RN$:Z.C(RN$).S,...I.1.N:
.J(D$(I),18,Z).RN$..D$(I)" .(Y/N/F1=ABOR
T).";:.1560.},...1580..,...A$:.A$."N".."
N":.1580..,...A$."Y".D$(I).PI$:." Y":A1
.1:.1580.Q,"..A$.F1$.1585..,'..1560..,,.
.I..,1..A1.1.680..,6..385..-;.. SAVE FIL
E..-@.::!.(5,5,30,5).U-E.P$.". SAVE
FILE? (Y/N)":.120:.2495:.A$."N".210.K-
J..1975:.A$."A".385..-O..15,D1,15:.15,"S
"D2$.ZS$.".BU"..-T..15,"R"D2$.ZS$.".BU="
D2$.ZS$.J-Y..8,D1,8,D2$.ZS$.",S,W".W-^..
15,E,E$...C..E... 8: 15:.". ."E$" P
RESS ANY KEY.":.215:.385.<.H..2505:.".."
ZZ$;:.". SAVING"N"FILE NAMES.R.M..8,N:.I
.1.N:.8,D$(I):."......."CE$D$(I)" "I
:....R. 8: 15:.385...W.. FILE LOAD...|.:
:!.(5,5,30,5).....P$.". LOAD FILE?
(Y/N)":.120:.2495:.A$."N".210......AA.1
..:AA.1:BB.1:.20../...110:.1770../...A$.
"N".385.*/...15,D1,15:AA.1.E/...8,D1,8,D
2$.ZS$.",S,R".V/...15,E,E$,G,H../...E...
8: 15:.". ."E$" PRESS ANY KEY.":BB
.1:.1710../...1720../...215../...BB.1.38
5../...8,N:.2505:.".."ZZ$;". LOADING"N"F
ILE NAMES..0...I.1.N:.8,D$(I):."......."
D$(I)" "I:.: 8: 15..0B..385.>0G..253
0:.A$."N".A$."A":.1995.Q0L..15,D1,15:.13
0.[0Q..2505.|0V..8,D1,8,D2$."CATEGORIES,
S,R"..0...15,E,E$,T,S..0...E.62.E.74.NN.
0: 8: 15:.1880..0...1815.O0...2530:.A$."
N".2455..0...15,D1,15:.130..0...2505..1.
..8,D1,8,D2$."CATEGORIES,S,R"..1...15,E,
E$,T,S.?1...E.62.E.74.NN.0: 8: 15:.1805.
I1...1815..1..."NOT A DISK FILE DATA DIS
K":.".. . PRESS ANY KEY TO CONTINUE .":
..1...215:.385.C1....6)".EXISTING CATEGO
RIES ARE:."..1...8,NN:.I.1.NN:.8,DD$(I).
.2!...8)"."I(D(I),1)". "DD$(I):.I: 8: 1
5..2&.::!.(20,1,38,4).N2+.P$."DO YOU WIS
H TO SCRATCH A CATEGORY?":.120.F20..2495
:.A$."Y"..2305.O25..110..2:.::!.(20,1,38
,4)..2?.P$."DO YOU WANT TO CREATE A NEW
CATEGORY?":.120.N2D..2495:.A$."Y".1875..
2I..A$."N".NN.0.1860..2N..A$."N".1925..3
S..NN.9.."NO MORE CATEGORIES":.1925.U3X.
.:."NAME OF NEW CATEGORY";DD$:.C(DD$).16
.."...":.1880.M3].NN.NN.1:DD$(NN).DD$..3
B..NN.9.."ONLY NINE ALLOWED!":.1905..3G.
.".MORE?"..3L..2495:.A$."Y"..110:.1875..
3Q..15,D1,15:S$."S".D2$."BUCATS":.15,S$.
.4V.RE$."R".D2$."BUCATS=CATEGORIES":.15,
RE$: 15.84{..8,D1,8,D2$."CATEGORIES,S,W"
.Z4...8,NN:.I.1.NN:.8,DD$(I):.I: 8.C4...
110..4...2505:..6)".EXISTING CATEGORIES
ARE:."..4...I.1.NN:..8)"."I(D(I),1)". "
DD$(I):.I.M4..::!.(20,1,38,4)..4..P$."WH
ICH CATEGORY NUMBER DO YOU WANT?":.120..
5...215.%5..ZS.E(A$):.ZS.1.ZS.NN.1950.=5
..ZS$.DD$(ZS):ZZ$.ZS$.F5...110.Q5...".":
..S5...110:.2505:."..":.ZS$."".1735..5..
.". CURRENT FILE IS "ZS$..5A..". IS TH
IS CORRECT? .(Y/N/A=ABORT).".R5F..A$:.A
$."N".1755..5K..A$."A"....5P..A$.."Y".19
90..6U.::!.(15,3,34,3).96Z.P$." IS CORRE
CT DISK IN DRIVE? Y/N":.120:.2495.S6...1
10:.A$."N".A$."A":..Y6....I6... ADD FILE
S.|6..::!.(5,9,22,5)..6..P$.". ADD NAME
S (Y/N)":.120:.2495:.A$."N".210..6...110
:.2505.Y6..I4$."":P$." ADD NAMES"..6..::
!.(5,13,14,3)..6...120.'7...N.1199..".*
FILE FULL!! *.":.I.1.900:.:.385.E7...N.1
150..".* FILE ALMOST FULL!! * .";:.1200.
N"REMAINING!"..7..P$.".I.NDIVIDUAL OR .D
.ISK"..7..::!.(7,10,22,3)..7 ..120..7%..
215.G7*..A$."D"..110:.110:.1050.Y7/..A$.
."I".2085..84..110:.110:P$."ADD INDIVIDU
AL FILE"..89.::!.(4,8,24,3)..8>..120.-8C
..N.1199.2060.@8H.::!.@,9,2," ".X8M.."
INPUT A FOUR CHARACTER ID .(A=ABORT).":.
" ----"..8R..I4$::.I4$."A".385. 8W..I4$
."".2120..8\..C(I4$)..4.2120..8A..". E
NTER FILE NAME (MAX 16 CHRS)":." ------
----------"..9F.N$."":.N$:.N$.""..".";:.
2150.39K.N$.N$."..................".Z9P.
N$.H(N$,16).".".I4$:N.N.1:D$(N).N$.F9U..
I.9.15.U9Z.::!ERASE,I.{9....9...2120..9
... FROM DISK READ.B9...F(B$.Z$).127.F(B
$.Z$).160.B$.G(63)..9...F(B$.Z$).32.B$.G
(63)..:...F(B$.Z$).224.F(B$.Z$).254.B$.G
(63)..:.....:...2490:.A$."N"....:...4,4:
.I.1.N.U:...H(D$(I),Z).SN$..4,D$(I):.:.4
: 4:..C:...:.4: 4:...:... DRIVE SELECT-S
AME WINDOW..:..P$." SELECT DRIVE CON
FIGURATION..".R$..:..P$.P$."1. SINGLE 15
41 DISK DRIVE DV 8 ..".R$..;E.P$.P$."2.
TWO 1541 DISK DRIVES DV 8 & 9..".R$.C;J.
P$.P$."3. MSD SD-2 OR 4040 DUAL DRIVE DV
8".V;O.P$.P$.". . SELECT BY NUMB
ER 1-3 .":.120. ;T..A$:.A$."1".D1.8:D2$.
"0:":.680,1:.130.F;Y..A$."2".D1.9:D2$."0
:":.680,2:.130..;...A$."3".D1.8:D2$."1:"
:.680,3:.130..;...2260..<..PI$."........
.............":..8<..A.B(680):.A.1.D1.8:
D2$."0:".O<...A.2.D1.9:D2$."0:".F<...A.3
.D1.8:D2$."1:".L<.....<...".WHICH NUMBER
DO YOU WISH TO SCRATCH?"..<...215..<...
A$.G(49).A$.G(57).2310..<..SF.E(H(A$,1))
:NN.NN.1: . SF= FILE TO SCRATCH FOR DD$(
I)."=...15,D1,15:S$."S".D2$.DD$(SF):.15,
S$.J=..S$."S".D2$.DD$(SF).".BU":.15,S$:
15.Z=... RN.1.NN.1.W=$..RN.SF.DD$(RN).DD
$(RN):...=)..RN..SF.DD$(RN).DD$(RN.1):..
.=...15,D1,15:S$."S".D2$."BUCATS":.15,S$
..=3.RE$."R".D2$."BUCATS=CATEGORIES":.15
,RE$: 15..>8..8,D1,8,D2$."CATEGORIES,S,W
".5>=..8,NN:.I.1.NN:.8,DD$(I):.I: 8:..I>
B..2490:.A$."N"...Y>G..4,4:.I.1.N..>L..J
(D$(I),18,Z).SN$..4,D$(I):.:.4: 4:...>Q.
.:.4: 4:...>V..2505..>[.::!.(0,1,0,0,32,
1,1).H>`.::!.(5,1,39,15)..?E.."...";:.I.
1.22:." DISK FILE "VE$" DISK FILE "
VE$:..7?J.P$." DO YOU WISH TO ADJUST TH
E COLOURS..".R$.K?O.P$.P$." PRESS F1 TO
CHANGE SCREEN COLOUR..".R$..?T.P$.P$."
PRESS F3 TO CHANGE BORDER COLOUR..".R$.
Q?Y.P$.P$." PRESS F5 TO CHANGE TEXT COL
OUR..".R$..?~.P$.P$." PRESS F7 TO FINIS
H":.120..@...A$:.A$.F1$.2460. @...A$.G(1
34).2470.1@...A$.F5$.2480.C@...A$..F7$.2
435.L@...110.M@..S.B(SC.1).15:S.S.1:.S.1
5.S.0.@...SC.1,S:.2435..@..S.B(SC).15:S
.S.1:.S.15.S.0..@...SC,S:.2435.K@..S.B(6
46):S.S.1:.S.15.S.0..@...646,S:.53142,S:
.53141:.2435..A....11)"HARD COPY .(Y/N).
".'A...A$:.A$.."Y".A$.."N".2495.-AD...TA
I..".":P$."DISK FILE PROGRAM - ".VE$.GAN
.::!CENTER,0,P$..AS.P$."................
........."..AX.::!CENTER,1,P$..A...R$:..
.A..::!.(5,5,30,5)..A..ND$.D(D1):P$."
IS MASTER DATA DISK".R$.R$.)B..P$.P$."
IN DRIVE":P$.P$.ND$:P$.P$." Y/N":.12
0:.2495:....
> CLICK IMAGE PREVIEW FOR FULL MODAL