UNI FILE
FILE INFORMATION
FILENAME(S): UNI FILE
FILE TYPE(S): DEL
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 21:11:33
APPEARS ON: 1 disk(s)
FILE HASH
cb0bc78c01da04452c12b8869d154d018ed535462ae86f867af1ac4f4ad3fecf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ADMIN PROGR | UNI FILE | DEL | DuncanTwain | 26 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 15 04 F8 2A 8F 2A 2A 2A 2A 2A 4D 45 4E 55 |.....*.*****MENU|
00000010: 2A 2A 2A 2A 2A 00 38 04 16 2B 99 22 93 11 1D 1D |*****.8..+."....|
00000020: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 90 55 |...............U|
00000030: 4E 49 46 49 4C 45 92 22 00 56 04 20 2B 99 22 11 |NIFILE.".V. +.".|
00000040: 11 1F 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 4C |..COMMANDS AVAIL|
00000050: 41 42 4C 45 3A 22 00 78 04 2A 2B 99 22 11 11 1C |ABLE:".x.*+."...|
00000060: 20 20 20 20 31 29 45 4E 54 45 52 20 49 4E 46 4F | 1)ENTER INFO|
00000070: 52 4D 41 54 49 4F 4E 22 00 9C 04 34 2B 99 22 11 |RMATION"...4+.".|
00000080: 20 20 20 20 32 29 53 45 41 52 43 48 2F 44 49 53 | 2)SEARCH/DIS|
00000090: 50 4C 41 59 2F 43 48 41 4E 47 45 22 00 B9 04 3E |PLAY/CHANGE"...>|
000000A0: 2B 99 22 11 20 20 20 20 33 29 4E 45 57 20 54 59 |+.". 3)NEW TY|
000000B0: 50 45 20 4E 41 4D 45 53 22 00 D2 04 48 2B 99 22 |PE NAMES"...H+."|
000000C0: 11 20 20 20 20 34 29 44 41 54 41 20 46 49 4C 45 |. 4)DATA FILE|
000000D0: 53 22 00 F0 04 52 2B 99 22 11 20 20 20 20 35 29 |S"...R+.". 5)|
000000E0: 53 45 54 20 55 50 20 4E 45 57 20 46 49 4C 45 22 |SET UP NEW FILE"|
000000F0: 00 03 05 5C 2B 99 22 11 20 20 20 20 36 29 53 54 |...\+.". 6)ST|
00000100: 4F 50 22 00 2A 05 66 2B 85 20 22 11 1F 57 49 43 |OP".*.f+. "..WIC|
00000110: 48 20 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 |H DO YOU REQUIRE|
00000120: 3A 22 3B 5A 3A 99 22 93 22 3B 00 43 05 70 2B 8B |:";Z:.".";.C.p+.|
00000130: 20 5A B1 34 20 B0 20 49 4E B2 31 20 A7 20 31 31 | Z.4 . IN.1 . 11|
00000140: 31 35 30 00 82 05 7A 2B 99 22 93 11 11 11 11 11 |150...z+."......|
00000150: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4E 4F |..............NO|
00000160: 54 20 49 4E 49 54 49 41 4C 49 53 45 44 20 59 45 |T INITIALISED YE|
00000170: 54 2E 22 3A 81 20 49 B2 31 20 A4 20 31 30 30 30 |T.":. I.1 . 1000|
00000180: 3A 82 00 8D 05 84 2B 89 31 31 30 30 30 00 C8 05 |:.....+.11000...|
00000190: 8E 2B 91 20 5A 20 8D 20 31 33 30 30 30 2C 31 37 |.+. Z . 13000,17|
000001A0: 30 30 30 2C 31 39 30 30 30 2C 32 30 30 30 30 20 |000,19000,20000 |
000001B0: 20 20 20 20 20 2C 31 32 30 30 30 2C 31 31 31 36 | ,12000,1116|
000001C0: 30 3A 89 31 31 30 30 30 00 FD 05 98 2B 99 22 11 |0:.11000....+.".|
000001D0: 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
000001E0: 1D 1E 1C 1F 12 90 46 49 4C 49 4E 47 20 53 59 53 |......FILING SYS|
000001F0: 54 45 4D 20 43 4C 4F 53 45 44 22 3A 80 00 20 06 |TEM CLOSED":.. .|
00000200: E0 2E 8F 20 2A 2A 2A 2A 2A 2A 20 49 4E 49 54 49 |... ****** INITI|
00000210: 41 4C 49 53 45 20 46 49 4C 45 2A 2A 2A 2A 2A 2A |ALISE FILE******|
00000220: 00 43 06 EA 2E 8F 20 2A 2A 2A 2A 2A 2A 20 49 4E |.C.... ****** IN|
00000230: 49 54 49 41 4C 49 53 45 20 46 49 4C 45 2A 2A 2A |ITIALISE FILE***|
00000240: 2A 2A 2A 00 68 06 FE 2E 9C 20 3A 86 20 41 24 28 |***.h.... :. A$(|
00000250: 34 39 39 29 2C 42 24 28 34 39 29 2C 54 49 25 28 |499),B$(49),TI%(|
00000260: 34 39 29 3A 49 4E B2 31 00 86 06 08 2F 96 20 A5 |49):IN.1..../. .|
00000270: 41 28 53 31 29 B2 C6 28 C9 28 41 24 28 53 31 29 |A(S1)..(.(A$(S1)|
00000280: 2C 31 29 29 AA 31 00 AB 06 12 2F 96 20 A5 42 28 |,1)).1..../. .B(|
00000290: 53 31 29 B2 C6 28 C9 28 41 24 28 53 31 29 2C A5 |S1)..(.(A$(S1),.|
000002A0: 41 28 53 31 29 AB 49 AA 31 29 29 00 B6 06 1C 2F |A(S1).I.1))..../|
000002B0: 89 31 31 30 30 30 00 D9 06 C8 32 8F 2A 2A 2A 2A |.11000....2.****|
000002C0: 45 4E 54 52 59 20 4F 46 20 4E 45 57 20 49 54 45 |ENTRY OF NEW ITE|
000002D0: 4D 53 2A 2A 2A 2A 2A 2A 2A 00 0F 07 E6 32 54 31 |MS*******....2T1|
000002E0: 24 B2 22 22 3A 4E 4E B2 AB 31 3A 54 4E B2 30 3A |$."":NN..1:TN.0:|
000002F0: 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000300: 1D 1D 1D 12 1C 4E 45 57 20 49 54 45 4D 53 22 00 |.....NEW ITEMS".|
00000310: 42 07 F0 32 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |B..2."..........|
00000320: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1E 22 |..............."|
00000330: 3B 49 54 3B 22 49 54 45 4D 53 20 53 4F 20 46 41 |;IT;"ITEMS SO FA|
00000340: 52 22 00 5F 07 FA 32 99 22 11 1F 43 4F 4D 4D 41 |R"._..2."..COMMA|
00000350: 4E 44 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 |NDS AVAILABLE:".|
00000360: 81 07 04 33 99 22 11 90 3E 9C 45 4E 54 45 52 20 |...3."..>.ENTER |
00000370: 49 54 45 4D 20 54 4F 20 42 45 20 49 4E 50 55 54 |ITEM TO BE INPUT|
00000380: 22 00 AE 07 0E 33 99 22 90 3E 9C 45 4E 54 45 52 |"....3.".>.ENTER|
00000390: 20 27 2A 27 20 54 4F 20 54 45 52 4D 49 4E 41 54 | '*' TO TERMINAT|
000003A0: 45 20 54 48 49 53 20 52 45 43 4F 52 44 22 00 D2 |E THIS RECORD"..|
000003B0: 07 18 33 99 22 90 3E 9C 45 4E 54 45 52 20 27 5E |..3.".>.ENTER '^|
000003C0: 4E 4E 27 20 46 4F 52 20 49 54 45 4D 20 54 59 50 |NN' FOR ITEM TYP|
000003D0: 45 22 00 FC 07 22 33 99 22 90 3E 9C 49 4E 50 55 |E"..."3.".>.INPU|
000003E0: 54 20 27 5A 5A 5A 27 20 54 4F 20 52 45 54 55 52 |T 'ZZZ' TO RETUR|
000003F0: 4E 20 54 4F 20 4D 45 4E 55 1E 11 22 00 14 08 2C |N TO MENU.."...,|
00000400: 33 85 20 51 24 3A 8B 20 51 24 B2 22 5A 5A 5A 22 |3. Q$:. Q$."ZZZ"|
00000410: 20 A7 20 8E 00 27 08 36 33 8B 20 51 24 B2 22 5A | . ..'.63. Q$."Z|
00000420: 5A 5A 22 20 A7 20 8E 00 41 08 40 33 8B 20 C8 28 |ZZ" . ..A.@3. .(|
00000430: 51 24 2C 31 29 B3 B1 22 5E 22 20 A7 31 33 31 35 |Q$,1).."^" .1315|
00000440: 30 00 5C 08 4A 33 54 4E B2 C5 28 CA 28 51 24 2C |0.\.J3TN..(.(Q$,|
00000450: 32 29 29 3A 54 4E B2 54 4E AA 31 30 00 7B 08 54 |2)):TN.TN.10.{.T|
00000460: 33 99 22 91 22 3B 42 24 28 54 4E AB 31 31 29 3B |3.".";B$(TN.11);|
00000470: 22 3A 22 3B 3A 89 31 33 31 30 30 00 A2 08 5E 33 |":";:.13100...^3|
00000480: 8B 20 54 4E B3 B1 30 A7 20 51 24 B2 51 24 AA 22 |. TN..0. Q$.Q$."|
00000490: 5E 22 AA CA 28 C4 28 54 4E 29 2C 32 29 3A 54 4E |^"..(.(TN),2):TN|
000004A0: B2 30 00 C6 08 68 33 8B 20 C3 28 54 31 24 29 AA |.0...h3. .(T1$).|
000004B0: C3 28 51 24 29 AA 4E 4E AA 32 B3 B2 32 35 35 20 |.(Q$).NN.2..255 |
000004C0: A7 31 33 31 38 30 00 F0 08 72 33 99 22 1C 45 4E |.13180...r3.".EN|
000004D0: 54 52 59 20 54 4F 4F 20 4C 4F 4E 47 2E 22 3A 81 |TRY TOO LONG.":.|
000004E0: 20 4A B2 31 20 A4 33 30 30 30 3A 82 20 4A 3A 8E | J.1 .3000:. J:.|
000004F0: 00 07 09 7C 33 8B 20 51 24 B2 22 2A 22 20 A7 20 |...|3. Q$."*" . |
00000500: 89 20 31 33 32 30 30 00 3D 09 86 33 54 31 24 B2 |. 13200.=..3T1$.|
00000510: 54 31 24 AA 51 24 3A 54 49 25 28 4E 4E AA 31 29 |T1$.Q$:TI%(NN.1)|
00000520: B2 C3 28 54 31 24 29 3A 4E 4E B2 4E 20 20 20 20 |..(T1$):NN.N |
00000530: 20 20 4E AA 31 3A 89 20 31 33 30 30 30 00 75 09 | N.1:. 13000.u.|
00000540: 90 33 81 49 B2 30 20 A4 20 4E 4E 3A 54 31 24 B2 |.3.I.0 . NN:T1$.|
00000550: 54 31 24 AA C7 28 54 49 25 28 49 29 29 3A 20 20 |T1$..(TI%(I)): |
00000560: 20 20 20 20 82 3A 54 31 24 B2 54 31 24 AA C7 28 | .:T1$.T1$..(|
00000570: 4E 4E AA 31 29 00 9E 09 9A 33 99 22 11 90 57 41 |NN.1)....3."..WA|
00000580: 49 54 22 3A 8D 31 34 30 30 30 2C 8D 31 35 30 30 |IT":.14000,.1500|
00000590: 20 20 20 20 20 20 30 3A 89 31 33 30 30 30 00 BD | 0:.13000..|
000005A0: 09 B0 36 8F 20 2A 2A 2A 2A 2A 42 49 4E 41 52 59 |..6. *****BINARY|
000005B0: 20 53 45 41 52 43 48 2A 2A 2A 2A 2A 2A 00 D1 09 | SEARCH******...|
000005C0: CE 36 8B 20 49 54 B2 30 20 A7 20 53 53 B2 30 3A |.6. IT.0 . SS.0:|
000005D0: 8E 00 F0 09 D8 36 50 4F B2 B5 28 BC 28 49 54 29 |.....6PO..(.(IT)|
000005E0: AD BC 28 32 29 29 3A 53 53 B2 32 AE 50 4F AB 31 |..(2)):SS.2.PO.1|
000005F0: 00 03 0A E2 36 81 20 49 B2 50 4F 20 A4 20 30 20 |....6. I.PO . 0 |
00000600: A9 AB 31 00 1F 0A EC 36 8B 20 41 24 28 53 53 29 |..1....6. A$(SS)|
00000610: B3 54 31 24 20 A7 53 53 B2 53 53 AA 32 AE 49 00 |.T1$ .SS.SS.2.I.|
00000620: 3B 0A F6 36 8B 20 41 24 28 53 53 29 B1 54 31 24 |;..6. A$(SS).T1$|
00000630: 20 A7 53 53 B2 53 53 AB 32 AE 49 00 4D 0A 00 37 | .SS.SS.2.I.M..7|
00000640: 8B 20 53 53 B3 30 20 A7 20 53 53 B2 30 00 65 0A |. SS.0 . SS.0.e.|
00000650: 0A 37 8B 20 53 53 B1 49 54 AB 31 20 A7 20 53 53 |.7. SS.IT.1 . SS|
00000660: B2 49 54 AB 31 00 84 0A 14 37 82 20 49 3A 8B 20 |.IT.1....7. I:. |
00000670: 41 24 28 53 53 29 B3 54 31 24 20 A7 20 53 53 B2 |A$(SS).T1$ . SS.|
00000680: 53 53 AA 31 00 8A 0A 1E 37 8E 00 A2 0A 98 3A 8F |SS.1....7.....:.|
00000690: 2A 2A 2A 2A 49 4E 53 45 52 54 2A 2A 2A 2A 2A 2A |****INSERT******|
000006A0: 2A 2A 00 B6 0A B6 3A 8B 20 49 54 B2 30 20 A7 20 |**....:. IT.0 . |
000006B0: 89 31 35 30 35 30 00 DD 0A C0 3A 81 20 49 B2 49 |.15050....:. I.I|
000006C0: 54 20 A4 20 53 53 AA 31 20 A9 20 AB 31 3A 41 24 |T . SS.1 . .1:A$|
000006D0: 28 49 29 B2 41 24 28 49 AB 31 29 3A 82 00 F6 0A |(I).A$(I.1):....|
000006E0: CA 3A 41 24 28 53 53 29 B2 54 31 24 3A 49 54 B2 |.:A$(SS).T1$:IT.|
000006F0: 49 54 AA 31 3A 8E 00 14 0B 80 3E 8F 20 2A 2A 2A |IT.1:.....>. ***|
00000700: 2A 2A 43 48 41 4E 47 45 20 45 4E 54 52 49 45 53 |**CHANGE ENTRIES|
00000710: 2A 2A 2A 2A 00 32 0B 9E 3E 53 31 B2 53 31 AB 31 |****.2..>S1.S1.1|
00000720: 3A 54 31 24 B2 22 22 3A 4E 4E B2 AB 31 3A 54 4E |:T1$."":NN..1:TN|
00000730: B2 30 00 52 0B A8 3E 50 50 B2 30 3A 53 32 B2 53 |.0.R..>PP.0:S2.S|
00000740: 31 3A 81 20 49 B2 31 20 A4 20 A5 41 28 53 31 29 |1:. I.1 . .A(S1)|
00000750: AB 31 00 6B 0B B2 3E 99 22 93 11 45 4E 54 52 59 |.1.k..>."..ENTRY|
00000760: 22 3B 53 31 AA 31 3B 22 3A 2D 22 00 8A 0B BC 3E |";S1.1;":-"....>|
00000770: 8D 20 32 31 30 33 30 3A 8B 20 C3 28 53 53 24 29 |. 21030:. .(SS$)|
00000780: B3 34 20 A7 20 31 36 30 39 30 00 AF 0B C6 3E 8B |.4 . 16090....>.|
00000790: 20 CA 28 53 53 24 2C C3 28 53 53 24 29 AB 32 2C | .(SS$,.(SS$).2,|
000007A0: 31 29 B3 B1 22 5E 22 20 A7 20 31 36 30 39 30 00 |1).."^" . 16090.|
000007B0: E3 0B D0 3E 99 20 42 24 28 C5 28 C9 28 53 53 24 |...>. B$(.(.(SS$|
000007C0: 2C 32 29 29 AB 31 31 29 3B 22 3A 22 3B C8 28 53 |,2)).11);":";.(S|
000007D0: 53 24 2C C3 28 53 53 24 29 AB 33 29 3A 89 31 36 |S$,.(SS$).3):.16|
000007E0: 31 30 30 00 EC 0B DA 3E 99 53 53 24 00 0E 0C E4 |100....>.SS$....|
000007F0: 3E 99 22 1F 11 11 11 11 11 11 43 4F 4D 4D 41 4E |>.".......COMMAN|
00000800: 44 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 37 |DS AVAILABLE:".7|
00000810: 0C EE 3E 99 22 20 90 3E 1E 12 52 45 54 55 52 4E |..>." .>..RETURN|
00000820: 92 4C 45 41 56 45 53 20 49 54 45 4D 20 55 4E 43 |.LEAVES ITEM UNC|
00000830: 48 41 4E 47 45 44 22 00 5A 0C F8 3E 99 22 20 90 |HANGED".Z..>." .|
00000840: 3E 1E 4E 45 57 20 49 54 45 4D 20 45 4E 44 49 4E |>.NEW ITEM ENDIN|
00000850: 47 20 57 49 54 48 27 2A 27 22 00 83 0C 02 3F 99 |G WITH'*'"....?.|
00000860: 22 20 90 3E 1E 52 45 50 4C 41 43 45 4D 45 4E 54 |" .>.REPLACEMENT|
00000870: 20 4F 46 20 49 54 45 4D 20 44 49 53 50 4C 41 59 | OF ITEM DISPLAY|
00000880: 45 44 22 00 AA 0C 0C 3F 99 22 20 90 3E 1E 27 5A |ED"....?." .>.'Z|
00000890: 5A 5A 27 20 51 55 49 54 53 20 57 49 54 48 4F 55 |ZZ' QUITS WITHOU|
000008A0: 54 20 43 48 41 4E 47 45 53 22 00 D3 0C 16 3F 99 |T CHANGES"....?.|
000008B0: 22 20 90 3E 1E 27 44 44 44 27 20 44 45 4C 45 54 |" .>.'DDD' DELET|
000008C0: 45 53 20 54 48 45 20 57 48 4F 4C 45 20 45 4E 54 |ES THE WHOLE ENT|
000008D0: 52 59 22 00 01 0D 20 3F 99 22 20 90 3E 1E 27 52 |RY"... ?." .>.'R|
000008E0: 52 52 27 20 52 45 4D 4F 56 45 53 20 54 48 49 53 |RR' REMOVES THIS|
000008F0: 20 49 54 45 4D 20 46 52 4F 4D 20 45 4E 54 52 59 | ITEM FROM ENTRY|
00000900: 22 00 28 0D 2A 3F 51 24 B2 22 22 3A 85 20 22 1C |".(.*?Q$."":. ".|
00000910: 57 49 43 48 20 44 4F 20 59 4F 55 20 52 45 51 55 |WICH DO YOU REQU|
00000920: 49 52 45 3A 22 3B 51 24 00 3B 0D 34 3F 8B 20 51 |IRE:";Q$.;.4?. Q|
00000930: 24 B2 22 5A 5A 5A 22 20 A7 20 8E 00 54 0D 3E 3F |$."ZZZ" . ..T.>?|
00000940: 8B 20 51 24 B2 22 52 52 52 22 20 A7 20 89 20 31 |. Q$."RRR" . . 1|
00000950: 36 33 30 30 00 6F 0D 48 3F 8B 20 51 24 B2 22 44 |6300.o.H?. Q$."D|
00000960: 44 44 22 20 A7 20 8D 20 31 38 30 30 30 3A 8E 00 |DD" . . 18000:..|
00000970: 95 0D 52 3F 8B 20 C3 28 54 31 24 29 AA C3 28 51 |..R?. .(T1$)..(Q|
00000980: 24 29 AA 4E 4E AA 32 B3 32 35 35 20 A7 20 89 20 |$).NN.2.255 . . |
00000990: 31 36 32 33 30 00 BB 0D 5C 3F 99 22 1C 45 4E 54 |16230...\?.".ENT|
000009A0: 52 59 20 54 4F 4F 20 4C 4F 4E 47 22 3A 81 20 4A |RY TOO LONG":. J|
000009B0: B2 31 A4 33 30 30 30 3A 82 3A 8E 00 EA 0D 66 3F |.1.3000:.:....f?|
000009C0: 45 58 B2 30 3A 8B 20 C9 28 51 24 2C 31 29 B2 22 |EX.0:. .(Q$,1)."|
000009D0: 2A 22 20 A7 20 45 58 B2 31 3A 51 24 B2 C8 28 51 |*" . EX.1:Q$..(Q|
000009E0: 24 2C C3 28 51 24 29 AB 31 29 00 24 0E 70 3F 8B |$,.(Q$).1).$.p?.|
000009F0: 20 51 24 B2 22 22 A7 20 54 31 24 B2 54 31 24 AA | Q$."". T1$.T1$.|
00000A00: 53 53 24 3A 54 49 25 28 4E 4E AA 31 29 B2 C3 28 |SS$:TI%(NN.1)..(|
00000A10: 54 31 24 29 3A 4E 4E B2 4E 4E AA 31 3A 89 20 31 |T1$):NN.NN.1:. 1|
00000A20: 36 33 30 30 00 3F 0E 7A 3F 8B 20 C8 28 51 24 2C |6300.?.z?. .(Q$,|
00000A30: 31 29 B3 B1 22 5E 22 20 A7 20 31 36 32 38 30 00 |1).."^" . 16280.|
00000A40: 6F 0E 84 3F 54 4E B2 C5 28 CA 28 51 24 2C 32 29 |o..?TN..(.(Q$,2)|
00000A50: 29 AA 31 30 3A 99 20 42 24 28 54 4E AB 31 31 29 |).10:. B$(TN.11)|
00000A60: 3B 22 3A 22 3B 51 24 B2 22 22 3A 85 20 51 24 00 |;":";Q$."":. Q$.|
00000A70: 88 0E 8E 3F 51 24 B2 51 24 AA 22 5E 22 AA CA 28 |...?Q$.Q$."^"..(|
00000A80: C4 28 54 4E 29 2C 32 29 00 B0 0E 98 3F 54 31 24 |.(TN),2)....?T1$|
00000A90: B2 54 31 24 AA 51 24 3A 54 49 25 28 4E 4E AA 31 |.T1$.Q$:TI%(NN.1|
00000AA0: 29 B2 C3 28 54 31 24 29 3A 4E 4E B2 4E 4E AA 31 |)..(T1$):NN.NN.1|
00000AB0: 00 C3 0E A2 3F 8B 20 45 58 B2 31 20 A7 20 31 36 |....?. EX.1 . 16|
00000AC0: 30 35 30 00 D5 0E AC 3F 50 50 B2 A5 42 28 53 31 |050....?PP..B(S1|
00000AD0: 29 3A 82 20 49 00 08 0F B6 3F 81 20 49 B2 30 20 |):. I....?. I.0 |
00000AE0: A4 20 4E 4E 3A 54 31 24 B2 54 31 24 AA C7 28 54 |. NN:T1$.T1$..(T|
00000AF0: 49 25 28 49 29 29 3A 82 3A 54 31 24 B2 54 31 24 |I%(I)):.:T1$.T1$|
00000B00: AA C7 28 4E 4E AA 31 29 00 2D 0F C0 3F 99 22 11 |..(NN.1).-..?.".|
00000B10: 90 57 41 49 54 22 3A 8D 31 38 30 30 30 3A 8D 31 |.WAIT":.18000:.1|
00000B20: 34 30 30 30 3A 8D 31 35 30 30 30 3A 8E 00 49 0F |4000:.15000:..I.|
00000B30: 68 42 8F 2A 2A 2A 2A 53 45 41 52 43 48 2A 2A 2A |hB.****SEARCH***|
00000B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 75 0F 86 42 53 31 |*********.u..BS1|
00000B50: B2 30 3A 46 46 B2 30 3A 99 20 22 93 11 1D 1D 1D |.0:FF.0:. ".....|
00000B60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 53 45 |..............SE|
00000B70: 41 52 43 48 22 00 9E 0F 90 42 99 22 11 20 90 3E |ARCH"....B.". .>|
00000B80: 1E 49 4E 50 55 54 20 49 54 45 4D 20 46 4F 52 20 |.INPUT ITEM FOR |
00000B90: 4E 4F 52 4D 41 4C 20 53 45 41 52 43 48 22 00 CE |NORMAL SEARCH"..|
00000BA0: 0F 9A 42 99 22 20 90 3E 1E 50 52 45 43 45 44 45 |..B." .>.PRECEDE|
00000BB0: 20 57 49 54 48 20 27 49 49 49 27 46 4F 52 20 49 | WITH 'III'FOR I|
00000BC0: 4E 49 54 49 41 4C 20 53 45 41 52 43 48 22 00 FE |NITIAL SEARCH"..|
00000BD0: 0F A4 42 99 22 20 90 3E 1E 50 52 45 43 45 44 45 |..B." .>.PRECEDE|
00000BE0: 20 57 49 54 48 20 27 53 53 53 27 46 4F 52 20 53 | WITH 'SSS'FOR S|
00000BF0: 50 45 43 49 41 4C 20 53 45 41 52 43 48 22 00 28 |PECIAL SEARCH".(|
00000C00: 10 B8 42 99 22 20 90 3E 1E 12 52 45 54 55 52 4E |..B." .>..RETURN|
00000C10: 92 46 4F 52 20 46 49 52 53 54 20 49 54 45 4D 20 |.FOR FIRST ITEM |
00000C20: 4F 4E 20 46 49 4C 45 22 00 4D 10 C2 42 99 22 20 |ON FILE".M..B." |
00000C30: 90 3E 1E 27 4D 4D 4D 27 20 46 4F 52 20 4D 55 4C |.>.'MMM' FOR MUL|
00000C40: 54 49 50 4C 45 20 53 45 41 52 43 48 22 00 7F 10 |TIPLE SEARCH"...|
00000C50: CC 42 99 22 11 11 1D D1 D1 D1 D1 D1 D1 D1 D1 D1 |.B."............|
00000C60: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................|
00000C70: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 91 91 22 00 |..............".|
00000C80: B9 10 D6 42 54 31 24 B2 22 22 3A 85 20 22 1F 53 |...BT1$."":. ".S|
00000C90: 45 41 52 43 48 20 43 4F 4D 4D 41 4E 44 3A 22 3B |EARCH COMMAND:";|
00000CA0: 54 31 24 3A 8B 20 C8 28 54 31 24 2C 31 29 B3 B1 |T1$:. .(T1$,1)..|
00000CB0: 22 5E 22 A7 31 37 31 33 30 00 D9 10 E0 42 88 20 |"^".17130....B. |
00000CC0: 54 4E B2 C5 28 CA 28 54 31 24 2C 32 29 29 AA 31 |TN..(.(T1$,2)).1|
00000CD0: 30 3A 89 20 31 37 31 31 30 00 05 11 EA 42 8B 20 |0:. 17110....B. |
00000CE0: 54 4E B3 B1 30 20 A7 20 88 20 54 31 24 B2 54 31 |TN..0 . . T1$.T1|
00000CF0: 24 AA 22 5E 22 AA CA 28 C4 28 54 4E 29 2C 32 29 |$."^"..(.(TN),2)|
00000D00: 3A 54 4E B2 30 00 22 11 F4 42 8B 20 C8 28 54 31 |:TN.0."..B. .(T1|
00000D10: 24 2C 33 29 B3 B1 22 49 49 49 22 A7 20 31 37 31 |$,3).."III". 171|
00000D20: 37 30 00 55 11 FE 42 54 31 24 B2 C9 28 54 31 24 |70.U..BT1$..(T1$|
00000D30: 2C C3 28 54 31 24 29 AB 33 29 3A 8D 31 34 30 30 |,.(T1$).3):.1400|
00000D40: 30 3A 53 31 B2 53 53 3A 8B 20 53 31 B1 49 54 AB |0:S1.SS:. S1.IT.|
00000D50: 31 20 A7 20 8E 00 6E 11 08 43 54 31 24 B2 22 49 |1 . ..n..CT1$."I|
00000D60: 49 49 22 AA 54 31 24 3A 89 31 37 31 33 30 00 8B |II".T1$:.17130..|
00000D70: 11 12 43 8B 20 C8 28 54 31 24 2C 33 29 B3 B1 22 |..C. .(T1$,3).."|
00000D80: 53 53 53 22 20 A7 31 37 32 30 30 00 B5 11 1C 43 |SSS" .17200....C|
00000D90: 8D 20 32 31 30 34 30 3A 8B 20 46 46 B2 31 20 A7 |. 21040:. FF.1 .|
00000DA0: 20 54 31 24 B2 22 53 53 53 22 AA 54 31 24 3A 89 | T1$."SSS".T1$:.|
00000DB0: 31 37 33 31 30 00 BB 11 26 43 8E 00 D9 11 30 43 |17310...&C....0C|
00000DC0: 8B 20 C8 28 54 31 24 2C 33 29 B3 B1 22 4D 4D 4D |. .(T1$,3).."MMM|
00000DD0: 22 20 A7 20 31 37 32 37 30 00 09 12 3A 43 A1 5A |" . 17270...:C.Z|
00000DE0: 24 3A 85 20 22 1E 11 4E 55 4D 42 45 52 20 4F 46 |$:. "..NUMBER OF|
00000DF0: 20 49 54 45 4D 53 20 54 4F 20 53 45 41 52 43 48 | ITEMS TO SEARCH|
00000E00: 20 46 4F 52 3A 22 3B 4E 4E 00 3A 12 44 43 81 20 | FOR:";NN.:.DC. |
00000E10: 4B B2 30 20 A4 20 4E 4E AB 31 3A 99 22 53 45 41 |K.0 . NN.1:."SEA|
00000E20: 52 43 48 20 49 54 45 4D 22 3B 4B AA 31 3B 3A 85 |RCH ITEM";K.1;:.|
00000E30: 20 4D 24 28 4B 29 3A 82 20 4B 00 6D 12 4E 43 81 | M$(K):. K.m.NC.|
00000E40: 20 4B B2 30 20 A4 20 4E 4E AB 31 3A 54 31 24 B2 | K.0 . NN.1:T1$.|
00000E50: 4D 24 28 4B 29 3A 53 33 B2 53 31 3A 8D 32 31 30 |M$(K):S3.S1:.210|
00000E60: 37 30 3A 8B 20 46 46 B2 30 20 A7 20 8E 00 82 12 |70:. FF.0 . ....|
00000E70: 58 43 8B 20 53 33 B3 B1 53 31 20 A7 20 31 37 32 |XC. S3..S1 . 172|
00000E80: 33 30 00 8A 12 62 43 82 20 4B 00 A1 12 6C 43 88 |30...bC. K...lC.|
00000E90: 20 54 31 24 B2 22 4D 4D 4D 22 3A 89 31 37 33 31 | T1$."MMM":.1731|
00000EA0: 30 00 B6 12 76 43 8B 20 54 31 24 B2 22 22 20 A7 |0...vC. T1$."" .|
00000EB0: 20 31 37 33 31 30 00 C2 12 80 43 8D 20 32 31 30 | 17310....C. 210|
00000EC0: 37 30 00 D5 12 8A 43 8B 20 46 46 B2 31 20 A7 20 |70....C. FF.1 . |
00000ED0: 31 37 33 31 30 00 DB 12 94 43 8E 00 F3 12 9E 43 |17310....C.....C|
00000EE0: 8B 20 53 31 B1 49 54 AB 31 20 A7 20 53 31 B2 49 |. S1.IT.1 . S1.I|
00000EF0: 54 AB 31 00 02 13 A8 43 8B 20 49 54 B2 30 20 A7 |T.1....C. IT.0 .|
00000F00: 20 8E 00 14 13 B2 43 8B 20 53 31 B3 30 20 A7 20 | .....C. S1.0 . |
00000F10: 53 31 B2 30 00 4B 13 BC 43 99 22 93 11 1C 45 4E |S1.0.K..C."...EN|
00000F20: 54 52 59 22 3B 53 31 AA 31 3B 22 3A 2D 11 22 3A |TRY";S1.1;":-.":|
00000F30: 50 50 B2 30 3A 53 32 B2 53 31 3A 81 20 49 B2 31 |PP.0:S2.S1:. I.1|
00000F40: 20 A4 20 A5 41 28 53 31 29 AB 31 00 6E 13 C1 43 | . .A(S1).1.n..C|
00000F50: 8B 20 49 AD 31 32 B2 B5 28 49 AD 31 32 29 20 A7 |. I.12..(I.12) .|
00000F60: 20 85 20 22 90 4D 4F 52 45 22 3B 54 54 24 00 8D | . ".MORE";TT$..|
00000F70: 13 C6 43 8D 20 32 31 30 33 30 3A 8B 20 C3 28 53 |..C. 21030:. .(S|
00000F80: 53 24 29 B3 34 20 A7 20 31 37 33 38 30 00 AF 13 |S$).4 . 17380...|
00000F90: D0 43 8B 20 CA 28 C9 28 53 53 24 2C 33 29 2C 31 |.C. .(.(SS$,3),1|
00000FA0: 2C 31 29 B3 B1 22 5E 22 20 A7 31 37 33 38 30 00 |,1).."^" .17380.|
00000FB0: E1 13 DA 43 99 20 42 24 28 C5 28 C9 28 53 53 24 |...C. B$(.(.(SS$|
00000FC0: 2C 32 29 29 AB 31 31 29 3B 22 3A 22 3B 3A 53 53 |,2)).11);":";:SS|
00000FD0: 24 B2 C8 28 53 53 24 2C C3 28 53 53 24 29 AB 33 |$..(SS$,.(SS$).3|
00000FE0: 29 00 EB 13 E4 43 99 20 53 53 24 00 05 14 EE 43 |)....C. SS$....C|
00000FF0: 50 50 B2 A5 42 28 53 31 29 3A 82 20 49 3A 53 31 |PP..B(S1):. I:S1|
00001000: B2 53 31 AA 31 00 2C 14 F8 43 99 22 11 12 23 53 |.S1.1.,..C."..#S|
00001010: 45 41 52 43 48 92 20 1F 43 4F 4D 4D 41 4E 44 53 |EARCH. .COMMANDS|
00001020: 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 4E 14 02 | AVAILABLE:".N..|
00001030: 44 99 22 11 20 90 3E 9C 12 45 4E 54 45 52 92 20 |D.". .>..ENTER. |
00001040: 46 4F 52 20 4E 45 58 54 20 49 54 45 4D 22 00 68 |FOR NEXT ITEM".h|
00001050: 14 0C 44 99 22 20 90 3E 9C 27 41 41 41 27 20 54 |..D." .>.'AAA' T|
00001060: 4F 20 41 4D 45 4E 44 22 00 8B 14 16 44 99 22 20 |O AMEND"....D." |
00001070: 90 3E 9C 27 43 43 43 27 20 54 4F 20 43 4F 4E 54 |.>.'CCC' TO CONT|
00001080: 49 4E 55 45 20 53 45 41 52 43 48 00 BA 14 20 44 |INUE SEARCH... D|
00001090: 99 22 20 90 3E 9C 27 23 27 20 46 4F 4C 4C 4F 57 |." .>.'#' FOLLOW|
000010A0: 45 44 20 42 59 20 4E 4F 2E 20 54 4F 20 4D 4F 56 |ED BY NO. TO MOV|
000010B0: 45 20 50 4F 49 4E 54 45 52 22 00 DC 14 2A 44 99 |E POINTER"...*D.|
000010C0: 22 20 90 3E 9C 27 5A 5A 5A 27 20 54 4F 20 51 55 |" .>.'ZZZ' TO QU|
000010D0: 49 54 20 46 55 4E 43 54 49 4F 4E 22 00 03 15 34 |IT FUNCTION"...4|
000010E0: 44 50 24 B2 22 22 3A 85 22 11 1F 57 49 43 48 20 |DP$."":."..WICH |
000010F0: 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 3A 22 |DO YOU REQUIRE:"|
00001100: 3B 50 24 00 22 15 3E 44 8B 20 54 31 24 B2 22 4D |;P$.".>D. T1$."M|
00001110: 4D 4D 22 20 AF 20 53 31 B3 49 54 20 A7 31 37 32 |MM" . S1.IT .172|
00001120: 33 30 00 41 15 48 44 8B 20 50 24 B2 22 43 43 43 |30.A.HD. P$."CCC|
00001130: 22 20 AF 20 53 31 B3 49 54 20 A7 20 31 37 31 34 |" . S1.IT . 1714|
00001140: 30 00 54 15 52 44 8B 20 50 24 B2 22 22 A7 20 31 |0.T.RD. P$."". 1|
00001150: 37 33 31 30 00 75 15 5C 44 8B 20 50 24 B2 22 41 |7310.u.\D. P$."A|
00001160: 41 41 22 20 A7 20 8D 20 31 36 30 30 30 3A 89 20 |AA" . . 16000:. |
00001170: 31 37 33 31 30 00 88 15 66 44 8B 20 50 24 B2 22 |17310...fD. P$."|
00001180: 5A 5A 5A 22 20 A7 20 8E 00 B7 15 70 44 8B 20 C8 |ZZZ" . ....pD. .|
00001190: 28 50 24 2C 31 29 B2 22 23 22 20 A7 20 53 31 B2 |(P$,1)."#" . S1.|
000011A0: 53 31 AA C5 28 CA 28 50 24 2C 32 29 29 AB 31 3A |S1..(.(P$,2)).1:|
000011B0: 89 20 31 37 33 31 30 00 CB 15 7A 44 53 31 B2 53 |. 17310...zDS1.S|
000011C0: 31 AB 31 3A 89 20 31 37 33 31 30 00 EF 15 50 46 |1.1:. 17310...PF|
000011D0: 8F 20 2A 2A 2A 54 45 4C 45 53 43 4F 50 45 20 46 |. ***TELESCOPE F|
000011E0: 49 4C 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |ILE ***********.|
000011F0: 1B 16 6E 46 81 20 49 B2 53 31 20 A4 20 49 54 AB |..nF. I.S1 . IT.|
00001200: 31 3A 41 24 28 49 29 B2 41 24 28 49 AA 31 29 3A |1:A$(I).A$(I.1):|
00001210: 82 3A 49 54 B2 49 54 AB 31 3A 8E 00 3B 16 38 4A |.:IT.IT.1:..;.8J|
00001220: 8F 2A 2A 2A 2A 2A 2A 2A 20 49 54 45 4D 20 54 59 |.******* ITEM TY|
00001230: 50 45 20 4E 41 4D 45 53 20 2A 2A 00 4F 16 56 4A |PE NAMES **.O.VJ|
00001240: 81 20 49 B2 30 20 A4 20 34 39 20 A9 20 31 30 00 |. I.0 . 49 . 10.|
00001250: 73 16 60 4A 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D |s.`J."..........|
00001260: 1D 1D 1D 1D 1D 1D 12 1C 49 54 45 4D 20 4E 41 4D |........ITEM NAM|
00001270: 45 53 22 00 9E 16 6A 4A 99 22 1E 22 3B 3A 81 20 |ES"...jJ.".";:. |
00001280: 4A B2 49 20 A4 20 49 AA 39 20 3A 99 20 4A AA 31 |J.I . I.9 :. J.1|
00001290: 3B 22 29 22 3B 42 24 28 4A 29 3A 82 20 4A 00 BB |;")";B$(J):. J..|
000012A0: 16 74 4A 99 22 11 1F 43 4F 4D 4D 41 4E 44 53 20 |.tJ."..COMMANDS |
000012B0: 41 56 41 49 4C 41 42 4C 45 3A 22 00 D0 16 7E 4A |AVAILABLE:"...~J|
000012C0: 99 22 90 3E 9C 27 5A 5A 5A 27 3D 51 55 49 54 22 |.".>.'ZZZ'=QUIT"|
000012D0: 00 EC 16 88 4A 99 22 90 3E 9C 27 49 49 49 27 3D |....J.".>.'III'=|
000012E0: 49 54 45 4D 2F 44 45 4C 45 54 45 22 00 06 17 92 |ITEM/DELETE"....|
000012F0: 4A 99 22 90 3E 9C 27 4E 4E 4E 27 3D 4E 45 58 54 |J.".>.'NNN'=NEXT|
00001300: 20 50 41 47 45 22 00 34 17 9C 4A 85 22 1F 57 49 | PAGE".4..J.".WI|
00001310: 43 48 20 44 4F 20 59 4F 55 20 52 45 51 55 49 52 |CH DO YOU REQUIR|
00001320: 45 3A 22 3B 51 24 3A 8B 51 24 B2 22 5A 5A 5A 22 |E:";Q$:.Q$."ZZZ"|
00001330: 20 A7 20 8E 00 4C 17 A6 4A 8B 20 51 24 20 B2 22 | . ..L..J. Q$ ."|
00001340: 4E 4E 4E 22 A7 20 82 20 49 20 3A 8E 00 64 17 B0 |NNN". . I :..d..|
00001350: 4A 8B 20 51 24 B3 B1 22 49 49 49 22 A7 20 89 31 |J. Q$.."III". .1|
00001360: 39 30 30 30 00 7F 17 BA 4A 85 22 9C 50 4F 53 49 |9000....J.".POSI|
00001370: 54 49 4F 4E 20 4E 55 4D 42 45 52 3A 22 3B 51 00 |TION NUMBER:";Q.|
00001380: A9 17 C4 4A 99 22 1E 4E 41 4D 45 20 4F 46 20 54 |...J.".NAME OF T|
00001390: 59 50 45 20 4F 52 12 52 45 54 55 52 4E 92 54 4F |YPE OR.RETURN.TO|
000013A0: 20 44 45 4C 45 54 45 3A 22 00 CA 17 CE 4A 51 24 | DELETE:"....JQ$|
000013B0: B2 22 22 3A 85 20 51 24 3A 42 24 28 51 AB 31 29 |."":. Q$:B$(Q.1)|
000013C0: B2 51 24 3A 89 31 39 30 34 30 00 E7 17 20 4E 8F |.Q$:.19040... N.|
000013D0: 2A 2A 2A 2A 2A 2A 44 41 54 41 20 46 49 4C 45 53 |******DATA FILES|
000013E0: 20 2A 2A 2A 2A 2A 2A 00 17 18 3E 4E 99 22 11 1F | ******...>N."..|
000013F0: 50 4F 53 49 54 49 4F 4E 20 54 41 50 45 20 43 4F |POSITION TAPE CO|
00001400: 52 52 45 43 54 4C 59 2C 54 48 45 4E 12 52 45 54 |RRECTLY,THEN.RET|
00001410: 55 52 4E 92 2D 2D 22 00 4F 18 48 4E 85 20 22 4D |URN.--".O.HN. "M|
00001420: 4F 54 4F 52 20 57 49 4C 4C 20 53 54 4F 50 20 41 |OTOR WILL STOP A|
00001430: 55 54 4F 4D 41 54 49 43 41 4C 4C 59 3A 22 3B 51 |UTOMATICALLY:";Q|
00001440: 24 3A 97 31 39 32 2C 37 3A 97 20 31 2C 33 39 00 |$:.192,7:. 1,39.|
00001450: 84 18 5C 4E 85 20 22 11 1F 57 49 43 48 20 44 4F |..\N. "..WICH DO|
00001460: 20 59 4F 55 20 52 45 51 55 49 52 45 3A 22 3B 51 | YOU REQUIRE:";Q|
00001470: 3A 91 20 51 20 89 20 32 30 30 37 30 2C 32 30 31 |:. Q . 20070,201|
00001480: 35 30 3A 8E 00 9C 18 66 4E 97 20 31 2C 37 3A 81 |50:....fN. 1,7:.|
00001490: 49 B2 31 20 A4 20 32 30 30 30 3A 82 00 B8 18 70 |I.1 . 2000:....p|
000014A0: 4E 9F 20 31 2C 31 2C 31 2C 22 55 4E 49 46 49 4C |N. 1,1,1,"UNIFIL|
000014B0: 45 22 3A 98 31 2C 49 54 00 D4 18 7A 4E 81 20 53 |E":.1,IT...zN. S|
000014C0: 31 B2 30 20 A4 20 49 54 AB 31 3A 98 31 2C A5 41 |1.0 . IT.1:.1,.A|
000014D0: 28 53 31 29 00 F7 18 84 4E 81 20 49 B2 31 20 A4 |(S1)....N. I.1 .|
000014E0: 20 A5 41 28 53 31 29 AB 31 3A 98 31 2C A5 42 28 | .A(S1).1:.1,.B(|
000014F0: 53 31 29 3A 82 20 49 00 1E 19 8E 4E 98 31 2C C8 |S1):. I....N.1,.|
00001500: 28 41 24 28 53 31 29 2C C3 28 41 24 28 53 31 29 |(A$(S1),.(A$(S1)|
00001510: 29 AB A5 41 28 53 31 29 29 3A 82 20 53 31 00 44 |)..A(S1)):. S1.D|
00001520: 19 98 4E 81 20 49 B2 30 20 A4 20 34 39 3A 8B 20 |..N. I.0 . 49:. |
00001530: 42 24 28 49 29 B2 22 22 20 A7 20 42 24 28 49 29 |B$(I)."" . B$(I)|
00001540: B2 22 20 22 00 53 19 A2 4E 98 31 2C 42 24 28 49 |." ".S..N.1,B$(I|
00001550: 29 3A 82 00 5D 19 AC 4E A0 20 31 3A 8E 00 79 19 |):..]..N. 1:..y.|
00001560: B6 4E 9F 20 31 2C 31 2C 30 2C 22 55 4E 49 46 49 |.N. 1,1,0,"UNIFI|
00001570: 4C 45 22 3A 84 31 2C 49 54 00 91 19 C0 4E 81 20 |LE":.1,IT....N. |
00001580: 53 31 B2 30 20 A4 20 49 54 AB 31 3A 84 31 2C 49 |S1.0 . IT.1:.1,I|
00001590: 54 00 D0 19 CA 4E 54 54 24 B2 22 22 3A 81 49 B2 |T....NTT$."":.I.|
000015A0: 31 A4 4E 4E AB 31 3A 84 31 2C 54 54 3A 54 54 24 |1.NN.1:.1,TT:TT$|
000015B0: B2 54 54 24 AA 43 48 52 53 28 54 54 29 3A 82 49 |.TT$.CHRS(TT):.I|
000015C0: 3A 54 54 24 B2 54 54 24 AA C7 28 4E 4E AB 31 29 |:TT$.TT$..(NN.1)|
000015D0: 00 02 1A D4 4E A1 23 31 2C 54 24 3A 8B 20 54 24 |....N.#1,T$:. T$|
000015E0: B3 B1 C7 28 31 33 29 20 A7 20 41 24 28 53 31 29 |...(13) . A$(S1)|
000015F0: B2 41 24 28 53 31 29 AA 54 24 3A 89 20 32 30 31 |.A$(S1).T$:. 201|
00001600: 38 30 00 1D 1A D9 4E 41 24 28 53 31 29 B2 41 24 |80....NA$(S1).A$|
00001610: 28 53 31 29 AA 54 54 24 3A 82 20 53 31 00 37 1A |(S1).TT$:. S1.7.|
00001620: DE 4E 81 20 49 B2 30 20 A4 20 34 39 3A 84 31 2C |.N. I.0 . 49:.1,|
00001630: 42 24 28 49 29 3A 82 00 40 1A E8 4E A0 31 3A 8E |B$(I):..@..N.1:.|
00001640: 00 65 1A 08 52 8F 2A 46 55 4E 43 54 49 4F 4E 41 |.e..R.*FUNCTIONA|
00001650: 4C 20 53 55 42 52 4F 55 54 49 4E 45 53 2A 2A 2A |L SUBROUTINES***|
00001660: 2A 2A 2A 2A 2A 00 88 1A 26 52 53 53 24 B2 CA 28 |*****...&RSS$..(|
00001670: 41 24 28 53 32 29 2C 50 50 AA 31 2C A5 42 28 53 |A$(S2),PP.1,.B(S|
00001680: 32 29 AB 50 50 29 3A 8E 00 C4 1A 30 52 46 46 B2 |2).PP):....0RFF.|
00001690: 30 3A 54 31 24 B2 C9 28 54 31 24 2C C3 28 54 31 |0:T1$..(T1$,.(T1|
000016A0: 24 29 AB 33 29 3A 81 20 53 32 B2 53 31 A4 20 49 |$).3):. S2.S1. I|
000016B0: 54 AB 31 3A 81 20 4A B2 31 20 A4 20 C3 28 41 24 |T.1:. J.1 . .(A$|
000016C0: 28 49 29 29 00 02 1B 3A 52 8B 20 CA 28 41 24 28 |(I))...:R. .(A$(|
000016D0: 53 32 29 2C 4A 2C C3 28 54 31 24 29 29 B2 54 31 |S2),J,.(T1$)).T1|
000016E0: 24 20 A7 20 46 46 B2 31 3A 53 31 B2 53 32 3A 4A |$ . FF.1:S1.S2:J|
000016F0: B2 C3 28 41 24 28 53 32 29 29 3A 53 32 B2 49 54 |..(A$(S2)):S2.IT|
00001700: AB 31 00 0F 1B 44 52 82 20 4A 2C 53 32 3A 8E 00 |.1...DR. J,S2:..|
00001710: 46 1B 4E 52 46 46 B2 30 3A 81 20 53 32 B2 53 31 |F.NRFF.0:. S2.S1|
00001720: 20 A4 20 49 54 AB 31 3A 50 50 B2 30 3A 81 20 49 | . IT.1:PP.0:. I|
00001730: B2 31 20 A4 20 A5 41 28 53 32 29 AB 31 20 3A 8D |.1 . .A(S2).1 :.|
00001740: 20 32 31 30 33 30 00 7B 1B 58 52 8B 20 53 53 24 | 21030.{.XR. SS$|
00001750: B2 54 31 24 20 A7 20 46 46 B2 31 3A 53 31 B2 53 |.T1$ . FF.1:S1.S|
00001760: 32 3A 49 B2 A5 41 28 53 32 29 AB 31 3A 53 32 B2 |2:I..A(S2).1:S2.|
00001770: 49 54 AB 31 3A 89 32 31 31 32 30 00 92 1B 62 52 |IT.1:.21120...bR|
00001780: 8B 20 C3 28 53 53 24 29 B3 34 20 A7 20 32 31 31 |. .(SS$).4 . 211|
00001790: 31 30 00 CA 1B 6C 52 8B 20 CA 28 53 53 24 2C C3 |10...lR. .(SS$,.|
000017A0: 28 53 53 24 29 AB 32 2C 31 29 B2 22 5E 22 20 A7 |(SS$).2,1)."^" .|
000017B0: 53 53 24 B2 C8 28 53 53 24 2C C3 28 53 53 24 29 |SS$..(SS$,.(SS$)|
000017C0: AB 33 29 3A 89 32 31 30 38 30 00 D8 1B 76 52 50 |.3):.21080...vRP|
000017D0: 50 B2 A5 42 28 53 32 29 00 E5 1B 80 52 82 20 49 |P..B(S2)....R. I|
000017E0: 2C 53 32 3A 8E 00 00 00 AA AA AA AA AA AA AA AA |,S2:............|
000017F0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001800: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001810: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001820: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001830: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001840: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001850: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001860: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001870: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001880: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001890: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000018A0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000018B0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000018C0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000018D0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000018E0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000018F0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001900: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001910: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001920: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001930: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001940: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001950: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001960: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001970: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001980: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001990: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000019A0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000019B0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000019C0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000019D0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000019E0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
000019F0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A00: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A10: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A20: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A30: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A40: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A50: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A60: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A70: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A80: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001A90: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001AA0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001AB0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001AC0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001AD0: AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA AA |................|
00001AE0: AA AA AA AA AA AA AA AA |........ |
.....*.*****MENU*****.8..+."............
.......UNIFILE.".V. +."...COMMANDS AVAIL
ABLE:".X.*+."... 1)ENTER INFORMATION"
...4+.". 2)SEARCH/DISPLAY/CHANGE"...>
+.". 3)NEW TYPE NAMES".R.H+.". 4)D
ATA FILES"...R+.". 5)SET UP NEW FILE"
...\+.". 6)STOP".*.F+. "..WICH DO YOU
REQUIRE:";Z:.".";.C.P+. Z.4 . IN.1 . 11
150...Z+."....................NOT INITIA
LISED YET.":. I.1 . 1000:.....+.11000.H.
.+. Z . 13000,17000,19000,20000 ,12
000,11160:.11000....+.".................
......FILING SYSTEM CLOSED":.. .... ****
** INITIALISE FILE******.C.... ****** IN
ITIALISE FILE******.H.... :. A$(499),B$(
49),TI%(49):IN.1..../. .A(S1).F(I(A$(S1)
,1)).1..../. .B(S1).F(I(A$(S1),.A(S1).I.
1))..../.11000.Y.H2.****ENTRY OF NEW ITE
MS*******....2T1$."":NN..1:TN.0:."......
.............NEW ITEMS".B..2."..........
...............";IT;"ITEMS SO FAR"._..2.
"..COMMANDS AVAILABLE:"....3."..>.ENTER
ITEM TO BE INPUT"....3.".>.ENTER '*' TO
TERMINATE THIS RECORD".R..3.".>.ENTER '^
NN' FOR ITEM TYPE"..."3.".>.INPUT 'ZZZ'
TO RETURN TO MENU.."...,3. Q$:. Q$."ZZZ"
. ..'.63. Q$."ZZZ" . ..A.@3. H(Q$,1).."
^" .13150.\.J3TN.E(J(Q$,2)):TN.TN.10.{.T
3.".";B$(TN.11);":";:.13100...^3. TN..0.
Q$.Q$."^".J(D(TN),2):TN.0.F.H3. C(T1$).
C(Q$).NN.2..255 .13180...R3.".ENTRY TOO
LONG.":. J.1 .3000:. J:....|3. Q$."*" .
. 13200.=..3T1$.T1$.Q$:TI%(NN.1).C(T1$):
NN.N N.1:. 13000.U..3.I.0 . NN:T1$.
T1$.G(TI%(I)): .:T1$.T1$.G(NN.1)...
.3."..WAIT":.14000,.1500 0:.13000..
..6. *****BINARY SEARCH******.Q.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.;..6. A$(SS).T1$ .SS.SS.2.I.M..7
. SS.0 . SS.0.E..7. SS.IT.1 . SS.IT.1...
.7. I:. A$(SS).T1$ . SS.SS.1....7.....:.
****INSERT********....:. IT.0 . .15050..
..:. I.IT . SS.1 . .1:A$(I).A$(I.1):....
J:A$(SS).T1$:IT.IT.1:.....>. *****CHANGE
ENTRIES****.2..>S1.S1.1:T1$."":NN..1:TN
.0.R..>PP.0:S2.S1:. I.1 . .A(S1).1.K..>.
"..ENTRY";S1.1;":-"....>. 21030:. C(SS$)
.4 . 16090...F>. J(SS$,C(SS$).2,1).."^"
. 16090...P>. B$(E(I(SS$,2)).11);":";H(S
S$,C(SS$).3):.16100...Z>.SS$....>.".....
..COMMANDS AVAILABLE:".7..>." .>..RETURN
.LEAVES ITEM UNCHANGED".Z..>." .>.NEW IT
EM ENDING WITH'*'"....?." .>.REPLACEMENT
OF ITEM DISPLAYED"....?." .>.'ZZZ' QUIT
S WITHOUT CHANGES".S..?." .>.'DDD' DELET
ES THE WHOLE ENTRY"... ?." .>.'RRR' REMO
VES THIS ITEM FROM ENTRY".(.*?Q$."":. ".
WICH DO YOU REQUIRE:";Q$.;.4?. Q$."ZZZ"
. ..T.>?. Q$."RRR" . . 16300.O.H?. Q$."D
DD" . . 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).$.P?. Q$."". T1$.T1$.
SS$:TI%(NN.1).C(T1$):NN.NN.1:. 16300.?.Z
?. H(Q$,1).."^" . 16280.O..?TN.E(J(Q$,2)
).10:. B$(TN.11);":";Q$."":. Q$....?Q$.Q
$."^".J(D(TN),2)....?T1$.T1$.Q$:TI%(NN.1
).C(T1$):NN.NN.1.C..?. EX.1 . 16050.U..?
PP..B(S1):. I....?. I.0 . NN:T1$.T1$.G(T
I%(I)):.:T1$.T1$.G(NN.1).-..?."..WAIT":.
18000:.14000:.15000:..I.HB.****SEARCH***
*********.U..BS1.0:FF.0:. ".............
......SEARCH"....B.". .>.INPUT ITEM FOR
NORMAL SEARCH".N..B." .>.PRECEDE WITH 'I
II'FOR INITIAL SEARCH"....B." .>.PRECEDE
WITH 'SSS'FOR SPECIAL SEARCH".(..B." .>
..RETURN.FOR FIRST ITEM ON FILE".M.BB."
.>.'MMM' FOR MULTIPLE SEARCH"..LB."...Q
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ..".
..VBT1$."":. ".SEARCH COMMAND:";T1$:. H(
T1$,1).."^".17130.Y..B. TN.E(J(T1$,2)).1
0:. 17110....B. TN..0 . . T1$.T1$."^".J(
D(TN),2):TN.0."..B. H(T1$,3).."III". 171
70.U..BT1$.I(T1$,C(T1$).3):.14000:S1.SS:
. S1.IT.1 . ..N..CT1$."III".T1$:.17130..
..C. H(T1$,3).."SSS" .17200....C. 21040:
. FF.1 . T1$."SSS".T1$:.17310...&C..Y.0C
. H(T1$,3).."MMM" . 17270...:C.Z$:. "..N
UMBER OF ITEMS TO SEARCH FOR:";NN.:.DC.
K.0 . NN.1:."SEARCH ITEM";K.1;:. M$(K):.
K.M.NC. K.0 . NN.1:T1$.M$(K):S3.S1:.210
70:. FF.0 . ....XC. S3..S1 . 17230...BC.
K...LC. T1$."MMM":.17310...VC. T1$."" .
17310.B..C. 21070.U..C. FF.1 . 17310...
.C.....C. S1.IT.1 . S1.IT.1....C. IT.0 .
.....C. S1.0 . S1.0.K..C."...ENTRY";S1.
1;":-.":PP.0:S2.S1:. I.1 . .A(S1).1.N.AC
. I.12..(I.12) . . ".MORE";TT$...FC. 210
30:. C(SS$).4 . 17380...PC. J(I(SS$,3),1
,1).."^" .17380...ZC. B$(E(I(SS$,2)).11)
;":";:SS$.H(SS$,C(SS$).3)....C. SS$....C
PP..B(S1):. I:S1.S1.1.,..C."..#SEARCH. .
COMMANDS AVAILABLE:".N..D.". .>..ENTER.
FOR NEXT ITEM".H..D." .>.'AAA' TO AMEND"
....D." .>.'CCC' TO CONTINUE SEARCH... D
." .>.'#' FOLLOWED BY NO. TO MOVE POINTE
R"...*D." .>.'ZZZ' TO QUIT FUNCTION"...4
DP$."":."..WICH DO YOU REQUIRE:";P$.".>D
. T1$."MMM" . S1.IT .17230.A.HD. P$."CCC
" . S1.IT . 17140.T.RD. P$."". 17310.U.\
D. P$."AAA" . . 16000:. 17310...FD. P$."
ZZZ" . ....PD. H(P$,1)."#" . S1.S1.E(J(P
$,2)).1:. 17310.K.ZDS1.S1.1:. 17310...PF
. ***TELESCOPE FILE ***********...NF. I.
S1 . IT.1:A$(I).A$(I.1):.:IT.IT.1:..;.8J
.******* ITEM TYPE NAMES **.O.VJ. I.0 .
49 . 10.S.`J."..................ITEM NAM
ES"...JJ.".";:. J.I . I.9 :. J.1;")";B$(
J):. J...TJ."..COMMANDS AVAILABLE:".P.~J
.".>.'ZZZ'=QUIT"....J.".>.'III'=ITEM/DEL
ETE"....J.".>.'NNN'=NEXT PAGE".4..J.".WI
CH DO YOU REQUIRE:";Q$:.Q$."ZZZ" . ..L..
J. Q$ ."NNN". . I :..D..J. Q$.."III". .1
9000...J.".POSITION NUMBER:";Q...DJ.".N
AME OF TYPE OR.RETURN.TO DELETE:".J.NJQ$
."":. Q$:B$(Q.1).Q$:.19040... N.******DA
TA FILES ******...>N."..POSITION TAPE CO
RRECTLY,THEN.RETURN.--".O.HN. "MOTOR WIL
L STOP AUTOMATICALLY:";Q$:.192,7:. 1,39.
..\N. "..WICH DO YOU REQUIRE:";Q:. Q . 2
0070,20150:....FN. 1,7:.I.1 . 2000:....P
N. 1,1,1,"UNIFILE":.1,IT.T.ZN. S1.0 . IT
.1:.1,.A(S1)....N. I.1 . .A(S1).1:.1,.B(
S1):. I....N.1,H(A$(S1),C(A$(S1))..A(S1)
):. S1.D..N. I.0 . 49:. B$(I)."" . B$(I)
." ".S..N.1,B$(I):..]..N 1:..Y..N. 1,1,
0,"UNIFILE":.1,IT....N. S1.0 . IT.1:.1,I
T.P.JNTT$."":.I.1.NN.1:.1,TT:TT$.TT$.CHR
S(TT):.I:TT$.TT$.G(NN.1)...TN.#1,T$:. T$
..G(13) . A$(S1).A$(S1).T$:. 20180...YNA
$(S1).A$(S1).TT$:. S1.7..N. I.0 . 49:.1,
B$(I):..@..N 1:..E..R.*FUNCTIONAL SUBROU
TINES********...&RSS$.J(A$(S2),PP.1,.B(S
2).PP):..D.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:..F.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:S2.
IT.1:.21120...BR. C(SS$).4 . 21110.J.LR.
J(SS$,C(SS$).2,1)."^" .SS$.H(SS$,C(SS$)
.3):.21080.X.VRPP..B(S2)....R. I,S2:....
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........................................
........
> CLICK IMAGE PREVIEW FOR FULL MODAL