DO UPDATE
FILE INFORMATION
FILENAME(S): DO UPDATE
FILE TYPE(S): PRG
FILE SIZE: 10.5K
FIRST SEEN: 2025-11-30 20:14:52
APPEARS ON: 1 disk(s)
FILE HASH
4e1ae12e5effecb712fa8c61e46a376ae0a9769f4486483539311c295d2b6a43
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRACTIFILE | DO UPDATE | PRG | Curtcool, LPN | 29 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 15 04 00 00 8F 20 35 2F 31 30 2F 38 30 20 |....... 5/10/80 |
00000010: 20 39 3A 32 30 00 20 04 01 00 89 20 31 31 30 30 | 9:20. .... 1100|
00000020: 00 54 04 02 00 A0 31 35 3A 9F 20 31 35 2C 38 2C |.T....15:. 15,8,|
00000030: 31 35 2C 22 53 30 3A 44 4F 20 55 50 44 41 54 45 |15,"S0:DO UPDATE|
00000040: 22 3A 94 22 30 3A 44 4F 20 55 50 44 41 54 45 22 |":."0:DO UPDATE"|
00000050: 2C 38 3A 80 00 68 04 04 00 9F 34 2C 34 3A 9D 34 |,8:..h....4,4:.4|
00000060: 3A 99 22 93 22 3B 3A 9B 00 92 04 05 00 A1 47 24 |:.".";:.......G$|
00000070: 3A 81 56 B2 31 A4 C3 28 47 31 24 29 3A 8B 47 24 |:.V.1..(G1$):.G$|
00000080: B3 B1 CA 28 47 31 24 2C 56 2C 31 29 A7 82 56 3A |...(G1$,V,1)..V:|
00000090: 89 35 00 98 04 06 00 8E 00 B4 04 08 00 84 4B 4B |.5............KK|
000000A0: 28 56 4F 29 2C 45 2C 45 24 2C 53 2C 54 3A 8B 45 |(VO),E,E$,S,T:.E|
000000B0: B3 32 A7 8E 00 CF 04 09 00 99 22 44 49 53 4B 20 |.2........"DISK |
000000C0: 45 52 52 4F 52 3A 22 45 3B 45 24 3B 53 3B 54 00 |ERROR:"E;E$;S;T.|
000000D0: EF 04 0A 00 99 22 12 43 92 4F 4E 54 49 4E 55 45 |.....".C.ONTINUE|
000000E0: 3F 22 3A 47 31 24 B2 22 43 22 3A 8D 35 3A 8E 00 |?":G1$."C":.5:..|
000000F0: FA 04 0B 00 8F 20 4D 41 49 4E 00 0B 05 16 00 8F |..... MAIN......|
00000100: 20 43 48 41 4E 47 45 20 52 45 43 00 19 05 1F 00 | CHANGE REC.....|
00000110: 8F 20 43 41 4C 43 20 44 4F 00 2D 05 20 00 8F 20 |. CALC DO.-. .. |
00000120: 45 51 55 41 4C 20 20 53 45 41 52 43 48 00 43 05 |EQUAL SEARCH.C.|
00000130: 22 00 8F 20 4D 41 54 48 20 4F 50 45 52 41 54 49 |".. MATH OPERATI|
00000140: 4F 4E 53 00 53 05 23 00 8F 20 43 41 4E 54 20 46 |ONS.S.#.. CANT F|
00000150: 49 4E 44 00 65 05 29 00 8F 20 57 52 49 54 45 20 |IND.e.).. WRITE |
00000160: 41 20 52 45 43 00 79 05 2A 00 8F 20 52 45 41 44 |A REC.y.*.. READ|
00000170: 20 41 20 52 45 43 4F 52 44 00 90 05 2B 00 8F 20 | A RECORD...+.. |
00000180: 50 4F 53 49 54 49 4F 4E 20 50 4F 49 4E 54 45 52 |POSITION POINTER|
00000190: 00 9B 05 2C 00 8F 20 59 45 53 3F 00 B0 05 2F 00 |...,.. YES?.../.|
000001A0: 8F 20 52 55 4E 4E 49 4E 47 20 54 4F 54 41 4C 53 |. RUNNING TOTALS|
000001B0: 00 C1 05 33 00 8F 20 43 48 55 4E 4B 20 44 4F 57 |...3.. CHUNK DOW|
000001C0: 4E 00 D1 05 34 00 8F 20 20 43 48 55 4E 4B 20 55 |N...4.. CHUNK U|
000001D0: 50 00 E5 05 35 00 8F 20 20 46 49 4E 44 20 50 4F |P...5.. FIND PO|
000001E0: 49 4E 54 45 52 00 F7 05 3B 00 8F 20 50 41 53 53 |INTER...;.. PASS|
000001F0: 20 50 41 52 41 4D 53 00 05 06 3F 00 8F 20 52 45 | PARAMS...?.. RE|
00000200: 53 4F 52 54 3F 00 10 06 5B 00 8F 20 45 58 49 54 |SORT?...[.. EXIT|
00000210: 00 1F 06 5C 00 8F 20 4F 50 45 4E 20 53 45 51 00 |...\.. OPEN SEQ.|
00000220: 2A 06 4C 04 8F 20 4D 41 49 4E 00 43 06 4E 04 8B |*.L.. MAIN.C.N..|
00000230: 20 4C 49 B3 32 35 33 20 A7 20 97 20 49 56 2C 4C | LI.253 . . IV,L|
00000240: 49 AA 33 00 69 06 51 04 99 22 93 20 20 20 20 20 |I.3.i.Q..". |
00000250: 20 20 20 20 20 12 4D 41 4B 49 4E 47 20 43 41 4C | .MAKING CAL|
00000260: 43 55 4C 41 54 49 4F 4E 53 00 8A 06 53 04 8D 20 |CULATIONS...S.. |
00000270: 36 33 30 30 3A 8B 20 43 4B 20 A7 20 53 50 B2 31 |6300:. CK . SP.1|
00000280: 3A 8F 20 52 45 53 4F 52 54 3F 00 AF 06 56 04 8D |:. RESORT?...V..|
00000290: 20 39 32 30 30 3A 8B 20 45 20 A7 20 31 31 33 35 | 9200:. E . 1135|
000002A0: 3A 8F 20 4F 50 45 4E 20 46 49 4C 45 2D 2D 2D 00 |:. OPEN FILE---.|
000002B0: E7 06 5B 04 81 20 57 43 B2 31 A4 20 48 43 3A 84 |..[.. WC.1. HC:.|
000002C0: 53 45 2C 43 43 24 28 57 43 29 3A 45 46 B2 45 46 |SE,CC$(WC):EF.EF|
000002D0: AA 53 54 3A 82 20 57 43 3A 46 49 24 B2 43 43 24 |.ST:. WC:FI$.CC$|
000002E0: 28 53 4B 29 AA 5A 24 00 05 07 5D 04 3A 8D 20 33 |(SK).Z$...].:. 3|
000002F0: 32 30 30 3A 8F 20 46 49 4E 44 20 52 41 4E 20 52 |200:. FIND RAN R|
00000300: 45 43 4F 52 44 00 2E 07 5E 04 3A 8B 20 46 4F 24 |ECORD...^.:. FO$|
00000310: B3 B1 46 49 24 A7 20 8D 20 33 35 30 30 3A 89 20 |..FI$. . 3500:. |
00000320: 31 31 32 35 3A 8F 20 55 4E 46 4F 55 4E 44 00 72 |1125:. UNFOUND.r|
00000330: 07 5F 04 3A 20 46 4F 24 B2 22 22 3A 8B 20 46 52 |._.: FO$."":. FR|
00000340: B3 B2 48 52 20 A7 20 52 52 B2 46 52 3A 57 52 B2 |..HR . RR.FR:WR.|
00000350: 50 4F 25 28 52 52 2C 57 4B 29 3A 8D 20 34 32 30 |PO%(RR,WK):. 420|
00000360: 30 3A 46 4F 24 B2 46 24 28 53 46 29 3A 8F 20 52 |0:FO$.F$(SF):. R|
00000370: 45 44 00 8C 07 60 04 3A 20 8D 20 33 31 30 30 3A |ED...`.: . 3100:|
00000380: 8F 20 4D 41 4B 45 20 43 41 4C 43 53 00 A6 07 62 |. MAKE CALCS...b|
00000390: 04 3A 20 8D 20 32 32 30 30 3A 8F 20 43 48 41 4E |.: . 2200:. CHAN|
000003A0: 47 45 20 52 45 43 00 B9 07 65 04 3A 8B 20 45 46 |GE REC...e.:. EF|
000003B0: B2 30 20 A7 20 31 31 31 35 00 D0 07 6F 04 A0 20 |.0 . 1115...o.. |
000003C0: 53 45 3A 8B 20 53 50 20 A7 20 8D 20 31 39 30 30 |SE:. SP . . 1900|
000003D0: 00 ED 07 74 04 99 22 07 07 07 07 07 22 3A 8D 20 |...t..".....":. |
000003E0: 39 31 30 30 3A 90 3A 8F 20 45 58 49 54 00 FD 07 |9100:.:. EXIT...|
000003F0: 6C 07 8F 20 53 41 56 45 20 42 4F 4F 4B 00 2D 08 |l.. SAVE BOOK.-.|
00000400: 71 07 A0 20 53 45 3A 55 4B B2 57 4B 3A 99 22 11 |q.. SE:UK.WK:.".|
00000410: 28 53 43 52 41 54 43 48 49 4E 47 20 4F 4C 44 20 |(SCRATCHING OLD |
00000420: 42 4F 4F 4B 4B 45 45 50 49 4E 47 29 22 00 65 08 |BOOKKEEPING)".e.|
00000430: 76 07 3A 98 4B 4B 28 52 56 29 2C 22 53 22 AA 44 |v.:.KK(RV),"S".D|
00000440: 52 24 28 52 56 29 AA 22 3A 44 42 A2 22 AA 4E 41 |R$(RV).":DB.".NA|
00000450: 24 3A 56 4F B2 52 56 3A 8D 20 38 3A 8B 20 45 B1 |$:VO.RV:. 8:. E.|
00000460: 31 20 A7 20 8E 00 A3 08 7C 07 9F 20 53 45 2C 44 |1 . ....|.. SE,D|
00000470: 56 28 52 56 29 2C 53 45 2C 44 52 24 28 52 56 29 |V(RV),SE,DR$(RV)|
00000480: AA 22 3A 44 42 A2 22 AA 4E 41 24 AA 22 2C 53 2C |.":DB.".NA$.",S,|
00000490: 57 22 3A 56 4F B2 52 56 3A 8D 20 38 3A 8B 45 20 |W":VO.RV:. 8:.E |
000004A0: A7 20 8E 00 E9 08 80 07 98 53 45 2C 4D 52 3B 52 |. .......SE,MR;R|
000004B0: 24 48 52 3B 52 24 52 53 3B 52 24 48 42 3B 52 24 |$HR;R$RS;R$HB;R$|
000004C0: 48 46 3B 52 24 53 46 3B 52 24 52 42 3B 52 24 48 |HF;R$SF;R$RB;R$H|
000004D0: 4B 3B 52 24 57 4B 3B 52 24 44 4B 3B 52 24 44 45 |K;R$WK;R$DK;R$DE|
000004E0: 3B 52 24 4D 43 3B 52 24 3B 00 11 09 85 07 81 20 |;R$MC;R$;...... |
000004F0: 57 46 B2 31 20 A4 20 48 46 3A 98 53 45 2C 51 24 |WF.1 . HF:.SE,Q$|
00000500: 3B 46 54 24 28 57 46 29 3B 52 24 3B 3A 82 20 57 |;FT$(WF);R$;:. W|
00000510: 46 00 3D 09 8A 07 81 20 44 B2 30 A4 35 3A 81 20 |F.=.... D.0.5:. |
00000520: 58 B2 30 A4 48 4B 3A 98 53 45 2C 53 46 25 28 58 |X.0.HK:.SE,SF%(X|
00000530: 2C 44 29 3B 52 24 3B 3A 82 20 58 2C 44 00 56 09 |,D);R$;:. X,D.V.|
00000540: 8F 07 99 22 28 53 41 56 49 4E 47 20 50 4F 49 4E |..."(SAVING POIN|
00000550: 54 45 52 53 29 22 00 8A 09 94 07 3A 81 20 58 B2 |TERS)".....:. X.|
00000560: 30 A4 48 4B 3A 81 20 52 52 B2 31 20 A4 20 48 52 |0.HK:. RR.1 . HR|
00000570: 3A 98 53 45 2C 50 4F 25 28 52 52 2C 58 29 3B 52 |:.SE,PO%(RR,X);R|
00000580: 24 3B 3A 82 20 52 52 3A 82 58 00 B8 09 99 07 8B |$;:. RR:.X......|
00000590: 20 52 33 20 A7 20 99 22 28 53 41 56 49 4E 47 20 | R3 . ."(SAVING |
000005A0: 42 4C 4F 43 4B 20 4D 41 50 29 22 3A 81 20 58 B2 |BLOCK MAP)":. X.|
000005B0: 31 A4 31 30 3A 82 20 58 00 F0 09 9E 07 3A 8B 20 |1.10:. X.....:. |
000005C0: 52 33 20 A7 20 81 20 57 42 B2 31 20 A4 20 48 42 |R3 . . WB.1 . HB|
000005D0: 3A 98 53 45 2C 22 20 22 54 25 28 57 42 29 52 24 |:.SE," "T%(WB)R$|
000005E0: 22 20 22 53 25 28 57 42 29 52 24 3B 3A 82 57 42 |" "S%(WB)R$;:.WB|
000005F0: 00 22 0A A3 07 8B 52 34 A7 CE 23 28 52 41 29 3A |."....R4..#(RA):|
00000600: CD 23 28 52 41 29 2C 28 22 52 41 A2 22 AA 4E 41 |.#(RA),("RA.".NA|
00000610: 24 29 2C 4C 28 52 53 29 2C 44 28 44 52 28 52 56 |$),L(RS),D(DR(RV|
00000620: 29 29 00 42 0A A8 07 81 58 B2 31 A4 48 46 3A 98 |)).B....X.1.HF:.|
00000630: 53 45 2C 22 20 22 4D 46 25 28 58 29 52 24 3B 3A |SE," "MF%(X)R$;:|
00000640: 82 58 00 5C 0A AD 07 53 50 B2 30 3A A0 20 53 45 |.X.\...SP.0:. SE|
00000650: 3A 56 4F B2 52 56 3A 8D 20 38 3A 8E 00 6D 0A 98 |:VO.RV:. 8:..m..|
00000660: 08 8F 20 43 48 41 4E 47 45 20 52 45 43 00 80 0A |.. CHANGE REC...|
00000670: 9D 08 8B 20 43 4B B2 30 A7 8D 34 31 30 30 3A 8E |... CK.0..4100:.|
00000680: 00 A3 0A A2 08 55 52 B2 57 52 3A 55 4B B2 57 4B |.....UR.WR:UK.WK|
00000690: 3A 8D 34 35 30 30 3A 8F 45 4D 42 45 52 20 57 52 |:.4500:.EMBER WR|
000006A0: 2C 57 4B 00 B0 0A A7 08 81 57 4B B2 30 A4 48 4B |,WK......WK.0.HK|
000006B0: 00 D7 0A AC 08 3A 46 49 B2 55 52 3A 8D 35 33 30 |.....:FI.UR:.530|
000006C0: 30 3A 42 52 B2 46 52 AA 31 3A 54 52 B2 48 52 3A |0:BR.FR.1:TR.HR:|
000006D0: 48 52 B2 48 52 AB 31 00 F4 0A AE 08 3A 8B 42 52 |HR.HR.1.....:.BR|
000006E0: B3 B2 54 52 A7 8D 35 31 30 30 3A 8F 20 44 45 4C |..TR..5100:. DEL|
000006F0: 20 50 54 52 00 32 0B B1 08 3A 46 49 24 B2 22 22 | PTR.2...:FI$.""|
00000700: 3A 81 20 44 B2 31 A4 53 46 25 28 57 4B 2C 30 29 |:. D.1.SF%(WK,0)|
00000710: 3A 46 49 24 B2 46 49 24 AA 46 24 28 53 46 25 28 |:FI$.FI$.F$(SF%(|
00000720: 57 4B 2C 44 29 29 AA 5A 24 3A 82 44 3A 8D 33 32 |WK,D)).Z$:.D:.32|
00000730: 30 30 00 66 0B B3 08 3A 42 52 B2 46 52 3A 54 52 |00.f...:BR.FR:TR|
00000740: B2 48 52 3A 8B 42 52 B3 B2 54 52 A7 20 8D 35 32 |.HR:.BR..TR. .52|
00000750: 30 30 3A 8F 20 49 4E 53 52 54 20 46 4F 52 20 4E |00:. INSRT FOR N|
00000760: 45 57 20 50 4E 54 00 8B 0B B6 08 3A 48 52 B2 48 |EW PNT.....:HR.H|
00000770: 52 AA 31 3A 50 4F 25 28 46 52 2C 57 4B 29 B2 55 |R.1:PO%(FR,WK).U|
00000780: 52 3A 8F 20 4E 45 57 20 50 54 52 00 AA 0B C0 08 |R:. NEW PTR.....|
00000790: 82 57 4B 3A 57 52 B2 55 52 3A 8D 20 34 31 30 30 |.WK:WR.UR:. 4100|
000007A0: 3A 8F 20 4E 45 57 20 52 45 43 00 CE 0B C5 08 57 |:. NEW REC.....W|
000007B0: 4B B2 55 4B 3A 46 49 B2 57 52 3A 8D 35 33 30 30 |K.UK:FI.WR:.5300|
000007C0: 3A 52 52 B2 46 52 3A 8D 33 35 30 30 3A 8E 00 DC |:RR.FR:.3500:...|
000007D0: 0B 1C 0C 8F 20 43 41 4C 43 20 44 4F 00 EC 0B 1E |.... CALC DO....|
000007E0: 0C 81 20 57 4F B2 31 20 A4 20 48 4F 00 08 0C 21 |.. WO.1 . HO...!|
000007F0: 0C 41 B2 C5 28 20 20 CA 28 20 4F 41 24 28 57 4F |.A..( .( OA$(WO|
00000800: 29 20 2C 32 29 20 20 29 00 40 0C 26 0C 42 24 B2 |) ,2) ).@.&.B$.|
00000810: 4F 42 24 28 57 4F 29 3A 42 B2 C5 28 42 24 29 3A |OB$(WO):B..(B$):|
00000820: 8B C8 28 42 24 2C 31 29 B2 22 46 22 A7 42 B2 C5 |..(B$,1)."F".B..|
00000830: 28 46 24 28 C5 28 CA 28 42 24 2C 32 29 29 29 29 |(F$(.(.(B$,2))))|
00000840: 00 67 0C 27 0C 8B C8 28 42 24 2C 32 29 B2 22 53 |.g.'...(B$,2)."S|
00000850: 46 22 A7 42 B2 C5 28 43 43 24 28 C5 28 CA 28 42 |F".B..(CC$(.(.(B|
00000860: 24 2C 33 29 29 29 29 00 A1 0C 2B 0C 43 24 B2 4F |$,3))))...+.C$.O|
00000870: 43 24 28 57 4F 29 3A 43 B2 C5 28 43 24 29 3A 8B |C$(WO):C..(C$):.|
00000880: C8 28 43 24 2C 31 29 B2 22 46 22 A7 20 43 B2 20 |.(C$,1)."F". C. |
00000890: C5 28 46 24 28 C5 28 CA 28 43 24 2C 32 29 29 29 |.(F$(.(.(C$,2)))|
000008A0: 29 00 CA 0C 2C 0C 8B C8 28 43 24 2C 32 29 B2 22 |)...,...(C$,2)."|
000008B0: 53 46 22 A7 20 43 B2 20 C5 28 43 43 24 28 C5 28 |SF". C. .(CC$(.(|
000008C0: CA 28 43 24 2C 33 29 29 29 29 00 D9 0C 30 0C 4F |.(C$,3))))...0.O|
000008D0: 24 B2 4F 4F 24 28 57 4F 29 00 03 0D 32 0C 8B 20 |$.OO$(WO)...2.. |
000008E0: C9 28 4F 24 2C 31 29 B2 22 20 22 A7 20 4F 24 B2 |.(O$,1)." ". O$.|
000008F0: C8 28 4F 24 2C C3 28 4F 24 29 AB 31 29 3A 89 33 |.(O$,.(O$).1):.3|
00000900: 31 32 32 00 28 0D 62 0C 8D 20 33 34 30 30 3A 46 |122.(.b.. 3400:F|
00000910: 24 28 41 29 B2 C4 28 58 29 3A 8F 20 44 4F 20 4F |$(A)..(X):. DO O|
00000920: 50 45 52 41 54 49 4F 4E 00 4D 0D 76 0C 8B C8 28 |PERATION.M.v...(|
00000930: 46 24 28 41 29 2C 31 29 B2 22 20 22 A7 46 24 28 |F$(A),1)." ".F$(|
00000940: 41 29 B2 CA 28 46 24 28 41 29 2C 32 29 00 58 0D |A)..(F$(A),2).X.|
00000950: 7F 0C 82 20 57 4F 3A 8E 00 6C 0D 80 0C 8F 20 45 |... WO:..l.... E|
00000960: 51 55 41 4C 20 20 53 45 41 52 43 48 00 91 0D 85 |QUAL SEARCH....|
00000970: 0C 54 4C B2 30 3A 54 48 B2 48 52 AA 31 3A 8F 20 |.TL.0:TH.HR.1:. |
00000980: 54 4F 4F 20 4C 4F 57 2C 20 54 4F 4F 20 48 49 47 |TOO LOW, TOO HIG|
00000990: 48 00 A6 0D 8A 0C 8B 54 48 AB 54 4C B2 31 A7 46 |H......TH.TL.1.F|
000009A0: 52 B2 54 48 3A 8E 00 DE 0D 8F 0C 3A 50 25 B2 28 |R.TH:......:P%.(|
000009B0: 54 4C AA 54 48 29 AD 32 AA 2E 31 3A 57 52 B2 50 |TL.TH).2..1:WR.P|
000009C0: 4F 25 28 50 25 2C 57 4B 29 3A 8B 20 52 34 20 A7 |O%(P%,WK):. R4 .|
000009D0: 20 8D 20 33 32 34 30 3A 89 20 33 32 32 35 00 0A | . 3240:. 3225..|
000009E0: 0E 94 0C 3A 8D 20 34 33 30 30 3A 81 20 58 B2 31 |...:. 4300:. X.1|
000009F0: 20 A4 20 44 4B 3A 84 52 41 2C 58 24 28 58 29 3A | . DK:.RA,X$(X):|
00000A00: 82 20 58 3A 46 4F 24 B2 22 22 00 3A 0E 99 0C 3A |. X:FO$."".:...:|
00000A10: 81 58 B2 31 A4 53 46 25 28 57 4B 2C 30 29 3A 46 |.X.1.SF%(WK,0):F|
00000A20: 4F 24 B2 46 4F 24 AA 58 24 28 53 46 25 28 57 4B |O$.FO$.X$(SF%(WK|
00000A30: 2C 58 29 29 AA 5A 24 3A 82 58 00 53 0E 9D 0C 3A |,X)).Z$:.X.S...:|
00000A40: 8B 20 46 49 24 B2 46 4F 24 20 A7 20 46 52 B2 50 |. FI$.FO$ . FR.P|
00000A50: 25 3A 8E 00 71 0E 9E 0C 3A 8B 20 46 49 24 B3 B2 |%:..q...:. FI$..|
00000A60: 46 4F 24 20 A7 20 54 48 B2 50 25 3A 89 33 32 31 |FO$ . TH.P%:.321|
00000A70: 30 00 82 0E A3 0C 3A 54 4C B2 50 25 3A 89 33 32 |0.....:TL.P%:.32|
00000A80: 31 30 00 BE 0E A8 0C 4C B2 31 3A 81 58 B2 31 A4 |10.....L.1:.X.1.|
00000A90: 44 4B 3A CF 23 28 52 41 29 2C 28 57 52 29 2C 28 |DK:.#(RA),(WR),(|
00000AA0: 4C 29 3A 84 52 41 2C 58 24 28 58 29 3A 4C B2 4C |L):.RA,X$(X):L.L|
00000AB0: AA C3 28 58 24 28 58 29 29 AA 32 3A 82 58 00 C4 |..(X$(X)).2:.X..|
00000AC0: 0E AD 0C 8E 00 DA 0E 48 0D 8F 20 4D 41 54 48 20 |.......H.. MATH |
00000AD0: 4F 50 45 52 41 54 49 4F 4E 53 00 F1 0E 61 0D 8B |OPERATIONS...a..|
00000AE0: 20 4F 24 B2 22 2B 22 20 A7 20 58 B2 42 AA 43 3A | O$."+" . X.B.C:|
00000AF0: 8E 00 08 0F 66 0D 8B 20 4F 24 B2 22 2D 22 20 A7 |....f.. O$."-" .|
00000B00: 20 58 B2 42 AB 43 3A 8E 00 28 0F 6B 0D 8B 20 4F | X.B.C:..(.k.. O|
00000B10: 24 B2 22 58 22 20 B0 20 4F 24 B2 22 2A 22 20 A7 |$."X" . O$."*" .|
00000B20: 20 58 B2 42 AC 43 3A 8E 00 41 0F 70 0D 8B 20 4F | X.B.C:..A.p.. O|
00000B30: 24 B2 22 2F 22 20 A7 8B 43 A7 58 B2 42 AD 43 3A |$."/" ..C.X.B.C:|
00000B40: 8E 00 58 0F 75 0D 8B 20 4F 24 B2 22 5E 22 20 A7 |..X.u.. O$."^" .|
00000B50: 20 58 B2 42 AE 43 3A 8E 00 72 0F 7A 0D 8B 20 4F | X.B.C:..r.z.. O|
00000B60: 24 B2 22 53 49 4E 22 20 A7 20 58 B2 BF 28 43 29 |$."SIN" . X..(C)|
00000B70: 3A 8E 00 8C 0F 7B 0D 8B 20 4F 24 B2 22 52 4E 44 |:....{.. O$."RND|
00000B80: 22 20 A7 20 58 B2 BB 28 43 29 3A 8E 00 A6 0F 7F |" . X..(C):.....|
00000B90: 0D 8B 20 4F 24 B2 22 54 41 4E 22 20 A7 20 58 B2 |.. O$."TAN" . X.|
00000BA0: C0 28 43 29 3A 8E 00 C0 0F 80 0D 8B 20 4F 24 B2 |.(C):....... O$.|
00000BB0: 22 41 42 53 22 20 A7 20 58 B2 B6 28 43 29 3A 8E |"ABS" . X..(C):.|
00000BC0: 00 DA 0F 84 0D 8B 20 4F 24 B2 22 4C 4F 47 22 20 |...... O$."LOG" |
00000BD0: A7 20 58 B2 BC 28 43 29 3A 8E 00 EF 0F 89 0D 8B |. X..(C):.......|
00000BE0: 20 4F 24 B2 22 2E 22 20 C0 8F FF D9 F8 8D FF FF | O$."." ........|
00000BF0: FF FF FD F4 FD 9F F0 9F C9 88 FF 75 F7 88 8F C1 |...........u....|
00000C00: 9F FF D9 C7 9F 78 9F 9D FF FF 8F FF FF F4 FD 9F |.....x..........|
00000C10: F0 9F C9 88 85 85 85 88 8F C1 9F FF D9 F8 85 85 |................|
00000C20: 85 F8 9D FF FF F8 FF FF F4 FF FF 6F 0A AA AF 2F |...........o.../|
00000C30: FF 8F 8F FF 08 FF FF 08 8F 0F 6F F4 32 32 25 74 |..........o.22%t|
00000C40: F3 A8 E0 05 21 0A C0 D8 F2 04 34 14 E5 42 04 64 |....!.....4..B.d|
00000C50: 94 E4 40 08 41 0B 10 D9 92 21 24 34 14 E2 75 42 |..@.A....!$4..uB|
00000C60: 04 64 94 E4 42 05 24 14 E4 44 F4 D2 05 24 54 34 |.d..B.$..D...$T4|
00000C70: F5 24 42 05 74 84 F5 34 52 04 B4 55 92 04 95 32 |.$B.t..4R..U...2|
00000C80: 02 24 64 92 40 0B F1 0B 60 D9 92 21 14 44 F2 05 |.$d.@...`..!.D..|
00000C90: 94 F5 52 05 74 95 34 82 05 44 F2 04 34 F4 E5 44 |..R.t.4..D..4..D|
00000CA0: 94 E5 54 52 05 74 95 44 82 05 44 84 52 05 24 55 |..TR.t.D..D.R.$U|
00000CB0: 35 42 04 F4 62 05 44 84 52 04 64 94 C4 53 F2 20 |5B..b.D.R.d..S. |
00000CC0: 0E 01 0B B0 D5 8B 23 13 A5 83 3B 23 13 A8 D2 02 |......#...;#....|
00000CD0: 78 1F AF AF E2 4F 23 A4 FF AF 26 FF 23 3B F6 FF |x....O#...&.#;..|
00000CE0: AA 27 F2 A2 F0 72 54 49 4F 4E 20 54 4F 4F 20 43 |.'...rTION TOO C|
00000CF0: 4F 4D 50 4C 45 58 21 21 22 3A 89 20 32 31 30 30 |OMPLEX!!":. 2100|
00000D00: 00 36 09 8E 08 8B 20 53 4C 25 28 57 53 29 B3 B1 |.6.... SL%(WS)..|
00000D10: 33 20 A7 20 57 53 B2 57 53 AA 31 3A 58 B2 35 3A |3 . WS.WS.1:X.5:|
00000D20: 89 20 32 31 31 30 00 5C 09 93 08 48 53 B2 57 53 |. 2110.\...HS.WS|
00000D30: 3A 58 B2 30 3A 8D 20 32 35 30 30 3A 8D 33 3A 8B |:X.0:. 2500:.3:.|
00000D40: 20 47 24 B2 22 59 22 A7 32 31 30 30 00 62 09 97 | G$."Y".2100.b..|
00000D50: 08 8E 00 6F 09 98 08 8F 20 28 43 4F 4E 54 29 00 |...o.... (CONT).|
00000D60: 9E 09 B1 08 99 54 24 22 46 49 45 4C 44 53 3A 22 |.....T$"FIELDS:"|
00000D70: 3A 81 20 57 46 B2 31 20 A4 20 48 46 3A 99 20 57 |:. WF.1 . HF:. W|
00000D80: 46 3B 46 54 24 28 57 46 29 3A 82 20 57 46 00 CE |F;FT$(WF):. WF..|
00000D90: 09 B6 08 3A 58 B2 31 3A 8D 20 32 35 30 30 3A 99 |...:X.1:. 2500:.|
00000DA0: 22 11 12 45 4E 54 45 52 20 46 49 45 4C 44 20 4E |"..ENTER FIELD N|
00000DB0: 4F 3A 22 3A 8F 20 44 49 53 50 20 53 45 4C 00 F9 |O:":. DISP SEL..|
00000DC0: 09 BB 08 3A 58 B2 53 41 25 28 57 53 29 3A 58 31 |...:X.SA%(WS):X1|
00000DD0: B2 31 3A 58 32 B2 48 46 3A 8D 20 34 38 30 30 3A |.1:X2.HF:. 4800:|
00000DE0: 53 41 25 28 57 53 29 B2 58 00 33 0A C0 08 99 54 |SA%(WS).X.3....T|
00000DF0: 24 22 45 51 55 41 4C 49 54 59 20 54 59 50 45 53 |$"EQUALITY TYPES|
00000E00: 3A 22 3A 81 20 58 B2 31 20 A4 20 39 AB 28 58 46 |:":. X.1 . 9.(XF|
00000E10: B3 B1 30 29 3A 99 20 58 3B 45 51 24 28 58 29 3A |..0):. X;EQ$(X):|
00000E20: 82 20 58 00 60 0A C5 08 3A 58 B2 32 3A 8D 20 32 |. X.`...:X.2:. 2|
00000E30: 35 30 30 3A 99 22 11 12 45 4E 54 45 52 20 45 51 |500:."..ENTER EQ|
00000E40: 55 41 4C 49 54 59 20 54 59 50 45 20 4E 4F 3A 22 |UALITY TYPE NO:"|
00000E50: 00 92 0A CA 08 3A 58 B2 53 45 25 28 57 53 29 3A |.....:X.SE%(WS):|
00000E60: 58 31 B2 31 3A 58 32 B2 39 AB 28 58 46 B3 B1 30 |X1.1:X2.9.(XF..0|
00000E70: 29 3A 8D 20 34 38 30 30 3A 53 45 25 28 57 53 29 |):. 4800:SE%(WS)|
00000E80: B2 58 00 C0 0A CF 08 99 54 24 22 41 52 47 55 4D |.X......T$"ARGUM|
00000E90: 45 4E 54 20 43 41 4E 20 42 45 20 41 4E 59 20 41 |ENT CAN BE ANY A|
00000EA0: 4C 50 48 41 2D 4E 55 4D 20 53 54 52 49 4E 47 22 |LPHA-NUM STRING"|
00000EB0: 00 E5 0A D4 08 3A 58 B2 33 3A 8D 20 32 35 30 30 |.....:X.3:. 2500|
00000EC0: 3A 99 22 11 12 45 4E 54 45 52 20 41 52 47 55 4D |:."..ENTER ARGUM|
00000ED0: 45 4E 54 3A 22 00 06 0B D9 08 3A 58 24 B2 53 42 |ENT:".....:X$.SB|
00000EE0: 24 28 57 53 29 3A 8D 34 35 30 30 3A 53 42 24 28 |$(WS):.4500:SB$(|
00000EF0: 57 53 29 B2 58 24 00 3C 0B DE 08 99 54 24 22 4C |WS).X$.<....T$"L|
00000F00: 4F 47 49 43 41 4C 20 43 4F 4E 45 43 54 49 4F 4E |OGICAL CONECTION|
00000F10: 53 3A 22 3A 81 20 58 B2 31 20 A4 20 33 3A 99 20 |S:":. X.1 . 3:. |
00000F20: 58 3B 4C 4F 24 28 58 29 3A 82 20 58 00 66 0B E3 |X;LO$(X):. X.f..|
00000F30: 08 3A 58 B2 34 3A 8D 20 32 35 30 30 3A 99 22 11 |.:X.4:. 2500:.".|
00000F40: 12 45 4E 54 45 52 20 43 4F 4E 4E 45 43 54 49 4F |.ENTER CONNECTIO|
00000F50: 4E 20 4E 4F 3A 22 00 82 0B E8 08 3A 8B 57 53 B2 |N NO:".....:.WS.|
00000F60: 52 57 A7 53 4C 25 28 57 53 29 B2 33 3A 89 32 32 |RW.SL%(WS).3:.22|
00000F70: 31 35 00 AB 0B ED 08 3A 58 B2 53 4C 25 28 57 53 |15.....:X.SL%(WS|
00000F80: 29 3A 58 31 B2 31 3A 58 32 B2 33 3A 8D 34 38 30 |):X1.1:X2.3:.480|
00000F90: 30 3A 53 4C 25 28 57 53 29 B2 58 00 B1 0B FB 08 |0:SL%(WS).X.....|
00000FA0: 8E 00 BF 0B FC 08 8F 20 48 4D 20 43 4F 4C 53 00 |....... HM COLS.|
00000FB0: ED 0B 06 09 99 22 93 48 4F 57 20 4D 41 4E 59 20 |.....".HOW MANY |
00000FC0: 50 52 49 4E 54 45 44 20 43 4F 4C 55 4D 4E 53 20 |PRINTED COLUMNS |
00000FD0: 44 4F 20 59 4F 55 20 57 41 4E 54 3F 22 00 14 0C |DO YOU WANT?"...|
00000FE0: 0B 09 3A 58 B2 48 43 3A 58 31 B2 31 3A 58 32 B2 |..:X.HC:X1.1:X2.|
00000FF0: 4D 44 3A 8D 34 38 30 30 3A 48 43 B2 58 3A 57 43 |MD:.4800:HC.X:WC|
00001000: B2 31 3A 8E 00 28 0C 60 09 8F 20 44 45 53 43 52 |.1:..(.`.. DESCR|
00001010: 49 42 45 20 43 4F 4C 53 00 4C 0C 65 09 99 22 93 |IBE COLS.L.e..".|
00001020: 22 3B 3A 8B 20 48 43 B3 31 20 A7 20 8D 20 32 33 |";:. HC.1 . . 23|
00001030: 30 30 3A 8F 20 48 4D 20 43 4F 4C 53 00 84 0C 67 |00:. HM COLS...g|
00001040: 09 99 22 11 43 4F 4C 55 4D 4E 53 3A 22 3A 81 20 |..".COLUMNS:":. |
00001050: 58 B2 31 A4 48 43 3A 99 22 12 22 58 22 92 22 54 |X.1.HC:."."X"."T|
00001060: 31 24 28 58 29 22 2F 22 54 32 24 28 58 29 3B 3A |1$(X)"/"T2$(X);:|
00001070: 82 58 3A 99 00 B2 0C 6A 09 99 22 11 57 48 49 43 |.X:....j..".WHIC|
00001080: 48 20 43 4F 4C 55 4D 4E 20 44 4F 20 59 4F 55 20 |H COLUMN DO YOU |
00001090: 57 41 4E 54 20 54 4F 20 44 45 53 43 52 49 42 45 |WANT TO DESCRIBE|
000010A0: 3F 22 00 D2 0C 6F 09 3A 58 B2 57 43 3A 58 31 B2 |?"...o.:X.WC:X1.|
000010B0: 31 3A 58 32 B2 48 43 3A 8D 34 38 30 30 3A 57 43 |1:X2.HC:.4800:WC|
000010C0: B2 58 00 FE 0C 7B 09 8D 20 35 35 30 30 3A 8D 20 |.X...{.. 5500:. |
000010D0: 34 36 30 30 3A 8F 20 46 52 4F 2D 54 49 54 2D 57 |4600:. FRO-TIT-W|
000010E0: 49 44 2C 4A 55 53 2D 54 4F 54 2D 41 56 52 00 04 |ID,JUS-TOT-AVR..|
000010F0: 0D 7E 09 8E 00 19 0D C4 09 8F 20 44 49 53 50 4C |.~........ DISPL|
00001100: 41 59 20 53 45 4C 45 43 54 00 3B 0D C6 09 99 22 |AY SELECT.;...."|
00001110: 11 12 59 4F 55 52 20 53 45 4C 45 43 54 49 4F 4E |..YOUR SELECTION|
00001120: 20 53 54 41 54 45 4D 45 4E 54 3A 00 58 0D C9 09 | STATEMENT:.X...|
00001130: 99 22 49 46 20 28 22 3B 3A 8B 20 48 53 B3 57 53 |."IF (";:. HS.WS|
00001140: 20 A7 20 48 53 B2 57 53 00 86 0D CE 09 81 20 59 | . HS.WS...... Y|
00001150: B2 31 20 A4 20 48 53 3A 8B 20 59 B2 57 53 20 A7 |.1 . HS:. Y.WS .|
00001160: 20 8B 20 58 B2 31 20 A7 20 99 22 2E 2E 2E 22 3B | . X.1 . ."...";|
00001170: 3A 89 32 35 32 30 00 99 0D D3 09 99 20 46 54 24 |:.2520...... FT$|
00001180: 28 53 41 25 28 59 29 29 3B 00 BC 0D D8 09 8B 20 |(SA%(Y));...... |
00001190: 59 B2 57 53 20 A7 20 8B 20 58 B2 32 20 A7 20 99 |Y.WS . . X.2 . .|
000011A0: 22 2E 2E 2E 22 3B 3A 89 32 35 33 30 00 D5 0D DD |"...";:.2530....|
000011B0: 09 99 20 22 20 22 45 51 24 28 53 45 25 28 59 29 |.. " "EQ$(SE%(Y)|
000011C0: 29 22 20 22 3B 00 F8 0D E2 09 8B 20 59 B2 57 53 |)" ";...... Y.WS|
000011D0: 20 A7 20 8B 20 58 B2 33 20 A7 20 99 22 2E 2E 2E | . . X.3 . ."...|
000011E0: 22 3B 3A 89 32 35 34 30 00 06 0E E7 09 99 20 53 |";:.2540...... S|
000011F0: 42 24 28 59 29 3B 00 29 0E EC 09 8B 20 59 B2 57 |B$(Y);.).... Y.W|
00001200: 53 20 A7 20 8B 20 58 B2 34 20 A7 20 99 22 2E 2E |S . . X.4 . ."..|
00001210: 2E 22 3B 3A 89 32 35 35 30 00 3C 0E F1 09 99 20 |.";:.2550.<.... |
00001220: 4C 4F 24 28 53 4C 25 28 59 29 29 3B 00 48 0E F6 |LO$(SL%(Y));.H..|
00001230: 09 82 20 59 3A 99 3A 8E 00 54 0E 8C 0A 8F 20 4D |.. Y:.:..T.... M|
00001240: 49 53 43 31 00 7F 0E 91 0A 99 22 93 20 20 20 20 |ISC1......". |
00001250: 20 20 20 20 12 43 48 41 4E 47 45 20 4D 49 53 43 | .CHANGE MISC|
00001260: 45 4C 4C 41 4E 45 4F 55 53 20 49 54 45 4D 53 00 |ELLANEOUS ITEMS.|
00001270: A3 0E 96 0A 99 22 11 4B 45 59 53 3A 22 3A 81 58 |.....".KEYS:":.X|
00001280: B2 30 A4 48 4B 3A 99 22 12 22 58 AA 31 22 9D 92 |.0.HK:."."X.1"..|
00001290: 20 22 3B 00 D6 0E 9B 0A 3A 81 20 44 B2 31 A4 53 | ";.....:. D.1.S|
000012A0: 46 25 28 58 2C 30 29 3A 99 46 54 24 28 53 46 25 |F%(X,0):.FT$(SF%|
000012B0: 28 58 2C 44 29 29 22 3A 22 3B 3A 82 44 3A 99 22 |(X,D))":";:.D:."|
000012C0: 9D 20 22 3A 82 58 00 0B 0F A0 0A 3A 99 22 11 57 |. ":.X.....:.".W|
000012D0: 48 49 43 48 20 4B 45 59 3F 22 3A 58 31 B2 31 3A |HICH KEY?":X1.1:|
000012E0: 58 32 B2 48 4B AA 31 3A 58 B2 57 4B AA 31 3A 8D |X2.HK.1:X.WK.1:.|
000012F0: 34 38 30 30 3A 57 4B B2 58 AB 31 00 52 0F A5 0A |4800:WK.X.1.R...|
00001300: 99 22 11 44 45 56 49 43 45 20 4E 4F 3F 20 28 34 |.".DEVICE NO? (4|
00001310: 3D 4D 4F 53 54 20 50 52 49 4E 54 45 52 53 2C 20 |=MOST PRINTERS, |
00001320: 33 3D 53 43 52 45 45 4E 2C 20 38 3D 44 49 53 4B |3=SCREEN, 8=DISK|
00001330: 20 46 49 4C 45 2C 20 31 3D 43 41 53 53 45 54 54 | FILE, 1=CASSETT|
00001340: 45 29 00 74 0F AA 0A 3A 58 31 B2 31 3A 58 32 B2 |E).t...:X1.1:X2.|
00001350: 32 35 35 3A 58 B2 50 44 3A 8D 20 34 38 30 30 3A |255:X.PD:. 4800:|
00001360: 50 44 B2 58 00 8F 0F AF 0A 3A 8B 20 44 39 20 A7 |PD.X.....:. D9 .|
00001370: 20 8B 20 50 44 B2 44 39 20 A7 20 50 44 B2 38 00 | . PD.D9 . PD.8.|
00001380: BB 0F B4 0A 8B 20 50 44 B3 B1 38 20 AF 20 50 44 |..... PD..8 . PD|
00001390: B3 B1 31 20 A7 20 8D 20 32 38 30 30 3A 89 20 32 |..1 . . 2800:. 2|
000013A0: 37 36 30 3A 8F 20 50 41 50 45 52 00 DD 0F B9 0A |760:. PAPER.....|
000013B0: 3A 99 22 11 4F 55 54 50 55 54 20 54 4F 20 57 4F |:.".OUTPUT TO WO|
000013C0: 52 44 20 50 52 4F 43 45 53 53 4F 52 3F 00 1F 10 |RD PROCESSOR?...|
000013D0: BA 0A 3A 99 22 28 50 41 47 45 20 4D 41 54 45 2C |..:."(PAGE MATE,|
000013E0: 20 57 4F 52 44 20 50 52 4F 2C 20 45 41 53 59 20 | WORD PRO, EASY |
000013F0: 53 43 52 49 50 54 29 22 3A 58 B2 57 50 3A 58 33 |SCRIPT)":X.WP:X3|
00001400: B2 AB 31 3A 8D 20 34 34 30 30 3A 57 50 B2 58 00 |..1:. 4400:WP.X.|
00001410: 58 10 BE 0A 3A 8B 20 58 46 20 A7 20 99 22 11 4F |X...:. XF . .".O|
00001420: 55 54 50 55 54 20 54 4F 20 44 49 46 20 46 49 4C |UTPUT TO DIF FIL|
00001430: 45 3F 22 3A 58 B2 44 46 3A 58 33 B2 31 3A 8D 34 |E?":X.DF:X3.1:.4|
00001440: 34 30 30 3A 44 46 B2 58 00 87 10 C3 0A 3A 99 22 |400:DF.X.....:."|
00001450: 11 4E 41 4D 45 20 4F 46 20 53 45 51 20 46 49 4C |.NAME OF SEQ FIL|
00001460: 45 3F 22 3A 58 24 B2 4E 53 24 3A 8D 34 37 30 30 |E?":X$.NS$:.4700|
00001470: 3A 4E 53 24 B2 58 24 00 CA 10 C8 0A 99 22 11 43 |:NS$.X$......".C|
00001480: 48 41 52 41 43 54 45 52 53 20 50 45 52 20 53 45 |HARACTERS PER SE|
00001490: 4C 45 43 54 49 4F 4E 20 43 4F 44 45 3F 22 3A 58 |LECTION CODE?":X|
000014A0: 31 B2 31 3A 58 32 B2 31 30 3A 58 B2 48 54 3A 8D |1.1:X2.10:X.HT:.|
000014B0: 20 34 38 30 30 3A 48 54 B2 58 00 DC 10 CD 0A 8B | 4800:HT.X......|
000014C0: 20 58 46 B2 30 20 A7 20 32 37 38 32 00 1E 11 D2 | XF.0 . 2782....|
000014D0: 0A 3A 99 22 11 48 4F 57 20 4D 41 4E 59 20 46 49 |.:.".HOW MANY FI|
000014E0: 45 4C 44 53 20 44 45 54 45 52 4D 49 4E 45 20 49 |ELDS DETERMINE I|
000014F0: 46 20 52 45 43 4F 52 44 53 20 41 52 45 20 54 4F |F RECORDS ARE TO|
00001500: 20 42 45 20 43 4F 4D 42 49 4E 45 44 3F 22 00 5A | BE COMBINED?".Z|
00001510: 11 D7 0A 3A 99 22 28 45 4E 54 45 52 20 30 20 49 |...:."(ENTER 0 I|
00001520: 46 20 53 49 4D 49 4C 41 52 20 52 45 43 4F 52 44 |F SIMILAR RECORD|
00001530: 53 20 41 52 45 20 4E 4F 54 20 54 4F 20 42 45 20 |S ARE NOT TO BE |
00001540: 43 4F 4D 42 49 4E 45 44 29 22 00 82 11 DC 0A 3A |COMBINED)".....:|
00001550: 58 31 B2 30 3A 58 32 B2 53 46 25 28 57 4B 2C 30 |X1.0:X2.SF%(WK,0|
00001560: 29 3A 58 B2 4B 52 3A 8D 20 34 38 30 30 3A 4B 52 |):X.KR:. 4800:KR|
00001570: B2 58 00 C5 11 DE 0A 99 22 11 41 53 43 45 4E 44 |.X......".ASCEND|
00001580: 49 4E 47 20 4F 52 44 45 52 3F 28 4E 3D 44 45 53 |ING ORDER?(N=DES|
00001590: 43 45 4E 44 49 4E 47 20 4F 52 44 45 52 29 22 3A |CENDING ORDER)":|
000015A0: 58 B2 41 53 3A 58 33 B2 AB 31 3A 8D 34 34 30 30 |X.AS:X3..1:.4400|
000015B0: 3A 41 53 B2 58 00 EA 11 E1 0A 8D 20 35 37 30 30 |:AS.X...... 5700|
000015C0: 3A 8D 33 3A 8B 47 24 B2 22 59 22 A7 32 37 30 30 |:.3:.G$."Y".2700|
000015D0: 3A 8F 20 24 43 4F 56 45 52 54 00 F0 11 EB 0A 8E |:. $COVERT......|
000015E0: 00 01 12 F0 0A 8F 20 4D 49 53 43 20 50 41 50 45 |...... MISC PAPE|
000015F0: 52 00 39 12 F5 0A 99 22 11 48 4F 57 20 4D 41 4E |R.9....".HOW MAN|
00001600: 59 20 53 50 41 43 45 53 20 44 4F 20 59 4F 55 20 |Y SPACES DO YOU |
00001610: 57 41 4E 54 20 54 4F 20 49 4E 44 45 4E 54 20 43 |WANT TO INDENT C|
00001620: 4F 4C 55 4D 4E 20 23 31 3F 00 62 12 FA 0A 3A 58 |OLUMN #1?.b...:X|
00001630: 31 B2 30 3A 58 32 B2 38 30 3A 58 B2 43 50 25 28 |1.0:X2.80:X.CP%(|
00001640: 30 29 3A 8D 20 34 38 30 30 3A 43 50 25 28 30 29 |0):. 4800:CP%(0)|
00001650: B2 58 00 9E 12 FC 0A 99 22 11 48 4F 57 20 4D 41 |.X......".HOW MA|
00001660: 4E 59 20 43 48 41 52 41 43 54 45 52 53 20 41 43 |NY CHARACTERS AC|
00001670: 52 4F 53 53 20 44 4F 45 53 20 59 4F 55 52 20 50 |ROSS DOES YOUR P|
00001680: 52 49 4E 54 45 52 20 50 52 49 4E 54 3F 22 00 C1 |RINTER PRINT?"..|
00001690: 12 FE 0A 3A 58 31 B2 32 30 3A 58 32 B2 32 35 30 |...:X1.20:X2.250|
000016A0: 3A 58 B2 50 57 3A 8D 20 34 38 30 30 3A 50 57 B2 |:X.PW:. 4800:PW.|
000016B0: 58 00 F7 12 09 0B 99 22 11 4C 49 4E 45 53 20 50 |X......".LINES P|
000016C0: 45 52 20 50 41 47 45 3F 22 3A 58 31 B2 33 30 3A |ER PAGE?":X1.30:|
000016D0: 58 32 B2 39 45 39 3A 58 B2 4C 50 3A 8D 20 34 38 |X2.9E9:X.LP:. 48|
000016E0: 30 30 3A 4C 50 B2 58 00 2D 13 0E 0B 99 22 11 50 |00:LP.X.-....".P|
000016F0: 41 55 53 45 20 41 46 54 45 52 20 45 41 43 48 20 |AUSE AFTER EACH |
00001700: 50 41 47 45 3F 22 3A 58 B2 50 50 3A 58 33 B2 AB |PAGE?":X.PP:X3..|
00001710: 31 3A 8D 20 34 34 30 30 3A 50 50 B2 58 00 65 13 |1:. 4400:PP.X.e.|
00001720: 10 0B 99 22 11 46 49 52 53 54 20 50 41 47 45 20 |...".FIRST PAGE |
00001730: 4E 55 4D 42 45 52 3F 22 3A 58 B2 50 31 3A 58 31 |NUMBER?":X.P1:X1|
00001740: B2 30 3A 58 32 B2 39 45 39 3A 8D 20 34 38 30 30 |.0:X2.9E9:. 4800|
00001750: 3A 50 31 B2 58 00 9A 13 13 0B 99 22 11 4E 4F 20 |:P1.X......".NO |
00001760: 4F 46 20 43 48 41 52 41 43 54 45 52 53 20 53 45 |OF CHARACTERS SE|
00001770: 4E 54 20 54 4F 20 50 52 49 4E 54 45 52 3F 22 3A |NT TO PRINTER?":|
00001780: 58 31 B2 30 3A 58 32 B2 31 30 00 CA 13 18 0B 3A |X1.0:X2.10.....:|
00001790: 58 B2 43 48 25 28 30 29 3A 8D 20 34 38 30 30 3A |X.CH%(0):. 4800:|
000017A0: 43 48 25 28 30 29 B2 58 3A 8B 20 58 B2 30 20 A7 |CH%(0).X:. X.0 .|
000017B0: 20 32 38 38 30 3A 8F 2D 2D 2D 00 00 14 1D 0B 3A | 2880:.---.....:|
000017C0: 81 59 B2 31 A4 58 3A 99 22 41 53 43 49 49 20 56 |.Y.1.X:."ASCII V|
000017D0: 41 4C 55 45 20 23 22 59 22 3F 22 3A 58 B2 43 48 |ALUE #"Y"?":X.CH|
000017E0: 25 28 59 29 3A 58 31 B2 30 3A 58 32 B2 32 35 35 |%(Y):X1.0:X2.255|
000017F0: 00 1A 14 22 0B 3A 20 8D 20 34 38 30 30 3A 43 48 |...".: . 4800:CH|
00001800: 25 28 59 29 B2 58 3A 82 20 59 00 5C 14 40 0B 99 |%(Y).X:. Y.\.@..|
00001810: 22 11 48 4F 57 20 4D 41 4E 59 20 4C 45 56 45 4C |".HOW MANY LEVEL|
00001820: 53 20 4F 46 20 53 55 42 54 4F 54 41 4C 53 3F 22 |S OF SUBTOTALS?"|
00001830: 3A 58 32 B2 53 46 25 28 57 4B 2C 30 29 3A 8B 20 |:X2.SF%(WK,0):. |
00001840: 4B 52 20 A7 20 58 32 B2 4B 52 AB 31 00 72 14 45 |KR . X2.KR.1.r.E|
00001850: 0B 3A 58 B2 4C 53 3A 8D 20 34 38 30 30 3A 4C 53 |.:X.LS:. 4800:LS|
00001860: B2 58 00 84 14 4A 0B 8B 20 4C 53 B2 30 20 A7 20 |.X...J.. LS.0 . |
00001870: 32 38 39 39 00 C6 14 4F 0B 3A 99 22 11 53 45 50 |2899...O.:.".SEP|
00001880: 41 52 41 54 45 20 52 45 50 4F 52 54 53 20 46 4F |ARATE REPORTS FO|
00001890: 52 20 45 41 43 48 20 53 55 42 54 4F 54 41 4C 3F |R EACH SUBTOTAL?|
000018A0: 22 3A 58 B2 53 52 3A 58 33 B2 31 3A 8D 34 34 30 |":X.SR:X3.1:.440|
000018B0: 30 3A 53 52 B2 58 00 CC 14 53 0B 8E 00 D7 14 1C |0:SR.X...S......|
000018C0: 0C 8F 20 43 41 4C 43 00 01 15 21 0C 99 22 93 20 |.. CALC...!..". |
000018D0: 20 20 20 20 20 20 20 20 20 12 43 41 4C 43 55 4C | .CALCUL|
000018E0: 41 54 45 44 20 43 4F 4C 55 4D 4E 53 20 49 4E 46 |ATED COLUMNS INF|
000018F0: 4F 00 35 15 26 0C 99 22 11 48 4F 57 20 4D 41 4E |O.5.&..".HOW MAN|
00001900: 59 20 4F 50 45 52 41 54 49 4F 4E 53 20 44 4F 20 |Y OPERATIONS DO |
00001910: 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 45 52 46 |YOU WANT TO PERF|
00001920: 4F 52 4D 3F 22 00 60 15 2B 0C 58 31 B2 30 3A 58 |ORM?".`.+.X1.0:X|
00001930: 32 B2 4D 44 3A 58 B2 48 4F 3A 8D 20 34 38 30 30 |2.MD:X.HO:. 4800|
00001940: 3A 48 4F B2 58 3A 8B 20 48 4F B2 30 20 A7 20 8E |:HO.X:. HO.0 . .|
00001950: 00 7B 15 30 0C 44 45 24 B2 22 20 22 3A 8B 20 46 |.{.0.DE$." ":. F|
00001960: 46 20 A7 20 44 45 24 B2 22 2C 22 00 91 15 32 0C |F . DE$.","...2.|
00001970: 8D 20 33 32 30 30 3A 8F 20 49 4E 53 54 52 55 43 |. 3200:. INSTRUC|
00001980: 54 00 A1 15 35 0C 81 20 57 4F B2 31 20 A4 20 48 |T...5.. WO.1 . H|
00001990: 4F 00 BC 15 3A 0C 3A 99 22 11 4F 50 45 52 41 54 |O...:.:.".OPERAT|
000019A0: 49 4F 4E 20 23 22 57 4F 22 9D 3A 22 00 F0 15 3F |ION #"WO".:"...?|
000019B0: 0C 3A 58 24 B2 4F 41 24 28 57 4F 29 AA 44 45 24 |.:X$.OA$(WO).DE$|
000019C0: AA 4F 42 24 28 57 4F 29 AA 44 45 24 AA 4F 4F 24 |.OB$(WO).DE$.OO$|
000019D0: 28 57 4F 29 AA 44 45 24 AA 4F 43 24 28 57 4F 29 |(WO).DE$.OC$(WO)|
000019E0: 00 11 16 40 0C 3A 8B 58 24 B2 22 2C 2C 2C 22 A7 |...@.:.X$.",,,".|
000019F0: 58 24 B2 22 20 20 20 2C 20 20 20 2C 20 20 20 2C |X$." , , ,|
00001A00: 22 00 28 16 41 0C 3A 8D 34 35 30 30 3A 58 31 24 |".(.A.:.4500:X1$|
00001A10: B2 58 8F 8D F8 00 14 00 6F FC F0 FF F2 10 08 FF |.X......o.......|
00001A20: FC 12 FF 02 04 F4 12 42 85 74 F2 9B 25 82 43 A2 |.......B.t..%.C.|
00001A30: 08 D3 33 13 73 03 A8 B2 05 82 4B 3B 12 23 D2 22 |..3.s.....K;.#."|
00001A40: 0A 72 04 F4 22 42 85 74 F2 9B 25 82 43 A8 92 03 |.r.."B.t..%.C...|
00001A50: 33 13 43 20 09 01 64 50 C3 A2 04 F4 12 42 85 74 |3.C ..dP.....B.t|
00001A60: F2 9B 24 F4 12 42 85 74 F2 9A A2 22 03 D2 23 A8 |..$..B.t..."..#.|
00001A70: D3 33 13 73 03 A4 F4 22 42 85 74 F2 9B 25 82 43 |.3.s..."B.t..%.C|
00001A80: A0 0B 91 64 60 C3 A8 D3 33 13 73 03 A4 F4 F2 42 |...d`...3.s....B|
00001A90: 85 74 F2 9B 25 82 43 A2 08 D3 33 13 73 03 A4 F4 |.t..%.C...3.s...|
00001AA0: 32 42 85 74 F2 9B 25 82 43 A0 0E 61 64 70 C3 A5 |2B.t..%.C..adp..|
00001AB0: 82 4B 2C 82 84 F4 22 42 85 74 F2 92 C3 12 93 A8 |.K,..."B.t......|
00001AC0: B2 04 64 6B 3B 13 02 0B 02 05 24 B2 22 43 22 20 |..dk;.....$."C" |
00001AD0: A7 20 33 31 35 30 00 07 17 48 0C 3A 20 8B 20 58 |. 3150...H.: . X|
00001AE0: 24 B2 22 30 22 20 B0 20 C5 28 58 24 29 B3 B1 30 |$."0" . .(X$)..0|
00001AF0: 20 A7 20 33 31 35 30 00 39 17 49 0C 3A 20 20 4F | . 3150.9.I.: O|
00001B00: 43 24 28 57 4F 29 B2 4F 4F 24 28 57 4F 29 3A 4F |C$(WO).OO$(WO):O|
00001B10: 4F 24 28 57 4F 29 B2 4F 42 24 28 57 4F 29 3A 4F |O$(WO).OB$(WO):O|
00001B20: 42 24 28 57 4F 29 B2 22 22 00 59 17 4E 0C 3A 8B |B$(WO)."".Y.N.:.|
00001B30: 4F 4F 24 28 57 4F 29 B2 22 22 A7 4F 4F 24 28 57 |OO$(WO)."".OO$(W|
00001B40: 4F 29 B2 22 2E 22 AA 22 22 00 74 17 53 0C 3A 82 |O)."."."".t.S.:.|
00001B50: 20 57 4F 3A 8D 33 3A 8B 20 47 24 B2 22 59 22 A7 | WO:.3:. G$."Y".|
00001B60: 33 31 30 30 00 7A 17 58 0C 8E 00 83 17 62 0C 58 |3100.z.X.....b.X|
00001B70: B2 43 58 00 AE 17 67 0C 8B CA 28 58 31 24 2C 58 |.CX...g...(X1$,X|
00001B80: 2C 31 29 B3 B1 44 45 24 AF 58 B3 B2 C3 28 58 31 |,1)..DE$.X...(X1|
00001B90: 24 29 A7 58 B2 58 AA 31 3A 89 33 31 37 35 00 D4 |$).X.X.1:.3175..|
00001BA0: 17 6C 0C 3A 58 24 B2 CA 28 58 31 24 2C 43 58 2C |.l.:X$..(X1$,CX,|
00001BB0: 58 AB 43 58 29 3A 43 58 B2 58 AA 31 3A 8D 34 35 |X.CX):CX.X.1:.45|
00001BC0: 38 30 3A 8E 00 07 18 76 0C 4D 44 B2 32 30 3A 4C |80:....v.MD.20:L|
00001BD0: 45 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |E$."............|
00001BE0: 9D 9D 9D 9D 9D 22 3A 20 20 20 20 20 8D 33 31 30 |.....": .310|
00001BF0: 30 3A 89 33 31 39 30 00 17 18 7B 0C 46 46 B2 31 |0:.3190...{.FF.1|
00001C00: 3A 89 20 33 31 39 30 00 2B 18 80 0C 8F 20 49 4E |:. 3190.+.... IN|
00001C10: 53 54 52 55 43 54 20 43 41 4C 43 00 4B 18 85 0C |STRUCT CALC.K...|
00001C20: 99 22 12 41 92 20 20 20 20 20 12 42 92 20 20 20 |.".A. .B. |
00001C30: 20 12 43 92 20 20 20 20 12 44 92 00 73 18 8A 0C | .C. .D..s...|
00001C40: 99 22 43 34 3D 20 20 22 44 45 24 22 43 35 20 20 |."C4= "DE$"C5 |
00001C50: 22 44 45 24 22 2B 20 20 20 22 44 45 24 22 35 2E |"DE$"+ "DE$"5.|
00001C60: 30 37 22 00 9B 18 8B 0C 99 22 43 31 3D 20 20 22 |07"......"C1= "|
00001C70: 44 45 24 22 20 20 20 20 22 44 45 24 22 53 49 4E |DE$" "DE$"SIN|
00001C80: 20 22 44 45 24 22 43 38 20 20 22 00 D8 18 8F 0C | "DE$"C8 ".....|
00001C90: 99 22 11 57 48 45 52 45 20 12 41 92 20 49 53 20 |.".WHERE .A. IS |
00001CA0: 54 48 45 20 4C 45 54 54 45 52 20 27 43 27 20 50 |THE LETTER 'C' P|
00001CB0: 4C 55 53 20 41 4E 59 20 43 4F 4C 55 4D 4E 20 4E |LUS ANY COLUMN N|
00001CC0: 55 4D 42 45 52 20 22 3B 00 10 19 94 0C 99 22 41 |UMBER ";......"A|
00001CD0: 4E 44 20 12 42 92 20 41 4E 44 20 12 44 92 20 41 |ND .B. AND .D. A|
00001CE0: 52 45 20 45 49 54 48 45 52 20 52 45 41 4C 20 4E |RE EITHER REAL N|
00001CF0: 55 4D 42 45 52 53 20 4F 52 20 54 48 45 20 22 3B |UMBERS OR THE ";|
00001D00: 00 3B 19 99 0C 99 22 4C 45 54 54 45 52 20 27 43 |.;...."LETTER 'C|
00001D10: 27 20 50 4C 55 53 20 41 4E 59 20 43 4F 4C 55 4D |' PLUS ANY COLUM|
00001D20: 4E 20 4E 55 4D 42 45 52 20 22 3B 00 65 19 9E 0C |N NUMBER ";.e...|
00001D30: 99 22 41 4E 44 20 57 48 45 52 45 20 12 43 92 20 |."AND WHERE .C. |
00001D40: 49 53 20 41 20 4D 41 54 48 20 4F 50 45 52 41 54 |IS A MATH OPERAT|
00001D50: 49 4F 4E 3A 22 00 97 19 A0 0C 99 22 2E 2C 2B 2C |ION:"......".,+,|
00001D60: 2D 2C 2A 2C 2F 2C 5E 2C 4C 4F 47 2C 53 49 4E 2C |-,*,/,^,LOG,SIN,|
00001D70: 54 41 4E 2C 49 4E 54 2C 52 4E 44 2C 52 23 2C 42 |TAN,INT,RND,R#,B|
00001D80: 41 52 2C 44 41 54 45 00 D1 19 A3 0C 99 22 11 43 |AR,DATE......".C|
00001D90: 4F 4C 55 4D 4E 53 3A 22 3A 81 58 B2 31 A4 48 43 |OLUMNS:":.X.1.HC|
00001DA0: 3A 99 22 12 22 58 22 92 22 54 31 24 28 58 29 22 |:."."X"."T1$(X)"|
00001DB0: 2F 22 54 32 24 28 58 29 22 20 22 3B 3A 82 58 3A |/"T2$(X)" ";:.X:|
00001DC0: 99 00 D7 19 E3 0C 8E 00 EA 19 CC 10 8F 20 48 45 |............. HE|
00001DD0: 41 44 45 52 20 4C 49 4E 45 53 00 0B 1A D1 10 99 |ADER LINES......|
00001DE0: 22 93 20 20 20 20 20 20 20 20 20 20 20 20 12 48 |". .H|
00001DF0: 45 41 44 45 52 20 4C 49 4E 45 53 00 37 1A D6 10 |EADER LINES.7...|
00001E00: 99 22 11 11 48 4F 57 20 4D 41 4E 59 20 48 45 41 |."..HOW MANY HEA|
00001E10: 44 45 52 20 4C 49 4E 45 53 20 44 4F 20 59 4F 55 |DER LINES DO YOU|
00001E20: 20 57 41 4E 54 3F 22 00 57 1A DB 10 58 31 B2 31 | WANT?".W...X1.1|
00001E30: 3A 58 32 B2 4D 44 3A 58 B2 48 48 3A 8D 20 34 38 |:X2.MD:X.HH:. 48|
00001E40: 30 30 3A 48 48 B2 58 00 65 1A E0 10 81 20 58 B2 |00:HH.X.e.... X.|
00001E50: 31 A4 20 48 48 00 86 1A E5 10 3A 99 22 11 45 4E |1. HH.....:.".EN|
00001E60: 54 45 52 20 48 45 41 44 45 52 20 4C 49 4E 45 20 |TER HEADER LINE |
00001E70: 23 22 58 22 3A 22 00 A5 1A EA 10 3A 58 24 B2 48 |#"X":".....:X$.H|
00001E80: 4C 24 28 58 29 3A 8D 34 35 30 30 3A 48 4C 24 28 |L$(X):.4500:HL$(|
00001E90: 58 29 B2 58 24 00 B0 1A EF 10 3A 82 20 58 3A 8E |X).X$.....:. X:.|
00001EA0: 00 BB 1A 30 11 8F 20 59 45 53 3F 00 DF 1A 35 11 |...0.. YES?...5.|
00001EB0: 58 24 B2 CA 28 22 59 4E 22 2C 31 AB 28 28 58 AF |X$..("YN",1.((X.|
00001EC0: 58 33 29 B2 30 29 2C 31 29 3A 8D 34 35 30 30 00 |X3).0),1):.4500.|
00001ED0: 17 1B 37 11 8B 20 58 24 B3 B1 22 59 22 AF 58 24 |..7.. X$.."Y".X$|
00001EE0: B3 B1 22 4E 22 A7 99 22 12 50 4C 45 41 53 45 20 |.."N"..".PLEASE |
00001EF0: 41 4E 53 57 45 52 20 20 59 20 20 4F 52 20 20 4E |ANSWER Y OR N|
00001F00: 22 3A 89 34 34 30 30 00 45 1B 3A 11 58 24 B2 C8 |":.4400.E.:.X$..|
00001F10: 28 58 24 2C 31 29 3A 58 B2 28 20 58 AF 28 A8 20 |(X$,1):X.( X.(. |
00001F20: 58 33 29 20 B0 20 28 58 24 B2 22 59 22 29 AF 58 |X3) . (X$."Y").X|
00001F30: 33 20 29 3A 8E 00 6A 1B 94 11 99 58 24 C8 28 4C |3 ):..j....X$.(L|
00001F40: 45 24 2C C3 28 58 24 29 29 3B 3A 43 58 B2 31 3A |E$,.(X$));:CX.1:|
00001F50: 8F 20 47 41 52 44 20 49 4E 50 00 9D 1B 99 11 4D |. GARD INP.....M|
00001F60: 24 B2 CA 28 58 24 AA 22 20 22 2C 43 58 2C 31 29 |$..(X$." ",CX,1)|
00001F70: 3A 99 22 12 22 4D 24 22 92 9D 22 3B 3A A1 47 24 |:."."M$"..";:.G$|
00001F80: 3A 8B 47 24 B2 22 22 A7 8D 34 35 36 35 00 D0 1B |:.G$.""..4565...|
00001F90: 9E 11 3A 41 B2 C6 28 47 24 29 3A 99 4D 24 22 9D |..:A..(G$):.M$".|
00001FA0: 22 3B 3A 8B 28 41 20 AF 20 31 32 37 29 B3 33 32 |";:.(A . 127).32|
00001FB0: B0 43 58 B1 37 37 B0 41 B2 33 34 A7 34 35 32 30 |.CX.77.A.34.4520|
00001FC0: 00 05 1C A3 11 3A 20 99 47 24 3B 3A 58 24 B2 C8 |.....: .G$;:X$..|
00001FD0: 28 58 24 2C 43 58 AB 31 29 AA 47 24 AA CA 28 58 |(X$,CX.1).G$..(X|
00001FE0: 24 2C 43 58 AA 31 29 3A 43 58 B2 43 58 AA 31 3A |$,CX.1):CX.CX.1:|
00001FF0: 89 34 35 30 35 00 2F 1C A8 11 3A 8B 41 B2 31 35 |.4505./...:.A.15|
00002000: 37 A7 8B 43 58 B1 31 A7 43 58 B2 43 58 AB 31 3A |7..CX.1.CX.CX.1:|
00002010: 99 47 24 3B 3A 89 34 35 30 35 3A 8F 20 4C 46 00 |.G$;:.4505:. LF.|
00002020: 5A 1C AD 11 3A 8B 41 B2 32 39 AF 43 58 B3 B2 C3 |Z...:.A.29.CX...|
00002030: 28 58 24 29 A7 43 58 B2 43 58 AA 31 3A 99 47 24 |(X$).CX.CX.1:.G$|
00002040: 3B 3A 89 34 35 30 35 3A 52 49 00 75 1C B2 11 3A |;:.4505:RI.u...:|
00002050: 8B 41 B2 31 33 A7 99 3A 8D 34 35 38 30 3A 8E 3A |.A.13..:.4580:.:|
00002060: 8F 20 52 45 54 00 AA 1C B7 11 3A 8B 41 B2 32 30 |. RET.....:.A.20|
00002070: A7 8B 43 58 B1 31 A7 99 47 24 3B 3A 58 24 B2 C8 |..CX.1..G$;:X$..|
00002080: 28 58 24 2C 43 58 AB 32 29 AA CA 28 58 24 2C 43 |(X$,CX.2)..(X$,C|
00002090: 58 29 3A 43 58 B2 43 58 AB 31 00 C5 1C BC 11 3A |X):CX.CX.1.....:|
000020A0: 8B 41 B2 31 34 38 AF C3 28 58 24 29 B3 37 38 A7 |.A.148..(X$).78.|
000020B0: 8D 34 35 35 35 00 EA 1C C1 11 3A 8B 41 B2 31 34 |.4555.....:.A.14|
000020C0: 37 A7 4C B2 C3 28 58 24 29 3A 8D 34 35 36 30 3A |7.L..(X$):.4560:|
000020D0: 43 58 B2 31 3A 58 24 B2 22 22 00 F5 1C C6 11 3A |CX.1:X$."".....:|
000020E0: 89 34 35 30 35 00 24 1D CB 11 58 24 B2 C8 28 58 |.4505.$...X$..(X|
000020F0: 24 2C 43 58 AB 31 29 AA 22 20 22 AA CA 28 58 24 |$,CX.1)." "..(X$|
00002100: 2C 43 58 29 3A 99 47 24 22 20 9D 22 3B 3A 8E 3A |,CX):.G$" .";:.:|
00002110: 8F 20 49 4E 00 4D 1D D0 11 99 C8 28 4C 45 24 2C |. IN.M.....(LE$,|
00002120: 43 58 AB 31 29 C8 28 53 50 24 2C 4C 29 C8 28 4C |CX.1).(SP$,L).(L|
00002130: 45 24 2C 4C 29 3B 3A 8E 3A 8F 20 43 4C 00 7B 1D |E$,L);:.:. CL.{.|
00002140: D5 11 99 22 12 22 4D 24 22 9D 92 22 3B 3A 81 57 |..."."M$"..";:.W|
00002150: B2 31 A4 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 |.1.50:.G$:.G$.."|
00002160: 22 A7 99 4D 24 22 9D 22 3B 3A 8E 00 A1 1D DA 11 |"..M$".";:......|
00002170: 3A 82 57 3A 99 4D 24 22 9D 22 3B 3A 81 57 B2 31 |:.W:.M$".";:.W.1|
00002180: A4 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 22 A7 |.50:.G$:.G$.."".|
00002190: 8E 00 AF 1D DF 11 3A 82 57 3A 89 34 35 36 35 00 |......:.W:.4565.|
000021A0: DB 1D E4 11 8B C8 28 58 24 2C 31 29 B2 22 20 22 |......(X$,1)." "|
000021B0: A7 58 24 B2 CA 28 58 24 2C 32 29 3A 89 34 35 38 |.X$..(X$,2):.458|
000021C0: 30 3A 8F 20 2D 53 50 41 43 45 53 00 04 1E E9 11 |0:. -SPACES.....|
000021D0: 3A 8B C9 28 58 24 2C 31 29 B2 22 20 22 A7 58 24 |:..(X$,1)." ".X$|
000021E0: B2 C8 28 58 24 2C C3 28 58 24 29 AB 31 29 3A 89 |..(X$,.(X$).1):.|
000021F0: 34 35 38 35 00 0B 1E EE 11 3A 8E 00 20 1E F8 11 |4585.....:.. ...|
00002200: 8F 20 4A 55 53 54 20 54 4F 54 53 20 41 56 52 53 |. JUST TOTS AVRS|
00002210: 00 62 1E FD 11 99 22 11 49 53 20 54 48 49 53 20 |.b....".IS THIS |
00002220: 41 20 4E 55 4D 45 52 49 43 20 43 4F 4C 55 4D 4E |A NUMERIC COLUMN|
00002230: 3F 22 3A 58 B2 46 4C 25 28 57 43 29 3A 58 33 B2 |?":X.FL%(WC):X3.|
00002240: 38 3A 8D 20 34 34 30 30 3A 46 4C 25 28 57 43 29 |8:. 4400:FL%(WC)|
00002250: B2 58 00 7E 1E 02 12 3A 8B 20 58 24 B2 22 4E 22 |.X.~...:. X$."N"|
00002260: 20 A7 20 46 4C 25 28 57 43 29 B2 30 3A 8E 00 B8 | . FL%(WC).0:...|
00002270: 1E 07 12 99 22 4E 55 4D 45 52 49 43 20 4A 55 53 |...."NUMERIC JUS|
00002280: 54 49 46 49 45 44 3F 22 3A 58 B2 46 4C 25 28 57 |TIFIED?":X.FL%(W|
00002290: 43 29 3A 58 33 B2 31 3A 8D 20 34 34 30 30 3A 46 |C):X3.1:. 4400:F|
000022A0: 4C 25 28 57 43 29 B2 58 00 D1 1E 0C 12 3A 8B 20 |L%(WC).X.....:. |
000022B0: 58 24 B2 22 4E 22 A7 20 34 36 34 30 3A 8F 2D 2D |X$."N". 4640:.--|
000022C0: 2D 00 FC 1E 11 12 3A 20 99 22 50 4C 41 43 45 53 |-.....: ."PLACES|
000022D0: 20 54 4F 20 52 49 47 48 54 20 4F 46 20 44 45 43 | TO RIGHT OF DEC|
000022E0: 49 4D 41 4C 20 50 4F 49 4E 54 3F 22 00 30 1F 16 |IMAL POINT?".0..|
000022F0: 12 3A 20 20 58 31 B2 30 3A 58 32 B2 43 50 25 28 |.: X1.0:X2.CP%(|
00002300: 57 43 29 AB 31 3A 58 B2 52 44 25 28 57 43 29 3A |WC).1:X.RD%(WC):|
00002310: 8D 20 34 38 30 30 3A 52 44 25 28 57 43 29 B2 58 |. 4800:RD%(WC).X|
00002320: 00 6C 1F 1B 12 3A 20 20 4C 44 25 28 57 43 29 B2 |.l...: LD%(WC).|
00002330: 43 50 25 28 57 43 29 3A 8B 20 52 44 25 28 57 43 |CP%(WC):. RD%(WC|
00002340: 29 A7 20 4C 44 25 28 57 43 29 B2 43 50 25 28 57 |). LD%(WC).CP%(W|
00002350: 43 29 AB 52 44 25 28 57 43 29 AB 31 00 A2 1F 20 |C).RD%(WC).1... |
00002360: 12 3A 99 22 54 4F 54 41 4C 20 41 54 20 45 4E 44 |.:."TOTAL AT END|
00002370: 3F 22 3A 58 B2 46 4C 25 28 57 43 29 3A 58 33 B2 |?":X.FL%(WC):X3.|
00002380: 32 3A 8D 20 34 34 30 30 3A 46 4C 25 28 57 43 29 |2:. 4400:FL%(WC)|
00002390: B2 58 00 DA 1F 25 12 3A 99 22 41 56 45 52 41 47 |.X...%.:."AVERAG|
000023A0: 45 20 41 54 20 45 4E 44 3F 22 3A 58 B2 46 4C 25 |E AT END?":X.FL%|
000023B0: 28 57 43 29 3A 58 33 B2 34 3A 8D 20 34 34 30 30 |(WC):X3.4:. 4400|
000023C0: 3A 46 4C 25 28 57 43 29 B2 58 00 F2 1F 2A 12 3A |:FL%(WC).X...*.:|
000023D0: 8B 20 58 46 B2 30 20 A7 20 34 36 36 35 3A 8F 2D |. XF.0 . 4665:.-|
000023E0: 2D 2D 00 2A 20 2F 12 3A 99 22 53 48 4F 55 4C 44 |--.* /.:."SHOULD|
000023F0: 20 46 49 45 4C 44 53 20 42 45 20 41 44 44 45 44 | FIELDS BE ADDED|
00002400: 20 49 46 20 52 45 43 4F 52 44 53 20 41 52 45 20 | IF RECORDS ARE |
00002410: 43 4F 4D 42 49 4E 45 44 3F 22 00 51 20 34 12 3A |COMBINED?".Q 4.:|
00002420: 20 58 B2 46 4C 25 28 57 43 29 3A 58 33 B2 31 36 | X.FL%(WC):X3.16|
00002430: 3A 8D 20 34 34 30 30 3A 46 4C 25 28 57 43 29 B2 |:. 4400:FL%(WC).|
00002440: 58 00 57 20 39 12 8E 00 85 20 5C 12 8D 34 35 30 |X.W 9.... \..450|
00002450: 30 3A 4C B2 C3 28 58 24 29 3A 8B 4C B3 31 B0 4C |0:L..(X$):.L.1.L|
00002460: B1 31 35 A7 34 37 38 30 3A 8F 20 46 49 4C 45 20 |.15.4780:. FILE |
00002470: 4E 41 4D 45 3F 00 C5 20 95 12 3A 81 58 B2 31 A4 |NAME?.. ..:.X.1.|
00002480: 4C 3A 58 31 24 B2 CA 28 58 24 2C 58 2C 31 29 3A |L:X1$..(X$,X,1):|
00002490: 8B 58 31 24 B2 22 2A 22 B0 58 31 24 B2 22 2C 22 |.X1$."*".X1$.","|
000024A0: B0 58 31 24 B2 22 3A 22 B0 58 31 24 B2 22 3F 22 |.X1$.":".X1$."?"|
000024B0: A7 34 37 38 30 00 D0 20 96 12 3A 20 82 58 3A 8E |.4780.. ..: .X:.|
000024C0: 00 11 21 AC 12 3A 99 22 12 45 4E 54 45 52 20 31 |..!..:.".ENTER 1|
000024D0: 20 54 4F 20 31 35 20 43 48 41 52 41 54 45 52 53 | TO 15 CHARATERS|
000024E0: 2C 20 44 4F 20 4E 4F 54 20 45 4E 54 45 52 20 50 |, DO NOT ENTER P|
000024F0: 55 4E 43 54 55 41 54 49 4F 4E 22 3A 89 34 37 30 |UNCTUATION":.470|
00002500: 30 00 22 21 C0 12 8F 20 41 53 4B 20 4E 55 4D 42 |0."!... ASK NUMB|
00002510: 45 52 00 53 21 CA 12 58 24 B2 CA 28 C4 28 58 29 |ER.S!..X$..(.(X)|
00002520: 2C 32 29 3A 8D 34 35 30 30 3A 58 B2 C5 28 58 24 |,2):.4500:X..(X$|
00002530: 29 3A 8B 58 B2 30 AF 58 24 B3 B1 22 30 22 A7 34 |):.X.0.X$.."0".4|
00002540: 38 31 32 00 66 21 CB 12 8B 58 B2 B1 58 31 AF 58 |812.f!...X..X1.X|
00002550: B2 B3 58 32 A7 8E 00 94 21 CC 12 99 22 12 49 4C |..X2....!...".IL|
00002560: 4C 45 47 41 4C 20 45 4E 54 52 59 20 2D 20 50 4C |LEGAL ENTRY - PL|
00002570: 45 41 53 45 20 45 4E 54 45 52 20 41 20 4E 55 4D |EASE ENTER A NUM|
00002580: 42 45 52 22 00 BC 21 CF 12 99 22 12 49 4E 20 54 |BER"..!...".IN T|
00002590: 48 45 20 52 41 4E 47 45 20 4F 46 22 58 31 22 9D |HE RANGE OF"X1".|
000025A0: 20 54 4F 22 58 32 3A 89 34 38 30 30 00 D4 21 7C | TO"X2:.4800..!||
000025B0: 15 8F 20 46 52 4F 4D 2C 54 49 54 4C 45 53 2C 57 |.. FROM,TITLES,W|
000025C0: 49 44 54 48 00 0A 22 7E 15 99 22 11 52 41 4E 44 |IDTH.."~..".RAND|
000025D0: 4F 4D 20 46 49 45 4C 44 53 3A 22 3A 81 58 B2 31 |OM FIELDS:":.X.1|
000025E0: A4 48 46 3A 99 22 20 12 22 58 22 92 9D 22 46 54 |.HF:." ."X".."FT|
000025F0: 24 28 58 29 3B 3A 82 58 3A 99 00 39 22 81 15 99 |$(X);:.X:..9"...|
00002600: 22 11 4C 4F 41 44 20 43 4F 4C 55 4D 4E 20 23 22 |".LOAD COLUMN #"|
00002610: 57 43 22 46 52 4F 4D 20 52 41 4E 44 4F 4D 20 46 |WC"FROM RANDOM F|
00002620: 49 45 4C 44 20 23 3F 22 3A 00 65 22 86 15 3A 58 |IELD #?":.e"..:X|
00002630: 31 B2 30 3A 58 32 B2 48 46 3A 58 B2 20 41 52 25 |1.0:X2.HF:X. AR%|
00002640: 28 57 43 29 3A 8D 20 34 38 30 30 3A 41 52 25 28 |(WC):. 4800:AR%(|
00002650: 57 43 29 B2 58 00 9F 22 90 15 99 22 11 54 49 54 |WC).X.."...".TIT|
00002660: 4C 45 20 4F 46 20 43 4F 4C 55 4D 4E 20 23 22 57 |LE OF COLUMN #"W|
00002670: 43 22 3F 22 52 24 22 28 55 53 45 20 20 2F 20 20 |C"?"R$"(USE / |
00002680: 46 4F 52 20 54 57 4F 20 4C 49 4E 45 53 29 22 00 |FOR TWO LINES)".|
00002690: CE 22 95 15 3A 58 24 B2 54 32 24 28 57 43 29 3A |."..:X$.T2$(WC):|
000026A0: 8B 20 C3 28 54 31 24 28 57 43 29 29 A7 58 24 B2 |. .(T1$(WC)).X$.|
000026B0: 54 31 24 28 57 43 29 AA 22 2F 22 AA 58 24 00 D9 |T1$(WC)."/".X$..|
000026C0: 22 9A 15 3A 8D 34 35 30 30 00 0E 23 9F 15 3A 81 |"..:.4500..#..:.|
000026D0: 20 58 B2 31 A4 C3 28 58 24 29 3A 8B 20 CA 28 58 | X.1..(X$):. .(X|
000026E0: 24 2C 58 2C 31 29 B3 B1 22 2F 22 A7 20 82 20 58 |$,X,1).."/". . X|
000026F0: 3A 58 B2 31 3A 58 24 B2 22 2F 22 AA 58 24 00 38 |:X.1:X$."/".X$.8|
00002700: 23 A4 15 3A 20 54 31 24 28 57 43 29 B2 C8 28 58 |#..: T1$(WC)..(X|
00002710: 24 2C 58 AB 31 29 3A 54 32 24 28 57 43 29 B2 CA |$,X.1):T2$(WC)..|
00002720: 28 58 24 2C 58 AA 31 29 00 5C 23 A9 15 99 22 11 |(X$,X.1).\#...".|
00002730: 4E 4F 2E 20 4F 46 20 43 48 41 52 53 20 46 4F 52 |NO. OF CHARS FOR|
00002740: 20 43 4F 4C 20 23 22 57 43 22 3F 22 00 88 23 AE | COL #"WC"?"..#.|
00002750: 15 3A 58 31 B2 31 3A 8B 58 31 B3 C3 28 54 31 24 |.:X1.1:.X1..(T1$|
00002760: 28 57 43 29 29 AD 35 A7 20 58 31 B2 C3 28 54 31 |(WC)).5. X1..(T1|
00002770: 24 28 57 43 29 29 AD 35 00 AF 23 B3 15 3A 8B 58 |$(WC)).5..#..:.X|
00002780: 31 B3 C3 28 54 32 24 28 57 43 29 29 AD 35 A7 20 |1..(T2$(WC)).5. |
00002790: 58 31 B2 C3 28 54 32 24 28 57 43 29 29 AD 35 00 |X1..(T2$(WC)).5.|
000027A0: E0 23 B8 15 3A 58 31 B2 B5 28 58 31 AA 31 29 3A |.#..:X1..(X1.1):|
000027B0: 58 32 B2 38 30 3A 58 B2 43 50 25 28 57 43 29 3A |X2.80:X.CP%(WC):|
000027C0: 8D 20 34 38 30 30 3A 43 50 25 28 57 43 29 B2 58 |. 4800:CP%(WC).X|
000027D0: 00 E6 23 BD 15 8E 00 F7 23 E0 15 8F 20 41 53 4B |..#.....#... ASK|
000027E0: 20 4C 4F 4F 4B 55 50 00 2D 24 E5 15 99 22 11 48 | LOOKUP.-$...".H|
000027F0: 4F 57 20 4D 41 4E 59 20 4C 4F 4F 4B 55 50 20 46 |OW MANY LOOKUP F|
00002800: 49 4C 45 53 3F 22 3A 58 31 B2 30 3A 58 32 B2 31 |ILES?":X1.0:X2.1|
00002810: 30 3A 58 B2 48 4C 3A 8D 20 34 38 30 30 00 4C 24 |0:X.HL:. 4800.L$|
00002820: EA 15 8B 20 48 4C B3 B1 58 20 A7 20 48 4C B2 58 |... HL..X . HL.X|
00002830: 3A 8B 20 48 4C 20 A7 20 47 4C B2 31 00 5B 24 EF |:. HL . GL.1.[$.|
00002840: 15 8B 20 48 4C B2 30 20 A7 20 8E 00 89 24 F4 15 |.. HL.0 . ...$..|
00002850: 81 20 57 4C B2 31 20 A4 20 48 4C 3A 99 22 4E 41 |. WL.1 . HL:."NA|
00002860: 4D 45 20 4F 46 20 46 49 4C 45 23 22 57 4C 3A 58 |ME OF FILE#"WL:X|
00002870: 24 B2 4C 54 24 28 57 4C 29 00 C0 24 F9 15 3A 58 |$.LT$(WL)..$..:X|
00002880: 24 B2 4C 54 24 28 57 4C 29 3A 8D 34 35 30 30 3A |$.LT$(WL):.4500:|
00002890: 8B 20 58 24 B3 B1 20 4C 54 24 28 57 4C 29 20 A7 |. X$.. LT$(WL) .|
000028A0: 20 4C 54 24 28 57 4C 29 B2 58 24 3A 47 4C B2 31 | LT$(WL).X$:GL.1|
000028B0: 00 DA 24 FE 15 82 20 57 4C 3A 8D 33 3A 8B 20 47 |..$... WL:.3:. G|
000028C0: 24 B2 22 59 22 A7 35 36 30 30 00 E0 24 03 16 8E |$."Y".5600..$...|
000028D0: 00 EC 24 44 16 8F 20 43 41 53 45 3F 00 00 25 53 |..$D.. CASE?..%S|
000028E0: 16 8B 20 4D 43 B2 30 20 A7 20 41 43 B2 30 3A 8E |.. MC.0 . AC.0:.|
000028F0: 00 35 25 58 16 2D CA 22 11 43 4F 4E 56 45 52 54 |.5%X.-.".CONVERT|
00002900: 20 54 4F 20 41 4C 4C 20 43 41 50 53 3F 22 3A 58 | TO ALL CAPS?":X|
00002910: B2 41 43 3A 58 33 B2 AB 31 3A 8D 20 34 34 30 30 |.AC:X3..1:. 4400|
00002920: 3A 41 43 B2 58 00 3B 25 6C 16 8E 00 46 25 8C 23 |:AC.X.;%l...F%.#|
00002930: 8F 20 45 58 49 54 00 6B 25 8D 23 58 24 B2 22 52 |. EXIT.k%.#X$."R|
00002940: 45 50 4F 52 54 20 57 52 49 54 45 52 22 3A 8D 20 |EPORT WRITER":. |
00002950: 39 32 30 30 3A 89 20 39 31 30 31 00 7B 25 F0 23 |9200:. 9101.{%.#|
00002960: 8F 20 4C 4F 41 44 20 50 52 4F 47 00 B2 25 F1 23 |. LOAD PROG..%.#|
00002970: A0 20 52 41 3A 8B 20 44 54 B2 31 20 AF 20 52 56 |. RA:. DT.1 . RV|
00002980: B2 31 20 A7 20 99 22 11 12 49 4E 53 45 52 54 20 |.1 . ."..INSERT |
00002990: 50 52 4F 47 52 41 4D 20 44 49 53 4B 22 3A 8D 20 |PROGRAM DISK":. |
000029A0: 31 30 00 D5 25 F5 23 98 4B 4B 28 30 29 2C 22 49 |10..%.#.KK(0),"I|
000029B0: 30 22 3A 99 22 11 28 4C 4F 41 44 49 4E 47 20 22 |0":.".(LOADING "|
000029C0: 58 24 22 29 22 00 08 26 FA 23 9F 20 53 45 2C 38 |X$")"..&.#. SE,8|
000029D0: 2C 53 45 2C 22 30 3A 22 AA 58 24 AA 22 2C 50 2C |,SE,"0:".X$.",P,|
000029E0: 52 22 3A 56 4F B2 30 3A 8D 20 38 3A A0 20 53 45 |R":VO.0:. 8:. SE|
000029F0: 3A 8B 20 45 20 A7 20 8E 00 1F 26 FF 23 8B 20 4C |:. E . ...&.#. L|
00002A00: 49 B3 32 35 33 20 A7 20 97 20 49 56 2C 4C 49 00 |I.253 . . IV,LI.|
00002A10: 31 26 04 24 93 20 22 30 3A 22 AA 58 24 2C 38 3A |1&.$. "0:".X$,8:|
00002A20: 90 00 00 00 34 |....4 |
....... 5/10/80 9:20. .... 1100.T... 15
:. 15,8,15,"S0:DO UPDATE":."0:DO UPDATE"
,8:..H....4,4:.4:.".";:.......G$:.V.1.C(
G1$):.G$..J(G1$,V,1)..V:.5............KK
(VO),E,E$,S,T:.E.2...O...."DISK ERROR:"E
;E$;S;T......".C.ONTINUE?":G1$."C":.5:..
..... MAIN...... CHANGE REC...... CALC D
O.-. .. EQUAL SEARCH.C.".. MATH OPERATI
ONS.S.#.. CANT FIND.E.).. WRITE A REC.Y.
*.. READ A RECORD...+.. POSITION POINTER
...,.. YES?.../.. RUNNING TOTALS.A.3.. C
HUNK DOWN.Q.4.. CHUNK UP...5.. FIND PO
INTER...;.. PASS PARAMS...?.. RESORT?...
[.. EXIT...\.. OPEN SEQ.*.L.. MAIN.C.N..
LI.253 . . IV,LI.3.I.Q..". .MA
KING CALCULATIONS...S.. 6300:. CK . SP.1
:. RESORT?...V.. 9200:. E . 1135:. OPEN
FILE---...[.. WC.1. HC:.SE,CC$(WC):EF.EF
.ST:. WC:FI$.CC$(SK).Z$...].:. 3200:. FI
ND RAN RECORD...^.:. FO$..FI$. . 3500:.
1125:. UNFOUND.R._.: FO$."":. FR..HR . R
R.FR:WR.PO%(RR,WK):. 4200:FO$.F$(SF):. R
ED...`.: . 3100:. MAKE CALCS...B.: . 220
0:. CHANGE REC...E.:. EF.0 . 1115.P.O.
SE:. SP . . 1900...T..".....":. 9100:.:.
EXIT...L.. SAVE BOOK.-.Q. SE:UK.WK:.".
(SCRATCHING OLD BOOKKEEPING)".E.V.:.KK(R
V),"S".DR$(RV).":DB.".NA$:VO.RV:. 8:. E.
1 . ....|.. SE,DV(RV),SE,DR$(RV).":DB.".
NA$.",S,W":VO.RV:. 8:.E . .......SE,MR;R
$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;R
$DK;R$DE;R$MC;R$;...... WF.1 . HF:.SE,Q$
;FT$(WF);R$;:. WF.=.... D.0.5:. X.0.HK:.
SE,SF%(X,D);R$;:. X,D.V...."(SAVING POIN
TERS)".....:. X.0.HK:. RR.1 . HR:.SE,PO%
(RR,X);R$;:. RR:.X...... R3 . ."(SAVING
BLOCK MAP)":. X.1.10:. X.....:. R3 . . W
B.1 . HB:.SE," "T%(WB)R$" "S%(WB)R$;:.WB
."....R4.N#(RA):M#(RA),("RA.".NA$),L(RS)
,D(DR(RV)).B....X.1.HF:.SE," "MF%(X)R$;:
.X.\...SP.0: SE:VO.RV:. 8:..M.... CHANG
E REC...... CK.0..4100:......UR.WR:UK.WK
:.4500:.EMBER WR,WK......WK.0.HK.W...:FI
.UR:.5300:BR.FR.1:TR.HR:HR.HR.1.....:.BR
..TR..5100:. DEL PTR.2...:FI$."":. D.1.S
F%(WK,0):FI$.FI$.F$(SF%(WK,D)).Z$:.D:.32
00.F...:BR.FR:TR.HR:.BR..TR. .5200:. INS
RT FOR NEW PNT.....:HR.HR.1:PO%(FR,WK).U
R:. NEW PTR......WK:WR.UR:. 4100:. NEW R
EC.N.E.WK.UK:FI.WR:.5300:RR.FR:.3500:...
.... CALC DO...... WO.1 . HO...!.A.E( J
( OA$(WO) ,2) ).@.&.B$.OB$(WO):B.E(B$):
.H(B$,1)."F".B.E(F$(E(J(B$,2)))).G.'..H(
B$,2)."SF".B.E(CC$(E(J(B$,3))))...+.C$.O
C$(WO):C.E(C$):.H(C$,1)."F". C. E(F$(E(J
(C$,2)))).J.,..H(C$,2)."SF". C. E(CC$(E(
J(C$,3)))).Y.0.O$.OO$(WO)...2.. I(O$,1).
" ". O$.H(O$,C(O$).1):.3122.(.B.. 3400:F
$(A).D(X):. DO OPERATION.M.V..H(F$(A),1)
." ".F$(A).J(F$(A),2).X... WO:..L.... E
QUAL SEARCH.....TL.0:TH.HR.1:. TOO LOW,
TOO HIGH......TH.TL.1.FR.TH:......:P%.(
TL.TH).2..1:WR.PO%(P%,WK):. R4 . . 3240:
. 3225.....:. 4300:. X.1 . DK:.RA,X$(X):
. X:FO$."".:...:.X.1.SF%(WK,0):FO$.FO$.X
$(SF%(WK,X)).Z$:.X.S...:. FI$.FO$ . FR.P
%:..Q...:. FI$..FO$ . TH.P%:.3210.....:T
L.P%:.3210.....L.1:.X.1.DK:O#(RA),(WR),(
L):.RA,X$(X):L.L.C(X$(X)).2:.X.D.....Z.H
.. MATH OPERATIONS...A.. O$."+" . X.B.C:
....F.. O$."-" . X.B.C:..(.K.. O$."X" .
O$."*" . X.B.C:..A.P.. O$."/" ..C.X.B.C:
..X.U.. O$."^" . X.B.C:..R.Z.. O$."SIN"
. X..(C):....{.. O$."RND" . X..(C):....
.. O$."TAN" . X..(C):....... O$."ABS" .
X..(C):..Z.... O$."LOG" . X..(C):.......
O$."." ...Y............I..U...A..YG.X..
..........I......A..Y..............O.../
..........O.22%T....!..X..4..B.D..@.A..Y
.!$4..UB.D..B.$..D.R.$T4.$B.T..4R..U...2
.$D.@...`Y.!.D....R.T.4..D..4..D..TR.T.D
..D.R.$U5B..B.D.R.D.DS. ....U.#...;#..R.
X....O#...&.#;...'...RTION TOO COMPLEX!!
":. 2100.6.... SL%(WS)..3 . WS.WS.1:X.5:
. 2110.\...HS.WS:X.0:. 2500:.3:. G$."Y".
2100.B.....O.... (CONT)......T$"FIELDS:"
:. WF.1 . HF:. WF;FT$(WF):. WF.N...:X.1:
. 2500:."..ENTER FIELD NO:":. DISP SEL..
...:X.SA%(WS):X1.1:X2.HF:. 4800:SA%(WS).
X.3....T$"EQUALITY TYPES:":. X.1 . 9.(XF
..0):. X;EQ$(X):. X.`.E.:X.2:. 2500:."..
ENTER EQUALITY TYPE NO:"...J.:X.SE%(WS):
X1.1:X2.9.(XF..0):. 4800:SE%(WS).X...O..
T$"ARGUMENT CAN BE ANY ALPHA-NUM STRING"
...T.:X.3:. 2500:."..ENTER ARGUMENT:"...
Y.:X$.SB$(WS):.4500:SB$(WS).X$.<....T$"L
OGICAL CONECTIONS:":. X.1 . 3:. X;LO$(X)
:. X.F...:X.4:. 2500:."..ENTER CONNECTIO
N NO:".....:.WS.RW.SL%(WS).3:.2215.....:
X.SL%(WS):X1.1:X2.3:.4800:SL%(WS).X.....
....... HM COLS......".HOW MANY PRINTED
COLUMNS DO YOU WANT?".....:X.HC:X1.1:X2.
MD:.4800:HC.X:WC.1:..(.`.. DESCRIBE COLS
.L.E..".";:. HC.1 . . 2300:. HM COLS...G
..".COLUMNS:":. X.1.HC:."."X"."T1$(X)"/"
T2$(X);:.X:....J..".WHICH COLUMN DO YOU
WANT TO DESCRIBE?".R.O.:X.WC:X1.1:X2.HC:
.4800:WC.X...{.. 5500:. 4600:. FRO-TIT-W
ID,JUS-TOT-AVR...~.....D.. DISPLAY SELEC
T.;.F.."..YOUR SELECTION STATEMENT:.X.I.
."IF (";:. HS.WS . HS.WS...N.. Y.1 . HS:
. Y.WS . . X.1 . ."...";:.2520...S.. FT$
(SA%(Y));...X.. Y.WS . . X.2 . ."...";:.
2530.U.... " "EQ$(SE%(Y))" ";...... Y.WS
. . X.3 . ."...";:.2540...... SB$(Y);.)
.... Y.WS . . X.4 . ."...";:.2550.<....
LO$(SL%(Y));.H.... Y:.:..T.... MISC1...
..". .CHANGE MISCELLANEOUS ITEMS.
.....".KEYS:":.X.0.HK:."."X.1".. ";.V...
:. D.1.SF%(X,0):.FT$(SF%(X,D))":";:.D:."
. ":.X... .:.".WHICH KEY?":X1.1:X2.HK.1:
X.WK.1:.4800:WK.X.1.R....".DEVICE NO? (4
=MOST PRINTERS, 3=SCREEN, 8=DISK FILE, 1
=CASSETTE).T...:X1.1:X2.255:X.PD:. 4800:
PD.X.....:. D9 . . PD.D9 . PD.8...... PD
..8 . PD..1 . . 2800:. 2760:. PAPER.....
:.".OUTPUT TO WORD PROCESSOR?.....:."(PA
GE MATE, WORD PRO, EASY SCRIPT)":X.WP:X3
..1:. 4400:WP.X.X...:. XF . .".OUTPUT TO
DIF FILE?":X.DF:X3.1:.4400:DF.X...C.:."
.NAME OF SEQ FILE?":X$.NS$:.4700:NS$.X$.
J.H..".CHARACTERS PER SELECTION CODE?":X
1.1:X2.10:X.HT:. 4800:HT.X...M.. XF.0 .
2782...R.:.".HOW MANY FIELDS DETERMINE I
F RECORDS ARE TO BE COMBINED?".Z.W.:."(E
NTER 0 IF SIMILAR RECORDS ARE NOT TO BE
COMBINED)".....:X1.0:X2.SF%(WK,0):X.KR:.
4800:KR.X.E....".ASCENDING ORDER?(N=DES
CENDING ORDER)":X.AS:X3..1:.4400:AS.X...
... 5700:.3:.G$."Y".2700:. $COVERT......
...... MISC PAPER.9....".HOW MANY SPACES
DO YOU WANT TO INDENT COLUMN #1?.B...:X
1.0:X2.80:X.CP%(0):. 4800:CP%(0).X......
".HOW MANY CHARACTERS ACROSS DOES YOUR P
RINTER PRINT?".A...:X1.20:X2.250:X.PW:.
4800:PW.X......".LINES PER PAGE?":X1.30:
X2.9E9:X.LP:. 4800:LP.X.-....".PAUSE AFT
ER EACH PAGE?":X.PP:X3..1:. 4400:PP.X.E.
...".FIRST PAGE NUMBER?":X.P1:X1.0:X2.9E
9:. 4800:P1.X......".NO OF CHARACTERS SE
NT TO PRINTER?":X1.0:X2.10.J...:X.CH%(0)
:. 4800:CH%(0).X:. X.0 . 2880:.---.....:
.Y.1.X:."ASCII VALUE #"Y"?":X.CH%(Y):X1.
0:X2.255...".: . 4800:CH%(Y).X:. Y.\.@..
".HOW MANY LEVELS OF SUBTOTALS?":X2.SF%(
WK,0):. KR . X2.KR.1.R.E.:X.LS:. 4800:LS
.X...J.. LS.0 . 2899.F.O.:.".SEPARATE RE
PORTS FOR EACH SUBTOTAL?":X.SR:X3.1:.440
0:SR.X.L.S...W.... CALC...!..".
.CALCULATED COLUMNS INFO.5.&..".HOW MAN
Y OPERATIONS DO YOU WANT TO PERFORM?".`.
+.X1.0:X2.MD:X.HO:. 4800:HO.X:. HO.0 . .
.{.0.DE$." ":. FF . DE$.","...2.. 3200:.
INSTRUCT...5.. WO.1 . HO...:.:.".OPERAT
ION #"WO".:"...?.:X$.OA$(WO).DE$.OB$(WO)
.DE$.OO$(WO).DE$.OC$(WO)...@.:.X$.",,,".
X$." , , ,".(.A.:.4500:X1$.X......
O..............B.T..%.C..S3.S.....K;.#R"
.R.."B.T..%.C...3.C ..DPC....B.T..$..B.T
...".R#.S3.S..."B.T..%.C ..D`C.S3.S....B
.T..%.C..S3.S...2B.T..%.C .ADPC..K,..."B
.T..C.....DK;.....$."C" . 3150...H.: . X
$."0" . E(X$)..0 . 3150.9.I.: OC$(WO).O
O$(WO):OO$(WO).OB$(WO):OB$(WO)."".Y.N.:.
OO$(WO)."".OO$(WO)."."."".T.S.:. WO:.3:.
G$."Y".3100.Z.X.....B.X.CX...G..J(X1$,X
,1)..DE$.X..C(X1$).X.X.1:.3175.T.L.:X$.J
(X1$,CX,X.CX):CX.X.1:.4580:....V.MD.20:L
E$.".................": .3100:.3190.
..{.FF.1:. 3190.+.... INSTRUCT CALC.K...
.".A. .B. .C. .D..S...."C4= "
DE$"C5 "DE$"+ "DE$"5.07"......"C1= "
DE$" "DE$"SIN "DE$"C8 ".X....".WHERE
.A. IS THE LETTER 'C' PLUS ANY COLUMN N
UMBER ";......"AND .B. AND .D. ARE EITHE
R REAL NUMBERS OR THE ";.;...."LETTER 'C
' PLUS ANY COLUMN NUMBER ";.E...."AND WH
ERE .C. IS A MATH OPERATION:"... ..".,+,
-,*,/,^,LOG,SIN,TAN,INT,RND,R#,BAR,DATE.
Q....".COLUMNS:":.X.1.HC:."."X"."T1$(X)"
/"T2$(X)" ";:.X:..W.......L.. HEADER LIN
ES...Q..". .HEADER LINES.7.V.
."..HOW MANY HEADER LINES DO YOU WANT?".
W...X1.1:X2.MD:X.HH:. 4800:HH.X.E.... X.
1. HH.....:.".ENTER HEADER LINE #"X":"..
...:X$.HL$(X):.4500:HL$(X).X$.....:. X:.
...0.. YES?...5.X$.J("YN",1.((X.X3).0),1
):.4500...7.. X$.."Y".X$.."N"..".PLEASE
ANSWER Y OR N":.4400.E.:.X$.H(X$,1):X
.( X.(. X3) . (X$."Y").X3 ):..J....X$H(L
E$,C(X$));:CX.1:. GARD INP.....M$.J(X$."
",CX,1):."."M$"..";:.G$:.G$.""..4565.P.
..:A.F(G$):.M$".";:.(A . 127).32.CX.77.A
.34.4520.....: .G$;:X$.H(X$,CX.1).G$.J(X
$,CX.1):CX.CX.1:.4505./...:.A.157..CX.1.
CX.CX.1:.G$;:.4505:. LF.Z...:.A.29.CX..C
(X$).CX.CX.1:.G$;:.4505:RI.U...:.A.13..:
.4580:.:. RET.....:.A.20..CX.1..G$;:X$.H
(X$,CX.2).J(X$,CX):CX.CX.1.E...:.A.148.C
(X$).78..4555...A.:.A.147.L.C(X$):.4560:
CX.1:X$.""...F.:.4505.$.K.X$.H(X$,CX.1).
" ".J(X$,CX):.G$" .";:.:. IN.M.P..H(LE$,
CX.1)H(SP$,L)H(LE$,L);:.:. CL.{.U.."."M$
"..";:.W.1.50:.G$:.G$..""..M$".";:....Z.
:.W:.M$".";:.W.1.50:.G$:.G$.."".......:.
W:.4565......H(X$,1)." ".X$.J(X$,2):.458
0:. -SPACES.....:.I(X$,1)." ".X$.H(X$,C(
X$).1):.4585.....:.. .... JUST TOTS AVRS
.B....".IS THIS A NUMERIC COLUMN?":X.FL%
(WC):X3.8:. 4400:FL%(WC).X.~...:. X$."N"
. FL%(WC).0:......."NUMERIC JUSTIFIED?"
:X.FL%(WC):X3.1:. 4400:FL%(WC).X.Q...:.
X$."N". 4640:.---.....: ."PLACES TO RIGH
T OF DECIMAL POINT?".0...: X1.0:X2.CP%(
WC).1:X.RD%(WC):. 4800:RD%(WC).X.L...:
LD%(WC).CP%(WC):. RD%(WC). LD%(WC).CP%(W
C).RD%(WC).1... .:."TOTAL AT END?":X.FL%
(WC):X3.2:. 4400:FL%(WC).X.Z.%.:."AVERAG
E AT END?":X.FL%(WC):X3.4:. 4400:FL%(WC)
.X...*.:. XF.0 . 4665:.---.* /.:."SHOULD
FIELDS BE ADDED IF RECORDS ARE COMBINED
?".Q 4.: X.FL%(WC):X3.16:. 4400:FL%(WC).
X.W 9.... \..4500:L.C(X$):.L.1.L.15.4780
:. FILE NAME?.E ..:.X.1.L:X1$.J(X$,X,1):
.X1$."*".X1$.",".X1$.":".X1$."?".4780.P
..: .X:...!..:.".ENTER 1 TO 15 CHARATERS
, DO NOT ENTER PUNCTUATION":.4700."!...
ASK NUMBER.S!J.X$.J(D(X),2):.4500:X.E(X$
):.X.0.X$.."0".4812.F!K..X..X1.X..X2....
!L..".ILLEGAL ENTRY - PLEASE ENTER A NUM
BER"..!O..".IN THE RANGE OF"X1". TO"X2:.
4800.T!|.. FROM,TITLES,WIDTH.."~..".RAND
OM FIELDS:":.X.1.HF:." ."X".."FT$(X);:.X
:..9"...".LOAD COLUMN #"WC"FROM RANDOM F
IELD #?":.E"..:X1.0:X2.HF:X. AR%(WC):. 4
800:AR%(WC).X.."...".TITLE OF COLUMN #"W
C"?"R$"(USE / FOR TWO LINES)".N"..:X$.
T2$(WC):. C(T1$(WC)).X$.T1$(WC)."/".X$.Y
"..:.4500..#..:. X.1.C(X$):. J(X$,X,1)..
"/". . X:X.1:X$."/".X$.8#..: T1$(WC).H(X
$,X.1):T2$(WC).J(X$,X.1).\#...".NO. OF C
HARS FOR COL #"WC"?"..#..:X1.1:.X1.C(T1$
(WC)).5. X1.C(T1$(WC)).5..#..:.X1.C(T2$(
WC)).5. X1.C(T2$(WC)).5..#..:X1..(X1.1):
X2.80:X.CP%(WC):. 4800:CP%(WC).X..#.....
#... ASK LOOKUP.-$...".HOW MANY LOOKUP F
ILES?":X1.0:X2.10:X.HL:. 4800.L$... HL..
X . HL.X:. HL . GL.1.[$... HL.0 . ...$..
. WL.1 . HL:."NAME OF FILE#"WL:X$.LT$(WL
)..$..:X$.LT$(WL):.4500:. X$.. LT$(WL) .
LT$(WL).X$:GL.1.Z$... WL:.3:. G$."Y".56
00..$.....$D.. CASE?..%S.. MC.0 . AC.0:.
.5%X.-J".CONVERT TO ALL CAPS?":X.AC:X3..
1:. 4400:AC.X.;%L...F%.#. EXIT.K%.#X$."R
EPORT WRITER":. 9200:. 9101.{%.#. LOAD P
ROG..%.# RA:. DT.1 . RV.1 . ."..INSERT
PROGRAM DISK":. 10.U%.#.KK(0),"I0":.".(L
OADING "X$")"..&.#. SE,8,SE,"0:".X$.",P,
R":VO.0:. 8: SE:. E . ...&.#. LI.253 .
. IV,LI.1&.$. "0:".X$,8:....4
> CLICK IMAGE PREVIEW FOR FULL MODAL