PRGM/CAT3.LNX
FILE INFORMATION
FILENAME(S): PRGM/CAT3.LNX
FILE TYPE(S): SEQ
FILE SIZE: 27.6K
FIRST SEEN: 2025-10-19 22:48:41
APPEARS ON: 1 disk(s)
FILE HASH
76bfe368ece38216f584938fd013df55be33d628d6cee68c3f4fc0e5504af6da
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| QL APPLICATIONS | PRGM/CAT3.LNX | SEQ | Radd Maxx | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 31 20 20 20 4C 59 4E 58 20 49 58 20 20 42 59 | 1 LYNX IX BY|
00000010: 20 57 49 4C 4C 20 43 4F 52 4C 45 59 0D 20 32 20 | WILL CORLEY. 2 |
00000020: 0D 50 52 47 43 41 54 2F 52 31 0D 20 35 36 20 0D |.PRGCAT/R1. 56 .|
00000030: 50 0D 20 31 34 31 20 0D 50 52 47 43 41 54 2F 52 |P. 141 .PRGCAT/R|
00000040: 32 0D 20 35 35 20 0D 50 0D 0D 20 33 33 20 0D 50 |2. 55 .P.. 33 .P|
00000050: 0D 2F 46 4C 47 0D 20 31 20 0D 53 0D 20 38 32 20 |./FLG. 1 .S. 82 |
00000060: 0D 4D 0D 20 37 20 0D 50 0D 20 31 39 38 20 0D 50 |.M. 7 .P. 198 .P|
00000070: 0D 20 31 20 0D 50 0D 20 31 33 34 20 0D 50 52 47 |. 1 .P. 134 .PRG|
00000080: 43 41 54 0D 20 39 35 20 0D 50 0D 00 00 00 00 00 |CAT. 95 .P......|
00000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 11 01 |................|
000000F0: 0F 00 00 00 00 00 00 00 00 00 00 00 00 00 01 08 |................|
00000100: 16 08 0A 00 8B 20 C2 28 32 30 35 33 29 B2 31 35 |..... .(2053).15|
00000110: 38 A7 31 35 00 4F 08 0C 00 8B 28 C2 28 34 35 29 |8.15.O....(.(45)|
00000120: AA C2 28 34 36 29 AC 32 35 36 29 B3 31 32 30 30 |..(46).256).1200|
00000130: 30 A7 97 34 35 2C C2 28 31 37 34 29 3A 97 34 36 |0..45,.(174):.46|
00000140: 2C C2 28 31 37 35 29 3A 9C 3A 41 B2 30 00 71 08 |,.(175):.:A.0.q.|
00000150: 0F 00 8B 20 41 B2 30 A7 97 37 32 30 2C C2 28 31 |... A.0..720,.(1|
00000160: 37 34 29 3A 97 37 32 31 2C C2 28 31 37 35 29 00 |74):.721,.(175).|
00000170: 8A 08 14 00 8B 20 41 B2 30 A7 41 B2 31 3A 93 22 |..... A.0.A.1:."|
00000180: 30 3A 4D 22 2C 38 2C 31 00 C7 08 16 00 97 31 37 |0:M",8,1......17|
00000190: 34 2C C2 28 37 32 30 29 3A 97 31 37 35 2C C2 28 |4,.(720):.175,.(|
000001A0: 37 32 31 29 3A 8B C2 28 32 30 35 33 29 B2 31 35 |721):..(2053).15|
000001B0: 38 A7 97 34 31 30 32 34 2C 30 3A 97 34 31 30 32 |8..41024,0:.4102|
000001C0: 35 2C 32 30 38 00 E2 08 55 00 9C 3A 97 31 39 38 |5,208...U..:.198|
000001D0: 2C 30 3A 8F 20 3D 3D 20 43 4C 45 52 20 42 55 46 |,0:. == CLER BUF|
000001E0: 00 1A 09 5B 00 44 56 24 B2 22 30 3A 22 3A 44 56 |...[.DV$."0:":DV|
000001F0: B2 38 3A 44 4E 24 B2 22 30 22 3A 4E 4D 24 B2 22 |.8:DN$."0":NM$."|
00000200: 43 4F 4E 46 49 47 22 3A 8D 36 30 30 30 30 3A 8B |CONFIG":.60000:.|
00000210: 45 52 B1 31 39 A7 39 33 00 44 09 5C 00 9F 32 2C |ER.19.93.D.\..2,|
00000220: 38 2C 32 2C 22 30 3A 43 4F 4E 46 49 47 22 3A 84 |8,2,"0:CONFIG":.|
00000230: 32 2C 44 56 24 3A 84 32 2C 44 4E 24 3A 84 32 2C |2,DV$:.2,DN$:.2,|
00000240: 44 56 00 4B 09 5D 00 A0 32 00 69 09 63 00 8F 20 |DV.K.]..2.i.c.. |
00000250: 3D 3D 20 4E 55 4D 45 52 49 43 20 43 4F 4E 53 54 |== NUMERIC CONST|
00000260: 41 4E 54 53 20 3D 3D 00 78 09 64 00 4E 53 B2 31 |ANTS ==.x.d.NS.1|
00000270: 3A 52 4E 25 B2 31 00 97 09 69 00 53 46 24 B2 22 |:RN%.1...i.SF$."|
00000280: 50 52 47 43 41 54 22 3A 8F 20 2A 20 42 41 53 45 |PRGCAT":. * BASE|
00000290: 20 46 49 4C 45 00 C2 09 6E 00 50 44 24 B2 22 20 | FILE...n.PD$." |
000002A0: 20 20 20 20 20 20 20 C4 45 53 49 47 4E 45 44 20 | .ESIGNED |
000002B0: 42 59 20 D3 54 45 56 45 20 D2 45 41 47 41 4E 22 |BY .TEVE .EAGAN"|
000002C0: 00 F0 09 70 00 54 4C 24 B2 22 20 20 20 20 20 20 |...p.TL$." |
000002D0: 20 20 12 20 D0 52 4F 47 52 41 4D 20 C3 41 54 41 | . .ROGRAM .ATA|
000002E0: 4C 4F 47 20 D0 52 49 4E 54 45 52 20 92 22 00 0B |LOG .RINTER ."..|
000002F0: 0A 78 00 4C 52 B2 32 3A 8F 20 2A 20 52 45 43 53 |.x.LR.2:. * RECS|
00000300: 20 50 45 52 20 4C 49 4E 45 00 20 0A 7D 00 4F 46 | PER LINE. .}.OF|
00000310: B2 34 30 3A 8F 20 2A 20 4F 46 46 53 45 54 00 3C |.40:. * OFFSET.<|
00000320: 0A 82 00 43 54 25 B2 32 31 3A 8F 20 2A 20 4E 55 |...CT%.21:. * NU|
00000330: 4D 20 50 52 54 20 46 4C 44 53 00 50 0A 87 00 4E |M PRT FLDS.P...N|
00000340: 46 B2 31 38 3A 4E 43 B2 30 3A 4E 47 B2 30 00 6B |F.18:NC.0:NG.0.k|
00000350: 0A 96 00 4D 59 B2 32 35 3A 8F 20 2A 4C 49 4E 45 |...MY.25:. *LINE|
00000360: 53 20 50 45 52 20 52 45 43 00 87 0A 9B 00 41 45 |S PER REC.....AE|
00000370: 24 B2 22 41 22 3A 8F 20 2A 20 44 41 54 45 20 46 |$."A":. * DATE F|
00000380: 4F 52 4D 41 54 00 9D 0A A0 00 48 48 B2 30 3A 8F |ORMAT.....HH.0:.|
00000390: 20 2A 20 48 44 52 20 48 47 48 54 00 B5 0A A5 00 | * HDR HGHT.....|
000003A0: 48 53 B2 32 35 AB 48 48 AB 32 3A 48 50 B2 36 36 |HS.25.HH.2:HP.66|
000003B0: AB 48 48 00 D2 0A B4 00 86 20 52 48 24 28 35 39 |.HH...... RH$(59|
000003C0: 29 2C 4C 48 24 28 35 39 29 2C 54 53 28 32 30 29 |),LH$(59),TS(20)|
000003D0: 00 0B 0B BE 00 86 20 46 24 28 4E 46 29 2C 4C 25 |...... F$(NF),L%|
000003E0: 28 4E 46 29 2C 58 25 28 43 54 25 29 2C 59 25 28 |(NF),X%(CT%),Y%(|
000003F0: 43 54 25 29 2C 50 54 25 28 43 54 25 29 2C 46 44 |CT%),PT%(CT%),FD|
00000400: 24 28 43 54 25 2C 4C 52 29 00 35 0B BF 00 86 20 |$(CT%,LR).5.... |
00000410: 50 46 28 4E 53 29 2C 50 53 28 4E 53 29 2C 43 45 |PF(NS),PS(NS),CE|
00000420: 28 4E 43 29 2C 47 4C 28 4E 47 29 2C 44 54 25 28 |(NC),GL(NG),DT%(|
00000430: 31 32 29 00 50 0B C0 00 8B 20 53 4D AA 4F 4D B2 |12).P.... SM.OM.|
00000440: 30 20 A7 20 53 53 25 B2 30 3A 89 31 39 35 00 8F |0 . SS%.0:.195..|
00000450: 0B C1 00 53 53 25 B2 4E 46 AA 4E 43 3A 86 54 54 |...SS%.NF.NC:.TT|
00000460: 28 53 53 25 29 2C 4D 4E 28 53 53 25 29 2C 4D 58 |(SS%),MN(SS%),MX|
00000470: 28 53 53 25 29 2C 47 54 28 53 53 25 29 2C 47 4E |(SS%),GT(SS%),GN|
00000480: 28 53 53 25 29 2C 47 58 28 53 53 25 29 00 9B 0B |(SS%),GX(SS%)...|
00000490: C3 00 86 56 44 24 28 31 29 00 B6 0B C7 00 8F 20 |...VD$(1)...... |
000004A0: 3D 3D 53 54 52 49 4E 47 20 43 4F 4E 53 54 41 4E |==STRING CONSTAN|
000004B0: 54 53 3D 3D 00 D5 0B D2 00 53 53 24 B2 22 22 3A |TS==.....SS$."":|
000004C0: 53 50 24 B2 22 22 3A 44 44 24 B2 22 22 3A 5A 24 |SP$."":DD$."":Z$|
000004D0: B2 22 22 00 12 0C DC 00 81 49 B2 31 A4 38 30 3A |.""......I.1.80:|
000004E0: 53 53 24 B2 53 53 24 AA 22 20 22 3A 53 50 24 B2 |SS$.SS$." ":SP$.|
000004F0: 53 50 24 AA 22 20 22 3A 44 44 24 B2 44 44 24 AA |SP$." ":DD$.DD$.|
00000500: 22 2D 22 3A 5A 24 B2 5A 24 AA 22 30 22 3A 82 49 |"-":Z$.Z$."0":.I|
00000510: 00 36 0C E6 00 59 24 B2 C7 28 31 39 29 3A 81 49 |.6...Y$..(19):.I|
00000520: B2 31 A4 32 34 3A 59 24 B2 59 24 AA C7 28 31 37 |.1.24:Y$.Y$..(17|
00000530: 29 3A 82 49 00 6E 0C F0 00 47 42 24 B2 22 2A 2A |):.I.n...GB$."**|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 A7 0C F5 |***********"....|
00000570: 00 97 35 30 33 33 38 2C 39 36 3A 97 35 30 31 30 |..50338,96:.5010|
00000580: 37 2C 36 33 3A 97 35 30 31 30 38 2C 31 39 36 3A |7,63:.50108,196:|
00000590: 8F 20 3D 3D 20 52 45 41 44 20 52 54 4E 20 43 48 |. == READ RTN CH|
000005A0: 41 4E 47 45 53 00 D2 0C FA 00 8B C2 28 39 36 37 |ANGES.......(967|
000005B0: 29 B2 34 39 AF C2 28 39 36 38 29 B2 39 36 A7 97 |).49..(968).96..|
000005C0: 36 34 36 2C C2 28 31 30 30 30 29 3A 89 33 30 30 |646,.(1000):.300|
000005D0: 00 FF 0C FE 00 97 39 36 39 2C 38 32 3A 97 39 37 |......969,82:.97|
000005E0: 30 2C 52 4E 25 3A 4A B2 35 33 32 33 32 3A 4C B2 |0,RN%:J.53232:L.|
000005F0: C3 28 53 46 24 29 AA 32 3A 97 4A 2C 4C 00 2C 0D |.(SF$).2:.J,L.,.|
00000600: 00 01 81 49 B2 31 A4 4C 3A 97 4A AA 49 2C C6 28 |...I.1.L:.J.I,.(|
00000610: CA 28 44 56 24 AA 53 46 24 2C 49 2C 31 29 29 3A |.(DV$.SF$,I,1)):|
00000620: 82 49 3A 97 37 31 37 2C 44 56 00 5C 0D 0E 01 99 |.I:.717,DV.\....|
00000630: 22 93 22 C8 28 59 24 2C 37 29 22 20 20 20 20 20 |".".(Y$,7)" |
00000640: 20 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F | .O YOU WANT TO|
00000650: 20 52 55 4E 20 54 48 45 20 22 00 98 0D 0F 01 99 | RUN THE "......|
00000660: 22 20 20 20 20 20 20 12 53 4F 52 54 92 20 50 52 |" .SORT. PR|
00000670: 4F 47 52 41 4D 20 28 59 2F 4E 29 20 3F 20 22 3A |OGRAM (Y/N) ? ":|
00000680: 58 25 B2 32 38 3A 59 25 B2 38 3A 4C 25 B2 31 3A |X%.28:Y%.8:L%.1:|
00000690: 8D 33 34 30 30 30 00 A9 0D 13 01 8B 49 4E 24 B2 |.34000......IN$.|
000006A0: 22 4E 22 A7 33 30 30 00 BB 0D 14 01 8B 49 4E 24 |"N".300......IN$|
000006B0: B3 B1 22 59 22 A7 32 37 30 00 D1 0D 1A 01 4E 4D |.."Y".270.....NM|
000006C0: 24 B2 22 53 4F 52 54 22 3A 8D 36 30 30 30 30 00 |$."SORT":.60000.|
000006D0: DF 0D 1B 01 8B 45 52 B2 30 A7 32 39 32 00 13 0E |.....ER.0.292...|
000006E0: 1C 01 99 22 93 11 11 11 11 11 11 11 20 20 D0 4C |..."........ .L|
000006F0: 41 43 45 20 44 49 53 4B 20 57 49 54 48 20 54 48 |ACE DISK WITH TH|
00000700: 45 20 12 53 4F 52 54 92 20 50 52 4F 47 52 41 4D |E .SORT. PROGRAM|
00000710: 22 00 28 0E 1D 01 99 22 20 20 49 4E 20 44 52 49 |".(...." IN DRI|
00000720: 56 45 20 30 2E 22 00 75 0E 1E 01 99 C8 28 59 24 |VE 0.".u.....(Y$|
00000730: 2C 32 34 29 22 20 D0 52 45 53 53 20 12 D2 C5 D4 |,24)" .RESS ....|
00000740: D5 D2 CE 92 20 54 4F 20 53 4F 52 54 2C 20 12 46 |.... TO SORT, .F|
00000750: 31 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 20 |1. TO CONTINUE |
00000760: 20 20 57 49 54 48 4F 55 54 20 53 4F 52 54 49 4E | WITHOUT SORTIN|
00000770: 47 22 3B 00 91 0E 1F 01 A0 32 3A A1 41 41 24 3A |G";......2:.AA$:|
00000780: 8B 41 41 24 B2 C7 28 31 33 33 29 A7 33 30 30 00 |.AA$..(133).300.|
00000790: A5 0E 20 01 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 |.. ..AA$...(13).|
000007A0: 32 38 37 00 AE 0E 21 01 89 32 38 32 00 E4 0E 24 |287...!..282...$|
000007B0: 01 99 22 93 11 11 11 11 11 11 11 11 11 20 20 20 |..".......... |
000007C0: D0 52 4F 47 52 41 4D 20 4C 4F 41 44 49 4E 47 2C |.ROGRAM LOADING,|
000007D0: 20 50 4C 45 41 53 45 20 57 41 49 54 20 2E 2E 2E | PLEASE WAIT ...|
000007E0: 22 3B 00 F6 0E 27 01 9C 3A 93 22 30 3A 53 4F 52 |";...'..:."0:SOR|
000007F0: 54 22 2C 38 00 0E 0F 2B 01 8F 20 3D 3D 20 49 4E |T",8...+.. == IN|
00000800: 49 54 20 56 41 52 42 4C 53 20 3D 3D 00 35 0F 2C |IT VARBLS ==.5.,|
00000810: 01 97 39 36 37 2C 30 3A 97 39 36 38 2C 30 3A 81 |..967,0:.968,0:.|
00000820: 49 B2 31 A4 31 32 3A 44 54 25 28 49 29 B2 33 31 |I.1.12:DT%(I).31|
00000830: 3A 82 49 00 6C 0F 2E 01 44 54 25 28 32 29 B2 32 |:.I.l...DT%(2).2|
00000840: 39 3A 44 54 25 28 34 29 B2 33 30 3A 44 54 25 28 |9:DT%(4).30:DT%(|
00000850: 36 29 B2 33 30 3A 44 54 25 28 39 29 B2 33 30 3A |6).30:DT%(9).30:|
00000860: 44 54 25 28 31 31 29 B2 33 30 00 8A 0F 2F 01 99 |DT%(11).30.../..|
00000870: 22 93 22 C8 28 59 24 2C 37 29 54 4C 24 C8 28 59 |".".(Y$,7)TL$.(Y|
00000880: 24 2C 31 30 29 50 44 24 00 9C 0F 36 01 8D 31 37 |$,10)PD$...6..17|
00000890: 30 30 30 3A 8D 31 39 30 30 30 00 D2 0F 45 01 4C |000:.19000...E.L|
000008A0: 50 B2 30 3A 43 4F B2 30 3A 53 43 B2 31 3A 81 49 |P.0:CO.0:SC.1:.I|
000008B0: 54 B2 31 A4 35 39 3A 4C 48 24 28 49 54 29 B2 22 |T.1.59:LH$(IT)."|
000008C0: 22 3A 52 48 24 28 49 54 29 B2 22 22 3A 82 49 54 |":RH$(IT)."":.IT|
000008D0: 00 F0 0F 46 01 46 4C 47 25 B2 30 3A 81 49 B2 31 |...F.FLG%.0:.I.1|
000008E0: A4 4E 53 3A 54 53 28 49 29 B2 30 3A 82 49 00 26 |.NS:TS(I).0:.I.&|
000008F0: 10 47 01 8B 53 53 25 B1 30 A7 81 5A B2 31 A4 53 |.G..SS%.0..Z.1.S|
00000900: 53 25 3A 47 54 28 5A 29 B2 30 3A 47 58 28 5A 29 |S%:GT(Z).0:GX(Z)|
00000910: B2 AB 31 45 33 32 3A 47 4E 28 5A 29 B2 31 45 33 |..1E32:GN(Z).1E3|
00000920: 32 3A 82 5A 00 43 10 48 01 99 22 93 22 3B 3A 8D |2:.Z.C.H..".";:.|
00000930: 33 35 30 30 30 3A 8F 3D 3D 56 4E 2C 56 41 2C 56 |35000:.==VN,VA,V|
00000940: 44 00 61 10 4A 01 44 41 24 B2 56 44 24 28 31 29 |D.a.J.DA$.VD$(1)|
00000950: 3A 8D 33 37 30 30 30 3A 44 59 24 B2 44 41 24 00 |:.37000:DY$.DA$.|
00000960: 79 10 4F 01 8B 20 4E 53 B2 31 A7 20 4F 24 B2 22 |y.O.. NS.1. O$."|
00000970: 59 22 3A 89 33 34 33 00 A0 10 54 01 99 22 93 11 |Y":.343...T.."..|
00000980: C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 |.O YOU WISH TO S|
00000990: 45 45 20 41 4C 4C 20 52 45 50 4F 52 54 22 00 D7 |EE ALL REPORT"..|
000009A0: 10 55 01 99 22 53 45 43 54 49 4F 4E 53 20 3F 28 |.U.."SECTIONS ?(|
000009B0: 59 2F 4E 29 20 22 3B 3A 58 25 B2 35 36 3A 59 25 |Y/N) ";:X%.56:Y%|
000009C0: B2 32 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 3A 4F |.2:L%.1:.34000:O|
000009D0: 24 B2 49 4E 24 00 F0 10 56 01 8B 4F 24 B3 B1 22 |$.IN$...V..O$.."|
000009E0: 59 22 AF 4F 24 B3 B1 22 4E 22 A7 33 34 30 00 18 |Y".O$.."N".340..|
000009F0: 11 57 01 8B 4F 24 B2 22 59 22 A7 81 51 51 B2 31 |.W..O$."Y"..QQ.1|
00000A00: A4 4E 53 3A 54 53 28 51 51 29 B2 AB 31 3A 82 51 |.NS:TS(QQ)..1:.Q|
00000A10: 51 3A 89 34 30 30 00 2B 11 58 01 49 B2 35 3A 49 |Q:.400.+.X.I.5:I|
00000A20: 50 25 B2 31 3A 99 22 93 22 00 56 11 59 01 99 22 |P%.1:.".".V.Y.."|
00000A30: 13 11 20 C5 4E 54 45 52 20 54 48 45 20 53 45 43 |.. .NTER THE SEC|
00000A40: 54 49 4F 4E 20 4E 55 4D 42 45 52 28 53 29 20 59 |TION NUMBER(S) Y|
00000A50: 4F 55 20 22 00 9F 11 5A 01 99 22 57 49 53 48 20 |OU "...Z.."WISH |
00000A60: 54 4F 20 49 4E 43 4C 55 44 45 20 49 4E 20 54 48 |TO INCLUDE IN TH|
00000A70: 49 53 20 52 45 50 4F 52 54 22 3A 99 22 28 31 2D |IS REPORT":."(1-|
00000A80: 22 3B 4E 53 3B 22 29 20 4F 52 20 12 D2 45 54 55 |";NS;") OR ..ETU|
00000A90: 52 4E 92 20 54 4F 20 45 58 49 54 2E 22 00 C7 11 |RN. TO EXIT."...|
00000AA0: 5B 01 58 25 B2 32 38 3A 59 25 B2 34 3A 4C 25 B2 |[.X%.28:Y%.4:L%.|
00000AB0: 32 3A 8D 33 34 30 30 30 3A 8B 20 49 4E 24 B2 22 |2:.34000:. IN$."|
00000AC0: 22 A7 33 38 30 00 E5 11 5C 01 4F 4F B2 C5 28 49 |".380...\.OO..(I|
00000AD0: 4E 24 29 3A 8B 4F 4F B1 4E 53 B0 4F 4F B3 31 A7 |N$):.OO.NS.OO.1.|
00000AE0: 33 34 35 00 F9 11 5D 01 8B 54 53 28 4F 4F 29 B3 |345...]..TS(OO).|
00000AF0: B1 AB 31 A7 33 36 30 00 35 12 5E 01 99 22 2A 2A |..1.360.5.^.."**|
00000B00: 20 D3 45 43 54 49 4F 4E 20 22 3B 4F 4F 3B 22 20 | .ECTION ";OO;" |
00000B10: 41 4C 52 45 41 44 59 20 53 45 4C 45 43 54 45 44 |ALREADY SELECTED|
00000B20: 20 2A 2A 22 3B 3A 81 51 51 B2 31 A4 36 30 30 3A | **";:.QQ.1.600:|
00000B30: 82 51 51 00 4B 12 60 01 99 C8 28 59 24 2C 35 29 |.QQ.K.`...(Y$,5)|
00000B40: 3B 53 50 24 3A 89 33 34 35 00 7D 12 68 01 54 53 |;SP$:.345.}.h.TS|
00000B50: 28 4F 4F 29 B2 AB 31 3A 49 B2 49 AA 32 3A 99 C8 |(OO)..1:I.I.2:..|
00000B60: 28 59 24 2C 49 29 3B A6 49 50 25 29 3B 22 D3 45 |(Y$,I);.IP%);".E|
00000B70: 43 54 49 4F 4E 3A 20 22 3B 4F 4F 00 92 12 6A 01 |CTION: ";OO...j.|
00000B80: 8B 49 B1 32 32 A7 49 B2 35 3A 49 50 25 B2 32 30 |.I.22.I.5:IP%.20|
00000B90: 00 A3 12 6C 01 46 4C 47 25 B2 AB 31 3A 89 33 34 |...l.FLG%..1:.34|
00000BA0: 35 00 B1 12 7C 01 8B 46 4C 47 25 A7 34 30 30 00 |5...|..FLG%.400.|
00000BB0: E1 12 86 01 99 C8 28 59 24 2C 31 30 29 3B 22 2A |......(Y$,10);"*|
00000BC0: 2A 2A 20 20 CE 4F 20 D3 45 43 54 49 4F 4E 53 20 |** .O .ECTIONS |
00000BD0: D3 45 4C 45 43 54 45 44 20 21 20 2A 2A 2A 22 00 |.ELECTED ! ***".|
00000BE0: FF 12 88 01 46 4C 47 25 B2 30 3A 81 51 51 B2 31 |....FLG%.0:.QQ.1|
00000BF0: A4 36 30 30 3A 82 51 51 3A 89 33 34 30 00 38 13 |.600:.QQ:.340.8.|
00000C00: 90 01 99 22 93 D7 4F 55 4C 44 20 59 4F 55 20 4C |..."..OULD YOU L|
00000C10: 49 4B 45 20 59 4F 55 52 20 52 45 50 4F 52 54 20 |IKE YOUR REPORT |
00000C20: 53 45 4E 54 20 54 4F 20 54 48 45 20 20 53 43 52 |SENT TO THE SCR|
00000C30: 45 45 4E 20 22 3B 00 76 13 95 01 99 22 4F 52 20 |EEN ";.v...."OR |
00000C40: 54 48 45 20 50 52 49 4E 54 45 52 20 28 53 2F 50 |THE PRINTER (S/P|
00000C50: 29 20 3F 20 22 3B 3A 58 25 B2 36 39 3A 59 25 B2 |) ? ";:X%.69:Y%.|
00000C60: 31 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 3A 4F 24 |1:L%.1:.34000:O$|
00000C70: B2 49 4E 24 00 8F 13 9A 01 8B 4F 24 B3 B1 22 50 |.IN$......O$.."P|
00000C80: 22 AF 4F 24 B3 B1 22 53 22 A7 34 30 30 00 B1 13 |".O$.."S".400...|
00000C90: A4 01 8B 4F 24 B2 22 50 22 A7 8D 35 30 33 30 30 |...O$."P"..50300|
00000CA0: 3A 48 54 B2 48 50 3A 8B 50 42 25 A7 34 30 30 00 |:HT.HP:.PB%.400.|
00000CB0: C8 13 A9 01 8B 4F 24 B2 22 53 22 A7 50 44 B2 33 |.....O$."S".PD.3|
00000CC0: 3A 48 54 B2 48 53 00 E3 13 AE 01 52 50 B2 B5 28 |:HT.HS.....RP..(|
00000CD0: 48 54 AD 4D 59 29 3A 8B 52 50 B2 30 A7 52 50 B2 |HT.MY):.RP.0.RP.|
00000CE0: 31 00 F3 13 B8 01 A0 34 3A 9F 34 2C 50 44 2C 53 |1......4:.4,PD,S|
00000CF0: 41 00 03 14 BD 01 8B 4F 24 B2 22 53 22 A7 34 37 |A......O$."S".47|
00000D00: 36 00 32 14 C2 01 99 22 93 11 20 20 C1 54 20 54 |6.2....".. .T T|
00000D10: 48 49 53 20 50 4F 49 4E 54 2C 20 59 4F 55 20 4D |HIS POINT, YOU M|
00000D20: 41 59 20 50 52 49 4E 54 20 41 20 54 45 53 54 22 |AY PRINT A TEST"|
00000D30: 00 72 14 C4 01 99 22 20 50 41 47 45 20 54 48 41 |.r...." PAGE THA|
00000D40: 54 20 57 49 4C 4C 20 48 45 4C 50 20 59 4F 55 20 |T WILL HELP YOU |
00000D50: 4C 49 4E 45 20 55 50 20 59 4F 55 52 20 20 20 20 |LINE UP YOUR |
00000D60: 46 4F 52 4D 53 20 50 52 4F 50 45 52 4C 59 2E 22 |FORMS PROPERLY."|
00000D70: 00 9F 14 C5 01 99 22 11 20 D7 4F 55 4C 44 20 59 |......". .OULD Y|
00000D80: 4F 55 20 4C 49 4B 45 20 41 20 54 45 53 54 20 50 |OU LIKE A TEST P|
00000D90: 41 47 45 20 28 59 2F 4E 29 20 3F 22 3B 00 C3 14 |AGE (Y/N) ?";...|
00000DA0: C6 01 58 25 B2 33 36 3A 59 25 B2 36 3A 4C 25 B2 |..X%.36:Y%.6:L%.|
00000DB0: 31 3A 8D 20 33 34 30 30 30 3A 54 50 24 B2 49 4E |1:. 34000:TP$.IN|
00000DC0: 24 00 DE 14 CC 01 8B 54 50 24 B3 B1 22 59 22 AF |$......TP$.."Y".|
00000DD0: 54 50 24 B3 B1 22 4E 22 A7 34 35 34 00 F9 14 D1 |TP$.."N".454....|
00000DE0: 01 8B 54 50 24 B2 22 59 22 A7 8D 31 30 30 30 30 |..TP$."Y"..10000|
00000DF0: 3A 54 50 24 B2 22 22 00 2B 15 D3 01 99 22 93 11 |:TP$."".+...."..|
00000E00: 20 D9 4F 55 52 20 52 45 50 4F 52 54 20 49 53 20 | .OUR REPORT IS |
00000E10: 4E 4F 57 20 52 45 41 44 59 20 54 4F 20 42 45 20 |NOW READY TO BE |
00000E20: 50 52 49 4E 54 45 44 2E 22 00 68 15 D6 01 99 22 |PRINTED.".h...."|
00000E30: 11 11 20 D3 45 54 20 50 52 49 4E 54 45 52 20 54 |.. .ET PRINTER T|
00000E40: 4F 20 54 4F 50 20 4F 46 20 46 4F 52 4D 20 41 4E |O TOP OF FORM AN|
00000E50: 44 20 50 52 45 53 53 20 20 20 20 20 A0 12 D2 C5 |D PRESS ....|
00000E60: D4 D5 D2 CE 92 22 00 81 15 D8 01 A1 41 41 24 3A |....."......AA$:|
00000E70: 8B 41 41 24 B3 B1 C7 28 31 33 29 A7 34 37 32 00 |.AA$...(13).472.|
00000E80: AC 15 DA 01 8B 20 4F 24 B2 22 50 22 A7 99 22 93 |..... O$."P"..".|
00000E90: 11 20 D0 52 49 4E 54 49 4E 47 20 52 45 50 4F 52 |. .RINTING REPOR|
00000EA0: 54 2E 2E 2E 22 3A 89 34 39 30 00 E6 15 DC 01 99 |T...":.490......|
00000EB0: 22 11 20 D4 4F 20 42 45 47 49 4E 20 54 48 45 20 |". .O BEGIN THE |
00000EC0: 52 45 50 4F 52 54 20 4C 49 53 54 49 4E 47 2C 20 |REPORT LISTING, |
00000ED0: 50 52 45 53 53 20 20 20 20 20 20 12 D2 C5 D4 D5 |PRESS .....|
00000EE0: D2 CE 92 22 00 FF 15 DD 01 A1 41 41 24 3A 8B 41 |..."......AA$:.A|
00000EF0: 41 24 B3 B1 C7 28 31 33 29 A7 34 37 37 00 09 16 |A$...(13).477...|
00000F00: E0 01 99 22 93 22 3B 00 2D 16 EA 01 4E 4D 24 B2 |...".";.-...NM$.|
00000F10: 53 46 24 AA 22 30 2F 44 22 3A 8D 36 30 30 30 35 |SF$."0/D":.60005|
00000F20: 3A 8B 45 52 B3 32 30 A7 34 39 37 00 59 16 EB 01 |:.ER.20.497.Y...|
00000F30: 99 22 11 11 11 11 20 20 20 20 12 22 3B 53 46 24 |.".... .";SF$|
00000F40: 22 92 20 44 41 54 41 20 46 49 4C 45 20 4E 4F 54 |". DATA FILE NOT|
00000F50: 20 46 4F 55 4E 44 22 00 9E 16 EC 01 99 20 22 11 | FOUND"...... ".|
00000F60: 11 20 20 20 CD 41 4B 45 20 53 55 52 45 20 54 48 |. .AKE SURE TH|
00000F70: 45 20 12 20 44 41 54 41 20 92 20 44 49 53 4B 20 |E . DATA . DISK |
00000F80: 49 53 20 49 4E 20 20 20 20 20 20 20 11 44 52 49 |IS IN .DRI|
00000F90: 56 45 20 22 3B 44 4E 24 3B 22 2E 22 00 E4 16 ED |VE ";DN$;"."....|
00000FA0: 01 99 C8 28 59 24 2C 32 34 29 22 20 D0 52 45 53 |...(Y$,24)" .RES|
00000FB0: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |S ........ TO CO|
00000FC0: 4E 54 49 4E 55 45 2C 20 12 46 31 92 20 54 4F 20 |NTINUE, .F1. TO |
00000FD0: 45 4E 44 20 20 20 20 20 50 52 4F 47 52 41 4D 2E |END PROGRAM.|
00000FE0: 22 3B 00 09 17 EE 01 A1 41 41 24 3A 8B 41 41 24 |";......AA$:.AA$|
00000FF0: B3 B1 C7 28 31 33 29 AF 41 41 24 B3 B1 C7 28 31 |...(13).AA$...(1|
00001000: 33 33 29 A7 34 39 34 00 1C 17 EF 01 8B 41 41 24 |33).494......AA$|
00001010: B2 C7 28 31 33 29 A7 34 39 30 00 2D 17 F0 01 89 |..(13).490.-....|
00001020: 35 30 30 30 30 3A 8F 20 45 4E 44 00 43 17 F1 01 |50000:. END.C...|
00001030: 8B A8 54 53 28 31 29 A7 50 43 B2 30 3A 89 35 30 |..TS(1).PC.0:.50|
00001040: 30 00 59 17 F2 01 50 43 B2 30 3A 8B 50 46 28 31 |0.Y...PC.0:.PF(1|
00001050: 29 A7 8D 39 31 30 30 00 6D 17 F3 01 8F 20 3D 20 |)..9100.m.... = |
00001060: 4D 41 49 4E 20 52 54 4E 20 3D 3D 00 A6 17 F4 01 |MAIN RTN ==.....|
00001070: 97 37 31 35 2C 31 3A 97 37 31 36 2C 30 3A 97 37 |.715,1:.716,0:.7|
00001080: 31 31 2C 31 3A 9E 20 35 30 34 34 32 3A 9E 20 35 |11,1:. 50442:. 5|
00001090: 30 33 36 31 3A 8F 20 3D 3D 20 4F 50 45 4E 20 46 |0361:. == OPEN F|
000010A0: 49 4C 45 53 00 D2 17 F5 01 46 4C 47 25 B2 30 3A |ILES.....FLG%.0:|
000010B0: 4C 45 B2 30 3A 4C 53 B2 AB 31 3A 81 53 43 B2 31 |LE.0:LS..1:.SC.1|
000010C0: A4 4E 53 3A 8B A8 54 53 28 53 43 29 A7 35 36 32 |.NS:..TS(SC).562|
000010D0: 00 F8 17 F6 01 9F 33 2C 44 56 2C 33 2C 44 56 24 |......3,DV,3,DV$|
000010E0: AA 53 46 24 AA 22 2F 49 4E 44 58 22 3A 52 B2 31 |.SF$."/INDX":R.1|
000010F0: 3A 50 52 B2 AB 31 00 2C 18 F9 01 41 41 24 B2 22 |:PR..1.,...AA$."|
00001100: 22 3A 8D 31 38 30 30 30 3A 8B 41 41 24 B2 22 58 |":.18000:.AA$."X|
00001110: 22 A7 35 31 38 3A 8F 20 49 4E 49 54 49 41 4C 49 |".518:. INITIALI|
00001120: 5A 45 20 53 45 43 54 49 4F 4E 00 56 18 FE 01 84 |ZE SECTION.V....|
00001130: 33 2C 49 4B 24 3A 49 4B B2 C5 28 49 4B 24 29 3A |3,IK$:IK..(IK$):|
00001140: 8B C8 28 49 4B 24 2C 31 29 B2 C7 28 32 35 35 29 |..(IK$,1)..(255)|
00001150: A7 35 35 38 00 83 18 03 02 41 41 24 B2 22 22 3A |.558.....AA$."":|
00001160: 8B 52 43 B2 52 50 AF 50 46 28 53 43 29 A7 8D 39 |.RC.RP.PF(SC)..9|
00001170: 30 30 30 3A 4C 45 B2 30 3A 8F 20 4E 45 57 20 50 |000:LE.0:. NEW P|
00001180: 47 00 9B 18 06 02 8B 41 41 24 B2 22 58 22 A7 53 |G......AA$."X".S|
00001190: 43 B2 4E 53 3A 89 36 30 30 00 AC 18 08 02 8D 37 |C.NS:.600......7|
000011A0: 30 30 3A 9E 20 36 35 34 38 34 00 BD 18 0A 02 8B |00:. 65484......|
000011B0: 4E 43 B1 30 A7 8D 32 38 30 30 30 00 C8 18 0D 02 |NC.0..28000.....|
000011C0: 8D 31 32 30 30 30 00 D2 18 12 02 8D 36 30 30 30 |.12000......6000|
000011D0: 00 E0 18 17 02 8B A8 4D 45 25 A7 35 35 37 00 EC |.......ME%.557..|
000011E0: 18 18 02 43 53 B2 43 53 AA 31 00 F6 18 1C 02 8D |...CS.CS.1......|
000011F0: 34 30 30 30 00 07 19 21 02 8B A8 50 46 28 53 43 |4000...!...PF(SC|
00001200: 29 A7 35 35 37 00 11 19 26 02 8D 38 30 30 30 00 |).557...&..8000.|
00001210: 26 19 28 02 52 B2 52 AA 31 3A 8B 52 B3 B2 4C 52 |&.(.R.R.1:.R..LR|
00001220: A7 35 35 37 00 30 19 2B 02 8D 37 30 30 30 00 40 |.557.0.+..7000.@|
00001230: 19 2C 02 52 B2 31 3A 52 43 B2 52 43 AA 31 00 54 |.,.R.1:RC.RC.1.T|
00001240: 19 2D 02 89 35 31 30 3A 8F 20 4E 45 58 54 20 52 |.-..510:. NEXT R|
00001250: 45 43 00 69 19 2E 02 50 52 B2 30 3A 8B 43 53 B1 |EC.i...PR.0:.CS.|
00001260: 30 A7 50 52 B2 AB 31 00 90 19 2F 02 8B 52 B1 31 |0.PR..1.../..R.1|
00001270: A7 4C 45 B2 31 3A 8D 37 30 30 30 3A 8F 20 4F 55 |.LE.1:.7000:. OU|
00001280: 54 50 55 54 20 4C 45 46 54 4F 56 45 52 53 00 AA |TPUT LEFTOVERS..|
00001290: 19 30 02 46 4C 47 25 B2 AB 31 3A 8B A8 50 46 28 |.0.FLG%..1:..PF(|
000012A0: 53 43 29 A7 4C 53 B2 30 00 C8 19 31 02 8D 32 30 |SC).LS.0...1..20|
000012B0: 30 30 3A 8B 41 41 24 B2 22 58 22 A7 53 43 B2 4E |00:.AA$."X".SC.N|
000012C0: 53 3A 89 36 30 30 00 D9 19 32 02 50 43 B2 30 3A |S:.600...2.PC.0:|
000012D0: A0 33 3A 82 20 53 43 00 F1 19 35 02 8D 31 31 30 |.3:. SC...5..110|
000012E0: 30 30 3A 8B 41 41 24 B2 22 58 22 A7 36 30 30 00 |00:.AA$."X".600.|
000012F0: 02 1A 3A 02 8B 4F 24 B2 22 50 22 A7 89 36 30 30 |..:..O$."P"..600|
00001300: 00 40 1A 44 02 99 C8 28 59 24 2C 32 35 29 3B 22 |.@.D...(Y$,25);"|
00001310: 12 46 31 92 20 4C 45 46 54 20 48 41 4C 46 2C 12 |.F1. LEFT HALF,.|
00001320: 46 33 92 20 52 49 47 48 54 20 48 41 4C 46 2C 12 |F3. RIGHT HALF,.|
00001330: 46 37 92 20 43 4F 4E 54 49 4E 55 45 22 3B 00 56 |F7. CONTINUE";.V|
00001340: 1A 4E 02 A1 41 41 24 3A 8B 20 41 41 24 B2 22 22 |.N..AA$:. AA$.""|
00001350: A7 35 39 30 00 6A 1A 4F 02 8B 41 41 24 B2 C7 28 |.590.j.O..AA$..(|
00001360: 31 33 36 29 A7 36 30 30 00 86 1A 50 02 8B 41 41 |136).600...P..AA|
00001370: 24 B2 C7 28 31 33 33 29 A7 8D 36 31 31 31 30 3A |$..(133)..61110:|
00001380: 89 35 38 30 00 A2 1A 51 02 8B 41 41 24 B2 C7 28 |.580...Q..AA$..(|
00001390: 31 33 34 29 A7 8D 36 31 31 30 30 3A 89 35 38 30 |134)..61100:.580|
000013A0: 00 AB 1A 52 02 89 35 39 30 00 C6 1A 58 02 99 22 |...R..590...X.."|
000013B0: 93 22 3A 58 54 B2 30 3A A0 32 3A A0 33 3A A0 34 |.":XT.0:.2:.3:.4|
000013C0: 3A A0 31 35 00 FC 1A 62 02 99 C8 28 59 24 2C 36 |:.15...b...(Y$,6|
000013D0: 29 3B 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 41 |);".O YOU WANT A|
000013E0: 4E 4F 54 48 45 52 20 52 45 50 4F 52 54 20 28 59 |NOTHER REPORT (Y|
000013F0: 2F 4E 29 20 3F 20 20 20 22 3B 00 2E 1B 6C 02 58 |/N) ? ";...l.X|
00001400: 25 B2 33 35 3A 59 25 B2 36 3A 4C 25 B2 31 3A 8D |%.35:Y%.6:L%.1:.|
00001410: 33 34 30 30 30 3A 8B 49 4E 24 B3 B1 22 59 22 AF |34000:.IN$.."Y".|
00001420: 49 4E 24 B3 B1 22 4E 22 A7 36 31 30 00 3F 1B 76 |IN$.."N".610.?.v|
00001430: 02 8B 49 4E 24 B2 22 59 22 A7 33 32 35 00 4A 1B |..IN$."Y".325.J.|
00001440: 80 02 89 35 30 30 30 30 00 7E 1B BC 02 42 4C B2 |...50000.~...BL.|
00001450: B5 28 52 53 AC 28 49 4B AB 31 29 AD 42 53 29 AA |.(RS.(IK.1).BS).|
00001460: 31 3A 4F 53 B2 28 52 53 AC 28 49 4B AB 31 29 29 |1:OS.(RS.(IK.1))|
00001470: AB 28 42 53 AC 28 42 4C AB 31 29 29 00 9C 1B C6 |.(BS.(BL.1))....|
00001480: 02 48 42 B2 B5 28 42 4C AD 32 35 36 29 3A 4C 42 |.HB..(BL.256):LB|
00001490: B2 42 4C AB 32 35 36 AC 48 42 00 BA 1B D0 02 97 |.BL.256.HB......|
000014A0: 37 31 35 2C 4C 42 3A 97 37 31 36 2C 48 42 3A 97 |715,LB:.716,HB:.|
000014B0: 37 31 31 2C 4F 53 AA 31 00 C6 1B DA 02 9E 20 35 |711,OS.1...... 5|
000014C0: 30 31 30 36 00 CC 1B EE 02 8E 00 E7 1B CF 07 8F |0106............|
000014D0: 20 3D 3D 20 45 4E 44 20 4F 46 20 53 45 43 20 52 | == END OF SEC R|
000014E0: 54 4E 20 3D 3D 00 F3 1B D0 07 8B 43 53 B2 30 A7 |TN ==......CS.0.|
000014F0: 8E 00 00 1C D4 07 43 4F B2 43 4F AA 43 53 00 12 |......CO.CO.CS..|
00001500: 1C CC 09 8B 53 43 B2 4E 53 A7 4C 53 B2 30 3A 8E |....SC.NS.LS.0:.|
00001510: 00 18 1C CE 09 8E 00 33 1C 9F 0F 8F 20 3D 20 41 |.......3.... = A|
00001520: 43 43 55 4D 20 53 45 43 54 20 54 4F 54 53 20 3D |CCUM SECT TOTS =|
00001530: 3D 00 53 1C A0 0F 8E 3A 8F 20 3D 3D 20 55 50 44 |=.S....:. == UPD|
00001540: 41 54 45 20 54 4F 54 41 4C 2C 4D 41 58 2C 4D 49 |ATE TOTAL,MAX,MI|
00001550: 4E 00 59 1C A5 0F 8E 00 71 1C 6E 17 8F 20 3D 3D |N.Y.....q.n.. ==|
00001560: 20 41 43 43 45 50 54 20 49 46 27 53 20 3D 3D 00 | ACCEPT IF'S ==.|
00001570: 80 1C 70 17 91 53 43 AB 30 89 36 35 30 30 00 8B |..p..SC.0.6500..|
00001580: 1C 64 19 4D 45 25 B2 AB 31 00 91 1C 66 19 8E 00 |.d.ME%..1...f...|
00001590: A8 1C 57 1B 8F 20 3D 3D 20 50 52 54 49 4E 47 20 |..W.. == PRTING |
000015A0: 52 54 4E 20 3D 3D 00 BA 1C 58 1B 81 4C 4E B2 31 |RTN ==...X..LN.1|
000015B0: A4 4D 59 3A 46 4C B2 30 00 C7 1C 62 1B 81 49 B2 |.MY:FL.0...b..I.|
000015C0: 31 A4 43 54 25 00 E7 1C 6C 1B 8B 59 25 28 49 29 |1.CT%...l..Y%(I)|
000015D0: B2 4C 4E A7 46 4C B2 46 4C AA 31 3A 50 54 25 28 |.LN.FL.FL.1:PT%(|
000015E0: 46 4C 29 B2 49 00 EE 1C 76 1B 82 49 00 04 1D 80 |FL).I...v..I....|
000015F0: 1B 50 53 24 B2 22 22 3A 8B 46 4C B2 30 A7 37 31 |.PS$."":.FL.0.71|
00001600: 30 30 00 17 1D 8A 1B 81 49 B2 31 A4 52 AB 31 3A |00......I.1.R.1:|
00001610: 53 24 B2 22 22 00 3A 1D 94 1B 81 4A B2 31 A4 46 |S$."".:....J.1.F|
00001620: 4C 3A 4A 49 25 B2 58 25 28 50 54 25 28 4A 29 29 |L:JI%.X%(PT%(J))|
00001630: AB C3 28 53 24 29 AB 31 00 5D 1D 9E 1B 53 24 B2 |..(S$).1.]...S$.|
00001640: 53 24 AA C8 28 53 50 24 2C 4A 49 25 29 AA 46 44 |S$..(SP$,JI%).FD|
00001650: 24 28 50 54 25 28 4A 29 2C 49 29 00 93 1D A3 1B |$(PT%(J),I).....|
00001660: 8B 4A B3 46 4C A7 8B 58 25 28 50 54 25 28 4A AA |.J.FL..X%(PT%(J.|
00001670: 31 29 29 B3 C3 28 53 24 29 A7 53 24 B2 C8 28 53 |1))..(S$).S$..(S|
00001680: 24 2C 58 25 28 50 54 25 28 4A AA 31 29 29 AB 31 |$,X%(PT%(J.1)).1|
00001690: 29 00 B5 1D A8 1B 82 4A 3A 50 53 24 B2 50 53 24 |)......J:PS$.PS$|
000016A0: AA 53 24 AA C8 28 53 50 24 2C 4F 46 AB C3 28 53 |.S$..(SP$,OF..(S|
000016B0: 24 29 29 00 BC 1D B2 1B 82 49 00 D9 1D BC 1B 50 |$))......I.....P|
000016C0: 53 24 B2 50 53 24 AA C8 28 53 50 24 2C 38 30 AB |S$.PS$..(SP$,80.|
000016D0: C3 28 50 53 24 29 29 00 F2 1D C2 1B 8B 4F 24 B2 |.(PS$))......O$.|
000016E0: 22 53 22 A7 8D 36 31 30 30 30 3A 89 37 31 32 30 |"S"..61000:.7120|
000016F0: 00 FD 1D C6 1B 98 34 2C 50 53 24 00 07 1E D0 1B |......4,PS$.....|
00001700: 82 4C 4E 3A 8E 00 22 1E 3F 1F 8F 20 3D 20 53 45 |.LN:..".?.. = SE|
00001710: 54 20 4F 55 54 50 55 54 20 46 4C 44 53 20 3D 3D |T OUTPUT FLDS ==|
00001720: 00 40 1E 40 1F 8F 20 3D 3D 20 20 53 45 54 20 4F |.@.@.. == SET O|
00001730: 55 54 50 55 54 20 41 52 52 41 59 20 3D 3D 00 53 |UTPUT ARRAY ==.S|
00001740: 1E 42 1F 46 44 24 28 32 2C 52 29 B2 46 24 28 33 |.B.FD$(2,R).F$(3|
00001750: 29 00 66 1E 46 1F 46 44 24 28 34 2C 52 29 B2 46 |).f.F.FD$(4,R).F|
00001760: 24 28 34 29 00 92 1E 4A 1F 46 57 B2 34 3A 44 50 |$(4)...J.FW.4:DP|
00001770: B2 30 3A 44 4F 24 B2 46 24 28 31 29 3A 8D 33 36 |.0:DO$.F$(1):.36|
00001780: 30 30 30 3A 46 44 24 28 36 2C 52 29 B2 44 4F 24 |000:FD$(6,R).DO$|
00001790: 00 A5 1E 4E 1F 46 44 24 28 38 2C 52 29 B2 46 24 |...N.FD$(8,R).F$|
000017A0: 28 37 29 00 B8 1E 50 1F 46 44 24 28 39 2C 52 29 |(7)...P.FD$(9,R)|
000017B0: B2 46 24 28 38 29 00 CC 1E 52 1F 46 44 24 28 31 |.F$(8)...R.FD$(1|
000017C0: 30 2C 52 29 B2 46 24 28 39 29 00 E1 1E 54 1F 46 |0,R).F$(9)...T.F|
000017D0: 44 24 28 31 31 2C 52 29 B2 46 24 28 31 30 29 00 |D$(11,R).F$(10).|
000017E0: F6 1E 56 1F 46 44 24 28 31 32 2C 52 29 B2 46 24 |..V.FD$(12,R).F$|
000017F0: 28 31 31 29 00 0B 1F 58 1F 46 44 24 28 31 33 2C |(11)...X.FD$(13,|
00001800: 52 29 B2 46 24 28 31 32 29 00 20 1F 5A 1F 46 44 |R).F$(12). .Z.FD|
00001810: 24 28 31 34 2C 52 29 B2 46 24 28 31 33 29 00 35 |$(14,R).F$(13).5|
00001820: 1F 5C 1F 46 44 24 28 31 35 2C 52 29 B2 46 24 28 |.\.FD$(15,R).F$(|
00001830: 31 34 29 00 4A 1F 5E 1F 46 44 24 28 31 36 2C 52 |14).J.^.FD$(16,R|
00001840: 29 B2 46 24 28 31 35 29 00 5F 1F 60 1F 46 44 24 |).F$(15)._.`.FD$|
00001850: 28 31 37 2C 52 29 B2 46 24 28 31 36 29 00 74 1F |(17,R).F$(16).t.|
00001860: 64 1F 46 44 24 28 31 39 2C 52 29 B2 46 24 28 31 |d.FD$(19,R).F$(1|
00001870: 37 29 00 89 1F 68 1F 46 44 24 28 32 31 2C 52 29 |7)...h.FD$(21,R)|
00001880: B2 46 24 28 31 38 29 00 8F 1F 6A 1F 8E 00 A8 1F |.F$(18)...j.....|
00001890: 27 23 8F 20 3D 3D 20 4E 45 57 20 50 41 47 45 20 |'#. == NEW PAGE |
000018A0: 52 54 4E 20 3D 3D 00 BB 1F 28 23 8B 20 4F 24 B2 |RTN ==...(#. O$.|
000018B0: 22 50 22 A7 20 39 30 33 30 00 F0 1F 30 23 99 C8 |"P". 9030...0#..|
000018C0: 28 59 24 2C 32 34 29 22 C5 4E 54 45 52 20 12 58 |(Y$,24)".NTER .X|
000018D0: 92 20 54 4F 20 45 58 49 54 20 52 45 50 4F 52 54 |. TO EXIT REPORT|
000018E0: 20 49 4E 20 50 52 4F 47 52 45 53 53 2E 22 00 2E | IN PROGRESS."..|
000018F0: 20 32 23 99 C8 28 59 24 2C 32 35 29 3B 22 12 46 | 2#..(Y$,25);".F|
00001900: 31 92 20 4C 45 46 54 20 48 41 4C 46 2C 12 46 33 |1. LEFT HALF,.F3|
00001910: 92 20 52 49 47 48 54 20 48 41 4C 46 2C 12 46 37 |. RIGHT HALF,.F7|
00001920: 92 20 43 4F 4E 54 49 4E 55 45 22 3B 00 44 20 37 |. CONTINUE";.D 7|
00001930: 23 A1 41 41 24 3A 8B 41 41 24 B2 22 22 A7 39 30 |#.AA$:.AA$."".90|
00001940: 31 35 00 59 20 3A 23 8B 41 41 24 B2 22 58 22 A7 |15.Y :#.AA$."X".|
00001950: 99 22 93 22 3B 3A 8E 00 7A 20 3C 23 8B 41 41 24 |.".";:..z <#.AA$|
00001960: B2 C7 28 31 33 36 29 A7 99 22 93 22 3B 3A 58 54 |..(136)..".";:XT|
00001970: B2 30 3A 89 39 30 34 30 00 97 20 3D 23 8B 41 41 |.0:.9040.. =#.AA|
00001980: 24 B2 C7 28 31 33 33 29 A7 8D 36 31 31 31 30 3A |$..(133)..61110:|
00001990: 89 39 30 30 38 00 B4 20 3E 23 8B 41 41 24 B2 C7 |.9008.. >#.AA$..|
000019A0: 28 31 33 34 29 A7 8D 36 31 31 30 30 3A 89 39 30 |(134)..61100:.90|
000019B0: 30 38 00 BE 20 40 23 89 39 30 31 35 00 CC 20 46 |08.. @#.9015.. F|
000019C0: 23 8B A8 4C 53 A7 39 30 34 30 00 E2 20 50 23 4C |#..LS.9040.. P#L|
000019D0: 53 B2 AB 31 3A 48 43 B2 30 3A 52 43 B2 30 3A 8E |S..1:HC.0:RC.0:.|
000019E0: 00 FA 20 8B 23 8F 20 3D 3D 20 50 41 47 45 20 48 |.. .#. == PAGE H|
000019F0: 45 41 44 45 52 20 3D 3D 00 0A 21 8C 23 48 43 B2 |EADER ==..!.#HC.|
00001A00: 30 3A 52 43 B2 30 3A 8E 00 20 21 0F 27 8F 20 3D |0:RC.0:.. !.'. =|
00001A10: 3D 20 54 45 53 54 20 50 41 47 45 20 3D 3D 00 42 |= TEST PAGE ==.B|
00001A20: 21 10 27 81 49 B2 31 A4 4E 46 3A 46 24 28 49 29 |!.'.I.1.NF:F$(I)|
00001A30: B2 C8 28 47 42 24 2C 4C 25 28 49 29 29 3A 82 49 |..(GB$,L%(I)):.I|
00001A40: 00 57 21 1A 27 81 52 B2 31 A4 4C 52 3A 8D 38 30 |.W!.'.R.1.LR:.80|
00001A50: 30 30 3A 82 52 00 93 21 4C 27 99 22 93 D3 45 54 |00:.R..!L'."..ET|
00001A60: 20 50 52 49 4E 54 45 52 20 54 4F 20 54 4F 50 20 | PRINTER TO TOP |
00001A70: 4F 46 20 46 4F 52 4D 20 41 4E 44 20 50 52 45 53 |OF FORM AND PRES|
00001A80: 53 20 20 20 20 20 20 20 12 D2 C5 D4 D5 D2 CE 92 |S ........|
00001A90: 22 00 AE 21 56 27 A1 41 41 24 3A 8B 41 41 24 B3 |"..!V'.AA$:.AA$.|
00001AA0: B1 C7 28 31 33 29 A7 31 30 30 37 30 00 C5 21 60 |..(13).10070..!`|
00001AB0: 27 8D 39 31 30 30 3A 8F 20 3D 3D 20 50 52 54 20 |'.9100:. == PRT |
00001AC0: 48 44 52 00 DA 21 6A 27 81 4B B2 31 A4 52 50 3A |HDR..!j'.K.1.RP:|
00001AD0: 8D 37 30 30 30 3A 82 4B 00 F5 21 88 27 8B 53 41 |.7000:.K..!.'.SA|
00001AE0: B3 B1 37 A7 98 34 2C C7 28 31 32 29 3A 89 31 30 |..7..4,.(12):.10|
00001AF0: 31 33 30 00 1F 22 8A 27 4C 49 B2 52 50 AC 4D 59 |130..".'LI.RP.MY|
00001B00: AA 48 48 3A 8B 4C 49 B3 36 36 A7 81 49 54 B2 31 |.HH:.LI.66..IT.1|
00001B10: A4 36 36 AB 4C 49 3A 98 34 3A 82 49 54 00 45 22 |.66.LI:.4:.IT.E"|
00001B20: 92 27 99 20 22 93 11 11 20 C1 4E 4F 54 48 45 52 |.'. "... .NOTHER|
00001B30: 20 54 45 53 54 20 50 41 47 45 20 3F 28 59 2F 4E | TEST PAGE ?(Y/N|
00001B40: 29 22 3B 00 68 22 97 27 58 25 B2 32 36 3A 59 25 |)";.h".'X%.26:Y%|
00001B50: B2 33 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 3A 54 |.3:L%.1:.34000:T|
00001B60: 50 24 B2 49 4E 24 00 85 22 9C 27 8B 54 50 24 B3 |P$.IN$..".'.TP$.|
00001B70: B1 22 59 22 AF 54 50 24 B3 B1 22 4E 22 A7 31 30 |."Y".TP$.."N".10|
00001B80: 31 33 30 00 98 22 A6 27 8B 54 50 24 B2 22 59 22 |130..".'.TP$."Y"|
00001B90: A7 31 30 30 36 30 00 9E 22 B0 27 8E 00 BD 22 F7 |.10060..".'...".|
00001BA0: 2A 8F 20 3D 3D 20 47 52 44 20 54 4F 54 20 4F 55 |*. == GRD TOT OU|
00001BB0: 54 50 55 54 20 52 54 4E 20 3D 3D 00 D1 22 F8 2A |TPUT RTN ==..".*|
00001BC0: 8F 20 3D 3D 20 45 4E 44 20 52 45 50 4F 52 54 00 |. == END REPORT.|
00001BD0: 11 23 0C 2B 50 53 24 B2 22 C5 CE C4 20 CF C6 20 |.#.+PS$."... .. |
00001BE0: D2 C5 D0 CF D2 D4 20 20 20 20 20 20 20 20 20 20 |...... |
00001BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C00: 20 C5 CE C4 20 CF C6 20 D2 C5 D0 CF D2 D4 22 00 | ... .. ......".|
00001C10: 33 23 0E 2B 98 34 3A 98 34 3A 8B 4F 24 B2 22 53 |3#.+.4:.4:.O$."S|
00001C20: 22 A7 8D 36 32 30 30 30 3A 8D 36 31 30 30 30 3A |"..62000:.61000:|
00001C30: 8E 00 3E 23 0F 2B 98 34 2C 50 53 24 00 6C 23 10 |..>#.+.4,PS$.l#.|
00001C40: 2B 4C 49 B2 AB 50 52 AC 28 52 43 AA 4C 45 29 AC |+LI..PR.(RC.LE).|
00001C50: 4D 59 AA 48 48 AA 33 3A 81 49 54 B2 31 A4 36 36 |MY.HH.3:.IT.1.66|
00001C60: AB 4C 49 3A 98 34 3A 82 49 54 00 72 23 16 2B 8E |.LI:.4:.IT.r#.+.|
00001C70: 00 91 23 DF 2E 8F 20 3D 3D 20 43 4F 4E 56 45 52 |..#... == CONVER|
00001C80: 54 20 54 4F 20 43 4F 4D 50 41 52 45 20 3D 3D 00 |T TO COMPARE ==.|
00001C90: 97 23 E0 2E 8E 00 B1 23 67 42 8F 20 3D 3D 20 4D |.#.....#gB. == M|
00001CA0: 41 49 4E 20 49 4E 49 54 20 52 54 4E 20 3D 3D 00 |AIN INIT RTN ==.|
00001CB0: CE 23 68 42 81 49 B2 31 A4 43 54 25 3A 87 58 25 |.#hB.I.1.CT%:.X%|
00001CC0: 28 49 29 2C 59 25 28 49 29 3A 82 49 00 ED 23 72 |(I),Y%(I):.I..#r|
00001CD0: 42 87 48 44 24 3A 87 48 31 24 3A 48 44 24 B2 48 |B.HD$:.H1$:HD$.H|
00001CE0: 44 24 AA 48 31 24 3A 87 50 48 24 00 1D 24 77 42 |D$.H1$:.PH$..$wB|
00001CF0: 81 49 B2 31 A4 4E 53 3A 87 50 46 28 49 29 2C 50 |.I.1.NS:.PF(I),P|
00001D00: 53 28 49 29 3A 82 49 3A 8F 20 49 46 20 4E 4F 20 |S(I):.I:. IF NO |
00001D10: 50 52 54 3A 50 46 2C 50 53 3D 30 00 3A 24 7C 42 |PRT:PF,PS=0.:$|B|
00001D20: 81 49 B2 31 A4 43 54 25 3A 87 46 2C 4B 3A 8B 46 |.I.1.CT%:.F,K:.F|
00001D30: B2 30 A7 31 37 30 35 30 00 59 24 86 42 87 54 58 |.0.17050.Y$.B.TX|
00001D40: 24 3A 8B 4B B2 32 A7 87 54 31 24 3A 54 58 24 B2 |$:.K.2..T1$:TX$.|
00001D50: 54 58 24 AA 54 31 24 00 78 24 90 42 81 52 B2 31 |TX$.T1$.x$.B.R.1|
00001D60: A4 4C 52 3A 46 44 24 28 46 2C 52 29 B2 54 58 24 |.LR:FD$(F,R).TX$|
00001D70: 3A 82 52 3A 82 49 00 7E 24 9A 42 8E 00 B9 24 5C |:.R:.I.~$.B...$\|
00001D80: 44 83 34 2C 33 2C 31 38 2C 33 2C 34 2C 34 2C 31 |D.4,3,18,3,4,4,1|
00001D90: 30 2C 34 2C 31 38 2C 34 2C 32 37 2C 34 2C 34 2C |0,4,18,4,27,4,4,|
00001DA0: 36 2C 34 2C 37 2C 34 2C 38 2C 34 2C 39 2C 34 2C |6,4,7,4,8,4,9,4,|
00001DB0: 31 30 2C 34 2C 31 31 00 EB 24 5E 44 83 34 2C 31 |10,4,11..$^D.4,1|
00001DC0: 32 2C 34 2C 31 33 2C 34 2C 31 34 2C 34 2C 31 35 |2,4,13,4,14,4,15|
00001DD0: 2C 34 2C 31 36 2C 34 2C 31 38 2C 34 2C 31 39 2C |,4,16,4,18,4,19,|
00001DE0: 34 2C 32 30 2C 34 2C 32 31 00 F3 24 62 44 83 22 |4,20,4,21..$bD."|
00001DF0: 22 00 FB 24 64 44 83 22 22 00 03 25 66 44 83 22 |"..$dD.""..%fD."|
00001E00: 22 00 0F 25 6E 44 83 2D 31 20 2C 20 30 00 28 25 |"..%nD.-1 , 0.(%|
00001E10: 72 44 83 31 2C 31 2C 22 D0 52 4F 47 52 41 4D 20 |rD.1,1,".ROGRAM |
00001E20: CE 41 4D 45 3A 22 00 39 25 74 44 83 33 2C 31 2C |.AME:".9%tD.3,1,|
00001E30: 22 D4 59 50 45 3A 22 00 4D 25 76 44 83 35 2C 31 |".YPE:".M%vD.5,1|
00001E40: 2C 22 C4 49 53 4B 20 CE 4F 3A 22 00 65 25 78 44 |,".ISK .O:".e%xD|
00001E50: 83 37 2C 31 2C 22 C4 45 53 43 52 49 50 54 49 4F |.7,1,".ESCRIPTIO|
00001E60: 4E 3A 22 00 79 25 7A 44 83 31 38 2C 31 2C 22 D3 |N:".y%zD.18,1,".|
00001E70: 4F 55 52 43 45 3A 22 00 8D 25 7C 44 83 32 30 2C |OURCE:"..%|D.20,|
00001E80: 31 2C 22 C1 55 54 48 4F 52 3A 22 00 96 25 7E 44 |1,".UTHOR:"..%~D|
00001E90: 83 30 2C 30 00 AC 25 4F 46 8F 20 3D 3D 20 53 45 |.0,0..%OF. == SE|
00001EA0: 43 54 20 49 4E 49 54 20 3D 3D 00 E2 25 50 46 8B |CT INIT ==..%PF.|
00001EB0: 53 53 25 B1 30 A7 81 5A B2 31 A4 53 53 25 3A 54 |SS%.0..Z.1.SS%:T|
00001EC0: 54 28 5A 29 B2 30 3A 4D 58 28 5A 29 B2 AB 31 45 |T(Z).0:MX(Z)..1E|
00001ED0: 33 32 3A 4D 4E 28 5A 29 B2 31 45 33 32 3A 82 5A |32:MN(Z).1E32:.Z|
00001EE0: 00 EB 25 5F 46 43 53 B2 30 00 19 26 64 46 8B 28 |..%_FCS.0..&dF.(|
00001EF0: 50 46 28 53 43 29 AF 53 43 B1 31 AF 54 53 28 53 |PF(SC).SC.1.TS(S|
00001F00: 43 AB 31 29 29 B0 46 4C 47 25 A7 8D 39 30 30 30 |C.1)).FLG%..9000|
00001F10: 3A 89 31 38 30 33 30 00 3F 26 69 46 8B 20 50 46 |:.18030.?&iF. PF|
00001F20: 28 53 43 29 20 AF 20 53 43 B1 31 20 AF A8 20 54 |(SC) . SC.1 .. T|
00001F30: 53 28 53 43 AB 31 29 A7 8D 39 31 30 30 00 4C 26 |S(SC.1)..9100.L&|
00001F40: 6E 46 46 4C 47 25 B2 30 3A 8E 00 6E 26 37 4A 8F |nFFLG%.0:..n&7J.|
00001F50: 20 3D 3D 20 52 45 41 44 20 53 43 52 20 26 20 47 | == READ SCR & G|
00001F60: 4C 42 4C 20 46 49 4C 45 53 20 3D 3D 00 98 26 38 |LBL FILES ==..&8|
00001F70: 4A 4E 4D 24 B2 53 46 24 AA 22 2F 53 22 3A 52 53 |JNM$.SF$."/S":RS|
00001F80: B2 30 3A 8D 36 30 30 30 30 3A 8B 45 52 B3 32 30 |.0:.60000:.ER.20|
00001F90: A7 31 39 31 37 30 00 C9 26 A6 4A 99 20 22 93 11 |.19170..&.J. "..|
00001FA0: 11 11 20 20 20 20 20 12 22 3B 53 46 24 3B 22 92 |.. .";SF$;".|
00001FB0: 20 53 43 52 45 45 4E 20 46 49 4C 45 20 4E 4F 54 | SCREEN FILE NOT|
00001FC0: 20 46 4F 55 4E 44 22 00 0F 27 B0 4A 99 20 22 11 | FOUND"..'.J. ".|
00001FD0: 11 20 20 CD 41 4B 45 20 53 55 52 45 20 54 48 45 |. .AKE SURE THE|
00001FE0: 20 12 20 41 50 50 4C 49 43 41 54 49 4F 4E 20 92 | . APPLICATION .|
00001FF0: 20 44 49 53 4B 20 20 20 20 20 20 20 20 11 49 53 | DISK .IS|
00002000: 20 49 4E 20 44 52 49 56 45 20 30 2E 22 00 49 27 | IN DRIVE 0.".I'|
00002010: BA 4A 99 C8 28 59 24 2C 32 34 29 22 20 D0 52 45 |.J..(Y$,24)" .RE|
00002020: 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 |SS ........ TO C|
00002030: 4F 4E 54 49 4E 55 45 2C 20 12 46 31 92 20 54 4F |ONTINUE, .F1. TO|
00002040: 20 45 58 49 54 2E 22 00 70 27 C4 4A A1 41 41 24 | EXIT.".p'.J.AA$|
00002050: 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 AF 41 41 24 |:.AA$...(13).AA$|
00002060: B3 B1 C7 28 31 33 33 29 A7 31 39 31 34 30 00 85 |...(133).19140..|
00002070: 27 CE 4A 8B 41 41 24 B2 C7 28 31 33 29 A7 31 39 |'.J.AA$..(13).19|
00002080: 30 30 30 00 96 27 D8 4A 89 35 30 30 30 30 3A 8F |000..'.J.50000:.|
00002090: 20 45 4E 44 00 B5 27 E2 4A 9F 34 2C 38 2C 34 2C | END..'.J.4,8,4,|
000020A0: 22 30 3A 22 AA 53 46 24 AA 22 2F 53 22 3A 84 34 |"0:".SF$."/S":.4|
000020B0: 2C 4E 46 00 F8 27 EC 4A 81 49 B2 31 A4 4E 46 3A |,NF..'.J.I.1.NF:|
000020C0: 84 34 2C 50 52 24 2C 58 25 2C 59 25 2C 4C 25 28 |.4,PR$,X%,Y%,L%(|
000020D0: 49 29 2C 54 24 3A 52 53 B2 52 53 AA 4C 25 28 49 |I),T$:RS.RS.L%(I|
000020E0: 29 AA 31 3A 46 24 28 49 29 B2 C8 28 53 50 24 2C |).1:F$(I)..(SP$,|
000020F0: 4C 25 28 49 29 29 00 02 28 F6 4A 82 49 3A A0 34 |L%(I))..(.J.I:.4|
00002100: 00 33 28 00 4B 42 53 B2 AB 32 35 34 AC 28 52 53 |.3(.KBS..254.(RS|
00002110: B1 32 35 33 29 AB 52 53 AC 28 52 53 B3 32 35 34 |.253).RS.(RS.254|
00002120: 29 3A 97 37 31 30 2C 42 53 3A 97 37 30 39 2C 4E |):.710,BS:.709,N|
00002130: 46 00 43 28 0A 4B 8B 4E 47 B2 30 A7 31 39 33 30 |F.C(.K.NG.0.1930|
00002140: 30 00 6B 28 14 4B 4E 4D 24 B2 53 46 24 AA 22 2F |0.k(.KNM$.SF$."/|
00002150: 47 4C 42 22 3A 8D 36 30 30 30 35 3A 8B 20 45 52 |GLB":.60005:. ER|
00002160: B3 32 30 A7 31 39 32 39 30 00 9A 28 1E 4B 99 22 |.20.19290..(.K."|
00002170: 93 11 11 20 20 20 20 20 12 22 3B 53 46 24 3B 22 |... .";SF$;"|
00002180: 92 20 47 4C 4F 42 41 4C 20 46 49 4C 45 20 4E 4F |. GLOBAL FILE NO|
00002190: 54 20 46 4F 55 4E 44 22 00 E1 28 28 4B 99 20 22 |T FOUND"..((K. "|
000021A0: 11 11 20 20 20 CD 41 4B 45 20 53 55 52 45 20 54 |.. .AKE SURE T|
000021B0: 48 45 20 12 20 44 41 54 41 20 92 20 44 49 53 4B |HE . DATA . DISK|
000021C0: 20 49 53 20 49 4E 20 20 20 20 20 20 20 20 20 11 | IS IN .|
000021D0: 44 52 49 56 45 20 22 3B 44 4E 24 3B 22 2E 22 00 |DRIVE ";DN$;".".|
000021E0: 1B 29 32 4B 99 C8 28 59 24 2C 32 34 29 22 20 D0 |.)2K..(Y$,24)" .|
000021F0: 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F |RESS ........ TO|
00002200: 20 43 4F 4E 54 49 4E 55 45 2C 20 12 46 31 92 20 | CONTINUE, .F1. |
00002210: 54 4F 20 45 58 49 54 2E 22 00 42 29 3C 4B A1 41 |TO EXIT.".B)<K.A|
00002220: 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 AF 41 |A$:.AA$...(13).A|
00002230: 41 24 B3 B1 C7 28 31 33 33 29 A7 31 39 32 36 30 |A$...(133).19260|
00002240: 00 57 29 46 4B 8B 41 41 24 B2 C7 28 31 33 29 A7 |.W)FK.AA$..(13).|
00002250: 31 39 32 32 30 00 68 29 50 4B 89 35 30 30 30 30 |19220.h)PK.50000|
00002260: 3A 8F 20 45 4E 44 00 83 29 5A 4B 9F 34 2C 44 56 |:. END..)ZK.4,DV|
00002270: 2C 34 2C 44 56 24 AA 53 46 24 AA 22 2F 47 4C 42 |,4,DV$.SF$."/GLB|
00002280: 22 00 AA 29 5F 4B 81 49 B2 31 A4 4E 47 3A 84 34 |"..)_K.I.1.NG:.4|
00002290: 2C 47 4C 24 3A 47 4C 28 49 29 B2 C5 28 47 4C 24 |,GL$:GL(I)..(GL$|
000022A0: 29 3A 82 20 49 3A A0 34 00 CE 29 64 4B 4E 4D 24 |):. I:.4..)dKNM$|
000022B0: B2 53 46 24 AA 22 2F 49 4E 44 58 22 3A 8D 36 30 |.SF$."/INDX":.60|
000022C0: 30 30 35 3A 8B 45 52 B3 32 30 A7 8E 00 00 2A 6E |005:.ER.20....*n|
000022D0: 4B 99 22 93 11 11 20 20 20 D9 4F 55 20 44 4F 20 |K."... .OU DO |
000022E0: 4E 4F 54 20 48 41 56 45 20 41 20 53 4F 52 54 45 |NOT HAVE A SORTE|
000022F0: 44 20 49 4E 44 45 58 20 46 49 4C 45 20 22 00 29 |D INDEX FILE ".)|
00002300: 2A 78 4B 99 22 20 20 4F 4E 20 54 48 49 53 20 44 |*xK." ON THIS D|
00002310: 49 53 4B 2E 20 C9 4E 20 4F 52 44 45 52 20 54 4F |ISK. .N ORDER TO|
00002320: 20 52 55 4E 20 41 22 00 54 2A 82 4B 99 22 20 20 | RUN A".T*.K." |
00002330: 52 45 50 4F 52 54 20 50 52 4F 47 52 41 4D 2C 20 |REPORT PROGRAM, |
00002340: 59 4F 55 20 CD D5 D3 D4 20 52 55 4E 20 53 4F 52 |YOU .... RUN SOR|
00002350: 54 22 00 6D 2A 8C 4B 99 22 20 20 54 48 45 20 C6 |T".m*.K." THE .|
00002360: C9 D2 D3 D4 20 54 49 4D 45 2E 22 00 B4 2A 96 4B |.... TIME."..*.K|
00002370: 99 22 11 20 20 20 C9 46 20 59 4F 55 20 48 41 56 |.". .F YOU HAV|
00002380: 45 20 53 4F 52 54 45 44 20 54 48 45 4E 20 49 4E |E SORTED THEN IN|
00002390: 53 45 52 54 20 54 48 45 20 20 20 20 20 44 49 53 |SERT THE DIS|
000023A0: 4B 20 43 4F 4E 54 41 49 4E 49 4E 47 20 54 48 45 |K CONTAINING THE|
000023B0: 22 3B 00 F6 2A 98 4B 99 22 20 54 48 45 20 12 20 |";..*.K." THE . |
000023C0: 44 41 54 41 20 92 20 46 49 4C 45 20 20 20 20 20 |DATA . FILE |
000023D0: 41 4E 44 20 53 4F 52 54 45 44 20 46 49 4C 45 20 |AND SORTED FILE |
000023E0: 28 49 4E 44 58 29 20 49 4E 20 44 52 49 56 45 20 |(INDX) IN DRIVE |
000023F0: 22 44 4E 24 00 38 2B 9A 4B 99 22 20 20 41 4E 44 |"DN$.8+.K." AND|
00002400: 20 50 52 45 53 53 20 52 45 54 55 52 4E 2E 20 CF | PRESS RETURN. .|
00002410: 54 48 45 52 57 49 53 45 20 43 48 4F 4F 53 45 20 |THERWISE CHOOSE |
00002420: 20 20 20 20 20 54 48 45 20 53 4F 52 54 20 4F 50 | THE SORT OP|
00002430: 54 49 4F 4E 2E 22 00 60 2B 9B 4B 99 22 11 20 20 |TION.".`+.K.". |
00002440: 20 20 20 20 20 12 2A 2A 2A 20 49 4D 50 4F 52 54 | .*** IMPORT|
00002450: 41 4E 54 20 4E 4F 54 45 20 2A 2A 2A 92 22 00 A5 |ANT NOTE ***."..|
00002460: 2B 9C 4B 99 22 11 20 20 20 D7 48 45 4E 20 52 55 |+.K.". .HEN RU|
00002470: 4E 4E 49 4E 47 20 53 4F 52 54 20 4D 41 4B 45 20 |NNING SORT MAKE |
00002480: 53 55 52 45 20 54 48 45 22 3A 99 22 20 20 50 52 |SURE THE":." PR|
00002490: 4F 47 52 41 4D 20 12 52 54 4C 2D 36 34 92 20 49 |OGRAM .RTL-64. I|
000024A0: 53 22 3B 00 D8 2B 9D 4B 99 22 20 4F 4E 20 54 48 |S";..+.K." ON TH|
000024B0: 45 20 53 41 4D 45 20 44 49 53 4B 20 20 20 20 20 |E SAME DISK |
000024C0: 20 41 53 20 54 48 45 20 53 4F 52 54 20 50 52 4F | AS THE SORT PRO|
000024D0: 47 52 41 4D 2E 22 00 06 2C A0 4B 99 C8 28 59 24 |GRAM."..,.K..(Y$|
000024E0: 2C 32 34 29 22 20 20 20 D0 52 45 53 53 20 12 D2 |,24)" .RESS ..|
000024F0: 45 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E |ETURN. TO CONTIN|
00002500: 55 45 2C 22 00 2C 2C A2 4B 99 22 20 20 20 12 46 |UE,".,,.K." .F|
00002510: 31 92 20 54 4F 20 53 4F 52 54 2C 20 12 46 33 92 |1. TO SORT, .F3.|
00002520: 20 54 4F 20 45 58 49 54 22 3B 00 43 2C A5 4B A1 | TO EXIT";.C,.K.|
00002530: 41 41 24 3A 8B 41 41 24 B2 22 22 A7 31 39 33 36 |AA$:.AA$."".1936|
00002540: 35 00 58 2C AA 4B 8B 41 41 24 B2 C7 28 31 33 29 |5.X,.K.AA$..(13)|
00002550: A7 31 39 33 30 30 00 6E 2C AC 4B 8B 41 41 24 B2 |.19300.n,.K.AA$.|
00002560: C7 28 31 33 33 29 A7 9C 3A 89 38 35 00 85 2C AE |.(133)..:.85..,.|
00002570: 4B 8B 41 41 24 B3 B1 C7 28 31 33 34 29 A7 31 39 |K.AA$...(134).19|
00002580: 33 36 35 00 97 2C B4 4B 89 20 35 30 30 30 30 3A |365..,.K. 50000:|
00002590: 8F 20 45 4E 44 00 9D 2C BE 4B 8E 00 B3 2C 5F 6D |. END..,.K...,_m|
000025A0: 8F 20 3D 3D 20 43 41 4C 43 20 50 43 27 53 20 3D |. == CALC PC'S =|
000025B0: 3D 00 B9 2C 60 6D 8E 00 D8 2C CF 84 8F 20 3D 3D |=..,`m...,... ==|
000025C0: 20 4B 45 59 42 4F 41 52 44 20 49 4E 50 55 54 20 | KEYBOARD INPUT |
000025D0: 52 54 4E 20 3D 3D 00 FE 2C D0 84 49 4E 24 B2 22 |RTN ==..,..IN$."|
000025E0: 22 3A 4A B2 31 3A 41 44 B2 31 30 32 34 AA 28 59 |":J.1:AD.1024.(Y|
000025F0: 25 AB 31 29 AC 34 30 AA 58 25 AB 31 00 1D 2D D5 |%.1).40.X%.1..-.|
00002600: 84 99 20 C8 28 59 24 2C 59 25 29 3B A6 58 25 29 |.. .(Y$,Y%);.X%)|
00002610: 3B C8 28 53 50 24 2C 4C 25 29 3B 00 34 2D DA 84 |;.(SP$,L%);.4-..|
00002620: 97 20 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 B0 31 |. AD.J,.(AD.J).1|
00002630: 32 38 00 4C 2D EE 84 A1 20 49 24 3A 8B 20 49 24 |28.L-... I$:. I$|
00002640: B2 22 22 A7 20 33 34 30 33 30 00 63 2D F0 84 8B |."". 34030.c-...|
00002650: 20 49 24 B2 C7 28 33 34 29 20 A7 20 33 34 30 33 | I$..(34) . 3403|
00002660: 30 00 83 2D F3 84 49 49 B2 C6 28 49 24 29 3A 8B |0..-..II..(I$):.|
00002670: 20 49 49 B2 32 37 20 A7 20 49 4E 24 B2 49 24 3A | II.27 . IN$.I$:|
00002680: 8E 00 BE 2D F8 84 8B 28 49 49 B3 33 32 AF 49 49 |...-...(II.32.II|
00002690: B3 B1 32 30 AF 49 49 B3 B1 31 33 29 B0 28 49 49 |..20.II..13).(II|
000026A0: B1 31 32 38 AF 49 49 B3 31 39 32 29 B0 28 49 49 |.128.II.192).(II|
000026B0: B1 32 31 38 29 A7 20 33 34 30 31 30 00 D3 2D FD |.218). 34010..-.|
000026C0: 84 8B 20 49 49 B3 B1 32 30 20 A7 20 33 34 30 37 |.. II..20 . 3407|
000026D0: 30 00 E2 2D 02 85 8B 4A B2 31 A7 33 34 30 31 30 |0..-...J.1.34010|
000026E0: 00 1E 2E 0C 85 4A B2 4A AB 31 3A 49 4E 24 B2 C8 |.....J.J.1:IN$..|
000026F0: 28 49 4E 24 2C 4A AB 31 29 3A 49 24 B2 22 20 22 |(IN$,J.1):I$." "|
00002700: 3A 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 AA 4A |:..(Y$,Y%);.X%.J|
00002710: 29 3B 49 24 3B 3A 89 33 34 30 39 30 00 41 2E 16 |);I$;:.34090.A..|
00002720: 85 8B 20 49 49 B2 31 33 20 A7 20 97 41 44 AA 4A |.. II.13 . .AD.J|
00002730: 2C C2 28 41 44 AA 4A 29 AF 20 31 32 37 3A 8E 00 |,.(AD.J). 127:..|
00002740: 50 2E 20 85 49 4E 24 B2 49 4E 24 AA 49 24 00 6A |P. .IN$.IN$.I$.j|
00002750: 2E 2A 85 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 |.*...(Y$,Y%);.X%|
00002760: AA 4A AB 31 29 3B 49 24 00 8E 2E 34 85 8B 4A B2 |.J.1);I$...4..J.|
00002770: 4C 25 A7 49 4E 24 B2 C8 28 49 4E 24 2C 4A AB 31 |L%.IN$..(IN$,J.1|
00002780: 29 AA 49 24 3A 89 20 33 34 30 31 30 00 A0 2E 3E |).I$:. 34010...>|
00002790: 85 8B 49 49 B3 B1 32 30 A7 4A B2 4A AA 31 00 AB |..II..20.J.J.1..|
000027A0: 2E 48 85 89 33 34 30 31 30 00 D1 2E B8 88 99 C7 |.H..34010.......|
000027B0: 28 31 34 37 29 3A 99 22 D7 48 41 54 20 49 53 20 |(147):.".HAT IS |
000027C0: 54 4F 44 41 59 27 53 20 44 41 54 45 20 3F 22 00 |TODAY'S DATE ?".|
000027D0: F2 2E BA 88 58 25 B2 32 33 3A 59 25 B2 32 3A 8D |....X%.23:Y%.2:.|
000027E0: 34 39 30 30 30 3A 56 44 24 28 31 29 B2 49 4E 24 |49000:VD$(1).IN$|
000027F0: 00 F8 2E CC 88 8E 00 1B 2F 9F 8C 8F 20 3D 3D 20 |......../... == |
00002800: 4E 55 4D 45 52 49 43 20 46 4C 44 20 46 4F 52 4D |NUMERIC FLD FORM|
00002810: 41 54 54 49 4E 47 20 3D 3D 00 38 2F A0 8C 8B 54 |ATTING ==.8/...T|
00002820: 50 24 B2 22 59 22 A7 44 4F 24 B2 C8 28 47 42 24 |P$."Y".DO$..(GB$|
00002830: 2C 46 57 29 3A 8E 00 66 2F A4 8C 44 4F 24 B2 C4 |,FW):..f/..DO$..|
00002840: 28 C5 28 44 4F 24 29 29 3A 8B 20 C8 28 C9 28 44 |(.(DO$)):. .(.(D|
00002850: 4F 24 2C 34 29 2C 31 29 B2 22 45 22 20 A7 20 33 |O$,4),1)."E" . 3|
00002860: 36 30 39 30 00 91 2F A5 8C 44 4F 24 B2 C4 28 B5 |6090../..DO$..(.|
00002870: 28 C5 28 44 4F 24 29 AC B5 28 31 30 AE 44 50 29 |(.(DO$)..(10.DP)|
00002880: AA 30 2E 35 29 AD B5 28 31 30 AE 44 50 29 29 00 |.0.5)..(10.DP)).|
00002890: AD 2F A6 8C 8B C5 28 44 4F 24 29 B1 B2 30 A7 44 |./....(DO$)..0.D|
000028A0: 4F 24 B2 CA 28 44 4F 24 2C 32 29 00 BA 2F A7 8C |O$..(DO$,2)../..|
000028B0: 4C B2 C3 28 44 4F 24 29 00 CA 2F AA 8C 8B 44 50 |L..(DO$)../...DP|
000028C0: B2 30 A7 33 36 30 38 30 00 EB 2F B4 8C 81 4A B2 |.0.36080../...J.|
000028D0: 31 A4 4C 3A 8B CA 28 44 4F 24 2C 4A 2C 31 29 B2 |1.L:..(DO$,J,1).|
000028E0: 22 2E 22 A7 33 36 30 34 30 00 F2 2F BE 8C 82 4A |".".36040../...J|
000028F0: 00 02 30 C8 8C 8B 4A B3 B2 4C A7 33 36 30 36 30 |..0...J..L.36060|
00002900: 00 22 30 D2 8C 44 4F 24 B2 44 4F 24 AA 22 2E 22 |."0..DO$.DO$."."|
00002910: AA C8 28 5A 24 2C 44 50 29 3A 89 33 36 30 37 30 |..(Z$,DP):.36070|
00002920: 00 3D 30 DC 8C 44 4F 24 B2 44 4F 24 AA C8 28 5A |.=0..DO$.DO$..(Z|
00002930: 24 2C 44 50 AB 28 4C AB 4A 29 29 00 52 30 E6 8C |$,DP.(L.J)).R0..|
00002940: 8B 4A B2 31 A7 44 4F 24 B2 22 30 22 AA 44 4F 24 |.J.1.DO$."0".DO$|
00002950: 00 72 30 F0 8C 8B 20 C3 28 44 4F 24 29 B1 46 57 |.r0... .(DO$).FW|
00002960: 20 A7 20 44 4F 24 B2 C8 28 44 4F 24 2C 46 57 29 | . DO$..(DO$,FW)|
00002970: 00 88 30 FA 8C 44 4F 24 B2 C9 28 53 50 24 AA 44 |..0..DO$..(SP$.D|
00002980: 4F 24 2C 46 57 29 00 8E 30 04 8D 8E 00 B1 30 87 |O$,FW)..0.....0.|
00002990: 90 8F 20 3D 3D 20 44 41 54 45 20 46 4C 44 20 4F |.. == DATE FLD O|
000029A0: 55 54 50 55 54 20 46 4F 52 4D 41 54 20 3D 3D 00 |UTPUT FORMAT ==.|
000029B0: EC 30 88 90 8B 20 41 45 24 B2 22 41 22 20 A7 20 |.0... AE$."A" . |
000029C0: 44 41 24 20 B2 20 CA 28 44 41 24 2C 33 2C 32 29 |DA$ . .(DA$,3,2)|
000029D0: AA 22 2F 22 AA C9 28 44 41 24 2C 32 29 AA 22 2F |."/"..(DA$,2)."/|
000029E0: 22 AA C8 28 44 41 24 2C 32 29 00 27 31 92 90 8B |"..(DA$,2).'1...|
000029F0: 20 41 45 24 B2 22 45 22 20 A7 20 44 41 24 20 B2 | AE$."E" . DA$ .|
00002A00: 20 C9 28 44 41 24 2C 32 29 AA 22 2F 22 AA CA 28 | .(DA$,2)."/"..(|
00002A10: 44 41 24 2C 33 2C 32 29 AA 22 2F 22 AA C8 28 44 |DA$,3,2)."/"..(D|
00002A20: 41 24 2C 32 29 00 2D 31 9C 90 8E 00 51 31 7B 92 |A$,2).-1....Q1{.|
00002A30: 8F 20 3D 3D 20 44 41 54 45 20 46 4C 44 20 43 4F |. == DATE FLD CO|
00002A40: 4D 50 41 52 45 20 46 4F 52 4D 41 54 20 3D 3D 00 |MPARE FORMAT ==.|
00002A50: 84 31 7C 92 8B 20 41 45 24 B2 22 41 22 20 A7 20 |.1|.. AE$."A" . |
00002A60: 44 41 24 20 B2 20 C9 28 44 41 24 2C 32 29 AA C8 |DA$ . .(DA$,2)..|
00002A70: 28 44 41 24 2C 32 29 AA CA 28 44 41 24 2C 33 2C |(DA$,2)..(DA$,3,|
00002A80: 32 29 00 B7 31 86 92 8B 20 41 45 24 B2 22 45 22 |2)..1... AE$."E"|
00002A90: 20 A7 20 44 41 24 20 B2 20 C9 28 44 41 24 2C 32 | . DA$ . .(DA$,2|
00002AA0: 29 AA CA 28 44 41 24 2C 33 2C 32 29 AA C8 28 44 |)..(DA$,3,2)..(D|
00002AB0: 41 24 2C 32 29 00 BD 31 90 92 8E 00 D8 31 67 BF |A$,2)..1.....1g.|
00002AC0: 8F 20 3D 3D 20 44 41 54 45 20 49 4E 50 55 54 20 |. == DATE INPUT |
00002AD0: 52 54 4E 20 3D 3D 00 F8 31 68 BF 99 20 C8 28 59 |RTN ==..1h.. .(Y|
00002AE0: 24 2C 59 25 29 3B A3 58 25 29 3B 22 2E 2E 2F 2E |$,Y%);.X%);"../.|
00002AF0: 2E 2F 2E 2E 22 3B 00 1E 32 72 BF 4A B2 31 3A 49 |./..";..2r.J.1:I|
00002B00: 4E 24 B2 22 22 3A 41 44 B2 31 30 32 34 AA 28 59 |N$."":AD.1024.(Y|
00002B10: 25 AB 31 29 AC 34 30 AA 58 25 AB 31 00 34 32 7C |%.1).40.X%.1.42||
00002B20: BF 97 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 B0 31 |..AD.J,.(AD.J).1|
00002B30: 32 38 00 49 32 86 BF A1 4A 24 3A 8B 4A 24 B2 22 |28.I2...J$:.J$."|
00002B40: 22 A7 34 39 30 33 30 00 5D 32 8B BF 8B 4A 24 B2 |".49030.]2...J$.|
00002B50: C7 28 33 34 29 A7 34 39 30 33 30 00 6A 32 90 BF |.(34).49030.j2..|
00002B60: 4A 4A B2 C6 28 4A 24 29 00 7B 32 A4 BF 8B 4A 4A |JJ..(J$).{2...JJ|
00002B70: B2 32 37 A7 34 39 30 33 30 00 94 32 AE BF 8B 4A |.27.49030..2...J|
00002B80: 4A B1 B2 34 38 AF 4A 4A B3 B2 35 37 A7 34 39 32 |J..48.JJ..57.492|
00002B90: 30 30 00 A6 32 B8 BF 8B 4A 4A B3 B1 31 33 A7 34 |00..2...JJ..13.4|
00002BA0: 39 31 31 30 00 BA 32 C2 BF 8B C3 28 49 4E 24 29 |9110..2....(IN$)|
00002BB0: B3 36 A7 34 39 30 33 30 00 DD 32 CC BF 97 20 41 |.6.49030..2... A|
00002BC0: 44 AA 38 2C C2 28 41 44 AA 38 29 20 AF 20 31 32 |D.8,.(AD.8) . 12|
00002BD0: 37 20 3A 20 89 20 34 39 32 35 30 00 EF 32 D6 BF |7 : . 49250..2..|
00002BE0: 8B 4A 4A B3 B1 32 30 A7 34 39 31 36 30 00 0B 33 |.JJ..20.49160..3|
00002BF0: E0 BF 99 C8 28 59 24 2C 59 25 29 3B A3 58 25 AA |....(Y$,Y%);.X%.|
00002C00: 4A AB 31 29 3B 22 2E 22 3B 00 22 33 E5 BF 8B 4A |J.1);".";."3...J|
00002C10: B2 31 A7 49 4E 24 B2 22 22 3A 89 34 39 30 32 30 |.1.IN$."":.49020|
00002C20: 00 38 33 E7 BF 8B 4A B2 38 A7 49 4E 24 B2 C8 28 |.83...J.8.IN$..(|
00002C30: 49 4E 24 2C 35 29 00 65 33 EA BF 49 4E 24 B2 C8 |IN$,5).e3..IN$..|
00002C40: 28 49 4E 24 2C C3 28 49 4E 24 29 AB 31 29 3A 4A |(IN$,.(IN$).1):J|
00002C50: B2 4A AB 31 3A 8B 4A B2 33 B0 4A B2 36 A7 4A B2 |.J.1:.J.3.J.6.J.|
00002C60: 4A AB 31 00 81 33 EF BF 99 C8 28 59 24 2C 59 25 |J.1..3....(Y$,Y%|
00002C70: 29 3B A3 58 25 AA 4A AB 31 29 3B 22 2E 22 3B 00 |);.X%.J.1);".";.|
00002C80: 8C 33 F4 BF 89 34 39 30 32 30 00 9E 33 08 C0 8B |.3...49020..3...|
00002C90: 4A 4A B3 B1 33 32 A7 34 39 30 33 30 00 BA 33 12 |JJ..32.49030..3.|
00002CA0: C0 99 C8 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A |...(Y$,Y%);.X%.J|
00002CB0: AB 31 29 3B 22 2E 22 3B 00 D9 33 1C C0 8B 4A B2 |.1);".";..3...J.|
00002CC0: 31 B0 4A B2 34 B0 4A B2 37 A7 4A 24 B2 22 30 22 |1.J.4.J.7.J$."0"|
00002CD0: 3A 89 34 39 32 31 30 00 EB 33 26 C0 4A 24 B2 22 |:.49210..3&.J$."|
00002CE0: A0 22 3A 89 34 39 32 31 30 00 06 34 30 C0 99 C8 |.":.49210..40...|
00002CF0: 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A AB 31 29 |(Y$,Y%);.X%.J.1)|
00002D00: 3B 4A 24 3B 00 1C 34 3A C0 8B 4A B2 38 A7 49 4E |;J$;..4:..J.8.IN|
00002D10: 24 B2 C8 28 49 4E 24 2C 35 29 00 40 34 44 C0 49 |$..(IN$,5).@4D.I|
00002D20: 4E 24 B2 49 4E 24 AA 4A 24 3A 4A B2 4A AA 31 3A |N$.IN$.J$:J.J.1:|
00002D30: 8B 4A B2 33 B0 4A B2 36 A7 4A B2 4A AA 31 00 4D |.J.3.J.6.J.J.1.M|
00002D40: 34 4E C0 8B 4A B2 39 A7 4A B2 38 00 58 34 58 C0 |4N..J.9.J.8.X4X.|
00002D50: 89 34 39 30 32 30 00 8B 34 62 C0 58 58 B2 C5 28 |.49020..4b.XX..(|
00002D60: C8 28 49 4E 24 2C 32 29 29 3A 59 59 B2 C5 28 CA |.(IN$,2)):YY..(.|
00002D70: 28 49 4E 24 2C 33 2C 32 29 29 3A 5A 5A B2 C5 28 |(IN$,3,2)):ZZ..(|
00002D80: C9 28 49 4E 24 2C 32 29 29 00 9E 34 80 C0 99 C8 |.(IN$,2))..4....|
00002D90: 28 59 24 2C 32 33 29 3B 53 50 24 3B 00 C0 34 85 |(Y$,23);SP$;..4.|
00002DA0: C0 8B 20 41 45 24 B2 22 45 22 20 A7 20 54 4D B2 |.. AE$."E" . TM.|
00002DB0: 58 58 3A 58 58 B2 59 59 3A 59 59 B2 54 4D 00 EF |XX:XX.YY:YY.TM..|
00002DC0: 34 86 C0 8B 28 5A 5A AD 34 29 B3 B1 B5 28 5A 5A |4...(ZZ.4)...(ZZ|
00002DD0: AD 34 29 A7 8D 34 39 33 35 30 3A 8B 45 52 B2 31 |.4)..49350:.ER.1|
00002DE0: 38 A7 45 52 B2 30 3A 89 34 39 30 30 30 00 2A 35 |8.ER.0:.49000.*5|
00002DF0: 8A C0 8B 20 58 58 B3 31 20 B0 20 58 58 B1 31 32 |... XX.1 . XX.12|
00002E00: 20 A7 20 99 C8 28 59 24 2C 32 33 29 3B 22 CD 4F | . ..(Y$,23);".O|
00002E10: 4E 54 48 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 |NTH OUT OF RANGE|
00002E20: 22 3A 89 34 39 30 30 30 00 67 35 94 C0 8B 20 59 |":.49000.g5... Y|
00002E30: 59 B3 31 20 B0 20 59 59 B1 44 54 25 28 58 58 29 |Y.1 . YY.DT%(XX)|
00002E40: 20 A7 99 C8 28 59 24 2C 32 33 29 3B 22 C4 41 59 | ...(Y$,23);".AY|
00002E50: 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 3A 89 | OUT OF RANGE":.|
00002E60: 34 39 30 30 30 00 84 35 9E C0 49 4E 24 B2 C9 28 |49000..5..IN$..(|
00002E70: 22 30 30 22 AA CA 28 C4 28 5A 5A 29 2C 32 29 2C |"00"..(.(ZZ),2),|
00002E80: 32 29 00 A5 35 A8 C0 49 4E 24 B2 49 4E 24 AA C9 |2)..5..IN$.IN$..|
00002E90: 28 22 30 30 22 AA CA 28 C4 28 58 58 29 2C 32 29 |("00"..(.(XX),2)|
00002EA0: 2C 32 29 00 C6 35 B2 C0 49 4E 24 B2 49 4E 24 AA |,2)..5..IN$.IN$.|
00002EB0: C9 28 22 30 30 22 AA CA 28 C4 28 59 59 29 2C 32 |.("00"..(.(YY),2|
00002EC0: 29 2C 32 29 00 CC 35 BC C0 8E 00 01 36 C6 C0 8B |),2)..5.....6...|
00002ED0: 58 58 B2 32 AF 59 59 B2 32 39 A7 99 C8 28 59 24 |XX.2.YY.29...(Y$|
00002EE0: 2C 32 33 29 3B 22 C4 41 59 20 4F 55 54 20 4F 46 |,23);".AY OUT OF|
00002EF0: 20 52 41 4E 47 45 22 3A 45 52 B2 31 38 3A 8E 00 | RANGE":ER.18:..|
00002F00: 07 36 D0 C0 8E 00 35 36 50 C3 99 22 93 11 11 11 |.6....56P.."....|
00002F10: 20 20 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 | .O YOU WANT T|
00002F20: 4F 20 4C 49 4E 4B 20 54 4F 20 54 48 45 20 CD 41 |O LINK TO THE .A|
00002F30: 49 4E 22 00 4B 36 51 C3 99 22 20 20 CD 45 4E 55 |IN".K6Q.." .ENU|
00002F40: 3F 20 28 59 2F 4E 29 22 3B 00 62 36 52 C3 A1 41 |? (Y/N)";.b6R..A|
00002F50: 41 24 3A 8B 41 41 24 B2 22 22 A7 35 30 30 30 32 |A$:.AA$."".50002|
00002F60: 00 75 36 54 C3 8B 41 41 24 B2 22 4E 22 A7 35 30 |.u6T..AA$."N".50|
00002F70: 30 32 32 00 89 36 56 C3 8B 41 41 24 B3 B1 22 59 |022..6V..AA$.."Y|
00002F80: 22 A7 35 30 30 30 32 00 AC 36 58 C3 4E 4D 24 B2 |".50002..6X.NM$.|
00002F90: 22 4D 45 4E 55 22 3A 8D 36 30 30 30 30 3A 8B 45 |"MENU":.60000:.E|
00002FA0: 52 B3 32 30 A7 35 30 30 31 38 00 EE 36 5C C3 99 |R.20.50018..6\..|
00002FB0: 22 93 11 20 20 20 20 20 2A 2A 2A 20 CD 45 4E 55 |".. *** .ENU|
00002FC0: 20 4E 4F 54 20 49 4E 20 44 52 49 56 45 20 30 2E | NOT IN DRIVE 0.|
00002FD0: 22 3A 99 22 11 20 20 CD 41 4B 45 20 53 55 52 45 |":.". .AKE SURE|
00002FE0: 20 54 48 45 20 44 49 53 4B 20 22 3B 00 26 37 5D | THE DISK ";.&7]|
00002FF0: C3 99 22 43 4F 4E 54 41 49 4E 49 4E 47 20 54 48 |.."CONTAINING TH|
00003000: 45 20 20 20 20 20 20 20 4D 45 4E 55 20 50 52 4F |E MENU PRO|
00003010: 47 52 41 4D 20 49 53 20 49 4E 20 44 52 49 56 45 |GRAM IS IN DRIVE|
00003020: 20 30 2E 22 00 52 37 5E C3 99 C8 28 59 24 2C 32 | 0.".R7^...(Y$,2|
00003030: 34 29 22 20 D0 52 45 53 53 20 12 52 45 54 55 52 |4)" .RESS .RETUR|
00003040: 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 |N. TO CONTINUE."|
00003050: 00 6D 37 5F C3 A1 41 41 24 3A 8B 41 41 24 B3 B1 |.m7_..AA$:.AA$..|
00003060: C7 28 31 33 29 A7 35 30 30 31 35 00 78 37 60 C3 |.(13).50015.x7`.|
00003070: 89 35 30 30 30 30 00 B2 37 62 C3 99 22 93 22 3B |.50000..7b..".";|
00003080: C8 28 59 24 2C 35 29 3B 22 20 20 20 20 20 20 20 |.(Y$,5);" |
00003090: 20 2A 2A 2A 2A 2A 2A 20 12 20 CC 4F 41 44 49 4E | ****** . .OADIN|
000030A0: 47 20 CD 45 4E 55 20 92 20 2A 2A 2A 2A 2A 2A 22 |G .ENU . ******"|
000030B0: 00 C8 37 64 C3 A0 31 35 3A 9C 3A 93 22 30 3A 4D |..7d..15:.:."0:M|
000030C0: 45 4E 55 22 2C 38 00 EB 37 66 C3 99 22 93 22 3A |ENU",8..7f..".":|
000030D0: A0 31 35 3A 9F 31 35 2C 44 56 2C 31 35 2C 22 49 |.15:.15,DV,15,"I|
000030E0: 22 3A A0 31 35 3A 9C 3A 80 00 2B 38 FA C3 44 52 |":.15:.:..+8..DR|
000030F0: 24 B2 CA 28 C4 28 C2 28 39 36 38 29 29 2C 32 29 |$..(.(.(968)),2)|
00003100: 3A 44 56 B2 C2 28 39 36 39 29 3A 44 24 B2 CA 28 |:DV..(969):D$..(|
00003110: C4 28 C2 28 39 36 37 29 29 2C 32 29 3A 97 36 34 |.(.(967)),2):.64|
00003120: 36 2C C2 28 31 30 30 30 29 00 59 38 FB C3 53 46 |6,.(1000).Y8..SF|
00003130: 24 B2 22 22 3A 81 49 B2 31 A4 C2 28 39 37 31 29 |$."":.I.1..(971)|
00003140: 3A 53 46 24 B2 53 46 24 AA C7 28 C2 28 39 37 31 |:SF$.SF$..(.(971|
00003150: AA 49 29 29 3A 82 49 00 86 38 FC C3 52 4E 24 B2 |.I)):.I..8..RN$.|
00003160: 53 46 24 AA 22 2F 52 22 AA CA 28 C4 28 C2 28 39 |SF$."/R"..(.(.(9|
00003170: 37 30 29 29 2C 32 29 3A 4E 4D 24 B2 53 46 24 AA |70)),2):NM$.SF$.|
00003180: 22 2F 42 22 00 C2 38 FE C3 9F 31 35 2C 44 56 2C |"/B"..8...15,DV,|
00003190: 31 35 2C 22 49 22 3A 99 22 93 22 3A 94 22 40 22 |15,"I":.".":."@"|
000031A0: AA 44 52 24 AA 22 3A 22 AA 52 4E 24 2C 44 56 3A |.DR$.":".RN$,DV:|
000031B0: 95 20 44 52 24 AA 22 3A 22 AA 52 4E 24 2C 44 56 |. DR$.":".RN$,DV|
000031C0: 00 F9 38 FF C3 84 31 35 2C 45 52 24 2C 45 4D 24 |..8...15,ER$,EM$|
000031D0: 2C 45 53 24 2C 45 54 24 3A 53 24 B2 45 52 24 AA |,ES$,ET$:S$.ER$.|
000031E0: 22 3A 22 AA 45 4D 24 AA 22 3A 22 AA 45 54 24 AA |":".EM$.":".ET$.|
000031F0: 22 2C 22 AA 45 53 24 00 1F 39 04 C4 99 22 93 22 |",".ES$..9..."."|
00003200: 3A 99 3A 99 52 4E 24 3B 22 20 53 41 56 45 20 53 |:.:.RN$;" SAVE S|
00003210: 54 41 54 55 53 3A 20 22 3B 53 24 3A 99 00 3B 39 |TATUS: ";S$:..;9|
00003220: 0E C4 99 22 D4 4F 20 52 55 4E 20 59 4F 55 52 20 |...".O RUN YOUR |
00003230: 50 52 4F 47 52 41 4D 2C 22 00 41 39 18 C4 99 00 |PROGRAM,".A9....|
00003240: 66 39 22 C4 99 22 22 3A 99 3A 99 22 20 20 20 20 |f9".."":.:." |
00003250: 20 D4 59 50 45 20 27 4C 4F 41 44 20 22 3B C7 28 | .YPE 'LOAD ";.(|
00003260: 33 34 29 3B 00 91 39 2C C4 99 52 4E 24 3B C7 28 |34);..9,..RN$;.(|
00003270: 33 34 29 22 2C 38 27 22 3A 99 22 20 20 20 20 20 |34)",8'":." |
00003280: D4 59 50 45 20 27 52 55 4E 27 22 20 3A 20 80 00 |.YPE 'RUN'" : ..|
00003290: AA 39 49 C4 8F 20 3D 3D 20 50 52 49 4E 54 45 52 |.9I.. == PRINTER|
000032A0: 20 46 49 4C 45 20 3D 3D 00 D3 39 4A C4 53 41 B2 | FILE ==..9J.SA.|
000032B0: 37 3A 50 44 B2 34 3A 4E 4D 24 B2 22 50 46 49 47 |7:PD.4:NM$."PFIG|
000032C0: 22 3A 8D 36 30 30 30 35 3A 8B 45 52 B1 31 39 A7 |":.60005:.ER.19.|
000032D0: 8E 00 F6 39 54 C4 9F 35 2C 38 2C 35 2C 22 30 3A |...9T..5,8,5,"0:|
000032E0: 50 52 43 4F 4E 22 3A 84 35 2C 50 44 2C 53 41 3A |PRCON":.5,PD,SA:|
000032F0: A0 35 3A 8E 00 11 3A 7B C4 8F 20 3D 3D 20 50 52 |.5:...:{.. == PR|
00003300: 49 4E 54 45 52 20 43 4F 4E 46 49 47 20 3D 3D 00 |INTER CONFIG ==.|
00003310: 1C 3A 7C C4 8D 35 30 32 35 30 00 4D 3A 81 C4 99 |.:|..50250.M:...|
00003320: 22 93 11 11 11 20 20 20 20 2A 2A 2A 20 12 20 D0 |".... *** . .|
00003330: 52 49 4E 54 45 52 20 C3 4F 4E 46 49 47 55 52 41 |RINTER .ONFIGURA|
00003340: 54 49 4F 4E 20 92 20 2A 2A 2A 22 00 88 3A 86 C4 |TION . ***"..:..|
00003350: 99 C8 28 59 24 2C 31 30 29 22 20 20 20 C3 55 52 |..(Y$,10)" .UR|
00003360: 52 45 4E 54 20 44 45 56 49 43 45 20 56 41 4C 55 |RENT DEVICE VALU|
00003370: 45 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 C4 28 50 44 |E .........".(PD|
00003380: 29 3B 22 20 20 22 00 C3 3A 90 C4 99 C8 28 59 24 |);" "..:....(Y$|
00003390: 2C 31 32 29 22 20 20 20 C3 55 52 52 45 4E 54 20 |,12)" .URRENT |
000033A0: 53 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 |SECONDARY ADDRES|
000033B0: 53 20 2E 2E 2E 2E 22 C4 28 53 41 29 3B 22 20 20 |S ....".(SA);" |
000033C0: 22 00 F7 3A 9A C4 99 C8 28 59 24 2C 31 38 29 22 |"..:....(Y$,18)"|
000033D0: 20 C9 53 20 54 48 49 53 20 49 4E 46 4F 52 4D 41 | .S THIS INFORMA|
000033E0: 54 49 4F 4E 20 43 4F 52 52 45 43 54 20 28 59 2F |TION CORRECT (Y/|
000033F0: 4E 29 20 3F 22 00 2D 3B A4 C4 58 25 B2 33 37 3A |N) ?".-;..X%.37:|
00003400: 59 25 B2 31 38 3A 4C 25 B2 31 3A 8D 33 34 30 30 |Y%.18:L%.1:.3400|
00003410: 30 3A 8B 20 49 4E 24 B3 B1 22 4E 22 AF 49 4E 24 |0:. IN$.."N".IN$|
00003420: B3 B1 22 59 22 A7 35 30 33 34 30 00 48 3B AE C4 |.."Y".50340.H;..|
00003430: 8B 20 49 4E 24 B2 22 59 22 A7 50 42 25 B2 30 3A |. IN$."Y".PB%.0:|
00003440: 89 35 30 36 30 30 00 7F 3B B8 C4 99 C8 28 59 24 |.50600..;....(Y$|
00003450: 2C 31 38 29 22 20 C5 4E 54 45 52 20 4E 45 57 20 |,18)" .NTER NEW |
00003460: 44 45 56 49 43 45 20 56 41 4C 55 45 3A 20 20 20 |DEVICE VALUE: |
00003470: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 AB 3B | ";..;|
00003480: C2 C4 58 25 B2 32 36 3A 59 25 B2 31 38 3A 4C 25 |..X%.26:Y%.18:L%|
00003490: B2 32 3A 8D 33 34 30 30 30 3A 8B 20 49 4E 24 B2 |.2:.34000:. IN$.|
000034A0: 22 22 20 A7 35 30 34 30 30 00 CA 3B CC C4 8B 20 |"" .50400..;... |
000034B0: C5 28 49 4E 24 29 B3 34 B0 C5 28 49 4E 24 29 B1 |.(IN$).4..(IN$).|
000034C0: 31 35 A7 35 30 33 37 30 00 D8 3B D6 C4 50 44 B2 |15.50370..;..PD.|
000034D0: C5 28 49 4E 24 29 00 0F 3C E0 C4 99 C8 28 59 24 |.(IN$)..<....(Y$|
000034E0: 2C 31 38 29 22 20 C5 4E 54 45 52 20 4E 45 57 20 |,18)" .NTER NEW |
000034F0: 53 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 |SECONDARY ADDRES|
00003500: 53 3A 20 20 20 20 20 20 20 20 20 22 3B 00 3B 3C |S: ";.;<|
00003510: EA C4 58 25 B2 33 30 3A 59 25 B2 31 38 3A 4C 25 |..X%.30:Y%.18:L%|
00003520: B2 33 3A 8D 33 34 30 30 30 3A 8B 20 49 4E 24 B2 |.3:.34000:. IN$.|
00003530: 22 22 20 A7 35 30 33 31 30 00 5B 3C F4 C4 8B 20 |"" .50310.[<... |
00003540: C5 28 49 4E 24 29 B3 34 B0 C5 28 49 4E 24 29 B1 |.(IN$).4..(IN$).|
00003550: 32 35 35 A7 35 30 34 31 30 00 70 3C FE C4 53 41 |255.50410.p<..SA|
00003560: B2 C5 28 49 4E 24 29 3A 89 35 30 33 31 30 00 98 |..(IN$):.50310..|
00003570: 3C A8 C5 A0 34 3A 9F 34 2C 50 44 3A 98 34 2C 22 |<...4:.4,PD:.4,"|
00003580: 20 22 3A 8B 53 54 B2 AB 31 32 38 A7 20 A0 34 3A | ":.ST..128. .4:|
00003590: 89 35 30 36 36 30 00 A1 3C D0 C5 A0 34 3A 8E 00 |.50660..<...4:..|
000035A0: D4 3C E4 C5 99 C8 28 59 24 2C 32 30 29 22 20 20 |.<....(Y$,20)" |
000035B0: 20 20 20 20 2A 2A 2A 20 12 20 D0 52 49 4E 54 45 | *** . .RINTE|
000035C0: 52 20 CE 4F 54 20 D2 45 41 44 59 20 92 20 2A 2A |R .OT .EADY . **|
000035D0: 2A 22 00 08 3D F8 C5 99 22 11 11 20 D0 52 45 53 |*"..=...".. .RES|
000035E0: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 C3 4F |S ........ TO .O|
000035F0: 4E 54 49 4E 55 45 2C 20 12 46 31 92 20 54 4F 20 |NTINUE, .F1. TO |
00003600: 45 58 49 54 2E 22 00 2F 3D 02 C6 A1 49 4E 24 3A |EXIT."./=...IN$:|
00003610: 8B 49 4E 24 B3 B1 C7 28 31 33 29 AF 49 4E 24 B3 |.IN$...(13).IN$.|
00003620: B1 C7 28 31 33 33 29 A7 35 30 36 39 30 00 45 3D |..(133).50690.E=|
00003630: 07 C6 8B 20 49 4E 24 B2 C7 28 31 33 29 A7 35 30 |... IN$..(13).50|
00003640: 33 30 35 00 52 3D 70 C6 50 42 25 B2 AB 31 3A 8E |305.R=p.PB%..1:.|
00003650: 00 68 3D 5F EA 8F 20 3D 3D 20 45 52 52 4F 52 20 |.h=_.. == ERROR |
00003660: 43 48 4B 20 3D 3D 00 90 3D 60 EA A0 31 35 3A 9F |CHK ==..=`..15:.|
00003670: 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 |15,8,15:.5,8,5,"|
00003680: 30 3A 22 AA 4E 4D 24 3A 89 36 30 30 31 30 00 B2 |0:".NM$:.60010..|
00003690: 3D 65 EA A0 31 35 3A 9F 31 35 2C 44 56 2C 31 35 |=e..15:.15,DV,15|
000036A0: 3A 9F 35 2C 44 56 2C 35 2C 44 56 24 AA 4E 4D 24 |:.5,DV,5,DV$.NM$|
000036B0: 00 D4 3D 6A EA 84 31 35 2C 45 52 24 2C 45 4D 24 |..=j..15,ER$,EM$|
000036C0: 2C 45 54 24 2C 45 53 24 3A 45 52 B2 C5 28 45 52 |,ET$,ES$:ER..(ER|
000036D0: 24 29 00 E1 3D 74 EA A0 35 3A A0 31 35 3A 8E 00 |$)..=t..5:.15:..|
000036E0: F6 3D 48 EE 8F 20 3D 3D 20 4C 45 46 54 20 53 43 |.=H.. == LEFT SC|
000036F0: 52 20 3D 3D 00 1F 3E 4D EE 8B C3 28 50 53 24 29 |R ==..>M...(PS$)|
00003700: B3 38 30 A7 50 53 24 B2 50 53 24 AA 53 50 24 3A |.80.PS$.PS$.SP$:|
00003710: 50 53 24 B2 C8 28 50 53 24 2C 38 30 29 00 2A 3E |PS$..(PS$,80).*>|
00003720: 52 EE 8D 36 31 31 33 30 00 40 3E 57 EE 99 C8 28 |R..61130.@>W...(|
00003730: 50 53 24 2C C3 28 50 53 24 29 AD 32 29 3B 00 46 |PS$,.(PS$).2);.F|
00003740: 3E 5C EE 8E 00 5F 3E AC EE 99 22 93 22 3B 3A 8F |>\..._>...".";:.|
00003750: 20 52 49 47 48 54 20 4F 46 20 53 43 52 00 78 3E | RIGHT OF SCR.x>|
00003760: B1 EE 81 49 B2 31 A4 58 54 3A 99 52 48 24 28 49 |...I.1.XT:.RH$(I|
00003770: 29 3B 3A 82 3A 8E 00 90 3E B6 EE 99 22 93 22 3B |);:.:...>...".";|
00003780: 3A 8F 20 4C 45 46 54 20 4F 46 20 53 43 52 00 A7 |:. LEFT OF SCR..|
00003790: 3E BB EE 81 49 B2 31 A4 58 54 3A 99 4C 48 24 28 |>...I.1.XT:.LH$(|
000037A0: 49 29 3B 3A 82 00 AD 3E C0 EE 8E 00 B9 3E CA EE |I);:...>.....>..|
000037B0: 58 54 B2 58 54 AA 31 00 CF 3E D4 EE 52 48 24 28 |XT.XT.1..>..RH$(|
000037C0: 58 54 29 B2 C9 28 50 53 24 2C 34 30 29 00 E5 3E |XT)..(PS$,40)..>|
000037D0: DE EE 4C 48 24 28 58 54 29 B2 C8 28 50 53 24 2C |..LH$(XT)..(PS$,|
000037E0: 34 30 29 00 EB 3E E8 EE 8E 00 1B 3F 30 F2 58 54 |40)..>.....?0.XT|
000037F0: B2 58 54 AA 31 3A 4C 48 24 28 58 54 29 B2 C8 28 |.XT.1:LH$(XT)..(|
00003800: 53 50 24 2C 34 30 29 3A 52 48 24 28 58 54 29 B2 |SP$,40):RH$(XT).|
00003810: 4C 48 24 28 58 54 29 3A 8E 00 00 00 B1 C7 28 31 |LH$(XT):......(1|
00003820: 33 33 29 A7 35 30 36 39 30 00 45 3D 07 C6 8B 20 |33).50690.E=... |
00003830: 49 4E 24 B2 C7 28 31 33 29 A7 35 30 33 30 35 00 |IN$..(13).50305.|
00003840: 52 3D 70 C6 50 42 25 B2 AB 31 3A 8E 00 68 3D 5F |R=p.PB%..1:..h=_|
00003850: EA 8F 20 3D 3D 20 45 52 52 4F 52 20 43 48 4B 20 |.. == ERROR CHK |
00003860: 3D 3D 00 90 3D 60 EA A0 31 35 3A 9F 31 35 2C 38 |==..=`..15:.15,8|
00003870: 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA |,15:.5,8,5,"0:".|
00003880: 4E 4D 24 3A 89 36 30 30 31 30 00 B2 3D 65 01 08 |NM$:.60010..=e..|
00003890: 16 08 0A 00 8B 20 C2 28 32 30 35 33 29 B2 31 35 |..... .(2053).15|
000038A0: 38 A7 31 35 00 4F 08 0C 00 8B 28 C2 28 34 35 29 |8.15.O....(.(45)|
000038B0: AA C2 28 34 36 29 AC 32 35 36 29 B3 31 32 30 30 |..(46).256).1200|
000038C0: 30 A7 97 34 35 2C C2 28 31 37 34 29 3A 97 34 36 |0..45,.(174):.46|
000038D0: 2C C2 28 31 37 35 29 3A 9C 3A 41 B2 30 00 71 08 |,.(175):.:A.0.q.|
000038E0: 0F 00 8B 20 41 B2 30 A7 97 37 32 30 2C C2 28 31 |... A.0..720,.(1|
000038F0: 37 34 29 3A 97 37 32 31 2C C2 28 31 37 35 29 00 |74):.721,.(175).|
00003900: 8A 08 14 00 8B 20 41 B2 30 A7 41 B2 31 3A 93 22 |..... A.0.A.1:."|
00003910: 30 3A 4D 22 2C 38 2C 31 00 C7 08 16 00 97 31 37 |0:M",8,1......17|
00003920: 34 2C C2 28 37 32 30 29 3A 97 31 37 35 2C C2 28 |4,.(720):.175,.(|
00003930: 37 32 31 29 3A 8B C2 28 32 30 35 33 29 B2 31 35 |721):..(2053).15|
00003940: 38 A7 97 34 31 30 32 34 2C 30 3A 97 34 31 30 32 |8..41024,0:.4102|
00003950: 35 2C 32 30 38 00 E2 08 55 00 9C 3A 97 31 39 38 |5,208...U..:.198|
00003960: 2C 30 3A 8F 20 3D 3D 20 43 4C 45 52 20 42 55 46 |,0:. == CLER BUF|
00003970: 00 1A 09 5B 00 44 56 24 B2 22 30 3A 22 3A 44 56 |...[.DV$."0:":DV|
00003980: B2 38 3A 44 4E 24 B2 22 30 22 3A 4E 4D 24 B2 22 |.8:DN$."0":NM$."|
00003990: 43 4F 4E 46 49 47 22 3A 8D 36 30 30 30 30 3A 8B |CONFIG":.60000:.|
000039A0: 45 52 B1 31 39 A7 39 33 00 44 09 5C 00 9F 32 2C |ER.19.93.D.\..2,|
000039B0: 38 2C 32 2C 22 30 3A 43 4F 4E 46 49 47 22 3A 84 |8,2,"0:CONFIG":.|
000039C0: 32 2C 44 56 24 3A 84 32 2C 44 4E 24 3A 84 32 2C |2,DV$:.2,DN$:.2,|
000039D0: 44 56 00 4B 09 5D 00 A0 32 00 69 09 63 00 8F 20 |DV.K.]..2.i.c.. |
000039E0: 3D 3D 20 4E 55 4D 45 52 49 43 20 43 4F 4E 53 54 |== NUMERIC CONST|
000039F0: 41 4E 54 53 20 3D 3D 00 78 09 64 00 4E 53 B2 31 |ANTS ==.x.d.NS.1|
00003A00: 3A 52 4E 25 B2 32 00 97 09 69 00 53 46 24 B2 22 |:RN%.2...i.SF$."|
00003A10: 50 52 47 43 41 54 22 3A 8F 20 2A 20 42 41 53 45 |PRGCAT":. * BASE|
00003A20: 20 46 49 4C 45 00 C2 09 6E 00 50 44 24 B2 22 20 | FILE...n.PD$." |
00003A30: 20 20 20 20 20 20 20 C4 45 53 49 47 4E 45 44 20 | .ESIGNED |
00003A40: 42 59 20 D3 54 45 56 45 20 D2 45 41 47 41 4E 22 |BY .TEVE .EAGAN"|
00003A50: 00 EC 09 70 00 54 4C 24 B2 22 20 20 20 20 20 20 |...p.TL$." |
00003A60: 20 20 20 20 20 20 12 20 D0 52 4F 47 52 41 4D 20 | . .ROGRAM |
00003A70: CC 49 53 54 49 4E 47 20 92 22 00 07 0A 78 00 4C |.ISTING ."...x.L|
00003A80: 52 B2 32 3A 8F 20 2A 20 52 45 43 53 20 50 45 52 |R.2:. * RECS PER|
00003A90: 20 4C 49 4E 45 00 1C 0A 7D 00 4F 46 B2 34 30 3A | LINE...}.OF.40:|
00003AA0: 8F 20 2A 20 4F 46 46 53 45 54 00 38 0A 82 00 43 |. * OFFSET.8...C|
00003AB0: 54 25 B2 31 30 3A 8F 20 2A 20 4E 55 4D 20 50 52 |T%.10:. * NUM PR|
00003AC0: 54 20 46 4C 44 53 00 4C 0A 87 00 4E 46 B2 31 38 |T FLDS.L...NF.18|
00003AD0: 3A 4E 43 B2 30 3A 4E 47 B2 30 00 66 0A 96 00 4D |:NC.0:NG.0.f...M|
00003AE0: 59 B2 37 3A 8F 20 2A 4C 49 4E 45 53 20 50 45 52 |Y.7:. *LINES PER|
00003AF0: 20 52 45 43 00 82 0A 9B 00 41 45 24 B2 22 41 22 | REC.....AE$."A"|
00003B00: 3A 8F 20 2A 20 44 41 54 45 20 46 4F 52 4D 41 54 |:. * DATE FORMAT|
00003B10: 00 98 0A A0 00 48 48 B2 30 3A 8F 20 2A 20 48 44 |.....HH.0:. * HD|
00003B20: 52 20 48 47 48 54 00 B0 0A A5 00 48 53 B2 32 35 |R HGHT.....HS.25|
00003B30: AB 48 48 AB 32 3A 48 50 B2 36 36 AB 48 48 00 CD |.HH.2:HP.66.HH..|
00003B40: 0A B4 00 86 20 52 48 24 28 35 39 29 2C 4C 48 24 |.... RH$(59),LH$|
00003B50: 28 35 39 29 2C 54 53 28 32 30 29 00 06 0B BE 00 |(59),TS(20).....|
00003B60: 86 20 46 24 28 4E 46 29 2C 4C 25 28 4E 46 29 2C |. F$(NF),L%(NF),|
00003B70: 58 25 28 43 54 25 29 2C 59 25 28 43 54 25 29 2C |X%(CT%),Y%(CT%),|
00003B80: 50 54 25 28 43 54 25 29 2C 46 44 24 28 43 54 25 |PT%(CT%),FD$(CT%|
00003B90: 2C 4C 52 29 00 30 0B BF 00 86 20 50 46 28 4E 53 |,LR).0.... PF(NS|
00003BA0: 29 2C 50 53 28 4E 53 29 2C 43 45 28 4E 43 29 2C |),PS(NS),CE(NC),|
00003BB0: 47 4C 28 4E 47 29 2C 44 54 25 28 31 32 29 00 4B |GL(NG),DT%(12).K|
00003BC0: 0B C0 00 8B 20 53 4D AA 4F 4D B2 30 20 A7 20 53 |.... SM.OM.0 . S|
00003BD0: 53 25 B2 30 3A 89 31 39 35 00 8A 0B C1 00 53 53 |S%.0:.195.....SS|
00003BE0: 25 B2 4E 46 AA 4E 43 3A 86 54 54 28 53 53 25 29 |%.NF.NC:.TT(SS%)|
00003BF0: 2C 4D 4E 28 53 53 25 29 2C 4D 58 28 53 53 25 29 |,MN(SS%),MX(SS%)|
00003C00: 2C 47 54 28 53 53 25 29 2C 47 4E 28 53 53 25 29 |,GT(SS%),GN(SS%)|
00003C10: 2C 47 58 28 53 53 25 29 00 96 0B C3 00 86 56 44 |,GX(SS%)......VD|
00003C20: 24 28 31 29 00 B1 0B C7 00 8F 20 3D 3D 53 54 52 |$(1)...... ==STR|
00003C30: 49 4E 47 20 43 4F 4E 53 54 41 4E 54 53 3D 3D 00 |ING CONSTANTS==.|
00003C40: D0 0B D2 00 53 53 24 B2 22 22 3A 53 50 24 B2 22 |....SS$."":SP$."|
00003C50: 22 3A 44 44 24 B2 22 22 3A 5A 24 B2 22 22 00 0D |":DD$."":Z$.""..|
00003C60: 0C DC 00 81 49 B2 31 A4 38 30 3A 53 53 24 B2 53 |....I.1.80:SS$.S|
00003C70: 53 24 AA 22 20 22 3A 53 50 24 B2 53 50 24 AA 22 |S$." ":SP$.SP$."|
00003C80: 20 22 3A 44 44 24 B2 44 44 24 AA 22 2D 22 3A 5A | ":DD$.DD$."-":Z|
00003C90: 24 B2 5A 24 AA 22 30 22 3A 82 49 00 31 0C E6 00 |$.Z$."0":.I.1...|
00003CA0: 59 24 B2 C7 28 31 39 29 3A 81 49 B2 31 A4 32 34 |Y$..(19):.I.1.24|
00003CB0: 3A 59 24 B2 59 24 AA C7 28 31 37 29 3A 82 49 00 |:Y$.Y$..(17):.I.|
00003CC0: 69 0C F0 00 47 42 24 B2 22 2A 2A 2A 2A 2A 2A 2A |i...GB$."*******|
00003CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003CF0: 2A 2A 2A 2A 2A 2A 22 00 A2 0C F5 00 97 35 30 33 |******"......503|
00003D00: 33 38 2C 39 36 3A 97 35 30 31 30 37 2C 36 33 3A |38,96:.50107,63:|
00003D10: 97 35 30 31 30 38 2C 31 39 36 3A 8F 20 3D 3D 20 |.50108,196:. == |
00003D20: 52 45 41 44 20 52 54 4E 20 43 48 41 4E 47 45 53 |READ RTN CHANGES|
00003D30: 00 CD 0C FA 00 8B C2 28 39 36 37 29 B2 34 39 AF |.......(967).49.|
00003D40: C2 28 39 36 38 29 B2 39 36 A7 97 36 34 36 2C C2 |.(968).96..646,.|
00003D50: 28 31 30 30 30 29 3A 89 33 30 30 00 FA 0C FE 00 |(1000):.300.....|
00003D60: 97 39 36 39 2C 38 32 3A 97 39 37 30 2C 52 4E 25 |.969,82:.970,RN%|
00003D70: 3A 4A B2 35 33 32 33 32 3A 4C B2 C3 28 53 46 24 |:J.53232:L..(SF$|
00003D80: 29 AA 32 3A 97 4A 2C 4C 00 27 0D 00 01 81 49 B2 |).2:.J,L.'....I.|
00003D90: 31 A4 4C 3A 97 4A AA 49 2C C6 28 CA 28 44 56 24 |1.L:.J.I,.(.(DV$|
00003DA0: AA 53 46 24 2C 49 2C 31 29 29 3A 82 49 3A 97 37 |.SF$,I,1)):.I:.7|
00003DB0: 31 37 2C 44 56 00 57 0D 0E 01 99 22 93 22 C8 28 |17,DV.W....".".(|
00003DC0: 59 24 2C 37 29 22 20 20 20 20 20 20 20 C4 4F 20 |Y$,7)" .O |
00003DD0: 59 4F 55 20 57 41 4E 54 20 54 4F 20 52 55 4E 20 |YOU WANT TO RUN |
00003DE0: 54 48 45 20 22 00 93 0D 0F 01 99 22 20 20 20 20 |THE "......" |
00003DF0: 20 20 12 53 4F 52 54 92 20 50 52 4F 47 52 41 4D | .SORT. PROGRAM|
00003E00: 20 28 59 2F 4E 29 20 3F 20 22 3A 58 25 B2 32 38 | (Y/N) ? ":X%.28|
00003E10: 3A 59 25 B2 38 3A 4C 25 B2 31 3A 8D 33 34 30 30 |:Y%.8:L%.1:.3400|
00003E20: 30 00 A4 0D 13 01 8B 49 4E 24 B2 22 4E 22 A7 33 |0......IN$."N".3|
00003E30: 30 30 00 B6 0D 14 01 8B 49 4E 24 B3 B1 22 59 22 |00......IN$.."Y"|
00003E40: A7 32 37 30 00 CC 0D 1A 01 4E 4D 24 B2 22 53 4F |.270.....NM$."SO|
00003E50: 52 54 22 3A 8D 36 30 30 30 30 00 DA 0D 1B 01 8B |RT":.60000......|
00003E60: 45 52 B2 30 A7 32 39 32 00 0E 0E 1C 01 99 22 93 |ER.0.292......".|
00003E70: 11 11 11 11 11 11 11 20 20 D0 4C 41 43 45 20 44 |....... .LACE D|
00003E80: 49 53 4B 20 57 49 54 48 20 54 48 45 20 12 53 4F |ISK WITH THE .SO|
00003E90: 52 54 92 20 50 52 4F 47 52 41 4D 22 00 23 0E 1D |RT. PROGRAM".#..|
00003EA0: 01 99 22 20 20 49 4E 20 44 52 49 56 45 20 30 2E |.." IN DRIVE 0.|
00003EB0: 22 00 70 0E 1E 01 99 C8 28 59 24 2C 32 34 29 22 |".p.....(Y$,24)"|
00003EC0: 20 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 | .RESS ........ |
00003ED0: 54 4F 20 53 4F 52 54 2C 20 12 46 31 92 20 54 4F |TO SORT, .F1. TO|
00003EE0: 20 43 4F 4E 54 49 4E 55 45 20 20 20 20 57 49 54 | CONTINUE WIT|
00003EF0: 48 4F 55 54 20 53 4F 52 54 49 4E 47 22 3B 00 8C |HOUT SORTING";..|
00003F00: 0E 1F 01 A0 32 3A A1 41 41 24 3A 8B 41 41 24 B2 |....2:.AA$:.AA$.|
00003F10: C7 28 31 33 33 29 A7 33 30 30 00 A0 0E 20 01 8B |.(133).300... ..|
00003F20: 41 41 24 B3 B1 C7 28 31 33 29 A7 32 38 37 00 A9 |AA$...(13).287..|
00003F30: 0E 21 01 89 32 38 32 00 DF 0E 24 01 99 22 93 11 |.!..282...$.."..|
00003F40: 11 11 11 11 11 11 11 11 20 20 20 D0 52 4F 47 52 |........ .ROGR|
00003F50: 41 4D 20 4C 4F 41 44 49 4E 47 2C 20 50 4C 45 41 |AM LOADING, PLEA|
00003F60: 53 45 20 57 41 49 54 20 2E 2E 2E 22 3B 00 F1 0E |SE WAIT ...";...|
00003F70: 27 01 9C 3A 93 22 30 3A 53 4F 52 54 22 2C 38 00 |'..:."0:SORT",8.|
00003F80: 09 0F 2B 01 8F 20 3D 3D 20 49 4E 49 54 20 56 41 |..+.. == INIT VA|
00003F90: 52 42 4C 53 20 3D 3D 00 30 0F 2C 01 97 39 36 37 |RBLS ==.0.,..967|
00003FA0: 2C 30 3A 97 39 36 38 2C 30 3A 81 49 B2 31 A4 31 |,0:.968,0:.I.1.1|
00003FB0: 32 3A 44 54 25 28 49 29 B2 33 31 3A 82 49 00 67 |2:DT%(I).31:.I.g|
00003FC0: 0F 2E 01 44 54 25 28 32 29 B2 32 39 3A 44 54 25 |...DT%(2).29:DT%|
00003FD0: 28 34 29 B2 33 30 3A 44 54 25 28 36 29 B2 33 30 |(4).30:DT%(6).30|
00003FE0: 3A 44 54 25 28 39 29 B2 33 30 3A 44 54 25 28 31 |:DT%(9).30:DT%(1|
00003FF0: 31 29 B2 33 30 00 85 0F 2F 01 99 22 93 22 C8 28 |1).30.../..".".(|
00004000: 59 24 2C 37 29 54 4C 24 C8 28 59 24 2C 31 30 29 |Y$,7)TL$.(Y$,10)|
00004010: 50 44 24 00 97 0F 36 01 8D 31 37 30 30 30 3A 8D |PD$...6..17000:.|
00004020: 31 39 30 30 30 00 CD 0F 45 01 4C 50 B2 30 3A 43 |19000...E.LP.0:C|
00004030: 4F B2 30 3A 53 43 B2 31 3A 81 49 54 B2 31 A4 35 |O.0:SC.1:.IT.1.5|
00004040: 39 3A 4C 48 24 28 49 54 29 B2 22 22 3A 52 48 24 |9:LH$(IT)."":RH$|
00004050: 28 49 54 29 B2 22 22 3A 82 49 54 00 EB 0F 46 01 |(IT)."":.IT...F.|
00004060: 46 4C 47 25 B2 30 3A 81 49 B2 31 A4 4E 53 3A 54 |FLG%.0:.I.1.NS:T|
00004070: 53 28 49 29 B2 30 3A 82 49 00 21 10 47 01 8B 53 |S(I).0:.I.!.G..S|
00004080: 53 25 B1 30 A7 81 5A B2 31 A4 53 53 25 3A 47 54 |S%.0..Z.1.SS%:GT|
00004090: 28 5A 29 B2 30 3A 47 58 28 5A 29 B2 AB 31 45 33 |(Z).0:GX(Z)..1E3|
000040A0: 32 3A 47 4E 28 5A 29 B2 31 45 33 32 3A 82 5A 00 |2:GN(Z).1E32:.Z.|
000040B0: 3E 10 48 01 99 22 93 22 3B 3A 8D 33 35 30 30 30 |>.H..".";:.35000|
000040C0: 3A 8F 3D 3D 56 4E 2C 56 41 2C 56 44 00 5C 10 4A |:.==VN,VA,VD.\.J|
000040D0: 01 44 41 24 B2 56 44 24 28 31 29 3A 8D 33 37 30 |.DA$.VD$(1):.370|
000040E0: 30 30 3A 44 59 24 B2 44 41 24 00 74 10 4F 01 8B |00:DY$.DA$.t.O..|
000040F0: 20 4E 53 B2 31 A7 20 4F 24 B2 22 59 22 3A 89 33 | NS.1. O$."Y":.3|
00004100: 34 33 00 9B 10 54 01 99 22 93 11 C4 4F 20 59 4F |43...T.."...O YO|
00004110: 55 20 57 49 53 48 20 54 4F 20 53 45 45 20 41 4C |U WISH TO SEE AL|
00004120: 4C 20 52 45 50 4F 52 54 22 00 D2 10 55 01 99 22 |L REPORT"...U.."|
00004130: 53 45 43 54 49 4F 4E 53 20 3F 28 59 2F 4E 29 20 |SECTIONS ?(Y/N) |
00004140: 22 3B 3A 58 25 B2 35 36 3A 59 25 B2 32 3A 4C 25 |";:X%.56:Y%.2:L%|
00004150: B2 31 3A 8D 33 34 30 30 30 3A 4F 24 B2 49 4E 24 |.1:.34000:O$.IN$|
00004160: 00 EB 10 56 01 8B 4F 24 B3 B1 22 59 22 AF 4F 24 |...V..O$.."Y".O$|
00004170: B3 B1 22 4E 22 A7 33 34 30 00 13 11 57 01 8B 4F |.."N".340...W..O|
00004180: 24 B2 22 59 22 A7 81 51 51 B2 31 A4 4E 53 3A 54 |$."Y"..QQ.1.NS:T|
00004190: 53 28 51 51 29 B2 AB 31 3A 82 51 51 3A 89 34 30 |S(QQ)..1:.QQ:.40|
000041A0: 30 00 26 11 58 01 49 B2 35 3A 49 50 25 B2 31 3A |0.&.X.I.5:IP%.1:|
000041B0: 99 22 93 22 00 51 11 59 01 99 22 13 11 20 C5 4E |.".".Q.Y..".. .N|
000041C0: 54 45 52 20 54 48 45 20 53 45 43 54 49 4F 4E 20 |TER THE SECTION |
000041D0: 4E 55 4D 42 45 52 28 53 29 20 59 4F 55 20 22 00 |NUMBER(S) YOU ".|
000041E0: 9A 11 5A 01 99 22 57 49 53 48 20 54 4F 20 49 4E |..Z.."WISH TO IN|
000041F0: 43 4C 55 44 45 20 49 4E 20 54 48 49 53 20 52 45 |CLUDE IN THIS RE|
00004200: 50 4F 52 54 22 3A 99 22 28 31 2D 22 3B 4E 53 3B |PORT":."(1-";NS;|
00004210: 22 29 20 4F 52 20 12 D2 45 54 55 52 4E 92 20 54 |") OR ..ETURN. T|
00004220: 4F 20 45 58 49 54 2E 22 00 C2 11 5B 01 58 25 B2 |O EXIT."...[.X%.|
00004230: 32 38 3A 59 25 B2 34 3A 4C 25 B2 32 3A 8D 33 34 |28:Y%.4:L%.2:.34|
00004240: 30 30 30 3A 8B 20 49 4E 24 B2 22 22 A7 33 38 30 |000:. IN$."".380|
00004250: 00 E0 11 5C 01 4F 4F B2 C5 28 49 4E 24 29 3A 8B |...\.OO..(IN$):.|
00004260: 4F 4F B1 4E 53 B0 4F 4F B3 31 A7 33 34 35 00 F4 |OO.NS.OO.1.345..|
00004270: 11 5D 01 8B 54 53 28 4F 4F 29 B3 B1 AB 31 A7 33 |.]..TS(OO)...1.3|
00004280: 36 30 00 30 12 5E 01 99 22 2A 2A 20 D3 45 43 54 |60.0.^.."** .ECT|
00004290: 49 4F 4E 20 22 3B 4F 4F 3B 22 20 41 4C 52 45 41 |ION ";OO;" ALREA|
000042A0: 44 59 20 53 45 4C 45 43 54 45 44 20 2A 2A 22 3B |DY SELECTED **";|
000042B0: 3A 81 51 51 B2 31 A4 36 30 30 3A 82 51 51 00 46 |:.QQ.1.600:.QQ.F|
000042C0: 12 60 01 99 C8 28 59 24 2C 35 29 3B 53 50 24 3A |.`...(Y$,5);SP$:|
000042D0: 89 33 34 35 00 78 12 68 01 54 53 28 4F 4F 29 B2 |.345.x.h.TS(OO).|
000042E0: AB 31 3A 49 B2 49 AA 32 3A 99 C8 28 59 24 2C 49 |.1:I.I.2:..(Y$,I|
000042F0: 29 3B A6 49 50 25 29 3B 22 D3 45 43 54 49 4F 4E |);.IP%);".ECTION|
00004300: 3A 20 22 3B 4F 4F 00 8D 12 6A 01 8B 49 B1 32 32 |: ";OO...j..I.22|
00004310: A7 49 B2 35 3A 49 50 25 B2 32 30 00 9E 12 6C 01 |.I.5:IP%.20...l.|
00004320: 46 4C 47 25 B2 AB 31 3A 89 33 34 35 00 AC 12 7C |FLG%..1:.345...||
00004330: 01 8B 46 4C 47 25 A7 34 30 30 00 DC 12 86 01 99 |..FLG%.400......|
00004340: C8 28 59 24 2C 31 30 29 3B 22 2A 2A 2A 20 20 CE |.(Y$,10);"*** .|
00004350: 4F 20 D3 45 43 54 49 4F 4E 53 20 D3 45 4C 45 43 |O .ECTIONS .ELEC|
00004360: 54 45 44 20 21 20 2A 2A 2A 22 00 FA 12 88 01 46 |TED ! ***".....F|
00004370: 4C 47 25 B2 30 3A 81 51 51 B2 31 A4 36 30 30 3A |LG%.0:.QQ.1.600:|
00004380: 82 51 51 3A 89 33 34 30 00 33 13 90 01 99 22 93 |.QQ:.340.3....".|
00004390: D7 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 59 |.OULD YOU LIKE Y|
000043A0: 4F 55 52 20 52 45 50 4F 52 54 20 53 45 4E 54 20 |OUR REPORT SENT |
000043B0: 54 4F 20 54 48 45 20 20 53 43 52 45 45 4E 20 22 |TO THE SCREEN "|
000043C0: 3B 00 71 13 95 01 99 22 4F 52 20 54 48 45 20 50 |;.q...."OR THE P|
000043D0: 52 49 4E 54 45 52 20 28 53 2F 50 29 20 3F 20 22 |RINTER (S/P) ? "|
000043E0: 3B 3A 58 25 B2 36 39 3A 59 25 B2 31 3A 4C 25 B2 |;:X%.69:Y%.1:L%.|
000043F0: 31 3A 8D 33 34 30 30 30 3A 4F 24 B2 49 4E 24 00 |1:.34000:O$.IN$.|
00004400: 8A 13 9A 01 8B 4F 24 B3 B1 22 50 22 AF 4F 24 B3 |.....O$.."P".O$.|
00004410: B1 22 53 22 A7 34 30 30 00 AC 13 A4 01 8B 4F 24 |."S".400......O$|
00004420: B2 22 50 22 A7 8D 35 30 33 30 30 3A 48 54 B2 48 |."P"..50300:HT.H|
00004430: 50 3A 8B 50 42 25 A7 34 30 30 00 C3 13 A9 01 8B |P:.PB%.400......|
00004440: 4F 24 B2 22 53 22 A7 50 44 B2 33 3A 48 54 B2 48 |O$."S".PD.3:HT.H|
00004450: 53 00 DE 13 AE 01 52 50 B2 B5 28 48 54 AD 4D 59 |S.....RP..(HT.MY|
00004460: 29 3A 8B 52 50 B2 30 A7 52 50 B2 31 00 EE 13 B8 |):.RP.0.RP.1....|
00004470: 01 A0 34 3A 9F 34 2C 50 44 2C 53 41 00 FE 13 BD |..4:.4,PD,SA....|
00004480: 01 8B 4F 24 B2 22 53 22 A7 34 37 36 00 2D 14 C2 |..O$."S".476.-..|
00004490: 01 99 22 93 11 20 20 C1 54 20 54 48 49 53 20 50 |..".. .T THIS P|
000044A0: 4F 49 4E 54 2C 20 59 4F 55 20 4D 41 59 20 50 52 |OINT, YOU MAY PR|
000044B0: 49 4E 54 20 41 20 54 45 53 54 22 00 6D 14 C4 01 |INT A TEST".m...|
000044C0: 99 22 20 50 41 47 45 20 54 48 41 54 20 57 49 4C |." PAGE THAT WIL|
000044D0: 4C 20 48 45 4C 50 20 59 4F 55 20 4C 49 4E 45 20 |L HELP YOU LINE |
000044E0: 55 50 20 59 4F 55 52 20 20 20 20 46 4F 52 4D 53 |UP YOUR FORMS|
000044F0: 20 50 52 4F 50 45 52 4C 59 2E 22 00 9A 14 C5 01 | PROPERLY.".....|
00004500: 99 22 11 20 D7 4F 55 4C 44 20 59 4F 55 20 4C 49 |.". .OULD YOU LI|
00004510: 4B 45 20 41 20 54 45 53 54 20 50 41 47 45 20 28 |KE A TEST PAGE (|
00004520: 59 2F 4E 29 20 3F 22 3B 00 BE 14 C6 01 58 25 B2 |Y/N) ?";.....X%.|
00004530: 33 36 3A 59 25 B2 36 3A 4C 25 B2 31 3A 8D 20 33 |36:Y%.6:L%.1:. 3|
00004540: 34 30 30 30 3A 54 50 24 B2 49 4E 24 00 D9 14 CC |4000:TP$.IN$....|
00004550: 01 8B 54 50 24 B3 B1 22 59 22 AF 54 50 24 B3 B1 |..TP$.."Y".TP$..|
00004560: 22 4E 22 A7 34 35 34 00 F4 14 D1 01 8B 54 50 24 |"N".454......TP$|
00004570: B2 22 59 22 A7 8D 31 30 30 30 30 3A 54 50 24 B2 |."Y"..10000:TP$.|
00004580: 22 22 00 26 15 D3 01 99 22 93 11 20 D9 4F 55 52 |"".&....".. .OUR|
00004590: 20 52 45 50 4F 52 54 20 49 53 20 4E 4F 57 20 52 | REPORT IS NOW R|
000045A0: 45 41 44 59 20 54 4F 20 42 45 20 50 52 49 4E 54 |EADY TO BE PRINT|
000045B0: 45 44 2E 22 00 63 15 D6 01 99 22 11 11 20 D3 45 |ED.".c....".. .E|
000045C0: 54 20 50 52 49 4E 54 45 52 20 54 4F 20 54 4F 50 |T PRINTER TO TOP|
000045D0: 20 4F 46 20 46 4F 52 4D 20 41 4E 44 20 50 52 45 | OF FORM AND PRE|
000045E0: 53 53 20 20 20 20 20 A0 12 D2 C5 D4 D5 D2 CE 92 |SS .........|
000045F0: 22 00 7C 15 D8 01 A1 41 41 24 3A 8B 41 41 24 B3 |".|....AA$:.AA$.|
00004600: B1 C7 28 31 33 29 A7 34 37 32 00 A7 15 DA 01 8B |..(13).472......|
00004610: 20 4F 24 B2 22 50 22 A7 99 22 93 11 20 D0 52 49 | O$."P"..".. .RI|
00004620: 4E 54 49 4E 47 20 52 45 50 4F 52 54 2E 2E 2E 22 |NTING REPORT..."|
00004630: 3A 89 34 39 30 00 E1 15 DC 01 99 22 11 20 D4 4F |:.490......". .O|
00004640: 20 42 45 47 49 4E 20 54 48 45 20 52 45 50 4F 52 | BEGIN THE REPOR|
00004650: 54 20 4C 49 53 54 49 4E 47 2C 20 50 52 45 53 53 |T LISTING, PRESS|
00004660: 20 20 20 20 20 20 12 D2 C5 D4 D5 D2 CE 92 22 00 | ........".|
00004670: FA 15 DD 01 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 |.....AA$:.AA$...|
00004680: 28 31 33 29 A7 34 37 37 00 04 16 E0 01 99 22 93 |(13).477......".|
00004690: 22 3B 00 28 16 EA 01 4E 4D 24 B2 53 46 24 AA 22 |";.(...NM$.SF$."|
000046A0: 30 2F 44 22 3A 8D 36 30 30 30 35 3A 8B 45 52 B3 |0/D":.60005:.ER.|
000046B0: 32 30 A7 34 39 37 00 54 16 EB 01 99 22 11 11 11 |20.497.T...."...|
000046C0: 11 20 20 20 20 12 22 3B 53 46 24 22 92 20 44 41 |. .";SF$". DA|
000046D0: 54 41 20 46 49 4C 45 20 4E 4F 54 20 46 4F 55 4E |TA FILE NOT FOUN|
000046E0: 44 22 00 99 16 EC 01 99 20 22 11 11 20 20 20 CD |D"...... ".. .|
000046F0: 41 4B 45 20 53 55 52 45 20 54 48 45 20 12 20 44 |AKE SURE THE . D|
00004700: 41 54 41 20 92 20 44 49 53 4B 20 49 53 20 49 4E |ATA . DISK IS IN|
00004710: 20 20 20 20 20 20 20 11 44 52 49 56 45 20 22 3B | .DRIVE ";|
00004720: 44 4E 24 3B 22 2E 22 00 DF 16 ED 01 99 C8 28 59 |DN$;".".......(Y|
00004730: 24 2C 32 34 29 22 20 D0 52 45 53 53 20 12 D2 C5 |$,24)" .RESS ...|
00004740: D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |..... TO CONTINU|
00004750: 45 2C 20 12 46 31 92 20 54 4F 20 45 4E 44 20 20 |E, .F1. TO END |
00004760: 20 20 20 50 52 4F 47 52 41 4D 2E 22 3B 00 04 17 | PROGRAM.";...|
00004770: EE 01 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 |...AA$:.AA$...(1|
00004780: 33 29 AF 41 41 24 B3 B1 C7 28 31 33 33 29 A7 34 |3).AA$...(133).4|
00004790: 39 34 00 17 17 EF 01 8B 41 41 24 B2 C7 28 31 33 |94......AA$..(13|
000047A0: 29 A7 34 39 30 00 28 17 F0 01 89 35 30 30 30 30 |).490.(....50000|
000047B0: 3A 8F 20 45 4E 44 00 3E 17 F1 01 8B A8 54 53 28 |:. END.>.....TS(|
000047C0: 31 29 A7 50 43 B2 30 3A 89 35 30 30 00 54 17 F2 |1).PC.0:.500.T..|
000047D0: 01 50 43 B2 30 3A 8B 50 46 28 31 29 A7 8D 39 31 |.PC.0:.PF(1)..91|
000047E0: 30 30 00 68 17 F3 01 8F 20 3D 20 4D 41 49 4E 20 |00.h.... = MAIN |
000047F0: 52 54 4E 20 3D 3D 00 A1 17 F4 01 97 37 31 35 2C |RTN ==......715,|
00004800: 31 3A 97 37 31 36 2C 30 3A 97 37 31 31 2C 31 3A |1:.716,0:.711,1:|
00004810: 9E 20 35 30 34 34 32 3A 9E 20 35 30 33 36 31 3A |. 50442:. 50361:|
00004820: 8F 20 3D 3D 20 4F 50 45 4E 20 46 49 4C 45 53 00 |. == OPEN FILES.|
00004830: CD 17 F5 01 46 4C 47 25 B2 30 3A 4C 45 B2 30 3A |....FLG%.0:LE.0:|
00004840: 4C 53 B2 AB 31 3A 81 53 43 B2 31 A4 4E 53 3A 8B |LS..1:.SC.1.NS:.|
00004850: A8 54 53 28 53 43 29 A7 35 36 32 00 F3 17 F6 01 |.TS(SC).562.....|
00004860: 9F 33 2C 44 56 2C 33 2C 44 56 24 AA 53 46 24 AA |.3,DV,3,DV$.SF$.|
00004870: 22 2F 49 4E 44 58 22 3A 52 B2 31 3A 50 52 B2 AB |"/INDX":R.1:PR..|
00004880: 31 00 27 18 F9 01 41 41 24 B2 22 22 3A 8D 31 38 |1.'...AA$."":.18|
00004890: 30 30 30 3A 8B 41 41 24 B2 22 58 22 A7 35 31 38 |000:.AA$."X".518|
000048A0: 3A 8F 20 49 4E 49 54 49 41 4C 49 5A 45 20 53 45 |:. INITIALIZE SE|
000048B0: 43 54 49 4F 4E 00 51 18 FE 01 84 33 2C 49 4B 24 |CTION.Q....3,IK$|
000048C0: 3A 49 4B B2 C5 28 49 4B 24 29 3A 8B C8 28 49 4B |:IK..(IK$):..(IK|
000048D0: 24 2C 31 29 B2 C7 28 32 35 35 29 A7 35 35 38 00 |$,1)..(255).558.|
000048E0: 7E 18 03 02 41 41 24 B2 22 22 3A 8B 52 43 B2 52 |~...AA$."":.RC.R|
000048F0: 50 AF 50 46 28 53 43 29 A7 8D 39 30 30 30 3A 4C |P.PF(SC)..9000:L|
00004900: 45 B2 30 3A 8F 20 4E 45 57 20 50 47 00 96 18 06 |E.0:. NEW PG....|
00004910: 02 8B 41 41 24 B2 22 58 22 A7 53 43 B2 4E 53 3A |..AA$."X".SC.NS:|
00004920: 89 36 30 30 00 A7 18 08 02 8D 37 30 30 3A 9E 20 |.600......700:. |
00004930: 36 35 34 38 34 00 B8 18 0A 02 8B 4E 43 B1 30 A7 |65484......NC.0.|
00004940: 8D 32 38 30 30 30 00 C3 18 0D 02 8D 31 32 30 30 |.28000......1200|
00004950: 30 00 CD 18 12 02 8D 36 30 30 30 00 DB 18 17 02 |0......6000.....|
00004960: 8B A8 4D 45 25 A7 35 35 37 00 E7 18 18 02 43 53 |..ME%.557.....CS|
00004970: B2 43 53 AA 31 00 F1 18 1C 02 8D 34 30 30 30 00 |.CS.1......4000.|
00004980: 02 19 21 02 8B A8 50 46 28 53 43 29 A7 35 35 37 |..!...PF(SC).557|
00004990: 00 0C 19 26 02 8D 38 30 30 30 00 21 19 28 02 52 |...&..8000.!.(.R|
000049A0: B2 52 AA 31 3A 8B 52 B3 B2 4C 52 A7 35 35 37 00 |.R.1:.R..LR.557.|
000049B0: 2B 19 2B 02 8D 37 30 30 30 00 3B 19 2C 02 52 B2 |+.+..7000.;.,.R.|
000049C0: 31 3A 52 43 B2 52 43 AA 31 00 4F 19 2D 02 89 35 |1:RC.RC.1.O.-..5|
000049D0: 31 30 3A 8F 20 4E 45 58 54 20 52 45 43 00 64 19 |10:. NEXT REC.d.|
000049E0: 2E 02 50 52 B2 30 3A 8B 43 53 B1 30 A7 50 52 B2 |..PR.0:.CS.0.PR.|
000049F0: AB 31 00 8B 19 2F 02 8B 52 B1 31 A7 4C 45 B2 31 |.1.../..R.1.LE.1|
00004A00: 3A 8D 37 30 30 30 3A 8F 20 4F 55 54 50 55 54 20 |:.7000:. OUTPUT |
00004A10: 4C 45 46 54 4F 56 45 52 53 00 A5 19 30 02 46 4C |LEFTOVERS...0.FL|
00004A20: 47 25 B2 AB 31 3A 8B A8 50 46 28 53 43 29 A7 4C |G%..1:..PF(SC).L|
00004A30: 53 B2 30 00 C3 19 31 02 8D 32 30 30 30 3A 8B 41 |S.0...1..2000:.A|
00004A40: 41 24 B2 22 58 22 A7 53 43 B2 4E 53 3A 89 36 30 |A$."X".SC.NS:.60|
00004A50: 30 00 D4 19 32 02 50 43 B2 30 3A A0 33 3A 82 20 |0...2.PC.0:.3:. |
00004A60: 53 43 00 EC 19 35 02 8D 31 31 30 30 30 3A 8B 41 |SC...5..11000:.A|
00004A70: 41 24 B2 22 58 22 A7 36 30 30 00 FD 19 3A 02 8B |A$."X".600...:..|
00004A80: 4F 24 B2 22 50 22 A7 89 36 30 30 00 3B 1A 44 02 |O$."P"..600.;.D.|
00004A90: 99 C8 28 59 24 2C 32 35 29 3B 22 12 46 31 92 20 |..(Y$,25);".F1. |
00004AA0: 4C 45 46 54 20 48 41 4C 46 2C 12 46 33 92 20 52 |LEFT HALF,.F3. R|
00004AB0: 49 47 48 54 20 48 41 4C 46 2C 12 46 37 92 20 43 |IGHT HALF,.F7. C|
00004AC0: 4F 4E 54 49 4E 55 45 22 3B 00 51 1A 4E 02 A1 41 |ONTINUE";.Q.N..A|
00004AD0: 41 24 3A 8B 20 41 41 24 B2 22 22 A7 35 39 30 00 |A$:. AA$."".590.|
00004AE0: 65 1A 4F 02 8B 41 41 24 B2 C7 28 31 33 36 29 A7 |e.O..AA$..(136).|
00004AF0: 36 30 30 00 81 1A 50 02 8B 41 41 24 B2 C7 28 31 |600...P..AA$..(1|
00004B00: 33 33 29 A7 8D 36 31 31 31 30 3A 89 35 38 30 00 |33)..61110:.580.|
00004B10: 9D 1A 51 02 8B 41 41 24 B2 C7 28 31 33 34 29 A7 |..Q..AA$..(134).|
00004B20: 8D 36 31 31 30 30 3A 89 35 38 30 00 A6 1A 52 02 |.61100:.580...R.|
00004B30: 89 35 39 30 00 C1 1A 58 02 99 22 93 22 3A 58 54 |.590...X..".":XT|
00004B40: B2 30 3A A0 32 3A A0 33 3A A0 34 3A A0 31 35 00 |.0:.2:.3:.4:.15.|
00004B50: F7 1A 62 02 99 C8 28 59 24 2C 36 29 3B 22 C4 4F |..b...(Y$,6);".O|
00004B60: 20 59 4F 55 20 57 41 4E 54 20 41 4E 4F 54 48 45 | YOU WANT ANOTHE|
00004B70: 52 20 52 45 50 4F 52 54 20 28 59 2F 4E 29 20 3F |R REPORT (Y/N) ?|
00004B80: 20 20 20 22 3B 00 29 1B 6C 02 58 25 B2 33 35 3A | ";.).l.X%.35:|
00004B90: 59 25 B2 36 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 |Y%.6:L%.1:.34000|
00004BA0: 3A 8B 49 4E 24 B3 B1 22 59 22 AF 49 4E 24 B3 B1 |:.IN$.."Y".IN$..|
00004BB0: 22 4E 22 A7 36 31 30 00 3A 1B 76 02 8B 49 4E 24 |"N".610.:.v..IN$|
00004BC0: B2 22 59 22 A7 33 32 35 00 45 1B 80 02 89 35 30 |."Y".325.E....50|
00004BD0: 30 30 30 00 79 1B BC 02 42 4C B2 B5 28 52 53 AC |000.y...BL..(RS.|
00004BE0: 28 49 4B AB 31 29 AD 42 53 29 AA 31 3A 4F 53 B2 |(IK.1).BS).1:OS.|
00004BF0: 28 52 53 AC 28 49 4B AB 31 29 29 AB 28 42 53 AC |(RS.(IK.1)).(BS.|
00004C00: 28 42 4C AB 31 29 29 00 97 1B C6 02 48 42 B2 B5 |(BL.1)).....HB..|
00004C10: 28 42 4C AD 32 35 36 29 3A 4C 42 B2 42 4C AB 32 |(BL.256):LB.BL.2|
00004C20: 35 36 AC 48 42 00 B5 1B D0 02 97 37 31 35 2C 4C |56.HB......715,L|
00004C30: 42 3A 97 37 31 36 2C 48 42 3A 97 37 31 31 2C 4F |B:.716,HB:.711,O|
00004C40: 53 AA 31 00 C1 1B DA 02 9E 20 35 30 31 30 36 00 |S.1...... 50106.|
00004C50: C7 1B EE 02 8E 00 E2 1B CF 07 8F 20 3D 3D 20 45 |........... == E|
00004C60: 4E 44 20 4F 46 20 53 45 43 20 52 54 4E 20 3D 3D |ND OF SEC RTN ==|
00004C70: 00 EE 1B D0 07 8B 43 53 B2 30 A7 8E 00 FB 1B D4 |......CS.0......|
00004C80: 07 43 4F B2 43 4F AA 43 53 00 0D 1C CC 09 8B 53 |.CO.CO.CS......S|
00004C90: 43 B2 4E 53 A7 4C 53 B2 30 3A 8E 00 13 1C CE 09 |C.NS.LS.0:......|
00004CA0: 8E 00 2E 1C 9F 0F 8F 20 3D 20 41 43 43 55 4D 20 |....... = ACCUM |
00004CB0: 53 45 43 54 20 54 4F 54 53 20 3D 3D 00 4E 1C A0 |SECT TOTS ==.N..|
00004CC0: 0F 8E 3A 8F 20 3D 3D 20 55 50 44 41 54 45 20 54 |..:. == UPDATE T|
00004CD0: 4F 54 41 4C 2C 4D 41 58 2C 4D 49 4E 00 54 1C A5 |OTAL,MAX,MIN.T..|
00004CE0: 0F 8E 00 6C 1C 6E 17 8F 20 3D 3D 20 41 43 43 45 |...l.n.. == ACCE|
00004CF0: 50 54 20 49 46 27 53 20 3D 3D 00 7B 1C 70 17 91 |PT IF'S ==.{.p..|
00004D00: 53 43 AB 30 89 36 35 30 30 00 86 1C 64 19 4D 45 |SC.0.6500...d.ME|
00004D10: 25 B2 AB 31 00 8C 1C 66 19 8E 00 A3 1C 57 1B 8F |%..1...f.....W..|
00004D20: 20 3D 3D 20 50 52 54 49 4E 47 20 52 54 4E 20 3D | == PRTING RTN =|
00004D30: 3D 00 B5 1C 58 1B 81 4C 4E B2 31 A4 4D 59 3A 46 |=...X..LN.1.MY:F|
00004D40: 4C B2 30 00 C2 1C 62 1B 81 49 B2 31 A4 43 54 25 |L.0...b..I.1.CT%|
00004D50: 00 E2 1C 6C 1B 8B 59 25 28 49 29 B2 4C 4E A7 46 |...l..Y%(I).LN.F|
00004D60: 4C B2 46 4C AA 31 3A 50 54 25 28 46 4C 29 B2 49 |L.FL.1:PT%(FL).I|
00004D70: 00 E9 1C 76 1B 82 49 00 FF 1C 80 1B 50 53 24 B2 |...v..I.....PS$.|
00004D80: 22 22 3A 8B 46 4C B2 30 A7 37 31 30 30 00 12 1D |"":.FL.0.7100...|
00004D90: 8A 1B 81 49 B2 31 A4 52 AB 31 3A 53 24 B2 22 22 |...I.1.R.1:S$.""|
00004DA0: 00 35 1D 94 1B 81 4A B2 31 A4 46 4C 3A 4A 49 25 |.5....J.1.FL:JI%|
00004DB0: B2 58 25 28 50 54 25 28 4A 29 29 AB C3 28 53 24 |.X%(PT%(J))..(S$|
00004DC0: 29 AB 31 00 58 1D 9E 1B 53 24 B2 53 24 AA C8 28 |).1.X...S$.S$..(|
00004DD0: 53 50 24 2C 4A 49 25 29 AA 46 44 24 28 50 54 25 |SP$,JI%).FD$(PT%|
00004DE0: 28 4A 29 2C 49 29 00 8E 1D A3 1B 8B 4A B3 46 4C |(J),I)......J.FL|
00004DF0: A7 8B 58 25 28 50 54 25 28 4A AA 31 29 29 B3 C3 |..X%(PT%(J.1))..|
00004E00: 28 53 24 29 A7 53 24 B2 C8 28 53 24 2C 58 25 28 |(S$).S$..(S$,X%(|
00004E10: 50 54 25 28 4A AA 31 29 29 AB 31 29 00 B0 1D A8 |PT%(J.1)).1)....|
00004E20: 1B 82 4A 3A 50 53 24 B2 50 53 24 AA 53 24 AA C8 |..J:PS$.PS$.S$..|
00004E30: 28 53 50 24 2C 4F 46 AB C3 28 53 24 29 29 00 B7 |(SP$,OF..(S$))..|
00004E40: 1D B2 1B 82 49 00 D4 1D BC 1B 50 53 24 B2 50 53 |....I.....PS$.PS|
00004E50: 24 AA C8 28 53 50 24 2C 38 30 AB C3 28 50 53 24 |$..(SP$,80..(PS$|
00004E60: 29 29 00 ED 1D C2 1B 8B 4F 24 B2 22 53 22 A7 8D |))......O$."S"..|
00004E70: 36 31 30 30 30 3A 89 37 31 32 30 00 F8 1D C6 1B |61000:.7120.....|
00004E80: 98 34 2C 50 53 24 00 02 1E D0 1B 82 4C 4E 3A 8E |.4,PS$......LN:.|
00004E90: 00 1D 1E 3F 1F 8F 20 3D 20 53 45 54 20 4F 55 54 |...?.. = SET OUT|
00004EA0: 50 55 54 20 46 4C 44 53 20 3D 3D 00 3B 1E 40 1F |PUT FLDS ==.;.@.|
00004EB0: 8F 20 3D 3D 20 20 53 45 54 20 4F 55 54 50 55 54 |. == SET OUTPUT|
00004EC0: 20 41 52 52 41 59 20 3D 3D 00 4E 1E 42 1F 46 44 | ARRAY ==.N.B.FD|
00004ED0: 24 28 32 2C 52 29 B2 46 24 28 33 29 00 61 1E 46 |$(2,R).F$(3).a.F|
00004EE0: 1F 46 44 24 28 34 2C 52 29 B2 46 24 28 34 29 00 |.FD$(4,R).F$(4).|
00004EF0: 74 1E 4A 1F 46 44 24 28 36 2C 52 29 B2 46 24 28 |t.J.FD$(6,R).F$(|
00004F00: 35 29 00 A0 1E 4E 1F 46 57 B2 34 3A 44 50 B2 30 |5)...N.FW.4:DP.0|
00004F10: 3A 44 4F 24 B2 46 24 28 31 29 3A 8D 33 36 30 30 |:DO$.F$(1):.3600|
00004F20: 30 3A 46 44 24 28 38 2C 52 29 B2 44 4F 24 00 B4 |0:FD$(8,R).DO$..|
00004F30: 1E 52 1F 46 44 24 28 31 30 2C 52 29 B2 46 24 28 |.R.FD$(10,R).F$(|
00004F40: 32 29 00 BA 1E 54 1F 8E 00 D3 1E 27 23 8F 20 3D |2)...T.....'#. =|
00004F50: 3D 20 4E 45 57 20 50 41 47 45 20 52 54 4E 20 3D |= NEW PAGE RTN =|
00004F60: 3D 00 E6 1E 28 23 8B 20 4F 24 B2 22 50 22 A7 20 |=...(#. O$."P". |
00004F70: 39 30 33 30 00 1B 1F 30 23 99 C8 28 59 24 2C 32 |9030...0#..(Y$,2|
00004F80: 34 29 22 C5 4E 54 45 52 20 12 58 92 20 54 4F 20 |4)".NTER .X. TO |
00004F90: 45 58 49 54 20 52 45 50 4F 52 54 20 49 4E 20 50 |EXIT REPORT IN P|
00004FA0: 52 4F 47 52 45 53 53 2E 22 00 59 1F 32 23 99 C8 |ROGRESS.".Y.2#..|
00004FB0: 28 59 24 2C 32 35 29 3B 22 12 46 31 92 20 4C 45 |(Y$,25);".F1. LE|
00004FC0: 46 54 20 48 41 4C 46 2C 12 46 33 92 20 52 49 47 |FT HALF,.F3. RIG|
00004FD0: 48 54 20 48 41 4C 46 2C 12 46 37 92 20 43 4F 4E |HT HALF,.F7. CON|
00004FE0: 54 49 4E 55 45 22 3B 00 6F 1F 37 23 A1 41 41 24 |TINUE";.o.7#.AA$|
00004FF0: 3A 8B 41 41 24 B2 22 22 A7 39 30 31 35 00 84 1F |:.AA$."".9015...|
00005000: 3A 23 8B 41 41 24 B2 22 58 22 A7 99 22 93 22 3B |:#.AA$."X"..".";|
00005010: 3A 8E 00 A5 1F 3C 23 8B 41 41 24 B2 C7 28 31 33 |:....<#.AA$..(13|
00005020: 36 29 A7 99 22 93 22 3B 3A 58 54 B2 30 3A 89 39 |6)..".";:XT.0:.9|
00005030: 30 34 30 00 C2 1F 3D 23 8B 41 41 24 B2 C7 28 31 |040...=#.AA$..(1|
00005040: 33 33 29 A7 8D 36 31 31 31 30 3A 89 39 30 30 38 |33)..61110:.9008|
00005050: 00 DF 1F 3E 23 8B 41 41 24 B2 C7 28 31 33 34 29 |...>#.AA$..(134)|
00005060: A7 8D 36 31 31 30 30 3A 89 39 30 30 38 00 E9 1F |..61100:.9008...|
00005070: 40 23 89 39 30 31 35 00 F7 1F 46 23 8B A8 4C 53 |@#.9015...F#..LS|
00005080: A7 39 30 34 30 00 0D 20 50 23 4C 53 B2 AB 31 3A |.9040.. P#LS..1:|
00005090: 48 43 B2 30 3A 52 43 B2 30 3A 8E 00 25 20 8B 23 |HC.0:RC.0:..% .#|
000050A0: 8F 20 3D 3D 20 50 41 47 45 20 48 45 41 44 45 52 |. == PAGE HEADER|
000050B0: 20 3D 3D 00 35 20 8C 23 48 43 B2 30 3A 52 43 B2 | ==.5 .#HC.0:RC.|
000050C0: 30 3A 8E 00 4B 20 0F 27 8F 20 3D 3D 20 54 45 53 |0:..K .'. == TES|
000050D0: 54 20 50 41 47 45 20 3D 3D 00 6D 20 10 27 81 49 |T PAGE ==.m .'.I|
000050E0: B2 31 A4 4E 46 3A 46 24 28 49 29 B2 C8 28 47 42 |.1.NF:F$(I)..(GB|
000050F0: 24 2C 4C 25 28 49 29 29 3A 82 49 00 82 20 1A 27 |$,L%(I)):.I.. .'|
00005100: 81 52 B2 31 A4 4C 52 3A 8D 38 30 30 30 3A 82 52 |.R.1.LR:.8000:.R|
00005110: 00 BE 20 4C 27 99 22 93 D3 45 54 20 50 52 49 4E |.. L'."..ET PRIN|
00005120: 54 45 52 20 54 4F 20 54 4F 50 20 4F 46 20 46 4F |TER TO TOP OF FO|
00005130: 52 4D 20 41 4E 44 20 50 52 45 53 53 20 20 20 20 |RM AND PRESS |
00005140: 20 20 20 12 D2 C5 D4 D5 D2 CE 92 22 00 D9 20 56 | ........".. V|
00005150: 27 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 |'.AA$:.AA$...(13|
00005160: 29 A7 31 30 30 37 30 00 F0 20 60 27 8D 39 31 30 |).10070.. `'.910|
00005170: 30 3A 8F 20 3D 3D 20 50 52 54 20 48 44 52 00 05 |0:. == PRT HDR..|
00005180: 21 6A 27 81 4B B2 31 A4 52 50 3A 8D 37 30 30 30 |!j'.K.1.RP:.7000|
00005190: 3A 82 4B 00 20 21 88 27 8B 53 41 B3 B1 37 A7 98 |:.K. !.'.SA..7..|
000051A0: 34 2C C7 28 31 32 29 3A 89 31 30 31 33 30 00 4A |4,.(12):.10130.J|
000051B0: 21 8A 27 4C 49 B2 52 50 AC 4D 59 AA 48 48 3A 8B |!.'LI.RP.MY.HH:.|
000051C0: 4C 49 B3 36 36 A7 81 49 54 B2 31 A4 36 36 AB 4C |LI.66..IT.1.66.L|
000051D0: 49 3A 98 34 3A 82 49 54 00 70 21 92 27 99 20 22 |I:.4:.IT.p!.'. "|
000051E0: 93 11 11 20 C1 4E 4F 54 48 45 52 20 54 45 53 54 |... .NOTHER TEST|
000051F0: 20 50 41 47 45 20 3F 28 59 2F 4E 29 22 3B 00 93 | PAGE ?(Y/N)";..|
00005200: 21 97 27 58 25 B2 32 36 3A 59 25 B2 33 3A 4C 25 |!.'X%.26:Y%.3:L%|
00005210: B2 31 3A 8D 33 34 30 30 30 3A 54 50 24 B2 49 4E |.1:.34000:TP$.IN|
00005220: 24 00 B0 21 9C 27 8B 54 50 24 B3 B1 22 59 22 AF |$..!.'.TP$.."Y".|
00005230: 54 50 24 B3 B1 22 4E 22 A7 31 30 31 33 30 00 C3 |TP$.."N".10130..|
00005240: 21 A6 27 8B 54 50 24 B2 22 59 22 A7 31 30 30 36 |!.'.TP$."Y".1006|
00005250: 30 00 C9 21 B0 27 8E 00 E8 21 F7 2A 8F 20 3D 3D |0..!.'...!.*. ==|
00005260: 20 47 52 44 20 54 4F 54 20 4F 55 54 50 55 54 20 | GRD TOT OUTPUT |
00005270: 52 54 4E 20 3D 3D 00 FC 21 F8 2A 8F 20 3D 3D 20 |RTN ==..!.*. == |
00005280: 45 4E 44 20 52 45 50 4F 52 54 00 3C 22 0C 2B 50 |END REPORT.<".+P|
00005290: 53 24 B2 22 C5 CE C4 20 CF C6 20 D2 C5 D0 CF D2 |S$."... .. .....|
000052A0: D4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000052B0: 20 20 20 20 20 20 20 20 20 20 20 20 C5 CE C4 20 | ... |
000052C0: CF C6 20 D2 C5 D0 CF D2 D4 22 00 5E 22 0E 2B 98 |.. ......".^".+.|
000052D0: 34 3A 98 34 3A 8B 4F 24 B2 22 53 22 A7 8D 36 32 |4:.4:.O$."S"..62|
000052E0: 30 30 30 3A 8D 36 31 30 30 30 3A 8E 00 69 22 0F |000:.61000:..i".|
000052F0: 2B 98 34 2C 50 53 24 00 97 22 10 2B 4C 49 B2 AB |+.4,PS$..".+LI..|
00005300: 50 52 AC 28 52 43 AA 4C 45 29 AC 4D 59 AA 48 48 |PR.(RC.LE).MY.HH|
00005310: AA 33 3A 81 49 54 B2 31 A4 36 36 AB 4C 49 3A 98 |.3:.IT.1.66.LI:.|
00005320: 34 3A 82 49 54 00 9D 22 16 2B 8E 00 BC 22 DF 2E |4:.IT..".+..."..|
00005330: 8F 20 3D 3D 20 43 4F 4E 56 45 52 54 20 54 4F 20 |. == CONVERT TO |
00005340: 43 4F 4D 50 41 52 45 20 3D 3D 00 C2 22 E0 2E 8E |COMPARE ==.."...|
00005350: 00 DC 22 67 42 8F 20 3D 3D 20 4D 41 49 4E 20 49 |.."gB. == MAIN I|
00005360: 4E 49 54 20 52 54 4E 20 3D 3D 00 F9 22 68 42 81 |NIT RTN ==.."hB.|
00005370: 49 B2 31 A4 43 54 25 3A 87 58 25 28 49 29 2C 59 |I.1.CT%:.X%(I),Y|
00005380: 25 28 49 29 3A 82 49 00 18 23 72 42 87 48 44 24 |%(I):.I..#rB.HD$|
00005390: 3A 87 48 31 24 3A 48 44 24 B2 48 44 24 AA 48 31 |:.H1$:HD$.HD$.H1|
000053A0: 24 3A 87 50 48 24 00 48 23 77 42 81 49 B2 31 A4 |$:.PH$.H#wB.I.1.|
000053B0: 4E 53 3A 87 50 46 28 49 29 2C 50 53 28 49 29 3A |NS:.PF(I),PS(I):|
000053C0: 82 49 3A 8F 20 49 46 20 4E 4F 20 50 52 54 3A 50 |.I:. IF NO PRT:P|
000053D0: 46 2C 50 53 3D 30 00 65 23 7C 42 81 49 B2 31 A4 |F,PS=0.e#|B.I.1.|
000053E0: 43 54 25 3A 87 46 2C 4B 3A 8B 46 B2 30 A7 31 37 |CT%:.F,K:.F.0.17|
000053F0: 30 35 30 00 84 23 86 42 87 54 58 24 3A 8B 4B B2 |050..#.B.TX$:.K.|
00005400: 32 A7 87 54 31 24 3A 54 58 24 B2 54 58 24 AA 54 |2..T1$:TX$.TX$.T|
00005410: 31 24 00 A3 23 90 42 81 52 B2 31 A4 4C 52 3A 46 |1$..#.B.R.1.LR:F|
00005420: 44 24 28 46 2C 52 29 B2 54 58 24 3A 82 52 3A 82 |D$(F,R).TX$:.R:.|
00005430: 49 00 A9 23 9A 42 8E 00 DB 23 5C 44 83 35 2C 32 |I..#.B...#\D.5,2|
00005440: 2C 31 39 2C 32 2C 35 2C 33 2C 31 31 2C 33 2C 35 |,19,2,5,3,11,3,5|
00005450: 2C 34 2C 31 35 2C 34 2C 35 2C 35 2C 31 38 2C 35 |,4,15,4,5,5,18,5|
00005460: 2C 35 2C 36 2C 31 36 2C 36 00 E3 23 60 44 83 22 |,5,6,16,6..#`D."|
00005470: 22 00 EB 23 62 44 83 22 22 00 F3 23 64 44 83 22 |"..#bD.""..#dD."|
00005480: 22 00 FF 23 6C 44 83 2D 31 20 2C 20 30 00 18 24 |"..#lD.-1 , 0..$|
00005490: 70 44 83 31 2C 31 2C 22 D0 52 4F 47 52 41 4D 20 |pD.1,1,".ROGRAM |
000054A0: CE 41 4D 45 3A 22 00 29 24 72 44 83 33 2C 31 2C |.AME:".)$rD.3,1,|
000054B0: 22 D4 59 50 45 3A 22 00 3E 24 74 44 83 35 2C 31 |".YPE:".>$tD.5,1|
000054C0: 2C 22 C3 41 54 41 47 4F 52 59 3A 22 00 56 24 76 |,".ATAGORY:".V$v|
000054D0: 44 83 37 2C 31 2C 22 C4 49 53 4B 20 CE 55 4D 42 |D.7,1,".ISK .UMB|
000054E0: 45 52 3A 22 00 6C 24 78 44 83 39 2C 31 2C 22 C4 |ER:".l$xD.9,1,".|
000054F0: 49 53 4B 20 CE 41 4D 45 3A 22 00 75 24 7A 44 83 |ISK .AME:".u$zD.|
00005500: 30 2C 30 00 8B 24 4F 46 8F 20 3D 3D 20 53 45 43 |0,0..$OF. == SEC|
00005510: 54 20 49 4E 49 54 20 3D 3D 00 C1 24 50 46 8B 53 |T INIT ==..$PF.S|
00005520: 53 25 B1 30 A7 81 5A B2 31 A4 53 53 25 3A 54 54 |S%.0..Z.1.SS%:TT|
00005530: 28 5A 29 B2 30 3A 4D 58 28 5A 29 B2 AB 31 45 33 |(Z).0:MX(Z)..1E3|
00005540: 32 3A 4D 4E 28 5A 29 B2 31 45 33 32 3A 82 5A 00 |2:MN(Z).1E32:.Z.|
00005550: CA 24 5F 46 43 53 B2 30 00 F8 24 64 46 8B 28 50 |.$_FCS.0..$dF.(P|
00005560: 46 28 53 43 29 AF 53 43 B1 31 AF 54 53 28 53 43 |F(SC).SC.1.TS(SC|
00005570: AB 31 29 29 B0 46 4C 47 25 A7 8D 39 30 30 30 3A |.1)).FLG%..9000:|
00005580: 89 31 38 30 33 30 00 1E 25 69 46 8B 20 50 46 28 |.18030..%iF. PF(|
00005590: 53 43 29 20 AF 20 53 43 B1 31 20 AF A8 20 54 53 |SC) . SC.1 .. TS|
000055A0: 28 53 43 AB 31 29 A7 8D 39 31 30 30 00 2B 25 6E |(SC.1)..9100.+%n|
000055B0: 46 46 4C 47 25 B2 30 3A 8E 00 4D 25 37 4A 8F 20 |FFLG%.0:..M%7J. |
000055C0: 3D 3D 20 52 45 41 44 20 53 43 52 20 26 20 47 4C |== READ SCR & GL|
000055D0: 42 4C 20 46 49 4C 45 53 20 3D 3D 00 77 25 38 4A |BL FILES ==.w%8J|
000055E0: 4E 4D 24 B2 53 46 24 AA 22 2F 53 22 3A 52 53 B2 |NM$.SF$."/S":RS.|
000055F0: 30 3A 8D 36 30 30 30 30 3A 8B 45 52 B3 32 30 A7 |0:.60000:.ER.20.|
00005600: 31 39 31 37 30 00 A8 25 A6 4A 99 20 22 93 11 11 |19170..%.J. "...|
00005610: 11 20 20 20 20 20 12 22 3B 53 46 24 3B 22 92 20 |. .";SF$;". |
00005620: 53 43 52 45 45 4E 20 46 49 4C 45 20 4E 4F 54 20 |SCREEN FILE NOT |
00005630: 46 4F 55 4E 44 22 00 EE 25 B0 4A 99 20 22 11 11 |FOUND"..%.J. "..|
00005640: 20 20 CD 41 4B 45 20 53 55 52 45 20 54 48 45 20 | .AKE SURE THE |
00005650: 12 20 41 50 50 4C 49 43 41 54 49 4F 4E 20 92 20 |. APPLICATION . |
00005660: 44 49 53 4B 20 20 20 20 20 20 20 20 11 49 53 20 |DISK .IS |
00005670: 49 4E 20 44 52 49 56 45 20 30 2E 22 00 28 26 BA |IN DRIVE 0.".(&.|
00005680: 4A 99 C8 28 59 24 2C 32 34 29 22 20 D0 52 45 53 |J..(Y$,24)" .RES|
00005690: 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F |S ........ TO CO|
000056A0: 4E 54 49 4E 55 45 2C 20 12 46 31 92 20 54 4F 20 |NTINUE, .F1. TO |
000056B0: 45 58 49 54 2E 22 00 4F 26 C4 4A A1 41 41 24 3A |EXIT.".O&.J.AA$:|
000056C0: 8B 41 41 24 B3 B1 C7 28 31 33 29 AF 41 41 24 B3 |.AA$...(13).AA$.|
000056D0: B1 C7 28 31 33 33 29 A7 31 39 31 34 30 00 64 26 |..(133).19140.d&|
000056E0: CE 4A 8B 41 41 24 B2 C7 28 31 33 29 A7 31 39 30 |.J.AA$..(13).190|
000056F0: 30 30 00 75 26 D8 4A 89 35 30 30 30 30 3A 8F 20 |00.u&.J.50000:. |
00005700: 45 4E 44 00 94 26 E2 4A 9F 34 2C 38 2C 34 2C 22 |END..&.J.4,8,4,"|
00005710: 30 3A 22 AA 53 46 24 AA 22 2F 53 22 3A 84 34 2C |0:".SF$."/S":.4,|
00005720: 4E 46 00 D7 26 EC 4A 81 49 B2 31 A4 4E 46 3A 84 |NF..&.J.I.1.NF:.|
00005730: 34 2C 50 52 24 2C 58 25 2C 59 25 2C 4C 25 28 49 |4,PR$,X%,Y%,L%(I|
00005740: 29 2C 54 24 3A 52 53 B2 52 53 AA 4C 25 28 49 29 |),T$:RS.RS.L%(I)|
00005750: AA 31 3A 46 24 28 49 29 B2 C8 28 53 50 24 2C 4C |.1:F$(I)..(SP$,L|
00005760: 25 28 49 29 29 00 E1 26 F6 4A 82 49 3A A0 34 00 |%(I))..&.J.I:.4.|
00005770: 12 27 00 4B 42 53 B2 AB 32 35 34 AC 28 52 53 B1 |.'.KBS..254.(RS.|
00005780: 32 35 33 29 AB 52 53 AC 28 52 53 B3 32 35 34 29 |253).RS.(RS.254)|
00005790: 3A 97 37 31 30 2C 42 53 3A 97 37 30 39 2C 4E 46 |:.710,BS:.709,NF|
000057A0: 00 22 27 0A 4B 8B 4E 47 B2 30 A7 31 39 33 30 30 |."'.K.NG.0.19300|
000057B0: 00 4A 27 14 4B 4E 4D 24 B2 53 46 24 AA 22 2F 47 |.J'.KNM$.SF$."/G|
000057C0: 4C 42 22 3A 8D 36 30 30 30 35 3A 8B 20 45 52 B3 |LB":.60005:. ER.|
000057D0: 32 30 A7 31 39 32 39 30 00 79 27 1E 4B 99 22 93 |20.19290.y'.K.".|
000057E0: 11 11 20 20 20 20 20 12 22 3B 53 46 24 3B 22 92 |.. .";SF$;".|
000057F0: 20 47 4C 4F 42 41 4C 20 46 49 4C 45 20 4E 4F 54 | GLOBAL FILE NOT|
00005800: 20 46 4F 55 4E 44 22 00 C0 27 28 4B 99 20 22 11 | FOUND"..'(K. ".|
00005810: 11 20 20 20 CD 41 4B 45 20 53 55 52 45 20 54 48 |. .AKE SURE TH|
00005820: 45 20 12 20 44 41 54 41 20 92 20 44 49 53 4B 20 |E . DATA . DISK |
00005830: 49 53 20 49 4E 20 20 20 20 20 20 20 20 20 11 44 |IS IN .D|
00005840: 52 49 56 45 20 22 3B 44 4E 24 3B 22 2E 22 00 FA |RIVE ";DN$;"."..|
00005850: 27 32 4B 99 C8 28 59 24 2C 32 34 29 22 20 D0 52 |'2K..(Y$,24)" .R|
00005860: 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 |ESS ........ TO |
00005870: 43 4F 4E 54 49 4E 55 45 2C 20 12 46 31 92 20 54 |CONTINUE, .F1. T|
00005880: 4F 20 45 58 49 54 2E 22 00 21 28 3C 4B A1 41 41 |O EXIT.".!(<K.AA|
00005890: 24 3A 8B 41 41 24 B3 B1 C7 28 31 33 29 AF 41 41 |$:.AA$...(13).AA|
000058A0: 24 B3 B1 C7 28 31 33 33 29 A7 31 39 32 36 30 00 |$...(133).19260.|
000058B0: 36 28 46 4B 8B 41 41 24 B2 C7 28 31 33 29 A7 31 |6(FK.AA$..(13).1|
000058C0: 39 32 32 30 00 47 28 50 4B 89 35 30 30 30 30 3A |9220.G(PK.50000:|
000058D0: 8F 20 45 4E 44 00 62 28 5A 4B 9F 34 2C 44 56 2C |. END.b(ZK.4,DV,|
000058E0: 34 2C 44 56 24 AA 53 46 24 AA 22 2F 47 4C 42 22 |4,DV$.SF$."/GLB"|
000058F0: 00 89 28 5F 4B 81 49 B2 31 A4 4E 47 3A 84 34 2C |..(_K.I.1.NG:.4,|
00005900: 47 4C 24 3A 47 4C 28 49 29 B2 C5 28 47 4C 24 29 |GL$:GL(I)..(GL$)|
00005910: 3A 82 20 49 3A A0 34 00 AD 28 64 4B 4E 4D 24 B2 |:. I:.4..(dKNM$.|
00005920: 53 46 24 AA 22 2F 49 4E 44 58 22 3A 8D 36 30 30 |SF$."/INDX":.600|
00005930: 30 35 3A 8B 45 52 B3 32 30 A7 8E 00 DF 28 6E 4B |05:.ER.20....(nK|
00005940: 99 22 93 11 11 20 20 20 D9 4F 55 20 44 4F 20 4E |."... .OU DO N|
00005950: 4F 54 20 48 41 56 45 20 41 20 53 4F 52 54 45 44 |OT HAVE A SORTED|
00005960: 20 49 4E 44 45 58 20 46 49 4C 45 20 22 00 08 29 | INDEX FILE "..)|
00005970: 78 4B 99 22 20 20 4F 4E 20 54 48 49 53 20 44 49 |xK." ON THIS DI|
00005980: 53 4B 2E 20 C9 4E 20 4F 52 44 45 52 20 54 4F 20 |SK. .N ORDER TO |
00005990: 52 55 4E 20 41 22 00 33 29 82 4B 99 22 20 20 52 |RUN A".3).K." R|
000059A0: 45 50 4F 52 54 20 50 52 4F 47 52 41 4D 2C 20 59 |EPORT PROGRAM, Y|
000059B0: 4F 55 20 CD D5 D3 D4 20 52 55 4E 20 53 4F 52 54 |OU .... RUN SORT|
000059C0: 22 00 4C 29 8C 4B 99 22 20 20 54 48 45 20 C6 C9 |".L).K." THE ..|
000059D0: D2 D3 D4 20 54 49 4D 45 2E 22 00 93 29 96 4B 99 |... TIME."..).K.|
000059E0: 22 11 20 20 20 C9 46 20 59 4F 55 20 48 41 56 45 |". .F YOU HAVE|
000059F0: 20 53 4F 52 54 45 44 20 54 48 45 4E 20 49 4E 53 | SORTED THEN INS|
00005A00: 45 52 54 20 54 48 45 20 20 20 20 20 44 49 53 4B |ERT THE DISK|
00005A10: 20 43 4F 4E 54 41 49 4E 49 4E 47 20 54 48 45 22 | CONTAINING THE"|
00005A20: 3B 00 D5 29 98 4B 99 22 20 54 48 45 20 12 20 44 |;..).K." THE . D|
00005A30: 41 54 41 20 92 20 46 49 4C 45 20 20 20 20 20 41 |ATA . FILE A|
00005A40: 4E 44 20 53 4F 52 54 45 44 20 46 49 4C 45 20 28 |ND SORTED FILE (|
00005A50: 49 4E 44 58 29 20 49 4E 20 44 52 49 56 45 20 22 |INDX) IN DRIVE "|
00005A60: 44 4E 24 00 17 2A 9A 4B 99 22 20 20 41 4E 44 20 |DN$..*.K." AND |
00005A70: 50 52 45 53 53 20 52 45 54 55 52 4E 2E 20 CF 54 |PRESS RETURN. .T|
00005A80: 48 45 52 57 49 53 45 20 43 48 4F 4F 53 45 20 20 |HERWISE CHOOSE |
00005A90: 20 20 20 20 54 48 45 20 53 4F 52 54 20 4F 50 54 | THE SORT OPT|
00005AA0: 49 4F 4E 2E 22 00 3F 2A 9B 4B 99 22 11 20 20 20 |ION.".?*.K.". |
00005AB0: 20 20 20 20 12 2A 2A 2A 20 49 4D 50 4F 52 54 41 | .*** IMPORTA|
00005AC0: 4E 54 20 4E 4F 54 45 20 2A 2A 2A 92 22 00 84 2A |NT NOTE ***."..*|
00005AD0: 9C 4B 99 22 11 20 20 20 D7 48 45 4E 20 52 55 4E |.K.". .HEN RUN|
00005AE0: 4E 49 4E 47 20 53 4F 52 54 20 4D 41 4B 45 20 53 |NING SORT MAKE S|
00005AF0: 55 52 45 20 54 48 45 22 3A 99 22 20 20 50 52 4F |URE THE":." PRO|
00005B00: 47 52 41 4D 20 12 52 54 4C 2D 36 34 92 20 49 53 |GRAM .RTL-64. IS|
00005B10: 22 3B 00 B7 2A 9D 4B 99 22 20 4F 4E 20 54 48 45 |";..*.K." ON THE|
00005B20: 20 53 41 4D 45 20 44 49 53 4B 20 20 20 20 20 20 | SAME DISK |
00005B30: 41 53 20 54 48 45 20 53 4F 52 54 20 50 52 4F 47 |AS THE SORT PROG|
00005B40: 52 41 4D 2E 22 00 E5 2A A0 4B 99 C8 28 59 24 2C |RAM."..*.K..(Y$,|
00005B50: 32 34 29 22 20 20 20 D0 52 45 53 53 20 12 D2 45 |24)" .RESS ..E|
00005B60: 54 55 52 4E 92 20 54 4F 20 43 4F 4E 54 49 4E 55 |TURN. TO CONTINU|
00005B70: 45 2C 22 00 0B 2B A2 4B 99 22 20 20 20 12 46 31 |E,"..+.K." .F1|
00005B80: 92 20 54 4F 20 53 4F 52 54 2C 20 12 46 33 92 20 |. TO SORT, .F3. |
00005B90: 54 4F 20 45 58 49 54 22 3B 00 22 2B A5 4B A1 41 |TO EXIT";."+.K.A|
00005BA0: 41 24 3A 8B 41 41 24 B2 22 22 A7 31 39 33 36 35 |A$:.AA$."".19365|
00005BB0: 00 37 2B AA 4B 8B 41 41 24 B2 C7 28 31 33 29 A7 |.7+.K.AA$..(13).|
00005BC0: 31 39 33 30 30 00 4D 2B AC 4B 8B 41 41 24 B2 C7 |19300.M+.K.AA$..|
00005BD0: 28 31 33 33 29 A7 9C 3A 89 38 35 00 64 2B AE 4B |(133)..:.85.d+.K|
00005BE0: 8B 41 41 24 B3 B1 C7 28 31 33 34 29 A7 31 39 33 |.AA$...(134).193|
00005BF0: 36 35 00 76 2B B4 4B 89 20 35 30 30 30 30 3A 8F |65.v+.K. 50000:.|
00005C00: 20 45 4E 44 00 7C 2B BE 4B 8E 00 92 2B 5F 6D 8F | END.|+.K...+_m.|
00005C10: 20 3D 3D 20 43 41 4C 43 20 50 43 27 53 20 3D 3D | == CALC PC'S ==|
00005C20: 00 98 2B 60 6D 8E 00 B7 2B CF 84 8F 20 3D 3D 20 |..+`m...+... == |
00005C30: 4B 45 59 42 4F 41 52 44 20 49 4E 50 55 54 20 52 |KEYBOARD INPUT R|
00005C40: 54 4E 20 3D 3D 00 DD 2B D0 84 49 4E 24 B2 22 22 |TN ==..+..IN$.""|
00005C50: 3A 4A B2 31 3A 41 44 B2 31 30 32 34 AA 28 59 25 |:J.1:AD.1024.(Y%|
00005C60: AB 31 29 AC 34 30 AA 58 25 AB 31 00 FC 2B D5 84 |.1).40.X%.1..+..|
00005C70: 99 20 C8 28 59 24 2C 59 25 29 3B A6 58 25 29 3B |. .(Y$,Y%);.X%);|
00005C80: C8 28 53 50 24 2C 4C 25 29 3B 00 13 2C DA 84 97 |.(SP$,L%);..,...|
00005C90: 20 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 B0 31 32 | AD.J,.(AD.J).12|
00005CA0: 38 00 2B 2C EE 84 A1 20 49 24 3A 8B 20 49 24 B2 |8.+,... I$:. I$.|
00005CB0: 22 22 A7 20 33 34 30 33 30 00 42 2C F0 84 8B 20 |"". 34030.B,... |
00005CC0: 49 24 B2 C7 28 33 34 29 20 A7 20 33 34 30 33 30 |I$..(34) . 34030|
00005CD0: 00 62 2C F3 84 49 49 B2 C6 28 49 24 29 3A 8B 20 |.b,..II..(I$):. |
00005CE0: 49 49 B2 32 37 20 A7 20 49 4E 24 B2 49 24 3A 8E |II.27 . IN$.I$:.|
00005CF0: 00 9D 2C F8 84 8B 28 49 49 B3 33 32 AF 49 49 B3 |..,...(II.32.II.|
00005D00: B1 32 30 AF 49 49 B3 B1 31 33 29 B0 28 49 49 B1 |.20.II..13).(II.|
00005D10: 31 32 38 AF 49 49 B3 31 39 32 29 B0 28 49 49 B1 |128.II.192).(II.|
00005D20: 32 31 38 29 A7 20 33 34 30 31 30 00 B2 2C FD 84 |218). 34010..,..|
00005D30: 8B 20 49 49 B3 B1 32 30 20 A7 20 33 34 30 37 30 |. II..20 . 34070|
00005D40: 00 C1 2C 02 85 8B 4A B2 31 A7 33 34 30 31 30 00 |..,...J.1.34010.|
00005D50: FD 2C 0C 85 4A B2 4A AB 31 3A 49 4E 24 B2 C8 28 |.,..J.J.1:IN$..(|
00005D60: 49 4E 24 2C 4A AB 31 29 3A 49 24 B2 22 20 22 3A |IN$,J.1):I$." ":|
00005D70: 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 AA 4A 29 |..(Y$,Y%);.X%.J)|
00005D80: 3B 49 24 3B 3A 89 33 34 30 39 30 00 20 2D 16 85 |;I$;:.34090. -..|
00005D90: 8B 20 49 49 B2 31 33 20 A7 20 97 41 44 AA 4A 2C |. II.13 . .AD.J,|
00005DA0: C2 28 41 44 AA 4A 29 AF 20 31 32 37 3A 8E 00 2F |.(AD.J). 127:../|
00005DB0: 2D 20 85 49 4E 24 B2 49 4E 24 AA 49 24 00 49 2D |- .IN$.IN$.I$.I-|
00005DC0: 2A 85 99 C8 28 59 24 2C 59 25 29 3B A6 58 25 AA |*...(Y$,Y%);.X%.|
00005DD0: 4A AB 31 29 3B 49 24 00 6D 2D 34 85 8B 4A B2 4C |J.1);I$.m-4..J.L|
00005DE0: 25 A7 49 4E 24 B2 C8 28 49 4E 24 2C 4A AB 31 29 |%.IN$..(IN$,J.1)|
00005DF0: AA 49 24 3A 89 20 33 34 30 31 30 00 7F 2D 3E 85 |.I$:. 34010..->.|
00005E00: 8B 49 49 B3 B1 32 30 A7 4A B2 4A AA 31 00 8A 2D |.II..20.J.J.1..-|
00005E10: 48 85 89 33 34 30 31 30 00 B0 2D B8 88 99 C7 28 |H..34010..-....(|
00005E20: 31 34 37 29 3A 99 22 D7 48 41 54 20 49 53 20 54 |147):.".HAT IS T|
00005E30: 4F 44 41 59 27 53 20 44 41 54 45 20 3F 22 00 D1 |ODAY'S DATE ?"..|
00005E40: 2D BA 88 58 25 B2 32 33 3A 59 25 B2 32 3A 8D 34 |-..X%.23:Y%.2:.4|
00005E50: 39 30 30 30 3A 56 44 24 28 31 29 B2 49 4E 24 00 |9000:VD$(1).IN$.|
00005E60: D7 2D CC 88 8E 00 FA 2D 9F 8C 8F 20 3D 3D 20 4E |.-.....-... == N|
00005E70: 55 4D 45 52 49 43 20 46 4C 44 20 46 4F 52 4D 41 |UMERIC FLD FORMA|
00005E80: 54 54 49 4E 47 20 3D 3D 00 17 2E A0 8C 8B 54 50 |TTING ==......TP|
00005E90: 24 B2 22 59 22 A7 44 4F 24 B2 C8 28 47 42 24 2C |$."Y".DO$..(GB$,|
00005EA0: 46 57 29 3A 8E 00 45 2E A4 8C 44 4F 24 B2 C4 28 |FW):..E...DO$..(|
00005EB0: C5 28 44 4F 24 29 29 3A 8B 20 C8 28 C9 28 44 4F |.(DO$)):. .(.(DO|
00005EC0: 24 2C 34 29 2C 31 29 B2 22 45 22 20 A7 20 33 36 |$,4),1)."E" . 36|
00005ED0: 30 39 30 00 70 2E A5 8C 44 4F 24 B2 C4 28 B5 28 |090.p...DO$..(.(|
00005EE0: C5 28 44 4F 24 29 AC B5 28 31 30 AE 44 50 29 AA |.(DO$)..(10.DP).|
00005EF0: 30 2E 35 29 AD B5 28 31 30 AE 44 50 29 29 00 8C |0.5)..(10.DP))..|
00005F00: 2E A6 8C 8B C5 28 44 4F 24 29 B1 B2 30 A7 44 4F |.....(DO$)..0.DO|
00005F10: 24 B2 CA 28 44 4F 24 2C 32 29 00 99 2E A7 8C 4C |$..(DO$,2).....L|
00005F20: B2 C3 28 44 4F 24 29 00 A9 2E AA 8C 8B 44 50 B2 |..(DO$)......DP.|
00005F30: 30 A7 33 36 30 38 30 00 CA 2E B4 8C 81 4A B2 31 |0.36080......J.1|
00005F40: A4 4C 3A 8B CA 28 44 4F 24 2C 4A 2C 31 29 B2 22 |.L:..(DO$,J,1)."|
00005F50: 2E 22 A7 33 36 30 34 30 00 D1 2E BE 8C 82 4A 00 |.".36040......J.|
00005F60: E1 2E C8 8C 8B 4A B3 B2 4C A7 33 36 30 36 30 00 |.....J..L.36060.|
00005F70: 01 2F D2 8C 44 4F 24 B2 44 4F 24 AA 22 2E 22 AA |./..DO$.DO$.".".|
00005F80: C8 28 5A 24 2C 44 50 29 3A 89 33 36 30 37 30 00 |.(Z$,DP):.36070.|
00005F90: 1C 2F DC 8C 44 4F 24 B2 44 4F 24 AA C8 28 5A 24 |./..DO$.DO$..(Z$|
00005FA0: 2C 44 50 AB 28 4C AB 4A 29 29 00 31 2F E6 8C 8B |,DP.(L.J)).1/...|
00005FB0: 4A B2 31 A7 44 4F 24 B2 22 30 22 AA 44 4F 24 00 |J.1.DO$."0".DO$.|
00005FC0: 51 2F F0 8C 8B 20 C3 28 44 4F 24 29 B1 46 57 20 |Q/... .(DO$).FW |
00005FD0: A7 20 44 4F 24 B2 C8 28 44 4F 24 2C 46 57 29 00 |. DO$..(DO$,FW).|
00005FE0: 67 2F FA 8C 44 4F 24 B2 C9 28 53 50 24 AA 44 4F |g/..DO$..(SP$.DO|
00005FF0: 24 2C 46 57 29 00 6D 2F 04 8D 8E 00 90 2F 87 90 |$,FW).m/...../..|
00006000: 8F 20 3D 3D 20 44 41 54 45 20 46 4C 44 20 4F 55 |. == DATE FLD OU|
00006010: 54 50 55 54 20 46 4F 52 4D 41 54 20 3D 3D 00 CB |TPUT FORMAT ==..|
00006020: 2F 88 90 8B 20 41 45 24 B2 22 41 22 20 A7 20 44 |/... AE$."A" . D|
00006030: 41 24 20 B2 20 CA 28 44 41 24 2C 33 2C 32 29 AA |A$ . .(DA$,3,2).|
00006040: 22 2F 22 AA C9 28 44 41 24 2C 32 29 AA 22 2F 22 |"/"..(DA$,2)."/"|
00006050: AA C8 28 44 41 24 2C 32 29 00 06 30 92 90 8B 20 |..(DA$,2)..0... |
00006060: 41 45 24 B2 22 45 22 20 A7 20 44 41 24 20 B2 20 |AE$."E" . DA$ . |
00006070: C9 28 44 41 24 2C 32 29 AA 22 2F 22 AA CA 28 44 |.(DA$,2)."/"..(D|
00006080: 41 24 2C 33 2C 32 29 AA 22 2F 22 AA C8 28 44 41 |A$,3,2)."/"..(DA|
00006090: 24 2C 32 29 00 0C 30 9C 90 8E 00 30 30 7B 92 8F |$,2)..0....00{..|
000060A0: 20 3D 3D 20 44 41 54 45 20 46 4C 44 20 43 4F 4D | == DATE FLD COM|
000060B0: 50 41 52 45 20 46 4F 52 4D 41 54 20 3D 3D 00 63 |PARE FORMAT ==.c|
000060C0: 30 7C 92 8B 20 41 45 24 B2 22 41 22 20 A7 20 44 |0|.. AE$."A" . D|
000060D0: 41 24 20 B2 20 C9 28 44 41 24 2C 32 29 AA C8 28 |A$ . .(DA$,2)..(|
000060E0: 44 41 24 2C 32 29 AA CA 28 44 41 24 2C 33 2C 32 |DA$,2)..(DA$,3,2|
000060F0: 29 00 96 30 86 92 8B 20 41 45 24 B2 22 45 22 20 |)..0... AE$."E" |
00006100: A7 20 44 41 24 20 B2 20 C9 28 44 41 24 2C 32 29 |. DA$ . .(DA$,2)|
00006110: AA CA 28 44 41 24 2C 33 2C 32 29 AA C8 28 44 41 |..(DA$,3,2)..(DA|
00006120: 24 2C 32 29 00 9C 30 90 92 8E 00 B7 30 67 BF 8F |$,2)..0.....0g..|
00006130: 20 3D 3D 20 44 41 54 45 20 49 4E 50 55 54 20 52 | == DATE INPUT R|
00006140: 54 4E 20 3D 3D 00 D7 30 68 BF 99 20 C8 28 59 24 |TN ==..0h.. .(Y$|
00006150: 2C 59 25 29 3B A3 58 25 29 3B 22 2E 2E 2F 2E 2E |,Y%);.X%);"../..|
00006160: 2F 2E 2E 22 3B 00 FD 30 72 BF 4A B2 31 3A 49 4E |/..";..0r.J.1:IN|
00006170: 24 B2 22 22 3A 41 44 B2 31 30 32 34 AA 28 59 25 |$."":AD.1024.(Y%|
00006180: AB 31 29 AC 34 30 AA 58 25 AB 31 00 13 31 7C BF |.1).40.X%.1..1|.|
00006190: 97 41 44 AA 4A 2C C2 28 41 44 AA 4A 29 B0 31 32 |.AD.J,.(AD.J).12|
000061A0: 38 00 28 31 86 BF A1 4A 24 3A 8B 4A 24 B2 22 22 |8.(1...J$:.J$.""|
000061B0: A7 34 39 30 33 30 00 3C 31 8B BF 8B 4A 24 B2 C7 |.49030.<1...J$..|
000061C0: 28 33 34 29 A7 34 39 30 33 30 00 49 31 90 BF 4A |(34).49030.I1..J|
000061D0: 4A B2 C6 28 4A 24 29 00 5A 31 A4 BF 8B 4A 4A B2 |J..(J$).Z1...JJ.|
000061E0: 32 37 A7 34 39 30 33 30 00 73 31 AE BF 8B 4A 4A |27.49030.s1...JJ|
000061F0: B1 B2 34 38 AF 4A 4A B3 B2 35 37 A7 34 39 32 30 |..48.JJ..57.4920|
00006200: 30 00 85 31 B8 BF 8B 4A 4A B3 B1 31 33 A7 34 39 |0..1...JJ..13.49|
00006210: 31 31 30 00 99 31 C2 BF 8B C3 28 49 4E 24 29 B3 |110..1....(IN$).|
00006220: 36 A7 34 39 30 33 30 00 BC 31 CC BF 97 20 41 44 |6.49030..1... AD|
00006230: AA 38 2C C2 28 41 44 AA 38 29 20 AF 20 31 32 37 |.8,.(AD.8) . 127|
00006240: 20 3A 20 89 20 34 39 32 35 30 00 CE 31 D6 BF 8B | : . 49250..1...|
00006250: 4A 4A B3 B1 32 30 A7 34 39 31 36 30 00 EA 31 E0 |JJ..20.49160..1.|
00006260: BF 99 C8 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A |...(Y$,Y%);.X%.J|
00006270: AB 31 29 3B 22 2E 22 3B 00 01 32 E5 BF 8B 4A B2 |.1);".";..2...J.|
00006280: 31 A7 49 4E 24 B2 22 22 3A 89 34 39 30 32 30 00 |1.IN$."":.49020.|
00006290: 17 32 E7 BF 8B 4A B2 38 A7 49 4E 24 B2 C8 28 49 |.2...J.8.IN$..(I|
000062A0: 4E 24 2C 35 29 00 44 32 EA BF 49 4E 24 B2 C8 28 |N$,5).D2..IN$..(|
000062B0: 49 4E 24 2C C3 28 49 4E 24 29 AB 31 29 3A 4A B2 |IN$,.(IN$).1):J.|
000062C0: 4A AB 31 3A 8B 4A B2 33 B0 4A B2 36 A7 4A B2 4A |J.1:.J.3.J.6.J.J|
000062D0: AB 31 00 60 32 EF BF 99 C8 28 59 24 2C 59 25 29 |.1.`2....(Y$,Y%)|
000062E0: 3B A3 58 25 AA 4A AB 31 29 3B 22 2E 22 3B 00 6B |;.X%.J.1);".";.k|
000062F0: 32 F4 BF 89 34 39 30 32 30 00 7D 32 08 C0 8B 4A |2...49020.}2...J|
00006300: 4A B3 B1 33 32 A7 34 39 30 33 30 00 99 32 12 C0 |J..32.49030..2..|
00006310: 99 C8 28 59 24 2C 59 25 29 3B A3 58 25 AA 4A AB |..(Y$,Y%);.X%.J.|
00006320: 31 29 3B 22 2E 22 3B 00 B8 32 1C C0 8B 4A B2 31 |1);".";..2...J.1|
00006330: B0 4A B2 34 B0 4A B2 37 A7 4A 24 B2 22 30 22 3A |.J.4.J.7.J$."0":|
00006340: 89 34 39 32 31 30 00 CA 32 26 C0 4A 24 B2 22 A0 |.49210..2&.J$.".|
00006350: 22 3A 89 34 39 32 31 30 00 E5 32 30 C0 99 C8 28 |":.49210..20...(|
00006360: 59 24 2C 59 25 29 3B A3 58 25 AA 4A AB 31 29 3B |Y$,Y%);.X%.J.1);|
00006370: 4A 24 3B 00 FB 32 3A C0 8B 4A B2 38 A7 49 4E 24 |J$;..2:..J.8.IN$|
00006380: B2 C8 28 49 4E 24 2C 35 29 00 1F 33 44 C0 49 4E |..(IN$,5)..3D.IN|
00006390: 24 B2 49 4E 24 AA 4A 24 3A 4A B2 4A AA 31 3A 8B |$.IN$.J$:J.J.1:.|
000063A0: 4A B2 33 B0 4A B2 36 A7 4A B2 4A AA 31 00 2C 33 |J.3.J.6.J.J.1.,3|
000063B0: 4E C0 8B 4A B2 39 A7 4A B2 38 00 37 33 58 C0 89 |N..J.9.J.8.73X..|
000063C0: 34 39 30 32 30 00 6A 33 62 C0 58 58 B2 C5 28 C8 |49020.j3b.XX..(.|
000063D0: 28 49 4E 24 2C 32 29 29 3A 59 59 B2 C5 28 CA 28 |(IN$,2)):YY..(.(|
000063E0: 49 4E 24 2C 33 2C 32 29 29 3A 5A 5A B2 C5 28 C9 |IN$,3,2)):ZZ..(.|
000063F0: 28 49 4E 24 2C 32 29 29 00 7D 33 80 C0 99 C8 28 |(IN$,2)).}3....(|
00006400: 59 24 2C 32 33 29 3B 53 50 24 3B 00 9F 33 85 C0 |Y$,23);SP$;..3..|
00006410: 8B 20 41 45 24 B2 22 45 22 20 A7 20 54 4D B2 58 |. AE$."E" . TM.X|
00006420: 58 3A 58 58 B2 59 59 3A 59 59 B2 54 4D 00 CE 33 |X:XX.YY:YY.TM..3|
00006430: 86 C0 8B 28 5A 5A AD 34 29 B3 B1 B5 28 5A 5A AD |...(ZZ.4)...(ZZ.|
00006440: 34 29 A7 8D 34 39 33 35 30 3A 8B 45 52 B2 31 38 |4)..49350:.ER.18|
00006450: A7 45 52 B2 30 3A 89 34 39 30 30 30 00 09 34 8A |.ER.0:.49000..4.|
00006460: C0 8B 20 58 58 B3 31 20 B0 20 58 58 B1 31 32 20 |.. XX.1 . XX.12 |
00006470: A7 20 99 C8 28 59 24 2C 32 33 29 3B 22 CD 4F 4E |. ..(Y$,23);".ON|
00006480: 54 48 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 |TH OUT OF RANGE"|
00006490: 3A 89 34 39 30 30 30 00 46 34 94 C0 8B 20 59 59 |:.49000.F4... YY|
000064A0: B3 31 20 B0 20 59 59 B1 44 54 25 28 58 58 29 20 |.1 . YY.DT%(XX) |
000064B0: A7 99 C8 28 59 24 2C 32 33 29 3B 22 C4 41 59 20 |...(Y$,23);".AY |
000064C0: 4F 55 54 20 4F 46 20 52 41 4E 47 45 22 3A 89 34 |OUT OF RANGE":.4|
000064D0: 39 30 30 30 00 63 34 9E C0 49 4E 24 B2 C9 28 22 |9000.c4..IN$..("|
000064E0: 30 30 22 AA CA 28 C4 28 5A 5A 29 2C 32 29 2C 32 |00"..(.(ZZ),2),2|
000064F0: 29 00 84 34 A8 C0 49 4E 24 B2 49 4E 24 AA C9 28 |)..4..IN$.IN$..(|
00006500: 22 30 30 22 AA CA 28 C4 28 58 58 29 2C 32 29 2C |"00"..(.(XX),2),|
00006510: 32 29 00 A5 34 B2 C0 49 4E 24 B2 49 4E 24 AA C9 |2)..4..IN$.IN$..|
00006520: 28 22 30 30 22 AA CA 28 C4 28 59 59 29 2C 32 29 |("00"..(.(YY),2)|
00006530: 2C 32 29 00 AB 34 BC C0 8E 00 E0 34 C6 C0 8B 58 |,2)..4.....4...X|
00006540: 58 B2 32 AF 59 59 B2 32 39 A7 99 C8 28 59 24 2C |X.2.YY.29...(Y$,|
00006550: 32 33 29 3B 22 C4 41 59 20 4F 55 54 20 4F 46 20 |23);".AY OUT OF |
00006560: 52 41 4E 47 45 22 3A 45 52 B2 31 38 3A 8E 00 E6 |RANGE":ER.18:...|
00006570: 34 D0 C0 8E 00 14 35 50 C3 99 22 93 11 11 11 20 |4.....5P..".... |
00006580: 20 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F | .O YOU WANT TO|
00006590: 20 4C 49 4E 4B 20 54 4F 20 54 48 45 20 CD 41 49 | LINK TO THE .AI|
000065A0: 4E 22 00 2A 35 51 C3 99 22 20 20 CD 45 4E 55 3F |N".*5Q.." .ENU?|
000065B0: 20 28 59 2F 4E 29 22 3B 00 41 35 52 C3 A1 41 41 | (Y/N)";.A5R..AA|
000065C0: 24 3A 8B 41 41 24 B2 22 22 A7 35 30 30 30 32 00 |$:.AA$."".50002.|
000065D0: 54 35 54 C3 8B 41 41 24 B2 22 4E 22 A7 35 30 30 |T5T..AA$."N".500|
000065E0: 32 32 00 68 35 56 C3 8B 41 41 24 B3 B1 22 59 22 |22.h5V..AA$.."Y"|
000065F0: A7 35 30 30 30 32 00 8B 35 58 C3 4E 4D 24 B2 22 |.50002..5X.NM$."|
00006600: 4D 45 4E 55 22 3A 8D 36 30 30 30 30 3A 8B 45 52 |MENU":.60000:.ER|
00006610: B3 32 30 A7 35 30 30 31 38 00 CD 35 5C C3 99 22 |.20.50018..5\.."|
00006620: 93 11 20 20 20 20 20 2A 2A 2A 20 CD 45 4E 55 20 |.. *** .ENU |
00006630: 4E 4F 54 20 49 4E 20 44 52 49 56 45 20 30 2E 22 |NOT IN DRIVE 0."|
00006640: 3A 99 22 11 20 20 CD 41 4B 45 20 53 55 52 45 20 |:.". .AKE SURE |
00006650: 54 48 45 20 44 49 53 4B 20 22 3B 00 05 36 5D C3 |THE DISK ";..6].|
00006660: 99 22 43 4F 4E 54 41 49 4E 49 4E 47 20 54 48 45 |."CONTAINING THE|
00006670: 20 20 20 20 20 20 20 4D 45 4E 55 20 50 52 4F 47 | MENU PROG|
00006680: 52 41 4D 20 49 53 20 49 4E 20 44 52 49 56 45 20 |RAM IS IN DRIVE |
00006690: 30 2E 22 00 31 36 5E C3 99 C8 28 59 24 2C 32 34 |0.".16^...(Y$,24|
000066A0: 29 22 20 D0 52 45 53 53 20 12 52 45 54 55 52 4E |)" .RESS .RETURN|
000066B0: 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 |. TO CONTINUE.".|
000066C0: 4C 36 5F C3 A1 41 41 24 3A 8B 41 41 24 B3 B1 C7 |L6_..AA$:.AA$...|
000066D0: 28 31 33 29 A7 35 30 30 31 35 00 57 36 60 C3 89 |(13).50015.W6`..|
000066E0: 35 30 30 30 30 00 91 36 62 C3 99 22 93 22 3B C8 |50000..6b..".";.|
000066F0: 28 59 24 2C 35 29 3B 22 20 20 20 20 20 20 20 20 |(Y$,5);" |
00006700: 2A 2A 2A 2A 2A 2A 20 12 20 CC 4F 41 44 49 4E 47 |****** . .OADING|
00006710: 20 CD 45 4E 55 20 92 20 2A 2A 2A 2A 2A 2A 22 00 | .ENU . ******".|
00006720: A7 36 64 C3 A0 31 35 3A 9C 3A 93 22 30 3A 4D 45 |.6d..15:.:."0:ME|
00006730: 4E 55 22 2C 38 00 CA 36 66 C3 99 22 93 22 3A A0 |NU",8..6f..".":.|
00006740: 31 35 3A 9F 31 35 2C 44 56 2C 31 35 2C 22 49 22 |15:.15,DV,15,"I"|
00006750: 3A A0 31 35 3A 9C 3A 80 00 0A 37 FA C3 44 52 24 |:.15:.:...7..DR$|
00006760: B2 CA 28 C4 28 C2 28 39 36 38 29 29 2C 32 29 3A |..(.(.(968)),2):|
00006770: 44 56 B2 C2 28 39 36 39 29 3A 44 24 B2 CA 28 C4 |DV..(969):D$..(.|
00006780: 28 C2 28 39 36 37 29 29 2C 32 29 3A 97 36 34 36 |(.(967)),2):.646|
00006790: 2C C2 28 31 30 30 30 29 00 38 37 FB C3 53 46 24 |,.(1000).87..SF$|
000067A0: B2 22 22 3A 81 49 B2 31 A4 C2 28 39 37 31 29 3A |."":.I.1..(971):|
000067B0: 53 46 24 B2 53 46 24 AA C7 28 C2 28 39 37 31 AA |SF$.SF$..(.(971.|
000067C0: 49 29 29 3A 82 49 00 65 37 FC C3 52 4E 24 B2 53 |I)):.I.e7..RN$.S|
000067D0: 46 24 AA 22 2F 52 22 AA CA 28 C4 28 C2 28 39 37 |F$."/R"..(.(.(97|
000067E0: 30 29 29 2C 32 29 3A 4E 4D 24 B2 53 46 24 AA 22 |0)),2):NM$.SF$."|
000067F0: 2F 42 22 00 A1 37 FE C3 9F 31 35 2C 44 56 2C 31 |/B"..7...15,DV,1|
00006800: 35 2C 22 49 22 3A 99 22 93 22 3A 94 22 40 22 AA |5,"I":.".":."@".|
00006810: 44 52 24 AA 22 3A 22 AA 52 4E 24 2C 44 56 3A 95 |DR$.":".RN$,DV:.|
00006820: 20 44 52 24 AA 22 3A 22 AA 52 4E 24 2C 44 56 00 | DR$.":".RN$,DV.|
00006830: D8 37 FF C3 84 31 35 2C 45 52 24 2C 45 4D 24 2C |.7...15,ER$,EM$,|
00006840: 45 53 24 2C 45 54 24 3A 53 24 B2 45 52 24 AA 22 |ES$,ET$:S$.ER$."|
00006850: 3A 22 AA 45 4D 24 AA 22 3A 22 AA 45 54 24 AA 22 |:".EM$.":".ET$."|
00006860: 2C 22 AA 45 53 24 00 FE 37 04 C4 99 22 93 22 3A |,".ES$..7...".":|
00006870: 99 3A 99 52 4E 24 3B 22 20 53 41 56 45 20 53 54 |.:.RN$;" SAVE ST|
00006880: 41 54 55 53 3A 20 22 3B 53 24 3A 99 00 1A 38 0E |ATUS: ";S$:...8.|
00006890: C4 99 22 D4 4F 20 52 55 4E 20 59 4F 55 52 20 50 |..".O RUN YOUR P|
000068A0: 52 4F 47 52 41 4D 2C 22 00 20 38 18 C4 99 00 45 |ROGRAM,". 8....E|
000068B0: 38 22 C4 99 22 22 3A 99 3A 99 22 20 20 20 20 20 |8".."":.:." |
000068C0: D4 59 50 45 20 27 4C 4F 41 44 20 22 3B C7 28 33 |.YPE 'LOAD ";.(3|
000068D0: 34 29 3B 00 70 38 2C C4 99 52 4E 24 3B C7 28 33 |4);.p8,..RN$;.(3|
000068E0: 34 29 22 2C 38 27 22 3A 99 22 20 20 20 20 20 D4 |4)",8'":." .|
000068F0: 59 50 45 20 27 52 55 4E 27 22 20 3A 20 80 00 89 |YPE 'RUN'" : ...|
00006900: 38 49 C4 8F 20 3D 3D 20 50 52 49 4E 54 45 52 20 |8I.. == PRINTER |
00006910: 46 49 4C 45 20 3D 3D 00 B2 38 4A C4 53 41 B2 37 |FILE ==..8J.SA.7|
00006920: 3A 50 44 B2 34 3A 4E 4D 24 B2 22 50 46 49 47 22 |:PD.4:NM$."PFIG"|
00006930: 3A 8D 36 30 30 30 35 3A 8B 45 52 B1 31 39 A7 8E |:.60005:.ER.19..|
00006940: 00 D5 38 54 C4 9F 35 2C 38 2C 35 2C 22 30 3A 50 |..8T..5,8,5,"0:P|
00006950: 52 43 4F 4E 22 3A 84 35 2C 50 44 2C 53 41 3A A0 |RCON":.5,PD,SA:.|
00006960: 35 3A 8E 00 F0 38 7B C4 8F 20 3D 3D 20 50 52 49 |5:...8{.. == PRI|
00006970: 4E 54 45 52 20 43 4F 4E 46 49 47 20 3D 3D 00 FB |NTER CONFIG ==..|
00006980: 38 7C C4 8D 35 30 32 35 30 00 2C 39 81 C4 99 22 |8|..50250.,9..."|
00006990: 93 11 11 11 20 20 20 20 2A 2A 2A 20 12 20 D0 52 |.... *** . .R|
000069A0: 49 4E 54 45 52 20 C3 4F 4E 46 49 47 55 52 41 54 |INTER .ONFIGURAT|
000069B0: 49 4F 4E 20 92 20 2A 2A 2A 22 00 67 39 86 C4 99 |ION . ***".g9...|
000069C0: C8 28 59 24 2C 31 30 29 22 20 20 20 C3 55 52 52 |.(Y$,10)" .URR|
000069D0: 45 4E 54 20 44 45 56 49 43 45 20 56 41 4C 55 45 |ENT DEVICE VALUE|
000069E0: 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 C4 28 50 44 29 | .........".(PD)|
000069F0: 3B 22 20 20 22 00 A2 39 90 C4 99 C8 28 59 24 2C |;" "..9....(Y$,|
00006A00: 31 32 29 22 20 20 20 C3 55 52 52 45 4E 54 20 53 |12)" .URRENT S|
00006A10: 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 |ECONDARY ADDRESS|
00006A20: 20 2E 2E 2E 2E 22 C4 28 53 41 29 3B 22 20 20 22 | ....".(SA);" "|
00006A30: 00 D6 39 9A C4 99 C8 28 59 24 2C 31 38 29 22 20 |..9....(Y$,18)" |
00006A40: C9 53 20 54 48 49 53 20 49 4E 46 4F 52 4D 41 54 |.S THIS INFORMAT|
00006A50: 49 4F 4E 20 43 4F 52 52 45 43 54 20 28 59 2F 4E |ION CORRECT (Y/N|
00006A60: 29 20 3F 22 00 0C 3A A4 C4 58 25 B2 33 37 3A 59 |) ?"..:..X%.37:Y|
00006A70: 25 B2 31 38 3A 4C 25 B2 31 3A 8D 33 34 30 30 30 |%.18:L%.1:.34000|
00006A80: 3A 8B 20 49 4E 24 B3 B1 22 4E 22 AF 49 4E 24 B3 |:. IN$.."N".IN$.|
00006A90: B1 22 59 22 A7 35 30 33 34 30 00 27 3A AE C4 8B |."Y".50340.':...|
00006AA0: 20 49 4E 24 B2 22 59 22 A7 50 42 25 B2 30 3A 89 | IN$."Y".PB%.0:.|
00006AB0: 35 30 36 30 30 00 5E 3A B8 C4 99 C8 28 59 24 2C |50600.^:....(Y$,|
00006AC0: 31 38 29 22 20 C5 4E 54 45 52 20 4E 45 57 20 44 |18)" .NTER NEW D|
00006AD0: 45 56 49 43 45 20 56 41 4C 55 45 3A 20 20 20 20 |EVICE VALUE: |
00006AE0: 20 20 20 20 20 20 20 20 20 20 22 3B 00 8A 3A C2 | ";..:.|
00006AF0: C4 58 25 B2 32 36 3A 59 25 B2 31 38 3A 4C 25 B2 |.X%.26:Y%.18:L%.|
00006B00: 32 3A 8D 33 34 30 30 30 3A 8B 20 49 4E 24 B2 22 |2:.34000:. IN$."|
00006B10: 22 20 A7 35 30 34 30 30 00 A9 3A CC C4 8B 20 C5 |" .50400..:... .|
00006B20: 28 49 4E 24 29 B3 34 B0 C5 28 49 4E 24 29 B1 31 |(IN$).4..(IN$).1|
00006B30: 35 A7 35 30 33 37 30 00 B7 3A D6 C4 50 44 B2 C5 |5.50370..:..PD..|
00006B40: 28 49 4E 24 29 00 EE 3A E0 C4 99 C8 28 59 24 2C |(IN$)..:....(Y$,|
00006B50: 31 38 29 22 20 C5 4E 54 45 52 20 4E 45 57 20 53 |18)" .NTER NEW S|
00006B60: 45 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 |ECONDARY ADDRESS|
00006B70: 3A 20 20 20 20 20 20 20 20 20 22 3B 00 1A 3B EA |: ";..;.|
00006B80: C4 58 25 B2 33 30 3A 59 25 B2 31 38 3A 4C 25 B2 |.X%.30:Y%.18:L%.|
00006B90: 33 3A 8D 33 34 30 30 30 3A 8B 20 49 4E 24 B2 22 |3:.34000:. IN$."|
00006BA0: 22 20 A7 35 30 33 31 30 00 3A 3B F4 C4 8B 20 C5 |" .50310.:;... .|
00006BB0: 28 49 4E 24 29 B3 34 B0 C5 28 49 4E 24 29 B1 32 |(IN$).4..(IN$).2|
00006BC0: 35 35 A7 35 30 34 31 30 00 4F 3B FE C4 53 41 B2 |55.50410.O;..SA.|
00006BD0: C5 28 49 4E 24 29 3A 89 35 30 33 31 30 00 77 3B |.(IN$):.50310.w;|
00006BE0: A8 C5 A0 34 3A 9F 34 2C 50 44 3A 98 34 2C 22 20 |...4:.4,PD:.4," |
00006BF0: 22 3A 8B 53 54 B2 AB 31 32 38 A7 20 A0 34 3A 89 |":.ST..128. .4:.|
00006C00: 35 30 36 36 30 00 80 3B D0 C5 A0 34 3A 8E 00 B3 |50660..;...4:...|
00006C10: 3B E4 C5 99 C8 28 59 24 2C 32 30 29 22 20 20 20 |;....(Y$,20)" |
00006C20: 20 20 20 2A 2A 2A 20 12 20 D0 52 49 4E 54 45 52 | *** . .RINTER|
00006C30: 20 CE 4F 54 20 D2 45 41 44 59 20 92 20 2A 2A 2A | .OT .EADY . ***|
00006C40: 22 00 E7 3B F8 C5 99 22 11 11 20 D0 52 45 53 53 |"..;...".. .RESS|
00006C50: 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 C3 4F 4E | ........ TO .ON|
00006C60: 54 49 4E 55 45 2C 20 12 46 31 92 20 54 4F 20 45 |TINUE, .F1. TO E|
00006C70: 58 49 54 2E 22 00 0E 3C 02 C6 A1 49 4E 24 3A 8B |XIT."..<...IN$:.|
00006C80: 49 4E 24 B3 B1 C7 28 31 33 29 AF 49 4E 24 B3 B1 |IN$...(13).IN$..|
00006C90: C7 28 31 33 33 29 A7 35 30 36 39 30 00 24 3C 07 |.(133).50690.$<.|
00006CA0: C6 8B 20 49 4E 24 B2 C7 28 31 33 29 A7 35 30 33 |.. IN$..(13).503|
00006CB0: 30 35 00 31 3C 70 C6 50 42 25 B2 AB 31 3A 8E 00 |05.1<p.PB%..1:..|
00006CC0: 47 3C 5F EA 8F 20 3D 3D 20 45 52 52 4F 52 20 43 |G<_.. == ERROR C|
00006CD0: 48 4B 20 3D 3D 00 6F 3C 60 EA A0 31 35 3A 9F 31 |HK ==.o<`..15:.1|
00006CE0: 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 |5,8,15:.5,8,5,"0|
00006CF0: 3A 22 AA 4E 4D 24 3A 89 36 30 30 31 30 00 91 3C |:".NM$:.60010..<|
00006D00: 65 EA A0 31 35 3A 9F 31 35 2C 44 56 2C 31 35 3A |e..15:.15,DV,15:|
00006D10: 9F 35 2C 44 56 2C 35 2C 44 56 24 AA 4E 4D 24 00 |.5,DV,5,DV$.NM$.|
00006D20: B3 3C 6A EA 84 31 35 2C 45 52 24 2C 45 4D 24 2C |.<j..15,ER$,EM$,|
00006D30: 45 54 24 2C 45 53 24 3A 45 52 B2 C5 28 45 52 24 |ET$,ES$:ER..(ER$|
00006D40: 29 00 C0 3C 74 EA A0 35 3A A0 31 35 3A 8E 00 D5 |)..<t..5:.15:...|
00006D50: 3C 48 EE 8F 20 3D 3D 20 4C 45 46 54 20 53 43 52 |<H.. == LEFT SCR|
00006D60: 20 3D 3D 00 FE 3C 4D EE 8B C3 28 50 53 24 29 B3 | ==..<M...(PS$).|
00006D70: 38 30 A7 50 53 24 B2 50 53 24 AA 53 50 24 3A 50 |80.PS$.PS$.SP$:P|
00006D80: 53 24 B2 C8 28 50 53 24 2C 38 30 29 00 09 3D 52 |S$..(PS$,80)..=R|
00006D90: EE 8D 36 31 31 33 30 00 1F 3D 57 EE 99 C8 28 50 |..61130..=W...(P|
00006DA0: 53 24 2C C3 28 50 53 24 29 AD 32 29 3B 00 25 3D |S$,.(PS$).2);.%=|
00006DB0: 5C EE 8E 00 3E 3D AC EE 99 22 93 22 3B 3A 8F 20 |\...>=...".";:. |
00006DC0: 52 49 47 48 54 20 4F 46 20 53 43 52 00 57 3D B1 |RIGHT OF SCR.W=.|
00006DD0: EE 81 49 B2 31 A4 58 54 3A 99 52 48 24 28 49 29 |..I.1.XT:.RH$(I)|
00006DE0: 3B 3A 82 3A 8E 00 6F 3D B6 EE 99 22 93 22 3B 3A |;:.:..o=...".";:|
00006DF0: 8F 20 4C 45 46 54 20 4F 46 20 53 43 52 00 86 3D |. LEFT OF SCR..=|
00006E00: BB EE 81 49 B2 31 A4 58 54 3A 99 4C 48 24 28 49 |...I.1.XT:.LH$(I|
00006E10: 29 3B 3A 82 00 8C 3D C0 EE 8E 00 98 3D CA EE 58 |);:...=.....=..X|
00006E20: 54 B2 58 54 AA 31 00 AE 3D D4 EE 52 48 24 28 58 |T.XT.1..=..RH$(X|
00006E30: 54 29 B2 C9 28 50 53 24 2C 34 30 29 00 C4 3D DE |T)..(PS$,40)..=.|
00006E40: EE 4C 48 24 28 58 54 29 B2 C8 28 50 53 24 2C 34 |.LH$(XT)..(PS$,4|
00006E50: 30 29 00 CA 3D E8 EE 8E 00 FA 3D 30 F2 58 54 B2 |0)..=.....=0.XT.|
00006E60: 58 54 AA 31 3A 4C 48 24 28 58 54 29 B2 C8 28 53 |XT.1:LH$(XT)..(S|
00006E70: 50 24 2C 34 30 29 3A 52 48 24 28 58 54 29 B2 4C |P$,40):RH$(XT).L|
00006E80: 48 24 28 58 54 29 3A 8E 00 00 00 |H$(XT):.... |
1 LYNX IX BY WILL CORLEY. 2 .PRGCAT/
R1. 56 .P. 141 .PRGCAT/R2. 55 .P.. 33 .P
./FLG. 1 .S. 82 .M. 7 .P. 198 .P. 1 .P.
134 .PRGCAT. 95 .P......................
........................................
........................................
..................... B(2053).158.15.O..
..(B(45).B(46).256).12000..45,B(174):.46
,B(175):.:A.0.Q.... A.0..720,B(174):.721
,B(175)...... A.0.A.1:."0:M",8,1.G....17
4,B(720):.175,B(721):.B(2053).158..41024
,0:.41025,208...U..:.198,0:. == CLER BUF
...[.DV$."0:":DV.8:DN$."0":NM$."CONFIG":
.60000:.ER.19.93.D.\..2,8,2,"0:CONFIG":.
2,DV$:.2,DN$:.2,DV.K.]. 2.I.C.. == NUMER
IC CONSTANTS ==.X.D.NS.1:RN%.1...I.SF$."
PRGCAT":. * BASE FILE.B.N.PD$." D
ESIGNED BY STEVE REAGAN"...P.TL$."
. PROGRAM CATALOG PRINTER ."...X.LR.2:
. * RECS PER LINE. .}.OF.40:. * OFFSET.<
...CT%.21:. * NUM PRT FLDS.P...NF.18:NC.
0:NG.0.K...MY.25:. *LINES PER REC.....AE
$."A":. * DATE FORMAT... .HH.0:. * HDR H
GHT.....HS.25.HH.2:HP.66.HH.R.... RH$(59
),LH$(59),TS(20)...... F$(NF),L%(NF),X%(
CT%),Y%(CT%),PT%(CT%),FD$(CT%,LR).5....
PF(NS),PS(NS),CE(NC),GL(NG),DT%(12).P...
. SM.OM.0 . SS%.0:.195...A.SS%.NF.NC:.TT
(SS%),MN(SS%),MX(SS%),GT(SS%),GN(SS%),GX
(SS%)...C..VD$(1)...G.. ==STRING CONSTAN
TS==.U.R.SS$."":SP$."":DD$."":Z$."".....
.I.1.80:SS$.SS$." ":SP$.SP$." ":DD$.DD$.
"-":Z$.Z$."0":.I.6...Y$.G(19):.I.1.24:Y$
.Y$.G(17):.I.N...GB$."******************
***************************"......50338,
96:.50107,63:.50108,196:. == READ RTN CH
ANGES.R....B(967).49.B(968).96..646,B(10
00):.300......969,82:.970,RN%:J.53232:L.
C(SF$).2:.J,L.,....I.1.L:.J.I,F(J(DV$.SF
$,I,1)):.I:.717,DV.\...."."H(Y$,7)"
DO YOU WANT TO RUN THE "......" .
SORT. PROGRAM (Y/N) ? ":X%.28:Y%.8:L%.1:
.34000......IN$."N".300......IN$.."Y".27
0.Q...NM$."SORT":.60000......ER.0.292...
..."........ PLACE DISK WITH THE .SORT.
PROGRAM".(...." IN DRIVE 0.".U....H(Y$
,24)" PRESS .RETURN. TO SORT, .F1. TO CO
NTINUE WITHOUT SORTING";..... 2:.AA$:
.AA$.G(133).300... ..AA$..G(13).287...!.
.282...$..".......... PROGRAM LOADING,
PLEASE WAIT ...";...'..:."0:SORT",8...+
.. == INIT VARBLS ==.5.,..967,0:.968,0:.
I.1.12:DT%(I).31:.I.L...DT%(2).29:DT%(4)
.30:DT%(6).30:DT%(9).30:DT%(11).30.../..
"."H(Y$,7)TL$H(Y$,10)PD$...6..17000:.190
00.R.E.LP.0:CO.0:SC.1:.IT.1.59:LH$(IT)."
":RH$(IT)."":.IT...F.FLG%.0:.I.1.NS:TS(I
).0:.I.&.G..SS%.0..Z.1.SS%:GT(Z).0:GX(Z)
..1E32:GN(Z).1E32:.Z.C.H..".";:.35000:.=
=VN,VA,VD.A.J.DA$.VD$(1):.37000:DY$.DA$.
Y.O.. NS.1. O$."Y":.343. .T.."..DO YOU W
ISH TO SEE ALL REPORT".W.U.."SECTIONS ?(
Y/N) ";:X%.56:Y%.2:L%.1:.34000:O$.IN$...
V..O$.."Y".O$.."N".340...W..O$."Y"..QQ.1
.NS:TS(QQ)..1:.QQ:.400.+.X.I.5:IP%.1:.".
".V.Y..".. ENTER THE SECTION NUMBER(S) Y
OU "...Z.."WISH TO INCLUDE IN THIS REPOR
T":."(1-";NS;") OR .RETURN. TO EXIT.".G.
[.X%.28:Y%.4:L%.2:.34000:. IN$."".380...
\.OO.E(IN$):.OO.NS.OO.1.345...]..TS(OO).
..1.360.5.^.."** SECTION ";OO;" ALREADY
SELECTED **";:.QQ.1.600:.QQ.K.`..H(Y$,5)
;SP$:.345.}.H.TS(OO)..1:I.I.2:.H(Y$,I);.
IP%);"SECTION: ";OO...J..I.22.I.5:IP%.20
...L.FLG%..1:.345...|..FLG%.400......H(Y
$,10);"*** NO SECTIONS SELECTED ! ***".
....FLG%.0:.QQ.1.600:.QQ:.340.8....".WOU
LD YOU LIKE YOUR REPORT SENT TO THE SCR
EEN ";.V...."OR THE PRINTER (S/P) ? ";:X
%.69:Y%.1:L%.1:.34000:O$.IN$......O$.."P
".O$.."S".400......O$."P"..50300:HT.HP:.
PB%.400.H....O$."S".PD.3:HT.HS.....RP..(
HT.MY):.RP.0.RP.1..... 4:.4,PD,SA......O
$."S".476.2.B..".. AT THIS POINT, YOU M
AY PRINT A TEST".R.D.." PAGE THAT WILL H
ELP YOU LINE UP YOUR FORMS PROPERLY."
...E..". WOULD YOU LIKE A TEST PAGE (Y/N
) ?";.C.F.X%.36:Y%.6:L%.1:. 34000:TP$.IN
$...L..TP$.."Y".TP$.."N".454...Q..TP$."Y
"..10000:TP$."".+.S..".. YOUR REPORT IS
NOW READY TO BE PRINTED.".H.V..".. SET P
RINTER TO TOP OF FORM AND PRESS .RE
TURN."...X..AA$:.AA$..G(13).472...Z.. O$
."P"..".. PRINTING REPORT...":.490......
". TO BEGIN THE REPORT LISTING, PRESS
.RETURN."......AA$:.AA$..G(13).477...
...".";.-...NM$.SF$."0/D":.60005:.ER.20.
497.Y....".... .";SF$". DATA FILE NOT
FOUND"...... ".. MAKE SURE THE . DATA
. DISK IS IN .DRIVE ";DN$;"."....
..H(Y$,24)" PRESS .RETURN. TO CONTINUE,
.F1. TO END PROGRAM.";......AA$:.AA$
..G(13).AA$..G(133).494......AA$.G(13).4
90.-....50000:. END.C.....TS(1).PC.0:.50
0.Y...PC.0:.PF(1)..9100.M.... = MAIN RTN
==......715,1:.716,0:.711,1:. 50442:. 5
0361:. == OPEN FILES.R...FLG%.0:LE.0:LS.
.1:.SC.1.NS:..TS(SC).562......3,DV,3,DV$
.SF$."/INDX":R.1:PR..1.,...AA$."":.18000
:.AA$."X".518:. INITIALIZE SECTION.V....
3,IK$:IK.E(IK$):.H(IK$,1).G(255).558....
.AA$."":.RC.RP.PF(SC)..9000:LE.0:. NEW P
G......AA$."X".SC.NS:.600......700:. 654
84......NC.0..28000.H....12000.R....6000
.......ME%.557.....CS.CS.1......4000...!
...PF(SC).557...&..8000.&.(.R.R.1:.R..LR
.557.0.+..7000.@.,.R.1:RC.RC.1.T.-..510:
. NEXT REC.I...PR.0:.CS.0.PR..1.../..R.1
.LE.1:.7000:. OUTPUT LEFTOVERS...0.FLG%.
.1:..PF(SC).LS.0.H.1..2000:.AA$."X".SC.N
S:.600.Y.2.PC.0: 3:. SC...5..11000:.AA$.
"X".600...:..O$."P"..600.@.D..H(Y$,25);"
.F1. LEFT HALF,.F3. RIGHT HALF,.F7. CONT
INUE";.V.N..AA$:. AA$."".590.J.O..AA$.G(
136).600...P..AA$.G(133)..61110:.580...Q
..AA$.G(134)..61100:.580...R..590.F.X.."
.":XT.0: 2: 3: 4: 15...B..H(Y$,6);"DO YO
U WANT ANOTHER REPORT (Y/N) ? ";...L.X
%.35:Y%.6:L%.1:.34000:.IN$.."Y".IN$.."N"
.610.?.V..IN$."Y".325.J....50000.~...BL.
.(RS.(IK.1).BS).1:OS.(RS.(IK.1)).(BS.(BL
.1))...F.HB..(BL.256):LB.BL.256.HB...P..
715,LB:.716,HB:.711,OS.1.F.Z.. 50106.L..
.....O.. == END OF SEC RTN ==...P..CS.0.
....T.CO.CO.CS...L..SC.NS.LS.0:....N...3
.... = ACCUM SECT TOTS ==.S. ..:. == UPD
ATE TOTAL,MAX,MIN.Y.....Q.N.. == ACCEPT
IF'S ==...P..SC.0.6500...D.ME%..1...F...
..W.. == PRTING RTN ==...X..LN.1.MY:FL.0
.G.B..I.1.CT%...L..Y%(I).LN.FL.FL.1:PT%(
FL).I...V..I.....PS$."":.FL.0.7100......
I.1.R.1:S$."".:....J.1.FL:JI%.X%(PT%(J))
.C(S$).1.]...S$.S$.H(SP$,JI%).FD$(PT%(J)
,I)......J.FL..X%(PT%(J.1)).C(S$).S$.H(S
$,X%(PT%(J.1)).1)......J:PS$.PS$.S$.H(SP
$,OF.C(S$))......I.Y...PS$.PS$.H(SP$,80.
C(PS$))...B..O$."S"..61000:.7120...F..4,
PS$...P..LN:..".?.. = SET OUTPUT FLDS ==
.@.@.. == SET OUTPUT ARRAY ==.S.B.FD$(2
,R).F$(3).F.F.FD$(4,R).F$(4)...J.FW.4:DP
.0:DO$.F$(1):.36000:FD$(6,R).DO$...N.FD$
(8,R).F$(7)...P.FD$(9,R).F$(8).L.R.FD$(1
0,R).F$(9)...T.FD$(11,R).F$(10)...V.FD$(
12,R).F$(11)...X.FD$(13,R).F$(12). .Z.FD
$(14,R).F$(13).5.\.FD$(15,R).F$(14).J.^.
FD$(16,R).F$(15)._.`.FD$(17,R).F$(16).T.
D.FD$(19,R).F$(17)...H.FD$(21,R).F$(18).
..J.....'#. == NEW PAGE RTN ==...(#. O$.
"P". 9030...0#.H(Y$,24)"ENTER .X. TO EXI
T REPORT IN PROGRESS.".. 2#.H(Y$,25);".F
1. LEFT HALF,.F3. RIGHT HALF,.F7. CONTIN
UE";.D 7#.AA$:.AA$."".9015.Y :#.AA$."X".
.".";:..Z <#.AA$.G(136)..".";:XT.0:.9040
.. =#.AA$.G(133)..61110:.9008.. >#.AA$.G
(134)..61100:.9008.. @#.9015.L F#..LS.90
40.. P#LS..1:HC.0:RC.0:... .#. == PAGE H
EADER ==..!.#HC.0:RC.0:.. !.'. == TEST P
AGE ==.B!.'.I.1.NF:F$(I).H(GB$,L%(I)):.I
.W!.'.R.1.LR:.8000:.R..!L'.".SET PRINTER
TO TOP OF FORM AND PRESS .RETURN.
"..!V'.AA$:.AA$..G(13).10070.E!`'.9100:.
== PRT HDR.Z!J'.K.1.RP:.7000:.K..!.'.SA
..7..4,G(12):.10130..".'LI.RP.MY.HH:.LI.
66..IT.1.66.LI:.4:.IT.E".'. "... ANOTHER
TEST PAGE ?(Y/N)";.H".'X%.26:Y%.3:L%.1:
.34000:TP$.IN$..".'.TP$.."Y".TP$.."N".10
130..".'.TP$."Y".10060..".'...".*. == GR
D TOT OUTPUT RTN ==.Q".*. == END REPORT.
.#.+PS$."END OF REPORT
END OF REPORT".3#.+.4:.4:.O$."S
"..62000:.61000:..>#.+.4,PS$.L#.+LI..PR.
(RC.LE).MY.HH.3:.IT.1.66.LI:.4:.IT.R#.+.
..#... == CONVERT TO COMPARE ==..#.....#
GB. == MAIN INIT RTN ==.N#HB.I.1.CT%:.X%
(I),Y%(I):.I..#RB.HD$:.H1$:HD$.HD$.H1$:.
PH$..$WB.I.1.NS:.PF(I),PS(I):.I:. IF NO
PRT:PF,PS=0.:$|B.I.1.CT%:.F,K:.F.0.17050
.Y$.B.TX$:.K.2..T1$:TX$.TX$.T1$.X$.B.R.1
.LR:FD$(F,R).TX$:.R:.I.~$.B...$\D.4,3,18
,3,4,4,10,4,18,4,27,4,4,6,4,7,4,8,4,9,4,
10,4,11..$^D.4,12,4,13,4,14,4,15,4,16,4,
18,4,19,4,20,4,21..$BD.""..$DD.""..%FD."
"..%ND.-1 , 0.(%RD.1,1,"PROGRAM NAME:".9
%TD.3,1,"TYPE:".M%VD.5,1,"DISK NO:".E%XD
.7,1,"DESCRIPTION:".Y%ZD.18,1,"SOURCE:".
.%|D.20,1,"AUTHOR:"..%~D.0,0..%OF. == SE
CT INIT ==..%PF.SS%.0..Z.1.SS%:TT(Z).0:M
X(Z)..1E32:MN(Z).1E32:.Z..%_FCS.0..&DF.(
PF(SC).SC.1.TS(SC.1)).FLG%..9000:.18030.
?&IF. PF(SC) . SC.1 .. TS(SC.1)..9100.L&
NFFLG%.0:..N&7J. == READ SCR & GLBL FILE
S ==..&8JNM$.SF$."/S":RS.0:.60000:.ER.20
.19170.I&.J. ".... .";SF$;". SCREEN
FILE NOT FOUND"..'.J. ".. MAKE SURE THE
. APPLICATION . DISK .IS IN DRIV
E 0.".I'.J.H(Y$,24)" PRESS .RETURN. TO C
ONTINUE, .F1. TO EXIT.".P'DJ.AA$:.AA$..G
(13).AA$..G(133).19140..'NJ.AA$.G(13).19
000..'XJ.50000:. END..'.J.4,8,4,"0:".SF$
."/S":.4,NF..'.J.I.1.NF:.4,PR$,X%,Y%,L%(
I),T$:RS.RS.L%(I).1:F$(I).H(SP$,L%(I))..
(.J.I: 4.3(.KBS..254.(RS.253).RS.(RS.254
):.710,BS:.709,NF.C(.K.NG.0.19300.K(.KNM
$.SF$."/GLB":.60005:. ER.20.19290..(.K."
... .";SF$;". GLOBAL FILE NOT FOUND"
..((K. ".. MAKE SURE THE . DATA . DISK
IS IN .DRIVE ";DN$;"."..)2K.H(Y
$,24)" PRESS .RETURN. TO CONTINUE, .F1.
TO EXIT.".B)<K.AA$:.AA$..G(13).AA$..G(13
3).19260.W)FK.AA$.G(13).19220.H)PK.50000
:. END..)ZK.4,DV,4,DV$.SF$."/GLB"..)_K.I
.1.NG:.4,GL$:GL(I).E(GL$):. I: 4.N)DKNM$
.SF$."/INDX":.60005:.ER.20....*NK."...
YOU DO NOT HAVE A SORTED INDEX FILE ".)
*XK." ON THIS DISK. IN ORDER TO RUN A".
T*.K." REPORT PROGRAM, YOU MUST RUN SOR
T".M*.K." THE FIRST TIME."..*.K.". IF
YOU HAVE SORTED THEN INSERT THE DIS
K CONTAINING THE";..*.K." THE . DATA . F
ILE AND SORTED FILE (INDX) IN DRIVE
"DN$.8+.K." AND PRESS RETURN. OTHERWISE
CHOOSE THE SORT OPTION.".`+.K.".
.*** IMPORTANT NOTE ***."..+.K.".
WHEN RUNNING SORT MAKE SURE THE":." PR
OGRAM .RTL-64. IS";.X+.K." ON THE SAME D
ISK AS THE SORT PROGRAM.".., K.H(Y$
,24)" PRESS .RETURN. TO CONTINUE,".,,.
K." .F1. TO SORT, .F3. TO EXIT";.C,.K.
AA$:.AA$."".19365.X,.K.AA$.G(13).19300.N
,.K.AA$.G(133)..:.85..,.K.AA$..G(134).19
365..,.K. 50000:. END..,.K...,_M. == CAL
C PC'S ==..,`M..X,O.. == KEYBOARD INPUT
RTN ==..,P.IN$."":J.1:AD.1024.(Y%.1).40.
X%.1..-U.. H(Y$,Y%);.X%);H(SP$,L%);.4-Z.
. AD.J,B(AD.J).128.L-... I$:. I$."". 340
30.C-... I$.G(34) . 34030..-..II.F(I$):.
II.27 . IN$.I$:...-...(II.32.II..20.II.
.13).(II.128.II.192).(II.218). 34010.S-.
.. II..20 . 34070..-...J.1.34010.....J.J
.1:IN$.H(IN$,J.1):I$." ":.H(Y$,Y%);.X%.J
);I$;:.34090.A.... II.13 . .AD.J,B(AD.J)
. 127:..P. .IN$.IN$.I$.J.*..H(Y$,Y%);.X%
.J.1);I$...4..J.L%.IN$.H(IN$,J.1).I$:. 3
4010. .>..II..20.J.J.1...H..34010.Q....G
(147):."WHAT IS TODAY'S DATE ?".....X%.2
3:Y%.2:.49000:VD$(1).IN$...L..../... ==
NUMERIC FLD FORMATTING ==.8/ ..TP$."Y".D
O$.H(GB$,FW):..F/..DO$.D(E(DO$)):. H(I(D
O$,4),1)."E" . 36090../..DO$.D(.(E(DO$).
.(10.DP).0.5)..(10.DP))../...E(DO$)..0.D
O$.J(DO$,2)../..L.C(DO$).J/...DP.0.36080
../...J.1.L:.J(DO$,J,1).".".36040../...J
..0H..J..L.36060."0R.DO$.DO$.".".H(Z$,DP
):.36070.=0..DO$.DO$.H(Z$,DP.(L.J)).R0..
.J.1.DO$."0".DO$.R0... C(DO$).FW . DO$.H
(DO$,FW)..0..DO$.I(SP$.DO$,FW)..0.....0.
.. == DATE FLD OUTPUT FORMAT ==..0... AE
$."A" . DA$ . J(DA$,3,2)."/".I(DA$,2)."/
".H(DA$,2).'1... AE$."E" . DA$ . I(DA$,2
)."/".J(DA$,3,2)."/".H(DA$,2).-1....Q1{.
. == DATE FLD COMPARE FORMAT ==..1|.. AE
$."A" . DA$ . I(DA$,2).H(DA$,2).J(DA$,3,
2)..1... AE$."E" . DA$ . I(DA$,2).J(DA$,
3,2).H(DA$,2)..1....X1G.. == DATE INPUT
RTN ==..1H.. H(Y$,Y%);.X%);"../../..";..
2R.J.1:IN$."":AD.1024.(Y%.1).40.X%.1.42|
..AD.J,B(AD.J).128.I2...J$:.J$."".49030.
]2...J$.G(34).49030.J2..JJ.F(J$).{2...JJ
.27.49030..2...JJ..48.JJ..57.49200..2...
JJ..13.49110..2B..C(IN$).6.49030..2L.. A
D.8,B(AD.8) . 127 : . 49250..2V..JJ..20.
49160..3...H(Y$,Y%);.X%.J.1);".";."3...J
.1.IN$."":.49020.83...J.8.IN$.H(IN$,5).E
3..IN$.H(IN$,C(IN$).1):J.J.1:.J.3.J.6.J.
J.1..3...H(Y$,Y%);.X%.J.1);".";..3...490
20..3...JJ..32.49030..3...H(Y$,Y%);.X%.J
.1);".";.Y3...J.1.J.4.J.7.J$."0":.49210.
.3&.J$." ":.49210..40..H(Y$,Y%);.X%.J.1)
;J$;..4:..J.8.IN$.H(IN$,5).@4D.IN$.IN$.J
$:J.J.1:.J.3.J.6.J.J.1.M4N..J.9.J.8.X4X.
.49020..4B.XX.E(H(IN$,2)):YY.E(J(IN$,3,2
)):ZZ.E(I(IN$,2))..4...H(Y$,23);SP$;..4.
.. AE$."E" . TM.XX:XX.YY:YY.TM..4...(ZZ.
4)...(ZZ.4)..49350:.ER.18.ER.0:.49000.*5
... XX.1 . XX.12 . .H(Y$,23);"MONTH OUT
OF RANGE":.49000.G5... YY.1 . YY.DT%(XX)
..H(Y$,23);"DAY OUT OF RANGE":.49000..5
..IN$.I("00".J(D(ZZ),2),2)..5..IN$.IN$.I
("00".J(D(XX),2),2).F5..IN$.IN$.I("00".J
(D(YY),2),2).L5.....6F..XX.2.YY.29..H(Y$
,23);"DAY OUT OF RANGE":ER.18:...6P...56
PC.".... DO YOU WANT TO LINK TO THE MA
IN".K6QC." MENU? (Y/N)";.B6RC.AA$:.AA$.
"".50002.U6TC.AA$."N".50022..6VC.AA$.."Y
".50002..6XCNM$."MENU":.60000:.ER.20.500
18..6\C.".. *** MENU NOT IN DRIVE 0.
":.". MAKE SURE THE DISK ";.&7]C."CONTA
INING THE MENU PROGRAM IS IN DRIVE
0.".R7^C.H(Y$,24)" PRESS .RETURN. TO CO
NTINUE.".M7_C.AA$:.AA$..G(13).50015.X7`C
.50000..7BC.".";H(Y$,5);" ******
. LOADING MENU . ******".H7DC 15:.:."0:M
ENU",8..7FC.".": 15:.15,DV,15,"I": 15:.:
..+8.CDR$.J(D(B(968)),2):DV.B(969):D$.J(
D(B(967)),2):.646,B(1000).Y8.CSF$."":.I.
1.B(971):SF$.SF$.G(B(971.I)):.I..8.CRN$.
SF$."/R".J(D(B(970)),2):NM$.SF$."/B".B8.
C.15,DV,15,"I":.".":."@".DR$.":".RN$,DV:
. DR$.":".RN$,DV..8.C.15,ER$,EM$,ES$,ET$
:S$.ER$.":".EM$.":".ET$.",".ES$..9.D."."
:.:.RN$;" SAVE STATUS: ";S$:..;9.D."TO R
UN YOUR PROGRAM,".A9.D..F9"D."":.:."
TYPE 'LOAD ";G(34);..9,D.RN$;G(34)",8'"
:." TYPE 'RUN'" : ...9ID. == PRINTER
FILE ==.S9JDSA.7:PD.4:NM$."PFIG":.60005
:.ER.19....9TD.5,8,5,"0:PRCON":.5,PD,SA:
5:...:{D. == PRINTER CONFIG ==..:|D.502
50.M:.D.".... *** . PRINTER CONFIGURA
TION . ***"..:.D.H(Y$,10)" CURRENT DEV
ICE VALUE ........."D(PD);" ".C:.D.H(Y$
,12)" CURRENT SECONDARY ADDRESS ...."D
(SA);" "..:.D.H(Y$,18)" IS THIS INFORMA
TION CORRECT (Y/N) ?".-;.DX%.37:Y%.18:L%
.1:.34000:. IN$.."N".IN$.."Y".50340.H;.D
. IN$."Y".PB%.0:.50600.;.D.H(Y$,18)" EN
TER NEW DEVICE VALUE: ";..;
BDX%.26:Y%.18:L%.2:.34000:. IN$."" .5040
0.J;LD. E(IN$).4.E(IN$).15.50370.X;VDPD.
E(IN$)..<.D.H(Y$,18)" ENTER NEW SECONDAR
Y ADDRESS: ";.;<.DX%.30:Y%.18:L%
.3:.34000:. IN$."" .50310.[<.D. E(IN$).4
.E(IN$).255.50410.P<.DSA.E(IN$):.50310..
<.E 4:.4,PD:.4," ":.ST..128. 4:.50660..
<PE 4:..T<.E.H(Y$,20)" *** . PRINTE
R NOT READY . ***"..=.E.".. PRESS .RETUR
N. TO CONTINUE, .F1. TO EXIT."./=.F.IN$:
.IN$..G(13).IN$..G(133).50690.E=.F. IN$.
G(13).50305.R=PFPB%..1:..H=_.. == ERROR
CHK ==..=`. 15:.15,8,15:.5,8,5,"0:".NM$:
.60010..=E. 15:.15,DV,15:.5,DV,5,DV$.NM$
.T=J..15,ER$,EM$,ET$,ES$:ER.E(ER$)..=T.
5: 15:...=H.. == LEFT SCR ==..>M..C(PS$)
.80.PS$.PS$.SP$:PS$.H(PS$,80).*>R..61130
.@>W..H(PS$,C(PS$).2);.F>\..._>...".";:.
RIGHT OF SCR.X>...I.1.XT:.RH$(I);:.:...
>...".";:. LEFT OF SCR..>...I.1.XT:.LH$(
I);:...>.....>J.XT.XT.1.O>T.RH$(XT).I(PS
$,40)..>..LH$(XT).H(PS$,40)..>.....?0.XT
.XT.1:LH$(XT).H(SP$,40):RH$(XT).LH$(XT):
.....G(133).50690.E=.F. IN$.G(13).50305.
R=PFPB%..1:..H=_.. == ERROR CHK ==..=`.
15:.15,8,15:.5,8,5,"0:".NM$:.60010..=E..
..... B(2053).158.15.O....(B(45).B(46).2
56).12000..45,B(174):.46,B(175):.:A.0.Q.
... A.0..720,B(174):.721,B(175)...... A.
0.A.1:."0:M",8,1.G....174,B(720):.175,B(
721):.B(2053).158..41024,0:.41025,208...
U..:.198,0:. == CLER BUF...[.DV$."0:":DV
.8:DN$."0":NM$."CONFIG":.60000:.ER.19.93
.D.\..2,8,2,"0:CONFIG":.2,DV$:.2,DN$:.2,
DV.K.]. 2.I.C.. == NUMERIC CONSTANTS ==.
X.D.NS.1:RN%.2...I.SF$."PRGCAT":. * BASE
FILE.B.N.PD$." DESIGNED BY STEVE
REAGAN"...P.TL$." . PROGRAM
LISTING ."...X.LR.2:. * RECS PER LINE...
}.OF.40:. * OFFSET.8...CT%.10:. * NUM PR
T FLDS.L...NF.18:NC.0:NG.0.F...MY.7:. *L
INES PER REC.....AE$."A":. * DATE FORMAT
... .HH.0:. * HDR HGHT.....HS.25.HH.2:HP
.66.HH.M.... RH$(59),LH$(59),TS(20).....
. F$(NF),L%(NF),X%(CT%),Y%(CT%),PT%(CT%)
,FD$(CT%,LR).0.... PF(NS),PS(NS),CE(NC),
GL(NG),DT%(12).K.... SM.OM.0 . SS%.0:.19
5...A.SS%.NF.NC:.TT(SS%),MN(SS%),MX(SS%)
,GT(SS%),GN(SS%),GX(SS%)...C..VD$(1)...G
.. ==STRING CONSTANTS==.P.R.SS$."":SP$."
":DD$."":Z$.""......I.1.80:SS$.SS$." ":S
P$.SP$." ":DD$.DD$."-":Z$.Z$."0":.I.1...
Y$.G(19):.I.1.24:Y$.Y$.G(17):.I.I...GB$.
"***************************************
******"......50338,96:.50107,63:.50108,1
96:. == READ RTN CHANGES.M....B(967).49.
B(968).96..646,B(1000):.300......969,82:
.970,RN%:J.53232:L.C(SF$).2:.J,L.'....I.
1.L:.J.I,F(J(DV$.SF$,I,1)):.I:.717,DV.W.
..."."H(Y$,7)" DO YOU WANT TO RUN
THE "......" .SORT. PROGRAM (Y/N) ?
":X%.28:Y%.8:L%.1:.34000......IN$."N".3
00......IN$.."Y".270.L...NM$."SORT":.600
00.Z....ER.0.292......"........ PLACE D
ISK WITH THE .SORT. PROGRAM".#...." IN
DRIVE 0.".P....H(Y$,24)" PRESS .RETURN.
TO SORT, .F1. TO CONTINUE WITHOUT SOR
TING";..... 2:.AA$:.AA$.G(133).300. . ..
AA$..G(13).287...!..282...$.."..........
PROGRAM LOADING, PLEASE WAIT ...";...
'..:."0:SORT",8...+.. == INIT VARBLS ==.
0.,..967,0:.968,0:.I.1.12:DT%(I).31:.I.G
...DT%(2).29:DT%(4).30:DT%(6).30:DT%(9).
30:DT%(11).30.../.."."H(Y$,7)TL$H(Y$,10)
PD$...6..17000:.19000.M.E.LP.0:CO.0:SC.1
:.IT.1.59:LH$(IT)."":RH$(IT)."":.IT...F.
FLG%.0:.I.1.NS:TS(I).0:.I.!.G..SS%.0..Z.
1.SS%:GT(Z).0:GX(Z)..1E32:GN(Z).1E32:.Z.
>.H..".";:.35000:.==VN,VA,VD.\.J.DA$.VD$
(1):.37000:DY$.DA$.T.O.. NS.1. O$."Y":.3
43...T.."..DO YOU WISH TO SEE ALL REPORT
".R.U.."SECTIONS ?(Y/N) ";:X%.56:Y%.2:L%
.1:.34000:O$.IN$...V..O$.."Y".O$.."N".34
0...W..O$."Y"..QQ.1.NS:TS(QQ)..1:.QQ:.40
0.&.X.I.5:IP%.1:.".".Q.Y..".. ENTER THE
SECTION NUMBER(S) YOU "...Z.."WISH TO IN
CLUDE IN THIS REPORT":."(1-";NS;") OR .R
ETURN. TO EXIT.".B.[.X%.28:Y%.4:L%.2:.34
000:. IN$."".380...\.OO.E(IN$):.OO.NS.OO
.1.345...]..TS(OO)...1.360.0.^.."** SECT
ION ";OO;" ALREADY SELECTED **";:.QQ.1.6
00:.QQ.F.`..H(Y$,5);SP$:.345.X.H.TS(OO).
.1:I.I.2:.H(Y$,I);.IP%);"SECTION: ";OO..
.J..I.22.I.5:IP%.20...L.FLG%..1:.345...|
..FLG%.400......H(Y$,10);"*** NO SECTIO
NS SELECTED ! ***".....FLG%.0:.QQ.1.600:
.QQ:.340.3....".WOULD YOU LIKE YOUR REPO
RT SENT TO THE SCREEN ";.Q...."OR THE P
RINTER (S/P) ? ";:X%.69:Y%.1:L%.1:.34000
:O$.IN$......O$.."P".O$.."S".400......O$
."P"..50300:HT.HP:.PB%.400.C....O$."S".P
D.3:HT.HS.....RP..(HT.MY):.RP.0.RP.1....
. 4:.4,PD,SA......O$."S".476.-.B..".. A
T THIS POINT, YOU MAY PRINT A TEST".M.D.
." PAGE THAT WILL HELP YOU LINE UP YOUR
FORMS PROPERLY."...E..". WOULD YOU LI
KE A TEST PAGE (Y/N) ?";...F.X%.36:Y%.6:
L%.1:. 34000:TP$.IN$.Y.L..TP$.."Y".TP$..
"N".454...Q..TP$."Y"..10000:TP$."".&.S..
".. YOUR REPORT IS NOW READY TO BE PRINT
ED.".C.V..".. SET PRINTER TO TOP OF FORM
AND PRESS .RETURN.".|.X..AA$:.AA$.
.G(13).472...Z.. O$."P"..".. PRINTING RE
PORT...":.490......". TO BEGIN THE REPOR
T LISTING, PRESS .RETURN."......AA$
:.AA$..G(13).477......".";.(...NM$.SF$."
0/D":.60005:.ER.20.497.T....".... .";
SF$". DATA FILE NOT FOUND"...... ".. M
AKE SURE THE . DATA . DISK IS IN .
DRIVE ";DN$;"."......H(Y$,24)" PRESS .RE
TURN. TO CONTINUE, .F1. TO END PROGR
AM.";......AA$:.AA$..G(13).AA$..G(133).4
94......AA$.G(13).490.(....50000:. END.>
.....TS(1).PC.0:.500.T...PC.0:.PF(1)..91
00.H.... = MAIN RTN ==......715,1:.716,0
:.711,1:. 50442:. 50361:. == OPEN FILES.
M...FLG%.0:LE.0:LS..1:.SC.1.NS:..TS(SC).
562......3,DV,3,DV$.SF$."/INDX":R.1:PR..
1.'...AA$."":.18000:.AA$."X".518:. INITI
ALIZE SECTION.Q....3,IK$:IK.E(IK$):.H(IK
$,1).G(255).558.~...AA$."":.RC.RP.PF(SC)
..9000:LE.0:. NEW PG......AA$."X".SC.NS:
.600......700:. 65484......NC.0..28000.C
....12000.M....6000.......ME%.557.....CS
.CS.1......4000...!...PF(SC).557...&..80
00.!.(.R.R.1:.R..LR.557.+.+..7000.;.,.R.
1:RC.RC.1.O.-..510:. NEXT REC.D...PR.0:.
CS.0.PR..1.../..R.1.LE.1:.7000:. OUTPUT
LEFTOVERS...0.FLG%..1:..PF(SC).LS.0.C.1.
.2000:.AA$."X".SC.NS:.600.T.2.PC.0: 3:.
SC...5..11000:.AA$."X".600...:..O$."P"..
600.;.D..H(Y$,25);".F1. LEFT HALF,.F3. R
IGHT HALF,.F7. CONTINUE";.Q.N..AA$:. AA$
."".590.E.O..AA$.G(136).600...P..AA$.G(1
33)..61110:.580...Q..AA$.G(134)..61100:.
580...R..590.A.X..".":XT.0: 2: 3: 4: 15.
..B..H(Y$,6);"DO YOU WANT ANOTHER REPORT
(Y/N) ? ";.).L.X%.35:Y%.6:L%.1:.34000
:.IN$.."Y".IN$.."N".610.:.V..IN$."Y".325
.E....50000.Y...BL..(RS.(IK.1).BS).1:OS.
(RS.(IK.1)).(BS.(BL.1))...F.HB..(BL.256)
:LB.BL.256.HB...P..715,LB:.716,HB:.711,O
S.1.A.Z.. 50106.G.......O.. == END OF SE
C RTN ==...P..CS.0.....T.CO.CO.CS...L..S
C.NS.LS.0:....N........ = ACCUM SECT TOT
S ==.N. ..:. == UPDATE TOTAL,MAX,MIN.T..
...L.N.. == ACCEPT IF'S ==.{.P..SC.0.650
0...D.ME%..1...F.....W.. == PRTING RTN =
=...X..LN.1.MY:FL.0.B.B..I.1.CT%...L..Y%
(I).LN.FL.FL.1:PT%(FL).I...V..I.....PS$.
"":.FL.0.7100......I.1.R.1:S$."".5....J.
1.FL:JI%.X%(PT%(J)).C(S$).1.X...S$.S$.H(
SP$,JI%).FD$(PT%(J),I)......J.FL..X%(PT%
(J.1)).C(S$).S$.H(S$,X%(PT%(J.1)).1)....
..J:PS$.PS$.S$.H(SP$,OF.C(S$))......I.T.
..PS$.PS$.H(SP$,80.C(PS$))...B..O$."S"..
61000:.7120...F..4,PS$...P..LN:....?.. =
SET OUTPUT FLDS ==.;.@.. == SET OUTPUT
ARRAY ==.N.B.FD$(2,R).F$(3).A.F.FD$(4,R
).F$(4).T.J.FD$(6,R).F$(5). .N.FW.4:DP.0
:DO$.F$(1):.36000:FD$(8,R).DO$...R.FD$(1
0,R).F$(2)...T...S.'#. == NEW PAGE RTN =
=...(#. O$."P". 9030...0#.H(Y$,24)"ENTER
.X. TO EXIT REPORT IN PROGRESS.".Y.2#.H
(Y$,25);".F1. LEFT HALF,.F3. RIGHT HALF,
.F7. CONTINUE";.O.7#.AA$:.AA$."".9015...
:#.AA$."X"..".";:....<#.AA$.G(136)..".";
:XT.0:.9040.B.=#.AA$.G(133)..61110:.9008
...>#.AA$.G(134)..61100:.9008...@#.9015.
..F#..LS.9040.. P#LS..1:HC.0:RC.0:..% .#
. == PAGE HEADER ==.5 .#HC.0:RC.0:..K .'
. == TEST PAGE ==.M .'.I.1.NF:F$(I).H(GB
$,L%(I)):.I.. .'.R.1.LR:.8000:.R.. L'.".
SET PRINTER TO TOP OF FORM AND PRESS
.RETURN.".Y V'.AA$:.AA$..G(13).10070.
. `'.9100:. == PRT HDR..!J'.K.1.RP:.7000
:.K. !.'.SA..7..4,G(12):.10130.J!.'LI.RP
.MY.HH:.LI.66..IT.1.66.LI:.4:.IT.P!.'. "
... ANOTHER TEST PAGE ?(Y/N)";..!.'X%.26
:Y%.3:L%.1:.34000:TP$.IN$..!.'.TP$.."Y".
TP$.."N".10130.C!.'.TP$."Y".10060.I!.'..
.!.*. == GRD TOT OUTPUT RTN ==..!.*. ==
END REPORT.<".+PS$."END OF REPORT
END OF REPORT".^".+.
4:.4:.O$."S"..62000:.61000:..I".+.4,PS$.
.".+LI..PR.(RC.LE).MY.HH.3:.IT.1.66.LI:.
4:.IT..".+..."... == CONVERT TO COMPARE
==.B"....."GB. == MAIN INIT RTN ==.."HB.
I.1.CT%:.X%(I),Y%(I):.I..#RB.HD$:.H1$:HD
$.HD$.H1$:.PH$.H#WB.I.1.NS:.PF(I),PS(I):
.I:. IF NO PRT:PF,PS=0.E#|B.I.1.CT%:.F,K
:.F.0.17050..#.B.TX$:.K.2..T1$:TX$.TX$.T
1$..#.B.R.1.LR:FD$(F,R).TX$:.R:.I..#.B..
.#\D.5,2,19,2,5,3,11,3,5,4,15,4,5,5,18,5
,5,6,16,6..#`D.""..#BD.""..#DD.""..#LD.-
1 , 0..$PD.1,1,"PROGRAM NAME:".)$RD.3,1,
"TYPE:".>$TD.5,1,"CATAGORY:".V$VD.7,1,"D
ISK NUMBER:".L$XD.9,1,"DISK NAME:".U$ZD.
0,0..$OF. == SECT INIT ==.A$PF.SS%.0..Z.
1.SS%:TT(Z).0:MX(Z)..1E32:MN(Z).1E32:.Z.
J$_FCS.0..$DF.(PF(SC).SC.1.TS(SC.1)).FLG
%..9000:.18030..%IF. PF(SC) . SC.1 .. TS
(SC.1)..9100.+%NFFLG%.0:..M%7J. == READ
SCR & GLBL FILES ==.W%8JNM$.SF$."/S":RS.
0:.60000:.ER.20.19170..%.J. ".... ."
;SF$;". SCREEN FILE NOT FOUND"..%.J. "..
MAKE SURE THE . APPLICATION . DISK
.IS IN DRIVE 0.".(&.J.H(Y$,24)" PRES
S .RETURN. TO CONTINUE, .F1. TO EXIT.".O
&DJ.AA$:.AA$..G(13).AA$..G(133).19140.D&
NJ.AA$.G(13).19000.U&XJ.50000:. END..&.J
.4,8,4,"0:".SF$."/S":.4,NF.W&.J.I.1.NF:.
4,PR$,X%,Y%,L%(I),T$:RS.RS.L%(I).1:F$(I)
.H(SP$,L%(I))..&.J.I: 4..'.KBS..254.(RS.
253).RS.(RS.254):.710,BS:.709,NF."'.K.NG
.0.19300.J'.KNM$.SF$."/GLB":.60005:. ER.
20.19290.Y'.K."... .";SF$;". GLOBAL
FILE NOT FOUND"..'(K. ".. MAKE SURE TH
E . DATA . DISK IS IN .DRIVE ";D
N$;"."..'2K.H(Y$,24)" PRESS .RETURN. TO
CONTINUE, .F1. TO EXIT.".!(<K.AA$:.AA$..
G(13).AA$..G(133).19260.6(FK.AA$.G(13).1
9220.G(PK.50000:. END.B(ZK.4,DV,4,DV$.SF
$."/GLB"..(_K.I.1.NG:.4,GL$:GL(I).E(GL$)
:. I: 4..(DKNM$.SF$."/INDX":.60005:.ER.2
0....(NK."... YOU DO NOT HAVE A SORTED
INDEX FILE "..)XK." ON THIS DISK. IN O
RDER TO RUN A".3).K." REPORT PROGRAM, Y
OU MUST RUN SORT".L).K." THE FIRST TIME
."..).K.". IF YOU HAVE SORTED THEN INS
ERT THE DISK CONTAINING THE";.U).K."
THE . DATA . FILE AND SORTED FILE (
INDX) IN DRIVE "DN$..*.K." AND PRESS RE
TURN. OTHERWISE CHOOSE THE SORT OPT
ION.".?*.K.". .*** IMPORTANT NOTE
***."..*.K.". WHEN RUNNING SORT MAKE S
URE THE":." PROGRAM .RTL-64. IS";..*.K.
" ON THE SAME DISK AS THE SORT PROG
RAM."..* K.H(Y$,24)" PRESS .RETURN. TO
CONTINUE,"..+.K." .F1. TO SORT, .F3.
TO EXIT";."+.K.AA$:.AA$."".19365.7+.K.AA
$.G(13).19300.M+.K.AA$.G(133)..:.85.D+.K
.AA$..G(134).19365.V+.K. 50000:. END.|+.
K...+_M. == CALC PC'S ==..+`M...+O.. ==
KEYBOARD INPUT RTN ==..+P.IN$."":J.1:AD.
1024.(Y%.1).40.X%.1..+U.. H(Y$,Y%);.X%);
H(SP$,L%);..,Z.. AD.J,B(AD.J).128.+,...
I$:. I$."". 34030.B,... I$.G(34) . 34030
.B,..II.F(I$):. II.27 . IN$.I$:...,...(I
I.32.II..20.II..13).(II.128.II.192).(II.
218). 34010..,... II..20 . 34070.A,...J.
1.34010..,..J.J.1:IN$.H(IN$,J.1):I$." ":
.H(Y$,Y%);.X%.J);I$;:.34090. -... II.13
. .AD.J,B(AD.J). 127:../- .IN$.IN$.I$.I-
*..H(Y$,Y%);.X%.J.1);I$.M-4..J.L%.IN$.H(
IN$,J.1).I$:. 34010.->..II..20.J.J.1..-
H..34010..-...G(147):."WHAT IS TODAY'S D
ATE ?".Q-..X%.23:Y%.2:.49000:VD$(1).IN$.
W-L....-... == NUMERIC FLD FORMATTING ==
... ..TP$."Y".DO$.H(GB$,FW):..E...DO$.D(
E(DO$)):. H(I(DO$,4),1)."E" . 36090.P...
DO$.D(.(E(DO$)..(10.DP).0.5)..(10.DP))..
....E(DO$)..0.DO$.J(DO$,2).....L.C(DO$).
.....DP.0.36080.J....J.1.L:.J(DO$,J,1)."
.".36040.Q....J...H..J..L.36060../R.DO$.
DO$.".".H(Z$,DP):.36070../..DO$.DO$.H(Z$
,DP.(L.J)).1/...J.1.DO$."0".DO$.Q/... C(
DO$).FW . DO$.H(DO$,FW).G/..DO$.I(SP$.DO
$,FW).M/...../... == DATE FLD OUTPUT FOR
MAT ==.K/... AE$."A" . DA$ . J(DA$,3,2).
"/".I(DA$,2)."/".H(DA$,2)..0... AE$."E"
. DA$ . I(DA$,2)."/".J(DA$,3,2)."/".H(DA
$,2)..0....00{.. == DATE FLD COMPARE FOR
MAT ==.C0|.. AE$."A" . DA$ . I(DA$,2).H(
DA$,2).J(DA$,3,2)..0... AE$."E" . DA$ .
I(DA$,2).J(DA$,3,2).H(DA$,2)..0.....0G..
== DATE INPUT RTN ==.W0H.. H(Y$,Y%);.X%
);"../../..";..0R.J.1:IN$."":AD.1024.(Y%
.1).40.X%.1..1|..AD.J,B(AD.J).128.(1...J
$:.J$."".49030.<1...J$.G(34).49030.I1..J
J.F(J$).Z1...JJ.27.49030.S1...JJ..48.JJ.
.57.49200..1...JJ..13.49110..1B..C(IN$).
6.49030..1L.. AD.8,B(AD.8) . 127 : . 492
50.N1V..JJ..20.49160..1...H(Y$,Y%);.X%.J
.1);".";..2...J.1.IN$."":.49020..2...J.8
.IN$.H(IN$,5).D2..IN$.H(IN$,C(IN$).1):J.
J.1:.J.3.J.6.J.J.1.`2...H(Y$,Y%);.X%.J.1
);".";.K2...49020.}2...JJ..32.49030..2..
.H(Y$,Y%);.X%.J.1);".";..2...J.1.J.4.J.7
.J$."0":.49210.J2&.J$." ":.49210..20..H(
Y$,Y%);.X%.J.1);J$;..2:..J.8.IN$.H(IN$,5
)..3D.IN$.IN$.J$:J.J.1:.J.3.J.6.J.J.1.,3
N..J.9.J.8.73X..49020.J3B.XX.E(H(IN$,2))
:YY.E(J(IN$,3,2)):ZZ.E(I(IN$,2)).}3...H(
Y$,23);SP$;..3... AE$."E" . TM.XX:XX.YY:
YY.TM.N3...(ZZ.4)...(ZZ.4)..49350:.ER.18
.ER.0:.49000..4... XX.1 . XX.12 . .H(Y$,
23);"MONTH OUT OF RANGE":.49000.F4... YY
.1 . YY.DT%(XX) ..H(Y$,23);"DAY OUT OF R
ANGE":.49000.C4..IN$.I("00".J(D(ZZ),2),2
)..4..IN$.IN$.I("00".J(D(XX),2),2)..4..I
N$.IN$.I("00".J(D(YY),2),2)..4.....4F..X
X.2.YY.29..H(Y$,23);"DAY OUT OF RANGE":E
R.18:...4P....5PC.".... DO YOU WANT TO
LINK TO THE MAIN".*5QC." MENU? (Y/N)";
.A5RC.AA$:.AA$."".50002.T5TC.AA$."N".500
22.H5VC.AA$.."Y".50002..5XCNM$."MENU":.6
0000:.ER.20.50018.M5\C.".. *** MENU
NOT IN DRIVE 0.":.". MAKE SURE THE DISK
";..6]C."CONTAINING THE MENU PROG
RAM IS IN DRIVE 0.".16^C.H(Y$,24)" PRESS
.RETURN. TO CONTINUE.".L6_C.AA$:.AA$..G
(13).50015.W6`C.50000..6BC.".";H(Y$,5);"
****** . LOADING MENU . ******".
.6DC 15:.:."0:MENU",8.J6FC.".": 15:.15,D
V,15,"I": 15:.:...7.CDR$.J(D(B(968)),2):
DV.B(969):D$.J(D(B(967)),2):.646,B(1000)
.87.CSF$."":.I.1.B(971):SF$.SF$.G(B(971.
I)):.I.E7.CRN$.SF$."/R".J(D(B(970)),2):N
M$.SF$."/B"..7.C.15,DV,15,"I":.".":."@".
DR$.":".RN$,DV:. DR$.":".RN$,DV.X7.C.15,
ER$,EM$,ES$,ET$:S$.ER$.":".EM$.":".ET$."
,".ES$..7.D.".":.:.RN$;" SAVE STATUS: ";
S$:...8.D."TO RUN YOUR PROGRAM,". 8.D..E
8"D."":.:." TYPE 'LOAD ";G(34);.P8,D
.RN$;G(34)",8'":." TYPE 'RUN'" : ...
8ID. == PRINTER FILE ==..8JDSA.7:PD.4:NM
$."PFIG":.60005:.ER.19...U8TD.5,8,5,"0:P
RCON":.5,PD,SA: 5:...8{D. == PRINTER CON
FIG ==..8|D.50250.,9.D.".... *** . PR
INTER CONFIGURATION . ***".G9.D.H(Y$,10)
" CURRENT DEVICE VALUE ........."D(PD)
;" "..9.D.H(Y$,12)" CURRENT SECONDARY
ADDRESS ...."D(SA);" ".V9.D.H(Y$,18)"
IS THIS INFORMATION CORRECT (Y/N) ?"..:.
DX%.37:Y%.18:L%.1:.34000:. IN$.."N".IN$.
."Y".50340.':.D. IN$."Y".PB%.0:.50600.^:
.D.H(Y$,18)" ENTER NEW DEVICE VALUE:
";..:BDX%.26:Y%.18:L%.2:.34000
:. IN$."" .50400..:LD. E(IN$).4.E(IN$).1
5.50370..:VDPD.E(IN$)..:.D.H(Y$,18)" ENT
ER NEW SECONDARY ADDRESS: ";..;.
DX%.30:Y%.18:L%.3:.34000:. IN$."" .50310
.:;.D. E(IN$).4.E(IN$).255.50410.O;.DSA.
E(IN$):.50310.W;.E 4:.4,PD:.4," ":.ST..1
28. 4:.50660..;PE 4:...;.E.H(Y$,20)"
*** . PRINTER NOT READY . ***"..;.E."
.. PRESS .RETURN. TO CONTINUE, .F1. TO E
XIT."..<.F.IN$:.IN$..G(13).IN$..G(133).5
0690.$<.F. IN$.G(13).50305.1<PFPB%..1:..
G<_.. == ERROR CHK ==.O<`. 15:.15,8,15:.
5,8,5,"0:".NM$:.60010..<E. 15:.15,DV,15:
.5,DV,5,DV$.NM$..<J..15,ER$,EM$,ET$,ES$:
ER.E(ER$)..<T. 5: 15:..U<H.. == LEFT SCR
==..<M..C(PS$).80.PS$.PS$.SP$:PS$.H(PS$
,80)..=R..61130..=W..H(PS$,C(PS$).2);.%=
\...>=...".";:. RIGHT OF SCR.W=...I.1.XT
:.RH$(I);:.:..O=...".";:. LEFT OF SCR..=
...I.1.XT:.LH$(I);:...=.....=J.XT.XT.1..
=T.RH$(XT).I(PS$,40).D=..LH$(XT).H(PS$,4
0).J=.....=0.XT.XT.1:LH$(XT).H(SP$,40):R
H$(XT).LH$(XT):....
> CLICK IMAGE PREVIEW FOR FULL MODAL