CONVERT
FILE INFORMATION
FILENAME(S): CONVERT
FILE TYPE(S): PRG
FILE SIZE: 21.6K
FIRST SEEN: 2025-11-30 16:18:11
APPEARS ON: 1 disk(s)
FILE HASH
8137321643fe078ce845138d86219d551b33d7207b1003286b00aa2503e89318
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| T 1 | CONVERT | PRG | BrainSkull, Leopold Zyka | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 01 00 9C 3A 97 36 34 36 2C C2 28 39 |.......:.646,.(9|
00000010: 37 30 29 3A 89 36 30 31 32 30 00 44 08 02 00 8B |70):.60120.D....|
00000020: C2 28 32 30 35 33 29 B3 B1 31 35 38 A7 97 34 35 |.(2053)..158..45|
00000030: 2C C2 28 31 37 34 29 3A 97 34 36 2C C2 28 31 37 |,.(174):.46,.(17|
00000040: 35 29 3A 9C 00 5E 08 0A 00 8D 35 32 32 31 30 3A |5):..^....52210:|
00000050: 8D 33 33 30 30 30 3A 8D 20 35 34 35 30 30 00 B0 |.33000:. 54500..|
00000060: 08 14 00 59 24 B2 22 13 11 11 11 11 11 11 11 11 |...Y$.".........|
00000070: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000080: 11 22 3A 58 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |.":X$.".........|
00000090: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000000A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
000000B0: 00 D3 08 15 00 53 53 24 B2 22 22 3A 81 49 B2 31 |.....SS$."":.I.1|
000000C0: A4 38 30 3A 53 53 24 B2 53 53 24 AA C7 28 33 32 |.80:SS$.SS$..(32|
000000D0: 29 3A 82 00 12 09 16 00 53 50 24 B2 22 22 3A 44 |):......SP$."":D|
000000E0: 54 24 B2 22 22 3A 81 49 B2 31 A4 33 39 3A 53 50 |T$."":.I.1.39:SP|
000000F0: 24 B2 53 50 24 AA C7 28 33 32 29 3A 44 54 24 B2 |$.SP$..(32):DT$.|
00000100: 44 54 24 AA C7 28 34 36 29 3A 82 3A 99 C7 28 31 |DT$..(46):.:..(1|
00000110: 34 29 00 38 09 25 00 86 46 24 28 4E 46 29 2C 47 |4).8.%..F$(NF),G|
00000120: 24 28 4E 46 29 2C 44 54 25 28 31 32 29 2C 47 53 |$(NF),DT%(12),GS|
00000130: 25 28 4E 46 AA 4E 43 29 00 50 09 34 00 81 49 B2 |%(NF.NC).P.4..I.|
00000140: 31 A4 31 32 3A 44 54 25 28 49 29 B2 33 31 3A 82 |1.12:DT%(I).31:.|
00000150: 00 87 09 36 00 44 54 25 28 32 29 B2 32 39 3A 44 |...6.DT%(2).29:D|
00000160: 54 25 28 34 29 B2 33 30 3A 44 54 25 28 36 29 B2 |T%(4).30:DT%(6).|
00000170: 33 30 3A 44 54 25 28 39 29 B2 33 30 3A 44 54 25 |30:DT%(9).30:DT%|
00000180: 28 31 31 29 B2 33 30 00 A6 09 46 00 9F 32 2C 38 |(11).30...F..2,8|
00000190: 2C 32 2C 22 30 3A 22 AA 48 46 24 AA 22 2C 4C 2C |,2,"0:".HF$.",L,|
000001A0: 22 AA C7 28 35 29 00 D6 09 47 00 84 32 2C 4E 52 |"..(5)...G..2,NR|
000001B0: 24 3A 4E 52 B2 C5 28 4E 52 24 29 3A 84 32 2C 4E |$:NR..(NR$):.2,N|
000001C0: 58 52 24 3A 84 32 2C 58 46 53 24 3A 84 32 2C 58 |XR$:.2,XFS$:.2,X|
000001D0: 46 53 24 3A A0 32 00 F0 09 48 00 50 51 B2 31 3A |FS$:.2...H.PQ.1:|
000001E0: 8B C6 28 4E 52 24 29 B2 32 35 35 A7 50 51 B2 30 |..(NR$).255.PQ.0|
000001F0: 00 05 0A 59 00 99 22 93 22 3A 8D 38 30 30 3A 8D |...Y..".":.800:.|
00000200: 35 35 31 30 30 00 38 0A 5A 00 97 38 30 38 2C 32 |55100.8.Z..808,2|
00000210: 33 37 3A 81 49 B2 31 A4 4E 46 3A 47 24 28 49 29 |37:.I.1.NF:G$(I)|
00000220: B2 22 22 3A 46 24 28 49 29 B2 22 22 3A 82 3A 46 |."":F$(I)."":.:F|
00000230: 43 B2 30 3A 55 46 B2 30 00 66 0A 5F 00 99 22 93 |C.0:UF.0.f._..".|
00000240: 22 3B C7 28 38 29 3A 47 24 B2 22 22 3A 81 49 B2 |";.(8):G$."":.I.|
00000250: 31 A4 4E 43 3A 43 45 28 49 29 B2 30 3A 43 44 28 |1.NC:CE(I).0:CD(|
00000260: 49 29 B2 30 3A 82 00 9B 0A 82 00 99 A3 31 29 3B |I).0:........1);|
00000270: 22 11 11 11 C6 49 4C 45 20 D0 52 45 50 41 52 41 |"....ILE .REPARA|
00000280: 54 49 4F 4E 20 28 46 49 52 53 54 20 54 49 4D 45 |TION (FIRST TIME|
00000290: 20 4F 4E 4C 59 21 29 2E 20 46 22 00 CE 0A 96 00 | ONLY!). F".....|
000002A0: 99 A3 31 29 3B 22 11 C5 4E 54 45 52 20 44 41 54 |..1);"..NTER DAT|
000002B0: 41 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |A ..............|
000002C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 45 22 00 00 |........... E"..|
000002D0: 0B A0 00 99 A3 31 29 3B 22 D5 50 44 41 54 45 20 |.....1);".PDATE |
000002E0: 44 41 54 41 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |DATA ...........|
000002F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 55 22 |............. U"|
00000300: 00 32 0B AA 00 99 A3 31 29 3B 22 CC 4F 4F 4B 20 |.2.....1);".OOK |
00000310: 55 50 20 52 45 43 4F 52 44 20 2E 2E 2E 2E 2E 2E |UP RECORD ......|
00000320: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 |............... |
00000330: 4C 22 00 64 0B B4 00 99 A3 31 29 3B 22 D3 45 41 |L".d.....1);".EA|
00000340: 52 43 48 20 52 45 43 4F 52 44 53 2E 2E 2E 2E 2E |RCH RECORDS.....|
00000350: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000360: 2E 20 53 22 00 96 0B BE 00 99 A3 31 29 3B 22 C4 |. S".......1);".|
00000370: 45 4C 45 54 45 20 52 45 43 4F 52 44 20 2E 2E 2E |ELETE RECORD ...|
00000380: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000390: 2E 2E 2E 20 44 22 00 C8 0B C3 00 99 A3 31 29 3B |... D".......1);|
000003A0: 22 D6 45 52 49 46 59 20 47 4C 4F 42 41 4C 20 54 |".ERIFY GLOBAL T|
000003B0: 4F 54 41 4C 53 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |OTALS ..........|
000003C0: 2E 2E 2E 2E 2E 20 56 22 00 F9 0B C5 00 99 A3 31 |..... V".......1|
000003D0: 29 22 D3 45 54 20 44 49 53 50 4C 41 59 20 43 4F |)".ET DISPLAY CO|
000003E0: 4C 4F 52 53 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |LORS ...........|
000003F0: 2E 2E 2E 2E 2E 2E 20 5A 22 00 2C 0C D2 00 99 A3 |...... Z".,.....|
00000400: 31 29 3B 22 11 C5 58 49 54 20 54 4F 20 C2 41 53 |1);"..XIT TO .AS|
00000410: 49 43 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |IC .............|
00000420: 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 58 22 00 5E 0C D7 |......... X".^..|
00000430: 00 99 A3 31 29 3B 22 C5 58 49 54 20 54 4F 20 CD |...1);".XIT TO .|
00000440: 45 4E 55 D7 52 49 54 45 52 20 43 52 45 41 54 45 |ENU.RITER CREATE|
00000450: 44 20 4D 45 4E 55 20 2E 2E 2E 2E 20 4D 22 00 95 |D MENU .... M"..|
00000460: 0C DC 00 99 C8 28 59 24 2C 32 31 29 3B 22 C5 4E |.....(Y$,21);".N|
00000470: 54 45 52 20 59 4F 55 52 20 43 48 4F 49 43 45 20 |TER YOUR CHOICE |
00000480: 54 48 45 4E 20 50 52 45 53 53 20 12 D2 C5 D4 D5 |THEN PRESS .....|
00000490: D2 CE 92 22 3B 00 C6 0C E6 00 99 C8 28 59 24 2C |...";.......(Y$,|
000004A0: 32 33 29 22 D4 4F 20 52 45 54 55 52 4E 20 54 4F |23)".O RETURN TO|
000004B0: 20 54 48 45 20 4D 45 4E 55 20 50 52 45 53 53 20 | THE MENU PRESS |
000004C0: 12 46 31 92 20 22 00 F2 0C F0 00 58 25 B2 33 38 |.F1. ".....X%.38|
000004D0: 3A 59 25 B2 32 31 3A 4C 25 B2 31 3A 8D 33 34 30 |:Y%.21:L%.1:.340|
000004E0: 30 30 3A 41 4E 24 B2 49 4E 24 3A 46 46 24 B2 49 |00:AN$.IN$:FF$.I|
000004F0: 4E 24 00 27 0D F1 00 8B 41 4E 24 B3 B1 22 46 22 |N$.'....AN$.."F"|
00000500: AF 41 4E 24 B3 B1 22 45 22 AF 41 4E 24 B3 B1 22 |.AN$.."E".AN$.."|
00000510: 5A 22 AF 50 51 B3 B1 31 A7 99 22 93 22 3A 8D 31 |Z".PQ..1..".":.1|
00000520: 30 30 32 3A 89 39 30 00 3E 0D FA 00 8B 41 4E 24 |002:.90.>....AN$|
00000530: B2 22 45 22 A7 8D 31 30 30 30 3A 89 39 30 00 56 |."E"..1000:.90.V|
00000540: 0D FF 00 8B 41 4E 24 B2 22 5A 22 A7 8D 35 33 30 |....AN$."Z"..530|
00000550: 30 30 3A 89 39 30 00 6E 0D 04 01 8B 41 4E 24 B2 |00:.90.n....AN$.|
00000560: 22 4C 22 A7 8D 31 30 30 30 30 3A 89 39 30 00 86 |"L"..10000:.90..|
00000570: 0D 0E 01 8B 41 4E 24 B2 22 53 22 A7 8D 33 35 30 |....AN$."S"..350|
00000580: 30 30 3A 89 39 30 00 9E 0D 18 01 8B 41 4E 24 B2 |00:.90......AN$.|
00000590: 22 55 22 A7 8D 31 31 30 30 30 3A 89 39 30 00 B6 |"U"..11000:.90..|
000005A0: 0D 22 01 8B 41 4E 24 B2 22 44 22 A7 8D 31 32 30 |."..AN$."D"..120|
000005B0: 30 30 3A 89 39 30 00 CE 0D 2C 01 8B 41 4E 24 B2 |00:.90...,..AN$.|
000005C0: 22 46 22 A7 8D 33 32 30 30 30 3A 89 39 30 00 E6 |"F"..32000:.90..|
000005D0: 0D 31 01 8B 41 4E 24 B2 22 56 22 A7 8D 31 33 32 |.1..AN$."V"..132|
000005E0: 30 30 3A 89 39 30 00 01 0E 36 01 8B 41 4E 24 B3 |00:.90...6..AN$.|
000005F0: B1 22 58 22 AF 20 41 4E 24 B3 B1 22 4D 22 A7 39 |."X". AN$.."M".9|
00000600: 30 00 1A 0E 3B 01 8B 50 51 B2 30 A7 99 22 93 22 |0...;..PQ.0.."."|
00000610: 3A 8D 31 30 30 32 3A 89 39 30 00 36 0E 40 01 8D |:.1002:.90.6.@..|
00000620: 39 37 30 30 3A 99 22 93 22 3A 8B 41 4E 24 B2 22 |9700:.".":.AN$."|
00000630: 58 22 A7 33 34 30 00 47 0E 41 01 A0 31 35 3A 9F |X".340.G.A..15:.|
00000640: 31 35 2C 38 2C 31 35 00 6D 0E 42 01 9F 34 2C 38 |15,8,15.m.B..4,8|
00000650: 2C 34 2C 22 4D 45 4E 55 22 3A 8D 35 32 32 32 30 |,4,"MENU":.52220|
00000660: 3A A0 34 3A 8B 44 53 B2 30 A7 33 39 30 00 A3 0E |:.4:.DS.0.390...|
00000670: 44 01 99 22 93 11 11 11 11 11 11 11 11 11 20 20 |D..".......... |
00000680: 20 20 20 D0 4C 41 43 45 20 44 49 53 4B 20 57 49 | .LACE DISK WI|
00000690: 54 48 20 CD 45 4E 55 D7 52 49 54 45 52 20 4D 45 |TH .ENU.RITER ME|
000006A0: 4E 55 22 00 C6 0E 45 01 99 22 20 20 20 20 20 20 |NU"...E.." |
000006B0: 20 20 20 20 20 20 20 20 49 4E 20 54 48 45 20 44 | IN THE D|
000006C0: 52 49 56 45 2E 22 00 FD 0E 46 01 99 C8 28 59 24 |RIVE."...F...(Y$|
000006D0: 2C 32 34 29 3B 22 20 20 20 20 12 D2 C5 D4 D5 D2 |,24);" ......|
000006E0: CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2C 20 |.. TO CONTINUE, |
000006F0: 12 C6 31 92 20 54 4F 20 45 58 49 54 22 00 16 0F |..1. TO EXIT"...|
00000700: 4A 01 A1 20 41 41 24 3A 8B 41 41 24 B2 C7 28 31 |J.. AA$:.AA$..(1|
00000710: 33 29 A7 33 32 31 00 2B 0F 4F 01 8B 41 41 24 B3 |3).321.+.O..AA$.|
00000720: B1 C7 28 31 33 33 29 A7 33 33 30 00 40 0F 54 01 |..(133).330.@.T.|
00000730: A0 31 35 3A 99 C7 28 39 29 3A 99 22 93 22 3A 80 |.15:..(9):.".":.|
00000740: 00 7D 0F 86 01 99 22 93 11 11 11 11 11 20 20 20 |.}...."...... |
00000750: 20 20 2A 2A 2A 20 12 CC 4F 41 44 49 4E 47 20 CD | *** ..OADING .|
00000760: 45 4E 55 20 D0 52 4F 47 52 41 4D 92 20 2A 2A 2A |ENU .ROGRAM. ***|
00000770: 22 3A 93 22 4D 45 4E 55 22 2C 38 3A 80 00 A6 0F |":."MENU",8:....|
00000780: 20 03 99 A3 35 29 3B 22 11 11 2A 2A 2A 2A 2A 2A | ...5);"..******|
00000790: 2A 2A 2A 20 D7 C1 D2 CE C9 CE C7 A0 2A 2A 2A 2A |*** ........****|
000007A0: 2A 2A 2A 2A 2A 22 00 D4 0F 25 03 99 22 11 20 20 |*****"...%..". |
000007B0: 20 D4 4F 20 50 52 45 56 45 4E 54 20 54 48 45 20 | .O PREVENT THE |
000007C0: 4C 4F 53 53 20 4F 46 20 59 4F 55 52 20 46 49 4C |LOSS OF YOUR FIL|
000007D0: 45 53 2C 22 00 04 10 2A 03 99 22 C1 4C 57 41 59 |ES,"...*..".LWAY|
000007E0: 53 20 54 41 4B 45 20 54 48 45 20 58 2D 4F 50 54 |S TAKE THE X-OPT|
000007F0: 49 4F 4E 20 42 45 46 4F 52 45 20 4C 45 41 56 49 |ION BEFORE LEAVI|
00000800: 4E 47 2E 22 00 37 10 2F 03 99 C8 28 59 24 2C 32 |NG.".7./...(Y$,2|
00000810: 33 29 3A 99 22 20 20 20 20 20 20 20 D0 52 45 53 |3):." .RES|
00000820: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |S ........ TO CO|
00000830: 4E 54 49 4E 55 45 22 00 4C 10 34 03 A1 41 41 24 |NTINUE".L.4..AA$|
00000840: 3A 8B 41 41 24 B2 22 22 A7 38 32 30 00 52 10 39 |:.AA$."".820.R.9|
00000850: 03 8E 00 5B 10 E8 03 99 22 93 22 00 6A 10 E9 03 |...[....".".j...|
00000860: 8B 50 51 B2 31 A7 31 30 31 30 00 95 10 EA 03 99 |.PQ.1.1010......|
00000870: 22 D4 48 45 20 44 41 54 41 20 46 49 4C 45 53 20 |".HE DATA FILES |
00000880: 4D 55 53 54 20 42 45 20 49 4E 49 54 49 41 4C 49 |MUST BE INITIALI|
00000890: 5A 45 44 2E 22 00 CC 10 EB 03 99 22 D0 4C 45 41 |ZED."......".LEA|
000008A0: 53 45 20 53 45 4C 45 43 54 20 54 48 45 20 46 49 |SE SELECT THE FI|
000008B0: 4C 45 20 50 52 45 50 41 52 41 54 49 4F 4E 20 20 |LE PREPARATION |
000008C0: 20 20 20 20 4F 50 54 49 4F 4E 2E 22 00 FD 10 ED | OPTION."....|
000008D0: 03 99 C8 28 59 24 2C 32 34 29 22 D0 4C 45 41 53 |...(Y$,24)".LEAS|
000008E0: 45 20 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 |E .RESS ........|
000008F0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 17 11 | TO CONTINUE"...|
00000900: EE 03 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 |...AA$:.AA$...(1|
00000910: 33 29 A7 31 30 30 36 00 1D 11 EF 03 8E 00 2D 11 |3).1006.......-.|
00000920: F2 03 8B 4E 52 B3 4D 53 A7 31 30 35 30 00 55 11 |...NR.MS.1050.U.|
00000930: FC 03 99 22 93 D9 4F 55 20 48 41 56 45 20 45 4E |..."..OU HAVE EN|
00000940: 54 45 52 45 44 20 22 3B 4D 53 3B 22 20 52 45 43 |TERED ";MS;" REC|
00000950: 4F 52 44 53 22 00 6F 11 06 04 99 22 11 D9 4F 55 |ORDS".o...."..OU|
00000960: 52 20 46 49 4C 45 20 49 53 20 46 55 4C 4C 22 00 |R FILE IS FULL".|
00000970: 92 11 0B 04 99 22 11 D0 52 45 53 53 20 12 D2 C5 |....."..RESS ...|
00000980: D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |..... TO CONTINU|
00000990: 45 22 00 AC 11 10 04 A1 41 41 24 3A 8B 41 41 24 |E"......AA$:.AA$|
000009A0: B3 B1 C7 28 31 33 29 A7 31 30 34 30 00 B2 11 15 |...(13).1040....|
000009B0: 04 8E 00 CF 11 1A 04 81 49 B2 31 A4 4E 46 3A 53 |........I.1.NF:S|
000009C0: 44 24 B2 C8 28 44 54 24 2C 4C 25 28 49 29 29 00 |D$..(DT$,L%(I)).|
000009D0: ED 11 1D 04 8B 54 24 28 49 29 B2 22 44 22 A7 53 |.....T$(I)."D".S|
000009E0: 44 24 B2 22 2E 2E 2F 2E 2E 2F 2E 2E 22 00 17 12 |D$."../../.."...|
000009F0: 20 04 99 C8 28 59 24 2C 59 25 28 49 29 29 3B C8 | ...(Y$,Y%(I));.|
00000A00: 28 58 24 2C 58 25 28 49 29 29 3B 50 52 24 28 49 |(X$,X%(I));PR$(I|
00000A10: 29 3B 53 44 24 3A 82 00 27 12 25 04 8B 4E 54 B2 |);SD$:..'.%..NT.|
00000A20: B3 30 A7 31 30 36 34 00 33 12 26 04 81 49 B2 31 |.0.1064.3.&..I.1|
00000A30: A4 4E 54 00 5D 12 27 04 99 C8 28 59 24 2C 54 59 |.NT.].'...(Y$,TY|
00000A40: 25 28 49 29 29 3B C8 28 58 24 2C 54 58 25 28 49 |%(I));.(X$,TX%(I|
00000A50: 29 AA 31 29 3B 54 50 24 28 49 29 3A 82 00 8F 12 |).1);TP$(I):....|
00000A60: 28 04 99 20 C8 28 59 24 2C 32 34 29 3B 22 20 20 |(.. .(Y$,24);" |
00000A70: 20 D2 45 43 4F 52 44 53 20 45 4E 54 45 52 45 44 | .ECORDS ENTERED|
00000A80: 20 3A 22 3B 4E 52 3B 22 20 4F 46 22 3B 4D 53 00 | :";NR;" OF";MS.|
00000A90: BA 12 29 04 99 C8 28 59 24 2C 32 35 29 3B 22 20 |..)...(Y$,25);" |
00000AA0: 20 20 12 C6 31 92 20 54 4F 20 52 45 54 55 52 4E | ..1. TO RETURN|
00000AB0: 20 54 4F 20 4D 45 4E 55 22 3B 00 C6 12 38 04 46 | TO MENU";...8.F|
00000AC0: 43 B2 46 43 AA 31 00 D8 12 74 04 99 C8 28 59 24 |C.FC.1...t...(Y$|
00000AD0: 2C 32 33 29 3B 53 50 24 00 F1 12 88 04 99 20 C8 |,23);SP$...... .|
00000AE0: 28 59 24 2C 32 34 29 3B 53 50 24 3A 99 53 50 24 |(Y$,24);SP$:.SP$|
00000AF0: 3B 00 2A 13 92 04 99 C8 28 59 24 2C 32 34 29 3B |;.*.....(Y$,24);|
00000B00: 22 C9 53 20 54 48 49 53 20 41 4C 4C 20 43 4F 52 |".S THIS ALL COR|
00000B10: 52 45 43 54 3F 20 28 20 12 D2 C5 D4 D5 D2 CE 92 |RECT? ( ........|
00000B20: 20 3D 20 59 45 53 20 29 22 3B 00 5F 13 9C 04 58 | = YES )";._...X|
00000B30: 25 B2 33 38 3A 59 25 B2 32 34 3A 4C 25 B2 31 3A |%.38:Y%.24:L%.1:|
00000B40: 8D 33 34 30 30 30 3A 99 C8 28 59 24 2C 32 33 29 |.34000:..(Y$,23)|
00000B50: 3B 53 50 24 3A 99 53 50 24 3A 99 53 50 24 3B 00 |;SP$:.SP$:.SP$;.|
00000B60: 72 13 AB 04 8B 49 4E 24 B3 B1 22 4E 22 A7 31 31 |r....IN$.."N".11|
00000B70: 37 30 00 9A 13 C4 04 8B 49 4E 24 B2 22 4C 49 53 |70......IN$."LIS|
00000B80: 54 22 A7 46 B2 31 3A 8D 32 30 30 30 30 3A 8D 32 |T".F.1:.20000:.2|
00000B90: 31 30 30 30 3A 89 31 32 30 30 00 B1 13 D8 04 99 |1000:.1200......|
00000BA0: C8 28 59 24 2C 32 33 29 3B 53 50 24 3A 99 53 50 |.(Y$,23);SP$:.SP|
00000BB0: 24 00 CF 13 28 23 8F 3D 3D 20 4C 4F 4F 4B 20 46 |$...(#.== LOOK F|
00000BC0: 4F 52 20 52 45 43 20 53 50 41 43 45 20 3D 3D 00 |OR REC SPACE ==.|
00000BD0: F8 13 F0 23 5A 5A 24 B2 47 24 28 4B 46 29 3A 8D |...#ZZ$.G$(KF):.|
00000BE0: 32 36 30 30 30 3A 8F 20 43 4F 4D 50 55 54 45 20 |26000:. COMPUTE |
00000BF0: 48 41 53 48 20 4B 45 59 00 37 14 54 24 8D 35 32 |HASH KEY.7.T$.52|
00000C00: 31 30 30 3A 8D 35 32 31 33 35 3A 8F 20 50 4F 53 |100:.52135:. POS|
00000C10: 20 54 4F 20 48 41 53 48 20 46 49 4C 45 20 26 20 | TO HASH FILE & |
00000C20: 52 45 41 44 20 50 54 52 20 54 4F 20 4C 49 4E 4B |READ PTR TO LINK|
00000C30: 45 44 20 4C 49 53 54 00 61 14 5E 24 48 50 54 52 |ED LIST.a.^$HPTR|
00000C40: 24 B2 49 4B 24 3A 48 4B 45 59 B2 52 50 3A 8F 20 |$.IK$:HKEY.RP:. |
00000C50: 53 41 56 45 20 4F 4C 44 20 4C 49 4E 4B 20 50 54 |SAVE OLD LINK PT|
00000C60: 52 00 97 14 6D 24 8D 35 32 31 30 30 3A 49 4B 24 |R...m$.52100:IK$|
00000C70: B2 58 46 53 24 3A 8D 35 32 31 34 35 3A 8F 20 57 |.XFS$:.52145:. W|
00000C80: 52 49 54 45 20 4C 49 4E 4B 20 46 4F 52 20 4E 45 |RITE LINK FOR NE|
00000C90: 57 20 45 4E 54 52 59 00 C5 14 72 24 52 50 B2 C5 |W ENTRY...r$RP..|
00000CA0: 28 58 46 53 24 29 3A 8D 34 32 30 30 30 3A 8F 20 |(XFS$):.42000:. |
00000CB0: 57 52 49 54 45 20 44 41 54 41 20 52 45 43 20 54 |WRITE DATA REC T|
00000CC0: 4F 20 30 2F 44 00 0A 15 77 24 52 50 B2 52 50 AA |O 0/D...w$RP.RP.|
00000CD0: 4D 53 AA 34 3A 8D 35 32 31 30 30 3A 8D 35 32 31 |MS.4:.52100:.521|
00000CE0: 33 35 3A 44 52 50 24 B2 49 4B 24 3A 8F 20 52 45 |35:DRP$.IK$:. RE|
00000CF0: 41 44 20 44 45 4C 20 52 45 43 20 4C 49 4E 4B 45 |AD DEL REC LINKE|
00000D00: 44 20 4C 49 53 54 20 50 54 52 00 45 15 7C 24 8D |D LIST PTR.E.|$.|
00000D10: 35 32 31 30 30 3A 49 4B 24 B2 48 50 54 52 24 3A |52100:IK$.HPTR$:|
00000D20: 8D 35 32 31 34 35 3A 8F 20 57 52 49 54 45 20 4C |.52145:. WRITE L|
00000D30: 49 4E 4B 20 44 41 54 41 20 52 45 43 20 4C 49 4E |INK DATA REC LIN|
00000D40: 4B 20 50 54 52 00 5C 15 86 24 8B C6 28 44 52 50 |K PTR.\..$..(DRP|
00000D50: 24 29 B2 32 35 35 A7 89 39 33 36 30 00 A5 15 8B |$).255..9360....|
00000D60: 24 58 46 53 24 B2 44 52 50 24 3A 89 39 33 37 32 |$XFS$.DRP$:.9372|
00000D70: 3A 8F 20 53 45 54 20 46 52 45 45 20 53 50 41 43 |:. SET FREE SPAC|
00000D80: 45 20 50 54 52 20 54 4F 20 46 52 45 45 2D 44 45 |E PTR TO FREE-DE|
00000D90: 4C 2D 52 45 43 20 4C 49 4E 4B 45 44 20 4C 49 53 |L-REC LINKED LIS|
00000DA0: 54 20 50 54 52 00 EC 15 90 24 58 46 53 24 B2 4E |T PTR....$XFS$.N|
00000DB0: 58 52 24 3A 4E 58 52 24 B2 C4 28 C5 28 4E 58 52 |XR$:NXR$..(.(NXR|
00000DC0: 24 29 AA 31 29 3A 8F 20 55 50 44 41 54 45 20 46 |$).1):. UPDATE F|
00000DD0: 52 45 45 20 26 20 43 4F 4E 54 49 47 55 4F 55 53 |REE & CONTIGUOUS|
00000DE0: 20 53 50 41 43 45 20 50 54 52 53 2E 00 FB 15 9C | SPACE PTRS.....|
00000DF0: 24 8B 41 4E 24 B2 22 55 22 A7 8E 00 07 16 9F 24 |$.AN$."U"......$|
00000E00: 4E 52 B2 4E 52 AA 31 00 14 16 B8 24 52 4D B2 4D |NR.NR.1....$RM.M|
00000E10: 53 AB 4E 52 00 3E 16 C2 24 99 C8 28 59 24 2C 32 |S.NR.>..$..(Y$,2|
00000E20: 33 29 3B 22 D2 45 43 2E 20 45 4E 54 45 52 45 44 |3);".EC. ENTERED|
00000E30: 3A 22 3B CA 28 C4 28 4E 52 29 2C 32 29 3B 00 63 |:";.(.(NR),2);.c|
00000E40: 16 CC 24 99 22 20 D2 45 43 2E 20 53 50 41 43 45 |..$." .EC. SPACE|
00000E50: 53 20 4C 45 46 54 3A 22 3B CA 28 C4 28 52 4D 29 |S LEFT:";.(.(RM)|
00000E60: 2C 32 29 00 7C 16 D6 24 8B 52 4D B2 30 A7 99 C8 |,2).|..$.RM.0...|
00000E70: 28 59 24 2C 32 33 29 3B 53 50 24 3B 00 A4 16 E0 |(Y$,23);SP$;....|
00000E80: 24 8B 52 4D B2 30 A7 99 C8 28 59 24 2C 32 33 29 |$.RM.0...(Y$,23)|
00000E90: 3B A3 36 29 3B 22 12 20 C6 C9 CC C5 20 C6 D5 CC |;.6);". .... ...|
00000EA0: CC 20 92 22 00 C7 16 EA 24 99 22 D0 52 45 53 53 |. ."....$.".RESS|
00000EB0: 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E | ........ TO CON|
00000EC0: 54 49 4E 55 45 2E 22 00 E1 16 F4 24 A1 41 41 24 |TINUE."....$.AA$|
00000ED0: 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 39 34 36 |:.AA$...(13).946|
00000EE0: 30 00 F3 16 FE 24 99 C8 28 59 24 2C 32 33 29 3B |0....$..(Y$,23);|
00000EF0: 53 50 24 00 FF 16 08 25 8B 52 4D B2 30 A7 8E 00 |SP$....%.RM.0...|
00000F00: 1F 17 12 25 99 C8 28 59 24 2C 32 34 29 3B 53 50 |...%..(Y$,24);SP|
00000F10: 24 3A 99 C8 28 59 24 2C 32 34 29 3B 54 54 24 00 |$:..(Y$,24);TT$.|
00000F20: 41 17 1C 25 58 25 B2 C3 28 54 54 24 29 AA 31 3A |A..%X%..(TT$).1:|
00000F30: 59 25 B2 32 34 3A 4C 25 B2 31 3A 8D 33 34 30 30 |Y%.24:L%.1:.3400|
00000F40: 30 00 5B 17 30 25 8B C8 28 49 4E 24 2C 31 29 B2 |0.[.0%..(IN$,1).|
00000F50: 22 59 22 A7 8D 39 37 30 30 3A 8E 00 76 17 3A 25 |"Y"..9700:..v.:%|
00000F60: 8B C3 28 49 4E 24 29 B2 30 B0 49 4E 24 B2 22 4E |..(IN$).0.IN$."N|
00000F70: 22 A7 39 35 35 30 00 AF 17 44 25 99 C8 28 59 24 |".9550...D%..(Y$|
00000F80: 2C 32 33 29 3B 22 D0 4C 45 41 53 45 20 41 4E 53 |,23);".LEASE ANS|
00000F90: 57 45 52 20 59 20 4F 52 20 4E 20 28 12 D2 C5 D4 |WER Y OR N (....|
00000FA0: D5 D2 CE 92 3D 4E 4F 29 22 3A 89 39 34 39 30 00 |....=NO)":.9490.|
00000FB0: CE 17 4E 25 47 24 B2 22 22 3A 46 43 B2 30 3A 99 |..N%G$."":FC.0:.|
00000FC0: 22 93 22 3A 55 46 B2 30 3A 89 31 30 30 30 00 F0 |".":UF.0:.1000..|
00000FD0: 17 E4 25 8F 3D 3D 20 55 50 44 41 54 45 20 49 4E |..%.== UPDATE IN|
00000FE0: 44 45 58 20 46 49 4C 45 20 50 54 52 53 20 3D 3D |DEX FILE PTRS ==|
00000FF0: 00 21 18 E5 25 99 22 93 11 11 11 11 11 20 20 20 |.!..%."...... |
00001000: 20 20 20 2A 2A 2A 20 12 D5 50 44 41 54 49 4E 47 | *** ..PDATING|
00001010: 20 C9 4E 44 45 58 20 C6 49 4C 45 92 20 2A 2A 2A | .NDEX .ILE. ***|
00001020: 22 00 5E 18 EE 25 49 4B 24 B2 4E 58 52 24 3A 52 |".^..%IK$.NXR$:R|
00001030: 50 B2 32 3A 8D 35 32 31 30 30 3A 8D 35 32 31 34 |P.2:.52100:.5214|
00001040: 35 3A 8F 20 57 52 49 54 45 20 4E 45 58 54 20 43 |5:. WRITE NEXT C|
00001050: 4F 4E 54 2E 20 52 45 43 2E 20 50 54 52 2E 00 98 |ONT. REC. PTR...|
00001060: 18 F8 25 49 4B 24 B2 58 46 53 24 3A 52 50 B2 34 |..%IK$.XFS$:RP.4|
00001070: 3A 8D 35 32 31 30 30 3A 8D 35 32 31 34 35 3A 8F |:.52100:.52145:.|
00001080: 20 57 52 49 54 45 20 4E 45 58 54 20 46 52 45 45 | WRITE NEXT FREE|
00001090: 20 53 50 43 20 50 54 52 00 CC 18 02 26 49 4B 24 | SPC PTR....&IK$|
000010A0: B2 C4 28 4E 52 29 3A 52 50 B2 31 3A 8D 35 32 31 |..(NR):RP.1:.521|
000010B0: 30 30 3A 8D 35 32 31 34 35 3A 8F 20 55 50 44 41 |00:.52145:. UPDA|
000010C0: 54 45 20 52 45 43 20 43 4F 55 4E 54 00 D2 18 0C |TE REC COUNT....|
000010D0: 26 8E 00 DB 18 10 27 99 22 93 22 00 F6 18 1A 27 |&.....'."."....'|
000010E0: 8D 32 37 30 30 30 3A 8F 20 50 52 4D 50 54 20 46 |.27000:. PRMPT F|
000010F0: 4F 52 20 4B 45 59 00 08 19 1F 27 8B 49 4E 24 B2 |OR KEY....'.IN$.|
00001100: C7 28 31 33 33 29 A7 8E 00 1F 19 24 27 8B C6 28 |.(133).....$'..(|
00001110: 49 4B 24 29 B3 B1 32 35 35 A7 31 30 30 35 30 00 |IK$)..255.10050.|
00001120: 3E 19 2E 27 8D 32 37 31 31 30 3A 8F 20 52 45 43 |>..'.27110:. REC|
00001130: 20 4E 4F 54 20 46 4E 44 20 50 52 4D 50 54 00 52 | NOT FND PRMPT.R|
00001140: 19 38 27 8E 3A 8F 20 52 45 54 20 54 4F 20 4D 45 |.8'.:. RET TO ME|
00001150: 4E 55 00 74 19 42 27 52 50 B2 49 4B 3A 8D 34 30 |NU.t.B'RP.IK:.40|
00001160: 30 30 30 3A 8F 20 49 4E 50 55 54 20 44 41 54 41 |000:. INPUT DATA|
00001170: 20 52 45 43 00 95 19 47 27 8B C8 28 46 24 28 4B | REC...G'..(F$(K|
00001180: 46 29 2C C3 28 5A 5A 24 29 29 B3 B1 5A 5A 24 A7 |F),.(ZZ$))..ZZ$.|
00001190: 31 30 30 39 30 00 BC 19 4C 27 8D 32 39 30 30 30 |10090...L'.29000|
000011A0: 3A 8D 32 39 31 38 30 3A 8F 20 44 49 53 50 4C 59 |:.29180:. DISPLY|
000011B0: 20 52 45 43 20 26 20 50 52 4D 50 54 00 D9 19 51 | REC & PRMPT...Q|
000011C0: 27 8B C3 28 49 4E 24 29 B2 30 B0 49 4E 24 B2 22 |'..(IN$).0.IN$."|
000011D0: 59 22 A7 89 31 30 30 37 30 00 E4 19 54 27 89 31 |Y"..10070...T'.1|
000011E0: 30 30 39 30 00 FF 19 56 27 8D 32 39 32 32 30 3A |0090...V'.29220:|
000011F0: 8F 20 50 52 4D 50 54 20 54 4F 20 43 4F 4E 54 00 |. PRMPT TO CONT.|
00001200: 0E 1A 60 27 8B 49 4E 24 B2 22 58 22 A7 8E 00 3F |..`'.IN$."X"...?|
00001210: 1A 6A 27 52 50 B2 49 4B AA 4D 53 AA 34 3A 8D 35 |.j'RP.IK.MS.4:.5|
00001220: 32 31 30 30 3A 8D 35 32 31 33 35 3A 8F 20 52 45 |2100:.52135:. RE|
00001230: 41 44 20 4C 49 4E 4B 20 50 4F 49 4E 54 45 52 00 |AD LINK POINTER.|
00001240: 64 1A 74 27 8B C6 28 49 4B 24 29 B3 B1 32 35 35 |d.t'..(IK$)..255|
00001250: A7 31 30 30 35 30 3A 8F 20 43 4F 4E 54 20 53 45 |.10050:. CONT SE|
00001260: 41 52 43 48 00 85 1A 7E 27 8D 32 37 31 31 30 3A |ARCH...~'.27110:|
00001270: 8F 20 52 45 43 20 4E 4F 54 20 46 4F 55 4E 44 20 |. REC NOT FOUND |
00001280: 50 52 4D 50 54 00 8B 1A 88 27 8E 00 A6 1A F8 2A |PRMPT....'.....*|
00001290: 8F 3D 3D 20 46 49 4C 45 20 55 50 44 41 54 45 20 |.== FILE UPDATE |
000012A0: 52 54 4E 20 3D 3D 00 AF 1A FD 2A 99 22 93 22 00 |RTN ==....*.".".|
000012B0: CA 1A 02 2B 8D 32 37 30 30 30 3A 8F 20 50 52 4D |...+.27000:. PRM|
000012C0: 50 54 20 46 4F 52 20 4B 45 59 00 DC 1A 07 2B 8B |PT FOR KEY....+.|
000012D0: 49 4E 24 B2 C7 28 31 33 33 29 A7 8E 00 05 1B 0C |IN$..(133)......|
000012E0: 2B 8B C6 28 49 4B 24 29 B2 32 35 35 A7 8D 32 37 |+..(IK$).255..27|
000012F0: 31 32 35 3A 8E 3A 8F 20 45 58 49 54 20 49 46 20 |125:.:. EXIT IF |
00001300: 45 4D 50 54 59 00 33 1B 16 2B 48 50 54 52 B2 49 |EMPTY.3..+HPTR.I|
00001310: 4B 3A 48 4B 45 59 B2 52 50 3A 8F 20 53 41 56 45 |K:HKEY.RP:. SAVE|
00001320: 20 48 41 53 48 20 50 4F 49 4E 54 45 52 20 26 20 | HASH POINTER & |
00001330: 4B 45 59 00 53 1B 20 2B 52 50 B2 49 4B 3A 8D 34 |KEY.S. +RP.IK:.4|
00001340: 30 30 30 30 3A 8F 20 47 45 54 20 44 41 54 41 20 |0000:. GET DATA |
00001350: 52 45 43 00 85 1B 2A 2B 52 50 B2 49 4B AA 4D 53 |REC...*+RP.IK.MS|
00001360: AA 34 3A 8D 35 32 31 30 30 3A 8D 35 32 31 33 35 |.4:.52100:.52135|
00001370: 3A 8F 20 52 45 41 44 20 46 49 4C 45 20 4C 49 4E |:. READ FILE LIN|
00001380: 4B 20 50 54 52 00 A5 1B 2F 2B 44 52 50 24 B2 49 |K PTR.../+DRP$.I|
00001390: 4B 24 3A 8F 20 53 41 56 45 20 44 45 4C 20 52 45 |K$:. SAVE DEL RE|
000013A0: 43 20 50 54 52 00 C7 1B 32 2B 8B C8 28 46 24 28 |C PTR...2+..(F$(|
000013B0: 4B 46 29 2C C3 28 5A 5A 24 29 29 B3 B1 5A 5A 24 |KF),.(ZZ$))..ZZ$|
000013C0: A7 89 31 31 30 38 30 00 EE 1B 34 2B 8D 32 39 30 |..11080...4+.290|
000013D0: 30 30 3A 8D 32 39 31 38 30 3A 8F 20 44 49 53 50 |00:.29180:. DISP|
000013E0: 4C 59 20 52 45 43 20 26 20 50 52 4D 50 54 00 0B |LY REC & PRMPT..|
000013F0: 1C 3E 2B 8B C3 28 49 4E 24 29 B2 30 B0 49 4E 24 |.>+..(IN$).0.IN$|
00001400: B2 22 59 22 A7 89 31 31 38 30 30 00 34 1C 48 2B |."Y"..11800.4.H+|
00001410: 8B C6 28 49 4B 24 29 B2 32 35 35 A7 8D 32 37 31 |..(IK$).255..271|
00001420: 32 35 3A 8E 3A 8F 20 52 45 43 20 4E 4F 54 20 46 |25:.:. REC NOT F|
00001430: 4F 55 4E 44 00 4F 1C 52 2B 89 31 31 30 33 30 3A |OUND.O.R+.11030:|
00001440: 8F 20 52 45 53 55 4D 45 20 53 45 41 52 43 48 00 |. RESUME SEARCH.|
00001450: 70 1C 18 2E 81 49 B2 31 A4 4E 46 3A 47 24 28 49 |p....I.1.NF:G$(I|
00001460: 29 B2 46 24 28 49 29 3A 82 3A 89 31 31 38 31 32 |).F$(I):.:.11812|
00001470: 00 8D 1C 22 2E 8D 32 38 30 30 30 3A 8B 49 4E 24 |..."..28000:.IN$|
00001480: B2 C7 28 31 33 33 29 A7 31 31 38 32 36 00 A6 1C |..(133).11826...|
00001490: 23 2E 8D 32 39 30 30 30 3A 8F 20 44 49 53 50 4C |#..29000:. DISPL|
000014A0: 41 59 20 52 45 43 00 E0 1C 24 2E 99 C8 28 59 24 |AY REC...$...(Y$|
000014B0: 2C 32 33 29 3B 22 D7 48 49 43 48 20 46 49 45 4C |,23);".HICH FIEL|
000014C0: 44 20 54 4F 20 55 50 44 41 54 45 3F 20 28 31 2D |D TO UPDATE? (1-|
000014D0: 22 3B 4E 46 3B 22 20 4F 52 20 4C 49 53 54 29 22 |";NF;" OR LIST)"|
000014E0: 00 0E 1D 27 2E 99 22 28 D4 59 50 45 20 12 46 31 |...'.."(.YPE .F1|
000014F0: 92 20 54 4F 20 43 41 4E 43 45 4C 2C 12 D2 C5 D4 |. TO CANCEL,....|
00001500: D5 D2 CE 92 20 54 4F 20 53 41 56 45 29 22 00 2A |.... TO SAVE)".*|
00001510: 1D 2C 2E 58 25 B2 33 35 3A 59 25 B2 32 34 3A 4C |.,.X%.35:Y%.24:L|
00001520: 25 B2 34 3A 8D 33 34 30 30 30 00 46 1D 2F 2E 55 |%.4:.34000.F./.U|
00001530: 46 B2 C5 28 49 4E 24 29 3A 8B 49 4E 24 B2 22 22 |F..(IN$):.IN$.""|
00001540: A7 31 31 39 35 30 00 5D 1D 30 2E 8B 49 4E 24 B3 |.11950.].0..IN$.|
00001550: B1 C7 28 31 33 33 29 A7 31 31 38 32 38 00 76 1D |..(133).11828.v.|
00001560: 31 2E 8F 3D 3D 20 43 4C 45 41 52 20 43 48 41 4E |1..== CLEAR CHAN|
00001570: 47 45 53 20 3D 3D 00 A6 1D 32 2E 81 49 B2 31 A4 |GES ==...2..I.1.|
00001580: 4E 46 3A 47 24 28 49 29 B2 46 24 28 49 29 3A 82 |NF:G$(I).F$(I):.|
00001590: 3A 81 49 B2 31 A4 4E 43 3A 43 44 28 49 29 B2 43 |:.I.1.NC:CD(I).C|
000015A0: 45 28 49 29 3A 82 00 C7 1D 33 2E 81 49 B2 31 A4 |E(I):....3..I.1.|
000015B0: 4E 47 3A 47 4B 28 49 29 B2 47 4C 28 49 29 3A 82 |NG:GK(I).GL(I):.|
000015C0: 3A 89 31 31 38 31 31 00 E9 1D 34 2E 8B 49 4E 24 |:.11811...4..IN$|
000015D0: B2 22 4C 49 53 54 22 A7 46 B2 30 3A 8D 32 30 30 |."LIST".F.0:.200|
000015E0: 30 30 3A 89 31 31 38 31 31 00 00 1E 35 2E 8F 3D |00:.11811...5..=|
000015F0: 3D 20 49 4E 56 41 4C 49 44 20 46 4C 44 20 3D 3D |= INVALID FLD ==|
00001600: 00 17 1E 36 2E 8B 55 46 B1 30 AF 55 46 B3 B2 4E |...6..UF.0.UF..N|
00001610: 46 A7 31 31 38 35 30 00 2E 1E 40 2E 99 C8 28 59 |F.11850...@...(Y|
00001620: 24 2C 32 33 29 3B 53 50 24 3A 99 53 50 24 00 61 |$,23);SP$:.SP$.a|
00001630: 1E 45 2E 99 C8 28 59 24 2C 32 33 29 3B 22 2A C9 |.E...(Y$,23);"*.|
00001640: 4E 56 41 4C 49 44 20 46 49 45 4C 44 2A 22 3A 81 |NVALID FIELD*":.|
00001650: 49 B2 31 A4 31 30 30 30 3A 82 3A 89 31 31 38 31 |I.1.1000:.:.1181|
00001660: 32 00 77 1E 4A 2E 8F 3D 3D 20 43 48 41 4E 47 45 |2.w.J..== CHANGE|
00001670: 20 46 4C 44 20 3D 3D 00 A0 1E 4C 2E 53 44 24 B2 | FLD ==...L.SD$.|
00001680: C8 28 44 54 24 2C 4C 25 28 55 46 29 29 3A 8B 54 |.(DT$,L%(UF)):.T|
00001690: 24 28 55 46 29 B3 B1 22 24 22 A7 31 31 38 35 35 |$(UF).."$".11855|
000016A0: 00 CB 1E 4D 2E 4C 44 25 B2 30 AB 4C 25 28 55 46 |...M.LD%.0.L%(UF|
000016B0: 29 3A 8B 4C 44 25 B1 30 A7 53 44 24 B2 53 44 24 |):.LD%.0.SD$.SD$|
000016C0: AA C8 28 53 50 24 2C 4C 44 25 29 00 EA 1E 4F 2E |..(SP$,LD%)...O.|
000016D0: 8B 54 24 28 55 46 29 B2 22 44 22 A7 53 44 24 B2 |.T$(UF)."D".SD$.|
000016E0: 22 2E 2E 2F 2E 2E 2F 2E 2E 22 00 11 1F 51 2E 99 |"../../.."...Q..|
000016F0: C8 28 59 24 2C 59 25 28 55 46 29 29 3B A3 58 25 |.(Y$,Y%(UF));.X%|
00001700: 28 55 46 29 29 3B 50 52 24 28 55 46 29 3B 53 44 |(UF));PR$(UF);SD|
00001710: 24 00 1B 1F 52 2E 47 24 B2 22 22 00 31 1F 54 2E |$...R.G$."".1.T.|
00001720: 8B 55 46 B3 B2 30 B0 55 46 B1 35 A7 31 31 38 36 |.UF..0.UF.5.1186|
00001730: 34 00 54 1F 56 2E 91 55 46 AB 30 8D 32 30 31 30 |4.T.V..UF.0.2010|
00001740: 2C 32 30 35 30 2C 32 31 32 30 2C 32 31 37 30 2C |,2050,2120,2170,|
00001750: 32 32 35 30 00 5F 1F 58 2E 89 31 31 38 31 30 00 |2250._.X..11810.|
00001760: 6C 1F AE 2E 5A 24 B2 47 24 28 31 29 00 8D 1F B8 |l...Z$.G$(1)....|
00001770: 2E 8D 20 31 32 31 30 35 3A 8F 20 44 45 4C 20 4F |.. 12105:. DEL O|
00001780: 4C 44 20 52 45 43 20 41 54 20 58 50 54 00 9A 1F |LD REC AT XPT...|
00001790: C2 2E 47 24 28 31 29 B2 5A 24 00 B4 1F CC 2E 8D |..G$(1).Z$......|
000017A0: 39 32 30 30 3A 8F 20 45 4E 54 45 52 20 4E 45 57 |9200:. ENTER NEW|
000017B0: 20 52 45 43 00 BA 1F D6 2E 8E 00 D5 1F E0 2E 8F | REC............|
000017C0: 20 3D 3D 20 52 45 43 20 44 45 4C 45 54 45 20 52 | == REC DELETE R|
000017D0: 54 4E 20 3D 3D 00 DE 1F E5 2E 99 22 93 22 00 FA |TN ==......"."..|
000017E0: 1F EA 2E 8D 32 37 30 30 30 3A 8F 20 50 52 4F 4D |....27000:. PROM|
000017F0: 50 54 20 46 4F 52 20 4B 45 59 00 0C 20 EF 2E 8B |PT FOR KEY.. ...|
00001800: 49 4E 24 B2 C7 28 31 33 33 29 A7 8E 00 35 20 F4 |IN$..(133)...5 .|
00001810: 2E 8B C6 28 49 4B 24 29 B2 32 35 35 A7 8D 32 37 |...(IK$).255..27|
00001820: 31 32 35 3A 8E 3A 8F 20 45 58 49 54 20 49 46 20 |125:.:. EXIT IF |
00001830: 45 4D 50 54 59 00 5F 20 FE 2E 48 50 54 52 B2 49 |EMPTY._ ..HPTR.I|
00001840: 4B 3A 48 4B 45 59 B2 52 50 3A 8F 20 53 41 56 45 |K:HKEY.RP:. SAVE|
00001850: 20 48 41 53 48 20 50 54 52 20 26 20 4B 45 59 00 | HASH PTR & KEY.|
00001860: 7F 20 08 2F 52 50 B2 49 4B 3A 8D 34 30 30 30 30 |. ./RP.IK:.40000|
00001870: 3A 8F 20 47 45 54 20 44 41 54 41 20 52 45 43 00 |:. GET DATA REC.|
00001880: B1 20 12 2F 52 50 B2 49 4B AA 4D 53 AA 34 3A 8D |. ./RP.IK.MS.4:.|
00001890: 35 32 31 30 30 3A 8D 35 32 31 33 35 3A 8F 20 52 |52100:.52135:. R|
000018A0: 45 41 44 20 46 49 4C 45 20 4C 49 4E 4B 20 50 54 |EAD FILE LINK PT|
000018B0: 52 00 D1 20 17 2F 44 52 50 24 B2 49 4B 24 3A 8F |R.. ./DRP$.IK$:.|
000018C0: 20 53 41 56 45 20 44 45 4C 20 52 45 43 20 50 54 | SAVE DEL REC PT|
000018D0: 52 00 F3 20 1A 2F 8B C8 28 46 24 28 4B 46 29 2C |R.. ./..(F$(KF),|
000018E0: C3 28 5A 5A 24 29 29 B3 B1 5A 5A 24 A7 89 31 32 |.(ZZ$))..ZZ$..12|
000018F0: 30 38 30 00 1A 21 1C 2F 8D 32 39 30 30 30 3A 8D |080..!./.29000:.|
00001900: 32 39 31 38 30 3A 8F 20 44 49 53 50 4C 59 20 52 |29180:. DISPLY R|
00001910: 45 43 20 26 20 50 52 4D 50 54 00 36 21 26 2F 8B |EC & PRMPT.6!&/.|
00001920: 49 4E 24 B2 22 59 22 B0 C3 28 49 4E 24 29 B2 30 |IN$."Y"..(IN$).0|
00001930: A7 31 32 30 39 35 00 5F 21 30 2F 8B C6 28 49 4B |.12095._!0/..(IK|
00001940: 24 29 B2 32 35 35 A7 8D 32 37 31 32 35 3A 8E 3A |$).255..27125:.:|
00001950: 8F 20 52 45 43 20 4E 4F 54 20 46 4F 55 4E 44 00 |. REC NOT FOUND.|
00001960: 6A 21 3A 2F 89 31 32 30 33 30 00 8E 21 3F 2F 8D |j!:/.12030..!?/.|
00001970: 31 32 38 30 30 3A 8F 20 44 49 53 50 4C 59 20 50 |12800:. DISPLY P|
00001980: 52 4D 50 54 20 54 4F 20 44 45 4C 45 54 45 00 9D |RMPT TO DELETE..|
00001990: 21 42 2F 8B 49 4E 24 B2 22 4E 22 A7 8E 00 CA 21 |!B/.IN$."N"....!|
000019A0: 44 2F 4E 52 B2 4E 52 AB 31 3A 52 4D B2 52 4D AA |D/NR.NR.1:RM.RM.|
000019B0: 31 3A 8F 20 55 50 44 41 54 45 20 23 52 45 43 20 |1:. UPDATE #REC |
000019C0: 26 20 53 50 43 20 4C 45 46 54 00 07 22 49 2F 47 |& SPC LEFT.."I/G|
000019D0: 24 28 31 29 B2 C8 28 C7 28 32 35 35 29 AA 53 53 |$(1)..(.(255).SS|
000019E0: 24 2C 4C 25 28 31 29 29 3A 52 50 B2 48 50 54 52 |$,L%(1)):RP.HPTR|
000019F0: 3A 8D 34 32 30 30 30 3A 8F 20 4E 55 4C 4C 20 44 |:.42000:. NULL D|
00001A00: 41 54 41 20 52 45 43 00 41 22 4C 2F 52 50 B2 48 |ATA REC.A"L/RP.H|
00001A10: 50 54 52 AA 4D 53 AA 34 3A 8D 35 32 31 30 30 3A |PTR.MS.4:.52100:|
00001A20: 49 4B 24 B2 58 46 53 24 3A 8D 35 32 31 34 35 3A |IK$.XFS$:.52145:|
00001A30: 8F 20 4D 4F 56 45 20 58 46 53 20 54 4F 20 44 52 |. MOVE XFS TO DR|
00001A40: 4C 00 63 22 4E 2F 58 46 53 24 B2 C4 28 48 50 54 |L.c"N/XFS$..(HPT|
00001A50: 52 29 3A 8F 20 53 45 54 20 58 46 53 20 54 4F 20 |R):. SET XFS TO |
00001A60: 44 52 50 00 A3 22 58 2F 52 50 B2 48 4B 45 59 3A |DRP.."X/RP.HKEY:|
00001A70: 8D 35 32 31 30 30 3A 49 4B 24 B2 44 52 50 24 3A |.52100:IK$.DRP$:|
00001A80: 8D 35 32 31 34 35 3A 8F 20 4D 4F 56 45 20 4C 49 |.52145:. MOVE LI|
00001A90: 4E 4B 20 50 54 52 20 54 4F 20 48 41 53 48 20 54 |NK PTR TO HASH T|
00001AA0: 42 4C 45 00 A9 22 9E 2F 8E 00 BC 22 00 32 99 C8 |BLE.."./...".2..|
00001AB0: 28 59 24 2C 32 34 29 3B 53 50 24 3B 00 EE 22 02 |(Y$,24);SP$;..".|
00001AC0: 32 99 C8 28 59 24 2C 32 34 29 3B 22 D3 55 52 45 |2..(Y$,24);".URE|
00001AD0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 44 45 4C | YOU WANT TO DEL|
00001AE0: 45 54 45 20 49 54 3F 20 28 59 2F 4E 29 22 00 0A |ETE IT? (Y/N)"..|
00001AF0: 23 05 32 59 25 B2 32 34 3A 58 25 B2 33 34 3A 4C |#.2Y%.24:X%.34:L|
00001B00: 25 B2 31 3A 8D 33 34 30 30 30 00 27 23 14 32 8B |%.1:.34000.'#.2.|
00001B10: 49 4E 24 B3 B1 22 59 22 AF 49 4E 24 B3 B1 22 4E |IN$.."Y".IN$.."N|
00001B20: 22 A7 31 32 38 30 30 00 2D 23 1E 32 8E 00 4B 23 |".12800.-#.2..K#|
00001B30: C7 32 8F 20 3D 3D 20 47 4C 42 20 54 4F 54 20 49 |.2. == GLB TOT I|
00001B40: 4E 50 55 54 20 52 54 4E 20 3D 3D 00 51 23 28 33 |NPUT RTN ==.Q#(3|
00001B50: 8F 00 6F 23 29 33 8F 3D 3D 20 47 4C 42 20 54 4F |..o#)3.== GLB TO|
00001B60: 54 20 55 50 44 41 54 45 20 52 54 4E 20 3D 3D 00 |T UPDATE RTN ==.|
00001B70: 8E 23 2A 33 8F 3D 3D 20 57 39 20 2D 44 41 54 41 |.#*3.== W9 -DATA|
00001B80: 20 46 49 4C 45 20 46 4C 44 20 23 20 3D 3D 00 B7 | FILE FLD # ==..|
00001B90: 23 2B 33 8F 3D 3D 20 49 4A 20 2D 46 4C 44 20 23 |#+3.== IJ -FLD #|
00001BA0: 20 4F 46 20 54 48 45 20 43 4F 52 52 20 47 4C 42 | OF THE CORR GLB|
00001BB0: 20 54 4F 54 20 3D 3D 00 BD 23 8E 33 8F 00 DC 23 | TOT ==..#.3...#|
00001BC0: 8F 33 8F 3D 3D 20 56 45 52 49 46 59 20 41 4C 4C |.3.== VERIFY ALL|
00001BD0: 20 47 4C 42 20 56 42 4C 53 20 3D 3D 00 FF 23 90 | GLB VBLS ==..#.|
00001BE0: 33 8F 3D 3D 20 4B 4E 4F 57 53 20 57 48 49 43 48 |3.== KNOWS WHICH|
00001BF0: 20 54 4F 54 20 41 52 45 20 47 4C 42 20 3D 3D 00 | TOT ARE GLB ==.|
00001C00: 05 24 94 34 8F 00 1D 24 1F 4E 8F 20 3D 3D 20 4C |.$.4...$.N. == L|
00001C10: 49 53 54 20 46 4C 44 20 23 53 20 3D 3D 00 48 24 |IST FLD #S ==.H$|
00001C20: 20 4E 99 22 93 CB 45 59 42 4F 41 52 44 2D 45 4E | N."..EYBOARD-EN|
00001C30: 54 45 52 45 44 20 46 49 45 4C 44 53 3A 22 3A 81 |TERED FIELDS:":.|
00001C40: 4A B2 31 A4 4E 46 A9 32 00 5C 24 2A 4E 99 4A 3B |J.1.NF.2.\$*N.J;|
00001C50: 22 2D 20 22 3B 50 52 24 28 4A 29 3B 00 7F 24 34 |"- ";PR$(J);..$4|
00001C60: 4E 8B 4A B3 4E 46 A7 99 A3 31 39 29 3B 4A AA 31 |N.J.NF...19);J.1|
00001C70: 3B 22 2D 20 22 3B 50 52 24 28 4A AA 31 29 3B 00 |;"- ";PR$(J.1);.|
00001C80: 87 24 3E 4E 99 3A 82 00 B3 24 6E 50 99 C8 28 59 |.$>N.:...$nP..(Y|
00001C90: 24 2C 32 34 29 3B 22 D0 52 45 53 53 20 12 D2 C5 |$,24);".RESS ...|
00001CA0: D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |..... TO CONTINU|
00001CB0: 45 22 3B 00 CE 24 78 50 A1 41 41 24 3A 8B 41 41 |E";..$xP.AA$:.AA|
00001CC0: 24 B3 B1 C7 28 31 33 29 A7 32 30 36 30 30 00 D9 |$...(13).20600..|
00001CD0: 24 82 50 99 22 93 22 3A 8E 00 02 25 08 52 81 49 |$.P.".":...%.R.I|
00001CE0: B2 31 A4 4E 46 3A 8B 54 24 28 49 29 B3 B1 22 44 |.1.NF:.T$(I).."D|
00001CF0: 22 A7 53 44 24 B2 47 24 28 49 29 3A 89 32 31 30 |".SD$.G$(I):.210|
00001D00: 32 30 00 35 25 12 52 53 44 24 B2 C8 28 47 24 28 |20.5%.RSD$..(G$(|
00001D10: 49 29 2C 32 29 AA 22 2F 22 AA CA 28 47 24 28 49 |I),2)."/"..(G$(I|
00001D20: 29 2C 33 2C 32 29 AA 22 2F 22 AA C9 28 47 24 28 |),3,2)."/"..(G$(|
00001D30: 49 29 2C 32 29 00 5B 25 1C 52 99 C8 28 59 24 2C |I),2).[%.R..(Y$,|
00001D40: 59 25 28 49 29 29 3B A3 58 25 28 49 29 29 3B 50 |Y%(I));.X%(I));P|
00001D50: 52 24 28 49 29 3B 53 44 24 3A 82 00 77 25 26 52 |R$(I);SD$:..w%&R|
00001D60: 81 49 B2 31 A4 4E 43 3A 8B 43 53 25 28 49 29 B2 |.I.1.NC:.CS%(I).|
00001D70: 30 A7 32 31 30 36 30 00 88 25 30 52 53 44 24 B2 |0.21060..%0RSD$.|
00001D80: C4 28 43 44 28 49 29 29 00 AF 25 3A 52 99 C8 28 |.(CD(I))..%:R..(|
00001D90: 59 24 2C 43 59 25 28 49 29 29 3B A3 43 58 25 28 |Y$,CY%(I));.CX%(|
00001DA0: 49 29 29 3B 43 50 24 28 49 29 3B 53 44 24 3B 00 |I));CP$(I);SD$;.|
00001DB0: B5 25 44 52 82 00 C1 25 46 52 81 49 B2 31 A4 4E |.%DR...%FR.I.1.N|
00001DC0: 54 00 E3 25 48 52 99 C8 28 59 24 2C 54 59 25 28 |T..%HR..(Y$,TY%(|
00001DD0: 49 29 29 A3 54 58 25 28 49 29 AA 31 29 54 50 24 |I)).TX%(I).1)TP$|
00001DE0: 28 49 29 00 E9 25 4A 52 82 00 EF 25 4E 52 8E 00 |(I)..%JR...%NR..|
00001DF0: 04 26 90 65 58 B2 30 3A 81 5A 5A B2 31 A4 C3 28 |.&.eX.0:.ZZ.1..(|
00001E00: 5A 5A 24 29 00 1E 26 9A 65 58 B2 58 AA 5A 5A AC |ZZ$)..&.eX.X.ZZ.|
00001E10: C6 28 CA 28 5A 5A 24 2C 5A 5A 2C 31 29 29 00 24 |.(.(ZZ$,ZZ,1)).$|
00001E20: 26 A4 65 82 00 4D 26 A9 65 58 B2 30 2E 36 AC 58 |&.e..M&.eX.0.6.X|
00001E30: AC 28 C6 28 C8 28 5A 5A 24 2C 31 29 29 AA C6 28 |.(.(.(ZZ$,1))..(|
00001E40: C9 28 5A 5A 24 2C 31 29 29 AB 36 32 29 00 72 26 |.(ZZ$,1)).62).r&|
00001E50: AE 65 58 B2 BC 28 58 29 3A 58 58 24 B2 C4 28 58 |.eX..(X):XX$..(X|
00001E60: 29 3A 52 50 B2 C5 28 CA 28 58 58 24 2C 36 2C 34 |):RP..(.(XX$,6,4|
00001E70: 29 29 00 8A 26 B8 65 52 50 B2 B5 28 4D 53 AC 52 |))..&.eRP..(MS.R|
00001E80: 50 AD 31 30 30 30 30 29 AA 35 00 90 26 C2 65 8E |P.10000).5..&.e.|
00001E90: 00 C6 26 78 69 99 22 93 22 3A 53 44 24 B2 C8 28 |..&xi.".":SD$..(|
00001EA0: 44 54 24 2C 4C 25 28 4B 46 29 29 3A 8B 54 24 28 |DT$,L%(KF)):.T$(|
00001EB0: 4B 46 29 B2 22 44 22 A7 53 44 24 B2 22 2E 2E 2F |KF)."D".SD$."../|
00001EC0: 2E 2E 2F 2E 2E 22 00 F1 26 82 69 99 C8 28 59 24 |../.."..&.i..(Y$|
00001ED0: 2C 59 25 28 4B 46 29 29 3B C8 28 58 24 2C 58 25 |,Y%(KF));.(X$,X%|
00001EE0: 28 4B 46 29 29 3B 50 52 24 28 4B 46 29 3B 53 44 |(KF));PR$(KF);SD|
00001EF0: 24 00 25 27 8C 69 99 C8 28 59 24 2C 32 34 29 3B |$.%'.i..(Y$,24);|
00001F00: 22 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 4B 45 |".LEASE ENTER KE|
00001F10: 59 20 4F 46 20 44 45 53 49 52 45 44 20 52 45 43 |Y OF DESIRED REC|
00001F20: 4F 52 44 2E 22 00 2E 27 96 69 8D 4B 46 24 00 40 |ORD."..'.i.KF$.@|
00001F30: 27 97 69 8B 49 4E 24 B2 C7 28 31 33 33 29 A7 8E |'.i.IN$..(133)..|
00001F40: 00 69 27 AA 69 5A 5A 24 B2 47 24 28 4B 46 29 3A |.i'.iZZ$.G$(KF):|
00001F50: 8D 32 36 30 30 30 3A 8F 20 43 4F 4D 50 55 54 45 |.26000:. COMPUTE|
00001F60: 20 48 41 53 48 20 4B 45 59 00 8B 27 BE 69 8D 35 | HASH KEY..'.i.5|
00001F70: 32 31 30 30 3A 8D 35 32 31 33 35 3A 8F 20 52 45 |2100:.52135:. RE|
00001F80: 41 44 20 48 41 53 48 20 50 54 52 00 91 27 C8 69 |AD HASH PTR..'.i|
00001F90: 8E 00 B6 27 E6 69 8F 20 3D 20 44 49 53 50 4C 59 |...'.i. = DISPLY|
00001FA0: 20 52 45 43 20 4E 4F 54 20 46 4F 55 4E 44 20 50 | REC NOT FOUND P|
00001FB0: 52 4D 50 54 20 3D 00 C9 27 F5 69 99 C8 28 59 24 |RMPT =..'.i..(Y$|
00001FC0: 2C 32 34 29 3B 53 50 24 3B 00 02 28 FA 69 99 C8 |,24);SP$;..(.i..|
00001FD0: 28 59 24 2C 32 33 29 22 D2 45 43 4F 52 44 20 4E |(Y$,23)".ECORD N|
00001FE0: 4F 54 20 46 4F 55 4E 44 20 2D 20 D4 59 50 45 20 |OT FOUND - .YPE |
00001FF0: 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 45 58 49 54 |........ TO EXIT|
00002000: 2E 22 00 1D 28 04 6A A1 41 41 24 3A 8B 41 41 24 |."..(.j.AA$:.AA$|
00002010: B3 B1 C7 28 31 33 29 A7 32 37 31 34 30 00 23 28 |...(13).27140.#(|
00002020: 0E 6A 8E 00 3B 28 60 6D 81 49 49 B2 31 A4 4E 46 |.j..;(`m.II.1.NF|
00002030: 3A 49 4A B2 47 53 25 28 49 49 29 00 4B 28 74 6D |:IJ.GS%(II).K(tm|
00002040: 8B 49 4A B2 30 A7 32 38 30 34 30 00 71 28 7E 6D |.IJ.0.28040.q(~m|
00002050: 47 4B 28 49 4A 29 B2 47 4C 28 49 4A 29 AA C5 28 |GK(IJ).GL(IJ)..(|
00002060: 47 24 28 49 49 29 29 AB C5 28 46 24 28 49 49 29 |G$(II))..(F$(II)|
00002070: 29 00 77 28 88 6D 82 00 84 28 92 6D 81 49 49 B2 |).w(.m...(.m.II.|
00002080: 31 A4 4E 43 00 95 28 9C 6D 50 5A B2 49 49 3A 8D |1.NC..(.mPZ.II:.|
00002090: 32 38 31 30 30 00 A7 28 A1 6D 49 4A B2 47 53 25 |28100..(.mIJ.GS%|
000020A0: 28 49 49 AA 4E 46 29 00 B7 28 A6 6D 8B 49 4A B2 |(II.NF)..(.m.IJ.|
000020B0: 30 A7 32 38 30 38 30 00 D7 28 AB 6D 47 4B 28 49 |0.28080..(.mGK(I|
000020C0: 4A 29 B2 47 4C 28 49 4A 29 AA 43 44 28 49 49 29 |J).GL(IJ).CD(II)|
000020D0: AB 43 45 28 49 49 29 00 DD 28 B0 6D 82 00 E3 28 |.CE(II)..(.m...(|
000020E0: B5 6D 8E 00 FA 28 BF 6D 8F 3D 3D 20 43 41 4C 43 |.m...(.m.== CALC|
000020F0: 20 43 44 28 50 5A 29 20 3D 3D 00 2A 29 C1 6D 8F | CD(PZ) ==.*).m.|
00002100: 3D 3D 20 41 53 53 55 4D 49 4E 47 20 43 44 28 31 |== ASSUMING CD(1|
00002110: 29 20 54 48 52 55 20 43 44 28 50 5A 2D 31 29 20 |) THRU CD(PZ-1) |
00002120: 49 53 20 43 41 4C 43 20 3D 3D 00 4C 29 53 6F 8F |IS CALC ==.L)So.|
00002130: 3D 3D 20 50 55 54 20 4F 4C 44 20 56 41 4C 55 45 |== PUT OLD VALUE|
00002140: 53 20 49 4E 20 43 45 28 29 20 3D 3D 00 6F 29 54 |S IN CE() ==.o)T|
00002150: 6F 8F 3D 3D 20 42 41 53 45 44 20 4F 4E 20 46 24 |o.== BASED ON F$|
00002160: 28 29 2C 47 4C 28 29 2C 43 45 28 29 20 3D 3D 00 |(),GL(),CE() ==.|
00002170: 80 29 59 6F 8B 43 53 25 28 50 5A 29 B2 31 A7 8E |.)Yo.CS%(PZ).1..|
00002180: 00 AB 29 48 71 8F 3D 3D 20 44 49 53 50 4C 41 59 |..)Hq.== DISPLAY|
00002190: 20 52 45 43 20 54 4F 20 53 43 52 20 26 20 50 52 | REC TO SCR & PR|
000021A0: 4D 50 54 53 20 52 54 4E 20 3D 3D 00 B4 29 4C 71 |MPTS RTN ==..)Lq|
000021B0: 99 22 93 22 00 C5 29 4D 71 8B 4E 46 B2 B3 30 A7 |."."..)Mq.NF..0.|
000021C0: 32 39 30 35 35 00 EC 29 52 71 81 49 B2 31 A4 4E |29055..)Rq.I.1.N|
000021D0: 46 3A 44 24 B2 47 24 28 49 29 3A 8B 54 24 28 49 |F:D$.G$(I):.T$(I|
000021E0: 29 B3 B1 22 44 22 A7 32 39 30 33 30 00 1E 2A 5C |).."D".29030..*\|
000021F0: 71 44 24 B2 C8 28 47 24 28 49 29 2C 32 29 AA 22 |qD$..(G$(I),2)."|
00002200: 2F 22 AA CA 28 47 24 28 49 29 2C 33 2C 32 29 AA |/"..(G$(I),3,2).|
00002210: 22 2F 22 AA C9 28 47 24 28 49 29 2C 32 29 00 4B |"/"..(G$(I),2).K|
00002220: 2A 66 71 8B 54 24 28 49 29 B2 22 24 22 A7 44 4F |*fq.T$(I)."$".DO|
00002230: 24 B2 44 24 3A 46 57 B2 4C 25 28 49 29 3A 8D 33 |$.D$:FW.L%(I):.3|
00002240: 36 30 30 30 3A 44 24 B2 44 4F 24 00 6D 2A 6B 71 |6000:D$.DO$.m*kq|
00002250: 8B 54 24 28 49 29 B2 22 23 22 A7 44 24 B2 C9 28 |.T$(I)."#".D$..(|
00002260: 53 50 24 AA 44 24 2C 4C 25 28 49 29 29 00 94 2A |SP$.D$,L%(I))..*|
00002270: 70 71 99 C8 28 59 24 2C 59 25 28 49 29 29 3B C8 |pq..(Y$,Y%(I));.|
00002280: 28 58 24 2C 58 25 28 49 29 29 3B 50 52 24 28 49 |(X$,X%(I));PR$(I|
00002290: 29 3B 44 24 00 9A 2A 7A 71 82 00 AB 2A 7F 71 8B |);D$..*zq...*.q.|
000022A0: 4E 43 B2 B3 30 A7 32 39 30 38 35 00 C4 2A 84 71 |NC..0.29085..*.q|
000022B0: 81 49 B2 31 A4 4E 43 3A 43 44 24 B2 C4 28 43 44 |.I.1.NC:CD$..(CD|
000022C0: 28 49 29 29 00 FC 2A 89 71 8B 43 54 24 28 49 29 |(I))..*.q.CT$(I)|
000022D0: B2 22 24 22 A7 44 4F 24 B2 43 44 24 3A 46 57 B2 |."$".DO$.CD$:FW.|
000022E0: 43 4C 25 28 49 29 3A 8D 33 36 30 30 30 3A 43 44 |CL%(I):.36000:CD|
000022F0: 24 B2 44 4F 24 3A 89 32 39 30 37 35 00 22 2B 8E |$.DO$:.29075."+.|
00002300: 71 8B 22 20 22 B2 C8 28 43 44 24 2C 31 29 A7 43 |q." "..(CD$,1).C|
00002310: 44 24 B2 CA 28 43 44 24 2C 32 29 3A 89 32 39 30 |D$..(CD$,2):.290|
00002320: 37 30 00 46 2B 91 71 43 44 24 B2 C9 28 53 50 24 |70.F+.qCD$..(SP$|
00002330: AA C8 28 43 44 24 2C 43 4C 25 28 49 29 29 2C 43 |..(CD$,CL%(I)),C|
00002340: 4C 25 28 49 29 29 00 70 2B 93 71 99 C8 28 59 24 |L%(I)).p+.q..(Y$|
00002350: 2C 43 59 25 28 49 29 29 3B C8 28 58 24 2C 43 58 |,CY%(I));.(X$,CX|
00002360: 25 28 49 29 29 3B 43 50 24 28 49 29 3B 43 44 24 |%(I));CP$(I);CD$|
00002370: 00 76 2B 98 71 82 00 87 2B 9D 71 8B 4E 54 B2 B3 |.v+.q...+.q.NT..|
00002380: 30 A7 32 39 31 31 35 00 93 2B A2 71 81 49 B2 31 |0.29115..+.q.I.1|
00002390: A4 4E 54 00 BB 2B AC 71 99 C8 28 59 24 2C 54 59 |.NT..+.q..(Y$,TY|
000023A0: 25 28 49 29 29 3B C8 28 58 24 2C 54 58 25 28 49 |%(I));.(X$,TX%(I|
000023B0: 29 AA 31 29 3B 54 50 24 28 49 29 00 C1 2B B6 71 |).1);TP$(I)..+.q|
000023C0: 82 00 D2 2B BB 71 8B 4E 47 B2 B3 30 A7 32 39 31 |...+.q.NG..0.291|
000023D0: 36 35 00 F0 2B C0 71 81 49 B2 31 A4 4E 47 3A 8F |65..+.q.I.1.NG:.|
000023E0: 20 47 45 54 20 47 4C 4F 42 41 4C 20 49 4E 46 4F | GET GLOBAL INFO|
000023F0: 00 2E 2C CA 71 47 4C 24 B2 C4 28 47 4B 28 49 29 |..,.qGL$..(GK(I)|
00002400: 29 3A 8B 47 54 24 28 49 29 B2 22 24 22 A7 44 4F |):.GT$(I)."$".DO|
00002410: 24 B2 47 4C 24 3A 46 57 B2 47 4C 25 28 49 29 3A |$.GL$:FW.GL%(I):|
00002420: 8D 33 36 30 30 30 3A 47 4C 24 B2 44 4F 24 00 51 |.36000:GL$.DO$.Q|
00002430: 2C D4 71 8B 47 54 24 B2 22 23 22 A7 47 4C 24 B2 |,.q.GT$."#".GL$.|
00002440: C9 28 53 50 24 AA 47 4C 24 2C 47 4C 25 28 49 29 |.(SP$.GL$,GL%(I)|
00002450: 29 00 7B 2C DE 71 99 C8 28 59 24 2C 47 59 25 28 |).{,.q..(Y$,GY%(|
00002460: 49 29 29 3B C8 28 58 24 2C 47 58 25 28 49 29 29 |I));.(X$,GX%(I))|
00002470: 3B 47 50 24 28 49 29 3B 47 4C 24 00 81 2C E8 71 |;GP$(I);GL$..,.q|
00002480: 82 00 87 2C ED 71 8E 00 B7 2C FC 71 99 C8 28 59 |...,.q...,.q..(Y|
00002490: 24 2C 32 34 29 3B 22 C9 53 20 54 48 49 53 20 49 |$,24);".S THIS I|
000024A0: 54 3F 20 28 20 12 D2 C5 D4 D5 D2 CE 92 20 3D 20 |T? ( ........ = |
000024B0: 59 45 53 20 29 22 3B 00 D3 2C 06 72 58 25 B2 32 |YES )";..,.rX%.2|
000024C0: 39 3A 59 25 B2 32 34 3A 4C 25 B2 31 3A 8D 33 34 |9:Y%.24:L%.1:.34|
000024D0: 30 30 30 00 D9 2C 10 72 8E 00 1B 2D 24 72 99 C8 |000..,.r...-$r..|
000024E0: 28 59 24 2C 32 34 29 3B 22 45 12 58 92 49 54 2C |(Y$,24);"E.X.IT,|
000024F0: 20 12 D2 C5 D4 D5 D2 CE 92 20 46 4F 52 20 4E 45 | ........ FOR NE|
00002500: 58 54 20 52 45 43 2E 2C 12 C6 31 92 20 54 4F 20 |XT REC.,..1. TO |
00002510: 50 52 49 4E 54 22 3B 53 50 24 3B 00 4B 2D 2E 72 |PRINT";SP$;.K-.r|
00002520: A1 49 4E 24 3A 8B 49 4E 24 B3 B1 C7 28 31 33 29 |.IN$:.IN$...(13)|
00002530: AF 49 4E 24 B3 B1 C7 28 31 33 33 29 AF 49 4E 24 |.IN$...(133).IN$|
00002540: B3 B1 22 58 22 A7 32 39 32 33 30 00 69 2D 3D 72 |.."X".29230.i-=r|
00002550: 8B 49 4E 24 B2 C7 28 31 33 33 29 A7 8D 35 31 31 |.IN$..(133)..511|
00002560: 30 30 3A 89 32 39 32 32 30 00 6F 2D 42 72 8E 00 |00:.29220.o-Br..|
00002570: 90 2D 2F 75 8F 3D 3D 20 4E 4D 52 43 20 46 4C 44 |.-/u.== NMRC FLD|
00002580: 20 45 44 49 54 20 43 48 4B 20 52 54 4E 20 3D 3D | EDIT CHK RTN ==|
00002590: 00 B1 2D 30 75 42 24 B2 43 44 24 3A 41 24 B2 C7 |..-0uB$.CD$:A$..|
000025A0: 28 33 32 29 3A 8D 34 31 30 30 30 3A 43 44 B2 49 |(32):.41000:CD.I|
000025B0: 39 00 D2 2D 31 75 8B 43 44 B1 31 A7 43 44 24 B2 |9..-1u.CD.1.CD$.|
000025C0: C8 28 43 44 24 2C 43 44 AB 31 29 3A 89 33 30 30 |.(CD$,CD.1):.300|
000025D0: 30 30 00 F0 2D 32 75 8B 43 44 B2 31 A7 43 44 24 |00..-2u.CD.1.CD$|
000025E0: B2 CA 28 43 44 24 2C 32 29 3A 89 33 30 30 30 30 |..(CD$,2):.30000|
000025F0: 00 01 2E 35 75 81 5A 5A B2 31 A4 C3 28 43 44 24 |...5u.ZZ.1..(CD$|
00002600: 29 00 2E 2E 3A 75 8B CA 28 43 44 24 2C 5A 5A 2C |)...:u..(CD$,ZZ,|
00002610: 31 29 B1 B2 22 30 22 AF CA 28 43 44 24 2C 5A 5A |1).."0"..(CD$,ZZ|
00002620: 2C 31 29 B3 B2 22 39 22 A7 33 30 30 32 30 00 5B |,1).."9".30020.[|
00002630: 2E 3F 75 8B CA 28 43 44 24 2C 5A 5A 2C 31 29 B3 |.?u..(CD$,ZZ,1).|
00002640: B1 22 2E 22 AF CA 28 43 44 24 2C 5A 5A 2C 31 29 |."."..(CD$,ZZ,1)|
00002650: B3 B1 22 2D 22 A7 45 B2 31 3A 8E 00 61 2E 44 75 |.."-".E.1:..a.Du|
00002660: 82 00 8E 2E 4E 75 42 24 B2 43 44 24 3A 41 24 B2 |....NuB$.CD$:A$.|
00002670: 22 2D 22 3A 8D 34 31 30 30 30 3A 49 31 B2 49 39 |"-":.41000:I1.I9|
00002680: 3A 42 24 B2 CA 28 42 24 2C 49 31 AA 31 29 00 B0 |:B$..(B$,I1.1)..|
00002690: 2E 53 75 8D 34 31 30 30 30 3A 49 32 B2 49 39 3A |.Su.41000:I2.I9:|
000026A0: 8B 49 31 B1 30 AF 49 32 B1 30 A7 45 B2 31 3A 8E |.I1.0.I2.0.E.1:.|
000026B0: 00 DD 2E 58 75 42 24 B2 43 44 24 3A 41 24 B2 22 |...XuB$.CD$:A$."|
000026C0: 2E 22 3A 8D 34 31 30 30 30 3A 49 31 B2 49 39 3A |.":.41000:I1.I9:|
000026D0: 42 24 B2 CA 28 42 24 2C 49 31 AA 31 29 00 FF 2E |B$..(B$,I1.1)...|
000026E0: 5D 75 8D 34 31 30 30 30 3A 49 32 B2 49 39 3A 8B |]u.41000:I2.I9:.|
000026F0: 49 31 B1 30 AF 49 32 B1 30 A7 45 B2 31 3A 8E 00 |I1.0.I2.0.E.1:..|
00002700: 05 2F 62 75 8E 00 28 2F 17 79 8F 20 3D 3D 20 41 |./bu..(/.y. == A|
00002710: 4C 50 48 41 20 46 4C 44 20 45 44 49 54 20 43 48 |LPHA FLD EDIT CH|
00002720: 4B 20 52 54 4E 20 3D 3D 00 39 2F 18 79 81 5A 5A |K RTN ==.9/.y.ZZ|
00002730: B2 31 A4 C3 28 43 44 24 29 00 68 2F 22 79 8B 28 |.1..(CD$).h/"y.(|
00002740: CA 28 43 44 24 2C 5A 5A 2C 31 29 B3 B2 22 39 22 |.(CD$,ZZ,1).."9"|
00002750: AF CA 28 43 44 24 2C 5A 5A 2C 31 29 B1 B2 22 30 |..(CD$,ZZ,1).."0|
00002760: 22 29 A7 45 B2 31 3A 8E 00 6E 2F 2C 79 82 00 74 |").E.1:..n/,y..t|
00002770: 2F 36 79 8E 00 A5 2F 00 7D 99 22 93 11 20 20 D4 |/6y.../.}.".. .|
00002780: 48 49 53 20 4F 50 54 49 4F 4E 20 57 49 4C 4C 20 |HIS OPTION WILL |
00002790: 43 4C 45 41 52 20 59 4F 55 52 20 44 41 54 41 20 |CLEAR YOUR DATA |
000027A0: 46 49 4C 45 22 00 DB 2F 05 7D 99 22 20 4F 46 20 |FILE"../.}." OF |
000027B0: 41 4C 4C 20 50 52 45 56 49 4F 55 53 4C 59 20 45 |ALL PREVIOUSLY E|
000027C0: 4E 54 45 52 45 44 20 52 45 43 4F 52 44 53 20 28 |NTERED RECORDS (|
000027D0: 49 46 20 20 20 41 4E 59 29 2E 22 00 0C 30 0A 7D |IF ANY)."..0.}|
000027E0: 99 3A 99 22 20 20 D4 48 45 20 4F 4E 4C 59 20 54 |.:." .HE ONLY T|
000027F0: 49 4D 45 20 54 48 41 54 20 59 4F 55 20 41 52 45 |IME THAT YOU ARE|
00002800: 20 12 52 45 51 55 49 52 45 44 92 22 00 39 30 0F | .REQUIRED.".90.|
00002810: 7D 99 22 20 54 4F 20 55 53 45 20 54 48 49 53 20 |}." TO USE THIS |
00002820: 4F 50 54 49 4F 4E 20 49 53 20 54 48 45 20 46 49 |OPTION IS THE FI|
00002830: 52 53 54 20 54 49 4D 45 22 00 63 30 14 7D 99 22 |RST TIME".c0.}."|
00002840: 20 59 4F 55 20 52 55 4E 20 59 4F 55 52 20 41 50 | YOU RUN YOUR AP|
00002850: 50 4C 49 43 41 54 49 4F 4E 20 50 52 4F 47 52 41 |PLICATION PROGRA|
00002860: 4D 2E 22 00 93 30 19 7D 99 3A 99 3A 99 22 20 20 |M."..0.}.:.:." |
00002870: D0 4C 41 43 45 20 54 48 45 20 44 49 53 4B 20 54 |.LACE THE DISK T|
00002880: 48 41 54 20 43 4F 4E 54 41 49 4E 53 20 59 4F 55 |HAT CONTAINS YOU|
00002890: 52 20 22 00 C3 30 1E 7D 99 22 20 44 41 54 41 20 |R "..0.}." DATA |
000028A0: 46 49 4C 45 20 49 4E 20 54 48 45 20 44 52 49 56 |FILE IN THE DRIV|
000028B0: 45 20 41 4E 44 20 54 59 50 45 20 12 43 4C 45 41 |E AND TYPE .CLEA|
000028C0: 52 92 22 00 E7 30 23 7D 99 22 20 54 4F 20 42 45 |R."..0#}." TO BE|
000028D0: 47 49 4E 20 46 49 4C 45 20 50 52 45 50 41 52 41 |GIN FILE PREPARA|
000028E0: 54 49 4F 4E 2E 20 22 00 14 31 24 7D 99 22 11 11 |TION. "..1$}."..|
000028F0: 11 20 D4 4F 20 52 45 54 55 52 4E 20 54 4F 20 54 |. .O RETURN TO T|
00002900: 48 45 20 4D 45 4E 55 20 50 52 45 53 53 20 12 46 |HE MENU PRESS .F|
00002910: 31 92 2E 22 00 31 31 28 7D 58 25 B2 32 39 3A 59 |1..".11(}X%.29:Y|
00002920: 25 B2 31 33 3A 4C 25 B2 35 3A 8D 20 33 34 30 30 |%.13:L%.5:. 3400|
00002930: 30 00 4B 31 2D 7D 8B 20 49 4E 24 B2 22 43 4C 45 |0.K1-}. IN$."CLE|
00002940: 41 52 22 20 A7 20 33 32 30 35 30 00 63 31 2E 7D |AR" . 32050.c1.}|
00002950: 8B 20 49 4E 24 B3 B1 C7 28 31 33 33 29 A7 33 32 |. IN$...(133).32|
00002960: 30 34 30 00 69 31 30 7D 8E 00 98 31 32 7D 99 22 |040.i10}...12}."|
00002970: 93 11 11 11 11 11 11 20 20 D4 48 49 53 20 57 49 |....... .HIS WI|
00002980: 4C 4C 20 54 41 4B 45 20 41 20 4C 49 54 54 4C 45 |LL TAKE A LITTLE|
00002990: 20 57 48 49 4C 45 2E 22 00 AA 31 37 7D 98 31 35 | WHILE."..17}.15|
000029A0: 2C 22 53 30 3A 22 AA 48 46 24 00 D1 31 3C 7D 9F |,"S0:".HF$..1<}.|
000029B0: 31 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 30 |1,8,15:.2,8,2,"0|
000029C0: 3A 22 AA 48 46 24 AA 22 2C 4C 2C 22 AA C7 28 35 |:".HF$.",L,"..(5|
000029D0: 29 00 F9 31 41 7D 52 32 B2 B5 28 28 32 AC 4D 53 |)..1A}R2..((2.MS|
000029E0: AA 34 29 AD 32 35 36 29 3A 52 31 B2 32 AC 4D 53 |.4).256):R1.2.MS|
000029F0: AA 34 AB 52 32 AC 32 35 36 00 16 32 46 7D 98 31 |.4.R2.256..2F}.1|
00002A00: 2C 22 50 22 C7 28 32 29 C7 28 52 31 29 C7 28 52 |,"P".(2).(R1).(R|
00002A10: 32 29 C7 28 31 29 00 24 32 4B 7D 98 32 2C C7 28 |2).(1).$2K}.2,.(|
00002A20: 32 35 35 29 00 35 32 50 7D 52 50 B2 31 3A 8D 20 |255).52P}RP.1:. |
00002A30: 35 32 31 31 30 00 56 32 55 7D 4E 52 24 B2 C4 28 |52110.V2U}NR$..(|
00002A40: 30 29 3A 4E 58 52 24 B2 C4 28 32 29 3A 58 46 53 |0):NXR$..(2):XFS|
00002A50: 24 B2 C4 28 31 29 00 7A 32 5A 7D 98 32 2C 4E 52 |$..(1).z2Z}.2,NR|
00002A60: 24 3A 98 32 2C 4E 58 52 24 3A 98 32 2C C4 28 46 |$:.2,NXR$:.2,.(F|
00002A70: 53 29 3A 98 32 2C 58 46 53 24 00 89 32 5F 7D A0 |S):.2,XFS$..2_}.|
00002A80: 31 3A A0 32 3A 4E 52 B2 30 00 A3 32 64 7D 98 31 |1:.2:NR.0..2d}.1|
00002A90: 35 2C 22 53 30 3A 22 AA 44 46 24 3A 9F 31 2C 38 |5,"S0:".DF$:.1,8|
00002AA0: 2C 31 35 00 C3 32 69 7D 9F 34 2C 38 2C 34 2C 22 |,15..2i}.4,8,4,"|
00002AB0: 30 3A 22 AA 44 46 24 AA 22 2C 4C 2C 22 AA C7 28 |0:".DF$.",L,"..(|
00002AC0: 38 30 29 00 DA 32 6E 7D 4A 4E B2 B5 28 28 52 53 |80)..2n}JN..((RS|
00002AD0: AC 4D 53 29 AD 38 30 29 AA 31 00 F8 32 73 7D 52 |.MS).80).1..2s}R|
00002AE0: 32 B2 B5 28 4A 4E AD 32 35 36 29 3A 52 31 B2 4A |2..(JN.256):R1.J|
00002AF0: 4E AB 32 35 36 AC 52 32 00 15 33 78 7D 98 31 2C |N.256.R2..3x}.1,|
00002B00: 22 50 22 C7 28 34 29 C7 28 52 31 29 C7 28 52 32 |"P".(4).(R1).(R2|
00002B10: 29 C7 28 31 29 00 31 33 7D 7D 8D 20 35 32 32 32 |).(1).13}}. 5222|
00002B20: 30 3A 98 34 2C C7 28 32 35 35 29 3A A0 31 3A A0 |0:.4,.(255):.1:.|
00002B30: 34 00 3C 33 C8 7D 50 51 B2 31 3A 8E 00 50 33 E8 |4.<3.}PQ.1:..P3.|
00002B40: 80 9F 34 2C 38 2C 34 2C 22 30 3A 22 AA 53 46 24 |..4,8,4,"0:".SF$|
00002B50: 00 67 33 EA 80 8D 35 32 32 32 30 3A 8B 44 53 B2 |.g3...52220:.DS.|
00002B60: 30 A7 33 33 30 31 30 00 93 33 EB 80 99 22 93 11 |0.33010..3..."..|
00002B70: 11 D9 4F 55 52 20 22 3B 3A 8B C2 28 39 36 35 29 |..OUR ";:..(965)|
00002B80: B2 31 A7 99 22 41 50 50 4C 49 43 41 54 49 4F 4E |.1.."APPLICATION|
00002B90: 20 22 3B 00 AB 33 EC 80 8B C2 28 39 36 35 29 B2 | ";..3....(965).|
00002BA0: 32 A7 99 22 44 41 54 41 20 22 3B 00 F2 33 ED 80 |2.."DATA ";..3..|
00002BB0: 99 22 44 49 53 4B 2C 20 43 4F 4E 54 41 49 4E 49 |."DISK, CONTAINI|
00002BC0: 4E 47 20 59 4F 55 52 20 20 53 43 52 45 45 4E 20 |NG YOUR SCREEN |
00002BD0: 4C 41 59 4F 55 54 20 46 49 4C 45 2C 20 4D 55 53 |LAYOUT FILE, MUS|
00002BE0: 54 20 42 45 20 49 4E 20 44 52 49 56 45 20 23 30 |T BE IN DRIVE #0|
00002BF0: 2E 22 00 16 34 EF 80 99 22 11 D0 52 45 53 53 20 |."..4..."..RESS |
00002C00: 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 |........ TO CONT|
00002C10: 49 4E 55 45 2E 22 00 31 34 F0 80 A1 41 41 24 3A |INUE.".14...AA$:|
00002C20: 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 33 33 30 30 |.AA$...(13).3300|
00002C30: 38 00 3F 34 F1 80 A0 34 3A 89 33 33 30 30 30 00 |8.?4...4:.33000.|
00002C40: 56 34 F2 80 84 34 2C 4E 46 3A 8B 4E 46 B2 B3 30 |V4...4,NF:.NF..0|
00002C50: A7 33 33 30 36 30 00 7F 34 FC 80 86 50 52 24 28 |.33060..4...PR$(|
00002C60: 4E 46 29 2C 58 25 28 4E 46 29 2C 59 25 28 4E 46 |NF),X%(NF),Y%(NF|
00002C70: 29 2C 4C 25 28 4E 46 29 2C 54 24 28 4E 46 29 00 |),L%(NF),T$(NF).|
00002C80: 8B 34 06 81 81 49 B2 31 A4 4E 46 00 B3 34 10 81 |.4...I.1.NF..4..|
00002C90: 84 34 2C 50 52 24 28 49 29 2C 58 25 28 49 29 2C |.4,PR$(I),X%(I),|
00002CA0: 59 25 28 49 29 2C 4C 25 28 49 29 2C 54 24 28 49 |Y%(I),L%(I),T$(I|
00002CB0: 29 3A 82 00 CA 34 24 81 84 34 2C 4E 43 3A 8B 4E |):...4$..4,NC:.N|
00002CC0: 43 B2 B3 30 A7 33 33 31 30 32 00 E1 34 4E 81 84 |C..0.33102..4N..|
00002CD0: 34 2C 4E 47 3A 8B 4E 47 B2 B3 30 A7 33 33 31 31 |4,NG:.NG..0.3311|
00002CE0: 30 00 1B 35 51 81 86 47 50 24 28 4E 47 29 2C 47 |0..5Q..GP$(NG),G|
00002CF0: 58 25 28 4E 47 29 2C 47 59 25 28 4E 47 29 2C 47 |X%(NG),GY%(NG),G|
00002D00: 54 24 28 4E 47 29 2C 47 4C 28 4E 47 29 2C 47 4B |T$(NG),GL(NG),GK|
00002D10: 28 4E 47 29 2C 47 4D 28 4E 47 29 00 32 35 56 81 |(NG),GM(NG).25V.|
00002D20: 84 34 2C 4E 54 3A 8B 4E 54 B2 B3 30 A7 33 33 31 |.4,NT:.NT..0.331|
00002D30: 36 30 00 3B 35 88 81 A0 34 3A 8E 00 61 35 D0 84 |60.;5...4:..a5..|
00002D40: 49 4E 24 B2 22 22 3A 4A B2 31 3A 41 44 B2 31 30 |IN$."":J.1:AD.10|
00002D50: 32 34 AA 28 59 25 AB 31 29 AC 34 30 AA 58 25 AB |24.(Y%.1).40.X%.|
00002D60: 31 00 92 35 D5 84 81 4B 4C B2 30 A4 4C 25 3A 97 |1..5...KL.0.L%:.|
00002D70: 35 35 32 39 36 AA 28 59 25 AB 31 29 AC 34 30 AA |55296.(Y%.1).40.|
00002D80: 28 58 25 AA 4B 4C 29 2C C2 28 36 34 36 29 3A 82 |(X%.KL),.(646):.|
00002D90: 4B 4C 00 BD 35 DA 84 8B 4A B2 31 AF 4C 25 B1 31 |KL..5...J.1.L%.1|
00002DA0: A7 99 C8 28 59 24 2C 59 25 29 3B C8 28 58 24 2C |...(Y$,Y%);.(X$,|
00002DB0: 58 25 29 3B C8 28 44 54 24 2C 4C 25 29 00 D3 35 |X%);.(DT$,L%)..5|
00002DC0: E4 84 97 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 B0 |...AD.J,.(AD.J).|
00002DD0: 31 32 38 00 E8 35 EE 84 A1 49 24 3A 8B 49 24 B2 |128..5...I$:.I$.|
00002DE0: 22 22 A7 33 34 30 33 30 00 05 36 EF 84 8B 49 24 |"".34030..6...I$|
00002DF0: B2 C7 28 31 34 30 29 A7 8D 35 34 33 30 30 3A 89 |..(140)..54300:.|
00002E00: 33 34 30 31 30 00 12 36 F0 84 49 49 B2 C6 28 49 |34010..6..II..(I|
00002E10: 24 29 00 27 36 F3 84 8B 49 49 B2 31 33 33 A7 49 |$).'6...II.133.I|
00002E20: 4E 24 B2 49 24 3A 8E 00 38 36 F4 84 8B 49 49 B2 |N$.I$:..86...II.|
00002E30: 33 34 A7 33 34 30 33 30 00 72 36 F8 84 8B 28 49 |34.34030.r6...(I|
00002E40: 49 B3 33 32 AF 49 49 B3 B1 32 30 AF 49 49 B3 B1 |I.32.II..20.II..|
00002E50: 31 33 29 B0 28 49 49 B1 31 32 38 AF 49 49 B3 31 |13).(II.128.II.1|
00002E60: 39 32 29 B0 28 49 49 B1 32 31 38 29 A7 33 34 30 |92).(II.218).340|
00002E70: 31 30 00 8F 36 F9 84 8B 49 49 B2 35 39 B0 49 49 |10..6...II.59.II|
00002E80: B2 35 38 B0 49 49 B2 34 34 A7 33 34 30 31 30 00 |.58.II.44.34010.|
00002E90: A1 36 FD 84 8B 49 49 B3 B1 32 30 A7 33 34 30 37 |.6...II..20.3407|
00002EA0: 30 00 B0 36 02 85 8B 4A B2 31 A7 33 34 30 31 30 |0..6...J.1.34010|
00002EB0: 00 EC 36 0C 85 4A B2 4A AB 31 3A 49 4E 24 B2 C8 |..6..J.J.1:IN$..|
00002EC0: 28 49 4E 24 2C 4A AB 31 29 3A 49 24 B2 22 2E 22 |(IN$,J.1):I$."."|
00002ED0: 3A 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 AA 4A |:..(Y$,Y%);.X%.J|
00002EE0: 29 3B 22 2E 22 3A 89 33 34 30 39 30 00 0C 37 16 |);".":.34090..7.|
00002EF0: 85 8B 49 49 B2 31 33 A7 97 41 44 AA 4A 2C C2 28 |..II.13..AD.J,.(|
00002F00: 41 44 AA 4A 29 AF 20 31 32 37 3A 8E 00 1B 37 20 |AD.J). 127:...7 |
00002F10: 85 49 4E 24 B2 49 4E 24 AA 49 24 00 35 37 2A 85 |.IN$.IN$.I$.57*.|
00002F20: 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 AA 4A AB |..(Y$,Y%);.X%.J.|
00002F30: 31 29 3B 49 24 00 58 37 34 85 8B 4A B2 4C 25 A7 |1);I$.X74..J.L%.|
00002F40: 49 4E 24 B2 C8 28 49 4E 24 2C 4A AB 31 29 AA 49 |IN$..(IN$,J.1).I|
00002F50: 24 3A 89 35 34 30 30 30 00 6A 37 3E 85 8B 49 49 |$:.54000.j7>..II|
00002F60: B3 B1 32 30 A7 4A B2 4A AA 31 00 75 37 48 85 89 |..20.J.J.1.u7H..|
00002F70: 33 34 30 31 30 00 96 37 98 85 8F 3D 3D 20 52 45 |34010..7...== RE|
00002F80: 4D 4F 56 45 20 54 52 41 49 4C 49 4E 47 20 42 4C |MOVE TRAILING BL|
00002F90: 4E 4B 53 20 3D 3D 00 A4 37 9D 85 8B 49 4E 24 B2 |NKS ==..7...IN$.|
00002FA0: 22 22 A7 8E 00 B8 37 A2 85 43 43 25 B2 C6 28 C9 |""....7..CC%..(.|
00002FB0: 28 49 4E 24 2C 31 29 29 00 D0 37 AC 85 8B 43 43 |(IN$,1))..7...CC|
00002FC0: 25 B3 B1 33 32 AF 43 43 25 B3 B1 31 36 30 A7 8E |%..32.CC%..160..|
00002FD0: 00 EF 37 B6 85 49 4E 24 B2 C8 28 49 4E 24 2C C3 |..7..IN$..(IN$,.|
00002FE0: 28 49 4E 24 29 AB 31 29 3A 89 33 34 32 30 35 00 |(IN$).1):.34205.|
00002FF0: 25 38 B8 88 97 38 30 38 2C 32 33 37 3A 99 22 93 |%8...808,237:.".|
00003000: D3 43 41 4E 20 41 4C 4C 20 4F 52 20 53 45 4C 45 |.CAN ALL OR SELE|
00003010: 43 54 45 44 20 52 45 43 4F 52 44 53 3F 20 28 41 |CTED RECORDS? (A|
00003020: 2F 53 29 22 3B 00 48 38 C2 88 58 25 B2 33 36 3A |/S)";.H8..X%.36:|
00003030: 59 25 B2 31 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 |Y%.1:L%.1:.34000|
00003040: 3A 53 54 24 B2 49 4E 24 00 5A 38 C7 88 8B 49 4E |:ST$.IN$.Z8...IN|
00003050: 24 B2 C7 28 31 33 33 29 A7 8E 00 77 38 CC 88 8B |$..(133)...w8...|
00003060: 53 54 24 B3 B1 22 41 22 AF 53 54 24 B3 B1 22 53 |ST$.."A".ST$.."S|
00003070: 22 A7 33 35 30 31 30 00 8A 38 D6 88 8B 53 54 24 |".35010..8...ST$|
00003080: B2 22 41 22 A7 33 35 31 38 30 00 97 38 DB 88 99 |."A".35180..8...|
00003090: C8 28 59 24 2C 34 29 00 C3 38 E0 88 99 22 D7 48 |.(Y$,4)..8...".H|
000030A0: 41 54 20 46 49 45 4C 44 20 44 4F 20 59 4F 55 20 |AT FIELD DO YOU |
000030B0: 57 49 53 48 20 54 4F 20 53 45 4C 45 43 54 20 42 |WISH TO SELECT B|
000030C0: 59 3F 22 00 E5 38 E5 88 99 22 28 20 31 2D 22 3B |Y?"..8..."( 1-";|
000030D0: 4E 46 AA 4E 43 3B 22 20 4F 52 20 27 4C 49 53 54 |NF.NC;" OR 'LIST|
000030E0: 27 20 29 22 3B 00 11 39 EA 88 58 25 B2 32 31 3A |' )";..9..X%.21:|
000030F0: 59 25 B2 C2 28 32 31 34 29 AA 31 3A 4C 25 B2 35 |Y%..(214).1:L%.5|
00003100: 3A 8D 33 34 30 30 30 3A 53 46 B2 C5 28 49 4E 24 |:.34000:SF..(IN$|
00003110: 29 00 28 39 F4 88 8B 49 4E 24 B3 B1 22 4C 49 53 |).(9...IN$.."LIS|
00003120: 54 22 A7 33 35 30 38 30 00 43 39 FE 88 46 B2 32 |T".35080.C9..F.2|
00003130: 3A 8D 32 30 30 30 30 3A 99 22 93 22 3A 89 33 35 |:.20000:.".":.35|
00003140: 30 33 35 00 6E 39 08 89 8B 53 46 B3 31 B0 53 46 |035.n9...SF.1.SF|
00003150: B1 4E 46 AA 4E 43 A7 99 C8 28 59 24 2C 39 29 22 |.NF.NC...(Y$,9)"|
00003160: 49 4E 56 41 4C 49 44 20 46 49 45 4C 44 22 00 8E |INVALID FIELD"..|
00003170: 39 0B 89 8B 53 46 B3 31 B0 53 46 B1 4E 46 AA 4E |9...SF.1.SF.NF.N|
00003180: 43 A7 81 5A 54 B2 31 A4 31 30 30 30 3A 82 00 B5 |C..ZT.1.1000:...|
00003190: 39 0D 89 8B 53 46 B3 31 B0 53 46 B1 4E 46 AA 4E |9...SF.1.SF.NF.N|
000031A0: 43 A7 99 C8 28 59 24 2C 39 29 3B 53 50 24 3A 89 |C...(Y$,9);SP$:.|
000031B0: 33 35 30 33 35 00 DD 39 12 89 8B 53 46 B3 B2 4E |35035..9...SF..N|
000031C0: 46 A7 54 24 B2 54 24 28 53 46 29 3A 4C 53 25 B2 |F.T$.T$(SF):LS%.|
000031D0: 4C 25 28 53 46 29 3A 89 33 35 31 31 30 00 FE 39 |L%(SF):.35110..9|
000031E0: 1C 89 54 24 B2 43 54 24 28 53 46 AB 4E 46 29 3A |..T$.CT$(SF.NF):|
000031F0: 4C 53 25 B2 43 4C 25 28 53 46 AB 4E 46 29 00 34 |LS%.CL%(SF.NF).4|
00003200: 3A 26 89 99 C8 28 59 24 2C 39 29 3B 22 D3 4D 41 |:&...(Y$,9);".MA|
00003210: 4C 4C 45 53 54 20 49 54 45 4D 20 54 4F 20 53 45 |LLEST ITEM TO SE|
00003220: 4C 45 43 54 3F 22 3B 3A 59 30 25 B2 C2 28 32 31 |LECT?";:Y0%..(21|
00003230: 34 29 AA 32 00 4B 3A 30 89 58 25 B2 30 3A 59 25 |4).2.K:0.X%.0:Y%|
00003240: B2 59 30 25 3A 4C 25 B2 4C 53 25 00 6D 3A 32 89 |.Y0%:L%.LS%.m:2.|
00003250: 8B 54 24 B2 22 44 22 A7 8D 34 39 30 30 30 3A 53 |.T$."D"..49000:S|
00003260: 4D 24 B2 49 4E 24 3A 89 33 35 31 33 30 00 87 3A |M$.IN$:.35130..:|
00003270: 35 89 8D 33 34 30 30 30 3A 8D 33 34 32 30 30 3A |5..34000:.34200:|
00003280: 53 4D 24 B2 49 4E 24 00 99 3A 3A 89 8B 53 4D 24 |SM$.IN$..::..SM$|
00003290: B2 22 22 A7 33 35 31 32 30 00 BA 3A 3F 89 8B 54 |."".35120..:?..T|
000032A0: 24 B2 22 44 22 A7 44 24 B2 53 4D 24 3A 8D 33 35 |$."D".D$.SM$:.35|
000032B0: 35 30 30 3A 53 4D 24 B2 44 24 00 F0 3A 44 89 99 |500:SM$.D$..:D..|
000032C0: C8 28 59 24 2C 31 32 29 3B 22 CC 41 52 47 45 53 |.(Y$,12);".ARGES|
000032D0: 54 20 49 54 45 4D 20 54 4F 20 53 45 4C 45 43 54 |T ITEM TO SELECT|
000032E0: 3F 22 3B 3A 59 30 25 B2 C2 28 32 31 34 29 AA 32 |?";:Y0%..(214).2|
000032F0: 00 07 3B 4E 89 58 25 B2 30 3A 59 25 B2 59 30 25 |..;N.X%.0:Y%.Y0%|
00003300: 3A 4C 25 B2 4C 53 25 00 29 3B 50 89 8B 54 24 B2 |:L%.LS%.);P..T$.|
00003310: 22 44 22 A7 8D 34 39 30 30 30 3A 4C 52 24 B2 49 |"D"..49000:LR$.I|
00003320: 4E 24 3A 89 33 35 31 36 30 00 3C 3B 53 89 8D 33 |N$:.35160.<;S..3|
00003330: 34 30 30 30 3A 4C 52 24 B2 49 4E 24 00 4E 3B 58 |4000:LR$.IN$.N;X|
00003340: 89 8B 4C 52 24 B2 22 22 A7 33 35 31 35 30 00 6F |..LR$."".35150.o|
00003350: 3B 5D 89 8B 54 24 B2 22 44 22 A7 44 24 B2 4C 52 |;]..T$."D".D$.LR|
00003360: 24 3A 8D 33 35 35 30 30 3A 4C 52 24 B2 44 24 00 |$:.35500:LR$.D$.|
00003370: 87 3B 62 89 4C 52 B2 C5 28 4C 52 24 29 3A 53 4D |.;b.LR..(LR$):SM|
00003380: B2 C5 28 53 4D 24 29 00 A4 3B 64 89 8B 28 54 24 |..(SM$)..;d..(T$|
00003390: B2 22 23 22 B0 54 24 B2 22 24 22 29 AF 4C 52 B3 |."#".T$."$").LR.|
000033A0: 53 4D A7 8E 00 C3 3B 67 89 8B 28 54 24 B2 22 41 |SM....;g..(T$."A|
000033B0: 22 B0 54 24 B2 22 44 22 29 AF 4C 52 24 B3 53 4D |".T$."D").LR$.SM|
000033C0: 24 A7 8E 00 C9 3B 6C 89 8F 00 DD 3B 76 89 81 52 |$....;l....;v..R|
000033D0: 50 B2 31 A4 C5 28 4E 58 52 24 29 AB 32 00 E8 3B |P.1..(NXR$).2..;|
000033E0: 80 89 8D 34 30 30 30 35 00 05 3C 8A 89 8B C8 28 |...40005..<....(|
000033F0: 46 24 28 31 29 2C 31 29 B2 C7 28 32 35 35 29 A7 |F$(1),1)..(255).|
00003400: 33 35 34 30 30 00 22 3C 9E 89 8B 53 46 B3 B2 4E |35400."<...SF..N|
00003410: 46 A7 47 24 B2 46 24 28 53 46 29 3A 89 33 35 32 |F.G$.F$(SF):.352|
00003420: 36 30 00 3B 3C A8 89 81 50 5A B2 31 A4 53 46 AB |60.;<...PZ.1.SF.|
00003430: 4E 46 3A 8D 32 38 35 30 30 3A 82 00 4F 3C B2 89 |NF:.28500:..O<..|
00003440: 47 24 B2 C4 28 43 45 28 53 46 AB 4E 46 29 29 00 |G$..(CE(SF.NF)).|
00003450: 62 3C BC 89 8B 53 54 24 B2 22 41 22 A7 33 35 33 |b<...ST$."A".353|
00003460: 31 33 00 7B 3C C6 89 8B 54 24 B2 22 23 22 B0 54 |13.{<...T$."#".T|
00003470: 24 B2 22 24 22 A7 33 35 33 30 30 00 9A 3C CB 89 |$."$".35300..<..|
00003480: 8B 54 24 B2 22 44 22 A7 44 24 B2 47 24 3A 8D 33 |.T$."D".D$.G$:.3|
00003490: 35 35 30 30 3A 47 24 B2 44 24 00 B3 3C D0 89 49 |5500:G$.D$..<..I|
000034A0: 4E 24 B2 47 24 3A 8D 33 34 32 30 30 3A 47 24 B2 |N$.G$:.34200:G$.|
000034B0: 49 4E 24 00 CC 3C D3 89 8B 47 24 B1 4C 52 24 B0 |IN$..<...G$.LR$.|
000034C0: 47 24 B3 53 4D 24 A7 33 35 34 30 30 00 D7 3C DA |G$.SM$.35400..<.|
000034D0: 89 89 33 35 33 31 33 00 F4 3C E4 89 8B C5 28 47 |..35313..<....(G|
000034E0: 24 29 B3 53 4D B0 C5 28 47 24 29 B1 4C 52 A7 33 |$).SM..(G$).LR.3|
000034F0: 35 34 30 30 00 FA 3C F1 89 8F 00 17 3D 0C 8A 81 |5400..<.....=...|
00003500: 49 41 B2 31 A4 4E 46 3A 47 24 28 49 41 29 B2 46 |IA.1.NF:G$(IA).F|
00003510: 24 28 49 41 29 3A 82 00 29 3D 16 8A 8D 32 39 30 |$(IA):..)=...290|
00003520: 30 30 3A 8D 32 39 32 32 30 00 38 3D 34 8A 8B 49 |00:.29220.8=4..I|
00003530: 4E 24 B2 22 58 22 A7 8E 00 40 3D 48 8A 82 52 50 |N$."X"...@=H..RP|
00003540: 00 46 3D 52 8A 8E 00 69 3D AC 8A 44 24 B2 C9 28 |.F=R...i=..D$..(|
00003550: 44 24 2C 32 29 AA C8 28 44 24 2C 32 29 AA CA 28 |D$,2)..(D$,2)..(|
00003560: 44 24 2C 33 2C 32 29 3A 8E 00 86 3D 9F 8C 8F 3D |D$,3,2):...=...=|
00003570: 3D 20 44 4F 4C 4C 41 52 20 46 4F 52 4D 41 54 54 |= DOLLAR FORMATT|
00003580: 49 4E 47 20 3D 3D 00 B0 3D A0 8C 44 4F 24 B2 C4 |ING ==..=..DO$..|
00003590: 28 B5 28 C5 28 44 4F 24 29 AC 31 30 30 AA 30 2E |(.(.(DO$).100.0.|
000035A0: 35 29 AD 31 30 30 29 3A 4C B2 C3 28 44 4F 24 29 |5).100):L..(DO$)|
000035B0: 00 D1 3D AA 8C 81 4A B2 31 A4 4C 3A 8B CA 28 44 |..=...J.1.L:..(D|
000035C0: 4F 24 2C 4A 2C 31 29 B2 22 2E 22 A7 33 36 30 33 |O$,J,1).".".3603|
000035D0: 30 00 DE 3D B4 8C 82 4A 3A 4A B2 4A AB 31 00 07 |0..=...J:J.J.1..|
000035E0: 3E BE 8C 8B 4A B2 32 AF 4C B1 32 A7 44 4F 24 B2 |>...J.2.L.2.DO$.|
000035F0: C8 28 44 4F 24 2C 31 29 AA 22 30 22 AA C9 28 44 |.(DO$,1)."0"..(D|
00003600: 4F 24 2C 4C AB 31 29 00 1E 3E C8 8C 8B 4A B2 4C |O$,L.1)..>...J.L|
00003610: A7 44 4F 24 B2 44 4F 24 AA 22 2E 30 30 22 00 35 |.DO$.DO$.".00".5|
00003620: 3E D2 8C 8B 4A B2 4C AB 31 A7 44 4F 24 B2 44 4F |>...J.L.1.DO$.DO|
00003630: 24 AA 22 30 22 00 4B 3E E6 8C 44 4F 24 B2 C9 28 |$."0".K>..DO$..(|
00003640: 53 50 24 AA 44 4F 24 2C 46 57 29 00 51 3E F0 8C |SP$.DO$,FW).Q>..|
00003650: 8E 00 65 3E 40 9C 8D 34 30 30 30 35 3A 8D 34 30 |..e>@..40005:.40|
00003660: 31 35 30 3A 8E 00 99 3E 45 9C 53 4E B2 B5 28 52 |150:...>E.SN..(R|
00003670: 53 AC 28 52 50 AB 31 29 AD 38 30 29 AA 31 3A 4F |S.(RP.1).80).1:O|
00003680: 53 B2 28 52 53 AC 28 52 50 AB 31 29 29 AB 28 38 |S.(RS.(RP.1)).(8|
00003690: 30 AC 28 53 4E AB 31 29 29 00 C4 3E 5E 9C 8D 35 |0.(SN.1))..>^..5|
000036A0: 32 30 30 30 3A 84 34 2C 49 4E 24 3A 49 4E 24 B2 |2000:.4,IN$:IN$.|
000036B0: C8 28 49 4E 24 AA 53 53 24 2C 38 30 29 3A 8D 34 |.(IN$.SS$,80):.4|
000036C0: 33 31 30 30 00 D6 3E 68 9C 52 4C B2 4F 53 3A 49 |3100..>h.RL.OS:I|
000036D0: 39 B2 52 4C AA 31 00 F5 3E 72 9C 81 4A B2 31 A4 |9.RL.1..>r..J.1.|
000036E0: 4E 46 3A 8B 52 4C AA 4C 25 28 4A 29 B1 38 30 A7 |NF:.RL.L%(J).80.|
000036F0: 34 30 30 36 35 00 27 3F 77 9C 52 4C B2 52 4C AA |40065.'?w.RL.RL.|
00003700: 4C 25 28 4A 29 3A 46 24 28 4A 29 B2 CA 28 49 4E |L%(J):F$(J)..(IN|
00003710: 24 2C 49 39 2C 4C 25 28 4A 29 29 3A 49 39 B2 49 |$,I9,L%(J)):I9.I|
00003720: 39 AA 4C 25 28 4A 29 00 32 3F 7C 9C 89 34 30 30 |9.L%(J).2?|..400|
00003730: 39 30 00 54 3F 81 9C 46 24 28 4A 29 B2 CA 28 49 |90.T?..F$(J)..(I|
00003740: 4E 24 2C 49 39 2C 38 30 AB 52 4C 29 3A 53 4E B2 |N$,I9,80.RL):SN.|
00003750: 53 4E AA 31 00 6D 3F 86 9C 8D 35 32 30 31 30 3A |SN.1.m?...52010:|
00003760: 84 34 2C 49 4E 24 3A 8D 34 33 31 30 30 00 A2 3F |.4,IN$:.43100..?|
00003770: 90 9C 49 4E 24 B2 C8 28 49 4E 24 AA 53 53 24 2C |..IN$..(IN$.SS$,|
00003780: 38 30 29 3A 46 24 28 4A 29 B2 46 24 28 4A 29 AA |80):F$(J).F$(J).|
00003790: C8 28 49 4E 24 2C 4C 25 28 4A 29 AA 52 4C AB 38 |.(IN$,L%(J).RL.8|
000037A0: 30 29 00 BF 3F 95 9C 52 4C B2 4C 25 28 4A 29 AB |0)..?..RL.L%(J).|
000037B0: 28 38 30 AB 52 4C 29 3A 49 39 B2 52 4C AA 31 00 |(80.RL):I9.RL.1.|
000037C0: C6 3F 9A 9C 82 4A 00 DB 3F D1 9C A0 31 3A A0 34 |.?...J..?...1:.4|
000037D0: 3A 98 31 35 2C 22 49 30 22 3A 8E 00 FA 3F D6 9C |:.15,"I0":...?..|
000037E0: 81 49 49 B2 31 A4 4E 46 3A 47 24 28 49 49 29 B2 |.II.1.NF:G$(II).|
000037F0: 46 24 28 49 49 29 3A 82 49 49 00 00 40 FE 9C 8E |F$(II):.II..@...|
00003800: 00 1F 40 33 9E 8F 20 3D 3D 20 41 44 44 20 54 52 |..@3.. == ADD TR|
00003810: 41 49 4C 49 4E 47 20 42 4C 4E 4B 53 20 3D 3D 00 |AILING BLNKS ==.|
00003820: 3E 40 34 9E 47 24 28 49 29 B2 C8 28 47 24 28 49 |>@4.G$(I)..(G$(I|
00003830: 29 AA 53 53 24 2C 4C 25 28 49 29 29 3A 8E 00 56 |).SS$,L%(I)):..V|
00003840: 40 27 A0 8F 3D 3D 20 53 54 52 4E 47 20 53 45 41 |@'..== STRNG SEA|
00003850: 52 43 48 20 3D 3D 00 6E 40 28 A0 81 4A 49 B2 31 |RCH ==.n@(..JI.1|
00003860: A4 C3 28 42 24 29 AA 31 AB C3 28 41 24 29 00 92 |..(B$).1..(A$)..|
00003870: 40 32 A0 8B CA 28 42 24 2C 4A 49 2C C3 28 41 24 |@2...(B$,JI,.(A$|
00003880: 29 29 B2 41 24 A7 49 39 B2 4A 49 3A 89 34 31 30 |)).A$.I9.JI:.410|
00003890: 34 30 00 98 40 3C A0 82 00 A1 40 46 A0 49 39 B2 |40..@<....@F.I9.|
000038A0: 30 00 A7 40 50 A0 8E 00 CA 40 10 A4 8F 20 3D 3D |0..@P....@... ==|
000038B0: 20 57 52 49 54 45 20 52 45 43 20 54 4F 20 44 41 | WRITE REC TO DA|
000038C0: 54 41 20 46 49 4C 45 20 3D 3D 00 E7 40 11 A4 99 |TA FILE ==..@...|
000038D0: C8 28 59 24 2C 32 33 29 3B 53 50 24 3A 99 53 50 |.(Y$,23);SP$:.SP|
000038E0: 24 3A 99 53 50 24 3B 00 30 41 13 A4 4E 4D 24 B2 |$:.SP$;.0A..NM$.|
000038F0: 22 2A 2A 2A 20 D7 52 49 54 49 4E 47 20 D2 45 43 |"*** .RITING .EC|
00003900: 4F 52 44 20 2A 2A 2A 22 3A 8B 20 41 4E 24 B2 22 |ORD ***":. AN$."|
00003910: 44 22 A7 4E 4D 24 B2 22 2A 2A 2A 20 C4 45 4C 45 |D".NM$."*** .ELE|
00003920: 54 49 4E 47 20 D2 45 43 4F 52 44 20 2A 2A 2A 22 |TING .ECORD ***"|
00003930: 00 5C 41 14 A4 8B 20 41 4E 24 B2 22 55 22 A7 4E |.\A... AN$."U".N|
00003940: 4D 24 B2 22 2A 2A 2A 20 D5 50 44 41 54 49 4E 47 |M$."*** .PDATING|
00003950: 20 D2 45 43 4F 52 44 20 2A 2A 2A 22 00 71 41 15 | .ECORD ***".qA.|
00003960: A4 99 C8 28 59 24 2C 32 34 29 A6 39 29 3B 4E 4D |...(Y$,24).9);NM|
00003970: 24 00 A5 41 16 A4 53 4E B2 B5 28 52 53 AC 28 52 |$..A..SN..(RS.(R|
00003980: 50 AB 31 29 AD 38 30 29 AA 31 3A 4F 53 B2 28 52 |P.1).80).1:OS.(R|
00003990: 53 AC 28 52 50 AB 31 29 29 AB 28 38 30 AC 28 53 |S.(RP.1)).(80.(S|
000039A0: 4E AB 31 29 29 00 C9 41 2E A4 8D 35 32 30 30 30 |N.1))..A...52000|
000039B0: 3A 84 34 2C 49 4E 24 3A 49 4E 24 B2 C8 28 49 4E |:.4,IN$:IN$..(IN|
000039C0: 24 AA 53 53 24 2C 38 30 29 00 E9 41 38 A4 4F 50 |$.SS$,80)..A8.OP|
000039D0: 24 B2 C8 28 49 4E 24 2C 4F 53 29 3A 52 4C B2 4F |$..(IN$,OS):RL.O|
000039E0: 53 3A 49 39 B2 52 4C AA 31 00 F5 41 42 A4 81 4A |S:I9.RL.1..AB..J|
000039F0: B2 31 A4 4E 46 00 0C 42 45 A4 8B 52 4C AA 4C 25 |.1.NF..BE..RL.L%|
00003A00: 28 4A 29 B1 38 30 A7 34 32 30 36 33 00 2A 42 48 |(J).80.42063.*BH|
00003A10: A4 52 4C B2 52 4C AA 4C 25 28 4A 29 3A 4F 50 24 |.RL.RL.L%(J):OP$|
00003A20: B2 4F 50 24 AA 47 24 28 4A 29 00 35 42 4C A4 89 |.OP$.G$(J).5BL..|
00003A30: 34 32 30 38 30 00 65 42 4F A4 4F 50 24 B2 4F 50 |42080.eBO.OP$.OP|
00003A40: 24 AA C8 28 47 24 28 4A 29 2C 38 30 AB 52 4C 29 |$..(G$(J),80.RL)|
00003A50: 3A 8D 34 33 30 30 30 3A 8D 35 32 30 31 30 3A 98 |:.43000:.52010:.|
00003A60: 34 2C 4F 50 24 00 71 42 56 A4 53 4E B2 53 4E AA |4,OP$.qBV.SN.SN.|
00003A70: 31 00 95 42 59 A4 8D 35 32 30 31 30 3A 84 34 2C |1..BY..52010:.4,|
00003A80: 49 4E 24 3A 49 4E 24 B2 C8 28 49 4E 24 AA 53 53 |IN$:IN$..(IN$.SS|
00003A90: 24 2C 38 30 29 00 BD 42 5C A4 4F 50 24 B2 CA 28 |$,80)..B\.OP$..(|
00003AA0: 47 24 28 4A 29 2C 38 31 AB 52 4C 29 3A 52 4C B2 |G$(J),81.RL):RL.|
00003AB0: 4C 25 28 4A 29 AB 28 38 30 AB 52 4C 29 00 C4 42 |L%(J).(80.RL)..B|
00003AC0: 60 A4 82 4A 00 F7 42 98 A4 4F 50 24 B2 4F 50 24 |`..J..B..OP$.OP$|
00003AD0: AA CA 28 49 4E 24 2C 52 4C AA 31 29 3A 8D 34 33 |..(IN$,RL.1):.43|
00003AE0: 30 30 30 3A 8D 35 32 30 31 30 3A 98 34 2C 4F 50 |000:.52010:.4,OP|
00003AF0: 24 3A A0 34 3A A0 31 00 13 43 9A A4 99 C8 28 59 |$:.4:.1..C....(Y|
00003B00: 24 2C 32 34 29 53 50 24 3A 98 31 35 2C 22 49 30 |$,24)SP$:.15,"I0|
00003B10: 22 3A 8E 00 3B 43 F8 A7 8B C8 28 4F 50 24 2C 31 |":..;C....(OP$,1|
00003B20: 29 B2 C7 28 33 32 29 A7 4F 50 24 B2 C7 28 31 36 |)..(32).OP$..(16|
00003B30: 30 29 AA CA 28 4F 50 24 2C 32 29 00 41 43 02 A8 |0)..(OP$,2).AC..|
00003B40: 8E 00 69 43 5C A8 8B C8 28 49 4E 24 2C 31 29 B2 |..iC\...(IN$,1).|
00003B50: C7 28 31 36 30 29 A7 49 4E 24 B2 C7 28 33 32 29 |.(160).IN$..(32)|
00003B60: AA CA 28 49 4E 24 2C 32 29 00 6F 43 61 A8 8E 00 |..(IN$,2).oCa...|
00003B70: 92 43 68 BF 99 C8 28 59 24 2C 59 25 29 3B C8 28 |.Ch...(Y$,Y%);.(|
00003B80: 58 24 2C 58 25 29 3B 22 2E 2E 2F 2E 2E 2F 2E 2E |X$,X%);"../../..|
00003B90: 22 3B 00 B8 43 72 BF 4A B2 31 3A 49 4E 24 B2 22 |";..Cr.J.1:IN$."|
00003BA0: 22 3A 41 44 B2 31 30 32 34 AA 28 59 25 AB 31 29 |":AD.1024.(Y%.1)|
00003BB0: AC 34 30 AA 58 25 AB 31 00 CE 43 7C BF 97 41 44 |.40.X%.1..C|..AD|
00003BC0: AA 4A 2C C2 28 41 44 AA 4A 29 B0 31 32 38 00 E3 |.J,.(AD.J).128..|
00003BD0: 43 86 BF A1 4A 24 3A 8B 4A 24 B2 22 22 A7 34 39 |C...J$:.J$."".49|
00003BE0: 30 33 30 00 F0 43 90 BF 4A 4A B2 C6 28 4A 24 29 |030..C..JJ..(J$)|
00003BF0: 00 05 44 95 BF 8B 4A 4A B2 31 33 AF 4A B2 31 A7 |..D...JJ.13.J.1.|
00003C00: 34 39 30 38 35 00 1A 44 9A BF 8B 4A 4A B2 31 33 |49085..D...JJ.13|
00003C10: 33 A7 49 4E 24 B2 4A 24 3A 8E 00 33 44 AE BF 8B |3.IN$.J$:..3D...|
00003C20: 4A 4A B1 B2 34 38 AF 4A 4A B3 B2 35 37 A7 34 39 |JJ..48.JJ..57.49|
00003C30: 32 30 30 00 45 44 B8 BF 8B 4A 4A B3 B1 31 33 A7 |200.ED...JJ..13.|
00003C40: 34 39 31 31 30 00 58 44 BC BF 8B 49 4E 24 B3 B1 |49110.XD...IN$..|
00003C50: 22 22 A7 34 39 30 39 30 00 69 44 BD BF 8B 4B 46 |"".49090.iD...KF|
00003C60: B2 46 43 A7 34 39 30 33 30 00 97 44 BE BF 49 4E |.FC.49030..D..IN|
00003C70: 24 B2 22 30 30 30 30 30 30 22 3A 99 C8 28 59 24 |$."000000":..(Y$|
00003C80: 2C 59 25 29 3B C8 28 58 24 2C 58 25 AA 4A AB 31 |,Y%);.(X$,X%.J.1|
00003C90: 29 3B 22 2E 22 3A 8E 00 AB 44 C2 BF 8B C3 28 49 |);".":...D....(I|
00003CA0: 4E 24 29 B3 36 A7 34 39 30 33 30 00 C8 44 CC BF |N$).6.49030..D..|
00003CB0: 97 41 44 AA 38 2C C2 28 41 44 AA 38 29 AF 31 32 |.AD.8,.(AD.8).12|
00003CC0: 37 3A 89 34 39 32 35 30 00 DA 44 D6 BF 8B 4A 4A |7:.49250..D...JJ|
00003CD0: B3 B1 32 30 A7 34 39 31 36 30 00 FA 44 E0 BF 99 |..20.49160..D...|
00003CE0: C8 28 59 24 2C 59 25 29 3B C8 28 58 24 2C 58 25 |.(Y$,Y%);.(X$,X%|
00003CF0: AA 4A AB 31 29 3B 22 2E 22 3B 00 11 45 E5 BF 8B |.J.1);".";..E...|
00003D00: 4A B2 31 A7 49 4E 24 B2 22 22 3A 89 34 39 30 32 |J.1.IN$."":.4902|
00003D10: 30 00 27 45 E7 BF 8B 4A B2 38 A7 49 4E 24 B2 C8 |0.'E...J.8.IN$..|
00003D20: 28 49 4E 24 2C 35 29 00 54 45 EA BF 49 4E 24 B2 |(IN$,5).TE..IN$.|
00003D30: C8 28 49 4E 24 2C C3 28 49 4E 24 29 AB 31 29 3A |.(IN$,.(IN$).1):|
00003D40: 4A B2 4A AB 31 3A 8B 4A B2 33 B0 4A B2 36 A7 4A |J.J.1:.J.3.J.6.J|
00003D50: B2 4A AB 31 00 74 45 EF BF 99 C8 28 59 24 2C 59 |.J.1.tE....(Y$,Y|
00003D60: 25 29 3B C8 28 58 24 2C 58 25 AA 4A AB 31 29 3B |%);.(X$,X%.J.1);|
00003D70: 22 2E 22 3B 00 7F 45 F4 BF 89 34 39 30 32 30 00 |".";..E...49020.|
00003D80: 91 45 08 C0 8B 4A 4A B3 B1 33 32 A7 34 39 30 33 |.E...JJ..32.4903|
00003D90: 30 00 B1 45 12 C0 99 C8 28 59 24 2C 59 25 29 3B |0..E....(Y$,Y%);|
00003DA0: C8 28 58 24 2C 58 25 AA 4A AB 31 29 3B 22 20 22 |.(X$,X%.J.1);" "|
00003DB0: 3B 00 D2 45 1C C0 8B 4A B2 31 B0 4A B2 34 B0 4A |;..E...J.1.J.4.J|
00003DC0: B2 37 A7 4A 24 B2 C7 28 34 38 29 3A 89 34 39 32 |.7.J$..(48):.492|
00003DD0: 31 30 00 E6 45 26 C0 4A 24 B2 C7 28 33 32 29 3A |10..E&.J$..(32):|
00003DE0: 89 34 39 32 31 30 00 05 46 30 C0 99 C8 28 59 24 |.49210..F0...(Y$|
00003DF0: 2C 59 25 29 3B C8 28 58 24 2C 58 25 AA 4A AB 31 |,Y%);.(X$,X%.J.1|
00003E00: 29 3B 4A 24 3B 00 1B 46 3A C0 8B 4A B2 38 A7 49 |);J$;..F:..J.8.I|
00003E10: 4E 24 B2 C8 28 49 4E 24 2C 35 29 00 3F 46 44 C0 |N$..(IN$,5).?FD.|
00003E20: 49 4E 24 B2 49 4E 24 AA 4A 24 3A 4A B2 4A AA 31 |IN$.IN$.J$:J.J.1|
00003E30: 3A 8B 4A B2 33 B0 4A B2 36 A7 4A B2 4A AA 31 00 |:.J.3.J.6.J.J.1.|
00003E40: 4C 46 4E C0 8B 4A B2 39 A7 4A B2 38 00 57 46 58 |LFN..J.9.J.8.WFX|
00003E50: C0 89 34 39 30 32 30 00 8A 46 62 C0 58 58 B2 C5 |..49020..Fb.XX..|
00003E60: 28 C8 28 49 4E 24 2C 32 29 29 3A 59 59 B2 C5 28 |(.(IN$,2)):YY..(|
00003E70: CA 28 49 4E 24 2C 33 2C 32 29 29 3A 5A 5A B2 C5 |.(IN$,3,2)):ZZ..|
00003E80: 28 C9 28 49 4E 24 2C 32 29 29 00 9D 46 80 C0 99 |(.(IN$,2))..F...|
00003E90: C8 28 59 24 2C 32 33 29 3B 53 50 24 3B 00 CC 46 |.(Y$,23);SP$;..F|
00003EA0: 85 C0 8B 28 5A 5A AD 34 29 B3 B1 B5 28 5A 5A AD |...(ZZ.4)...(ZZ.|
00003EB0: 34 29 A7 8D 34 39 33 35 30 3A 8B 45 52 B2 31 38 |4)..49350:.ER.18|
00003EC0: A7 45 52 B2 30 3A 89 34 39 30 30 30 00 02 47 8A |.ER.0:.49000..G.|
00003ED0: C0 8B 58 58 B3 31 B0 58 58 B1 31 32 A7 99 C8 28 |..XX.1.XX.12...(|
00003EE0: 59 24 2C 32 33 29 3B 22 CD 4F 4E 54 48 20 4F 55 |Y$,23);".ONTH OU|
00003EF0: 54 20 4F 46 20 52 41 4E 47 45 22 3A 89 34 39 30 |T OF RANGE":.490|
00003F00: 30 30 00 3B 47 94 C0 8B 59 59 B3 31 B0 59 59 B1 |00.;G...YY.1.YY.|
00003F10: 44 54 25 28 58 58 29 A7 99 C8 28 59 24 2C 32 33 |DT%(XX)...(Y$,23|
00003F20: 29 3B 22 C4 41 59 20 4F 55 54 20 4F 46 20 52 41 |);".AY OUT OF RA|
00003F30: 4E 47 45 22 3A 89 34 39 30 30 30 00 58 47 9E C0 |NGE":.49000.XG..|
00003F40: 49 4E 24 B2 C9 28 22 30 30 22 AA CA 28 C4 28 58 |IN$..("00"..(.(X|
00003F50: 58 29 2C 32 29 2C 32 29 00 79 47 A8 C0 49 4E 24 |X),2),2).yG..IN$|
00003F60: B2 49 4E 24 AA C9 28 22 30 30 22 AA CA 28 C4 28 |.IN$..("00"..(.(|
00003F70: 59 59 29 2C 32 29 2C 32 29 00 9A 47 B2 C0 49 4E |YY),2),2)..G..IN|
00003F80: 24 B2 49 4E 24 AA C9 28 22 30 30 22 AA CA 28 C4 |$.IN$..("00"..(.|
00003F90: 28 5A 5A 29 2C 32 29 2C 32 29 00 A0 47 BC C0 8E |(ZZ),2),2)..G...|
00003FA0: 00 D3 47 C6 C0 8B 58 58 B2 32 AF 59 59 B2 32 39 |..G...XX.2.YY.29|
00003FB0: A7 45 52 B2 31 38 3A 99 C8 28 59 24 2C 32 33 29 |.ER.18:..(Y$,23)|
00003FC0: 3B 22 C4 41 59 20 4F 55 54 20 4F 46 20 52 41 4E |;".AY OUT OF RAN|
00003FD0: 47 45 22 00 D9 47 D0 C0 8E 00 FA 47 4F C3 8F 20 |GE"..G.....GO.. |
00003FE0: 3D 3D 3D 3D 20 2F 42 20 46 49 4C 45 20 43 4F 4E |==== /B FILE CON|
00003FF0: 56 45 52 53 49 4F 4E 20 3D 3D 00 3D 48 9C C7 99 |VERSION ==.=H...|
00004000: C8 28 59 24 2C 32 34 29 3B 53 50 24 3B 53 50 24 |.(Y$,24);SP$;SP$|
00004010: 3B C8 28 59 24 2C 32 34 29 3B 22 C9 53 20 59 4F |;.(Y$,24);".S YO|
00004020: 55 52 20 50 52 49 4E 54 45 52 20 41 20 C3 4F 4D |UR PRINTER A .OM|
00004030: 4D 4F 44 4F 52 45 3F 20 12 20 92 22 3B 00 66 48 |MODORE? . .";.fH|
00004040: 9E C7 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 |...A$:.A$.."Y".A|
00004050: 24 B3 B1 22 4E 22 AF 41 24 B3 B1 C7 28 31 33 29 |$.."N".A$...(13)|
00004060: A7 35 31 31 30 32 00 7A 48 A0 C7 8B 41 24 B2 C7 |.51102.zH...A$..|
00004070: 28 31 33 29 A7 35 31 31 30 38 00 A8 48 A2 C7 49 |(13).51108..H..I|
00004080: 4E 24 B2 41 24 3A 99 C8 28 59 24 2C 32 34 29 3B |N$.A$:..(Y$,24);|
00004090: A6 32 39 29 3B 22 12 22 3B 49 4E 24 3B 22 92 22 |.29);".";IN$;"."|
000040A0: 3B 3A 89 35 31 31 30 32 00 BA 48 A4 C7 8B 49 4E |;:.51102..H...IN|
000040B0: 24 B2 22 22 A7 35 31 31 30 32 00 D5 48 A6 C7 8B |$."".51102..H...|
000040C0: 49 4E 24 B2 22 59 22 A7 97 38 33 32 2C 37 3A 89 |IN$."Y"..832,7:.|
000040D0: 35 31 31 32 30 00 E9 48 A7 C7 8B 49 4E 24 B3 B1 |51120..H...IN$..|
000040E0: 22 4E 22 A7 35 31 31 30 30 00 F4 48 A8 C7 97 38 |"N".51100..H...8|
000040F0: 33 32 2C 38 00 13 49 B0 C7 A0 33 3A 9F 33 2C 34 |32,8..I...3:.3,4|
00004100: 3A 98 33 2C 22 22 3A 8B 53 54 B3 B1 30 A7 35 31 |:.3,"":.ST..0.51|
00004110: 31 35 30 00 42 49 B5 C7 99 C8 28 59 24 2C 32 34 |150.BI....(Y$,24|
00004120: 29 3B 53 50 24 3B 53 50 24 3B C8 28 59 24 2C 32 |);SP$;SP$;.(Y$,2|
00004130: 35 29 3B 22 D0 52 49 4E 54 49 4E 47 2E 2E 2E 2E |5);".RINTING....|
00004140: 22 3B 00 59 49 BA C7 A0 34 3A 9E 38 32 38 3A 98 |";.YI...4:.828:.|
00004150: 34 3A A0 34 3A A0 33 3A 8E 00 77 49 CD C7 8F 20 |4:.4:.3:..wI... |
00004160: 3D 3D 20 50 52 54 20 45 52 52 4F 52 20 4D 53 47 |== PRT ERROR MSG|
00004170: 20 52 54 4E 20 3D 3D 00 A5 49 CE C7 99 C8 28 59 | RTN ==..I....(Y|
00004180: 24 2C 32 33 29 22 20 20 12 D0 52 49 4E 54 45 52 |$,23)" ..RINTER|
00004190: 20 CE 4F 54 20 D2 45 41 44 59 92 20 20 20 20 20 | .OT .EADY. |
000041A0: 20 20 20 20 22 00 B5 49 E2 C7 81 58 B2 31 A4 31 | "..I...X.1.1|
000041B0: 32 30 30 3A 82 00 CD 49 EC C7 99 C8 28 59 24 2C |200:...I....(Y$,|
000041C0: 32 33 29 3B 53 50 24 3B 3A A0 33 3A 8E 00 EA 49 |23);SP$;:.3:...I|
000041D0: 20 CB 8F 3D 3D 20 50 4F 53 20 44 41 54 41 20 46 | ..== POS DATA F|
000041E0: 49 4C 45 20 50 54 52 20 3D 3D 00 06 4A 25 CB 9F |ILE PTR ==..J%..|
000041F0: 31 2C 38 2C 31 35 3A 9F 34 2C 38 2C 34 2C 22 30 |1,8,15:.4,8,4,"0|
00004200: 3A 22 AA 44 46 24 00 24 4A 2A CB 52 32 B2 B5 28 |:".DF$.$J*.R2..(|
00004210: 53 4E AD 32 35 36 29 3A 52 31 B2 53 4E AB 32 35 |SN.256):R1.SN.25|
00004220: 36 AC 52 32 00 41 4A 34 CB 98 31 2C 22 50 22 C7 |6.R2.AJ4..1,"P".|
00004230: 28 34 29 C7 28 52 31 29 C7 28 52 32 29 C7 28 31 |(4).(R1).(R2).(1|
00004240: 29 00 47 4A 3E CB 8E 00 65 4A 84 CB 8F 3D 3D 20 |).GJ>...eJ...== |
00004250: 50 4F 53 20 49 4E 44 45 58 20 46 49 4C 45 20 50 |POS INDEX FILE P|
00004260: 54 52 20 3D 3D 00 81 4A 89 CB 9F 31 2C 38 2C 31 |TR ==..J...1,8,1|
00004270: 35 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 48 46 |5:.2,8,2,"0:".HF|
00004280: 24 00 9F 4A 8E CB 52 32 B2 B5 28 52 50 AD 32 35 |$..J..R2..(RP.25|
00004290: 36 29 3A 52 31 B2 52 50 AB 32 35 36 AC 52 32 00 |6):R1.RP.256.R2.|
000042A0: BC 4A 98 CB 98 31 2C 22 50 22 C7 28 32 29 C7 28 |.J...1,"P".(2).(|
000042B0: 52 31 29 C7 28 52 32 29 C7 28 31 29 00 C2 4A A2 |R1).(R2).(1)..J.|
000042C0: CB 8E 00 E1 4A A7 CB 8F 3D 3D 20 52 45 41 44 20 |....J...== READ |
000042D0: 46 52 4F 4D 20 48 41 53 48 20 46 49 4C 45 20 3D |FROM HASH FILE =|
000042E0: 3D 00 FE 4A AC CB 84 32 2C 49 4B 24 3A A0 31 3A |=..J...2,IK$:.1:|
000042F0: A0 32 3A 49 4B B2 C5 28 49 4B 24 29 3A 8E 00 1C |.2:IK..(IK$):...|
00004300: 4B B1 CB 8F 3D 3D 20 57 52 49 54 45 20 54 4F 20 |K...== WRITE TO |
00004310: 48 41 53 48 20 46 49 4C 45 20 3D 3D 00 2F 4B B3 |HASH FILE ==./K.|
00004320: CB 98 32 2C 49 4B 24 3A A0 31 3A A0 32 3A 8E 00 |..2,IK$:.1:.2:..|
00004330: 4A 4B B6 CB 8F 3D 3D 20 50 4F 53 20 54 4F 20 47 |JK...== POS TO G|
00004340: 42 4C 20 46 49 4C 45 20 3D 3D 00 68 4B C0 CB 52 |BL FILE ==.hK..R|
00004350: 32 B2 B5 28 49 4A AD 32 35 36 29 3A 52 31 B2 49 |2..(IJ.256):R1.I|
00004360: 4A AB 32 35 36 AC 52 32 00 86 4B CA CB 98 31 35 |J.256.R2..K...15|
00004370: 2C 22 50 22 C7 28 33 29 C7 28 52 31 29 C7 28 52 |,"P".(3).(R1).(R|
00004380: 32 29 C7 28 31 29 00 8C 4B D4 CB 8E 00 AD 4B E8 |2).(1)..K.....K.|
00004390: CB 8F 20 3D 3D 20 45 52 52 4F 52 20 43 48 41 4E |.. == ERROR CHAN|
000043A0: 4E 45 4C 20 52 54 4E 53 20 3D 3D 3D 3D 00 BC 4B |NEL RTNS ====..K|
000043B0: F2 CB 9F 31 35 2C 38 2C 31 35 3A 8E 00 D4 4B FC |...15,8,15:...K.|
000043C0: CB 84 31 35 2C 45 52 24 2C 45 4D 24 2C 45 54 24 |..15,ER$,EM$,ET$|
000043D0: 2C 45 53 24 00 EF 4B 06 CC 44 53 B2 30 3A 44 53 |,ES$..K..DS.0:DS|
000043E0: B2 C5 28 45 52 24 29 3A 8B 44 53 B2 30 A7 8E 00 |..(ER$):.DS.0...|
000043F0: 0D 4C 10 CC 44 53 24 B2 45 52 24 AA 20 AA 45 4D |.L..DS$.ER$. .EM|
00004400: 24 AA 20 AA 45 54 24 AA 20 AA 45 53 24 00 13 4C |$. .ET$. .ES$..L|
00004410: 1A CC 8E 00 2E 4C 08 CF 8F 3D 3D 20 53 45 54 20 |.....L...== SET |
00004420: 44 49 53 50 20 43 4F 4C 4F 52 53 20 3D 3D 00 41 |DISP COLORS ==.A|
00004430: 4C 0D CF 43 31 B2 30 3A 43 32 B2 30 3A 43 33 B2 |L..C1.0:C2.0:C3.|
00004440: 31 00 5C 4C 12 CF 43 4F 24 B2 22 90 05 1C 9F 9C |1.\L..CO$.".....|
00004450: 1E 1F 9E 81 95 96 97 98 99 9A 9B 22 00 79 4C 17 |...........".yL.|
00004460: CF 99 22 93 22 A3 31 33 29 22 D3 45 54 20 C3 4F |..".".13)".ET .O|
00004470: 4C 4F 52 20 CD 4F 44 45 22 00 9C 4C 1C CF 99 A3 |LOR .ODE"..L....|
00004480: 35 29 22 11 11 5B 46 31 5D 20 53 45 54 53 20 53 |5)"..[F1] SETS S|
00004490: 43 52 45 45 4E 20 43 4F 4C 4F 52 22 00 BE 4C 21 |CREEN COLOR"..L!|
000044A0: CF 99 A3 35 29 22 11 5B 46 33 5D 20 53 45 54 53 |...5)".[F3] SETS|
000044B0: 20 42 4F 52 44 45 52 20 43 4F 4C 4F 52 22 00 DE | BORDER COLOR"..|
000044C0: 4C 26 CF 99 A3 35 29 22 11 5B 46 35 5D 20 53 45 |L&...5)".[F5] SE|
000044D0: 54 53 20 54 45 58 54 20 43 4F 4C 4F 52 22 00 07 |TS TEXT COLOR"..|
000044E0: 4D 2B CF 99 A3 35 29 22 11 5B 46 37 5D 20 52 45 |M+...5)".[F7] RE|
000044F0: 54 55 52 4E 53 20 59 4F 55 20 54 4F 20 4D 41 49 |TURNS YOU TO MAI|
00004500: 4E 20 4D 45 4E 55 22 00 1E 4D 35 CF A1 41 41 24 |N MENU"..M5..AA$|
00004510: 3A 8B 41 41 24 B2 22 22 A7 35 33 30 34 35 00 34 |:.AA$."".53045.4|
00004520: 4D 3A CF 8B 41 41 24 B2 C7 28 31 33 33 29 A7 35 |M:..AA$..(133).5|
00004530: 33 30 37 35 00 4A 4D 3F CF 8B 41 41 24 B2 C7 28 |3075.JM?..AA$..(|
00004540: 31 33 34 29 A7 35 33 30 38 35 00 60 4D 44 CF 8B |134).53085.`MD..|
00004550: 41 41 24 B2 C7 28 31 33 35 29 A7 35 33 30 39 35 |AA$..(135).53095|
00004560: 00 76 4D 49 CF 8B 41 41 24 B2 C7 28 31 33 36 29 |.vMI..AA$..(136)|
00004570: A7 35 34 33 32 30 00 81 4D 4E CF 89 35 33 30 34 |.54320..MN..5304|
00004580: 35 00 99 4D 53 CF 43 31 B2 43 31 AA 31 3A 8B 43 |5..MS.C1.C1.1:.C|
00004590: 31 B1 31 35 A7 43 31 B2 30 00 AE 4D 58 CF 97 35 |1.15.C1.0..MX..5|
000045A0: 33 32 38 31 2C 43 31 3A 89 35 33 30 31 35 00 C6 |3281,C1:.53015..|
000045B0: 4D 5D CF 43 32 B2 43 32 AA 31 3A 8B 43 32 B1 31 |M].C2.C2.1:.C2.1|
000045C0: 35 A7 43 32 B2 30 00 DB 4D 62 CF 97 35 33 32 38 |5.C2.0..Mb..5328|
000045D0: 30 2C 43 32 3A 89 35 33 30 31 35 00 F3 4D 67 CF |0,C2:.53015..Mg.|
000045E0: 43 33 B2 43 33 AA 31 3A 8B 43 33 B1 31 37 A7 43 |C3.C3.1:.C3.17.C|
000045F0: 33 B2 31 00 0B 4E 6C CF 99 CA 28 43 4F 24 2C 43 |3.1..Nl...(CO$,C|
00004600: 33 2C 31 29 3A 89 35 33 30 31 35 00 21 4E F0 D2 |3,1):.53015.!N..|
00004610: 8F 3D 3D 20 42 45 45 50 45 52 20 52 54 4E 20 3D |.== BEEPER RTN =|
00004620: 3D 00 31 4E F1 D2 8B 53 44 B2 31 A7 35 34 30 35 |=.1N...SD.1.5405|
00004630: 35 00 4E 4E F5 D2 53 B2 35 34 32 37 32 3A 97 53 |5.NN..S.54272:.S|
00004640: AA 32 34 2C 31 35 3A 97 53 AA 32 2C 37 32 00 82 |.24,15:.S.2,72..|
00004650: 4E 04 D3 81 58 B2 31 A4 34 3A 97 53 AA 31 2C 31 |N...X.1.4:.S.1,1|
00004660: 36 39 3A 97 53 AA 34 2C 33 33 3A 97 53 AA 34 2C |69:.S.4,33:.S.4,|
00004670: 34 3A 81 5A 5A B2 31 A4 35 3A 82 3A 97 53 AA 34 |4:.ZZ.1.5:.:.S.4|
00004680: 2C 34 00 89 4E 1D D3 82 58 00 94 4E 22 D3 89 33 |,4..N...X..N"..3|
00004690: 34 30 31 30 00 AD 4E 27 D3 81 58 B2 31 A4 32 34 |4010..N'..X.1.24|
000046A0: 3A 97 35 34 32 37 32 AA 58 2C 30 3A 82 00 B8 4E |:.54272.X,0:...N|
000046B0: 2C D3 89 33 34 30 31 30 00 CF 4E 1C D4 8B 53 44 |,..34010..N...SD|
000046C0: B2 30 A7 53 44 B2 31 3A 49 24 B2 22 22 3A 8E 00 |.0.SD.1:I$."":..|
000046D0: E6 4E 21 D4 8B 53 44 B2 31 A7 53 44 B2 30 3A 49 |.N!..SD.1.SD.0:I|
000046E0: 24 B2 22 22 3A 8E 00 EC 4E 26 D4 8E 00 F5 4E 30 |$."":...N&....N0|
000046F0: D4 99 22 93 22 00 29 4F 33 D4 99 22 13 11 11 11 |..".".)O3.."....|
00004700: 11 20 20 D7 4F 55 4C 44 20 59 4F 55 20 4C 49 4B |. .OULD YOU LIK|
00004710: 45 20 C3 4F 44 45 D7 52 49 54 45 52 20 54 4F 20 |E .ODE.RITER TO |
00004720: 52 45 4D 45 4D 42 45 52 22 00 56 4F 35 D4 99 22 |REMEMBER".VO5.."|
00004730: 20 59 4F 55 52 20 43 55 52 52 45 4E 54 20 53 43 | YOUR CURRENT SC|
00004740: 52 45 45 4E 20 43 4F 4C 4F 52 53 20 28 59 2F 4E |REEN COLORS (Y/N|
00004750: 29 20 3F 20 22 3B 00 71 4F 3A D4 59 25 B2 36 3A |) ? ";.qO:.Y%.6:|
00004760: 58 25 B2 33 37 3A 4C 25 B2 31 3A 8D 33 34 30 30 |X%.37:L%.1:.3400|
00004770: 30 00 83 4F 3F D4 8B 20 49 4E 24 B2 22 4E 22 20 |0..O?.. IN$."N" |
00004780: A7 20 8E 00 9A 4F 44 D4 8B 20 49 4E 24 B3 B1 22 |. ...OD.. IN$.."|
00004790: 59 22 20 A7 20 35 34 33 32 33 00 BE 4F 49 D4 A0 |Y" . 54323..OI..|
000047A0: 31 35 3A 9F 31 35 2C 38 2C 31 35 2C 22 53 30 3A |15:.15,8,15,"S0:|
000047B0: 43 4F 4C 4F 52 22 3A 8D 20 35 32 32 32 30 00 FD |COLOR":. 52220..|
000047C0: 4F 4B D4 8B 20 44 53 B2 36 32 B0 44 53 B2 37 34 |OK.. DS.62.DS.74|
000047D0: 20 A7 20 99 22 20 50 4C 41 43 45 20 59 4F 55 52 | . ." PLACE YOUR|
000047E0: 20 44 41 54 41 20 44 49 53 4B 20 49 4E 20 44 52 | DATA DISK IN DR|
000047F0: 49 56 45 20 30 22 3A 89 35 34 33 32 30 00 17 50 |IVE 0":.54320..P|
00004800: 4E D4 A0 32 3A 9F 32 2C 38 2C 32 2C 22 43 4F 4C |N..2:.2,8,2,"COL|
00004810: 4F 52 2C 53 2C 57 22 00 25 50 53 D4 98 32 2C C2 |OR,S,W".%PS..2,.|
00004820: 28 36 34 36 29 00 35 50 58 D4 98 32 2C C2 28 35 |(646).5PX..2,.(5|
00004830: 33 32 38 30 29 00 45 50 5D D4 98 32 2C C2 28 35 |3280).EP]..2,.(5|
00004840: 33 32 38 31 29 00 4E 50 62 D4 A0 32 3A 8E 00 60 |3281).NPb..2:..`|
00004850: 50 E4 D4 8F 20 52 45 41 44 20 43 4F 4C 4F 52 53 |P... READ COLORS|
00004860: 00 71 50 E7 D4 A0 31 35 3A 9F 31 35 2C 38 2C 31 |.qP...15:.15,8,1|
00004870: 35 00 90 50 E9 D4 A0 32 3A 9F 20 32 2C 38 2C 32 |5..P...2:. 2,8,2|
00004880: 2C 22 43 4F 4C 4F 52 22 3A 8D 20 35 32 32 32 30 |,"COLOR":. 52220|
00004890: 00 A3 50 EB D4 8B 20 44 53 B3 B1 30 20 A7 20 A0 |..P... DS..0 . .|
000048A0: 32 3A 8E 00 AC 50 EC D4 99 22 93 22 00 B5 50 EE |2:...P..."."..P.|
000048B0: D4 84 32 2C 41 00 C1 50 F3 D4 97 20 36 34 36 2C |..2,A..P... 646,|
000048C0: 41 00 CA 50 F8 D4 84 32 2C 41 00 D8 50 FD D4 97 |A..P...2,A..P...|
000048D0: 20 35 33 32 38 30 2C 41 00 E1 50 02 D5 84 32 2C | 53280,A..P...2,|
000048E0: 41 00 EF 50 07 D5 97 20 35 33 32 38 31 2C 41 00 |A..P... 53281,A.|
000048F0: F8 50 0C D5 A0 32 3A 8E 00 15 51 3C D7 81 49 B2 |.P...2:...Q<..I.|
00004900: 38 32 38 A4 39 35 38 3A 87 44 37 3A 97 49 2C 44 |828.958:.D7:.I,D|
00004910: 37 3A 82 3A 8E 00 5E 51 46 D7 83 31 36 39 2C 34 |7:.:..^QF..169,4|
00004920: 2C 31 37 30 2C 31 36 30 2C 37 2C 33 32 2C 31 38 |,170,160,7,32,18|
00004930: 36 2C 32 35 35 2C 31 36 39 2C 30 2C 33 32 2C 31 |6,255,169,0,32,1|
00004940: 38 39 2C 32 35 35 2C 33 32 2C 31 39 32 2C 32 35 |89,255,32,192,25|
00004950: 35 2C 31 36 32 2C 34 2C 33 32 2C 32 30 31 00 8B |5,162,4,32,201..|
00004960: 51 50 D7 83 32 35 35 2C 31 36 39 2C 30 2C 31 33 |QP..255,169,0,13|
00004970: 33 2C 32 35 31 2C 31 33 33 2C 32 35 33 2C 31 36 |3,251,133,253,16|
00004980: 39 2C 34 2C 31 33 33 2C 32 35 32 00 D4 51 55 D7 |9,4,133,252..QU.|
00004990: 83 31 36 30 2C 30 2C 31 37 37 2C 32 35 31 2C 32 |.160,0,177,251,2|
000049A0: 30 31 2C 39 36 2C 32 30 38 2C 30 35 2C 31 36 39 |01,96,208,05,169|
000049B0: 2C 33 32 2C 37 36 2C 31 34 33 2C 33 2C 31 36 39 |,32,76,143,3,169|
000049C0: 2C 36 34 2C 35 36 2C 32 34 31 2C 32 35 31 2C 34 |,64,56,241,251,4|
000049D0: 31 2C 33 32 00 20 52 5A D7 83 31 30 2C 31 34 31 |1,32. RZ..10,141|
000049E0: 2C 32 35 31 2C 33 2C 31 37 37 2C 32 35 31 2C 34 |,251,3,177,251,4|
000049F0: 31 2C 36 34 2C 31 30 2C 31 33 2C 32 35 31 2C 33 |1,64,10,13,251,3|
00004A00: 2C 31 34 31 2C 32 35 31 2C 33 2C 31 37 37 2C 32 |,141,251,3,177,2|
00004A10: 35 31 2C 34 31 2C 31 32 37 2C 31 33 2C 32 35 31 |51,41,127,13,251|
00004A20: 00 6D 52 64 D7 83 33 2C 32 30 38 2C 32 2C 31 36 |.mRd..3,208,2,16|
00004A30: 39 2C 36 34 2C 32 30 31 2C 39 36 2C 32 30 38 2C |9,64,201,96,208,|
00004A40: 32 2C 31 36 39 2C 33 32 2C 33 32 2C 32 31 30 2C |2,169,32,32,210,|
00004A50: 32 35 35 2C 32 33 30 2C 32 35 33 2C 31 36 39 2C |255,230,253,169,|
00004A60: 34 30 2C 35 36 2C 32 32 39 2C 32 35 33 00 BA 52 |40,56,229,253..R|
00004A70: 6E D7 83 32 30 38 2C 37 2C 31 33 33 2C 32 35 33 |n..208,7,133,253|
00004A80: 2C 31 36 39 2C 31 33 2C 33 32 2C 32 31 30 2C 32 |,169,13,32,210,2|
00004A90: 35 35 2C 31 36 39 2C 31 31 31 2C 31 39 37 2C 32 |55,169,111,197,2|
00004AA0: 35 31 2C 32 30 38 2C 36 2C 31 36 39 2C 37 2C 31 |51,208,6,169,7,1|
00004AB0: 39 37 2C 32 35 32 2C 32 34 30 00 FC 52 78 D7 83 |97,252,240..Rx..|
00004AC0: 31 36 2C 32 34 2C 31 36 35 2C 32 35 31 2C 31 30 |16,24,165,251,10|
00004AD0: 35 2C 31 2C 31 33 33 2C 32 35 31 2C 31 36 35 2C |5,1,133,251,165,|
00004AE0: 32 35 32 2C 31 30 35 2C 30 2C 31 33 33 2C 32 35 |252,105,0,133,25|
00004AF0: 32 2C 37 36 2C 39 31 2C 33 2C 39 36 00 12 53 6C |2,76,91,3,96..Sl|
00004B00: E8 97 20 36 34 36 2C C2 28 39 36 37 29 3A 99 22 |.. 646,.(967):."|
00004B10: 93 22 00 33 53 6D E8 44 56 B2 C2 28 39 36 39 29 |.".3Sm.DV..(969)|
00004B20: 3A 44 52 24 B2 CA 28 C4 28 C2 28 39 36 38 29 29 |:DR$..(.(.(968))|
00004B30: 2C 32 29 00 52 53 6E E8 8B 20 44 52 24 B2 22 31 |,2).RSn.. DR$."1|
00004B40: 22 20 A7 20 44 52 24 B2 22 30 22 3A 89 35 39 35 |" . DR$."0":.595|
00004B50: 30 34 00 71 53 6F E8 8B 20 44 52 24 B2 22 32 22 |04.qSo.. DR$."2"|
00004B60: 20 A7 20 44 52 24 B2 22 31 22 3A 89 35 39 35 30 | . DR$."1":.5950|
00004B70: 34 00 8F 53 70 E8 A0 31 35 3A 9F 31 35 2C 44 56 |4..Sp..15:.15,DV|
00004B80: 2C 31 35 3A 98 31 35 2C 22 49 22 AA 44 52 24 00 |,15:.15,"I".DR$.|
00004B90: BB 53 71 E8 98 31 35 2C 22 53 22 AA 44 52 24 AA |.Sq..15,"S".DR$.|
00004BA0: 22 3A 22 AA 50 4E 24 3A 84 31 35 2C 45 52 2C 45 |":".PN$:.15,ER,E|
00004BB0: 4D 24 3A 97 38 30 38 2C 32 33 37 00 DD 53 76 E8 |M$:.808,237..Sv.|
00004BC0: 8B C2 28 39 36 35 29 B2 31 A7 98 31 35 2C 22 53 |..(965).1..15,"S|
00004BD0: 22 AA 44 52 24 AA 22 3A 22 AA 54 46 24 00 01 54 |".DR$.":".TF$..T|
00004BE0: 7B E8 94 44 52 24 AA 22 3A 22 AA 50 4E 24 2C 44 |{..DR$.":".PN$,D|
00004BF0: 56 3A 95 44 52 24 AA 22 3A 22 AA 50 4E 24 2C 44 |V:.DR$.":".PN$,D|
00004C00: 56 00 2D 54 80 E8 99 22 11 D9 4F 55 52 20 50 52 |V.-T..."..OUR PR|
00004C10: 4F 47 52 41 4D 20 48 41 53 20 42 45 45 4E 20 53 |OGRAM HAS BEEN S|
00004C20: 41 56 45 44 20 4F 4E 20 59 4F 55 52 22 00 46 54 |AVED ON YOUR".FT|
00004C30: 85 E8 99 22 41 50 50 4C 49 43 41 54 49 4F 4E 20 |..."APPLICATION |
00004C40: 44 49 53 4B 2E 22 00 73 54 8A E8 99 22 11 D4 4F |DISK.".sT..."..O|
00004C50: 20 52 55 4E 20 59 4F 55 52 20 50 52 4F 47 52 41 | RUN YOUR PROGRA|
00004C60: 4D 20 4E 4F 57 2C 20 54 59 50 45 20 27 52 55 4E |M NOW, TYPE 'RUN|
00004C70: 27 2E 22 00 89 54 8F E8 80 3A 20 8F 20 44 45 4C |'."..T...: . DEL|
00004C80: 45 54 45 20 4C 49 4E 45 53 00 A6 54 D0 E8 99 22 |ETE LINES..T..."|
00004C90: 13 11 11 11 11 20 CD 45 4D 4F 52 59 20 D3 43 41 |..... .EMORY .CA|
00004CA0: 4E 4E 45 52 3A 22 00 B1 54 D5 E8 50 B2 32 30 34 |NNER:"..T..P.204|
00004CB0: 39 00 DD 54 DA E8 50 54 B2 C2 28 50 29 AA 32 35 |9..T..PT..(P).25|
00004CC0: 36 AC C2 28 50 AA 31 29 3A 4C 4E B2 C2 28 50 AA |6..(P.1):LN..(P.|
00004CD0: 32 29 AA 32 35 36 AC C2 28 50 AA 33 29 00 FD 54 |2).256..(P.3)..T|
00004CE0: DF E8 99 22 13 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |..."............|
00004CF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4C 4E 00 11 55 |.........";LN..U|
00004D00: E4 E8 8B 4C 4E B2 35 39 35 33 35 A7 35 39 36 33 |...LN.59535.5963|
00004D10: 30 00 21 55 E9 E8 50 B2 50 54 3A 89 35 39 36 31 |0.!U..P.PT:.5961|
00004D20: 30 00 5A 55 EE E8 97 39 36 37 2C C2 28 36 34 36 |0.ZU...967,.(646|
00004D30: 29 3A 97 36 34 36 2C C2 28 35 33 32 38 31 29 3A |):.646,.(53281):|
00004D40: 97 31 39 38 2C 35 3A 81 49 B2 36 33 31 A4 36 33 |.198,5:.I.631.63|
00004D50: 39 3A 97 49 2C 31 33 3A 82 49 00 9E 55 F3 E8 51 |9:.I,13:.I..U..Q|
00004D60: 24 B2 C7 28 33 34 29 3A 99 22 93 11 11 50 CF 34 |$..(34):."...P.4|
00004D70: 36 2C 22 3B B5 28 28 50 54 AA 32 29 AD 32 35 36 |6,";.((PT.2).256|
00004D80: 29 22 3A 50 CF 34 35 2C 22 50 54 AA 32 3B 22 2D |)":P.45,"PT.2;"-|
00004D90: 50 C5 28 34 36 29 2A 32 35 36 3A 43 CC 22 00 CC |P.(46)*256:C."..|
00004DA0: 55 F8 E8 99 22 11 11 50 CF 22 3B 50 54 AB 31 3B |U..."..P.";PT.1;|
00004DB0: 22 2C 30 3A 50 CF 22 3B 50 54 3B 22 2C 30 3A 50 |",0:P.";PT;",0:P|
00004DC0: CF 22 3B 50 54 AA 31 3B 22 2C 30 22 00 08 56 FD |.";PT.1;",0"..V.|
00004DD0: E8 99 22 11 11 50 4E 24 3D 22 3B 51 24 3B 50 4E |.."..PN$=";Q$;PN|
00004DE0: 24 3B 51 24 3B 22 3A 54 46 24 3D 22 3B 51 24 3B |$;Q$;":TF$=";Q$;|
00004DF0: 54 46 24 3B 51 24 22 3A 47 CF 35 39 35 30 30 22 |TF$;Q$":G.59500"|
00004E00: 3A 99 22 13 22 3B 3A 80 00 29 56 60 EA 44 56 B2 |:.".";:..)V`.DV.|
00004E10: C2 28 39 36 39 29 3A 44 52 24 B2 CA 28 C4 28 C2 |.(969):DR$..(.(.|
00004E20: 28 39 36 38 29 29 2C 32 29 00 49 56 61 EA 8B 20 |(968)),2).IVa.. |
00004E30: 44 52 24 B2 22 31 22 20 A7 20 44 52 24 B2 22 30 |DR$."1" . DR$."0|
00004E40: 22 3A 89 20 36 30 30 30 34 00 69 56 62 EA 8B 20 |":. 60004.iVb.. |
00004E50: 44 52 24 B2 22 32 22 20 A7 20 44 52 24 B2 22 31 |DR$."2" . DR$."1|
00004E60: 22 3A 89 20 36 30 30 30 34 00 7D 56 64 EA 8B C2 |":. 60004.}Vd...|
00004E70: 28 39 36 35 29 B2 31 A7 36 30 30 37 30 00 C5 56 |(965).1.60070..V|
00004E80: 65 EA 99 22 93 11 11 11 11 11 20 20 D9 4F 55 52 |e.."...... .OUR|
00004E90: 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 42 45 | PROGRAM WILL BE|
00004EA0: 20 53 41 56 45 44 20 4F 4E 20 59 4F 55 52 20 20 | SAVED ON YOUR |
00004EB0: 20 20 20 41 50 50 4C 49 43 41 54 49 4F 4E 20 44 | APPLICATION D|
00004EC0: 49 53 4B 22 3B 00 08 57 6A EA 99 22 2C 20 57 48 |ISK";..Wj..", WH|
00004ED0: 49 4C 45 20 59 4F 55 52 20 44 41 54 41 20 57 49 |ILE YOUR DATA WI|
00004EE0: 4C 4C 20 20 42 45 20 53 54 4F 52 45 44 20 57 49 |LL BE STORED WI|
00004EF0: 54 48 20 59 4F 55 52 20 53 43 52 45 45 4E 20 4C |TH YOUR SCREEN L|
00004F00: 41 59 4F 55 54 20 22 3B 00 51 57 6F EA 99 22 4F |AYOUT ";.QWo.."O|
00004F10: 4E 20 20 20 20 59 4F 55 52 20 44 41 54 41 20 44 |N YOUR DATA D|
00004F20: 49 53 4B 2E 20 20 C2 55 54 20 46 49 52 53 54 2C |ISK. .UT FIRST,|
00004F30: 20 41 20 54 45 4D 50 2D 20 20 20 20 20 4F 52 41 | A TEMP- ORA|
00004F40: 52 59 20 50 52 4F 47 52 41 4D 20 46 49 4C 45 22 |RY PROGRAM FILE"|
00004F50: 3B 00 94 57 74 EA 99 22 20 4D 55 53 54 20 42 45 |;..Wt.." MUST BE|
00004F60: 20 45 52 41 53 45 44 20 46 52 4F 4D 20 20 59 4F | ERASED FROM YO|
00004F70: 55 52 20 44 41 54 41 20 44 49 53 4B 20 54 4F 20 |UR DATA DISK TO |
00004F80: 41 4C 4C 4F 57 20 4D 41 58 49 4D 55 4D 20 44 41 |ALLOW MAXIMUM DA|
00004F90: 54 41 22 3B 00 A8 57 79 EA 99 22 20 20 20 20 53 |TA";..Wy.." S|
00004FA0: 54 4F 52 41 47 45 2E 22 00 D2 57 7E EA 99 22 11 |TORAGE."..W~..".|
00004FB0: 11 11 11 11 20 20 D0 52 45 53 53 20 12 D2 C5 D4 |.... .RESS ....|
00004FC0: D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |.... TO CONTINUE|
00004FD0: 2E 22 00 ED 57 83 EA A1 41 41 24 3A 8B 41 41 24 |."..W...AA$:.AA$|
00004FE0: B3 B1 C7 28 31 33 29 A7 36 30 30 33 35 00 1F 58 |...(13).60035..X|
00004FF0: 88 EA A0 31 35 3A 9F 31 35 2C 44 56 2C 31 35 3A |...15:.15,DV,15:|
00005000: 98 31 35 2C 22 49 22 AA 44 52 24 3A 98 31 35 2C |.15,"I".DR$:.15,|
00005010: 22 53 22 AA 44 52 24 AA 22 3A 22 AA 54 46 24 00 |"S".DR$.":".TF$.|
00005020: 3B 58 8D EA 84 31 35 2C 45 52 2C 45 4D 24 3A 8B |;X...15,ER,EM$:.|
00005030: 45 52 B3 B2 31 A7 36 30 30 37 30 00 7A 58 92 EA |ER..1.60070.zX..|
00005040: 99 22 93 11 D0 4C 41 43 45 20 59 4F 55 52 20 44 |."...LACE YOUR D|
00005050: 41 54 41 20 44 49 53 4B 20 28 C9 54 20 43 4F 4E |ATA DISK (.T CON|
00005060: 54 41 49 4E 53 20 59 4F 55 52 20 20 53 43 52 45 |TAINS YOUR SCRE|
00005070: 45 4E 20 46 49 4C 45 29 22 3B 00 BE 58 97 EA 99 |EN FILE)";..X...|
00005080: 22 20 20 49 4E 54 4F 20 44 52 49 56 45 20 22 3B |" INTO DRIVE ";|
00005090: B6 28 C2 28 39 36 38 29 AB 31 29 3B 22 20 54 48 |.(.(968).1);" TH|
000050A0: 45 4E 20 50 52 45 53 53 12 D2 C5 D4 D5 D2 CE 92 |EN PRESS........|
000050B0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 D9 | TO CONTINUE."..|
000050C0: 58 9C EA A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 |X...AA$:.AA$...(|
000050D0: 31 33 29 A7 36 30 30 36 30 00 E4 58 A1 EA 89 36 |13).60060..X...6|
000050E0: 30 30 34 30 00 29 59 A6 EA 99 22 93 11 CE 4F 57 |0040.)Y..."...OW|
000050F0: 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 20 57 49 | YOUR PROGRAM WI|
00005100: 4C 4C 20 42 45 20 53 41 56 45 44 20 4F 4E 20 59 |LL BE SAVED ON Y|
00005110: 4F 55 52 20 20 41 50 50 4C 49 43 41 54 49 4F 4E |OUR APPLICATION|
00005120: 20 44 49 53 4B 2E 20 22 3B 00 61 59 AB EA 99 22 | DISK. ";.aY..."|
00005130: D0 4C 41 43 45 20 59 4F 55 52 20 41 50 50 4C 49 |.LACE YOUR APPLI|
00005140: 43 41 54 49 4F 4E 44 49 53 4B 20 49 4E 20 44 52 |CATIONDISK IN DR|
00005150: 49 56 45 22 3B B6 28 C2 28 39 36 38 29 AB 31 29 |IVE";.(.(968).1)|
00005160: 3B 00 8C 59 B0 EA 99 22 54 48 45 4E 20 50 52 45 |;..Y..."THEN PRE|
00005170: 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 20 |SS ........ TO |
00005180: 20 20 43 4F 4E 54 49 4E 55 45 2E 22 00 A7 59 B5 | CONTINUE."..Y.|
00005190: EA A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 |..AA$:.AA$...(13|
000051A0: 29 A7 36 30 30 38 35 00 BD 59 B6 EA 8B 20 C2 28 |).60085..Y... .(|
000051B0: 39 36 35 29 B2 31 20 A7 36 30 30 39 34 00 D8 59 |965).1 .60094..Y|
000051C0: B7 EA A0 32 3A 9F 32 2C 44 56 2C 32 2C 44 52 24 |...2:.2,DV,2,DR$|
000051D0: AA 22 3A 22 AA 53 46 24 00 F3 59 B8 EA 84 31 35 |.":".SF$..Y...15|
000051E0: 2C 45 52 2C 45 4D 24 3A 8B 45 52 B2 30 A7 36 30 |,ER,EM$:.ER.0.60|
000051F0: 30 37 30 00 FA 59 BA EA A0 32 00 23 5A BE EA 99 |070..Y...2.#Z...|
00005200: 22 93 11 11 11 11 11 11 11 22 A3 31 31 29 22 D0 |"........".11)".|
00005210: 4C 45 41 53 45 20 D7 41 49 54 20 D7 4F 52 4B 49 |LEASE .AIT .ORKI|
00005220: 4E 47 22 00 2F 5A BF EA 89 20 35 39 36 30 30 00 |NG"./Z... 59600.|
00005230: 50 5A D8 EA 44 52 24 B2 CA 28 C4 28 C2 28 39 36 |PZ..DR$..(.(.(96|
00005240: 38 29 29 2C 32 29 3A 44 56 B2 C2 28 39 36 39 29 |8)),2):DV..(969)|
00005250: 00 68 5A DD EA 8B 20 44 52 24 B2 22 31 22 20 A7 |.hZ... DR$."1" .|
00005260: 20 44 52 24 B2 22 30 22 00 80 5A DE EA 8B 20 44 | DR$."0"..Z... D|
00005270: 52 24 B2 22 32 22 20 A7 20 44 52 24 B2 22 31 22 |R$."2" . DR$."1"|
00005280: 00 B5 5A E7 EA 49 B2 30 3A 50 4E 24 B2 22 22 3A |..Z..I.0:PN$."":|
00005290: 4C B2 C2 28 39 38 30 29 3A 81 58 B2 31 A4 4C 3A |L..(980):.X.1.L:|
000052A0: 50 4E 24 B2 50 4E 24 AA C7 28 C2 28 39 38 30 AA |PN$.PN$..(.(980.|
000052B0: 58 29 29 3A 82 00 E1 5A EC EA 99 C7 28 31 34 37 |X)):...Z....(147|
000052C0: 29 3A 59 24 B2 22 13 11 11 11 11 11 11 11 11 11 |):Y$."..........|
000052D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000052E0: 22 00 F3 5A F1 EA 99 C8 28 59 24 2C 31 30 29 A3 |"..Z....(Y$,10).|
000052F0: 32 29 3B 00 37 5B F6 EA 8B C2 28 39 36 35 29 B2 |2);.7[....(965).|
00005300: 31 A7 99 22 D0 4C 41 43 45 20 54 48 45 20 12 41 |1..".LACE THE .A|
00005310: 50 50 4C 49 43 41 54 49 4F 4E 92 20 44 49 53 4B |PPLICATION. DISK|
00005320: 20 49 4E 20 44 52 49 56 45 20 22 3B B6 28 C2 28 | IN DRIVE ";.(.(|
00005330: 39 36 38 29 AB 31 29 00 76 5B FB EA 8B C2 28 39 |968).1).v[....(9|
00005340: 36 35 29 B2 32 A7 99 22 D0 4C 41 43 45 20 54 48 |65).2..".LACE TH|
00005350: 45 20 12 44 41 54 41 92 20 44 49 53 4B 20 49 4E |E .DATA. DISK IN|
00005360: 20 44 52 49 56 45 20 22 3B C5 28 44 52 24 29 AA | DRIVE ";.(DR$).|
00005370: 28 44 56 AB 38 29 00 A0 5B 00 EB 99 C8 28 59 24 |(DV.8)..[....(Y$|
00005380: 2C 32 34 29 22 D0 52 45 53 53 20 12 D2 45 54 55 |,24)".RESS ..ETU|
00005390: 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |RN. TO CONTINUE"|
000053A0: 00 BB 5B 05 EB A1 41 41 24 3A 8B 41 41 24 B3 B1 |..[...AA$:.AA$..|
000053B0: C7 28 31 33 29 A7 36 30 31 36 35 00 EC 5B 0A EB |.(13).60165..[..|
000053C0: A0 31 35 3A A0 32 3A 9F 31 35 2C 44 56 2C 31 35 |.15:.2:.15,DV,15|
000053D0: 2C 22 49 22 AA 44 52 24 3A 9F 32 2C 44 56 2C 32 |,"I".DR$:.2,DV,2|
000053E0: 2C 44 52 24 AA 22 3A 22 AA 50 4E 24 00 06 5C 0F |,DR$.":".PN$..\.|
000053F0: EB 84 31 35 2C 45 53 24 2C 45 4D 24 3A 45 53 B2 |..15,ES$,EM$:ES.|
00005400: C5 28 45 53 24 29 00 1D 5C 14 EB A0 32 3A 98 31 |.(ES$)..\...2:.1|
00005410: 35 2C 22 49 22 AA 44 52 24 3A A0 31 35 00 2F 5C |5,"I".DR$:.15./\|
00005420: 19 EB 8B 20 45 53 B3 B1 30 A7 36 30 31 34 30 00 |... ES..0.60140.|
00005430: 49 5C 1E EB 9F 32 2C 44 56 2C 32 2C 44 52 24 AA |I\...2,DV,2,DR$.|
00005440: 22 3A 22 AA 28 50 4E 24 29 00 64 5C 23 EB 97 31 |":".(PN$).d\#..1|
00005450: 35 32 2C 31 3A 97 31 35 33 2C 38 3A 51 24 B2 C7 |52,1:.153,8:Q$..|
00005460: 28 33 34 29 00 7C 5C 28 EB 50 50 24 B2 C8 28 50 |(34).|\(.PP$..(P|
00005470: 4E 24 2C 4C AB 32 29 AA 22 2F 54 22 00 88 5C 2D |N$,L.2)."/T"..\-|
00005480: EB 99 22 93 11 11 11 22 00 8E 5C 32 EB 8F 00 A2 |.."...."..\2....|
00005490: 5C 37 EB 81 5A B2 31 A4 39 3A 81 5A 31 B2 31 A4 |\7..Z.1.9:.Z1.1.|
000054A0: 38 30 00 BF 5C 3C EB A1 23 32 2C 41 24 3A 99 41 |80..\<..#2,A$:.A|
000054B0: 24 3B 3A 8B 53 54 B2 36 34 A7 36 30 32 35 35 00 |$;:.ST.64.60255.|
000054C0: D3 5C 41 EB 8B 41 24 B2 C7 28 31 33 29 A7 36 30 |.\A..A$..(13).60|
000054D0: 32 33 35 00 DB 5C 46 EB 82 5A 31 00 E2 5C 4B EB |235..\F..Z1..\K.|
000054E0: 82 5A 00 19 5D 50 EB 99 22 49 3D 22 3B 49 AA 39 |.Z..]P.."I=";I.9|
000054F0: 3B 22 3A 4C 3D 22 3B 4C 3B 22 3A 50 4E 24 3D 22 |;":L=";L;":PN$="|
00005500: 3B 51 24 3B 50 4E 24 3B 51 24 3B 22 3A 47 4F 54 |;Q$;PN$;Q$;":GOT|
00005510: 4F 36 30 31 39 35 13 11 22 00 39 5D 55 EB 97 31 |O60195..".9]U..1|
00005520: 39 38 2C 31 31 3A 81 4E B2 30 A4 39 3A 97 36 33 |98,11:.N.0.9:.63|
00005530: 31 AA 4E 2C 31 33 3A 82 4E 00 3F 5D 5A EB 80 00 |1.N,13:.N.?]Z...|
00005540: 6A 5D 5F EB 99 22 50 50 24 3D 22 3B C7 28 33 34 |j]_.."PP$=";.(34|
00005550: 29 3B 50 50 24 3B C7 28 33 34 29 3B 22 3A 47 4F |);PP$;.(34);":GO|
00005560: 54 4F 36 30 32 37 30 13 11 22 00 8B 5D 64 EB 97 |TO60270.."..]d..|
00005570: 31 39 38 2C 5A AA 31 3A 81 4E B2 30 A4 5A 3A 97 |198,Z.1:.N.0.Z:.|
00005580: 36 33 31 AA 4E 2C 31 33 3A 82 4E 00 94 5D 69 EB |631.N,13:.N..]i.|
00005590: A0 32 3A 80 00 D5 5D 6E EB 4E 4D 24 B2 C8 28 50 |.2:...]n.NM$..(P|
000055A0: 50 24 2C C3 28 50 50 24 29 AB 32 29 3A 53 46 24 |P$,.(PP$).2):SF$|
000055B0: B2 4E 4D 24 AA 22 2F 53 22 3A 54 46 24 B2 4E 4D |.NM$."/S":TF$.NM|
000055C0: 24 AA 22 2F 42 22 3A 41 46 24 B2 4E 4D 24 AA 22 |$."/B":AF$.NM$."|
000055D0: 2F 50 43 46 22 00 ED 5D 73 EB 50 4E 24 B2 4E 4D |/PCF"..]s.PN$.NM|
000055E0: 24 AA 22 2F 54 22 3A 89 36 30 30 30 30 00 00 00 |$."/T":.60000...|
000055F0: 00 22 33 33 30 39 30 20 49 29 A7 31 30 33 34 00 |."33090 I).1034.|
00005600: 89 3D 0C 04 99 22 93 D4 48 45 20 46 4F 4C 4C 4F |.=..."..HE FOLLO|
00005610: 57 49 4E 47 20 54 45 53 54 53 20 41 52 45 20 41 |WING TESTS ARE A|
00005620: 56 41 49 4C 41 42 4C 45 3A 22 00 A7 3D 0E 04 99 |VAILABLE:"..=...|
00005630: 3A 99 A3 31 30 29 3B 22 12 C7 45 4E |:..10);"..EN |
.......:.646,B(970):.60120.D....B(2053).
.158..45,B(174):.46,B(175):..^....52210:
.33000:. 54500.....Y$.".................
.........":X$.".........................
...............".S...SS$."":.I.1.80:SS$.
SS$.G(32):......SP$."":DT$."":.I.1.39:SP
$.SP$.G(32):DT$.DT$.G(46):.:.G(14).8.%..
F$(NF),G$(NF),DT%(12),GS%(NF.NC).P.4..I.
1.12:DT%(I).31:....6.DT%(2).29:DT%(4).30
:DT%(6).30:DT%(9).30:DT%(11).30...F..2,8
,2,"0:".HF$.",L,".G(5).V.G..2,NR$:NR.E(N
R$):.2,NXR$:.2,XFS$:.2,XFS$: 2...H.PQ.1:
.F(NR$).255.PQ.0...Y..".":.800:.55100.8.
Z..808,237:.I.1.NF:G$(I)."":F$(I)."":.:F
C.0:UF.0.F._..".";G(8):G$."":.I.1.NC:CE(
I).0:CD(I).0:........1);"...FILE PREPARA
TION (FIRST TIME ONLY!). F".N.....1);".E
NTER DATA ......................... E"..
. ...1);"UPDATE DATA ...................
..... U".2.....1);"LOOK UP RECORD ......
............... L".D.....1);"SEARCH RECO
RDS...................... S".......1);"D
ELETE RECORD ...................... D".H
.C...1);"VERIFY GLOBAL TOTALS ..........
..... V"...E...1)"SET DISPLAY COLORS ...
.............. Z".,.R...1);".EXIT TO BAS
IC ...................... X".^.W...1);"E
XIT TO MENUWRITER CREATED MENU .... M"..
....H(Y$,21);"ENTER YOUR CHOICE THEN PRE
SS .RETURN.";.F....H(Y$,23)"TO RETURN TO
THE MENU PRESS .F1. ".....X%.38:Y%.21:L
%.1:.34000:AN$.IN$:FF$.IN$.'....AN$.."F"
.AN$.."E".AN$.."Z".PQ..1..".":.1002:.90.
>....AN$."E"..1000:.90.V....AN$."Z"..530
00:.90.N....AN$."L"..10000:.90......AN$.
"S"..35000:.90......AN$."U"..11000:.90..
."..AN$."D"..12000:.90.N.,..AN$."F"..320
00:.90...1..AN$."V"..13200:.90...6..AN$.
."X". AN$.."M".90...;..PQ.0..".":.1002:.
90.6.@..9700:.".":.AN$."X".340.G.A. 15:.
15,8,15.M.B..4,8,4,"MENU":.52220: 4:.DS.
0.390...D..".......... PLACE DISK WI
TH MENUWRITER MENU".F.E.."
IN THE DRIVE."...F..H(Y$,24);" .RETUR
N. TO CONTINUE, .F1. TO EXIT"...J.. AA$:
.AA$.G(13).321.+.O..AA$..G(133).330.@.T.
15:.G(9):.".":..}...."...... *** .L
OADING MENU PROGRAM. ***":."MENU",8:....
...5);"..********* WARNING *********".T
.%..". TO PREVENT THE LOSS OF YOUR FIL
ES,"...*.."ALWAYS TAKE THE X-OPTION BEFO
RE LEAVING.".7./..H(Y$,23):." PRES
S .RETURN. TO CONTINUE".L.4..AA$:.AA$.""
.820.R.9...[....".".J....PQ.1.1010......
"THE DATA FILES MUST BE INITIALIZED.".L.
..."PLEASE SELECT THE FILE PREPARATION
OPTION."......H(Y$,24)"PLEASE PRESS
.RETURN. TO CONTINUE"......AA$:.AA$..G(1
3).1006.......-....NR.MS.1050.U....".YOU
HAVE ENTERED ";MS;" RECORDS".O....".YOU
R FILE IS FULL"......".PRESS .RETURN. TO
CONTINUE"......AA$:.AA$..G(13).1040....
...O....I.1.NF:SD$.H(DT$,L%(I))......T$(
I)."D".SD$."../../.."... ..H(Y$,Y%(I));H
(X$,X%(I));PR$(I);SD$:..'.%..NT..0.1064.
3.&..I.1.NT.].'..H(Y$,TY%(I));H(X$,TX%(I
).1);TP$(I):....(.. H(Y$,24);" RECORDS
ENTERED :";NR;" OF";MS...)..H(Y$,25);"
.F1. TO RETURN TO MENU";.F.8.FC.FC.1.X
.T..H(Y$,23);SP$...... H(Y$,24);SP$:.SP$
;.*....H(Y$,24);"IS THIS ALL CORRECT? (
.RETURN. = YES )";._...X%.38:Y%.24:L%.1:
.34000:.H(Y$,23);SP$:.SP$:.SP$;.R....IN$
.."N".1170...D..IN$."LIST".F.1:.20000:.2
1000:.1200...X..H(Y$,23);SP$:.SP$.O.(#.=
= LOOK FOR REC SPACE ==....#ZZ$.G$(KF):.
26000:. COMPUTE HASH KEY.7.T$.52100:.521
35:. POS TO HASH FILE & READ PTR TO LINK
ED LIST.A.^$HPTR$.IK$:HKEY.RP:. SAVE OLD
LINK PTR...M$.52100:IK$.XFS$:.52145:. W
RITE LINK FOR NEW ENTRY.E.R$RP.E(XFS$):.
42000:. WRITE DATA REC TO 0/D...W$RP.RP.
MS.4:.52100:.52135:DRP$.IK$:. READ DEL R
EC LINKED LIST PTR.E.|$.52100:IK$.HPTR$:
.52145:. WRITE LINK DATA REC LINK PTR.\.
.$.F(DRP$).255..9360....$XFS$.DRP$:.9372
:. SET FREE SPACE PTR TO FREE-DEL-REC LI
NKED LIST PTR....$XFS$.NXR$:NXR$.D(E(NXR
$).1):. UPDATE FREE & CONTIGUOUS SPACE P
TRS.....$.AN$."U"......$NR.NR.1....$RM.M
S.NR.>.B$.H(Y$,23);"REC. ENTERED:";J(D(N
R),2);.C.L$." REC. SPACES LEFT:";J(D(RM)
,2).|.V$.RM.0..H(Y$,23);SP$;....$.RM.0..
H(Y$,23);.6);". FILE FULL .".G..$."PRESS
.RETURN. TO CONTINUE."....$.AA$:.AA$..G
(13).9460....$.H(Y$,23);SP$....%.RM.0...
...%.H(Y$,24);SP$:.H(Y$,24);TT$.A..%X%.C
(TT$).1:Y%.24:L%.1:.34000.[.0%.H(IN$,1).
"Y"..9700:..V.:%.C(IN$).0.IN$."N".9550..
.D%.H(Y$,23);"PLEASE ANSWER Y OR N (.RET
URN.=NO)":.9490.N.N%G$."":FC.0:.".":UF.0
:.1000....%.== UPDATE INDEX FILE PTRS ==
.!..%."...... *** .UPDATING INDEX F
ILE. ***".^..%IK$.NXR$:RP.2:.52100:.5214
5:. WRITE NEXT CONT. REC. PTR.....%IK$.X
FS$:RP.4:.52100:.52145:. WRITE NEXT FREE
SPC PTR.L..&IK$.D(NR):RP.1:.52100:.5214
5:. UPDATE REC COUNT.R..&.....'."."....'
.27000:. PRMPT FOR KEY....'.IN$.G(133)..
...$'.F(IK$)..255.10050.>..'.27110:. REC
NOT FND PRMPT.R.8'.:. RET TO MENU.T.B'R
P.IK:.40000:. INPUT DATA REC...G'.H(F$(K
F),C(ZZ$))..ZZ$.10090...L'.29000:.29180:
. DISPLY REC & PRMPT.Y.Q'.C(IN$).0.IN$."
Y"..10070...T'.10090...V'.29220:. PRMPT
TO CONT...`'.IN$."X"...?.J'RP.IK.MS.4:.5
2100:.52135:. READ LINK POINTER.D.T'.F(I
K$)..255.10050:. CONT SEARCH...~'.27110:
. REC NOT FOUND PRMPT....'.....*.== FILE
UPDATE RTN ==....*.".".J..+.27000:. PRM
PT FOR KEY....+.IN$.G(133)......+.F(IK$)
.255..27125:.:. EXIT IF EMPTY.3..+HPTR.I
K:HKEY.RP:. SAVE HASH POINTER & KEY.S. +
RP.IK:.40000:. GET DATA REC...*+RP.IK.MS
.4:.52100:.52135:. READ FILE LINK PTR...
/+DRP$.IK$:. SAVE DEL REC PTR.G.2+.H(F$(
KF),C(ZZ$))..ZZ$..11080...4+.29000:.2918
0:. DISPLY REC & PRMPT...>+.C(IN$).0.IN$
."Y"..11800.4.H+.F(IK$).255..27125:.:. R
EC NOT FOUND.O.R+.11030:. RESUME SEARCH.
P....I.1.NF:G$(I).F$(I):.:.11812..."..28
000:.IN$.G(133).11826...#..29000:. DISPL
AY REC...$..H(Y$,23);"WHICH FIELD TO UPD
ATE? (1-";NF;" OR LIST)"...'.."(TYPE .F1
. TO CANCEL,.RETURN. TO SAVE)".*.,.X%.35
:Y%.24:L%.4:.34000.F./.UF.E(IN$):.IN$.""
.11950.].0..IN$..G(133).11828.V.1..== CL
EAR CHANGES ==...2..I.1.NF:G$(I).F$(I):.
:.I.1.NC:CD(I).CE(I):..G.3..I.1.NG:GK(I)
.GL(I):.:.11811...4..IN$."LIST".F.0:.200
00:.11811...5..== INVALID FLD ==...6..UF
.0.UF..NF.11850...@..H(Y$,23);SP$:.SP$.A
.E..H(Y$,23);"*INVALID FIELD*":.I.1.1000
:.:.11812.W.J..== CHANGE FLD ==. .L.SD$.
H(DT$,L%(UF)):.T$(UF).."$".11855.K.M.LD%
.0.L%(UF):.LD%.0.SD$.SD$.H(SP$,LD%)...O.
.T$(UF)."D".SD$."../../.."...Q..H(Y$,Y%(
UF));.X%(UF));PR$(UF);SD$...R.G$."".1.T.
.UF..0.UF.5.11864.T.V..UF.0.2010,2050,21
20,2170,2250._.X..11810.L...Z$.G$(1)....
.. 12105:. DEL OLD REC AT XPT...B.G$(1).
Z$...L..9200:. ENTER NEW REC...V...U....
== REC DELETE RTN ==......"."......2700
0:. PROMPT FOR KEY.. ...IN$.G(133)...5 .
..F(IK$).255..27125:.:. EXIT IF EMPTY._
..HPTR.IK:HKEY.RP:. SAVE HASH PTR & KEY.
./RP.IK:.40000:. GET DATA REC.. ./RP.I
K.MS.4:.52100:.52135:. READ FILE LINK PT
R.Q ./DRP$.IK$:. SAVE DEL REC PTR.. ./.H
(F$(KF),C(ZZ$))..ZZ$..12080..!./.29000:.
29180:. DISPLY REC & PRMPT.6!&/.IN$."Y".
C(IN$).0.12095._!0/.F(IK$).255..27125:.:
. REC NOT FOUND.J!:/.12030..!?/.12800:.
DISPLY PRMPT TO DELETE..!B/.IN$."N"...J!
D/NR.NR.1:RM.RM.1:. UPDATE #REC & SPC LE
FT.."I/G$(1).H(G(255).SS$,L%(1)):RP.HPTR
:.42000:. NULL DATA REC.A"L/RP.HPTR.MS.4
:.52100:IK$.XFS$:.52145:. MOVE XFS TO DR
L.C"N/XFS$.D(HPTR):. SET XFS TO DRP.."X/
RP.HKEY:.52100:IK$.DRP$:.52145:. MOVE LI
NK PTR TO HASH TBLE.."./...".2.H(Y$,24);
SP$;..".2.H(Y$,24);"SURE YOU WANT TO DEL
ETE IT? (Y/N)"..#.2Y%.24:X%.34:L%.1:.340
00.'#.2.IN$.."Y".IN$.."N".12800.-#.2..K#
G2. == GLB TOT INPUT RTN ==.Q#(3..O#)3.=
= GLB TOT UPDATE RTN ==..#*3.== W9 -DATA
FILE FLD # ==..#+3.== IJ -FLD # OF THE
CORR GLB TOT ==..#.3...#.3.== VERIFY ALL
GLB VBLS ==..#.3.== KNOWS WHICH TOT ARE
GLB ==..$.4...$.N. == LIST FLD #S ==.H$
N.".KEYBOARD-ENTERED FIELDS:":.J.1.NF.2
.\$*N.J;"- ";PR$(J);.$4N.J.NF...19);J.1
;"- ";PR$(J.1);..$>N.:...$NP.H(Y$,24);"P
RESS .RETURN. TO CONTINUE";.N$XP.AA$:.AA
$..G(13).20600.Y$.P.".":...%.R.I.1.NF:.T
$(I).."D".SD$.G$(I):.21020.5%.RSD$.H(G$(
I),2)."/".J(G$(I),3,2)."/".I(G$(I),2).[%
.R.H(Y$,Y%(I));.X%(I));PR$(I);SD$:..W%&R
.I.1.NC:.CS%(I).0.21060..%0RSD$.D(CD(I))
..%:R.H(Y$,CY%(I));.CX%(I));CP$(I);SD$;.
.%DR..A%FR.I.1.NT..%HR.H(Y$,TY%(I)).TX%(
I).1)TP$(I)..%JR...%NR...&.EX.0:.ZZ.1.C(
ZZ$)..&.EX.X.ZZ.F(J(ZZ$,ZZ,1)).$&.E..M&.
EX.0.6.X.(F(H(ZZ$,1)).F(I(ZZ$,1)).62).R&
.EX..(X):XX$.D(X):RP.E(J(XX$,6,4))..&.ER
P..(MS.RP.10000).5..&BE..F&XI.".":SD$.H(
DT$,L%(KF)):.T$(KF)."D".SD$."../../.."..
&.I.H(Y$,Y%(KF));H(X$,X%(KF));PR$(KF);SD
$.%'.I.H(Y$,24);"PLEASE ENTER KEY OF DES
IRED RECORD."..'.I.KF$.@'.I.IN$.G(133)..
.I'.IZZ$.G$(KF):.26000:. COMPUTE HASH KE
Y..'.I.52100:.52135:. READ HASH PTR..'HI
...'.I. = DISPLY REC NOT FOUND PRMPT =.I
'.I.H(Y$,24);SP$;..(.I.H(Y$,23)"RECORD N
OT FOUND - TYPE .RETURN. TO EXIT."..(.J.
AA$:.AA$..G(13).27140.#(.J..;(`M.II.1.NF
:IJ.GS%(II).K(TM.IJ.0.28040.Q(~MGK(IJ).G
L(IJ).E(G$(II)).E(F$(II)).W(.M...(.M.II.
1.NC..(.MPZ.II:.28100..(.MIJ.GS%(II.NF).
.(.M.IJ.0.28080.W(.MGK(IJ).GL(IJ).CD(II)
.CE(II)..(.M...(.M...(.M.== CALC CD(PZ)
==.*)AM.== ASSUMING CD(1) THRU CD(PZ-1)
IS CALC ==.L)SO.== PUT OLD VALUES IN CE(
) ==.O)TO.== BASED ON F$(),GL(),CE() ==.
.)YO.CS%(PZ).1....)HQ.== DISPLAY REC TO
SCR & PRMPTS RTN ==..)LQ.".".E)MQ.NF..0.
29055..)RQ.I.1.NF:D$.G$(I):.T$(I).."D".2
9030..*\QD$.H(G$(I),2)."/".J(G$(I),3,2).
"/".I(G$(I),2).K*FQ.T$(I)."$".DO$.D$:FW.
L%(I):.36000:D$.DO$.M*KQ.T$(I)."#".D$.I(
SP$.D$,L%(I))..*PQ.H(Y$,Y%(I));H(X$,X%(I
));PR$(I);D$..*ZQ...*Q.NC..0.29085.D*.Q
.I.1.NC:CD$.D(CD(I))..*.Q.CT$(I)."$".DO$
.CD$:FW.CL%(I):.36000:CD$.DO$:.29075."+.
Q." ".H(CD$,1).CD$.J(CD$,2):.29070.F+.QC
D$.I(SP$.H(CD$,CL%(I)),CL%(I)).P+.Q.H(Y$
,CY%(I));H(X$,CX%(I));CP$(I);CD$.V+.Q...
+.Q.NT..0.29115..+.Q.I.1.NT..+.Q.H(Y$,TY
%(I));H(X$,TX%(I).1);TP$(I).A+.Q..R+.Q.N
G..0.29165..+.Q.I.1.NG:. GET GLOBAL INFO
..,JQGL$.D(GK(I)):.GT$(I)."$".DO$.GL$:FW
.GL%(I):.36000:GL$.DO$.Q,TQ.GT$."#".GL$.
I(SP$.GL$,GL%(I)).{,.Q.H(Y$,GY%(I));H(X$
,GX%(I));GP$(I);GL$..,.Q...,.Q...,.Q.H(Y
$,24);"IS THIS IT? ( .RETURN. = YES )";.
S,.RX%.29:Y%.24:L%.1:.34000.Y,.R...-$R.H
(Y$,24);"E.X.IT, .RETURN. FOR NEXT REC.,
.F1. TO PRINT";SP$;.K-.R.IN$:.IN$..G(13)
.IN$..G(133).IN$.."X".29230.I-=R.IN$.G(1
33)..51100:.29220.O-BR...-/U.== NMRC FLD
EDIT CHK RTN ==..-0UB$.CD$:A$.G(32):.41
000:CD.I9.R-1U.CD.1.CD$.H(CD$,CD.1):.300
00..-2U.CD.1.CD$.J(CD$,2):.30000...5U.ZZ
.1.C(CD$)...:U.J(CD$,ZZ,1).."0".J(CD$,ZZ
,1).."9".30020.[.?U.J(CD$,ZZ,1)..".".J(C
D$,ZZ,1).."-".E.1:..A.DU....NUB$.CD$:A$.
"-":.41000:I1.I9:B$.J(B$,I1.1)...SU.4100
0:I2.I9:.I1.0.I2.0.E.1:....XUB$.CD$:A$."
.":.41000:I1.I9:B$.J(B$,I1.1)...]U.41000
:I2.I9:.I1.0.I2.0.E.1:.../BU..(/.Y. == A
LPHA FLD EDIT CHK RTN ==.9/.Y.ZZ.1.C(CD$
).H/"Y.(J(CD$,ZZ,1).."9".J(CD$,ZZ,1).."0
").E.1:..N/,Y..T/6Y.../.}.".. THIS OPTI
ON WILL CLEAR YOUR DATA FILE"../.}." OF
ALL PREVIOUSLY ENTERED RECORDS (IF ANY
)."..0.}.:." THE ONLY TIME THAT YOU ARE
.REQUIRED.".90.}." TO USE THIS OPTION I
S THE FIRST TIME".C0.}." YOU RUN YOUR AP
PLICATION PROGRAM."..0.}.:.:." PLACE TH
E DISK THAT CONTAINS YOUR ".C0.}." DATA
FILE IN THE DRIVE AND TYPE .CLEAR."..0#}
." TO BEGIN FILE PREPARATION. "..1$}."..
. TO RETURN TO THE MENU PRESS .F1..".11(
}X%.29:Y%.13:L%.5:. 34000.K1-}. IN$."CLE
AR" . 32050.C1.}. IN$..G(133).32040.I10}
...12}."....... THIS WILL TAKE A LITTLE
WHILE."..17}.15,"S0:".HF$.Q1<}.1,8,15:.
2,8,2,"0:".HF$.",L,".G(5)..1A}R2..((2.MS
.4).256):R1.2.MS.4.R2.256..2F}.1,"P"G(2)
G(R1)G(R2)G(1).$2K}.2,G(255).52P}RP.1:.
52110.V2U}NR$.D(0):NXR$.D(2):XFS$.D(1).Z
2Z}.2,NR$:.2,NXR$:.2,D(FS):.2,XFS$..2_}
1: 2:NR.0..2D}.15,"S0:".DF$:.1,8,15.C2I}
.4,8,4,"0:".DF$.",L,".G(80).Z2N}JN..((RS
.MS).80).1..2S}R2..(JN.256):R1.JN.256.R2
..3X}.1,"P"G(4)G(R1)G(R2)G(1).13}}. 5222
0:.4,G(255): 1: 4.<3H}PQ.1:..P3...4,8,4,
"0:".SF$.G3...52220:.DS.0.33010..3..."..
.YOUR ";:.B(965).1.."APPLICATION ";..3..
.B(965).2.."DATA ";..3..."DISK, CONTAINI
NG YOUR SCREEN LAYOUT FILE, MUST BE IN
DRIVE #0."..4...".PRESS .RETURN. TO CONT
INUE.".14...AA$:.AA$..G(13).33008.?4.. 4
:.33000.V4...4,NF:.NF..0.33060.4...PR$(
NF),X%(NF),Y%(NF),L%(NF),T$(NF)..4...I.1
.NF..4...4,PR$(I),X%(I),Y%(I),L%(I),T$(I
):..J4$..4,NC:.NC..0.33102..4N..4,NG:.NG
..0.33110..5Q..GP$(NG),GX%(NG),GY%(NG),G
T$(NG),GL(NG),GK(NG),GM(NG).25V..4,NT:.N
T..0.33160.;5.. 4:..A5P.IN$."":J.1:AD.10
24.(Y%.1).40.X%.1..5U..KL.0.L%:.55296.(Y
%.1).40.(X%.KL),B(646):.KL..5Z..J.1.L%.1
..H(Y$,Y%);H(X$,X%);H(DT$,L%).S5...AD.J,
B(AD.J).128..5...I$:.I$."".34030..6...I$
.G(140)..54300:.34010..6..II.F(I$).'6...
II.133.IN$.I$:..86...II.34.34030.R6...(I
I.32.II..20.II..13).(II.128.II.192).(II.
218).34010..6...II.59.II.58.II.44.34010.
.6...II..20.34070..6...J.1.34010..6..J.J
.1:IN$.H(IN$,J.1):I$.".":.H(Y$,Y%);.X%.J
);".":.34090..7...II.13..AD.J,B(AD.J). 1
27:...7 .IN$.IN$.I$.57*..H(Y$,Y%);.X%.J.
1);I$.X74..J.L%.IN$.H(IN$,J.1).I$:.54000
.J7>..II..20.J.J.1.U7H..34010..7...== RE
MOVE TRAILING BLNKS ==..7...IN$.""....7.
.CC%.F(I(IN$,1)).P7...CC%..32.CC%..160..
..7..IN$.H(IN$,C(IN$).1):.34205.%8...808
,237:.".SCAN ALL OR SELECTED RECORDS? (A
/S)";.H8B.X%.36:Y%.1:L%.1:.34000:ST$.IN$
.Z8G..IN$.G(133)...W8L..ST$.."A".ST$.."S
".35010..8V..ST$."A".35180..8...H(Y$,4).
C8..."WHAT FIELD DO YOU WISH TO SELECT B
Y?"..8..."( 1-";NF.NC;" OR 'LIST' )";..9
..X%.21:Y%.B(214).1:L%.5:.34000:SF.E(IN$
).(9...IN$.."LIST".35080.C9..F.2:.20000:
.".":.35035.N9...SF.1.SF.NF.NC..H(Y$,9)"
INVALID FIELD"..9...SF.1.SF.NF.NC..ZT.1.
1000:...9...SF.1.SF.NF.NC..H(Y$,9);SP$:.
35035..9...SF..NF.T$.T$(SF):LS%.L%(SF):.
35110..9..T$.CT$(SF.NF):LS%.CL%(SF.NF).4
:&..H(Y$,9);"SMALLEST ITEM TO SELECT?";:
Y0%.B(214).2.K:0.X%.0:Y%.Y0%:L%.LS%.M:2.
.T$."D"..49000:SM$.IN$:.35130..:5..34000
:.34200:SM$.IN$..::..SM$."".35120..:?..T
$."D".D$.SM$:.35500:SM$.D$..:D..H(Y$,12)
;"LARGEST ITEM TO SELECT?";:Y0%.B(214).2
..;N.X%.0:Y%.Y0%:L%.LS%.);P..T$."D"..490
00:LR$.IN$:.35160.<;S..34000:LR$.IN$.N;X
..LR$."".35150.O;]..T$."D".D$.LR$:.35500
:LR$.D$..;B.LR.E(LR$):SM.E(SM$)..;D..(T$
."#".T$."$").LR.SM...C;G..(T$."A".T$."D"
).LR$.SM$...I;L....;V..RP.1.E(NXR$).2..;
...40005..<...H(F$(1),1).G(255).35400."<
...SF..NF.G$.F$(SF):.35260.;<...PZ.1.SF.
NF:.28500:..O<..G$.D(CE(SF.NF)).B<...ST$
."A".35313.{<F..T$."#".T$."$".35300..<K.
.T$."D".D$.G$:.35500:G$.D$..<P.IN$.G$:.3
4200:G$.IN$.L<S..G$.LR$.G$.SM$.35400.W<Z
..35313..<...E(G$).SM.E(G$).LR.35400..<.
....=...IA.1.NF:G$(IA).F$(IA):..)=...290
00:.29220.8=4..IN$."X"...@=H..RP.F=R...I
=..D$.I(D$,2).H(D$,2).J(D$,3,2):...=...=
= DOLLAR FORMATTING ==..= .DO$.D(.(E(DO$
).100.0.5).100):L.C(DO$).Q=...J.1.L:.J(D
O$,J,1).".".36030..=...J:J.J.1..>...J.2.
L.2.DO$.H(DO$,1)."0".I(DO$,L.1)..>H..J.L
.DO$.DO$.".00".5>R..J.L.1.DO$.DO$."0".K>
..DO$.I(SP$.DO$,FW).Q>....E>@..40005:.40
150:...>E.SN..(RS.(RP.1).80).1:OS.(RS.(R
P.1)).(80.(SN.1)).D>^..52000:.4,IN$:IN$.
H(IN$.SS$,80):.43100.V>H.RL.OS:I9.RL.1..
>R..J.1.NF:.RL.L%(J).80.40065.'?W.RL.RL.
L%(J):F$(J).J(IN$,I9,L%(J)):I9.I9.L%(J).
2?|..40090.T?..F$(J).J(IN$,I9,80.RL):SN.
SN.1.M?...52010:.4,IN$:.43100..?..IN$.H(
IN$.SS$,80):F$(J).F$(J).H(IN$,L%(J).RL.8
0)..?..RL.L%(J).(80.RL):I9.RL.1.F?...J..
?Q. 1: 4:.15,"I0":...?V..II.1.NF:G$(II).
F$(II):.II..@.....@3.. == ADD TRAILING B
LNKS ==.>@4.G$(I).H(G$(I).SS$,L%(I)):..V
@' .== STRNG SEARCH ==.N@( .JI.1.C(B$).1
.C(A$)..@2 .J(B$,JI,C(A$)).A$.I9.JI:.410
40..@< ...@F I9.0..@P ..J@... == WRITE R
EC TO DATA FILE ==..@...H(Y$,23);SP$:.SP
$:.SP$;.0A..NM$."*** WRITING RECORD ***"
:. AN$."D".NM$."*** DELETING RECORD ***"
.\A... AN$."U".NM$."*** UPDATING RECORD
***".QA...H(Y$,24).9);NM$..A..SN..(RS.(R
P.1).80).1:OS.(RS.(RP.1)).(80.(SN.1)).IA
...52000:.4,IN$:IN$.H(IN$.SS$,80)..A8.OP
$.H(IN$,OS):RL.OS:I9.RL.1..AB..J.1.NF..B
E..RL.L%(J).80.42063.*BH.RL.RL.L%(J):OP$
.OP$.G$(J).5BL..42080.EBO.OP$.OP$.H(G$(J
),80.RL):.43000:.52010:.4,OP$.QBV.SN.SN.
1..BY..52010:.4,IN$:IN$.H(IN$.SS$,80)..B
\.OP$.J(G$(J),81.RL):RL.L%(J).(80.RL).DB
`..J..B..OP$.OP$.J(IN$,RL.1):.43000:.520
10:.4,OP$: 4: 1..C...H(Y$,24)SP$:.15,"I0
":..;C...H(OP$,1).G(32).OP$.G(160).J(OP$
,2).AC....IC\..H(IN$,1).G(160).IN$.G(32)
.J(IN$,2).OCA....CH..H(Y$,Y%);H(X$,X%);"
../../..";..CR.J.1:IN$."":AD.1024.(Y%.1)
.40.X%.1.NC|..AD.J,B(AD.J).128..C...J$:.
J$."".49030..C..JJ.F(J$)..D...JJ.13.J.1.
49085..D...JJ.133.IN$.J$:..3D...JJ..48.J
J..57.49200.ED...JJ..13.49110.XD...IN$..
"".49090.ID...KF.FC.49030..D..IN$."00000
0":.H(Y$,Y%);H(X$,X%.J.1);".":...DB..C(I
N$).6.49030.HDL..AD.8,B(AD.8).127:.49250
.ZDV..JJ..20.49160..D...H(Y$,Y%);H(X$,X%
.J.1);".";..E...J.1.IN$."":.49020.'E...J
.8.IN$.H(IN$,5).TE..IN$.H(IN$,C(IN$).1):
J.J.1:.J.3.J.6.J.J.1.TE...H(Y$,Y%);H(X$,
X%.J.1);".";.E...49020..E...JJ..32.4903
0..E...H(Y$,Y%);H(X$,X%.J.1);" ";.RE...J
.1.J.4.J.7.J$.G(48):.49210..E&.J$.G(32):
.49210..F0..H(Y$,Y%);H(X$,X%.J.1);J$;..F
:..J.8.IN$.H(IN$,5).?FD.IN$.IN$.J$:J.J.1
:.J.3.J.6.J.J.1.LFN..J.9.J.8.WFX..49020.
.FB.XX.E(H(IN$,2)):YY.E(J(IN$,3,2)):ZZ.E
(I(IN$,2))..F...H(Y$,23);SP$;.LF...(ZZ.4
)...(ZZ.4)..49350:.ER.18.ER.0:.49000..G.
..XX.1.XX.12..H(Y$,23);"MONTH OUT OF RAN
GE":.49000.;G...YY.1.YY.DT%(XX)..H(Y$,23
);"DAY OUT OF RANGE":.49000.XG..IN$.I("0
0".J(D(XX),2),2).YG..IN$.IN$.I("00".J(D(
YY),2),2)..G..IN$.IN$.I("00".J(D(ZZ),2),
2). G....SGF..XX.2.YY.29.ER.18:.H(Y$,23)
;"DAY OUT OF RANGE".YGP....GOC. ==== /B
FILE CONVERSION ==.=H.G.H(Y$,24);SP$;SP$
;H(Y$,24);"IS YOUR PRINTER A COMMODORE?
. .";.FH.G.A$:.A$.."Y".A$.."N".A$..G(13)
.51102.ZH G.A$.G(13).51108..H.GIN$.A$:.H
(Y$,24);.29);".";IN$;".";:.51102..H.G.IN
$."".51102.UH.G.IN$."Y"..832,7:.51120..H
.G.IN$.."N".51100..H.G.832,8..I.G 3:.3,4
:.3,"":.ST..0.51150.BI.G.H(Y$,24);SP$;SP
$;H(Y$,25);"PRINTING....";.YI.G 4:.828:.
4: 4: 3:..WIMG. == PRT ERROR MSG RTN ==.
.ING.H(Y$,23)" .PRINTER NOT READY.
"..I.G.X.1.1200:..MI.G.H(Y$,23);SP$;
: 3:...I K.== POS DATA FILE PTR ==..J%K.
1,8,15:.4,8,4,"0:".DF$.$J*KR2..(SN.256):
R1.SN.256.R2.AJ4K.1,"P"G(4)G(R1)G(R2)G(1
).GJ>K..EJ.K.== POS INDEX FILE PTR ==..J
.K.1,8,15:.2,8,2,"0:".HF$..J.KR2..(RP.25
6):R1.RP.256.R2..J.K.1,"P"G(2)G(R1)G(R2)
G(1).BJ.K...J.K.== READ FROM HASH FILE =
=..J.K.2,IK$: 1: 2:IK.E(IK$):...K.K.== W
RITE TO HASH FILE ==./K.K.2,IK$: 1: 2:..
JK.K.== POS TO GBL FILE ==.HK.KR2..(IJ.2
56):R1.IJ.256.R2..KJK.15,"P"G(3)G(R1)G(R
2)G(1)..KTK...K.K. == ERROR CHANNEL RTNS
====..K.K.15,8,15:..TK.K.15,ER$,EM$,ET$
,ES$..K.LDS.0:DS.E(ER$):.DS.0....L.LDS$.
ER$. .EM$. .ET$. .ES$..L.L...L.O.== SET
DISP COLORS ==.AL.OC1.0:C2.0:C3.1.\L.OCO
$."................".YL.O.".".13)"SET CO
LOR MODE"..L.O..5)"..[F1] SETS SCREEN CO
LOR"..L!O..5)".[F3] SETS BORDER COLOR"..
L&O..5)".[F5] SETS TEXT COLOR"..M+O..5)"
.[F7] RETURNS YOU TO MAIN MENU"..M5O.AA$
:.AA$."".53045.4M:O.AA$.G(133).53075.JM?
O.AA$.G(134).53085.`MDO.AA$.G(135).53095
.VMIO.AA$.G(136).54320..MNO.53045..MSOC1
.C1.1:.C1.15.C1.0..MXO.53281,C1:.53015.F
M]OC2.C2.1:.C2.15.C2.0..MBO.53280,C2:.53
015..MGOC3.C3.1:.C3.17.C3.1..NLO.J(CO$,C
3,1):.53015.!N.R.== BEEPER RTN ==.1N.R.S
D.1.54055.NN.RS.54272:.S.24,15:.S.2,72..
N.S.X.1.4:.S.1,169:.S.4,33:.S.4,4:.ZZ.1.
5:.:.S.4,4..N.S.X..N"S.34010..N'S.X.1.24
:.54272.X,0:...N,S.34010.ON.T.SD.0.SD.1:
I$."":...N!T.SD.1.SD.0:I$."":...N&T...N0
T.".".)O3T."..... WOULD YOU LIKE CODEWR
ITER TO REMEMBER".VO5T." YOUR CURRENT SC
REEN COLORS (Y/N) ? ";.QO:TY%.6:X%.37:L%
.1:.34000..O?T. IN$."N" . ...ODT. IN$.."
Y" . 54323..OIT 15:.15,8,15,"S0:COLOR":.
52220..OKT. DS.62.DS.74 . ." PLACE YOUR
DATA DISK IN DRIVE 0":.54320..PNT 2:.2,
8,2,"COLOR,S,W".%PST.2,B(646).5PXT.2,B(5
3280).EP]T.2,B(53281).NPBT 2:..`P.T. REA
D COLORS.QP.T 15:.15,8,15..P.T 2:. 2,8,2
,"COLOR":. 52220..P.T. DS..0 . 2:...P.T
."."..P.T.2,A.AP.T. 646,A.JP.T.2,A.XP.T.
53280,A..P.U.2,A..P.U. 53281,A..P.U 2:.
..Q<W.I.828.958:.D7:.I,D7:.:..^QFW.169,4
,170,160,7,32,186,255,169,0,32,189,255,3
2,192,255,162,4,32,201..QPW.255,169,0,13
3,251,133,253,169,4,133,252.TQUW.160,0,1
77,251,201,96,208,05,169,32,76,143,3,169
,64,56,241,251,41,32. RZW.10,141,251,3,1
77,251,41,64,10,13,251,3,141,251,3,177,2
51,41,127,13,251.MRDW.3,208,2,169,64,201
,96,208,2,169,32,32,210,255,230,253,169,
40,56,229,253..RNW.208,7,133,253,169,13,
32,210,255,169,111,197,251,208,6,169,7,1
97,252,240..RXW.16,24,165,251,105,1,133,
251,165,252,105,0,133,252,76,91,3,96..SL
.. 646,B(967):.".".3SM.DV.B(969):DR$.J(D
(B(968)),2).RSN.. DR$."1" . DR$."0":.595
04.QSO.. DR$."2" . DR$."1":.59504..SP. 1
5:.15,DV,15:.15,"I".DR$..SQ..15,"S".DR$.
":".PN$:.15,ER,EM$:.808,237..SV..B(965).
1..15,"S".DR$.":".TF$..T{..DR$.":".PN$,D
V:.DR$.":".PN$,DV.-T...".YOUR PROGRAM HA
S BEEN SAVED ON YOUR".FT..."APPLICATION
DISK.".ST...".TO RUN YOUR PROGRAM NOW, T
YPE 'RUN'."..T...: . DELETE LINES..TP.."
..... MEMORY SCANNER:"..TU.P.2049..TZ.PT
.B(P).256.B(P.1):LN.B(P.2).256.B(P.3)..T
...".....................";LN..U...LN.59
535.59630.!U..P.PT:.59610.ZU...967,B(646
):.646,B(53281):.198,5:.I.631.639:.I,13:
.I..U..Q$.G(34):."...PO46,";.((PT.2).256
)":PO45,"PT.2;"-PE(46)*256:CL".LU..."..P
O";PT.1;",0:PO";PT;",0:PO";PT.1;",0"..V.
.."..PN$=";Q$;PN$;Q$;":TF$=";Q$;TF$;Q$":
GO59500":.".";:..)V`.DV.B(969):DR$.J(D(B
(968)),2).IVA.. DR$."1" . DR$."0":. 6000
4.IVB.. DR$."2" . DR$."1":. 60004.}VD..B
(965).1.60070.EVE.."...... YOUR PROGRAM
WILL BE SAVED ON YOUR APPLICATION D
ISK";..WJ..", WHILE YOUR DATA WILL BE S
TORED WITH YOUR SCREEN LAYOUT ";.QWO.."O
N YOUR DATA DISK. BUT FIRST, A TEMP-
ORARY PROGRAM FILE";..WT.." MUST BE
ERASED FROM YOUR DATA DISK TO ALLOW MA
XIMUM DATA";..WY.." STORAGE.".RW~..".
.... PRESS .RETURN. TO CONTINUE."..W...
AA$:.AA$..G(13).60035..X.. 15:.15,DV,15:
.15,"I".DR$:.15,"S".DR$.":".TF$.;X...15,
ER,EM$:.ER..1.60070.ZX..."..PLACE YOUR D
ATA DISK (IT CONTAINS YOUR SCREEN FILE)
";..X..." INTO DRIVE ";.(B(968).1);" TH
EN PRESS.RETURN. TO CONTINUE.".YX...AA$:
.AA$..G(13).60060..X...60040.)Y..."..NOW
YOUR PROGRAM WILL BE SAVED ON YOUR APP
LICATION DISK. ";.AY..."PLACE YOUR APPLI
CATIONDISK IN DRIVE";.(B(968).1);..Y..."
THEN PRESS .RETURN. TO CONTINUE."..Y.
..AA$:.AA$..G(13).60085..Y... B(965).1 .
60094.XY.. 2:.2,DV,2,DR$.":".SF$..Y...15
,ER,EM$:.ER.0.60070..Y.. 2.#Z...".......
.".11)"PLEASE WAIT WORKING"./Z... 59600.
PZX.DR$.J(D(B(968)),2):DV.B(969).HZ... D
R$."1" . DR$."0"..Z... DR$."2" . DR$."1"
..Z..I.0:PN$."":L.B(980):.X.1.L:PN$.PN$.
G(B(980.X)):...Z...G(147):Y$."..........
................"..Z...H(Y$,10).2);.7[..
.B(965).1.."PLACE THE .APPLICATION. DISK
IN DRIVE ";.(B(968).1).V[...B(965).2.."
PLACE THE .DATA. DISK IN DRIVE ";E(DR$).
(DV.8). [...H(Y$,24)"PRESS .RETURN. TO C
ONTINUE"..[...AA$:.AA$..G(13).60165..[..
15: 2:.15,DV,15,"I".DR$:.2,DV,2,DR$.":"
.PN$..\...15,ES$,EM$:ES.E(ES$)..\.. 2:.1
5,"I".DR$: 15./\... ES..0.60140.I\...2,D
V,2,DR$.":".(PN$).D\#..152,1:.153,8:Q$.G
(34).|\(.PP$.H(PN$,L.2)."/T"..\-.."...."
..\2....\7..Z.1.9:.Z1.1.80..\<..#2,A$:.A
$;:.ST.64.60255.S\A..A$.G(13).60235..\F.
.Z1..\K..Z..]P.."I=";I.9;":L=";L;":PN$="
;Q$;PN$;Q$;":GOTO60195..".9]U..198,11:.N
.0.9:.631.N,13:.N.?]Z...J]_.."PP$=";G(34
);PP$;G(34);":GOTO60270.."..]D..198,Z.1:
.N.0.Z:.631.N,13:.N..]I. 2:..U]N.NM$.H(P
P$,C(PP$).2):SF$.NM$."/S":TF$.NM$."/B":A
F$.NM$."/PCF"..]S.PN$.NM$."/T":.60000...
."33090 I).1034..=...".THE FOLLOWING TES
TS ARE AVAILABLE:"..=...:..10);".GEN
> CLICK IMAGE PREVIEW FOR FULL MODAL