UNIFILE
FILE INFORMATION
FILENAME(S): UNIFILE
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-12-02 02:14:52
APPEARS ON: 1 disk(s)
FILE HASH
f4d18acc55a439453fa689ead40aba24de3458ff5fa40dde9d1dd27d6d708b78
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PANS DATABASE 01 | UNIFILE | PRG | The BAM Archive | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 F8 2A 8F 20 4D 45 4E 55 00 38 08 16 |.....*. MENU.8..| 00000010: 2B 97 35 33 32 38 31 2C 37 3A 99 22 93 11 1D 1D |+.53281,7:."....| 00000020: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 1E |................| 00000030: 55 4E 49 46 49 4C 45 22 00 56 08 20 2B 99 22 11 |UNIFILE".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 77 08 2A 2B 99 22 11 11 1C |ABLE:".w.*+."...| 00000060: 20 20 20 31 29 45 4E 54 45 52 20 49 4E 46 4F 52 | 1)ENTER INFOR| 00000070: 4D 41 54 49 4F 4E 22 00 9A 08 34 2B 99 22 11 20 |MATION"...4+.". | 00000080: 20 20 32 29 53 45 41 52 43 48 2F 44 49 53 50 4C | 2)SEARCH/DISPL| 00000090: 41 59 2F 43 48 41 4E 47 45 22 00 B2 08 3E 2B 99 |AY/CHANGE"...>+.| 000000A0: 22 11 20 20 20 33 29 44 41 54 41 20 46 49 4C 45 |". 3)DATA FILE| 000000B0: 53 22 00 CF 08 48 2B 99 22 11 20 20 20 34 29 53 |S"...H+.". 4)S| 000000C0: 45 54 20 55 50 20 4E 45 57 20 46 49 4C 45 22 00 |ET UP NEW FILE".| 000000D0: E1 08 52 2B 99 22 11 20 20 20 35 29 53 54 4F 50 |..R+.". 5)STOP| 000000E0: 22 00 08 09 5C 2B 85 22 11 1F 57 48 49 43 48 20 |"...\+."..WHICH | 000000F0: 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 3A 22 |DO YOU REQUIRE:"| 00000100: 3B 5A 3A 99 22 93 22 3B 00 1C 09 66 2B 8B 5A B1 |;Z:.".";...f+.Z.| 00000110: 33 B0 49 4E B2 31 A7 31 31 31 34 30 00 58 09 70 |3.IN.1.11140.X.p| 00000120: 2B 99 22 93 11 11 11 11 11 11 11 11 1D 1D 1D 1D |+.".............| 00000130: 1D 1D 1D 1D 1D 1D 1D 4E 4F 54 20 49 4E 49 54 49 |.......NOT INITI| 00000140: 41 4C 49 53 45 44 20 59 45 54 2E 22 3A 81 49 B2 |ALISED YET.":.I.| 00000150: 31 A4 31 30 30 30 3A 82 00 63 09 7A 2B 89 31 31 |1.1000:..c.z+.11| 00000160: 30 30 30 00 8F 09 84 2B 91 5A 8D 31 33 30 30 30 |000....+.Z.13000| 00000170: 2C 31 37 30 30 30 2C 31 38 30 30 30 2C 31 32 30 |,17000,18000,120| 00000180: 30 30 2C 31 31 31 35 30 3A 89 31 31 30 30 30 00 |00,11150:.11000.| 00000190: C3 09 8E 2B 99 22 11 11 11 11 11 11 11 11 11 11 |...+."..........| 000001A0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 90 46 49 4C 49 |............FILI| 000001B0: 4E 47 20 53 59 53 54 45 4D 20 43 4C 4F 53 45 44 |NG SYSTEM CLOSED| 000001C0: 22 3A 80 00 DB 09 E0 2E 8F 20 53 54 52 55 43 54 |":....... STRUCT| 000001D0: 55 52 45 20 4F 46 20 46 49 4C 45 00 19 0A FE 2E |URE OF FILE.....| 000001E0: 9C 3A 86 41 24 28 34 39 39 29 3A 99 22 11 1D 1D |.:.A$(499):."...| 000001F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 1C 46 49 4C 45 |............FILE| 00000200: 20 53 54 52 55 43 54 55 52 45 22 3A 49 4E B2 31 | STRUCTURE":IN.1| 00000210: 3A 52 24 B2 C7 28 31 33 29 00 58 0A 03 2F 85 22 |:R$..(13).X../."| 00000220: 11 90 41 52 45 20 59 4F 55 20 4C 4F 41 44 49 4E |..ARE YOU LOADIN| 00000230: 47 20 46 52 4F 4D 20 54 20 4F 52 20 44 20 28 59 |G FROM T OR D (Y| 00000240: 2F 4E 29 3A 20 20 22 3B 51 24 3A 8B 51 24 B2 22 |/N): ";Q$:.Q$."| 00000250: 59 22 A7 31 31 30 30 30 00 97 0A 08 2F 85 22 11 |Y".11000..../.".| 00000260: 11 1F 48 4F 57 20 4D 41 4E 59 20 49 54 45 4D 53 |..HOW MANY ITEMS| 00000270: 20 49 4E 20 45 41 43 48 20 45 4E 54 52 59 3A 22 | IN EACH ENTRY:"| 00000280: 3B 58 3A 86 42 24 28 58 AB 31 29 2C 41 25 28 34 |;X:.B$(X.1),A%(4| 00000290: 39 39 2C 58 AB 31 29 00 CB 0A 12 2F 99 22 11 22 |99,X.1)..../."."| 000002A0: 3B 3A 81 49 B2 30 A4 58 AB 31 3A 99 22 9C 4E 41 |;:.I.0.X.1:.".NA| 000002B0: 4D 45 20 4F 46 20 49 54 45 4D 22 3B C4 28 49 AA |ME OF ITEM";.(I.| 000002C0: 31 29 3B 22 3A 22 3B 3A 85 51 24 00 E2 0A 1C 2F |1);":";:.Q$..../| 000002D0: 42 24 28 49 29 B2 51 24 3A 82 49 3A 89 31 31 30 |B$(I).Q$:.I:.110| 000002E0: 30 30 00 FB 0A C8 32 8F 20 45 4E 54 52 59 20 4F |00....2. ENTRY O| 000002F0: 46 20 4E 45 57 20 49 54 45 4D 53 00 22 0B E6 32 |F NEW ITEMS."..2| 00000300: 54 31 24 B2 22 22 3A 99 22 93 11 1D 1D 1D 1D 1D |T1$."":.".......| 00000310: 1D 1D 1D 1D 1D 1D 12 1C 4E 45 57 20 49 54 45 4D |........NEW ITEM| 00000320: 53 22 00 4C 0B F0 32 99 22 11 1D 1D 1D 1D 1D 1D |S".L..2.".......| 00000330: 1D 1D 1D 1D 1D 1D 1D 1E 22 3B 49 54 3B 22 20 49 |........";IT;" I| 00000340: 54 45 4D 53 20 53 4F 20 46 41 52 22 00 69 0B FA |TEMS SO FAR".i..| 00000350: 32 99 22 11 1F 43 4F 4D 4D 41 4E 44 53 20 41 56 |2."..COMMANDS AV| 00000360: 41 49 4C 41 42 4C 45 3A 22 00 89 0B 04 33 99 22 |AILABLE:"....3."| 00000370: 11 90 3E 9C 45 4E 54 45 52 20 49 54 45 4D 20 53 |..>.ENTER ITEM S| 00000380: 50 45 43 49 46 49 45 44 22 00 B1 0B 0E 33 99 22 |PECIFIED"....3."| 00000390: 90 3E 9C 49 4E 50 55 54 27 5A 5A 5A 27 54 4F 20 |.>.INPUT'ZZZ'TO | 000003A0: 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 1E 11 |RETURN TO MENU..| 000003B0: 22 00 DA 0B 18 33 81 49 B2 30 A4 58 AB 31 3A 99 |"....3.I.0.X.1:.| 000003C0: 42 24 28 49 29 3B 22 3A 22 3B 3A 85 51 24 3A 8B |B$(I);":";:.Q$:.| 000003D0: 51 24 B2 22 5A 5A 5A 22 A7 8E 00 F7 0B 22 33 8B |Q$."ZZZ"....."3.| 000003E0: C3 28 54 31 24 29 AA C3 28 51 24 29 B3 B2 32 35 |.(T1$)..(Q$)..25| 000003F0: 35 A7 31 33 31 31 30 00 1D 0C 2C 33 99 22 1C 45 |5.13110...,3.".E| 00000400: 4E 54 52 59 20 54 4F 4F 20 4C 4F 4E 47 2E 22 3A |NTRY TOO LONG.":| 00000410: 81 4A B2 31 A4 33 30 30 30 3A 82 3A 8E 00 47 0C |.J.1.3000:.:..G.| 00000420: 36 33 54 31 24 B2 54 31 24 AA 51 24 3A 54 49 25 |63T1$.T1$.Q$:TI%| 00000430: 28 49 29 B2 C3 28 54 31 24 29 3A 82 49 3A 99 22 |(I)..(T1$):.I:."| 00000440: 11 90 57 41 49 54 22 00 60 0C 40 33 8D 31 34 30 |..WAIT".`.@3.140| 00000450: 30 30 3A 8D 31 35 30 30 30 3A 89 31 33 30 30 30 |00:.15000:.13000| 00000460: 00 74 0C B0 36 8F 20 42 49 4E 41 52 59 20 53 45 |.t..6. BINARY SE| 00000470: 41 52 43 48 00 85 0C CE 36 8B 49 54 B2 30 A7 53 |ARCH....6.IT.0.S| 00000480: 53 B2 30 3A 8E 00 A4 0C D8 36 50 4F B2 B5 28 BC |S.0:.....6PO..(.| 00000490: 28 49 54 29 AD BC 28 32 29 29 3A 53 53 B2 32 AE |(IT)..(2)):SS.2.| 000004A0: 50 4F AB 31 00 B3 0C E2 36 81 49 B2 50 4F A4 30 |PO.1....6.I.PO.0| 000004B0: A9 AB 31 00 CD 0C EC 36 8B 41 24 28 53 53 29 B3 |..1....6.A$(SS).| 000004C0: 54 31 24 A7 53 53 B2 53 53 AA 32 AE 49 00 E7 0C |T1$.SS.SS.2.I...| 000004D0: F6 36 8B 41 24 28 53 53 29 B1 54 31 24 A7 53 53 |.6.A$(SS).T1$.SS| 000004E0: B2 53 53 AB 32 AE 49 00 F6 0C 00 37 8B 53 53 B3 |.SS.2.I....7.SS.| 000004F0: 30 A7 53 53 B2 30 00 0B 0D 0A 37 8B 53 53 B1 49 |0.SS.0....7.SS.I| 00000500: 54 AB 31 A7 53 53 B2 49 54 AB 31 00 26 0D 14 37 |T.1.SS.IT.1.&..7| 00000510: 82 49 3A 8B 41 24 28 53 53 29 B3 54 31 24 A7 53 |.I:.A$(SS).T1$.S| 00000520: 53 B2 53 53 AA 31 00 2C 0D 1E 37 8E 00 39 0D 98 |S.SS.1.,..7..9..| 00000530: 3A 8F 20 49 4E 53 45 52 54 00 4A 0D B6 3A 8B 49 |:. INSERT.J..:.I| 00000540: 54 B2 30 A7 89 31 35 30 36 30 00 6A 0D C0 3A 81 |T.0..15060.j..:.| 00000550: 49 B2 49 54 A4 53 53 AA 31 A9 AB 31 3A 41 24 28 |I.IT.SS.1..1:A$(| 00000560: 49 29 B2 41 24 28 49 AB 31 29 00 8E 0D CA 3A 81 |I).A$(I.1)....:.| 00000570: 4A B2 30 A4 58 AB 31 3A 41 25 28 49 2C 4A 29 B2 |J.0.X.1:A%(I,J).| 00000580: 41 25 28 49 AB 31 2C 4A 29 3A 82 4A 2C 49 00 C2 |A%(I.1,J):.J,I..| 00000590: 0D D4 3A 41 24 28 53 53 29 B2 54 31 24 3A 81 49 |..:A$(SS).T1$:.I| 000005A0: B2 30 A4 58 AB 31 3A 41 25 28 53 53 2C 49 29 B2 |.0.X.1:A%(SS,I).| 000005B0: 54 49 25 28 49 29 3A 82 3A 49 54 B2 49 54 AA 31 |TI%(I):.:IT.IT.1| 000005C0: 3A 8E 00 D5 0D 80 3E 8F 20 43 48 41 4E 47 45 20 |:.....>. CHANGE | 000005D0: 45 4E 54 52 59 00 E8 0D 9E 3E 53 31 B2 53 31 AB |ENTRY....>S1.S1.| 000005E0: 31 3A 54 31 24 B2 22 22 00 12 0E A8 3E 50 50 B2 |1:T1$.""....>PP.| 000005F0: 30 3A 81 49 B2 30 A4 58 AB 31 3A 99 22 93 11 1C |0:.I.0.X.1:."...| 00000600: 45 4E 54 52 59 20 22 3B 53 31 AA 31 3B 22 3A 2D |ENTRY ";S1.1;":-| 00000610: 11 22 00 41 0E B2 3E 99 22 1E 22 3B 42 24 28 49 |.".A..>.".";B$(I| 00000620: 29 3B 22 3A 1F 22 3B CA 28 41 24 28 53 31 29 2C |);":.";.(A$(S1),| 00000630: 50 50 AA 31 2C 41 25 28 53 31 2C 49 29 AB 50 50 |PP.1,A%(S1,I).PP| 00000640: 29 00 6D 0E BC 3E 99 22 13 11 11 11 11 11 11 11 |).m..>."........| 00000650: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000660: 1D 1D 1D 1D 1D 1C 12 41 4D 45 4E 44 22 00 8A 0E |.......AMEND"...| 00000670: C6 3E 99 22 11 1F 43 4F 4D 4D 41 4E 44 53 20 41 |.>."..COMMANDS A| 00000680: 56 41 49 4C 41 42 4C 45 3A 22 00 B4 0E D0 3E 99 |VAILABLE:"....>.| 00000690: 22 11 20 90 3E 1E 12 52 45 54 55 52 4E 92 4C 45 |". .>..RETURN.LE| 000006A0: 41 56 45 53 20 49 54 45 4D 20 55 4E 43 48 41 4E |AVES ITEM UNCHAN| 000006B0: 47 45 44 22 00 E3 0E DA 3E 99 22 20 90 3E 1E 49 |GED"....>." .>.I| 000006C0: 4E 50 55 54 20 4E 45 57 20 49 54 45 4D 20 54 4F |NPUT NEW ITEM TO| 000006D0: 20 52 45 50 4C 41 43 45 20 4F 4E 45 20 53 48 4F | REPLACE ONE SHO| 000006E0: 57 4E 22 00 08 0F E4 3E 99 22 20 90 3E 1E 27 44 |WN"....>." .>.'D| 000006F0: 44 44 27 20 44 45 4C 45 54 45 53 20 57 48 4F 4C |DD' DELETES WHOL| 00000700: 45 20 45 4E 54 52 59 22 00 30 0F EE 3E 99 22 20 |E ENTRY".0..>." | 00000710: 90 3E 1E 27 5A 5A 5A 27 20 4C 45 41 56 45 53 20 |.>.'ZZZ' LEAVES | 00000720: 45 4E 54 52 59 20 55 4E 43 48 41 4E 47 45 44 22 |ENTRY UNCHANGED"| 00000730: 00 58 0F F8 3E 51 24 B2 22 22 3A 85 22 11 1F 57 |.X..>Q$."":."..W| 00000740: 48 49 43 48 20 44 4F 20 59 4F 55 20 52 45 51 55 |HICH DO YOU REQU| 00000750: 49 52 45 3A 22 3B 51 24 00 68 0F 02 3F 8B 51 24 |IRE:";Q$.h..?.Q$| 00000760: B2 22 5A 5A 5A 22 A7 8E 00 91 0F 0C 3F 8B 51 24 |."ZZZ"......?.Q$| 00000770: B2 22 22 A7 51 24 B2 CA 28 41 24 28 53 31 29 2C |."".Q$..(A$(S1),| 00000780: 50 50 AA 31 2C 41 25 28 53 31 2C 49 29 AB 50 50 |PP.1,A%(S1,I).PP| 00000790: 29 00 A8 0F 16 3F 8B 51 24 B2 22 44 44 44 22 A7 |)....?.Q$."DDD".| 000007A0: 8D 31 36 31 38 30 3A 8E 00 E2 0F 20 3F 50 50 B2 |.16180:.... ?PP.| 000007B0: 41 25 28 53 31 2C 49 29 3A 54 31 24 B2 54 31 24 |A%(S1,I):T1$.T1$| 000007C0: AA 51 24 3A 54 49 25 28 49 29 B2 C3 28 54 31 24 |.Q$:TI%(I)..(T1$| 000007D0: 29 3A 82 49 3A 8D 31 36 31 38 30 3A 8D 31 34 30 |):.I:.16180:.140| 000007E0: 30 30 00 F5 0F 2A 3F 53 31 B2 53 53 3A 8D 31 35 |00...*?S1.SS:.15| 000007F0: 30 30 30 3A 8E 00 32 10 34 3F 81 4A B2 53 31 A4 |000:..2.4?.J.S1.| 00000800: 49 54 AB 31 3A 41 24 28 4A 29 B2 41 24 28 4A AA |IT.1:A$(J).A$(J.| 00000810: 31 29 3A 81 4B B2 30 A4 58 AB 31 3A 41 25 28 4A |1):.K.0.X.1:A%(J| 00000820: 2C 4B 29 B2 41 25 28 4A AA 31 2C 4B 29 3A 82 4B |,K).A%(J.1,K):.K| 00000830: 2C 4A 00 40 10 3E 3F 49 54 B2 49 54 AB 31 3A 8E |,J.@.>?IT.IT.1:.| 00000840: 00 4D 10 68 42 8F 20 53 45 41 52 43 48 00 79 10 |.M.hB. SEARCH.y.| 00000850: 86 42 53 31 B2 30 20 3A 46 46 B2 30 3A 99 22 93 |.BS1.0 :FF.0:.".| 00000860: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000870: 1D 23 13 05 01 12 03 08 22 00 96 10 90 42 99 22 |.#......"....B."| 00000880: 11 1F 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 4C |..COMMANDS AVAIL| 00000890: 41 42 4C 45 3A 22 00 BF 10 9A 42 99 22 11 20 90 |ABLE:"....B.". .| 000008A0: 3E 1E 49 4E 50 55 54 20 49 54 45 4D 20 46 4F 52 |>.INPUT ITEM FOR| 000008B0: 20 4E 4F 52 4D 41 4C 20 53 45 41 52 43 48 22 00 | NORMAL SEARCH".| 000008C0: F0 10 A4 42 99 22 20 90 3E 1E 50 52 45 43 45 44 |...B." .>.PRECED| 000008D0: 45 20 57 49 54 48 20 27 49 49 49 27 20 46 4F 52 |E WITH 'III' FOR| 000008E0: 20 49 4E 49 54 49 41 4C 20 53 45 41 52 43 48 22 | INITIAL SEARCH"| 000008F0: 00 21 11 AE 42 99 22 20 90 3E 1E 50 52 45 43 45 |.!..B." .>.PRECE| 00000900: 44 45 20 57 49 54 48 20 27 53 53 53 27 20 46 4F |DE WITH 'SSS' FO| 00000910: 52 20 53 50 45 43 49 41 4C 20 53 45 41 52 43 48 |R SPECIAL SEARCH| 00000920: 22 00 4C 11 B8 42 99 22 20 90 3E 1E 12 52 45 54 |".L..B." .>..RET| 00000930: 55 52 4E 92 20 46 4F 52 20 46 49 52 53 54 20 49 |URN. FOR FIRST I| 00000940: 54 45 4D 20 4F 4E 20 46 49 4C 45 22 00 80 11 C2 |TEM ON FILE"....| 00000950: 42 99 22 11 11 9C D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |B.".............| 00000960: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................| 00000970: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 22 3B |..............";| 00000980: 00 AB 11 CC 42 54 31 24 B2 22 22 3A 85 22 91 91 |....BT1$."":."..| 00000990: 1F 49 4E 50 55 54 20 53 45 41 52 43 48 20 43 4F |.INPUT SEARCH CO| 000009A0: 4D 4D 41 4E 44 3A 22 3B 54 31 24 00 C6 11 D6 42 |MMAND:";T1$....B| 000009B0: 8B C8 28 54 31 24 2C 33 29 B3 B1 22 49 49 49 22 |..(T1$,3).."III"| 000009C0: A7 31 37 31 34 30 00 F6 11 E0 42 54 31 24 B2 C9 |.17140....BT1$..| 000009D0: 28 54 31 24 2C C3 28 54 31 24 29 AB 33 29 3A 8D |(T1$,.(T1$).3):.| 000009E0: 31 34 30 30 30 3A 53 31 B2 53 53 3A 8B 53 31 B1 |14000:S1.SS:.S1.| 000009F0: 49 54 AB 31 A7 8E 00 01 12 EA 42 89 31 37 32 34 |IT.1......B.1724| 00000A00: 30 00 1C 12 F4 42 8B C8 28 54 31 24 2C 33 29 B3 |0....B..(T1$,3).| 00000A10: B1 22 53 53 53 22 A7 31 37 31 39 30 00 52 12 FE |."SSS".17190.R..| 00000A20: 42 46 46 B2 30 3A 54 31 24 B2 C9 28 54 31 24 2C |BFF.0:T1$..(T1$,| 00000A30: C3 28 54 31 24 29 AB 33 29 3A 81 49 B2 53 31 A4 |.(T1$).3):.I.S1.| 00000A40: 49 54 AB 31 3A 81 4A B2 31 A4 C3 28 41 24 28 49 |IT.1:.J.1..(A$(I| 00000A50: 29 29 00 89 12 08 43 8B CA 28 41 24 28 49 29 2C |))....C..(A$(I),| 00000A60: 4A 2C C3 28 54 31 24 29 29 B2 54 31 24 A7 46 46 |J,.(T1$)).T1$.FF| 00000A70: B2 31 3A 53 31 B2 49 3A 4A B2 C3 28 41 24 28 49 |.1:S1.I:J..(A$(I| 00000A80: 29 29 3A 49 B2 49 54 AB 31 00 AD 12 12 43 82 4A |)):I.IT.1....C.J| 00000A90: 2C 49 3A 8B 46 46 B2 31 A7 54 31 24 B2 22 53 53 |,I:.FF.1.T1$."SS| 00000AA0: 53 22 AA 54 31 24 3A 89 31 37 32 34 30 00 B3 12 |S".T1$:.17240...| 00000AB0: 1C 43 8E 00 C5 12 26 43 8B 54 31 24 B2 22 22 A7 |.C....&C.T1$."".| 00000AC0: 31 37 32 34 30 00 E7 12 30 43 46 46 B2 30 3A 81 |17240...0CFF.0:.| 00000AD0: 49 B2 53 31 A4 49 54 AB 31 3A 50 50 B2 30 3A 81 |I.S1.IT.1:PP.0:.| 00000AE0: 4A B2 30 A4 58 AB 31 00 20 13 3A 43 8B CA 28 41 |J.0.X.1. .:C..(A| 00000AF0: 24 28 49 29 2C 50 50 AA 31 2C 41 25 28 49 2C 4A |$(I),PP.1,A%(I,J| 00000B00: 29 AB 50 50 29 B2 54 31 24 A7 46 46 B2 31 3A 53 |).PP).T1$.FF.1:S| 00000B10: 31 B2 49 3A 4A B2 58 AB 31 3A 49 B2 49 54 AB 31 |1.I:J.X.1:I.IT.1| 00000B20: 00 40 13 44 43 50 50 B2 41 25 28 49 2C 4A 29 3A |.@.DCPP.A%(I,J):| 00000B30: 82 4A 2C 49 3A 8B 46 46 B2 31 A7 31 37 32 34 30 |.J,I:.FF.1.17240| 00000B40: 00 46 13 4E 43 8E 00 5B 13 58 43 8B 53 31 B1 49 |.F.NC..[.XC.S1.I| 00000B50: 54 AB 31 A7 53 31 B2 49 54 AB 31 00 67 13 62 43 |T.1.S1.IT.1.g.bC| 00000B60: 8B 49 54 B2 30 A7 8E 00 76 13 6C 43 8B 53 31 B3 |.IT.0...v.lC.S1.| 00000B70: 30 A7 53 31 B2 30 00 97 13 76 43 99 22 93 11 1C |0.S1.0...vC."...| 00000B80: 45 4E 54 52 59 20 22 3B 53 31 AA 31 3B 22 3A 2D |ENTRY ";S1.1;":-| 00000B90: 11 22 3A 50 50 B2 30 00 CF 13 80 43 81 49 B2 30 |.":PP.0....C.I.0| 00000BA0: A4 58 AB 31 3A 99 22 1E 22 3B 42 24 28 49 29 3B |.X.1:.".";B$(I);| 00000BB0: 22 3A 1F 22 3B CA 28 41 24 28 53 31 29 2C 50 50 |":.";.(A$(S1),PP| 00000BC0: AA 31 2C 41 25 28 53 31 2C 49 29 AB 50 50 29 00 |.1,A%(S1,I).PP).| 00000BD0: 08 14 8A 43 50 50 B2 41 25 28 53 31 2C 49 29 3A |...CPP.A%(S1,I):| 00000BE0: 82 49 3A 53 31 B2 53 31 AA 31 3A 99 22 13 11 11 |.I:S1.S1.1:."...| 00000BF0: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................| 00000C00: 1D 1D 1D 1D 1D 1D 1D 22 00 2E 14 94 43 99 22 12 |......."....C.".| 00000C10: 1C 53 45 41 52 43 48 92 20 1F 43 4F 4D 4D 41 4E |.SEARCH. .COMMAN| 00000C20: 44 53 20 41 56 41 49 4C 41 42 4C 45 3A 22 00 50 |DS AVAILABLE:".P| 00000C30: 14 9E 43 99 22 11 20 90 3E 9C 12 45 4E 54 45 52 |..C.". .>..ENTER| 00000C40: 92 20 46 4F 52 20 4E 45 58 54 20 49 54 45 4D 22 |. FOR NEXT ITEM"| 00000C50: 00 6A 14 A8 43 99 22 20 90 3E 9C 27 41 41 41 27 |.j..C." .>.'AAA'| 00000C60: 20 54 4F 20 41 4D 45 4E 44 22 00 8E 14 B2 43 99 | TO AMEND"....C.| 00000C70: 22 20 90 3E 9C 27 43 43 43 27 20 54 4F 20 43 4F |" .>.'CCC' TO CO| 00000C80: 4E 54 49 4E 55 45 20 53 45 41 52 43 48 22 00 BD |NTINUE SEARCH"..| 00000C90: 14 BC 43 99 22 20 90 3E 9C 27 23 27 20 46 4F 4C |..C." .>.'#' FOL| 00000CA0: 4C 4F 57 45 44 20 42 59 20 4E 4F 2E 20 54 4F 20 |LOWED BY NO. TO | 00000CB0: 4D 4F 56 45 20 50 4F 49 4E 54 45 52 22 00 DF 14 |MOVE POINTER"...| 00000CC0: C6 43 99 22 20 90 3E 9C 27 5A 5A 5A 27 20 54 4F |.C." .>.'ZZZ' TO| 00000CD0: 20 51 55 49 54 20 46 55 4E 43 54 49 4F 4E 22 00 | QUIT FUNCTION".| 00000CE0: 07 15 D0 43 50 24 B2 22 22 3A 85 22 11 1F 57 48 |...CP$."":."..WH| 00000CF0: 49 43 48 20 44 4F 20 59 4F 55 20 52 45 51 55 49 |ICH DO YOU REQUI| 00000D00: 52 45 3A 22 3B 50 24 00 1B 15 DA 43 8B 50 24 B2 |RE:";P$....C.P$.| 00000D10: 22 43 43 43 22 A7 31 37 31 31 30 00 2C 15 E4 43 |"CCC".17110.,..C| 00000D20: 8B 50 24 B2 22 22 A7 31 37 32 34 30 00 48 15 EE |.P$."".17240.H..| 00000D30: 43 8B 50 24 B2 22 41 41 41 22 A7 8D 31 36 30 30 |C.P$."AAA"..1600| 00000D40: 30 3A 89 31 37 32 34 30 00 58 15 F8 43 8B 50 24 |0:.17240.X..C.P$| 00000D50: B2 22 5A 5A 5A 22 A7 8E 00 83 15 02 44 8B C8 28 |."ZZZ"......D..(| 00000D60: 50 24 2C 31 29 B2 22 23 22 A7 53 31 B2 53 31 AA |P$,1)."#".S1.S1.| 00000D70: C5 28 CA 28 50 24 2C 32 29 29 AB 31 3A 89 31 37 |.(.(P$,2)).1:.17| 00000D80: 32 34 30 00 96 15 0C 44 53 31 B2 53 31 AB 31 3A |240....DS1.S1.1:| 00000D90: 89 31 37 32 34 30 00 A7 15 50 46 8F 20 44 41 54 |.17240...PF. DAT| 00000DA0: 41 20 46 49 4C 45 53 00 D8 15 6E 46 99 22 11 1F |A FILES...nF."..| 00000DB0: 50 4F 53 49 54 49 4F 4E 20 54 41 50 45 20 43 4F |POSITION TAPE CO| 00000DC0: 52 52 45 43 54 4C 59 20 4F 52 20 49 4E 53 45 52 |RRECTLY OR INSER| 00000DD0: 54 20 44 49 53 4B 20 22 00 17 16 82 46 99 22 11 |T DISK "....F.".| 00000DE0: 1C 43 4F 4D 4D 41 4E 44 53 20 41 56 41 49 4C 41 |.COMMANDS AVAILA| 00000DF0: 42 4C 45 3A 22 3A 99 22 11 1E 20 31 29 53 41 56 |BLE:":.".. 1)SAV| 00000E00: 45 20 44 41 54 41 22 3A 99 22 20 32 29 4C 4F 41 |E DATA":." 2)LOA| 00000E10: 44 20 44 41 54 41 22 00 43 16 87 46 99 22 20 33 |D DATA".C..F." 3| 00000E20: 29 53 41 56 45 20 4F 4E 20 44 49 53 4B 22 3A 99 |)SAVE ON DISK":.| 00000E30: 22 20 34 29 4C 4F 41 44 20 46 52 4F 4D 20 44 49 |" 4)LOAD FROM DI| 00000E40: 53 4B 22 00 81 16 8C 46 85 22 11 1F 57 48 49 43 |SK"....F."..WHIC| 00000E50: 48 20 44 4F 20 59 4F 55 20 52 45 51 55 49 52 45 |H DO YOU REQUIRE| 00000E60: 3A 22 3B 51 3A 91 51 89 31 38 30 37 30 2C 31 38 |:";Q:.Q.18070,18| 00000E70: 31 32 30 2C 31 38 35 37 35 2C 31 38 36 31 35 3A |120,18575,18615:| 00000E80: 8E 00 96 16 96 46 97 31 2C 37 3A 81 49 B2 31 A4 |.....F.1,7:.I.1.| 00000E90: 32 30 30 30 3A 82 00 AB 16 9B 46 85 22 46 49 4C |2000:.....F."FIL| 00000EA0: 45 20 4E 41 4D 45 22 3B 53 53 24 00 C5 16 A0 46 |E NAME";SS$....F| 00000EB0: 9F 31 2C 31 2C 31 2C 53 53 24 3A 98 31 2C 49 54 |.1,1,1,SS$:.1,IT| 00000EC0: 2C 52 24 2C 58 00 F5 16 AA 46 81 49 B2 30 A4 49 |,R$,X....F.I.0.I| 00000ED0: 54 AB 31 3A 98 31 2C 41 24 28 49 29 3A 81 4A B2 |T.1:.1,A$(I):.J.| 00000EE0: 30 A4 58 AB 31 3A 98 31 2C 41 25 28 49 2C 4A 29 |0.X.1:.1,A%(I,J)| 00000EF0: 3A 82 4A 2C 49 00 0D 17 B4 46 81 49 B2 30 A4 58 |:.J,I....F.I.0.X| 00000F00: AB 31 3A 98 31 2C 42 24 28 49 29 3A 82 00 16 17 |.1:.1,B$(I):....| 00000F10: BE 46 A0 31 3A 8E 00 53 17 C8 46 85 22 46 49 4C |.F.1:..S..F."FIL| 00000F20: 45 20 4E 41 4D 45 22 3B 53 53 24 3A 9F 31 2C 31 |E NAME";SS$:.1,1| 00000F30: 2C 30 2C 53 53 24 3A 84 31 2C 49 54 2C 58 3A 86 |,0,SS$:.1,IT,X:.| 00000F40: 42 24 28 58 AB 31 29 2C 41 25 28 34 39 39 2C 58 |B$(X.1),A%(499,X| 00000F50: AB 31 29 00 61 17 D2 46 81 49 B2 30 A4 49 54 AB |.1).a..F.I.0.IT.| 00000F60: 31 00 8D 17 D4 46 A1 23 31 2C 54 24 3A 8B 54 24 |1....F.#1,T$:.T$| 00000F70: B3 B1 C7 28 31 33 29 A7 41 24 28 49 29 B2 41 24 |...(13).A$(I).A$| 00000F80: 28 49 29 AA 54 24 3A 89 31 38 31 33 32 00 AA 17 |(I).T$:.18132...| 00000F90: D6 46 81 4A B2 30 A4 58 AB 31 3A 84 31 2C 41 25 |.F.J.0.X.1:.1,A%| 00000FA0: 28 49 2C 4A 29 3A 82 4A 2C 49 00 C2 17 DC 46 81 |(I,J):.J,I....F.| 00000FB0: 49 B2 30 A4 58 AB 31 3A 84 31 2C 42 24 28 49 29 |I.0.X.1:.1,B$(I)| 00000FC0: 3A 82 00 CB 17 E6 46 A0 31 3A 8E 00 FA 17 8F 48 |:.....F.1:.....H| 00000FD0: 85 22 50 52 4F 47 52 41 4D 20 4E 41 4D 45 22 3B |."PROGRAM NAME";| 00000FE0: 53 53 24 3A 9F 31 35 2C 38 2C 31 35 2C 22 53 30 |SS$:.15,8,15,"S0| 00000FF0: 3A 22 AA 53 53 24 3A A0 31 35 00 20 18 94 48 9F |:".SS$:.15. ..H.| 00001000: 31 2C 38 2C 32 2C 22 30 3A 22 AA 53 53 24 AA 22 |1,8,2,"0:".SS$."| 00001010: 2C 53 2C 57 22 3A 98 31 2C 49 54 2C 52 24 2C 58 |,S,W":.1,IT,R$,X| 00001020: 00 50 18 9E 48 81 49 B2 30 A4 49 54 AB 31 3A 98 |.P..H.I.0.IT.1:.| 00001030: 31 2C 41 24 28 49 29 3A 81 4A B2 30 A4 58 AB 31 |1,A$(I):.J.0.X.1| 00001040: 3A 98 31 2C 41 25 28 49 2C 4A 29 3A 82 4A 2C 49 |:.1,A%(I,J):.J,I| 00001050: 00 68 18 A8 48 81 49 B2 30 A4 58 AB 31 3A 98 31 |.h..H.I.0.X.1:.1| 00001060: 2C 42 24 28 49 29 3A 82 00 71 18 B2 48 A0 31 3A |,B$(I):..q..H.1:| 00001070: 8E 00 89 18 B7 48 85 22 50 52 4F 47 52 41 4D 20 |.....H."PROGRAM | 00001080: 4E 41 4D 45 22 3B 53 53 24 00 C1 18 BC 48 9F 31 |NAME";SS$....H.1| 00001090: 2C 38 2C 32 2C 22 30 3A 22 AA 53 53 24 AA 22 2C |,8,2,"0:".SS$.",| 000010A0: 53 2C 52 22 3A 84 31 2C 49 54 2C 58 3A 86 42 24 |S,R":.1,IT,X:.B$| 000010B0: 28 58 AB 31 29 2C 41 25 28 34 39 39 2C 58 AB 31 |(X.1),A%(499,X.1| 000010C0: 29 00 CF 18 C6 48 81 49 B2 30 A4 49 54 AB 31 00 |)....H.I.0.IT.1.| 000010D0: FB 18 C8 48 A1 23 31 2C 54 24 3A 8B 54 24 B3 B1 |...H.#1,T$:.T$..| 000010E0: C7 28 31 33 29 A7 41 24 28 49 29 B2 41 24 28 49 |.(13).A$(I).A$(I| 000010F0: 29 AA 54 24 3A 89 31 38 36 33 32 00 18 19 CA 48 |).T$:.18632....H| 00001100: 81 4A B2 30 A4 58 AB 31 3A 84 31 2C 41 25 28 49 |.J.0.X.1:.1,A%(I| 00001110: 2C 4A 29 3A 82 4A 2C 49 00 30 19 D0 48 81 49 B2 |,J):.J,I.0..H.I.| 00001120: 30 A4 58 AB 31 3A 84 31 2C 42 24 28 49 29 3A 82 |0.X.1:.1,B$(I):.| 00001130: 00 39 19 DA 48 A0 31 3A 8E 00 00 00 FF FF |.9..H.1:...... |
.....*. MENU.8..+.53281,7:."............ ........UNIFILE".V. +."...COMMANDS AVAIL ABLE:".W.*+."... 1)ENTER INFORMATION". ..4+.". 2)SEARCH/DISPLAY/CHANGE"...>+. ". 3)DATA FILES".O.H+.". 4)SET UP NE W FILE"...R+.". 5)STOP"...\+."..WHICH DO YOU REQUIRE:";Z:.".";...F+.Z.3.IN.1.1 1140.X.P+."....................NOT INITI ALISED YET.":.I.1.1000:..C.Z+.11000....+ .Z.13000,17000,18000,12000,11150:.11000. C..+."......................FILING SYSTE M CLOSED":....... STRUCTURE OF FILE..... .:.A$(499):."...............FILE STRUCTU RE":IN.1:R$.G(13).X../."..ARE YOU LOADIN G FROM T OR D (Y/N): ";Q$:.Q$."Y".11000 ..../."...HOW MANY ITEMS IN EACH ENTRY:" ;X:.B$(X.1),A%(499,X.1).K../.".";:.I.0.X .1:.".NAME OF ITEM";D(I.1);":";:.Q$..../ B$(I).Q$:.I:.11000...H2. ENTRY OF NEW IT EMS."..2T1$."":."...............NEW ITEM S".L..2."...............";IT;" ITEMS SO FAR".I..2."..COMMANDS AVAILABLE:"....3." ..>.ENTER ITEM SPECIFIED"....3.".>.INPUT 'ZZZ'TO RETURN TO MENU..".Z..3.I.0.X.1:. B$(I);":";:.Q$:.Q$."ZZZ"....."3.C(T1$).C (Q$)..255.13110...,3.".ENTRY TOO LONG.": .J.1.3000:.:..G.63T1$.T1$.Q$:TI%(I).C(T1 $):.I:."..WAIT".`.@3.14000:.15000:.13000 .T..6. BINARY SEARCH...N6.IT.0.SS.0:.... X6PO..(.(IT)..(2)):SS.2.PO.1....6.I.PO.0 ..1.M..6.A$(SS).T1$.SS.SS.2.I....6.A$(SS ).T1$.SS.SS.2.I....7.SS.0.SS.0....7.SS.I T.1.SS.IT.1.&..7.I:.A$(SS).T1$.SS.SS.1., ..7..9..:. INSERT.J..:.IT.0..15060.J..:. I.IT.SS.1..1:A$(I).A$(I.1)...J:.J.0.X.1: A%(I,J).A%(I.1,J):.J,I.B.T:A$(SS).T1$:.I .0.X.1:A%(SS,I).TI%(I):.:IT.IT.1:..U..>. CHANGE ENTRY....>S1.S1.1:T1$.""....>PP. 0:.I.0.X.1:."...ENTRY ";S1.1;":-.".A..>. ".";B$(I);":.";J(A$(S1),PP.1,A%(S1,I).PP ).M..>."...............................A MEND"...F>."..COMMANDS AVAILABLE:"...P>. ". .>..RETURN.LEAVES ITEM UNCHANGED"...Z >." .>.INPUT NEW ITEM TO REPLACE ONE SHO WN"....>." .>.'DDD' DELETES WHOLE ENTRY" .0..>." .>.'ZZZ' LEAVES ENTRY UNCHANGED" .X..>Q$."":."..WHICH DO YOU REQUIRE:";Q$ .H..?.Q$."ZZZ"......?.Q$."".Q$.J(A$(S1), PP.1,A%(S1,I).PP)....?.Q$."DDD"..16180:. ... ?PP.A%(S1,I):T1$.T1$.Q$:TI%(I).C(T1$ ):.I:.16180:.14000...*?S1.SS:.15000:..2. 4?.J.S1.IT.1:A$(J).A$(J.1):.K.0.X.1:A%(J ,K).A%(J.1,K):.K,J.@.>?IT.IT.1:..M.HB. S EARCH.Y..BS1.0 :FF.0:."................. .#......"....B."..COMMANDS AVAILABLE:".. ..B.". .>.INPUT ITEM FOR NORMAL SEARCH". ...B." .>.PRECEDE WITH 'III' FOR INITIAL SEARCH".!..B." .>.PRECEDE WITH 'SSS' FO R SPECIAL SEARCH".L..B." .>..RETURN. FOR FIRST ITEM ON FILE"...BB."...QQQQQQQQQQ QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ";...LBT1$ ."":."...INPUT SEARCH COMMAND:";T1$.F.VB .H(T1$,3).."III".17140....BT1$.I(T1$,C(T 1$).3):.14000:S1.SS:.S1.IT.1......B.1724 0....B.H(T1$,3).."SSS".17190.R..BFF.0:T1 $.I(T1$,C(T1$).3):.I.S1.IT.1:.J.1.C(A$(I ))....C.J(A$(I),J,C(T1$)).T1$.FF.1:S1.I: J.C(A$(I)):I.IT.1....C.J,I:.FF.1.T1$."SS S".T1$:.17240....C..E.&C.T1$."".17240... 0CFF.0:.I.S1.IT.1:PP.0:.J.0.X.1. .:C.J(A $(I),PP.1,A%(I,J).PP).T1$.FF.1:S1.I:J.X. 1:I.IT.1.@.DCPP.A%(I,J):.J,I:.FF.1.17240 .F.NC..[.XC.S1.IT.1.S1.IT.1.G.BC.IT.0... V.LC.S1.0.S1.0...VC."...ENTRY ";S1.1;":- .":PP.0.O..C.I.0.X.1:.".";B$(I);":.";J(A $(S1),PP.1,A%(S1,I).PP)....CPP.A%(S1,I): .I:S1.S1.1:.".........................." ....C."..SEARCH. .COMMANDS AVAILABLE:".P ..C.". .>..ENTER. FOR NEXT ITEM".J..C." .>.'AAA' TO AMEND"....C." .>.'CCC' TO CO NTINUE SEARCH"....C." .>.'#' FOLLOWED BY NO. TO MOVE POINTER"...FC." .>.'ZZZ' TO QUIT FUNCTION"...PCP$."":."..WHICH DO Y OU REQUIRE:";P$...ZC.P$."CCC".17110.,..C .P$."".17240.H..C.P$."AAA"..16000:.17240 .X..C.P$."ZZZ"......D.H(P$,1)."#".S1.S1. E(J(P$,2)).1:.17240....DS1.S1.1:.17240.. .PF. DATA FILES.X.NF."..POSITION TAPE CO RRECTLY OR INSERT DISK "....F."..COMMAND S AVAILABLE:":.".. 1)SAVE DATA":." 2)LOA D DATA".C..F." 3)SAVE ON DISK":." 4)LOAD FROM DISK"....F."..WHICH DO YOU REQUIRE :";Q:.Q.18070,18120,18575,18615:.....F.1 ,7:.I.1.2000:.....F."FILE NAME";SS$.E. F .1,1,1,SS$:.1,IT,R$,X....F.I.0.IT.1:.1,A $(I):.J.0.X.1:.1,A%(I,J):.J,I....F.I.0.X .1:.1,B$(I):.....F 1:..S.HF."FILE NAME"; SS$:.1,1,0,SS$:.1,IT,X:.B$(X.1),A%(499,X .1).A.RF.I.0.IT.1...TF.#1,T$:.T$..G(13). A$(I).A$(I).T$:.18132...VF.J.0.X.1:.1,A% (I,J):.J,I.B..F.I.0.X.1:.1,B$(I):..K..F 1:.....H."PROGRAM NAME";SS$:.15,8,15,"S0 :".SS$: 15. ..H.1,8,2,"0:".SS$.",S,W":.1 ,IT,R$,X.P..H.I.0.IT.1:.1,A$(I):.J.0.X.1 :.1,A%(I,J):.J,I.H..H.I.0.X.1:.1,B$(I):. .Q..H 1:.....H."PROGRAM NAME";SS$.A..H.1 ,8,2,"0:".SS$.",S,R":.1,IT,X:.B$(X.1),A% (499,X.1).O.FH.I.0.IT.1...HH.#1,T$:.T$.. G(13).A$(I).A$(I).T$:.18632...JH.J.0.X.1 :.1,A%(I,J):.J,I.0.PH.I.0.X.1:.1,B$(I):. .9.ZH 1:......
> CLICK IMAGE PREVIEW FOR FULL MODAL