KARTOTEK
FILE INFORMATION
FILENAME(S): KARTOTEK
FILE TYPE(S): PRG
FILE SIZE: 8K
FIRST SEEN: 2025-11-30 19:38:26
APPEARS ON: 1 disk(s)
FILE HASH
b4ba64f179df0eaa813dc46ae1143d5ea26c1e0fd7c109a9609ec1dfb9e5d4f8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KARTOTEK | KARTOTEK | PRG | Curtcool, Brian | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 02 00 99 C7 28 38 29 3A 8D 36 3A 89 |........(8):.6:.|
00000010: 31 30 30 00 4C 08 06 00 86 46 43 28 38 2C 31 29 |100.L....FC(8,1)|
00000020: 3A 81 49 B2 31 A4 38 3A 87 46 43 28 49 2C 30 29 |:.I.1.8:.FC(I,0)|
00000030: 3A 46 43 28 49 2C 31 29 B2 AB 31 3A 82 3A 83 2D |:FC(I,1)..1:.:.-|
00000040: 31 2C 2C 2C 2C 2C 2D 31 2C 2D 31 2C 00 7B 08 0C |1,,,,,-1,-1,.{..|
00000050: 00 86 4F 46 28 33 29 3A 4F 46 28 30 29 B2 36 34 |..OF(3):OF(0).64|
00000060: 3A 4F 46 28 31 29 B2 30 3A 4F 46 28 32 29 B2 31 |:OF(1).0:OF(2).1|
00000070: 32 38 3A 4F 46 28 33 29 B2 36 34 00 8C 08 0E 00 |28:OF(3).64.....|
00000080: 86 4C 58 28 38 29 2C 48 58 28 38 29 00 96 08 14 |.LX(8),HX(8)....|
00000090: 00 56 49 43 B2 30 00 B1 08 16 00 42 44 B2 35 33 |.VIC.0.....BD.53|
000000A0: 32 38 30 3A 42 47 B2 35 33 32 38 31 3A 42 42 B2 |280:BG.53281:BB.|
000000B0: 30 00 C3 08 18 00 43 43 24 B2 C7 28 35 29 3A 42 |0.....CC$..(5):B|
000000C0: 43 B2 30 00 DB 08 1C 00 53 42 B2 31 30 32 34 3A |C.0.....SB.1024:|
000000D0: 4C 4C B2 34 30 3A 53 48 B2 32 35 00 EB 08 28 00 |LL.40:SH.25...(.|
000000E0: 97 42 47 2C 30 3A 97 42 44 2C 30 00 F6 08 2A 00 |.BG,0:.BD,0...*.|
000000F0: 99 C7 28 31 34 29 00 1A 09 2C 00 47 52 24 B2 C7 |..(14)...,.GR$..|
00000100: 28 33 30 29 3A 50 55 24 B2 C7 28 31 35 36 29 3A |(30):PU$..(156):|
00000110: 59 4C 24 B2 C7 28 31 35 38 29 00 33 09 2E 00 43 |YL$..(158).3...C|
00000120: 53 24 B2 C7 28 31 34 37 29 3A 43 48 24 B2 C7 28 |S$..(147):CH$..(|
00000130: 31 39 29 00 4C 09 30 00 43 44 24 B2 C7 28 31 37 |19).L.0.CD$..(17|
00000140: 29 3A 43 55 24 B2 C7 28 31 34 35 29 00 65 09 32 |):CU$..(145).e.2|
00000150: 00 52 56 24 B2 C7 28 31 38 29 3A 52 4F 24 B2 C7 |.RV$..(18):RO$..|
00000160: 28 31 34 36 29 00 8E 09 34 00 43 4C 24 B2 C7 28 |(146)...4.CL$..(|
00000170: 31 35 37 29 3A 43 52 24 B2 C7 28 32 39 29 3A 43 |157):CR$..(29):C|
00000180: 34 24 B2 43 44 24 AA 43 44 24 AA 43 44 24 00 BB |4$.CD$.CD$.CD$..|
00000190: 09 38 00 44 4C 24 B2 C7 28 32 30 29 3A 44 34 24 |.8.DL$..(20):D4$|
000001A0: B2 44 4C 24 AA 44 4C 24 AA 44 4C 24 AA 44 4C 24 |.DL$.DL$.DL$.DL$|
000001B0: 3A 49 53 24 B2 C7 28 31 34 38 29 00 C9 09 3A 00 |:IS$..(148)...:.|
000001C0: 52 54 24 B2 C7 28 31 33 29 00 E1 09 3C 00 51 54 |RT$..(13)...<.QT|
000001D0: 24 B2 C7 28 33 34 29 3A 43 4D 24 B2 C7 28 34 34 |$..(34):CM$..(44|
000001E0: 29 00 21 0A 46 00 55 4C 24 B2 C9 28 22 C0 C0 C0 |).!.F.UL$..("...|
000001F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000200: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000210: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 2C 4C 4C |............",LL|
00000220: 29 00 5F 0A 48 00 58 31 24 B2 43 44 24 AA 52 56 |)._.H.X1$.CD$.RV|
00000230: 24 AA 43 43 24 3A 58 32 24 B2 52 4F 24 AA 22 20 |$.CC$:X2$.RO$." |
00000240: 22 AA 47 52 24 AA 52 56 24 3A 58 33 24 B2 52 4F |".GR$.RV$:X3$.RO|
00000250: 24 AA 22 20 20 20 22 AA 52 56 24 AA 43 43 24 00 |$." ".RV$.CC$.|
00000260: 6F 0A 4A 00 58 34 24 B2 58 34 24 AA 43 55 24 00 |o.J.X4$.X4$.CU$.|
00000270: 9E 0A 4C 00 86 4D 24 28 39 29 3A 81 49 B2 30 A4 |..L..M$(9):.I.0.|
00000280: 39 3A 87 4D 24 28 49 29 3A 82 3A 83 22 20 D2 45 |9:.M$(I):.:." .E|
00000290: 53 45 51 55 45 4E 43 45 20 44 41 54 41 22 00 DC |SEQUENCE DATA"..|
000002A0: 0A 4E 00 83 22 20 CF 50 45 4E 20 41 20 46 49 4C |.N.." .PEN A FIL|
000002B0: 45 20 20 20 20 22 2C 22 20 C5 4E 54 45 52 20 52 |E "," .NTER R|
000002C0: 45 43 4F 52 44 53 20 20 22 2C 22 20 D6 49 45 57 |ECORDS "," .IEW|
000002D0: 20 52 45 43 4F 52 44 53 20 20 20 22 00 1E 0B 50 | RECORDS "...P|
000002E0: 00 83 22 20 D3 45 41 52 43 48 20 52 45 43 4F 52 |.." .EARCH RECOR|
000002F0: 44 53 20 20 20 22 2C 22 20 D3 41 56 45 20 44 49 |DS "," .AVE DI|
00000300: 53 43 20 46 49 4C 45 20 20 22 2C 22 20 CC 4F 41 |SC FILE "," .OA|
00000310: 44 20 44 49 53 43 20 46 49 4C 45 20 20 22 00 34 |D DISC FILE ".4|
00000320: 0B 52 00 83 22 20 D1 55 49 54 20 50 52 4F 47 52 |.R.." .UIT PROGR|
00000330: 41 4D 20 22 00 4D 0B 53 00 83 2C 22 CD 45 52 47 |AM ".M.S..,".ERG|
00000340: 45 20 44 49 53 4B 20 46 49 4C 45 20 22 00 6A 0B |E DISK FILE ".j.|
00000350: 54 00 86 41 55 24 28 36 29 3A 81 49 B2 31 A4 36 |T..AU$(6):.I.1.6|
00000360: 3A 87 41 55 24 28 49 29 3A 82 00 AB 0B 56 00 83 |:.AU$(I):....V..|
00000370: 22 C6 4F 52 57 41 52 44 22 2C 22 20 C2 41 43 4B |".ORWARD"," .ACK|
00000380: 20 20 22 2C 22 20 CD 45 4E 55 20 20 22 2C 22 20 | "," .ENU "," |
00000390: C1 4D 45 4E 44 20 22 2C 22 C4 45 4C 45 54 45 20 |.MEND ",".ELETE |
000003A0: 22 2C 22 20 D0 52 49 4E 54 20 22 00 DD 0B 60 00 |"," .RINT "...`.|
000003B0: 57 31 24 B2 52 56 24 AA 50 55 24 AA 22 20 C1 D2 |W1$.RV$.PU$." ..|
000003C0: C5 A0 D9 CF D5 A0 D3 D5 D2 C5 28 59 2F 4E 29 20 |..........(Y/N) |
000003D0: 3F 20 22 AA 43 43 24 AA 52 4F 24 3A 8E 00 EE 0B |? ".CC$.RO$:....|
000003E0: 64 00 99 43 53 24 AA 43 43 24 AA 55 4C 24 00 20 |d..CS$.CC$.UL$. |
000003F0: 0C 6E 00 99 50 55 24 22 20 2A 20 20 20 2A 20 20 |.n..PU$" * * |
00000400: 2A 20 20 2A 20 2A 20 20 2A 20 20 20 2A 20 20 20 |* * * * * |
00000410: 2A 20 2A 2A 2A 20 2A 20 20 2A 20 2A 20 20 2A 22 |* *** * * * *"|
00000420: 00 4F 0C 78 00 99 22 20 2A 2A 20 2A 2A 20 2A 20 |.O.x.." ** ** * |
00000430: 2A 20 2A 20 2A 2A 20 2A 20 20 20 2A 2A 20 2A 2A |* * ** * ** **|
00000440: 20 2A 20 20 20 2A 2A 20 2A 20 2A 20 20 2A 22 00 | * ** * * *".|
00000450: 7E 0C 82 00 99 22 20 2A 20 2A 20 2A 20 2A 2A 2A |~...." * * * ***|
00000460: 20 2A 20 2A 20 2A 2A 20 20 20 2A 20 2A 20 2A 20 | * * ** * * * |
00000470: 2A 2A 20 20 2A 20 2A 2A 20 2A 20 20 2A 22 00 AD |** * ** * *"..|
00000480: 0C 8C 00 99 22 20 2A 20 20 20 2A 20 2A 20 2A 20 |...." * * * * |
00000490: 2A 20 2A 20 20 2A 20 20 20 2A 20 20 20 2A 20 2A |* * * * * *|
000004A0: 20 20 20 2A 20 20 2A 20 2A 20 20 2A 22 00 DB 0C | * * * *"...|
000004B0: 96 00 99 22 20 2A 20 20 20 2A 20 2A 20 2A 20 2A |..." * * * * *|
000004C0: 20 2A 20 20 2A 20 20 20 2A 20 20 20 2A 20 2A 2A | * * * * **|
000004D0: 2A 20 2A 20 20 2A 20 20 2A 2A 22 00 E7 0C A0 00 |* * * **".....|
000004E0: 99 43 43 24 55 4C 24 00 FF 0C F4 01 99 58 31 24 |.CC$UL$......X1$|
000004F0: 22 31 22 58 32 24 4D 24 28 31 29 58 33 24 3B 00 |"1"X2$M$(1)X3$;.|
00000500: 0D 0D FE 01 8B 46 44 B2 30 A7 35 35 30 00 1E 0D |.....FD.0.550...|
00000510: 08 02 99 22 34 22 58 32 24 4D 24 28 34 29 00 40 |..."4"X2$M$(4).@|
00000520: 0D 12 02 99 58 31 24 22 32 22 58 32 24 4D 24 28 |....X1$"2"X2$M$(|
00000530: 32 29 58 33 24 22 35 22 58 32 24 4D 24 28 35 29 |2)X3$"5"X2$M$(5)|
00000540: 00 58 0D 1C 02 99 58 31 24 22 33 22 58 32 24 4D |.X....X1$"3"X2$M|
00000550: 24 28 33 29 58 33 24 3B 00 69 0D 26 02 99 22 36 |$(3)X3$;.i.&.."6|
00000560: 22 58 32 24 4D 24 28 36 29 00 88 0D 2E 02 99 A3 |"X2$M$(6).......|
00000570: 31 30 29 43 55 24 58 31 24 22 37 22 58 32 24 4D |10)CU$X1$"7"X2$M|
00000580: 24 28 37 29 22 11 11 22 00 BA 0D 30 02 8B 28 4E |$(7)".."...0..(N|
00000590: 46 B1 31 29 AF 46 44 A7 99 A3 39 29 58 31 24 43 |F.1).FD...9)X1$C|
000005A0: 55 24 43 55 24 22 38 22 58 32 24 4D 24 28 30 29 |U$CU$"8"X2$M$(0)|
000005B0: 58 33 24 3B 43 44 24 43 44 24 00 E7 0D 58 02 99 |X3$;CD$CD$...X..|
000005C0: A3 31 31 29 58 34 24 22 20 D3 C5 CC C5 C3 D4 20 |.11)X4$" ...... |
000005D0: 20 CF D0 D4 C9 CF CE A0 22 52 4F 24 3A 81 44 B2 | ......."RO$:.D.|
000005E0: 31 A4 32 35 30 3A 82 00 FA 0D 62 02 A1 41 24 3A |1.250:....b..A$:|
000005F0: 8B 41 24 B2 22 22 A7 36 35 30 00 1E 0E 6C 02 41 |.A$."".650...l.A|
00000600: B2 C6 28 41 24 29 AB 34 38 3A 8B 41 B3 31 B0 41 |..(A$).48:.A.1.A|
00000610: B1 38 A7 8D 31 30 30 30 30 3A 89 36 35 30 00 27 |.8..10000:.650.'|
00000620: 0E 76 02 89 37 30 30 00 54 0E 8A 02 99 A3 31 31 |.v..700.T.....11|
00000630: 29 58 34 24 52 56 24 22 20 D3 C5 CC C5 C3 D4 A0 |)X4$RV$" .......|
00000640: A0 CF D0 D4 C9 CF CE A0 22 3A 81 44 B2 31 A4 32 |........":.D.1.2|
00000650: 35 30 3A 82 00 67 0E 94 02 A1 41 24 3A 8B 41 24 |50:..g....A$:.A$|
00000660: B2 22 22 A7 36 30 30 00 8B 0E 9E 02 41 B2 C6 28 |."".600.....A..(|
00000670: 41 24 29 AB 34 38 3A 8B 41 B3 31 B0 41 B1 38 A7 |A$).48:.A.1.A.8.|
00000680: 8D 31 30 30 30 30 3A 89 36 30 30 00 A7 0E BC 02 |.10000:.600.....|
00000690: 8B A8 46 43 28 41 2C AB 46 44 29 A7 8D 31 30 30 |..FC(A,.FD)..100|
000006A0: 30 30 3A 89 36 30 30 00 BF 0E 20 03 8B 46 43 28 |00:.600... ..FC(|
000006B0: 41 2C 30 29 B2 30 B0 46 44 B2 30 A7 38 39 30 00 |A,0).0.FD.0.890.|
000006C0: FE 0E 22 03 8B 41 B2 36 A7 99 A3 31 31 29 58 31 |.."..A.6...11)X1|
000006D0: 24 22 CD C5 D2 C7 C5 A0 C5 D8 C9 D3 D4 C9 CE C7 |$"..............|
000006E0: A0 C4 C1 D4 C1 3F 22 3B 3A 8D 31 30 35 30 30 3A |.....?";:.10500:|
000006F0: 41 B2 31 32 AB 33 AC 49 58 3A 89 39 30 30 00 13 |A.12.3.IX:.900..|
00000700: 0F 2A 03 49 58 24 B2 4D 24 28 41 29 3A 8D 31 34 |.*.IX$.M$(A):.14|
00000710: 35 30 30 00 25 0F 34 03 8B 41 41 24 B3 B1 22 59 |500.%.4..AA$.."Y|
00000720: 22 A7 31 30 30 00 32 0F 3E 03 8B 41 B2 37 A7 39 |".100.2.>..A.7.9|
00000730: 30 30 00 50 0F 48 03 97 36 33 31 2C 41 3A 9C 3A |00.P.H..631,A:.:|
00000740: 8D 36 3A 41 B2 C2 28 36 33 31 29 3A 89 37 30 30 |.6:A..(631):.700|
00000750: 00 79 0F 7A 03 8B 55 B2 30 AF 28 28 41 B2 33 29 |.y.z..U.0.((A.3)|
00000760: B0 28 41 B2 34 29 B0 28 41 B2 38 29 29 A7 8D 31 |.(A.4).(A.8))..1|
00000770: 30 30 30 30 3A 89 36 30 30 00 AA 0F 84 03 91 41 |0000:.600......A|
00000780: 8D 31 30 30 30 2C 32 30 30 30 2C 33 39 38 30 2C |.1000,2000,3980,|
00000790: 34 30 30 30 2C 39 35 30 2C 39 35 30 2C 37 30 30 |4000,950,950,700|
000007A0: 30 2C 38 30 30 30 2C 39 35 30 00 B3 0F 8E 03 89 |0,8000,950......|
000007B0: 31 30 30 00 D5 0F B6 03 8B 20 41 41 24 B2 22 4E |100...... AA$."N|
000007C0: 22 A7 20 9C 3A 8D 36 3A 41 B2 36 3A 8D 39 35 35 |". .:.6:A.6:.955|
000007D0: 3A 89 31 30 30 00 F7 0F BB 03 99 52 4F 24 3B 43 |:.100......RO$;C|
000007E0: 53 24 3B 47 52 24 3B A3 31 31 29 3B 4D 24 28 41 |S$;GR$;.11);M$(A|
000007F0: 29 43 34 24 22 11 22 00 2D 10 C0 03 99 22 CE 41 |)C4$".".-....".A|
00000800: 4D 45 20 4F 46 20 46 49 4C 45 3A 3F 22 3A 58 B2 |ME OF FILE:?":X.|
00000810: 31 36 3A 59 B2 35 AB 56 49 43 3A 5A B2 31 30 3A |16:Y.5.VIC:Z.10:|
00000820: 8D 31 33 30 30 30 3A 46 24 B2 49 58 24 00 3C 10 |.13000:F$.IX$.<.|
00000830: CC 03 8B 46 24 B2 22 22 A7 39 35 30 00 4B 10 D4 |...F$."".950.K..|
00000840: 03 8B 41 B1 B2 36 A7 36 30 30 30 00 59 10 DE 03 |..A..6.6000.Y...|
00000850: 8B 41 B2 35 A7 35 30 30 30 00 81 10 E8 03 99 43 |.A.5.5000......C|
00000860: 53 24 43 44 24 22 CE 55 4D 42 45 52 20 4F 46 20 |S$CD$".UMBER OF |
00000870: 46 49 45 4C 44 53 20 28 31 2D 38 29 3A 3F 20 22 |FIELDS (1-8):? "|
00000880: 3B 00 BF 10 F2 03 4F 4B 24 B2 22 31 32 33 34 35 |;.....OK$."12345|
00000890: 36 37 38 22 3A 8D 31 30 36 30 30 3A 4E 46 B2 49 |678":.10600:NF.I|
000008A0: 58 3A 99 41 41 24 43 44 24 3A 59 B2 33 AB 56 49 |X:.AA$CD$:Y.3.VI|
000008B0: 43 3A 54 54 B2 35 AB 53 48 AB 32 AC 56 49 43 00 |C:TT.5.SH.2.VIC.|
000008C0: CB 10 FC 03 81 4E B2 31 A4 4E 46 00 E8 10 06 04 |.....N.1.NF.....|
000008D0: 99 22 C5 4E 54 45 52 20 48 45 41 44 49 4E 47 22 |.".NTER HEADING"|
000008E0: 4E 22 20 3A 3F 20 22 3B 00 FD 10 10 04 58 B2 32 |N" :? ";.....X.2|
000008F0: 30 3A 5A B2 31 30 3A 8D 31 33 30 30 30 00 1F 11 |0:Z.10:.13000...|
00000900: 15 04 8B C3 28 49 58 24 29 B2 30 A7 99 52 4F 24 |....(IX$).0..RO$|
00000910: 52 54 24 43 55 24 43 55 24 3A 89 31 30 33 30 00 |RT$CU$CU$:.1030.|
00000920: 2E 11 1A 04 48 44 24 28 4E 29 B2 49 58 24 00 4E |....HD$(N).IX$.N|
00000930: 11 24 04 99 A3 31 33 29 3A 99 44 34 24 44 34 24 |.$...13):.D4$D4$|
00000940: 44 34 24 3A 58 B2 30 3A 8D 31 31 35 30 30 00 70 |D4$:X.0:.11500.p|
00000950: 11 2E 04 99 22 C5 4E 54 45 52 20 46 49 45 4C 44 |....".NTER FIELD|
00000960: 20 22 49 58 24 22 20 4C 45 4E 47 54 48 3A 3F 22 | "IX$" LENGTH:?"|
00000970: 00 A3 11 38 04 58 B2 32 33 AA C3 28 48 44 24 28 |...8.X.23..(HD$(|
00000980: 4E 29 29 3A 5A B2 32 3A 8D 31 33 30 30 30 3A 8B |N)):Z.2:.13000:.|
00000990: 49 58 24 B2 22 22 A7 8D 31 30 30 30 30 3A 89 31 |IX$.""..10000:.1|
000009A0: 30 38 30 00 C4 11 42 04 8D 31 32 30 30 30 3A 48 |080...B..12000:H|
000009B0: 58 28 4E 29 B2 32 AA B5 28 28 31 32 AA 49 58 29 |X(N).2..((12.IX)|
000009C0: AD 4C 4C 29 00 E3 11 44 04 8B 49 58 B3 31 B0 48 |.LL)...D..IX.1.H|
000009D0: 58 28 4E 29 B1 33 A7 8D 31 30 30 30 30 3A 89 31 |X(N).3..10000:.1|
000009E0: 30 38 30 00 F3 11 46 04 54 54 B2 54 54 AA 48 58 |080...F.TT.TT.HX|
000009F0: 28 4E 29 00 0A 12 48 04 4C 58 28 4E 29 B2 49 58 |(N)...H.LX(N).IX|
00000A00: 3A 59 B2 59 AA 32 3A 99 3A 99 00 10 12 4A 04 82 |:Y.Y.2:.:....J..|
00000A10: 00 49 12 4C 04 4C 4E B2 30 3A 81 49 B2 31 A4 4E |.I.L.LN.0:.I.1.N|
00000A20: 46 3A 4C 4E B2 4C 4E AA 4C 58 28 49 29 3A 82 3A |F:LN.LN.LX(I):.:|
00000A30: 46 52 B2 B8 28 30 29 3A 8B 46 52 B3 30 A7 46 52 |FR..(0):.FR.0.FR|
00000A40: B2 46 52 AA 36 35 35 33 36 00 61 12 56 04 56 B2 |.FR.65536.a.V.V.|
00000A50: B5 28 46 52 AD 28 4C 4E AA 35 AA 33 AC 4E 46 29 |.(FR.(LN.5.3.NF)|
00000A60: 29 00 8B 12 60 04 99 22 D9 4F 55 20 43 41 4E 20 |)...`..".OU CAN |
00000A70: 55 53 45 20 22 56 22 52 45 43 4F 52 44 53 22 3A |USE "V"RECORDS":|
00000A80: 81 44 B2 31 A4 31 35 30 30 3A 82 00 A0 12 6A 04 |.D.1.1500:....j.|
00000A90: 86 54 24 28 56 2C 4E 46 AB 31 29 2C 52 28 56 29 |.T$(V,NF.1),R(V)|
00000AA0: 00 A9 12 74 04 55 30 B2 30 00 B5 12 B0 04 81 55 |...t.U0.0......U|
00000AB0: B2 55 30 A4 56 00 ED 12 BA 04 99 43 53 24 43 43 |.U0.V......CS$CC|
00000AC0: 24 52 56 24 22 D9 4F 55 20 48 41 56 45 20 55 53 |$RV$".OU HAVE US|
00000AD0: 45 44 22 55 22 9D 20 4F 55 54 20 4F 46 22 56 22 |ED"U". OUT OF"V"|
00000AE0: 9D 20 52 45 43 4F 52 44 53 22 43 44 24 00 FF 12 |. RECORDS"CD$...|
00000AF0: C4 04 55 50 B2 55 3A 52 28 55 50 29 B2 55 50 00 |..UP.U:R(UP).UP.|
00000B00: 0C 13 CE 04 81 49 58 B2 31 A4 4E 46 00 16 13 D8 |.....IX.1.NF....|
00000B10: 04 8D 33 37 32 30 00 2C 13 E2 04 8B 49 58 B2 31 |..3720.,....IX.1|
00000B20: AF 49 58 24 B2 22 22 A7 31 34 30 30 00 3B 13 EC |.IX$."".1400.;..|
00000B30: 04 81 49 B2 31 A4 35 30 30 3A 82 00 41 13 00 05 |..I.1.500:..A...|
00000B40: 82 00 4F 13 14 05 8B 55 B2 30 A7 31 33 34 30 00 |..O....U.0.1340.|
00000B50: 69 13 16 05 49 58 24 B2 54 24 28 55 2C 30 29 3A |i...IX$.T$(U,0):|
00000B60: 52 55 B2 55 3A 53 55 B2 55 00 77 13 1E 05 81 55 |RU.U:SU.U.w....U|
00000B70: 32 B2 30 A4 55 AB 31 00 91 13 28 05 8B 54 24 28 |2.0.U.1...(..T$(|
00000B80: 52 28 55 32 29 2C 30 29 B1 49 58 24 A7 31 33 35 |R(U2),0).IX$.135|
00000B90: 30 00 97 13 32 05 82 00 A7 13 3C 05 55 32 B2 53 |0...2.....<.U2.S|
00000BA0: 55 3A 89 31 33 38 30 00 B9 13 46 05 81 44 4E B2 |U:.1380...F..DN.|
00000BB0: 55 A4 55 32 AA 31 A9 AB 31 00 CB 13 50 05 52 28 |U.U2.1..1...P.R(|
00000BC0: 44 4E 29 B2 52 28 44 4E AB 31 29 00 D1 13 5A 05 |DN).R(DN.1)...Z.|
00000BD0: 82 00 10 14 64 05 52 28 55 32 29 B2 52 55 3A 8B |....d.R(U2).RU:.|
00000BE0: 41 B1 32 A7 55 50 B2 55 32 3A 99 43 48 24 43 43 |A.2.UP.U2:.CH$CC|
00000BF0: 24 52 56 24 22 20 D4 C8 C9 D3 A0 C9 D3 A0 D2 C5 |$RV$" ..........|
00000C00: C3 CF D2 C4 A0 22 55 50 AA 31 3A 89 33 31 30 30 |....."UP.1:.3100|
00000C10: 00 17 14 6E 05 82 55 00 21 14 78 05 46 44 B2 AB |...n..U.!.x.FD..|
00000C20: 31 00 27 14 C6 07 8E 00 34 14 D0 07 55 30 B2 55 |1.'.....4...U0.U|
00000C30: 3A 42 B2 31 00 3E 14 34 08 89 31 32 30 30 00 4A |:B.1.>.4..1200.J|
00000C40: 14 B8 0B 55 30 B2 55 50 AB 31 00 65 14 C2 0B 8B |...U0.UP.1.e....|
00000C50: 55 30 B3 30 A7 55 30 B2 55 AB 31 3A 8B 41 B2 34 |U0.0.U0.U.1:.A.4|
00000C60: A7 33 39 32 30 00 74 14 CC 0B 81 55 50 B2 55 30 |.3920.t....UP.U0|
00000C70: A4 55 AB 31 00 82 14 D6 0B 8B 41 B2 34 A7 34 31 |.U.1......A.4.41|
00000C80: 31 30 00 A7 14 E0 0B 99 43 53 24 43 43 24 52 56 |10......CS$CC$RV|
00000C90: 24 22 20 D4 C8 C9 D3 A0 C9 D3 A0 D2 C5 C3 CF D2 |$" .............|
00000CA0: C4 A0 22 55 50 AA 31 00 BC 14 EA 0B 81 49 58 B2 |.."UP.1......IX.|
00000CB0: 31 A4 4E 46 3A 8D 33 37 37 30 3A 82 00 D8 14 1C |1.NF:.3770:.....|
00000CC0: 0C 58 B2 30 3A 59 B2 53 48 AB 32 AA 32 AC 56 49 |.X.0:Y.SH.2.2.VI|
00000CD0: 43 3A 8D 31 31 35 30 30 00 06 15 26 0C 81 49 B2 |C:.11500...&..I.|
00000CE0: 31 A4 36 3A 99 58 33 24 58 32 24 41 55 24 28 49 |1.6:.X3$X2$AU$(I|
00000CF0: 29 3B 3A 8B 49 B2 33 A7 99 52 4F 24 22 20 20 20 |);:.I.3..RO$" |
00000D00: 20 20 20 20 22 3B 00 0C 15 30 0C 82 00 33 15 3A | ";...0...3.:|
00000D10: 0C 99 43 55 24 43 55 24 43 55 24 52 54 24 58 33 |..CU$CU$CU$RT$X3|
00000D20: 24 58 32 24 3B A6 31 31 29 22 C3 2D 50 52 49 4E |$X2$;.11)".-PRIN|
00000D30: 54 22 3B 00 45 15 44 0C 8B 41 41 24 B2 22 43 22 |T";.E.D..AA$."C"|
00000D40: A7 33 36 33 30 00 5F 15 80 0C 4F 4B 24 B2 22 46 |.3630._...OK$."F|
00000D50: 42 4D 41 44 50 20 43 22 3A 8D 31 30 36 30 30 00 |BMADP C":.10600.|
00000D60: 68 15 8A 0C 42 B2 49 58 00 9D 15 E4 0C 99 52 4F |h...B.IX......RO|
00000D70: 24 3B 3A 91 42 89 33 39 30 30 2C 33 30 30 30 2C |$;:.B.3900,3000,|
00000D80: 31 39 39 30 2C 33 37 30 30 2C 33 34 30 30 2C 33 |1990,3700,3400,3|
00000D90: 36 30 30 2C 33 39 30 30 2C 33 36 30 30 00 B4 15 |600,3900,3600...|
00000DA0: 48 0D 49 58 24 B2 41 55 24 28 49 58 29 3A 8D 31 |H.IX$.AU$(IX):.1|
00000DB0: 34 35 30 30 00 CD 15 5C 0D 8B 41 41 24 B2 22 4E |4500...\..AA$."N|
00000DC0: 22 A7 8D 33 37 32 30 3A 89 33 31 30 30 00 D7 15 |"..3720:.3100...|
00000DD0: 66 0D 55 B2 55 AB 31 00 E2 15 70 0D 8B 55 B2 30 |f.U.U.1...p..U.0|
00000DE0: A7 8E 00 FA 15 7A 0D 52 55 B2 52 28 55 50 29 3A |.....z.RU.R(UP):|
00000DF0: 8B 55 50 B2 55 A7 33 34 37 30 00 19 16 84 0D 81 |.UP.U.3470......|
00000E00: 44 4E B2 55 50 A4 55 AB 31 3A 52 28 44 4E 29 B2 |DN.UP.U.1:R(DN).|
00000E10: 52 28 44 4E AA 31 29 3A 82 00 28 16 8E 0D 8B 52 |R(DN.1):..(....R|
00000E20: 55 B2 55 A7 33 35 31 30 00 45 16 98 0D 81 44 4E |U.U.3510.E....DN|
00000E30: B2 30 A4 55 AB 31 3A 8B 52 28 44 4E 29 B3 B1 55 |.0.U.1:.R(DN)..U|
00000E40: A7 33 35 30 30 00 76 16 A2 0D 52 28 44 4E 29 B2 |.3500.v...R(DN).|
00000E50: 52 55 3A 81 4E B2 31 A4 4E 46 3A 54 24 28 52 55 |RU:.N.1.NF:T$(RU|
00000E60: 2C 4E AB 31 29 B2 54 24 28 55 2C 4E AB 31 29 3A |,N.1).T$(U,N.1):|
00000E70: 82 3A 44 4E B2 55 00 7C 16 AC 0D 82 00 8B 16 B6 |.:DN.U.|........|
00000E80: 0D 8B 55 50 B2 55 A7 33 39 38 30 00 95 16 C0 0D |..UP.U.3980.....|
00000E90: 89 33 30 34 30 00 C0 16 10 0E 8D 33 37 32 30 3A |.3040......3720:|
00000EA0: 99 22 C9 53 20 50 52 49 4E 54 45 52 20 52 45 41 |.".S PRINTER REA|
00000EB0: 44 59 28 59 2F 4E 29 22 3B 3A 8D 31 30 35 30 30 |DY(Y/N)";:.10500|
00000EC0: 00 D9 16 1A 0E 8B 41 41 24 B2 22 4E 22 A7 8D 33 |......AA$."N"..3|
00000ED0: 37 32 30 3A 89 33 31 30 30 00 E7 16 24 0E 9F 34 |720:.3100...$..4|
00000EE0: 2C 34 2C 37 3A 9D 34 00 15 17 2E 0E 98 34 2C 22 |,4,7:.4......4,"|
00000EF0: 20 54 48 49 53 20 52 45 43 4F 52 44 20 22 55 50 | THIS RECORD "UP|
00000F00: AA 31 22 20 55 53 45 44 20 22 55 22 20 52 45 43 |.1" USED "U" REC|
00000F10: 4F 52 44 53 22 00 4F 17 38 0E 81 4E B2 31 A4 4E |ORDS".O.8..N.1.N|
00000F20: 46 3A 98 34 3A 98 34 2C 22 20 22 48 44 24 28 4E |F:.4:.4," "HD$(N|
00000F30: 29 22 3A 22 A6 31 32 AB C3 28 48 44 24 28 4E 29 |)":".12..(HD$(N)|
00000F40: 29 29 54 24 28 52 28 55 50 29 2C 4E AB 31 29 00 |))T$(R(UP),N.1).|
00000F50: 7B 17 42 0E 82 3A 98 34 2C 55 4C 24 3A 8B 42 B2 |{.B..:.4,UL$:.B.|
00000F60: 38 B0 41 41 24 B2 22 43 22 A7 41 41 24 B2 22 43 |8.AA$."C".AA$."C|
00000F70: 22 3A 42 B2 31 3A 89 33 39 30 30 00 88 17 4C 0E |":B.1:.3900...L.|
00000F80: A0 34 3A 89 33 31 30 30 00 C6 17 74 0E 8D 31 31 |.4:.3100...t..11|
00000F90: 35 30 30 3A 99 58 32 24 52 4F 24 22 20 20 20 20 |500:.X2$RO$" |
00000FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FC0: 20 20 20 20 22 3B 00 F0 17 79 0E 99 22 20 20 20 | ";...y.." |
00000FD0: 20 D0 CC C5 C1 D3 C5 A0 C9 CE D0 D5 D4 A0 C6 C9 | ...............|
00000FE0: C5 CC C4 A0 CE D5 CD C2 C5 D2 A0 22 58 33 24 3B |..........."X3$;|
00000FF0: 00 10 18 7E 0E 4F 4B 24 B2 C8 28 22 31 32 33 34 |...~.OK$..("1234|
00001000: 35 36 37 38 22 2C 4E 46 29 3A 8D 31 30 36 30 30 |5678",NF):.10600|
00001010: 00 20 18 80 0E 8D 33 37 32 30 3A 89 33 38 30 30 |. ....3720:.3800|
00001020: 00 5A 18 88 0E 59 B2 53 48 AB 32 AA 32 AC 56 49 |.Z...Y.SH.2.2.VI|
00001030: 43 3A 58 B2 30 3A 8D 31 31 35 30 30 3A 99 52 4F |C:X.0:.11500:.RO|
00001040: 24 3B 3A 5A B2 4C 4C AC 28 32 AB 32 AC 56 49 43 |$;:Z.LL.(2.2.VIC|
00001050: 29 AB 32 3A 8D 31 33 35 30 30 00 69 18 8A 0E 8B |).2:.13500.i....|
00001060: 42 B2 36 B0 42 B2 38 A7 8E 00 93 18 92 0E 99 48 |B.6.B.8........H|
00001070: 44 24 28 49 58 29 52 4F 24 22 20 3A 22 3B 3A 58 |D$(IX)RO$" :";:X|
00001080: B2 31 32 3A 5A B2 4C 58 28 49 58 29 3A 8D 31 31 |.12:Z.LX(IX):.11|
00001090: 35 30 30 00 B1 18 B0 0E 8D 31 33 30 31 30 3A 54 |500......13010:T|
000010A0: 24 28 52 28 55 50 29 2C 49 58 AB 31 29 B2 49 58 |$(R(UP),IX.1).IX|
000010B0: 24 00 E1 18 BA 0E 59 B2 32 AB 56 49 43 3A 8B 49 |$.....Y.2.VIC:.I|
000010C0: 58 B1 31 A7 81 4E B2 31 A4 49 58 AB 31 3A 59 B2 |X.1..N.1.IX.1:Y.|
000010D0: 59 AA 48 58 28 4E 29 AA 28 4E B3 B2 54 54 29 3A |Y.HX(N).(N..TT):|
000010E0: 82 00 11 19 C4 0E 58 B2 30 3A 8D 31 31 35 30 30 |......X.0:.11500|
000010F0: 3A 99 52 4F 24 48 44 24 28 49 58 29 22 20 3A 22 |:.RO$HD$(IX)" :"|
00001100: A3 31 33 29 3B 3A 8B 41 B1 32 A7 8D 31 33 35 30 |.13);:.A.2..1350|
00001110: 30 00 27 19 CE 0E 99 54 24 28 52 28 55 50 29 2C |0.'....T$(R(UP),|
00001120: 49 58 AB 31 29 3A 8E 00 36 19 D8 0E 8B 49 58 B1 |IX.1):..6....IX.|
00001130: 31 A7 33 31 30 30 00 60 19 E2 0E 8B 55 50 B1 30 |1.3100.`....UP.0|
00001140: A7 8B 54 24 28 52 28 55 50 29 2C 30 29 B3 54 24 |..T$(R(UP),0).T$|
00001150: 28 52 28 55 50 AB 31 29 2C 30 29 A7 33 38 33 30 |(R(UP.1),0).3830|
00001160: 00 8C 19 EC 0E 8B 55 50 B2 55 AB 31 B0 54 24 28 |......UP.U.1.T$(|
00001170: 52 28 55 50 29 2C 30 29 B3 B2 54 24 28 52 28 55 |R(UP),0)..T$(R(U|
00001180: 50 AA 31 29 2C 30 29 A7 33 31 30 30 00 B6 19 F6 |P.1),0).3100....|
00001190: 0E 49 58 24 B2 54 24 28 52 28 55 50 29 2C 30 29 |.IX$.T$(R(UP),0)|
000011A0: 3A 52 55 B2 52 28 55 50 29 3A 8B 55 50 B2 55 AB |:RU.R(UP):.UP.U.|
000011B0: 31 A7 33 38 35 30 00 D5 19 00 0F 81 44 4E B2 55 |1.3850......DN.U|
000011C0: 50 A4 55 AB 31 3A 52 28 44 4E 29 B2 52 28 44 4E |P.U.1:R(DN).R(DN|
000011D0: AA 31 29 3A 82 00 E0 19 0A 0F 53 55 B2 55 AB 31 |.1):......SU.U.1|
000011E0: 00 EA 19 0F 0F 89 31 33 31 30 00 F2 19 3C 0F 82 |......1310...<..|
000011F0: 55 50 00 0A 1A 3E 0F 8B 41 41 24 B2 22 43 22 A7 |UP...>..AA$."C".|
00001200: A0 34 3A 41 41 24 B2 22 4E 22 00 19 1A 46 0F 8B |.4:AA$."N"...F..|
00001210: 41 B3 B1 34 A7 33 39 38 30 00 43 1A 50 0F 99 43 |A..4.3980.C.P..C|
00001220: 53 24 58 31 24 22 A0 C5 CE C4 A0 CF C6 A0 C6 C9 |S$X1$"..........|
00001230: CC C5 A0 D7 C8 C9 CC C5 A0 D3 C5 C1 D2 C3 C8 C9 |................|
00001240: CE C7 22 00 79 1A 5A 0F 99 58 31 24 22 20 C4 CF |..".y.Z..X1$" ..|
00001250: A0 D9 CF D5 A0 D7 C9 D3 C8 A0 D4 CF A0 D4 D2 D9 |................|
00001260: A0 C6 D2 CF CD A0 D3 D4 C1 D2 D4 28 59 2F 4E 29 |...........(Y/N)|
00001270: 3F 22 3A 8D 31 30 35 30 30 00 8C 1A 5F 0F 8B 41 |?":.10500..._..A|
00001280: 41 24 B2 22 59 22 A7 8D 34 30 30 30 00 9C 1A 64 |A$."Y"..4000...d|
00001290: 0F 8B 41 41 24 B3 B1 22 59 22 A7 8E 00 AA 1A 6E |..AA$.."Y".....n|
000012A0: 0F 8B 42 B2 32 A7 33 30 32 30 00 B7 1A 8C 0F 55 |..B.2.3020.....U|
000012B0: 30 B2 30 3A 42 B2 31 00 C1 1A 96 0F 89 33 30 31 |0.0:B.1......301|
000012C0: 30 00 CA 1A A0 0F 46 47 B2 30 00 05 1B A2 0F 99 |0.....FG.0......|
000012D0: 43 53 24 58 31 24 47 52 24 22 20 D7 C8 C9 C3 C8 |CS$X1$GR$" .....|
000012E0: A0 C6 C9 C5 CC C4 A0 C9 D3 A0 D4 CF A0 C2 C5 A0 |................|
000012F0: D3 C5 C1 D2 C3 C8 C5 C4 3F 3A 22 43 43 24 22 20 |........?:"CC$" |
00001300: 22 43 4C 24 3B 00 25 1B AA 0F 4F 4B 24 B2 C8 28 |"CL$;.%...OK$..(|
00001310: 22 31 32 33 34 35 36 37 38 22 2C 4E 46 29 3A 8D |"12345678",NF):.|
00001320: 31 30 36 30 30 00 3D 1B BE 0F 99 C7 28 49 58 AA |10600.=.....(IX.|
00001330: 34 38 29 3A 46 58 28 46 47 29 B2 49 58 00 69 1B |48):FX(FG).IX.i.|
00001340: C8 0F 99 58 31 24 47 52 24 22 20 D7 C8 C1 D4 A0 |...X1$GR$" .....|
00001350: C1 D2 C5 A0 D9 CF D5 A0 CC CF CF CB C9 CE C7 A0 |................|
00001360: C6 CF D2 3F 3A 22 43 43 24 00 9D 1B D2 0F 59 B2 |...?:"CC$.....Y.|
00001370: 38 3A 58 B2 30 3A 8D 31 31 35 30 30 3A 99 52 4F |8:X.0:.11500:.RO|
00001380: 24 48 44 24 28 49 58 29 22 20 3A 3F 22 3B 3A 58 |$HD$(IX)" :?";:X|
00001390: B2 C3 28 48 44 24 28 49 58 29 29 AA 34 00 D3 1B |..(HD$(IX)).4...|
000013A0: DC 0F 5A B2 4C 58 28 49 58 29 3A 8D 31 33 30 30 |..Z.LX(IX):.1300|
000013B0: 30 3A 8B C9 28 49 58 24 2C 31 29 B2 22 20 22 A7 |0:..(IX$,1)." ".|
000013C0: 49 58 24 B2 C8 28 49 58 24 2C C3 28 49 58 24 29 |IX$..(IX$,.(IX$)|
000013D0: AB 31 29 00 EC 1B E6 0F 8B 49 58 24 B2 22 22 A7 |.1)......IX$."".|
000013E0: 8D 31 30 30 30 30 3A 89 34 30 35 30 00 0A 1C F0 |.10000:.4050....|
000013F0: 0F 46 58 24 28 46 47 29 B2 49 58 24 3A 46 46 28 |.FX$(FG).IX$:FF(|
00001400: 46 47 29 B2 C3 28 49 58 24 29 00 4A 1C FA 0F 99 |FG)..(IX$).J....|
00001410: 52 54 24 58 31 24 22 20 C1 CE D9 D4 C8 C9 CE C7 |RT$X1$" ........|
00001420: A0 C5 CC D3 C5 28 59 2F 4E 29 3F 22 3A 8D 31 30 |.....(Y/N)?":.10|
00001430: 35 30 30 3A 8B 41 41 24 B2 22 59 22 A7 46 47 B2 |500:.AA$."Y".FG.|
00001440: 46 47 AA 31 3A 89 34 30 30 32 00 8C 1C FC 0F 8B |FG.1:.4002......|
00001450: 46 47 B1 30 A7 99 52 54 24 58 31 24 22 20 CD D5 |FG.0..RT$X1$" ..|
00001460: D3 D4 A0 C1 CC CC A0 D4 C8 C5 D3 C5 A0 C2 C5 A0 |................|
00001470: C6 CF D5 CE C4 A0 D4 CF C7 C5 D4 C8 C5 D2 28 59 |..............(Y|
00001480: 2F 4E 29 3F 22 3A 8D 31 30 35 30 30 00 9D 1C FE |/N)?":.10500....|
00001490: 0F 46 48 B2 28 41 41 24 B2 22 59 22 29 00 A7 1C |.FH.(AA$."Y")...|
000014A0: 04 10 89 33 39 38 30 00 B4 1C 0E 10 81 47 46 B2 |...3980......GF.|
000014B0: 30 A4 46 47 00 CF 1C 10 10 49 58 24 B2 54 24 28 |0.FG.....IX$.T$(|
000014C0: 52 28 55 50 29 2C 46 58 28 47 46 29 AB 31 29 00 |R(UP),FX(GF).1).|
000014D0: E6 1C 18 10 46 45 B2 C3 28 49 58 24 29 AB 46 46 |....FE..(IX$).FF|
000014E0: 28 47 46 29 AA 31 00 F5 1C 22 10 8B 46 45 B3 31 |(GF).1..."..FE.1|
000014F0: A7 34 31 35 34 00 23 1D 2C 10 81 4A B2 31 A4 46 |.4154.#.,..J.1.F|
00001500: 45 3A 8B CA 28 49 58 24 2C 4A 2C 46 46 28 47 46 |E:..(IX$,J,FF(GF|
00001510: 29 29 B3 B1 46 58 24 28 47 46 29 A7 82 3A 89 34 |))..FX$(GF)..:.4|
00001520: 31 35 34 00 3B 1D 36 10 8B 28 47 46 B2 46 47 29 |154.;.6..(GF.FG)|
00001530: B0 A8 28 46 48 29 A7 33 30 34 30 00 44 1D 38 10 |..(FH).3040.D.8.|
00001540: 82 20 47 46 00 53 1D 3A 10 8B A8 28 46 48 29 A7 |. GF.S.:...(FH).|
00001550: 82 47 46 00 61 1D 40 10 8B 42 B2 32 A7 33 30 30 |.GF.a.@..B.2.300|
00001560: 30 00 6B 1D 4A 10 89 33 39 30 30 00 A1 1D 88 13 |0.k.J..3900.....|
00001570: 99 43 53 24 52 56 24 22 20 20 20 20 20 20 20 20 |.CS$RV$" |
00001580: 20 C9 CE D3 C5 D2 D4 A0 C4 C9 D3 CB A0 C6 CF D2 | ...............|
00001590: A0 CF D5 D4 D0 D5 D4 A0 A0 A0 A0 A0 A0 A0 A0 A0 |................|
000015A0: 22 00 CB 1D 8D 13 99 22 20 20 20 20 20 20 D0 52 |"......" .R|
000015B0: 45 53 53 20 52 45 54 55 52 4E 20 4B 45 59 20 57 |ESS RETURN KEY W|
000015C0: 48 45 4E 20 52 45 41 44 59 2E 22 00 E1 1D 92 13 |HEN READY.".....|
000015D0: A1 41 24 3A 8B 41 24 B3 B1 52 54 24 A7 35 30 31 |.A$:.A$..RT$.501|
000015E0: 30 00 EF 1D EC 13 9F 31 2C 38 2C 31 2C 46 24 00 |0......1,8,1,F$.|
000015F0: 0F 1E F6 13 99 22 20 D3 41 56 49 4E 47 20 49 4E |....." .AVING IN|
00001600: 46 4F 52 4D 41 54 49 4F 4E 20 4E 4F 57 20 22 00 |FORMATION NOW ".|
00001610: 24 1E 00 14 98 31 2C 55 3B 43 4D 24 4E 46 3B 43 |$....1,U;CM$NF;C|
00001620: 4D 24 54 54 00 52 1E 0A 14 81 4E B2 31 A4 4E 46 |M$TT.R....N.1.NF|
00001630: 3A 98 31 2C 51 54 24 48 44 24 28 4E 29 51 54 24 |:.1,QT$HD$(N)QT$|
00001640: 43 4D 24 4C 58 28 4E 29 43 4D 24 48 58 28 4E 29 |CM$LX(N)CM$HX(N)|
00001650: 3A 82 00 87 1E 14 14 81 55 50 B2 30 A4 55 3A 81 |:.......UP.0.U:.|
00001660: 4E B2 31 A4 4E 46 3A 98 31 2C 51 54 24 54 24 28 |N.1.NF:.1,QT$T$(|
00001670: 55 50 2C 4E AB 31 29 51 54 24 3A 82 3A 98 31 2C |UP,N.1)QT$:.:.1,|
00001680: 52 28 55 50 29 3A 82 00 8E 1E 1E 14 A0 31 00 C4 |R(UP):.......1..|
00001690: 1E 28 14 99 22 20 C4 CF A0 D9 CF D5 A0 D7 C1 CE |.(.." ..........|
000016A0: D4 A0 D4 CF A0 D6 C5 D2 C9 C6 D9 3F 28 59 2F 4E |...........?(Y/N|
000016B0: 29 22 3A 8D 31 30 35 30 30 3A 8B 49 58 B2 31 A7 |)":.10500:.IX.1.|
000016C0: 36 30 30 30 00 CA 1E 66 17 8E 00 FF 1E 70 17 99 |6000...f.....p..|
000016D0: 43 53 24 52 56 24 22 20 20 20 20 20 20 20 20 20 |CS$RV$" |
000016E0: C9 CE D3 C5 D2 D4 A0 C4 C9 D3 CB A0 C6 CF D2 A0 |................|
000016F0: C9 CE D0 D5 D4 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 00 |..............".|
00001700: 29 1F 75 17 99 22 20 20 20 20 20 20 D0 52 45 53 |).u.." .RES|
00001710: 53 20 52 45 54 55 52 4E 20 4B 45 59 20 57 48 45 |S RETURN KEY WHE|
00001720: 4E 20 52 45 41 44 59 2E 22 00 41 1F 7A 17 A1 41 |N READY.".A.z..A|
00001730: 41 24 3A 8B 41 41 24 B3 B1 52 54 24 A7 36 30 31 |A$:.AA$..RT$.601|
00001740: 30 00 4F 1F D4 17 9F 31 2C 38 2C 30 2C 46 24 00 |0.O....1,8,0,F$.|
00001750: 68 1F DE 17 99 22 46 4F 55 4E 44 20 41 4E 44 20 |h...."FOUND AND |
00001760: 4C 4F 41 44 49 4E 47 22 00 76 1F E0 17 8B 41 B2 |LOADING".v....A.|
00001770: 39 A7 36 35 30 30 00 84 1F E2 17 8B 41 B2 35 A7 |9.6500......A.5.|
00001780: 36 37 30 30 00 93 1F E8 17 84 31 2C 55 2C 4E 46 |6700......1,U,NF|
00001790: 2C 54 54 00 B7 1F F2 17 81 4E B2 31 A4 4E 46 3A |,TT......N.1.NF:|
000017A0: 84 31 2C 48 44 24 28 4E 29 2C 4C 58 28 4E 29 2C |.1,HD$(N),LX(N),|
000017B0: 48 58 28 4E 29 3A 82 00 F0 1F FC 17 4C 4E B2 30 |HX(N):......LN.0|
000017C0: 3A 81 4E B2 31 A4 4E 46 3A 4C 4E B2 4C 4E AA 4C |:.N.1.NF:LN.LN.L|
000017D0: 58 28 4E 29 3A 82 3A 46 52 B2 B8 28 30 29 3A 8B |X(N):.:FR..(0):.|
000017E0: 46 52 B3 30 A7 46 52 B2 46 52 AA 36 35 35 33 36 |FR.0.FR.FR.65536|
000017F0: 00 08 20 06 18 56 B2 B5 28 46 52 AD 28 4C 4E AA |.. ..V..(FR.(LN.|
00001800: 35 AA 33 AC 4E 46 29 29 00 1D 20 10 18 86 54 24 |5.3.NF)).. ...T$|
00001810: 28 56 2C 4E 46 AB 31 29 2C 52 28 56 29 00 41 20 |(V,NF.1),R(V).A |
00001820: 38 18 81 55 50 B2 30 A4 55 3A 81 4E B2 31 A4 4E |8..UP.0.U:.N.1.N|
00001830: 46 3A 84 31 2C 54 24 28 55 50 2C 4E AB 31 29 3A |F:.1,T$(UP,N.1):|
00001840: 82 00 50 20 42 18 84 31 2C 52 28 55 50 29 3A 82 |..P B..1,R(UP):.|
00001850: 00 5D 20 4C 18 A0 31 3A 89 36 39 38 30 00 6D 20 |.] L..1:.6980.m |
00001860: 64 19 84 31 2C 55 30 2C 4E 30 2C 49 58 00 AD 20 |d..1,U0,N0,IX.. |
00001870: 6E 19 8B 55 AA 55 30 B1 56 A7 99 22 D4 CF CF A0 |n..U.U0.V.."....|
00001880: CD D5 C3 C8 A0 D4 CF A0 CD C5 D2 C7 C5 2C 20 C3 |............., .|
00001890: D5 D4 A0 D3 C8 CF D2 D4 22 3B 3A 55 30 B2 56 AB |........";:U0.V.|
000018A0: 55 3A 81 4E B2 31 A4 31 30 30 30 3A 82 00 C8 20 |U:.N.1.1000:... |
000018B0: 78 19 81 4E B2 31 A4 4E 30 3A 84 31 2C 49 58 24 |x..N.1.N0:.1,IX$|
000018C0: 2C 49 58 2C 49 58 3A 82 00 EF 20 82 19 81 55 50 |,IX,IX:... ...UP|
000018D0: B2 30 A4 55 30 3A 81 4E B2 31 A4 4E 30 3A 84 31 |.0.U0:.N.1.N0:.1|
000018E0: 2C 54 24 28 55 50 AA 55 2C 4E AB 31 29 3A 82 00 |,T$(UP.U,N.1):..|
000018F0: 08 21 8C 19 84 31 2C 52 55 3A 52 28 55 50 AA 55 |.!...1,RU:R(UP.U|
00001900: 29 B2 52 55 AA 55 3A 82 00 21 21 96 19 A0 31 3A |).RU.U:..!!...1:|
00001910: 49 58 B2 31 3A 55 B2 55 AA 55 30 3A 89 38 30 35 |IX.1:U.U.U0:.805|
00001920: 30 00 31 21 2C 1A 84 31 2C 55 30 2C 4E 30 2C 49 |0.1!,..1,U0,N0,I|
00001930: 58 00 6B 21 2E 1A 8B 28 55 30 B3 B1 55 29 B0 28 |X.k!...(U0..U).(|
00001940: 4E 30 B3 B1 4E 46 29 B0 28 49 58 B3 B1 54 54 29 |N0..NF).(IX..TT)|
00001950: A7 99 22 C6 C9 D2 D3 D4 A0 C9 D4 C5 CD D3 A0 D7 |..".............|
00001960: D2 CF CE C7 22 3A 89 36 37 35 30 00 84 21 36 1A |....":.6750..!6.|
00001970: 81 4E B2 31 A4 4E 46 3A 84 31 2C 49 58 24 2C 4E |.N.1.NF:.1,IX$,N|
00001980: 30 2C 49 58 00 C2 21 38 1A 8B 49 58 24 B3 B1 48 |0,IX..!8..IX$..H|
00001990: 44 24 28 4E 29 B0 4E 30 B3 B1 4C 58 28 4E 29 B0 |D$(N).N0..LX(N).|
000019A0: 49 58 B3 B1 48 58 28 4E 29 A7 99 22 D7 D2 CF CE |IX..HX(N).."....|
000019B0: C7 A0 C8 C5 C1 C4 C9 CE C7 22 3B 4E 3A 89 36 37 |.........";N:.67|
000019C0: 35 30 00 DF 21 40 1A 82 3A 81 55 50 B2 30 A4 55 |50..!@..:.UP.0.U|
000019D0: 3A 81 4E B2 31 A4 4E 46 3A 84 31 2C 49 58 24 00 |:.N.1.NF:.1,IX$.|
000019E0: 19 22 42 1A 8B 49 58 24 B3 B1 54 24 28 55 50 2C |."B..IX$..T$(UP,|
000019F0: 4E AB 31 29 A7 99 22 C4 C1 D4 C1 A0 D7 D2 CF CE |N.1)..".........|
00001A00: C7 20 52 45 43 22 3B 55 50 3B 22 46 49 45 4C 44 |. REC";UP;"FIELD|
00001A10: 22 3B 4E 3A 89 36 37 35 30 00 25 22 4A 1A 82 3A |";N:.6750.%"J..:|
00001A20: 84 31 2C 49 58 00 52 22 4C 1A 8B 49 58 B3 B1 52 |.1,IX.R"L..IX..R|
00001A30: 28 55 50 29 A7 99 22 D0 CF C9 CE D4 C5 D2 A0 D7 |(UP)..".........|
00001A40: D2 CF CE C7 20 52 45 43 22 2C 55 50 3A 89 36 37 |.... REC",UP:.67|
00001A50: 35 30 00 69 22 54 1A 82 3A 99 22 D6 C5 D2 C9 C6 |50.i"T..:.".....|
00001A60: C9 C5 C4 A0 CF CB C1 D9 22 00 7E 22 5E 1A A0 31 |........".~"^..1|
00001A70: 3A 81 49 B2 31 A4 32 30 30 30 3A 82 3A 8E 00 88 |:.I.1.2000:.:...|
00001A80: 22 44 1B 46 44 B2 AB 31 00 8E 22 4E 1B 8E 00 99 |"D.FD..1.."N....|
00001A90: 22 58 1B 99 43 53 24 3A 80 00 C6 22 40 1F 99 43 |"X..CS$:..."@..C|
00001AA0: 44 24 22 20 20 20 20 D0 CC C5 C1 D3 C5 A0 C9 CE |D$" .........|
00001AB0: D0 D5 D4 A0 C6 C9 C5 CC C4 A0 CE D5 CD C2 C5 D2 |................|
00001AC0: A0 22 58 33 24 3B 00 F4 22 4A 1F 4F 4B 24 B2 C8 |."X3$;.."J.OK$..|
00001AD0: 28 22 32 33 34 35 36 37 38 22 2C 4E 46 AB 31 29 |("2345678",NF.1)|
00001AE0: 3A 8D 31 30 36 30 30 3A 99 58 32 24 3B 28 49 58 |:.10600:.X2$;(IX|
00001AF0: AA 31 29 3B 00 3C 23 54 1F 49 58 24 B2 48 44 24 |.1);.<#T.IX$.HD$|
00001B00: 28 49 58 AA 31 29 3A 48 44 24 28 49 58 AA 31 29 |(IX.1):HD$(IX.1)|
00001B10: B2 48 44 24 28 31 29 3A 48 44 24 28 31 29 B2 49 |.HD$(1):HD$(1).I|
00001B20: 58 24 3A 49 B2 4C 58 28 49 58 AA 31 29 3A 4C 58 |X$:I.LX(IX.1):LX|
00001B30: 28 49 58 AA 31 29 B2 4C 58 28 31 29 00 48 23 59 |(IX.1).LX(1).H#Y|
00001B40: 1F 4C 58 28 31 29 B2 49 00 6E 23 5E 1F 49 B2 48 |.LX(1).I.n#^.I.H|
00001B50: 58 28 49 58 AA 31 29 3A 48 58 28 49 58 AA 31 29 |X(IX.1):HX(IX.1)|
00001B60: B2 48 58 28 31 29 3A 48 58 28 31 29 B2 49 00 AC |.HX(1):HX(1).I..|
00001B70: 23 68 1F 81 55 50 B2 30 A4 55 AB 31 3A 49 58 24 |#h..UP.0.U.1:IX$|
00001B80: B2 54 24 28 55 50 2C 49 58 29 3A 54 24 28 55 50 |.T$(UP,IX):T$(UP|
00001B90: 2C 49 58 29 B2 54 24 28 55 50 2C 30 29 3A 54 24 |,IX).T$(UP,0):T$|
00001BA0: 28 55 50 2C 30 29 B2 49 58 24 3A 82 00 BC 23 72 |(UP,0).IX$:...#r|
00001BB0: 1F 44 4E B2 55 3A 8B 55 B2 31 A7 8E 00 DD 23 7C |.DN.U:.U.1....#||
00001BC0: 1F 44 4E B2 B5 28 44 4E AD 32 AA 2E 36 29 3A 49 |.DN..(DN.2..6):I|
00001BD0: B2 30 3A 81 55 50 B2 44 4E A4 55 AB 31 00 25 24 |.0:.UP.DN.U.1.%$|
00001BE0: 86 1F 8B 54 24 28 52 28 55 50 AB 44 4E 29 2C 30 |...T$(R(UP.DN),0|
00001BF0: 29 B1 54 24 28 52 28 55 50 29 2C 30 29 A7 49 B2 |).T$(R(UP),0).I.|
00001C00: 31 3A 52 55 B2 52 28 55 50 AB 44 4E 29 3A 52 28 |1:RU.R(UP.DN):R(|
00001C10: 55 50 AB 44 4E 29 B2 52 28 55 50 29 3A 52 28 55 |UP.DN).R(UP):R(U|
00001C20: 50 29 B2 52 55 00 40 24 90 1F 82 3A 44 4E B2 44 |P).RU.@$...:DN.D|
00001C30: 4E AA 49 3A 8B 28 44 4E B1 31 29 A7 38 30 36 30 |N.I:.(DN.1).8060|
00001C40: 00 46 24 9A 1F 8E 00 6C 24 10 27 97 35 34 32 37 |.F$....l$.'.5427|
00001C50: 37 2C 33 33 3A 97 35 34 32 37 38 2C 32 35 35 3A |7,33:.54278,255:|
00001C60: 97 35 34 32 37 33 AA 32 33 2C 31 35 00 8D 24 15 |.54273.23,15..$.|
00001C70: 27 97 35 34 32 37 33 2C 36 3A 97 35 34 32 37 36 |'.54273,6:.54276|
00001C80: 2C 33 33 3A 81 44 B2 31 A4 35 30 3A 82 00 9D 24 |,33:.D.1.50:...$|
00001C90: 16 27 97 35 34 32 37 33 AA 32 33 2C 30 00 A3 24 |.'.54273.23,0..$|
00001CA0: 1A 27 8E 00 B0 24 04 29 4F 4B 24 B2 22 59 4E 22 |.'...$.)OK$."YN"|
00001CB0: 00 C7 24 68 29 A1 41 41 24 3A 8B 41 41 24 B2 22 |..$h).AA$:.AA$."|
00001CC0: 22 A7 31 30 36 30 30 00 F1 24 72 29 49 58 B2 30 |".10600..$r)IX.0|
00001CD0: 3A 81 49 B2 31 A4 C3 28 4F 4B 24 29 3A 8B 41 41 |:.I.1..(OK$):.AA|
00001CE0: 24 B2 CA 28 4F 4B 24 2C 49 2C 31 29 A7 49 58 B2 |$..(OK$,I,1).IX.|
00001CF0: 49 00 0B 25 7C 29 82 3A 8B 49 58 B2 30 A7 8D 31 |I..%|).:.IX.0..1|
00001D00: 30 30 30 30 3A 89 31 30 36 30 30 00 11 25 86 29 |0000:.10600..%.)|
00001D10: 8E 00 1B 25 EC 2C 99 43 48 24 3B 00 34 25 F6 2C |...%.,.CH$;.4%.,|
00001D20: 8B 59 B1 30 A7 81 59 59 B2 31 A4 59 3A 99 43 44 |.Y.0..YY.1.Y:.CD|
00001D30: 24 3B 3A 82 00 4D 25 00 2D 8B 58 B1 30 A7 81 58 |$;:..M%.-.X.0..X|
00001D40: 58 B2 31 A4 58 3A 99 43 52 24 3B 3A 82 00 53 25 |X.1.X:.CR$;:..S%|
00001D50: 0A 2D 8E 00 69 25 E0 2E 49 58 B2 AB 31 3A 81 49 |.-..i%..IX..1:.I|
00001D60: B2 31 A4 C3 28 49 58 24 29 00 7B 25 EA 2E 41 24 |.1..(IX$).{%..A$|
00001D70: B2 CA 28 49 58 24 2C 49 2C 31 29 00 8E 25 F4 2E |..(IX$,I,1)..%..|
00001D80: 8B 41 24 B3 B1 22 20 22 A7 31 32 30 35 30 00 A6 |.A$.." ".12050..|
00001D90: 25 FE 2E 8B 49 B2 31 B0 49 B2 C3 28 49 58 24 29 |%...I.1.I..(IX$)|
00001DA0: A7 31 32 30 36 30 00 C2 25 08 2F 8B CA 28 49 58 |.12060..%./..(IX|
00001DB0: 24 2C 49 AB 31 2C 31 29 B2 22 20 22 A7 31 32 30 |$,I.1,1)." ".120|
00001DC0: 36 30 00 DE 25 12 2F 8B 41 24 B3 22 30 22 B0 41 |60..%./.A$."0".A|
00001DD0: 24 B1 22 39 22 A7 8D 31 30 30 30 30 3A 8E 00 E4 |$."9"..10000:...|
00001DE0: 25 1C 2F 82 00 F4 25 26 2F 49 58 B2 C5 28 49 58 |%./...%&/IX..(IX|
00001DF0: 24 29 3A 8E 00 06 26 C8 32 8D 31 31 35 30 30 3A |$):...&.2.11500:|
00001E00: 8D 31 33 35 30 30 00 2A 26 D2 32 50 30 B2 53 42 |.13500.*&.2P0.SB|
00001E10: AA 4C 4C AC 59 AA 58 3A 50 31 B2 50 30 3A 49 B2 |.LL.Y.X:P1.P0:I.|
00001E20: 31 32 38 3A 49 58 24 B2 22 22 00 46 26 DC 32 97 |128:IX$."".F&.2.|
00001E30: 50 31 2C 28 C2 28 50 31 29 AF 31 32 37 29 B0 28 |P1,(.(P1).127).(|
00001E40: 49 AF 31 32 38 29 00 68 26 E6 32 A1 41 24 3A 49 |I.128).h&.2.A$:I|
00001E50: B2 28 49 AA 31 32 29 AF 32 35 35 3A 8B 41 24 B2 |.(I.12).255:.A$.|
00001E60: 22 22 A7 31 33 30 32 30 00 7A 26 F0 32 8B 41 24 |"".13020.z&.2.A$|
00001E70: B2 44 4C 24 A7 31 33 31 35 30 00 88 26 FA 32 8B |.DL$.13150..&.2.|
00001E80: 41 24 B2 52 54 24 A7 8E 00 A0 26 04 33 8B C6 28 |A$.RT$....&.3..(|
00001E90: 41 24 29 AF 31 32 37 B3 33 32 A7 31 33 31 39 30 |A$).127.32.13190|
00001EA0: 00 B4 26 2C 33 8B 50 31 B1 B2 50 30 AA 5A A7 31 |..&,3.P1..P0.Z.1|
00001EB0: 33 31 39 30 00 E5 26 36 33 97 50 31 2C C2 28 50 |3190..&63.P1,.(P|
00001EC0: 31 29 AF 31 32 37 3A 50 31 B2 50 31 AA 31 3A 99 |1).127:P1.P1.1:.|
00001ED0: 41 24 3B 3A 49 58 24 B2 49 58 24 AA 41 24 3A 89 |A$;:IX$.IX$.A$:.|
00001EE0: 31 33 30 32 30 00 F6 26 5E 33 8B 50 31 B2 50 30 |13020..&^3.P1.P0|
00001EF0: A7 31 33 31 39 30 00 2D 27 68 33 97 50 31 2C C2 |.13190.-'h3.P1,.|
00001F00: 28 50 31 29 AF 31 32 37 3A 50 31 B2 50 31 AB 31 |(P1).127:P1.P1.1|
00001F10: 3A 99 43 4C 24 22 20 22 43 4C 24 3B 3A 49 58 24 |:.CL$" "CL$;:IX$|
00001F20: B2 C8 28 49 58 24 2C 50 31 AB 50 30 29 00 39 27 |..(IX$,P1.P0).9'|
00001F30: 72 33 89 20 31 33 30 32 30 00 4B 27 86 33 8D 31 |r3. 13020.K'.3.1|
00001F40: 30 30 30 30 3A 89 31 33 30 32 30 00 5E 27 BC 34 |0000:.13020.^'.4|
00001F50: 81 49 B2 31 A4 5A 3A 99 22 20 22 3B 3A 82 00 71 |.I.1.Z:." ";:..q|
00001F60: 27 C6 34 81 49 B2 31 A4 5A 3A 99 43 4C 24 3B 3A |'.4.I.1.Z:.CL$;:|
00001F70: 82 00 77 27 D0 34 8E 00 BD 27 A4 38 42 B2 36 3A |..w'.4...'.8B.6:|
00001F80: 8D 33 37 32 30 3A 99 43 44 24 22 20 20 20 20 20 |.3720:.CD$" |
00001F90: 20 20 20 22 50 55 24 57 31 24 59 4C 24 52 56 24 | "PU$W1$YL$RV$|
00001FA0: 43 55 24 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |CU$"............|
00001FB0: 9D 9D 9D 9D 9D 9D 9D 20 22 49 58 24 3B 00 C8 27 |....... "IX$;..'|
00001FC0: C2 38 8D 31 30 35 30 30 00 CE 27 CC 38 8E 00 00 |.8.10500..'.8...|
00001FD0: 00 |. |
.......G(8):.6:.100.L....FC(8,1):.I.1.8:
.FC(I,0):FC(I,1)..1:.:.-1,,,,,-1,-1,.{..
..OF(3):OF(0).64:OF(1).0:OF(2).128:OF(3)
.64......LX(8),HX(8).....VIC.0.....BD.53
280:BG.53281:BB.0.C...CC$.G(5):BC.0.....
SB.1024:LL.40:SH.25...(..BG,0:.BD,0...*.
.G(14)...,.GR$.G(30):PU$.G(156):YL$.G(15
8).3...CS$.G(147):CH$.G(19).L.0.CD$.G(17
):CU$.G(145).E.2.RV$.G(18):RO$.G(146)...
4.CL$.G(157):CR$.G(29):C4$.CD$.CD$.CD$..
.8.DL$.G(20):D4$.DL$.DL$.DL$.DL$:IS$.G(1
48).I.:.RT$.G(13)...<.QT$.G(34):CM$.G(44
).!.F.UL$.I("...........................
....................",LL)._.H.X1$.CD$.RV
$.CC$:X2$.RO$." ".GR$.RV$:X3$.RO$." ".
RV$.CC$.O.J.X4$.X4$.CU$...L..M$(9):.I.0.
9:.M$(I):.:." RESEQUENCE DATA"...N.." OP
EN A FILE "," ENTER RECORDS "," VIEW
RECORDS "...P.." SEARCH RECORDS ","
SAVE DISC FILE "," LOAD DISC FILE ".4
.R.." QUIT PROGRAM ".M.S..,"MERGE DISK F
ILE ".J.T..AU$(6):.I.1.6:.AU$(I):....V..
"FORWARD"," BACK "," MENU "," AMEND ",
"DELETE "," PRINT "...`.W1$.RV$.PU$." AR
E YOU SURE(Y/N) ? ".CC$.RO$:....D..CS$.C
C$.UL$. .N..PU$" * * * * * * *
* *** * * * *".O.X.." ** ** * * * ** *
** ** * ** * * *".~...." * * * ***
* * ** * * * ** * ** * *"......" *
* * * * * * * * * * * * *"...
..." * * * * * * * * * *** * *
**"... ..CC$UL$......X1$"1"X2$M$(1)X3$;.
.....FD.0.550......"4"X2$M$(4).@....X1$"
2"X2$M$(2)X3$"5"X2$M$(5).X....X1$"3"X2$M
$(3)X3$;.I.&.."6"X2$M$(6).......10)CU$X1
$"7"X2$M$(7)".."...0..(NF.1).FD...9)X1$C
U$CU$"8"X2$M$(0)X3$;CD$CD$...X...11)X4$"
SELECT OPTION "RO$:.D.1.250:....B..A$:
.A$."".650...L.A.F(A$).48:.A.1.A.8..1000
0:.650.'.V..700.T.....11)X4$RV$" SELECT
OPTION ":.D.1.250:..G....A$:.A$."".600.
....A.F(A$).48:.A.1.A.8..10000:.600.....
..FC(A,.FD)..10000:.600... ..FC(A,0).0.F
D.0.890..."..A.6...11)X1$"MERGE EXISTING
DATA?";:.10500:A.12.3.IX:.900...*.IX$.M
$(A):.14500.%.4..AA$.."Y".100.2.>..A.7.9
00.P.H..631,A:.:.6:A.B(631):.700.Y.Z..U.
0.((A.3).(A.4).(A.8))..10000:.600......A
.1000,2000,3980,4000,950,950,7000,8000,9
50......100.U.... AA$."N". .:.6:A.6:.955
:.100......RO$;CS$;GR$;.11);M$(A)C4$".".
-...."NAME OF FILE:?":X.16:Y.5.VIC:Z.10:
.13000:F$.IX$.<.L..F$."".950.K.T..A..6.6
000.Y....A.5.5000......CS$CD$"NUMBER OF
FIELDS (1-8):? ";.....OK$."12345678":.10
600:NF.IX:.AA$CD$:Y.3.VIC:TT.5.SH.2.VIC.
K....N.1.NF......"ENTER HEADING"N" :? ";
.....X.20:Z.10:.13000......C(IX$).0..RO$
RT$CU$CU$:.1030.....HD$(N).IX$.N.$...13)
:.D4$D4$D4$:X.0:.11500.P...."ENTER FIELD
"IX$" LENGTH:?"...8.X.23.C(HD$(N)):Z.2:
.13000:.IX$.""..10000:.1080.D.B..12000:H
X(N).2..((12.IX).LL)...D..IX.1.HX(N).3..
10000:.1080...F.TT.TT.HX(N)...H.LX(N).IX
:Y.Y.2:.:....J...I.L.LN.0:.I.1.NF:LN.LN.
LX(I):.:FR..(0):.FR.0.FR.FR.65536.A.V.V.
.(FR.(LN.5.3.NF))...`.."YOU CAN USE "V"R
ECORDS":.D.1.1500:.. .J..T$(V,NF.1),R(V)
...T.U0.0......U.U0.V......CS$CC$RV$"YOU
HAVE USED"U". OUT OF"V". RECORDS"CD$...
D.UP.U:R(UP).UP...N..IX.1.NF...X..3720.,
....IX.1.IX$."".1400.;....I.1.500:..A...
..O....U.0.1340.I...IX$.T$(U,0):RU.U:SU.
U.W....U2.0.U.1...(..T$(R(U2),0).IX$.135
0...2.....<.U2.SU:.1380...F..DN.U.U2.1..
1.K.P.R(DN).R(DN.1).Q.Z.....D.R(U2).RU:.
A.2.UP.U2:.CH$CC$RV$" THIS IS RECORD "UP
.1:.3100...N..U.!.X.FD..1.'.F...4.P.U0.U
:B.1.>.4..1200.J...U0.UP.1.E.B..U0.0.U0.
U.1:.A.4.3920.T.L..UP.U0.U.1...V..A.4.41
10......CS$CC$RV$" THIS IS RECORD "UP.1.
.....IX.1.NF:.3770:..X...X.0:Y.SH.2.2.VI
C:.11500...&..I.1.6:.X3$X2$AU$(I);:.I.3.
.RO$" ";...0...3.:..CU$CU$CU$RT$X3
$X2$;.11)"C-PRINT";.E.D..AA$."C".3630._.
..OK$."FBMADP C":.10600.H...B.IX......RO
$;:.B.3900,3000,1990,3700,3400,3600,3900
,3600...H.IX$.AU$(IX):.14500.M.\..AA$."N
"..3720:.3100.W.F.U.U.1...P..U.0.....Z.R
U.R(UP):.UP.U.3470......DN.UP.U.1:R(DN).
R(DN.1):..(....RU.U.3510.E....DN.0.U.1:.
R(DN)..U.3500.V...R(DN).RU:.N.1.NF:T$(RU
,N.1).T$(U,N.1):.:DN.U.|..........UP.U.3
980......3040......3720:."IS PRINTER REA
DY(Y/N)";:.10500.Y....AA$."N"..3720:.310
0...$..4,4,7:.4......4," THIS RECORD "UP
.1" USED "U" RECORDS".O.8..N.1.NF:.4:.4,
" "HD$(N)":".12.C(HD$(N)))T$(R(UP),N.1).
{.B..:.4,UL$:.B.8.AA$."C".AA$."C":B.1:.3
900...L. 4:.3100.F.T..11500:.X2$RO$"
";..
.Y.." PLEASE INPUT FIELD NUMBER "X3$;
...~.OK$.H("12345678",NF):.10600. ....37
20:.3800.Z...Y.SH.2.2.VIC:X.0:.11500:.RO
$;:Z.LL.(2.2.VIC).2:.13500.I....B.6.B.8.
.......HD$(IX)RO$" :";:X.12:Z.LX(IX):.11
500......13010:T$(R(UP),IX.1).IX$.....Y.
2.VIC:.IX.1..N.1.IX.1:Y.Y.HX(N).(N..TT):
....D.X.0:.11500:.RO$HD$(IX)" :".13);:.A
.2..13500.'.N..T$(R(UP),IX.1):..6.X..IX.
1.3100.`....UP.0..T$(R(UP),0).T$(R(UP.1)
,0).3830......UP.U.1.T$(R(UP),0)..T$(R(U
P.1),0).3100.....IX$.T$(R(UP),0):RU.R(UP
):.UP.U.1.3850.U....DN.UP.U.1:R(DN).R(DN
.1):......SU.U.1......1310...<..UP...>..
AA$."C". 4:AA$."N"...F..A..4.3980.C.P..C
S$X1$" END OF FILE WHILE SEARCHING".Y.Z.
.X1$" DO YOU WISH TO TRY FROM START(Y/N)
?":.10500..._..AA$."Y"..4000...D..AA$.."
Y".....N..B.2.3020.....U0.0:B.1.A....301
0.J. .FG.0......CS$X1$GR$" WHICH FIELD I
S TO BE SEARCHED?:"CC$" "CL$;.%...OK$.H(
"12345678",NF):.10600.=....G(IX.48):FX(F
G).IX.I.H..X1$GR$" WHAT ARE YOU LOOKING
FOR?:"CC$...R.Y.8:X.0:.11500:.RO$HD$(IX)
" :?";:X.C(HD$(IX)).4.S...Z.LX(IX):.1300
0:.I(IX$,1)." ".IX$.H(IX$,C(IX$).1).....
.IX$.""..10000:.4050.....FX$(FG).IX$:FF(
FG).C(IX$).J....RT$X1$" ANYTHING ELSE(Y/
N)?":.10500:.AA$."Y".FG.FG.1:.4002......
FG.0..RT$X1$" MUST ALL THESE BE FOUND TO
GETHER(Y/N)?":.10500.....FH.(AA$."Y")...
...3980......GF.0.FG.O...IX$.T$(R(UP),FX
(GF).1).....FE.C(IX$).FF(GF).1..."..FE.1
.4154.#.,..J.1.FE:.J(IX$,J,FF(GF))..FX$(
GF)..:.4154.;.6..(GF.FG)..(FH).3040.D.8.
. GF.S.:...(FH)..GF.A.@..B.2.3000.K.J..3
900......CS$RV$" INSERT DISK FOR
OUTPUT ".K...." PRESS RETU
RN KEY WHEN READY."......A$:.A$..RT$.501
0......1,8,1,F$......" SAVING INFORMATIO
N NOW ".$....1,U;CM$NF;CM$TT.R....N.1.NF
:.1,QT$HD$(N)QT$CM$LX(N)CM$HX(N):.......
UP.0.U:.N.1.NF:.1,QT$T$(UP,N.1)QT$:.:.1,
R(UP):...... 1.D.(.." DO YOU WANT TO VER
IFY?(Y/N)":.10500:.IX.1.6000.J.F.....P..
CS$RV$" INSERT DISK FOR INPUT
".).U.." PRESS RETURN KEY WHE
N READY.".A.Z..AA$:.AA$..RT$.6010.O.T..1
,8,0,F$.H...."FOUND AND LOADING".V....A.
9.6500......A.5.6700......1,U,NF,TT.....
.N.1.NF:.1,HD$(N),LX(N),HX(N):......LN.0
:.N.1.NF:LN.LN.LX(N):.:FR..(0):.FR.0.FR.
FR.65536.. ..V..(FR.(LN.5.3.NF)).. ...T$
(V,NF.1),R(V).A 8..UP.0.U:.N.1.NF:.1,T$(
UP,N.1):..P B..1,R(UP):..] L. 1:.6980.M
D..1,U0,N0,IX.. N..U.U0.V.."TOO MUCH TO
MERGE, CUT SHORT";:U0.V.U:.N.1.1000:..H
X..N.1.N0:.1,IX$,IX,IX:... ...UP.0.U0:.N
.1.N0:.1,T$(UP.U,N.1):...!...1,RU:R(UP.U
).RU.U:..!!.. 1:IX.1:U.U.U0:.8050.1!,..1
,U0,N0,IX.K!...(U0..U).(N0..NF).(IX..TT)
.."FIRST ITEMS WRONG":.6750..!6..N.1.NF:
.1,IX$,N0,IX.B!8..IX$..HD$(N).N0..LX(N).
IX..HX(N).."WRONG HEADING";N:.6750..!@..
:.UP.0.U:.N.1.NF:.1,IX$.."B..IX$..T$(UP,
N.1).."DATA WRONG REC";UP;"FIELD";N:.675
0.%"J..:.1,IX.R"L..IX..R(UP).."POINTER W
RONG REC",UP:.6750.I"T..:."VERIFIED OKAY
".~"^. 1:.I.1.2000:.:..."D.FD..1.."N....
"X..CS$:..F"@..CD$" PLEASE INPUT FIEL
D NUMBER "X3$;.."J.OK$.H("2345678",NF.1)
:.10600:.X2$;(IX.1);.<#T.IX$.HD$(IX.1):H
D$(IX.1).HD$(1):HD$(1).IX$:I.LX(IX.1):LX
(IX.1).LX(1).H#Y.LX(1).I.N#^.I.HX(IX.1):
HX(IX.1).HX(1):HX(1).I..#H..UP.0.U.1:IX$
.T$(UP,IX):T$(UP,IX).T$(UP,0):T$(UP,0).I
X$:...#R.DN.U:.U.1....#|.DN..(DN.2..6):I
.0:.UP.DN.U.1.%$...T$(R(UP.DN),0).T$(R(U
P),0).I.1:RU.R(UP.DN):R(UP.DN).R(UP):R(U
P).RU.@$...:DN.DN.I:.(DN.1).8060.F$....L
$.'.54277,33:.54278,255:.54273.23,15..$.
'.54273,6:.54276,33:.D.1.50:...$.'.54273
.23,0..$.'...$.)OK$."YN".G$H).AA$:.AA$."
".10600..$R)IX.0:.I.1.C(OK$):.AA$.J(OK$,
I,1).IX.I..%|).:.IX.0..10000:.10600..%.)
...%.,.CH$;.4%.,.Y.0..YY.1.Y:.CD$;:..M%.
-.X.0..XX.1.X:.CR$;:..S%.-..I%..IX..1:.I
.1.C(IX$).{%..A$.J(IX$,I,1)..%...A$.." "
.12050..%...I.1.I.C(IX$).12060.B%./.J(IX
$,I.1,1)." ".12060..%./.A$."0".A$."9"..1
0000:...%./...%&/IX.E(IX$):...&H2.11500:
.13500.*&R2P0.SB.LL.Y.X:P1.P0:I.128:IX$.
"".F&.2.P1,(B(P1).127).(I.128).H&.2.A$:I
.(I.12).255:.A$."".13020.Z&.2.A$.DL$.131
50..&.2.A$.RT$... &.3.F(A$).127.32.13190
..&,3.P1..P0.Z.13190..&63.P1,B(P1).127:P
1.P1.1:.A$;:IX$.IX$.A$:.13020..&^3.P1.P0
.13190.-'H3.P1,B(P1).127:P1.P1.1:.CL$" "
CL$;:IX$.H(IX$,P1.P0).9'R3. 13020.K'.3.1
0000:.13020.^'.4.I.1.Z:." ";:..Q'F4.I.1.
Z:.CL$;:..W'P4...'.8B.6:.3720:.CD$"
"PU$W1$YL$RV$CU$"...................
"IX$;.H'B8.10500.N'L8....
> CLICK IMAGE PREVIEW FOR FULL MODAL