DATABASE 1
FILE INFORMATION
FILENAME(S): DATABASE 1
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-11-30 19:47:42
APPEARS ON: 1 disk(s)
FILE HASH
90e64a85ced2070253ec42cadcbbc13399e9f51961241f3a18826c514c289bd4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIDISK | DATABASE 1 | PRG | Curtcool, Frank | 15 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 F8 2A 8F 23 2A 2A 2A 2A 2A 2A 2A 2A |..&..*.#********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 00 31 08 02 2B 8F 20 4D 45 4E |******.1..+. MEN|
00000030: 59 00 56 08 0C 2B 8F 23 2A 2A 2A 2A 2A 2A 2A 2A |Y.V..+.#********|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 00 6E 08 11 2B 97 20 35 33 32 |******.n..+. 532|
00000060: 38 30 2C 33 3A 97 20 35 33 32 38 31 2C 33 00 A2 |80,3:. 53281,3..|
00000070: 08 13 2B 99 20 22 93 1C 12 20 20 20 20 20 20 20 |..+. "... |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 22 00 D6 08 16 2B 99 20 22 12 1C 91 20 20 20 | "....+. "... |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 55 4E 49 46 | UNIF|
000000C0: 49 4C 45 20 49 49 20 20 20 20 20 20 20 20 20 20 |ILE II |
000000D0: 20 20 20 20 20 22 00 0A 09 18 2B 99 20 22 91 1C | "....+. "..|
000000E0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 22 00 28 09 20 2B 99 | ".(. +.|
00000110: 22 11 11 1F 43 4F 4D 4D 41 4E 44 53 20 41 56 41 |"...COMMANDS AVA|
00000120: 49 4C 41 42 4C 45 3A 22 00 49 09 2A 2B 99 22 11 |ILABLE:".I.*+.".|
00000130: 11 1C 20 20 20 31 29 45 4E 54 45 52 20 49 4E 46 |.. 1)ENTER INF|
00000140: 4F 52 4D 41 54 49 4F 4E 22 00 6C 09 34 2B 99 22 |ORMATION".l.4+."|
00000150: 11 20 20 20 32 29 53 45 41 52 43 48 2F 44 49 53 |. 2)SEARCH/DIS|
00000160: 50 4C 41 59 2F 43 48 41 4E 47 45 22 00 88 09 3E |PLAY/CHANGE"...>|
00000170: 2B 99 22 11 20 20 20 33 29 4E 45 57 20 54 59 50 |+.". 3)NEW TYP|
00000180: 45 20 4E 41 4D 45 53 22 00 A0 09 48 2B 99 22 11 |E NAMES"...H+.".|
00000190: 20 20 20 34 29 44 41 54 41 20 46 49 4C 45 53 22 | 4)DATA FILES"|
000001A0: 00 BE 09 52 2B 99 22 11 20 20 20 35 29 53 45 54 |...R+.". 5)SET|
000001B0: 20 55 50 20 4E 45 57 20 46 49 4C 45 53 22 00 D0 | UP NEW FILES"..|
000001C0: 09 5C 2B 99 22 11 20 20 20 36 29 53 54 4F 50 22 |.\+.". 6)STOP"|
000001D0: 00 F9 09 66 2B 85 20 22 11 1F 57 48 49 43 48 20 |...f+. "..WHICH |
000001E0: 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 3A 22 |DO YOU REQUIRE:"|
000001F0: 3B 5A 3A 99 20 22 93 22 3B 00 12 0A 70 2B 8B 20 |;Z:. ".";...p+. |
00000200: 5A B1 34 20 B0 20 49 4E B2 31 20 A7 20 31 31 31 |Z.4 . IN.1 . 111|
00000210: 35 30 00 51 0A 7A 2B 99 20 22 93 11 11 11 11 11 |50.Q.z+. "......|
00000220: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F 54 |.............NOT|
00000230: 20 49 4E 49 54 49 41 4C 49 53 45 44 20 59 45 54 | INITIALISED YET|
00000240: 2E 22 3A 81 20 49 B2 31 20 A4 20 31 30 30 30 3A |.":. I.1 . 1000:|
00000250: 82 00 5D 0A 84 2B 89 20 31 31 30 30 30 00 93 0A |..]..+. 11000...|
00000260: 8E 2B 91 20 5A 20 8D 20 31 33 30 30 30 2C 31 37 |.+. Z . 13000,17|
00000270: 30 30 30 2C 31 39 30 30 30 2C 32 30 30 30 30 2C |000,19000,20000,|
00000280: 31 32 30 30 30 2C 31 31 31 36 30 3A 89 20 31 31 |12000,11160:. 11|
00000290: 30 30 30 00 C6 0A 98 2B 99 20 22 11 11 11 11 11 |000....+. ".....|
000002A0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 12 90 46 |...............F|
000002B0: 49 4C 49 4E 47 20 53 59 53 54 45 4D 20 43 4C 4F |ILING SYSTEM CLO|
000002C0: 53 45 44 22 3A 80 00 EA 0A E0 2E 8F 23 2A 2A 2A |SED":.......#***|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 0B EA 2E 8F |**********......|
000002F0: 20 53 54 52 55 43 54 55 52 45 20 4F 46 20 46 49 | STRUCTURE OF FI|
00000300: 4C 45 00 26 0B F4 2E 8F 23 2A 2A 2A 2A 2A 2A 2A |LE.&....#*******|
00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000320: 2A 2A 2A 2A 2A 2A 00 4A 0B FE 2E 9C 3A 86 20 41 |******.J....:. A|
00000330: 24 28 34 39 39 29 2C 42 24 28 34 39 29 2C 54 49 |$(499),B$(49),TI|
00000340: 25 28 34 39 29 3A 49 4E B2 31 00 68 0B 08 2F 96 |%(49):IN.1.h../.|
00000350: 20 A5 41 28 53 31 29 B2 C6 28 C9 28 41 24 28 53 | .A(S1)..(.(A$(S|
00000360: 31 29 2C 31 29 29 AA 31 00 8D 0B 12 2F 96 20 A5 |1),1)).1..../. .|
00000370: 42 28 53 31 29 B2 C6 28 C9 28 41 24 28 53 31 29 |B(S1)..(.(A$(S1)|
00000380: 2C A5 41 28 53 31 29 AB 49 AA 31 29 29 00 99 0B |,.A(S1).I.1))...|
00000390: 1C 2F 89 20 31 31 30 30 30 00 BD 0B C8 32 8F 23 |./. 11000....2.#|
000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 0B |*************...|
000003C0: D2 32 8F 20 45 4E 54 52 59 20 4F 46 20 4E 45 57 |.2. ENTRY OF NEW|
000003D0: 20 49 54 45 4D 53 00 FA 0B DC 32 8F 23 2A 2A 2A | ITEMS....2.#***|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 0C E6 32 54 |**********.A..2T|
00000400: 31 24 B2 22 22 3A 4E 4E B2 AB 31 3A 54 4E B2 30 |1$."":NN..1:TN.0|
00000410: 3A 99 20 22 93 11 12 1C 20 20 20 20 20 20 20 20 |:. ".... |
00000420: 20 20 20 20 20 20 20 4E 45 57 20 49 54 45 4D 53 | NEW ITEMS|
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 22 00 76 0C F0 32 99 20 22 91 11 1D 1D 1D 1D 1D |".v..2. ".......|
00000450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000460: 1D 1E 22 3B 49 54 3B 22 20 49 54 45 4D 53 20 53 |..";IT;" ITEMS S|
00000470: 4F 20 46 41 52 22 00 93 0C FA 32 99 22 11 1F 43 |O FAR"....2."..C|
00000480: 4F 4D 4D 41 4E 44 53 20 41 56 41 49 4C 41 42 4C |OMMANDS AVAILABL|
00000490: 45 3A 22 00 B4 0C 04 33 99 22 11 90 3E 45 4E 54 |E:"....3."..>ENT|
000004A0: 45 52 20 49 54 45 4D 20 54 4F 20 42 45 20 49 4E |ER ITEM TO BE IN|
000004B0: 50 55 54 22 00 E1 0C 0E 33 99 20 22 90 3E 45 4E |PUT"....3. ".>EN|
000004C0: 54 45 52 20 27 2A 27 20 54 4F 20 54 45 52 4D 49 |TER '*' TO TERMI|
000004D0: 4E 41 54 45 20 54 48 49 53 20 52 45 43 4F 52 44 |NATE THIS RECORD|
000004E0: 22 00 05 0D 18 33 99 20 22 90 3E 45 4E 54 45 52 |"....3. ".>ENTER|
000004F0: 20 27 5E 4E 4E 27 20 46 4F 52 20 49 54 45 4D 20 | '^NN' FOR ITEM |
00000500: 54 59 50 45 22 00 31 0D 22 33 99 20 22 90 3E 49 |TYPE".1."3. ".>I|
00000510: 4E 50 55 54 20 27 5A 5A 5A 27 20 54 48 45 4E 20 |NPUT 'ZZZ' THEN |
00000520: 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 1E 11 |RETURN TO MENU..|
00000530: 22 00 64 0D 27 33 99 22 91 90 A4 A4 A4 A4 A4 A4 |".d.'3."........|
00000540: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000550: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000560: A4 22 3A 99 00 7C 0D 2C 33 85 20 51 24 3A 8B 20 |.":..|.,3. Q$:. |
00000570: 51 24 B2 22 5A 5A 5A 22 20 A7 20 8E 00 8D 0D 36 |Q$."ZZZ" . ....6|
00000580: 33 8B 20 51 24 B2 22 5E 22 20 A7 20 8E 00 A8 0D |3. Q$."^" . ....|
00000590: 40 33 8B 20 C8 28 51 24 2C 31 29 B3 B1 22 5E 22 |@3. .(Q$,1).."^"|
000005A0: 20 A7 20 31 33 31 35 30 00 C3 0D 4A 33 54 4E B2 | . 13150...J3TN.|
000005B0: C5 28 CA 28 51 24 2C 32 29 29 3A 54 4E B2 54 4E |.(.(Q$,2)):TN.TN|
000005C0: AA 31 30 00 E2 0D 54 33 99 22 91 22 3B 42 24 28 |.10...T3.".";B$(|
000005D0: 54 4E AB 31 31 29 3B 22 3A 22 3B 3A 89 31 33 31 |TN.11);":";:.131|
000005E0: 30 30 00 0A 0E 5E 33 8B 20 54 4E B3 B1 30 20 A7 |00...^3. TN..0 .|
000005F0: 20 51 24 B2 51 24 AA 22 5E 22 AA CA 28 C4 28 54 | Q$.Q$."^"..(.(T|
00000600: 4E 29 2C 32 29 3A 54 4E B2 30 00 2F 0E 68 33 8B |N),2):TN.0./.h3.|
00000610: 20 C3 28 54 31 24 29 AA C3 28 51 24 29 AA 4E 4E | .(T1$)..(Q$).NN|
00000620: AA 32 B3 B2 32 35 35 20 A7 20 31 33 31 38 30 00 |.2..255 . 13180.|
00000630: 5A 0E 72 33 99 20 22 1C 45 4E 54 52 59 20 54 4F |Z.r3. ".ENTRY TO|
00000640: 4F 20 4C 4F 4E 47 2E 22 3A 81 20 4A B2 31 20 A4 |O LONG.":. J.1 .|
00000650: 33 30 30 30 3A 82 20 4A 3A 8E 00 71 0E 7C 33 8B |3000:. J:..q.|3.|
00000660: 20 51 24 B2 22 2A 22 20 A7 20 89 20 31 33 32 30 | Q$."*" . . 1320|
00000670: 30 00 A1 0E 86 33 54 31 24 B2 54 31 24 AA 51 24 |0....3T1$.T1$.Q$|
00000680: 3A 54 49 25 28 4E 4E AA 31 29 B2 C3 28 54 31 24 |:TI%(NN.1)..(T1$|
00000690: 29 3A 4E 4E B2 4E 4E AA 31 3A 89 20 31 33 31 30 |):NN.NN.1:. 1310|
000006A0: 30 00 D4 0E 90 33 81 20 49 B2 30 20 A4 20 4E 4E |0....3. I.0 . NN|
000006B0: 3A 54 31 24 B2 54 31 24 AA C7 28 54 49 25 28 49 |:T1$.T1$..(TI%(I|
000006C0: 29 29 3A 82 3A 54 31 24 B2 54 31 24 AA C7 28 4E |)):.:T1$.T1$..(N|
000006D0: 4E AA 31 29 00 FA 0E 9A 33 99 20 22 11 90 57 41 |N.1)....3. "..WA|
000006E0: 49 54 22 3A 8D 31 34 30 30 30 3A 8D 20 31 35 30 |IT":.14000:. 150|
000006F0: 30 30 3A 89 20 31 33 30 30 30 00 1E 0F B0 36 8F |00:. 13000....6.|
00000700: 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |#***************|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 |**************.2|
00000720: 0F BA 36 8F 20 42 49 4E 41 52 59 20 53 45 41 52 |..6. BINARY SEAR|
00000730: 43 48 00 56 0F C4 36 8F 23 2A 2A 2A 2A 2A 2A 2A |CH.V..6.#*******|
00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000750: 2A 2A 2A 2A 2A 2A 00 6A 0F CE 36 8B 20 49 54 B2 |******.j..6. IT.|
00000760: 30 20 A7 20 53 53 B2 30 3A 8E 00 89 0F D8 36 50 |0 . SS.0:.....6P|
00000770: 4F B2 B5 28 BC 28 49 54 29 AD BC 28 32 29 29 3A |O..(.(IT)..(2)):|
00000780: 53 53 B2 32 AE 50 4F AB 31 00 9C 0F E2 36 81 20 |SS.2.PO.1....6. |
00000790: 49 B2 50 4F 20 A4 20 30 20 A9 AB 31 00 B9 0F EC |I.PO . 0 ..1....|
000007A0: 36 8B 20 41 24 28 53 53 29 B3 54 31 24 20 A7 20 |6. A$(SS).T1$ . |
000007B0: 53 53 B2 53 53 AA 32 AE 49 00 D6 0F F6 36 8B 20 |SS.SS.2.I....6. |
000007C0: 41 24 28 53 53 29 B1 54 31 24 20 A7 20 53 53 B2 |A$(SS).T1$ . SS.|
000007D0: 53 53 AB 32 AE 49 00 E8 0F 00 37 8B 20 53 53 B3 |SS.2.I....7. SS.|
000007E0: 30 20 A7 20 53 53 B2 30 00 00 10 0A 37 8B 20 53 |0 . SS.0....7. S|
000007F0: 53 B1 49 54 AB 31 20 A7 20 53 53 B2 49 54 AB 31 |S.IT.1 . SS.IT.1|
00000800: 00 1F 10 14 37 82 20 49 3A 8B 20 41 24 28 53 53 |....7. I:. A$(SS|
00000810: 29 B3 54 31 24 20 A7 20 53 53 B2 53 53 AA 31 00 |).T1$ . SS.SS.1.|
00000820: 25 10 1E 37 8E 00 49 10 98 3A 8F 23 2A 2A 2A 2A |%..7..I..:.#****|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 56 10 A2 3A 8F 20 |*********.V..:. |
00000850: 49 4E 53 45 52 54 00 7A 10 AC 3A 8F 23 2A 2A 2A |INSERT.z..:.#***|
00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 10 B6 3A 8B |**********....:.|
00000880: 20 49 54 B2 30 20 A7 20 89 20 31 35 30 35 30 00 | IT.0 . . 15050.|
00000890: B6 10 C0 3A 81 20 49 B2 49 54 20 A4 20 53 53 AA |...:. I.IT . SS.|
000008A0: 31 20 A9 20 AB 31 3A 41 24 28 49 29 B2 41 24 28 |1 . .1:A$(I).A$(|
000008B0: 49 AB 31 29 3A 82 00 CF 10 CA 3A 41 24 28 53 53 |I.1):.....:A$(SS|
000008C0: 29 B2 54 31 24 3A 49 54 B2 49 54 AA 31 3A 8E 00 |).T1$:IT.IT.1:..|
000008D0: F3 10 80 3E 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...>.#**********|
000008E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008F0: 2A 2A 2A 00 06 11 8A 3E 8F 20 43 48 41 4E 47 45 |***....>. CHANGE|
00000900: 20 45 4E 54 52 59 00 2A 11 94 3E 8F 23 2A 2A 2A | ENTRY.*..>.#***|
00000910: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 48 11 9E 3E 53 |**********.H..>S|
00000930: 31 B2 53 31 AB 31 3A 54 31 24 B2 22 22 3A 4E 4E |1.S1.1:T1$."":NN|
00000940: B2 AB 31 3A 54 4E B2 30 00 68 11 A8 3E 50 50 B2 |..1:TN.0.h..>PP.|
00000950: 30 3A 53 32 B2 53 31 3A 81 20 49 B2 31 20 A4 20 |0:S2.S1:. I.1 . |
00000960: A5 41 28 53 31 29 AB 31 00 82 11 B2 3E 99 22 93 |.A(S1).1....>.".|
00000970: 11 45 4E 54 52 59 20 22 3B 53 31 AA 31 3B 22 3A |.ENTRY ";S1.1;":|
00000980: 2D 22 00 A1 11 BC 3E 8D 20 32 31 30 33 30 3A 8B |-"....>. 21030:.|
00000990: 20 C3 28 53 53 24 29 B3 34 20 A7 20 31 36 30 39 | .(SS$).4 . 1609|
000009A0: 30 00 C6 11 C6 3E 8B 20 CA 28 53 53 24 2C C3 28 |0....>. .(SS$,.(|
000009B0: 53 53 24 29 AB 32 2C 31 29 B3 B1 22 5E 22 20 A7 |SS$).2,1).."^" .|
000009C0: 20 31 36 30 39 30 00 FB 11 D0 3E 99 20 42 24 28 | 16090....>. B$(|
000009D0: C5 28 C9 28 53 53 24 2C 32 29 29 AB 31 31 29 3B |.(.(SS$,2)).11);|
000009E0: 22 3A 22 3B C8 28 53 53 24 2C C3 28 53 53 24 29 |":";.(SS$,.(SS$)|
000009F0: AB 33 29 3A 89 20 31 36 31 30 30 00 05 12 DA 3E |.3):. 16100....>|
00000A00: 99 20 53 53 24 00 27 12 E4 3E 99 22 1F 11 11 11 |. SS$.'..>."....|
00000A10: 11 11 11 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 |...COMMANDS AVAI|
00000A20: 4C 41 42 4C 45 3A 22 00 52 12 EE 3E 99 20 22 20 |LABLE:".R..>. " |
00000A30: 90 3E 1E 12 52 45 54 55 52 4E 92 20 4C 45 41 56 |.>..RETURN. LEAV|
00000A40: 45 53 20 49 54 45 4D 20 55 4E 43 48 41 4E 47 45 |ES ITEM UNCHANGE|
00000A50: 44 22 00 77 12 F8 3E 99 20 22 20 90 3E 1E 4E 45 |D".w..>. " .>.NE|
00000A60: 57 20 49 54 45 4D 20 45 4E 44 49 4E 47 20 57 49 |W ITEM ENDING WI|
00000A70: 54 48 20 27 2A 27 22 00 A1 12 02 3F 99 20 22 20 |TH '*'"....?. " |
00000A80: 90 3E 1E 52 45 50 4C 41 43 45 4D 45 4E 54 20 4F |.>.REPLACEMENT O|
00000A90: 46 20 49 54 45 4D 20 44 49 53 50 4C 41 59 45 44 |F ITEM DISPLAYED|
00000AA0: 22 00 C9 12 0C 3F 99 20 22 20 90 3E 1E 27 5A 5A |"....?. " .>.'ZZ|
00000AB0: 5A 27 20 51 55 49 54 53 20 57 49 54 48 4F 55 54 |Z' QUITS WITHOUT|
00000AC0: 20 43 48 41 4E 47 45 53 22 00 F3 12 16 3F 99 20 | CHANGES"....?. |
00000AD0: 22 20 90 3E 1E 27 44 44 44 27 20 44 45 4C 45 54 |" .>.'DDD' DELET|
00000AE0: 45 53 20 54 48 45 20 57 48 4F 4C 45 20 45 4E 54 |ES THE WHOLE ENT|
00000AF0: 52 59 22 00 22 13 20 3F 99 20 22 20 90 3E 1E 27 |RY".". ?. " .>.'|
00000B00: 52 52 52 27 20 52 45 4D 4F 56 45 53 20 54 48 45 |RRR' REMOVES THE|
00000B10: 20 49 54 45 4D 20 46 52 4F 4D 20 45 4E 54 52 59 | ITEM FROM ENTRY|
00000B20: 20 22 00 4A 13 2A 3F 51 24 B2 22 22 3A 85 20 22 | ".J.*?Q$."":. "|
00000B30: 1C 57 48 49 43 48 20 44 4F 20 59 4F 55 20 52 45 |.WHICH DO YOU RE|
00000B40: 51 55 49 52 45 3A 22 3B 51 24 00 5D 13 34 3F 8B |QUIRE:";Q$.].4?.|
00000B50: 20 51 24 B2 22 5A 5A 5A 22 20 A7 20 8E 00 76 13 | Q$."ZZZ" . ..v.|
00000B60: 3E 3F 8B 20 51 24 B2 22 52 52 52 22 20 A7 20 89 |>?. Q$."RRR" . .|
00000B70: 20 31 36 33 30 30 00 91 13 48 3F 8B 20 51 24 B2 | 16300...H?. Q$.|
00000B80: 22 44 44 44 22 20 A7 20 8D 20 31 38 30 30 30 3A |"DDD" . . 18000:|
00000B90: 8E 00 B7 13 52 3F 8B 20 C3 28 54 31 24 29 AA C3 |....R?. .(T1$)..|
00000BA0: 28 51 24 29 AA 4E 4E AA 32 B3 32 35 35 20 A7 20 |(Q$).NN.2.255 . |
00000BB0: 89 20 31 36 32 33 30 00 E0 13 5C 3F 99 20 22 1C |. 16230...\?. ".|
00000BC0: 45 4E 54 52 59 20 54 4F 4F 20 4C 4F 4E 47 22 3A |ENTRY TOO LONG":|
00000BD0: 81 20 4A B2 31 20 A4 20 33 30 30 30 3A 82 3A 8E |. J.1 . 3000:.:.|
00000BE0: 00 0F 14 66 3F 45 58 B2 30 3A 8B 20 C9 28 51 24 |...f?EX.0:. .(Q$|
00000BF0: 2C 31 29 B2 22 2A 22 20 A7 20 45 58 B2 31 3A 51 |,1)."*" . EX.1:Q|
00000C00: 24 B2 C8 28 51 24 2C C3 28 51 24 29 AB 31 29 00 |$..(Q$,.(Q$).1).|
00000C10: 4A 14 70 3F 8B 20 51 24 B2 22 22 20 A7 20 54 31 |J.p?. Q$."" . T1|
00000C20: 24 B2 54 31 24 AA 53 53 24 3A 54 49 25 28 4E 4E |$.T1$.SS$:TI%(NN|
00000C30: AA 31 29 B2 C3 28 54 31 24 29 3A 4E 4E B2 4E 4E |.1)..(T1$):NN.NN|
00000C40: AA 31 3A 89 20 31 36 33 30 30 00 65 14 7A 3F 8B |.1:. 16300.e.z?.|
00000C50: 20 C8 28 51 24 2C 31 29 B3 B1 22 5E 22 20 A7 20 | .(Q$,1).."^" . |
00000C60: 31 36 32 38 30 00 96 14 84 3F 54 4E B2 C5 28 CA |16280....?TN..(.|
00000C70: 28 51 24 2C 32 29 29 AA 31 30 3A 99 20 42 24 28 |(Q$,2)).10:. B$(|
00000C80: 54 4E AB 31 31 29 3B 22 3A 22 3B 3A 51 24 B2 22 |TN.11);":";:Q$."|
00000C90: 22 3A 85 20 51 24 00 AF 14 8E 3F 51 24 B2 51 24 |":. Q$....?Q$.Q$|
00000CA0: AA 22 5E 22 AA CA 28 C4 28 54 4E 29 2C 32 29 00 |."^"..(.(TN),2).|
00000CB0: D7 14 98 3F 54 31 24 B2 54 31 24 AA 51 24 3A 54 |...?T1$.T1$.Q$:T|
00000CC0: 49 25 28 4E 4E AA 31 29 B2 C3 28 54 31 24 29 3A |I%(NN.1)..(T1$):|
00000CD0: 4E 4E B2 4E 4E AA 31 00 EA 14 A2 3F 8B 20 45 58 |NN.NN.1....?. EX|
00000CE0: B2 31 20 A7 20 31 36 30 35 30 00 FC 14 AC 3F 50 |.1 . 16050....?P|
00000CF0: 50 B2 A5 42 28 53 31 29 3A 82 20 49 00 2F 15 B6 |P..B(S1):. I./..|
00000D00: 3F 81 20 49 B2 30 20 A4 20 4E 4E 3A 54 31 24 B2 |?. I.0 . NN:T1$.|
00000D10: 54 31 24 AA C7 28 54 49 25 28 49 29 29 3A 82 3A |T1$..(TI%(I)):.:|
00000D20: 54 31 24 B2 54 31 24 AA C7 28 4E 4E AA 31 29 00 |T1$.T1$..(NN.1).|
00000D30: 58 15 C0 3F 99 20 22 11 90 57 41 49 54 22 3A 8D |X..?. "..WAIT":.|
00000D40: 20 31 38 30 30 30 3A 8D 20 31 34 30 30 30 3A 8D | 18000:. 14000:.|
00000D50: 20 31 35 30 30 30 3A 8E 00 7C 15 68 42 8F 23 2A | 15000:..|.hB.#*|
00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 89 15 72 |************...r|
00000D80: 42 8F 20 53 45 41 52 43 48 00 AD 15 7C 42 8F 23 |B. SEARCH...|B.#|
00000D90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D8 15 |*************...|
00000DB0: 86 42 53 31 B2 30 3A 46 46 B2 30 3A 99 20 22 93 |.BS1.0:FF.0:. ".|
00000DC0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C |................|
00000DD0: 12 53 45 41 52 43 48 22 00 F6 15 90 42 99 20 22 |.SEARCH"....B. "|
00000DE0: 11 1F 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 4C |..COMMANDS AVAIL|
00000DF0: 41 42 4C 45 3A 22 00 1E 16 9A 42 99 20 22 11 20 |ABLE:"....B. ". |
00000E00: 90 49 4E 50 55 54 20 49 54 45 4D 20 46 4F 52 20 |.INPUT ITEM FOR |
00000E10: 4E 4F 52 4D 41 4C 20 53 45 41 52 43 48 22 00 50 |NORMAL SEARCH".P|
00000E20: 16 A4 42 99 20 22 20 20 90 3E 50 52 45 43 45 44 |..B. " .>PRECED|
00000E30: 45 20 57 49 54 48 20 27 49 49 49 27 20 46 4F 52 |E WITH 'III' FOR|
00000E40: 20 49 4E 49 54 49 41 4C 20 53 45 41 52 43 48 22 | INITIAL SEARCH"|
00000E50: 00 82 16 AE 42 99 20 22 20 20 90 3E 50 52 45 43 |....B. " .>PREC|
00000E60: 45 44 45 20 57 49 54 48 20 27 53 53 53 27 20 46 |EDE WITH 'SSS' F|
00000E70: 4F 52 20 53 50 45 43 49 41 4C 20 53 45 41 52 43 |OR SPECIAL SEARC|
00000E80: 48 22 00 AD 16 B8 42 99 20 22 20 20 90 3E 12 45 |H"....B. " .>.E|
00000E90: 4E 54 45 52 92 20 46 4F 52 20 46 49 52 53 54 20 |NTER. FOR FIRST |
00000EA0: 49 54 45 4D 20 4F 4E 20 46 49 4C 45 22 00 D3 16 |ITEM ON FILE"...|
00000EB0: C2 42 99 20 22 20 20 90 3E 27 4D 4D 4D 27 20 46 |.B. " .>'MMM' F|
00000EC0: 4F 52 20 4D 55 4C 54 49 50 4C 45 20 53 45 41 52 |OR MULTIPLE SEAR|
00000ED0: 43 48 22 00 08 17 CC 42 99 20 22 11 11 1F 91 91 |CH"....B. ".....|
00000EE0: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 |................|
00000EF0: 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 91 |................|
00000F00: 91 91 91 91 91 91 91 22 00 43 17 D6 42 54 31 24 |.......".C..BT1$|
00000F10: B2 22 22 3A 85 20 22 1F 53 45 41 52 43 48 20 43 |."":. ".SEARCH C|
00000F20: 4F 4D 4D 41 4E 44 3A 22 3B 54 31 24 3A 8B 20 C8 |OMMAND:";T1$:. .|
00000F30: 28 54 31 24 2C 31 29 B3 B1 22 5E 22 A7 20 31 37 |(T1$,1).."^". 17|
00000F40: 31 33 30 00 63 17 E0 42 88 20 54 4E B2 C5 28 CA |130.c..B. TN..(.|
00000F50: 28 54 31 24 2C 32 29 29 AA 31 30 3A 89 20 31 37 |(T1$,2)).10:. 17|
00000F60: 31 31 30 00 8F 17 EA 42 8B 20 54 4E B3 B1 30 20 |110....B. TN..0 |
00000F70: A7 20 88 20 54 31 24 B2 54 31 24 AA 22 5E 22 AA |. . T1$.T1$."^".|
00000F80: CA 28 C4 28 54 4E 29 2C 32 29 3A 54 4E B2 30 00 |.(.(TN),2):TN.0.|
00000F90: AD 17 F4 42 8B 20 C8 28 54 31 24 2C 33 29 B3 B1 |...B. .(T1$,3)..|
00000FA0: 22 49 49 49 22 20 A7 20 31 37 31 37 30 00 E1 17 |"III" . 17170...|
00000FB0: FE 42 54 31 24 B2 C9 28 54 31 24 2C C3 28 54 31 |.BT1$..(T1$,.(T1|
00000FC0: 24 29 AB 33 29 3A 8D 20 31 34 30 30 30 3A 53 31 |$).3):. 14000:S1|
00000FD0: B2 53 53 3A 8B 20 53 31 B1 49 54 AB 31 20 A7 20 |.SS:. S1.IT.1 . |
00000FE0: 8E 00 FB 17 08 43 54 31 24 B2 22 49 49 49 22 AA |.....CT1$."III".|
00000FF0: 54 31 24 3A 89 20 31 37 33 31 30 00 19 18 12 43 |T1$:. 17310....C|
00001000: 8B 20 C8 28 54 31 24 2C 33 29 B3 B1 22 53 53 53 |. .(T1$,3).."SSS|
00001010: 22 20 A7 20 31 37 32 30 30 00 44 18 1C 43 8D 20 |" . 17200.D..C. |
00001020: 32 31 30 34 30 3A 8B 20 46 46 B2 31 20 A7 20 54 |21040:. FF.1 . T|
00001030: 31 24 B2 22 53 53 53 22 AA 54 31 24 3A 89 20 31 |1$."SSS".T1$:. 1|
00001040: 37 33 31 30 00 4A 18 26 43 8E 00 68 18 30 43 8B |7310.J.&C..h.0C.|
00001050: 20 C8 28 54 31 24 2C 33 29 B3 B1 22 4D 4D 4D 22 | .(T1$,3).."MMM"|
00001060: 20 A7 20 31 37 32 37 30 00 98 18 3A 43 A1 5A 24 | . 17270...:C.Z$|
00001070: 3A 85 20 22 1E 11 4E 55 4D 42 45 52 20 4F 46 20 |:. "..NUMBER OF |
00001080: 49 54 45 4D 53 20 54 4F 20 53 45 41 52 43 48 20 |ITEMS TO SEARCH |
00001090: 46 4F 52 3A 22 3B 4E 4E 00 CA 18 44 43 81 20 4B |FOR:";NN...DC. K|
000010A0: B2 30 20 A4 20 4E 4E AB 31 3A 99 20 22 53 45 41 |.0 . NN.1:. "SEA|
000010B0: 52 43 48 20 49 54 45 4D 22 3B 4B AA 31 3B 3A 85 |RCH ITEM";K.1;:.|
000010C0: 20 4D 24 28 4B 29 3A 82 20 4B 00 FD 18 4E 43 81 | M$(K):. K...NC.|
000010D0: 20 4B B2 30 20 A4 20 4E 4E AB 31 3A 54 31 24 B2 | K.0 . NN.1:T1$.|
000010E0: 4D 24 28 4B 29 3A 53 33 B2 53 31 3A 8D 32 31 30 |M$(K):S3.S1:.210|
000010F0: 37 30 3A 8B 20 46 46 B2 30 20 A7 20 8E 00 12 19 |70:. FF.0 . ....|
00001100: 58 43 8B 20 53 33 B3 B1 53 31 20 A7 20 31 37 32 |XC. S3..S1 . 172|
00001110: 33 30 00 1A 19 62 43 82 20 4B 00 32 19 6C 43 88 |30...bC. K.2.lC.|
00001120: 20 54 31 24 B2 22 4D 4D 4D 22 3A 89 20 31 37 33 | T1$."MMM":. 173|
00001130: 31 30 00 47 19 76 43 8B 20 54 31 24 B2 22 22 20 |10.G.vC. T1$."" |
00001140: A7 20 31 37 33 31 30 00 53 19 80 43 8D 20 32 31 |. 17310.S..C. 21|
00001150: 30 37 30 00 66 19 8A 43 8B 20 46 46 B2 31 20 A7 |070.f..C. FF.1 .|
00001160: 20 31 37 33 31 30 00 6C 19 94 43 8E 00 84 19 9E | 17310.l..C.....|
00001170: 43 8B 20 53 31 B1 49 54 AB 31 20 A7 20 53 31 B2 |C. S1.IT.1 . S1.|
00001180: 49 54 AB 31 00 93 19 A8 43 8B 20 49 54 B2 30 20 |IT.1....C. IT.0 |
00001190: A7 20 8E 00 A5 19 B2 43 8B 20 53 31 B3 30 20 A7 |. .....C. S1.0 .|
000011A0: 20 53 31 B2 30 00 DE 19 BC 43 99 20 22 93 11 1C | S1.0....C. "...|
000011B0: 45 4E 54 52 59 20 22 3B 53 31 AA 31 3B 22 3A 2D |ENTRY ";S1.1;":-|
000011C0: 11 22 3A 50 50 B2 30 3A 53 32 B2 53 31 3A 81 20 |.":PP.0:S2.S1:. |
000011D0: 49 B2 31 20 A4 20 A5 41 28 53 31 29 AB 31 00 01 |I.1 . .A(S1).1..|
000011E0: 1A C1 43 8B 20 49 AD 31 32 B2 B5 28 49 AD 31 32 |..C. I.12..(I.12|
000011F0: 29 20 A7 20 85 20 22 90 4D 4F 52 45 22 3B 54 54 |) . . ".MORE";TT|
00001200: 24 00 20 1A C6 43 8D 20 32 31 30 33 30 3A 8B 20 |$. ..C. 21030:. |
00001210: C3 28 53 53 24 29 B3 34 20 A7 20 31 37 33 38 30 |.(SS$).4 . 17380|
00001220: 00 43 1A D0 43 8B 20 CA 28 C9 28 53 53 24 2C 33 |.C..C. .(.(SS$,3|
00001230: 29 2C 31 2C 31 29 B3 B1 22 5E 22 20 A7 20 31 37 |),1,1).."^" . 17|
00001240: 33 38 30 00 75 1A DA 43 99 20 42 24 28 C5 28 C9 |380.u..C. B$(.(.|
00001250: 28 53 53 24 2C 32 29 29 AB 31 31 29 3B 22 3A 22 |(SS$,2)).11);":"|
00001260: 3B 3A 53 53 24 B2 C8 28 53 53 24 2C C3 28 53 53 |;:SS$..(SS$,.(SS|
00001270: 24 29 AB 33 29 00 7F 1A E4 43 99 20 53 53 24 00 |$).3)....C. SS$.|
00001280: 99 1A EE 43 50 50 B2 A5 42 28 53 31 29 3A 82 20 |...CPP..B(S1):. |
00001290: 49 3A 53 31 B2 53 31 AA 31 00 CA 1A F3 43 99 20 |I:S1.S1.1....C. |
000012A0: 22 AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |"...............|
000012B0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000012C0: AF AF AF AF AF AF AF AF AF 22 00 F2 1A F8 43 99 |........."....C.|
000012D0: 20 22 11 12 1C 53 45 41 52 43 48 92 20 1F 43 4F | "...SEARCH. .CO|
000012E0: 4D 4D 41 4E 44 53 20 41 56 41 49 4C 41 42 4C 45 |MMANDS AVAILABLE|
000012F0: 3A 22 00 14 1B 02 44 99 20 22 11 20 90 3E 12 45 |:"....D. ". .>.E|
00001300: 4E 54 45 52 92 20 46 4F 52 20 4E 45 58 54 20 49 |NTER. FOR NEXT I|
00001310: 54 45 4D 22 00 2E 1B 0C 44 99 20 22 20 90 3E 27 |TEM"....D. " .>'|
00001320: 41 41 41 27 20 54 4F 20 41 4D 45 4E 44 27 00 52 |AAA' TO AMEND'.R|
00001330: 1B 16 44 99 20 22 20 90 3E 27 43 43 43 27 20 54 |..D. " .>'CCC' T|
00001340: 4F 20 43 4F 4E 54 49 4E 55 45 20 53 45 41 52 43 |O CONTINUE SEARC|
00001350: 48 22 00 81 1B 20 44 99 20 22 20 90 3E 27 23 27 |H"... D. " .>'#'|
00001360: 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 4E 4F 2E | FOLLOWED BY NO.|
00001370: 20 54 4F 20 4D 4F 56 45 20 50 4F 49 4E 54 45 52 | TO MOVE POINTER|
00001380: 22 00 A3 1B 2A 44 99 20 22 20 90 3E 27 5A 5A 5A |"...*D. " .>'ZZZ|
00001390: 27 20 54 4F 20 51 55 49 54 20 46 55 4E 43 54 49 |' TO QUIT FUNCTI|
000013A0: 4F 4E 27 00 CC 1B 34 44 50 24 B2 22 22 3A 85 20 |ON'...4DP$."":. |
000013B0: 22 11 1F 57 48 49 43 48 20 44 4F 20 59 4F 55 20 |"..WHICH DO YOU |
000013C0: 52 45 51 55 49 52 45 3A 22 3B 50 24 00 EC 1B 3E |REQUIRE:";P$...>|
000013D0: 44 8B 20 54 31 24 B2 22 4D 4D 4D 22 20 AF 20 53 |D. T1$."MMM" . S|
000013E0: 31 B3 49 54 20 A7 20 31 37 32 33 30 00 0B 1C 48 |1.IT . 17230...H|
000013F0: 44 8B 20 50 24 B2 22 43 43 43 22 20 AF 20 53 31 |D. P$."CCC" . S1|
00001400: B3 49 54 20 A7 20 31 37 31 34 30 00 1F 1C 52 44 |.IT . 17140...RD|
00001410: 8B 20 50 24 B2 22 22 20 A7 20 31 37 33 31 30 00 |. P$."" . 17310.|
00001420: 40 1C 5C 44 8B 20 50 24 B2 22 41 41 41 22 20 A7 |@.\D. P$."AAA" .|
00001430: 20 8D 20 31 36 30 30 30 3A 89 20 31 37 33 31 30 | . 16000:. 17310|
00001440: 00 53 1C 66 44 8B 20 50 24 B2 22 5A 5A 5A 22 20 |.S.fD. P$."ZZZ" |
00001450: A7 20 8E 00 82 1C 70 44 8B 20 C8 28 50 24 2C 31 |. ....pD. .(P$,1|
00001460: 29 B2 22 23 22 20 A7 20 53 31 B2 53 31 AA C5 28 |)."#" . S1.S1..(|
00001470: CA 28 50 24 2C 32 29 29 AB 31 3A 89 20 31 37 33 |.(P$,2)).1:. 173|
00001480: 31 30 00 96 1C 7A 44 53 31 B2 53 31 AB 31 3A 89 |10...zDS1.S1.1:.|
00001490: 20 31 37 33 31 30 00 BA 1C 50 46 8F 23 2A 2A 2A | 17310...PF.#***|
000014A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 1C 5A 46 8F |**********...ZF.|
000014C0: 20 54 45 4C 45 53 43 4F 50 45 20 46 49 4C 45 00 | TELESCOPE FILE.|
000014D0: F3 1C 64 46 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..dF.#**********|
000014E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014F0: 2A 2A 2A 00 1F 1D 6E 46 81 20 49 B2 53 31 20 A4 |***...nF. I.S1 .|
00001500: 20 49 54 AB 31 3A 41 24 28 49 29 B2 41 24 28 49 | IT.1:A$(I).A$(I|
00001510: AA 31 29 3A 82 3A 49 54 B2 49 54 AB 31 3A 8E 00 |.1):.:IT.IT.1:..|
00001520: 43 1D 38 4A 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |C.8J.#**********|
00001530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001540: 2A 2A 2A 00 59 1D 42 4A 8F 20 49 54 45 4D 20 54 |***.Y.BJ. ITEM T|
00001550: 59 50 45 20 4E 41 4D 45 53 00 7D 1D 4C 4A 8F 23 |YPE NAMES.}.LJ.#|
00001560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 91 1D |*************...|
00001580: 56 4A 81 20 49 B2 30 20 A4 20 34 39 20 A9 20 31 |VJ. I.0 . 49 . 1|
00001590: 30 00 B5 1D 60 4A 99 20 22 93 11 1D 1D 1D 1D 1D |0...`J. ".......|
000015A0: 1D 1D 1D 1D 1D 1D 1D 1D 12 1C 49 54 45 4D 20 4E |..........ITEM N|
000015B0: 41 4D 45 53 22 00 E1 1D 6A 4A 99 20 22 1E 22 3B |AMES"...jJ. ".";|
000015C0: 3A 81 20 4A B2 49 20 A4 20 49 AA 31 30 3A 99 20 |:. J.I . I.10:. |
000015D0: 4A AA 31 3B 22 29 22 3B 42 24 28 4A 29 3A 82 20 |J.1;")";B$(J):. |
000015E0: 4A 00 FF 1D 74 4A 99 20 22 11 1F 43 4F 4D 4D 41 |J...tJ. "..COMMA|
000015F0: 4E 44 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 |NDS AVAILABLE:".|
00001600: 14 1E 7E 4A 99 20 22 90 3E 27 5A 5A 5A 27 3D 51 |..~J. ".>'ZZZ'=Q|
00001610: 55 49 54 22 00 30 1E 88 4A 99 20 22 90 3E 27 49 |UIT".0..J. ".>'I|
00001620: 49 49 27 3D 49 54 45 4D 2F 44 45 4C 45 54 45 22 |II'=ITEM/DELETE"|
00001630: 00 4A 1E 92 4A 99 20 22 90 3E 27 4E 4E 4E 27 3D |.J..J. ".>'NNN'=|
00001640: 4E 45 58 54 20 50 41 47 45 22 00 7B 1E 9C 4A 85 |NEXT PAGE".{..J.|
00001650: 20 22 1F 57 48 49 43 48 20 44 4F 20 59 4F 55 20 | ".WHICH DO YOU |
00001660: 52 45 51 55 49 52 45 3A 22 3B 51 24 3A 8B 20 51 |REQUIRE:";Q$:. Q|
00001670: 24 B2 22 5A 5A 5A 22 20 A7 20 8E 00 92 1E A6 4A |$."ZZZ" . .....J|
00001680: 8B 20 51 24 B2 22 4E 4E 4E 22 20 A7 20 82 20 49 |. Q$."NNN" . . I|
00001690: 3A 8E 00 AC 1E B0 4A 8B 20 51 24 B3 B1 22 49 49 |:.....J. Q$.."II|
000016A0: 49 22 20 A7 20 89 20 31 39 30 30 30 00 C7 1E BA |I" . . 19000....|
000016B0: 4A 85 20 22 50 4F 53 49 54 49 4F 4E 20 4E 55 4D |J. "POSITION NUM|
000016C0: 42 45 52 3A 22 3B 51 00 F4 1E C4 4A 99 20 22 1E |BER:";Q....J. ".|
000016D0: 4E 41 4D 45 20 4F 46 20 54 59 50 45 20 4F 52 20 |NAME OF TYPE OR |
000016E0: 12 52 45 54 55 52 4E 92 20 54 4F 20 44 45 4C 45 |.RETURN. TO DELE|
000016F0: 54 45 3A 22 00 16 1F CE 4A 51 24 B2 22 22 3A 85 |TE:"....JQ$."":.|
00001700: 20 51 24 3A 42 24 28 51 AB 31 29 B2 51 24 3A 89 | Q$:B$(Q.1).Q$:.|
00001710: 20 31 39 30 34 30 00 3A 1F 20 4E 8F 23 2A 2A 2A | 19040.:. N.#***|
00001720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4B 1F 2A 4E 8F |**********.K.*N.|
00001740: 20 44 41 54 41 20 46 49 4C 45 53 00 6F 1F 34 4E | DATA FILES.o.4N|
00001750: 8F 23 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.#**************|
00001760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001770: A0 1F 3E 4E 99 20 22 11 1F 50 4F 53 49 54 49 4F |..>N. "..POSITIO|
00001780: 4E 20 54 41 50 45 20 43 4F 52 52 45 43 54 4C 59 |N TAPE CORRECTLY|
00001790: 2C 54 48 45 4E 20 12 45 4E 54 45 52 92 2D 2D 22 |,THEN .ENTER.--"|
000017A0: 00 D8 1F 48 4E 85 20 22 4D 4F 54 4F 52 20 57 49 |...HN. "MOTOR WI|
000017B0: 4C 4C 20 53 54 4F 50 20 41 55 54 4F 4D 41 54 49 |LL STOP AUTOMATI|
000017C0: 43 41 4C 4C 59 3A 22 3B 51 24 3A 97 31 39 32 2C |CALLY:";Q$:.192,|
000017D0: 37 3A 97 20 31 2C 33 39 00 1A 20 52 4E 99 20 22 |7:. 1,39.. RN. "|
000017E0: 11 1C 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 4C |..COMMANDS AVAIL|
000017F0: 41 42 4C 45 3A 22 3A 99 20 22 11 1E 20 31 29 53 |ABLE:":. ".. 1)S|
00001800: 41 56 45 20 44 41 54 41 22 3A 99 20 22 20 32 29 |AVE DATA":. " 2)|
00001810: 4C 4F 41 44 20 44 41 54 41 22 00 50 20 5C 4E 85 |LOAD DATA".P \N.|
00001820: 20 22 11 1F 57 48 49 43 48 20 44 4F 20 59 4F 55 | "..WHICH DO YOU|
00001830: 20 52 45 51 55 49 52 45 3A 22 3B 51 3A 91 20 51 | REQUIRE:";Q:. Q|
00001840: 20 89 20 32 30 30 37 30 2C 32 30 31 35 30 3A 8E | . 20070,20150:.|
00001850: 00 69 20 66 4E 97 20 31 2C 37 3A 81 20 49 B2 31 |.i fN. 1,7:. I.1|
00001860: 20 A4 20 32 30 30 30 3A 82 00 8A 20 70 4E 9F 20 | . 2000:... pN. |
00001870: 31 2C 38 2C 31 2C 22 40 3A 55 4E 49 46 49 4C 45 |1,8,1,"@:UNIFILE|
00001880: 20 49 49 22 3A 98 31 2C 49 54 00 A6 20 7A 4E 81 | II":.1,IT.. zN.|
00001890: 20 53 31 B2 30 20 A4 20 49 54 AB 31 3A 98 31 2C | S1.0 . IT.1:.1,|
000018A0: A5 41 28 53 31 29 00 C9 20 84 4E 81 20 49 B2 31 |.A(S1).. .N. I.1|
000018B0: 20 A4 20 A5 41 28 53 31 29 AB 31 3A 98 31 2C A5 | . .A(S1).1:.1,.|
000018C0: 42 28 53 31 29 3A 82 20 49 00 F0 20 8E 4E 98 31 |B(S1):. I.. .N.1|
000018D0: 2C C8 28 41 24 28 53 31 29 2C C3 28 41 24 28 53 |,.(A$(S1),.(A$(S|
000018E0: 31 29 29 AB A5 41 28 53 31 29 29 3A 82 20 53 31 |1))..A(S1)):. S1|
000018F0: 00 16 21 98 4E 81 20 49 B2 30 20 A4 20 34 39 3A |..!.N. I.0 . 49:|
00001900: 8B 20 42 24 28 49 29 B2 22 22 20 A7 20 42 24 28 |. B$(I)."" . B$(|
00001910: 49 29 B2 22 20 22 00 25 21 A2 4E 98 31 2C 42 24 |I)." ".%!.N.1,B$|
00001920: 28 49 29 3A 82 00 2E 21 AC 4E A0 31 3A 8E 00 4D |(I):...!.N.1:..M|
00001930: 21 B6 4E 9F 20 31 2C 38 2C 30 2C 22 55 4E 49 46 |!.N. 1,8,0,"UNIF|
00001940: 49 4C 45 20 49 49 22 3A 84 31 2C 49 54 00 65 21 |ILE II":.1,IT.e!|
00001950: C0 4E 81 20 53 31 B2 30 20 A4 20 49 54 AB 31 3A |.N. S1.0 . IT.1:|
00001960: 84 31 2C 4E 4E 00 A2 21 CA 4E 54 54 24 B2 22 22 |.1,NN..!.NTT$.""|
00001970: 3A 81 49 B2 31 A4 20 4E 4E AB 31 3A 84 31 2C 54 |:.I.1. NN.1:.1,T|
00001980: 54 3A 54 54 24 B2 54 54 24 AA C7 28 54 54 29 3A |T:TT$.TT$..(TT):|
00001990: 82 49 3A 54 54 24 B2 54 54 24 AA C7 28 4E 4E AB |.I:TT$.TT$..(NN.|
000019A0: 31 29 00 D4 21 D4 4E A1 23 31 2C 54 24 3A 8B 20 |1)..!.N.#1,T$:. |
000019B0: 54 24 B3 B1 C7 28 31 33 29 20 A7 20 41 24 28 53 |T$...(13) . A$(S|
000019C0: 31 29 B2 41 24 28 53 31 29 AA 54 24 3A 89 20 32 |1).A$(S1).T$:. 2|
000019D0: 30 31 38 30 00 EF 21 D9 4E 41 24 28 53 31 29 B2 |0180..!.NA$(S1).|
000019E0: 41 24 28 53 31 29 AA 54 54 24 3A 82 20 53 31 00 |A$(S1).TT$:. S1.|
000019F0: 09 22 DE 4E 81 20 49 B2 30 20 A4 20 34 39 3A 84 |.".N. I.0 . 49:.|
00001A00: 31 2C 42 24 28 49 29 3A 82 00 12 22 E8 4E A0 31 |1,B$(I):...".N.1|
00001A10: 3A 8E 00 36 22 08 52 8F 23 2A 2A 2A 2A 2A 2A 2A |:..6".R.#*******|
00001A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A30: 2A 2A 2A 2A 2A 2A 00 53 22 12 52 8F 20 46 55 4E |******.S".R. FUN|
00001A40: 43 54 49 4F 4E 41 4C 20 53 55 42 52 4F 55 54 49 |CTIONAL SUBROUTI|
00001A50: 4E 45 53 00 77 22 1C 52 8F 23 2A 2A 2A 2A 2A 2A |NES.w".R.#******|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A70: 2A 2A 2A 2A 2A 2A 2A 00 9A 22 26 52 53 53 24 B2 |*******.."&RSS$.|
00001A80: CA 28 41 24 28 53 32 29 2C 50 50 AA 31 2C A5 42 |.(A$(S2),PP.1,.B|
00001A90: 28 53 32 29 AB 50 50 29 3A 8E 00 D7 22 30 52 46 |(S2).PP):..."0RF|
00001AA0: 46 B2 30 3A 54 31 24 B2 C9 28 54 31 24 2C C3 28 |F.0:T1$..(T1$,.(|
00001AB0: 54 31 24 29 AB 33 29 3A 81 20 53 32 B2 20 53 31 |T1$).3):. S2. S1|
00001AC0: A4 20 49 54 AB 31 3A 81 20 4A B2 31 20 A4 20 C3 |. IT.1:. J.1 . .|
00001AD0: 28 41 24 28 49 29 29 00 15 23 3A 52 8B 20 CA 28 |(A$(I))..#:R. .(|
00001AE0: 41 24 28 53 32 29 2C 4A 2C C3 28 54 31 24 29 29 |A$(S2),J,.(T1$))|
00001AF0: B2 54 31 24 20 A7 20 46 46 B2 31 3A 53 31 B2 53 |.T1$ . FF.1:S1.S|
00001B00: 32 3A 4A B2 C3 28 41 24 28 53 32 29 29 3A 53 32 |2:J..(A$(S2)):S2|
00001B10: B2 49 54 AB 31 00 22 23 44 52 82 20 4A 2C 53 32 |.IT.1."#DR. J,S2|
00001B20: 3A 8E 00 58 23 4E 52 46 46 B2 30 3A 81 20 53 32 |:..X#NRFF.0:. S2|
00001B30: B2 53 31 20 A4 20 49 54 AB 31 3A 50 50 B2 30 3A |.S1 . IT.1:PP.0:|
00001B40: 81 20 49 B2 31 20 A4 20 A5 41 28 53 32 29 AB 31 |. I.1 . .A(S2).1|
00001B50: 3A 8D 20 32 31 30 33 30 00 8E 23 58 52 8B 20 53 |:. 21030..#XR. S|
00001B60: 53 24 B2 54 31 24 20 A7 20 46 46 B2 31 3A 53 31 |S$.T1$ . FF.1:S1|
00001B70: B2 53 32 3A 49 B2 A5 41 28 53 32 29 AB 31 3A 53 |.S2:I..A(S2).1:S|
00001B80: 32 B2 49 54 AB 31 3A 89 20 32 31 31 32 30 00 A5 |2.IT.1:. 21120..|
00001B90: 23 62 52 8B 20 C3 28 53 53 24 29 B3 34 20 A7 20 |#bR. .(SS$).4 . |
00001BA0: 32 31 31 31 30 00 DF 23 6C 52 8B 20 CA 28 53 53 |21110..#lR. .(SS|
00001BB0: 24 2C C3 28 53 53 24 29 AB 32 2C 31 29 B2 22 5E |$,.(SS$).2,1)."^|
00001BC0: 22 20 A7 20 53 53 24 B2 C8 28 53 53 24 2C C3 28 |" . SS$..(SS$,.(|
00001BD0: 53 53 24 29 AB 33 29 3A 89 20 32 31 30 38 30 00 |SS$).3):. 21080.|
00001BE0: ED 23 76 52 50 50 B2 A5 42 28 53 32 29 00 FA 23 |.#vRPP..B(S2)..#|
00001BF0: 80 52 82 20 49 2C 53 32 3A 8E 00 00 00 00 A5 49 |.R. I,S2:......I|
..&..*.#******************************.1
..+. MENY.V..+.#************************
******.N..+. 53280,3:. 53281,3....+. "..
.
".V..+. "... UNIFILE II
"....+. "...
".(. +."...COMM
ANDS AVAILABLE:".I.*+."... 1)ENTER INF
ORMATION".L.4+.". 2)SEARCH/DISPLAY/CHA
NGE"...>+.". 3)NEW TYPE NAMES". .H+.".
4)DATA FILES"...R+.". 5)SET UP NEW
FILES".P.\+.". 6)STOP"...F+. "..WHICH
DO YOU REQUIRE:";Z:. ".";...P+. Z.4 . IN
.1 . 11150.Q.Z+. "...................NOT
INITIALISED YET.":. I.1 . 1000:..]..+.
11000....+. Z . 13000,17000,19000,20000,
12000,11160:. 11000.F..+. ".............
.......FILING SYSTEM CLOSED":.......#***
**************************...... STRUCTU
RE OF FILE.&....#***********************
******.J....:. A$(499),B$(49),TI%(49):IN
.1.H../. .A(S1).F(I(A$(S1),1)).1..../. .
B(S1).F(I(A$(S1),.A(S1).I.1))..../. 1100
0...H2.#*****************************.V.
R2. ENTRY OF NEW ITEMS....2.#***********
******************.A..2T1$."":NN..1:TN.0
:. ".... NEW ITEMS
".V..2. ".......................
..";IT;" ITEMS SO FAR"....2."..COMMANDS
AVAILABLE:"....3."..>ENTER ITEM TO BE IN
PUT"....3. ".>ENTER '*' TO TERMINATE THI
S RECORD"....3. ".>ENTER '^NN' FOR ITEM
TYPE".1."3. ".>INPUT 'ZZZ' THEN RETURN T
O MENU..".D.'3."........................
.................":..|.,3. Q$:. Q$."ZZZ"
. ....63. Q$."^" . ....@3. H(Q$,1).."^"
. 13150.C.J3TN.E(J(Q$,2)):TN.TN.10...T3
.".";B$(TN.11);":";:.13100...^3. TN..0 .
Q$.Q$."^".J(D(TN),2):TN.0./.H3. C(T1$).
C(Q$).NN.2..255 . 13180.Z.R3. ".ENTRY TO
O LONG.":. J.1 .3000:. J:..Q.|3. Q$."*"
. . 13200....3T1$.T1$.Q$:TI%(NN.1).C(T1$
):NN.NN.1:. 13100.T..3. I.0 . NN:T1$.T1$
.G(TI%(I)):.:T1$.T1$.G(NN.1)....3. "..WA
IT":.14000:. 15000:. 13000....6.#*******
**********************.2..6. BINARY SEAR
CH.V.D6.#*****************************.J
.N6. IT.0 . SS.0:....X6PO..(.(IT)..(2)):
SS.2.PO.1....6. I.PO . 0 ..1....6. A$(SS
).T1$ . SS.SS.2.I.V..6. A$(SS).T1$ . SS.
SS.2.I....7. SS.0 . SS.0....7. SS.IT.1 .
SS.IT.1....7. I:. A$(SS).T1$ . SS.SS.1.
%..7..I..:.#****************************
*.V..:. INSERT.Z..:.#*******************
**********....:. IT.0 . . 15050....:. I.
IT . SS.1 . .1:A$(I).A$(I.1):..O.J:A$(SS
).T1$:IT.IT.1:.....>.#******************
***********....>. CHANGE ENTRY.*..>.#***
**************************.H..>S1.S1.1:T
1$."":NN..1:TN.0.H..>PP.0:S2.S1:. I.1 .
.A(S1).1....>."..ENTRY ";S1.1;":-"....>.
21030:. C(SS$).4 . 16090.F.F>. J(SS$,C(
SS$).2,1).."^" . 16090...P>. B$(E(I(SS$,
2)).11);":";H(SS$,C(SS$).3):. 16100...Z>
. SS$.'..>.".......COMMANDS AVAILABLE:".
R..>. " .>..RETURN. LEAVES ITEM UNCHANGE
D".W..>. " .>.NEW ITEM ENDING WITH '*'".
...?. " .>.REPLACEMENT OF ITEM DISPLAYED
".I..?. " .>.'ZZZ' QUITS WITHOUT CHANGES
"....?. " .>.'DDD' DELETES THE WHOLE ENT
RY".". ?. " .>.'RRR' REMOVES THE ITEM FR
OM ENTRY ".J.*?Q$."":. ".WHICH DO YOU RE
QUIRE:";Q$.].4?. Q$."ZZZ" . ..V.>?. Q$."
RRR" . . 16300...H?. Q$."DDD" . . 18000:
....R?. C(T1$).C(Q$).NN.2.255 . . 16230.
..\?. ".ENTRY TOO LONG":. J.1 . 3000:.:.
...F?EX.0:. I(Q$,1)."*" . EX.1:Q$.H(Q$,C
(Q$).1).J.P?. Q$."" . T1$.T1$.SS$:TI%(NN
.1).C(T1$):NN.NN.1:. 16300.E.Z?. H(Q$,1)
.."^" . 16280....?TN.E(J(Q$,2)).10:. B$(
TN.11);":";:Q$."":. Q$....?Q$.Q$."^".J(D
(TN),2).W..?T1$.T1$.Q$:TI%(NN.1).C(T1$):
NN.NN.1....?. EX.1 . 16050....?PP..B(S1)
:. I./..?. I.0 . NN:T1$.T1$.G(TI%(I)):.:
T1$.T1$.G(NN.1).X..?. "..WAIT":. 18000:.
14000:. 15000:..|.HB.#*****************
************...RB. SEARCH...|B.#********
*********************.X..BS1.0:FF.0:. ".
.................SEARCH"....B. "..COMMAN
DS AVAILABLE:"....B. ". .INPUT ITEM FOR
NORMAL SEARCH".P..B. " .>PRECEDE WITH '
III' FOR INITIAL SEARCH"....B. " .>PREC
EDE WITH 'SSS' FOR SPECIAL SEARCH"....B.
" .>.ENTER. FOR FIRST ITEM ON FILE".S.
BB. " .>'MMM' FOR MULTIPLE SEARCH"...LB
. ".....................................
.......".C.VBT1$."":. ".SEARCH COMMAND:"
;T1$:. H(T1$,1).."^". 17130.C..B. TN.E(J
(T1$,2)).10:. 17110....B. TN..0 . . T1$.
T1$."^".J(D(TN),2):TN.0....B. H(T1$,3)..
"III" . 17170....BT1$.I(T1$,C(T1$).3):.
14000:S1.SS:. S1.IT.1 . .....CT1$."III".
T1$:. 17310....C. H(T1$,3).."SSS" . 1720
0.D..C. 21040:. FF.1 . T1$."SSS".T1$:. 1
7310.J.&C..H.0C. H(T1$,3).."MMM" . 17270
...:C.Z$:. "..NUMBER OF ITEMS TO SEARCH
FOR:";NN.J.DC. K.0 . NN.1:. "SEARCH ITEM
";K.1;:. M$(K):. K...NC. K.0 . NN.1:T1$.
M$(K):S3.S1:.21070:. FF.0 . ....XC. S3..
S1 . 17230...BC. K.2.LC. T1$."MMM":. 173
10.G.VC. T1$."" . 17310.S..C. 21070.F..C
. FF.1 . 17310.L..C.....C. S1.IT.1 . S1.
IT.1....C. IT.0 . .....C. S1.0 . S1.0...
.C. "...ENTRY ";S1.1;":-.":PP.0:S2.S1:.
I.1 . .A(S1).1...AC. I.12..(I.12) . . ".
MORE";TT$. .FC. 21030:. C(SS$).4 . 17380
.C.PC. J(I(SS$,3),1,1).."^" . 17380.U.ZC
. B$(E(I(SS$,2)).11);":";:SS$.H(SS$,C(SS
$).3)...C. SS$....CPP..B(S1):. I:S1.S1.
1.J..C. "...............................
........."....C. "...SEARCH. .COMMANDS A
VAILABLE:"....D. ". .>.ENTER. FOR NEXT I
TEM"....D. " .>'AAA' TO AMEND'.R..D. " .
>'CCC' TO CONTINUE SEARCH"... D. " .>'#'
FOLLOWED BY NO. TO MOVE POINTER"...*D.
" .>'ZZZ' TO QUIT FUNCTION'.L.4DP$."":.
"..WHICH DO YOU REQUIRE:";P$...>D. T1$."
MMM" . S1.IT . 17230...HD. P$."CCC" . S1
.IT . 17140...RD. P$."" . 17310.@.\D. P$
."AAA" . . 16000:. 17310.S.FD. P$."ZZZ"
. ....PD. H(P$,1)."#" . S1.S1.E(J(P$,2))
.1:. 17310...ZDS1.S1.1:. 17310...PF.#***
**************************.O.ZF. TELESCO
PE FILE...DF.#**************************
***...NF. I.S1 . IT.1:A$(I).A$(I.1):.:IT
.IT.1:..C.8J.#**************************
***.Y.BJ. ITEM TYPE NAMES.}.LJ.#********
*********************...VJ. I.0 . 49 . 1
0...`J. ".................ITEM NAMES"...
JJ. ".";:. J.I . I.10:. J.1;")";B$(J):.
J...TJ. "..COMMANDS AVAILABLE:"...~J. ".
>'ZZZ'=QUIT".0..J. ".>'III'=ITEM/DELETE"
.J..J. ".>'NNN'=NEXT PAGE".{..J. ".WHICH
DO YOU REQUIRE:";Q$:. Q$."ZZZ" . .....J
. Q$."NNN" . . I:.....J. Q$.."III" . . 1
9000.G..J. "POSITION NUMBER:";Q...DJ. ".
NAME OF TYPE OR .RETURN. TO DELETE:"...N
JQ$."":. Q$:B$(Q.1).Q$:. 19040.:. N.#***
**************************.K.*N. DATA FI
LES.O.4N.#*****************************.
.>N. "..POSITION TAPE CORRECTLY,THEN .E
NTER.--".X.HN. "MOTOR WILL STOP AUTOMATI
CALLY:";Q$:.192,7:. 1,39.. RN. "..COMMAN
DS AVAILABLE:":. ".. 1)SAVE DATA":. " 2)
LOAD DATA".P \N. "..WHICH DO YOU REQUIRE
:";Q:. Q . 20070,20150:..I FN. 1,7:. I.1
. 2000:... PN. 1,8,1,"@:UNIFILE II":.1,
IT.. ZN. S1.0 . IT.1:.1,.A(S1).I .N. I.1
. .A(S1).1:.1,.B(S1):. I.. .N.1,H(A$(S1
),C(A$(S1))..A(S1)):. S1..!.N. I.0 . 49:
. B$(I)."" . B$(I)." ".%!.N.1,B$(I):...!
.N 1:..M!.N. 1,8,0,"UNIFILE II":.1,IT.E!
.N. S1.0 . IT.1:.1,NN..!JNTT$."":.I.1. N
N.1:.1,TT:TT$.TT$.G(TT):.I:TT$.TT$.G(NN.
1).T!TN.#1,T$:. T$..G(13) . A$(S1).A$(S1
).T$:. 20180..!YNA$(S1).A$(S1).TT$:. S1.
.".N. I.0 . 49:.1,B$(I):...".N 1:..6".R.
#*****************************.S".R. FUN
CTIONAL SUBROUTINES.W".R.#**************
***************.."&RSS$.J(A$(S2),PP.1,.B
(S2).PP):..W"0RFF.0:T1$.I(T1$,C(T1$).3):
. S2. S1. IT.1:. J.1 . C(A$(I))..#:R. J(
A$(S2),J,C(T1$)).T1$ . FF.1:S1.S2:J.C(A$
(S2)):S2.IT.1."#DR. J,S2:..X#NRFF.0:. S2
.S1 . IT.1:PP.0:. I.1 . .A(S2).1:. 21030
..#XR. SS$.T1$ . FF.1:S1.S2:I..A(S2).1:S
2.IT.1:. 21120..#BR. C(SS$).4 . 21110..#
LR. J(SS$,C(SS$).2,1)."^" . SS$.H(SS$,C(
SS$).3):. 21080..#VRPP..B(S2)..#.R. I,S2
:......I
> CLICK IMAGE PREVIEW FOR FULL MODAL