CALC FILE
FILE INFORMATION
FILENAME(S): CALC FILE
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 20:14:48
APPEARS ON: 3 disk(s)
FILE HASH
6d49b6116b4116ad3f560e86e4e87609d2304b2361dea289dc2cad2435cc63a0
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PER CEDERHOLM | CALC FILE | PRG | Curtcool, LPN | 9 | 0 | DOWNLOAD FILE |
| PRACTIFILE | CALC FILE | PRG | Curtcool, LPN | 9 | 0 | DOWNLOAD FILE |
| PRACTIFILE | CALC FILE | PRG | Curtcool, LPN | 9 | 0 | 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 59 04 02 00 9F 20 31 35 2C 38 2C 31 35 2C 22 |.Y.... 15,8,15,"|
00000030: 49 30 22 3A 98 31 35 2C 22 53 30 3A 43 41 4C 43 |I0":.15,"S0:CALC|
00000040: 20 46 49 4C 45 22 3A 94 22 30 3A 43 41 4C 43 20 | FILE":."0:CALC |
00000050: 46 49 4C 45 22 2C 38 3A 80 00 85 04 03 00 99 22 |FILE",8:......."|
00000060: 43 4F 52 52 45 43 54 49 4F 4E 53 3F 28 12 59 92 |CORRECTIONS?(.Y.|
00000070: 2F 12 4E 92 29 22 3A 47 31 24 B2 22 59 4E 22 3A |/.N.)":G1$."YN":|
00000080: 8D 20 35 3A 8E 00 99 04 04 00 9F 34 2C 34 3A 9D |. 5:.......4,4:.|
00000090: 34 3A 99 22 93 22 3B 3A 9B 00 C3 04 05 00 A1 47 |4:.".";:.......G|
000000A0: 24 3A 81 56 B2 31 A4 C3 28 47 31 24 29 3A 8B 47 |$:.V.1..(G1$):.G|
000000B0: 24 B3 B1 CA 28 47 31 24 2C 56 2C 31 29 A7 82 56 |$...(G1$,V,1)..V|
000000C0: 3A 89 35 00 C9 04 06 00 8E 00 E5 04 08 00 84 4B |:.5............K|
000000D0: 4B 28 56 4F 29 2C 45 2C 45 24 2C 53 2C 54 3A 8B |K(VO),E,E$,S,T:.|
000000E0: 45 B3 32 A7 8E 00 00 05 09 00 99 22 44 49 53 4B |E.2........"DISK|
000000F0: 20 45 52 52 4F 52 3A 22 45 3B 45 24 3B 53 3B 54 | ERROR:"E;E$;S;T|
00000100: 00 1D 05 0A 00 99 22 12 52 92 45 41 44 59 3F 22 |......".R.EADY?"|
00000110: 3A 47 31 24 B2 22 52 22 3A 8D 35 3A 8E 00 28 05 |:G1$."R":.5:..(.|
00000120: 0B 00 8F 20 4D 41 49 4E 00 35 05 0C 00 8F 20 53 |... MAIN.5.... S|
00000130: 45 54 20 55 50 00 40 05 0F 00 8F 20 4C 4F 41 44 |ET UP.@.... LOAD|
00000140: 00 4B 05 11 00 8F 20 53 41 56 45 00 5F 05 15 00 |.K.... SAVE._...|
00000150: 8F 20 53 45 4C 45 43 54 20 43 48 41 4E 47 45 00 |. SELECT CHANGE.|
00000160: 6F 05 16 00 8F 20 20 20 20 28 43 4F 4E 54 29 00 |o.... (CONT).|
00000170: 8B 05 19 00 8F 20 44 49 53 50 4C 41 59 20 53 45 |..... DISPLAY SE|
00000180: 4C 20 53 54 41 54 45 4D 45 4E 54 00 9D 05 1F 00 |L STATEMENT.....|
00000190: 8F 20 43 41 4C 43 20 43 48 41 4E 47 45 00 B1 05 |. CALC CHANGE...|
000001A0: 20 00 8F 20 49 4E 53 54 52 55 43 54 20 43 41 4C | .. INSTRUCT CAL|
000001B0: 43 00 BC 05 2C 00 8F 20 59 45 53 3F 00 D3 05 2D |C...,.. YES?...-|
000001C0: 00 8F 20 54 4F 54 53 20 41 56 52 53 20 43 48 41 |.. TOTS AVRS CHA|
000001D0: 4E 47 45 00 E4 05 30 00 8F 20 41 53 4B 20 4E 55 |NGE...0.. ASK NU|
000001E0: 4D 42 45 52 00 F4 05 35 00 8F 20 4F 50 45 4E 20 |MBER...5.. OPEN |
000001F0: 46 4F 52 4D 00 05 06 3D 00 8F 20 4D 41 4B 45 20 |FORM...=.. MAKE |
00000200: 43 41 4C 43 53 00 19 06 51 00 8F 20 43 48 41 4E |CALCS...Q.. CHAN|
00000210: 47 45 20 46 4F 52 4D 41 54 00 24 06 5B 00 8F 20 |GE FORMAT.$.[.. |
00000220: 45 58 49 54 00 2F 06 4C 04 8F 20 4D 41 49 4E 00 |EXIT./.L.. MAIN.|
00000230: 48 06 4D 04 8B 20 4C 49 B3 32 35 33 20 A7 20 97 |H.M.. LI.253 . .|
00000240: 20 49 56 2C 4C 49 AA 33 00 67 06 4E 04 4C 4F 24 | IV,LI.3.g.N.LO$|
00000250: 28 33 29 B2 22 29 20 54 48 45 4E 20 43 41 4C 43 |(3).") THEN CALC|
00000260: 55 4C 41 54 45 2E 22 00 7D 06 51 04 8D 20 39 33 |ULATE.".}.Q.. 93|
00000270: 30 30 3A 8B 20 45 20 A7 20 31 31 30 35 00 91 06 |00:. E . 1105...|
00000280: 53 04 8D 20 31 32 30 30 3A 8F 20 53 45 54 20 55 |S.. 1200:. SET U|
00000290: 50 00 B8 06 55 04 99 22 93 20 20 20 20 20 20 20 |P...U..". |
000002A0: 20 20 20 20 20 20 12 46 49 4C 45 20 43 41 4C 43 | .FILE CALC|
000002B0: 55 4C 41 54 49 4F 4E 53 00 CE 06 56 04 99 22 11 |ULATIONS...V..".|
000002C0: 12 4C 92 4F 41 44 20 46 4F 52 4D 41 54 22 00 F6 |.L.OAD FORMAT"..|
000002D0: 06 58 04 99 22 11 12 43 92 48 41 4E 47 45 2C 20 |.X.."..C.HANGE, |
000002E0: 43 52 45 41 54 45 2C 20 49 4E 53 50 45 43 54 20 |CREATE, INSPECT |
000002F0: 46 4F 52 4D 41 54 00 0C 07 5A 04 99 22 11 12 53 |FORMAT...Z.."..S|
00000300: 92 41 56 45 20 46 4F 52 4D 41 54 22 00 28 07 5C |.AVE FORMAT".(.\|
00000310: 04 99 22 11 12 4D 92 41 4B 45 20 43 41 4C 43 55 |.."..M.AKE CALCU|
00000320: 4C 41 54 49 4F 4E 53 22 00 47 07 5E 04 99 22 11 |LATIONS".G.^..".|
00000330: 12 5E 92 20 52 45 54 55 52 4E 20 54 4F 20 46 49 |.^. RETURN TO FI|
00000340: 4C 45 20 4D 45 4E 55 00 79 07 60 04 47 31 24 B2 |LE MENU.y.`.G1$.|
00000350: 22 4C 43 53 4D 5E 22 3A 8D 35 3A 91 20 56 20 8D |"LCSM^":.5:. V .|
00000360: 20 31 35 30 30 2C 38 31 30 30 2C 31 37 30 30 2C | 1500,8100,1700,|
00000370: 36 31 30 30 2C 39 31 30 30 00 93 07 AF 04 81 20 |6100,9100...... |
00000380: 58 B2 31 A4 31 30 3A A1 47 24 3A 82 58 3A 89 31 |X.1.10:.G$:.X:.1|
00000390: 31 30 39 00 9F 07 B0 04 8F 20 53 45 54 55 50 00 |109...... SETUP.|
000003A0: B5 07 B5 04 8B 20 4E 32 24 B2 22 22 A7 20 4E 32 |..... N2$."". N2|
000003B0: 24 B2 4E 41 24 00 D3 07 BA 04 81 57 43 B2 31 A4 |$.NA$......WC.1.|
000003C0: 48 43 3A 43 54 28 57 43 2C 30 29 B2 30 3A 82 57 |HC:CT(WC,0).0:.W|
000003D0: 43 3A 8E 00 DE 07 DC 05 8F 20 4C 4F 41 44 00 F9 |C:....... LOAD..|
000003E0: 07 E1 05 58 31 24 B2 22 52 22 3A 8D 20 35 33 30 |...X1$."R":. 530|
000003F0: 30 3A 8B 20 45 20 A7 20 8E 00 09 08 F5 05 84 20 |0:. E . ....... |
00000400: 53 45 2C 20 48 53 2C 48 4F 00 19 08 F8 05 3A 81 |SE, HS,HO.....:.|
00000410: 20 58 B2 31 20 A4 20 48 53 00 44 08 F9 05 84 20 | X.1 . HS.D.... |
00000420: 53 45 2C 53 41 25 28 58 29 2C 53 45 25 28 58 29 |SE,SA%(X),SE%(X)|
00000430: 2C 20 53 42 24 28 58 29 2C 20 53 4C 25 28 58 29 |, SB$(X), SL%(X)|
00000440: 3A 82 20 58 00 54 08 FC 05 3A 81 20 58 B2 31 20 |:. X.T...:. X.1 |
00000450: A4 20 48 4F 00 80 08 FD 05 84 20 53 45 2C 4F 41 |. HO...... SE,OA|
00000460: 24 28 58 29 2C 20 4F 42 24 28 58 29 2C 20 4F 4F |$(X), OB$(X), OO|
00000470: 24 28 58 29 2C 20 4F 43 24 28 58 29 3A 82 20 58 |$(X), OC$(X):. X|
00000480: 00 A0 08 04 06 3A 81 20 58 B2 31 20 A4 20 52 57 |.....:. X.1 . RW|
00000490: 3A 84 20 53 45 2C 46 4C 25 28 58 29 3A 82 20 58 |:. SE,FL%(X):. X|
000004A0: 00 AB 08 3F 06 A0 20 53 45 3A 8E 00 B6 08 A4 06 |...?.. SE:......|
000004B0: 8F 20 53 41 56 45 00 D1 08 A9 06 58 31 24 B2 22 |. SAVE.....X1$."|
000004C0: 57 22 3A 8D 20 35 33 30 30 3A 8B 20 45 20 A7 20 |W":. 5300:. E . |
000004D0: 8E 00 E8 08 BD 06 98 20 53 45 2C 20 48 53 3B 52 |....... SE, HS;R|
000004E0: 24 20 48 4F 3B 52 24 3B 00 F8 08 C0 06 3A 81 20 |$ HO;R$;.....:. |
000004F0: 58 B2 31 20 A4 20 48 53 00 2E 09 C1 06 98 20 53 |X.1 . HS...... S|
00000500: 45 2C 53 41 25 28 58 29 3B 52 24 3B 53 45 25 28 |E,SA%(X);R$;SE%(|
00000510: 58 29 3B 52 24 3B 53 42 24 28 58 29 3B 52 24 3B |X);R$;SB$(X);R$;|
00000520: 53 4C 25 28 58 29 3B 52 24 3B 3A 82 20 58 00 3E |SL%(X);R$;:. X.>|
00000530: 09 C4 06 3A 81 20 58 B2 31 20 A4 20 48 4F 00 71 |...:. X.1 . HO.q|
00000540: 09 C5 06 98 20 53 45 2C 20 4F 41 24 28 58 29 52 |.... SE, OA$(X)R|
00000550: 24 20 4F 42 24 28 58 29 52 24 20 4F 4F 24 28 58 |$ OB$(X)R$ OO$(X|
00000560: 29 52 24 20 4F 43 24 28 58 29 52 24 3B 3A 82 20 |)R$ OC$(X)R$;:. |
00000570: 58 00 91 09 CC 06 3A 81 58 B2 31 A4 52 57 3A 98 |X.....:.X.1.RW:.|
00000580: 20 53 45 2C 46 4C 25 28 58 29 3B 52 24 3B 3A 82 | SE,FL%(X);R$;:.|
00000590: 58 00 9C 09 07 07 A0 20 53 45 3A 8E 00 A9 09 34 |X...... SE:....4|
000005A0: 08 8F 20 53 45 4C 45 43 54 00 D6 09 39 08 54 24 |.. SELECT...9.T$|
000005B0: B2 20 20 22 93 20 20 20 20 20 20 20 20 20 20 20 |. ". |
000005C0: 20 20 20 12 53 45 4C 45 43 54 20 43 48 41 4E 47 | .SELECT CHANG|
000005D0: 45 11 22 AA 52 24 00 05 0A 3E 08 99 22 11 44 4F |E.".R$...>..".DO|
000005E0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 45 4C | YOU WISH TO SEL|
000005F0: 45 43 54 20 43 45 52 54 41 49 4E 20 52 45 43 4F |ECT CERTAIN RECO|
00000600: 52 44 53 3F 22 00 29 0A 43 08 58 B2 48 53 3A 58 |RDS?".).C.X.HS:X|
00000610: 33 B2 AB 31 3A 8D 20 34 34 30 30 3A 8B 20 58 B2 |3..1:. 4400:. X.|
00000620: 30 A7 20 48 53 B2 30 3A 8E 00 54 0A 48 08 81 20 |0. HS.0:..T.H.. |
00000630: 57 53 B2 31 20 A4 20 4D 44 3A 8D 20 32 32 30 30 |WS.1 . MD:. 2200|
00000640: 3A 8B 20 53 4C 25 28 57 53 29 B3 B1 33 20 A7 20 |:. SL%(WS)..3 . |
00000650: 82 20 57 53 00 85 0A 84 08 8B 20 57 53 B1 4D 44 |. WS...... WS.MD|
00000660: 20 A7 20 99 22 12 53 45 4C 45 43 54 49 4F 4E 20 | . .".SELECTION |
00000670: 54 4F 4F 20 43 4F 4D 50 4C 45 58 21 21 22 3A 89 |TOO COMPLEX!!":.|
00000680: 20 32 31 30 30 00 AB 0A 8E 08 8B 20 53 4C 25 28 | 2100...... SL%(|
00000690: 57 53 29 B3 B1 33 20 A7 20 57 53 B2 57 53 AA 31 |WS)..3 . WS.WS.1|
000006A0: 3A 58 B2 35 3A 89 20 32 31 31 30 00 D1 0A 93 08 |:X.5:. 2110.....|
000006B0: 48 53 B2 57 53 3A 58 B2 30 3A 8D 20 32 35 30 30 |HS.WS:X.0:. 2500|
000006C0: 3A 8D 33 3A 8B 20 47 24 B2 22 59 22 A7 32 31 30 |:.3:. G$."Y".210|
000006D0: 30 00 D7 0A 97 08 8E 00 E4 0A 98 08 8F 20 28 43 |0............ (C|
000006E0: 4F 4E 54 29 00 13 0B B1 08 99 54 24 22 46 49 45 |ONT)......T$"FIE|
000006F0: 4C 44 53 3A 22 3A 81 20 57 46 B2 31 20 A4 20 48 |LDS:":. WF.1 . H|
00000700: 46 3A 99 20 57 46 3B 46 54 24 28 57 46 29 3A 82 |F:. WF;FT$(WF):.|
00000710: 20 57 46 00 43 0B B6 08 3A 58 B2 31 3A 8D 20 32 | WF.C...:X.1:. 2|
00000720: 35 30 30 3A 99 22 11 12 45 4E 54 45 52 20 46 49 |500:."..ENTER FI|
00000730: 45 4C 44 20 4E 4F 3A 22 3A 8F 20 44 49 53 50 20 |ELD NO:":. DISP |
00000740: 53 45 4C 00 6E 0B BB 08 3A 58 B2 53 41 25 28 57 |SEL.n...:X.SA%(W|
00000750: 53 29 3A 58 31 B2 31 3A 58 32 B2 48 46 3A 8D 20 |S):X1.1:X2.HF:. |
00000760: 34 38 30 30 3A 53 41 25 28 57 53 29 B2 58 00 A8 |4800:SA%(WS).X..|
00000770: 0B C0 08 99 54 24 22 45 51 55 41 4C 49 54 59 20 |....T$"EQUALITY |
00000780: 54 59 50 45 53 3A 22 3A 81 20 58 B2 31 20 A4 20 |TYPES:":. X.1 . |
00000790: 39 AB 28 58 46 B3 B1 30 29 3A 99 20 58 3B 45 51 |9.(XF..0):. X;EQ|
000007A0: 24 28 58 29 3A 82 20 58 00 D5 0B C5 08 3A 58 B2 |$(X):. X.....:X.|
000007B0: 32 3A 8D 20 32 35 30 30 3A 99 22 11 12 45 4E 54 |2:. 2500:."..ENT|
000007C0: 45 52 20 45 51 55 41 4C 49 54 59 20 54 59 50 45 |ER EQUALITY TYPE|
000007D0: 20 4E 4F 3A 22 00 07 0C CA 08 3A 58 B2 53 45 25 | NO:".....:X.SE%|
000007E0: 28 57 53 29 3A 58 31 B2 31 3A 58 32 B2 39 AB 28 |(WS):X1.1:X2.9.(|
000007F0: 58 46 B3 B1 30 29 3A 8D 20 34 38 30 30 3A 53 45 |XF..0):. 4800:SE|
00000800: 25 28 57 53 29 B2 58 00 35 0C CF 08 99 54 24 22 |%(WS).X.5....T$"|
00000810: 41 52 47 55 4D 45 4E 54 20 43 41 4E 20 42 45 20 |ARGUMENT CAN BE |
00000820: 41 4E 59 20 41 4C 50 48 41 2D 4E 55 4D 20 53 54 |ANY ALPHA-NUM ST|
00000830: 52 49 4E 47 22 00 5A 0C D4 08 3A 58 B2 33 3A 8D |RING".Z...:X.3:.|
00000840: 20 32 35 30 30 3A 99 22 11 12 45 4E 54 45 52 20 | 2500:."..ENTER |
00000850: 41 52 47 55 4D 45 4E 54 3A 22 00 7B 0C D9 08 3A |ARGUMENT:".{...:|
00000860: 58 24 B2 53 42 24 28 57 53 29 3A 8D 34 35 30 30 |X$.SB$(WS):.4500|
00000870: 3A 53 42 24 28 57 53 29 B2 58 24 00 B1 0C DE 08 |:SB$(WS).X$.....|
00000880: 99 54 24 22 4C 4F 47 49 43 41 4C 20 43 4F 4E 45 |.T$"LOGICAL CONE|
00000890: 43 54 49 4F 4E 53 3A 22 3A 81 20 58 B2 31 20 A4 |CTIONS:":. X.1 .|
000008A0: 20 33 3A 99 20 58 3B 4C 4F 24 28 58 29 3A 82 20 | 3:. X;LO$(X):. |
000008B0: 58 00 DB 0C E3 08 3A 58 B2 34 3A 8D 20 32 35 30 |X.....:X.4:. 250|
000008C0: 30 3A 99 22 11 12 45 4E 54 45 52 20 43 4F 4E 4E |0:."..ENTER CONN|
000008D0: 45 43 54 49 4F 4E 20 4E 4F 3A 22 00 F7 0C E8 08 |ECTION NO:".....|
000008E0: 3A 8B 57 53 B2 52 57 A7 53 4C 25 28 57 53 29 B2 |:.WS.RW.SL%(WS).|
000008F0: 33 3A 89 32 32 31 35 00 20 0D ED 08 3A 58 B2 53 |3:.2215. ...:X.S|
00000900: 4C 25 28 57 53 29 3A 58 31 B2 31 3A 58 32 B2 33 |L%(WS):X1.1:X2.3|
00000910: 3A 8D 34 38 30 30 3A 53 4C 25 28 57 53 29 B2 58 |:.4800:SL%(WS).X|
00000920: 00 26 0D FB 08 8E 00 47 0D C4 09 8F 2A 2A 2A 2A |.&.....G....****|
00000930: 2A 2A 44 49 53 50 4C 41 59 20 53 45 4C 20 53 54 |**DISPLAY SEL ST|
00000940: 41 54 45 4D 45 4E 54 00 69 0D C6 09 99 22 11 12 |ATEMENT.i...."..|
00000950: 59 4F 55 52 20 53 45 4C 45 43 54 49 4F 4E 20 53 |YOUR SELECTION S|
00000960: 54 41 54 45 4D 45 4E 54 3A 00 86 0D C9 09 99 22 |TATEMENT:......"|
00000970: 49 46 20 28 22 3B 3A 8B 20 48 53 B3 57 53 20 A7 |IF (";:. HS.WS .|
00000980: 20 48 53 B2 57 53 00 B4 0D CE 09 81 20 59 B2 31 | HS.WS...... Y.1|
00000990: 20 A4 20 48 53 3A 8B 20 59 B2 57 53 20 A7 20 8B | . HS:. Y.WS . .|
000009A0: 20 58 B2 31 20 A7 20 99 22 2E 2E 2E 22 3B 3A 89 | X.1 . ."...";:.|
000009B0: 32 35 32 30 00 C7 0D D3 09 99 20 46 54 24 28 53 |2520...... FT$(S|
000009C0: 41 25 28 59 29 29 3B 00 EA 0D D8 09 8B 20 59 B2 |A%(Y));...... Y.|
000009D0: 57 53 20 A7 20 8B 20 58 B2 32 20 A7 20 99 22 2E |WS . . X.2 . .".|
000009E0: 2E 2E 22 3B 3A 89 32 35 33 30 00 03 0E DD 09 99 |..";:.2530......|
000009F0: 20 22 20 22 45 51 24 28 53 45 25 28 59 29 29 22 | " "EQ$(SE%(Y))"|
00000A00: 20 22 3B 00 26 0E E2 09 8B 20 59 B2 57 53 20 A7 | ";.&.... Y.WS .|
00000A10: 20 8B 20 58 B2 33 20 A7 20 99 22 2E 2E 2E 22 3B | . X.3 . ."...";|
00000A20: 3A 89 32 35 34 30 00 34 0E E7 09 99 20 53 42 24 |:.2540.4.... SB$|
00000A30: 28 59 29 3B 00 57 0E EC 09 8B 20 59 B2 57 53 20 |(Y);.W.... Y.WS |
00000A40: A7 20 8B 20 58 B2 34 20 A7 20 99 22 2E 2E 2E 22 |. . X.4 . ."..."|
00000A50: 3B 3A 89 32 35 35 30 00 6A 0E F1 09 99 20 4C 4F |;:.2550.j.... LO|
00000A60: 24 28 53 4C 25 28 59 29 29 3B 00 76 0E F6 09 82 |$(SL%(Y));.v....|
00000A70: 20 59 3A 99 3A 8E 00 81 0E 1C 0C 8F 20 43 41 4C | Y:.:....... CAL|
00000A80: 43 00 AB 0E 21 0C 99 22 93 20 20 20 20 20 20 20 |C...!..". |
00000A90: 20 20 20 12 43 41 4C 43 55 4C 41 54 45 44 20 43 | .CALCULATED C|
00000AA0: 4F 4C 55 4D 4E 53 20 49 4E 46 4F 00 DF 0E 26 0C |OLUMNS INFO...&.|
00000AB0: 99 22 11 48 4F 57 20 4D 41 4E 59 20 4F 50 45 52 |.".HOW MANY OPER|
00000AC0: 41 54 49 4F 4E 53 20 44 4F 20 59 4F 55 20 57 41 |ATIONS DO YOU WA|
00000AD0: 4E 54 20 54 4F 20 50 45 52 46 4F 52 4D 3F 22 00 |NT TO PERFORM?".|
00000AE0: 0A 0F 2B 0C 58 31 B2 30 3A 58 32 B2 4D 44 3A 58 |..+.X1.0:X2.MD:X|
00000AF0: B2 48 4F 3A 8D 20 34 38 30 30 3A 48 4F B2 58 3A |.HO:. 4800:HO.X:|
00000B00: 8B 20 48 4F B2 30 20 A7 20 8E 00 20 0F 30 0C 8D |. HO.0 . .. .0..|
00000B10: 20 33 32 30 30 3A 8F 20 49 4E 53 54 52 55 43 54 | 3200:. INSTRUCT|
00000B20: 00 30 0F 35 0C 81 20 57 4F B2 31 20 A4 20 48 4F |.0.5.. WO.1 . HO|
00000B30: 00 4B 0F 3A 0C 3A 99 22 11 4F 50 45 52 41 54 49 |.K.:.:.".OPERATI|
00000B40: 4F 4E 20 23 22 57 4F 22 9D 3A 22 00 7F 0F 3F 0C |ON #"WO".:"...?.|
00000B50: 3A 58 24 B2 4F 41 24 28 57 4F 29 AA 22 2C 22 AA |:X$.OA$(WO).",".|
00000B60: 4F 42 24 28 57 4F 29 AA 22 2C 22 AA 4F 4F 24 28 |OB$(WO).",".OO$(|
00000B70: 57 4F 29 AA 22 2C 22 AA 4F 43 24 28 57 4F 29 00 |WO).",".OC$(WO).|
00000B80: A0 0F 40 0C 3A 8B 58 24 B2 22 2C 2C 2C 22 A7 58 |..@.:.X$.",,,".X|
00000B90: 24 B2 22 20 20 20 2C 20 20 20 2C 20 20 20 2C 22 |$." , , ,"|
00000BA0: 00 B7 0F 41 0C 3A 8D 34 35 30 30 3A 58 31 24 B2 |...A.:.4500:X1$.|
00000BB0: 58 24 3A 43 58 B2 31 00 E0 0F 44 0C 3A 8D 33 31 |X$:CX.1...D.:.31|
00000BC0: 37 30 3A 4F 41 24 28 57 4F 29 B2 58 24 3A 20 8D |70:OA$(WO).X$: .|
00000BD0: 33 31 37 30 3A 4F 42 24 28 57 4F 29 B2 58 24 3A |3170:OB$(WO).X$:|
00000BE0: 00 09 10 45 0C 3A 8D 33 31 37 30 3A 4F 4F 24 28 |...E.:.3170:OO$(|
00000BF0: 57 4F 29 B2 58 24 3A 20 8D 33 31 37 30 3A 4F 43 |WO).X$: .3170:OC|
00000C00: 24 28 57 4F 29 B2 58 24 3A 00 29 10 4E 0C 3A 8B |$(WO).X$:.).N.:.|
00000C10: 4F 4F 24 28 57 4F 29 B2 22 22 A7 4F 4F 24 28 57 |OO$(WO)."".OO$(W|
00000C20: 4F 29 B2 22 2E 22 AA 22 22 00 44 10 53 0C 3A 82 |O)."."."".D.S.:.|
00000C30: 20 57 4F 3A 8D 33 3A 8B 20 47 24 B2 22 59 22 A7 | WO:.3:. G$."Y".|
00000C40: 33 31 30 30 00 4A 10 58 0C 8E 00 53 10 62 0C 58 |3100.J.X...S.b.X|
00000C50: B2 43 58 00 7E 10 67 0C 8B CA 28 58 31 24 2C 58 |.CX.~.g...(X1$,X|
00000C60: 2C 31 29 B3 B1 22 2C 22 AF 58 B3 B2 C3 28 58 31 |,1)..",".X...(X1|
00000C70: 24 29 A7 58 B2 58 AA 31 3A 89 33 31 37 35 00 A4 |$).X.X.1:.3175..|
00000C80: 10 6C 0C 3A 58 24 B2 CA 28 58 31 24 2C 43 58 2C |.l.:X$..(X1$,CX,|
00000C90: 58 AB 43 58 29 3A 43 58 B2 58 AA 31 3A 8D 34 35 |X.CX):CX.X.1:.45|
00000CA0: 38 30 3A 8E 00 BD 10 80 0C 8F 2A 2A 2A 2A 2A 2A |80:.......******|
00000CB0: 49 4E 53 54 52 55 43 54 20 43 41 4C 43 00 DD 10 |INSTRUCT CALC...|
00000CC0: 85 0C 99 22 12 41 92 20 20 20 20 20 12 42 92 20 |...".A. .B. |
00000CD0: 20 20 20 12 43 92 20 20 20 20 12 44 92 00 F9 10 | .C. .D....|
00000CE0: 8A 0C 99 22 46 34 3D 20 20 2C 46 35 20 20 2C 2B |..."F4= ,F5 ,+|
00000CF0: 20 20 20 2C 35 2E 30 37 22 00 15 11 8B 0C 99 22 | ,5.07"......"|
00000D00: 46 31 3D 20 20 2C 20 20 20 20 2C 53 49 4E 20 2C |F1= , ,SIN ,|
00000D10: 46 38 20 20 22 00 51 11 8F 0C 99 22 11 57 48 45 |F8 ".Q....".WHE|
00000D20: 52 45 20 12 41 92 20 49 53 20 54 48 45 20 4C 45 |RE .A. IS THE LE|
00000D30: 54 54 45 52 20 27 46 27 20 50 4C 55 53 20 41 4E |TTER 'F' PLUS AN|
00000D40: 59 20 46 49 45 4C 44 20 4E 55 4D 42 45 52 20 22 |Y FIELD NUMBER "|
00000D50: 3B 00 89 11 94 0C 99 22 41 4E 44 20 12 42 92 20 |;......"AND .B. |
00000D60: 41 4E 44 20 12 44 92 20 41 52 45 20 45 49 54 48 |AND .D. ARE EITH|
00000D70: 45 52 20 52 45 41 4C 20 4E 55 4D 42 45 52 53 20 |ER REAL NUMBERS |
00000D80: 4F 52 20 54 48 45 20 22 3B 00 B3 11 99 0C 99 22 |OR THE ";......"|
00000D90: 4C 45 54 54 45 52 20 27 46 27 20 50 4C 55 53 20 |LETTER 'F' PLUS |
00000DA0: 41 4E 59 20 46 49 45 4C 44 20 4E 55 4D 42 45 52 |ANY FIELD NUMBER|
00000DB0: 20 22 3B 00 DE 11 9E 0C 99 22 41 4E 44 20 57 48 | ";......"AND WH|
00000DC0: 45 52 45 20 12 43 92 20 49 53 20 41 20 4D 41 54 |ERE .C. IS A MAT|
00000DD0: 48 20 4F 50 45 52 41 54 49 4F 4E 3A 22 3B 00 02 |H OPERATION:";..|
00000DE0: 12 A0 0C 99 22 2E 2C 2B 2C 2D 2E 2A 2C 5E 2C 4C |....".,+,-.*,^,L|
00000DF0: 4F 47 2C 53 49 4E 2C 54 41 4E 2C 49 4E 54 2C 52 |OG,SIN,TAN,INT,R|
00000E00: 4E 44 00 32 12 A3 0C 99 22 11 46 49 45 4C 44 53 |ND.2....".FIELDS|
00000E10: 3A 22 3A 81 58 B2 31 A4 48 46 3A 99 22 12 22 58 |:":.X.1.HF:."."X|
00000E20: 22 92 22 46 54 24 28 58 29 22 20 22 3B 3A 82 58 |"."FT$(X)" ";:.X|
00000E30: 3A 99 00 38 12 E3 0C 8E 00 43 12 30 11 8F 20 59 |:..8.....C.0.. Y|
00000E40: 45 53 3F 00 67 12 35 11 58 24 B2 CA 28 22 59 4E |ES?.g.5.X$..("YN|
00000E50: 22 2C 31 AB 28 28 58 AF 58 33 29 B2 30 29 2C 31 |",1.((X.X3).0),1|
00000E60: 29 3A 8D 34 35 30 30 00 9F 12 37 11 8B 20 58 24 |):.4500...7.. X$|
00000E70: B3 B1 22 59 22 AF 58 24 B3 B1 22 4E 22 A7 99 22 |.."Y".X$.."N".."|
00000E80: 12 50 4C 45 41 53 45 20 41 4E 53 57 45 52 20 20 |.PLEASE ANSWER |
00000E90: 59 20 20 4F 52 20 20 4E 22 3A 89 34 34 30 30 00 |Y OR N":.4400.|
00000EA0: CD 12 3A 11 58 24 B2 C8 28 58 24 2C 31 29 3A 58 |..:.X$..(X$,1):X|
00000EB0: B2 28 20 58 AF 28 A8 20 58 33 29 20 B0 20 28 58 |.( X.(. X3) . (X|
00000EC0: 24 B2 22 59 22 29 AF 58 33 20 29 3A 8E 00 F2 12 |$."Y").X3 ):....|
00000ED0: 94 11 99 58 24 C8 28 4C 45 24 2C C3 28 58 24 29 |...X$.(LE$,.(X$)|
00000EE0: 29 3B 3A 43 58 B2 31 3A 8F 20 47 41 52 44 20 49 |);:CX.1:. GARD I|
00000EF0: 4E 50 00 25 13 99 11 4D 24 B2 CA 28 58 24 AA 22 |NP.%...M$..(X$."|
00000F00: 20 22 2C 43 58 2C 31 29 3A 99 22 12 22 4D 24 22 | ",CX,1):."."M$"|
00000F10: 92 9D 22 3B 3A A1 47 24 3A 8B 47 24 B2 22 22 A7 |..";:.G$:.G$."".|
00000F20: 8D 34 35 36 35 00 58 13 9E 11 3A 41 B2 C6 28 47 |.4565.X...:A..(G|
00000F30: 24 29 3A 99 4D 24 22 9D 22 3B 3A 8B 28 41 20 AF |$):.M$".";:.(A .|
00000F40: 20 31 32 37 29 B3 33 32 B0 43 58 B1 37 37 B0 41 | 127).32.CX.77.A|
00000F50: B2 33 34 A7 34 35 32 30 00 8D 13 A3 11 3A 20 99 |.34.4520.....: .|
00000F60: 47 24 3B 3A 58 24 B2 C8 28 58 24 2C 43 58 AB 31 |G$;:X$..(X$,CX.1|
00000F70: 29 AA 47 24 AA CA 28 58 24 2C 43 58 AA 31 29 3A |).G$..(X$,CX.1):|
00000F80: 43 58 B2 43 58 AA 31 3A 89 34 35 30 35 00 B7 13 |CX.CX.1:.4505...|
00000F90: A8 11 3A 8B 41 B2 31 35 37 A7 8B 43 58 B1 31 A7 |..:.A.157..CX.1.|
00000FA0: 43 58 B2 43 58 AB 31 3A 99 47 24 3B 3A 89 34 35 |CX.CX.1:.G$;:.45|
00000FB0: 30 35 3A 8F 20 4C 46 00 E2 13 AD 11 3A 8B 41 B2 |05:. LF.....:.A.|
00000FC0: 32 39 AF 43 58 B3 B2 C3 28 58 24 29 A7 43 58 B2 |29.CX...(X$).CX.|
00000FD0: 43 58 AA 31 3A 99 47 24 3B 3A 89 34 35 30 35 3A |CX.1:.G$;:.4505:|
00000FE0: 52 49 00 F8 13 B2 11 3A 8B 41 B2 31 33 A7 34 35 |RI.....:.A.13.45|
00000FF0: 38 30 3A 8F 20 52 45 54 00 2D 14 B7 11 3A 8B 41 |80:. RET.-...:.A|
00001000: B2 32 30 A7 8B 43 58 B1 31 A7 99 47 24 3B 3A 58 |.20..CX.1..G$;:X|
00001010: 24 B2 C8 28 58 24 2C 43 58 AB 32 29 AA CA 28 58 |$..(X$,CX.2)..(X|
00001020: 24 2C 43 58 29 3A 43 58 B2 43 58 AB 31 00 48 14 |$,CX):CX.CX.1.H.|
00001030: BC 11 3A 8B 41 B2 31 34 38 AF C3 28 58 24 29 B3 |..:.A.148..(X$).|
00001040: 37 38 A7 8D 34 35 35 35 00 6D 14 C1 11 3A 8B 41 |78..4555.m...:.A|
00001050: B2 31 34 37 A7 4C B2 C3 28 58 24 29 3A 8D 34 35 |.147.L..(X$):.45|
00001060: 36 30 3A 43 58 B2 31 3A 58 24 B2 22 22 00 78 14 |60:CX.1:X$."".x.|
00001070: C6 11 3A 89 34 35 30 35 00 A7 14 CB 11 58 24 B2 |..:.4505.....X$.|
00001080: C8 28 58 24 2C 43 58 AB 31 29 AA 22 20 22 AA CA |.(X$,CX.1)." "..|
00001090: 28 58 24 2C 43 58 29 3A 99 47 24 22 20 9D 22 3B |(X$,CX):.G$" .";|
000010A0: 3A 8E 3A 8F 20 49 4E 00 D0 14 D0 11 99 C8 28 4C |:.:. IN.......(L|
000010B0: 45 24 2C 43 58 AB 31 29 C8 28 53 50 24 2C 4C 29 |E$,CX.1).(SP$,L)|
000010C0: C8 28 4C 45 24 2C 4C 29 3B 3A 8E 3A 8F 20 43 4C |.(LE$,L);:.:. CL|
000010D0: 00 FE 14 D5 11 99 22 12 22 4D 24 22 9D 92 22 3B |......"."M$"..";|
000010E0: 3A 81 57 B2 31 A4 35 30 3A A1 47 24 3A 8B 47 24 |:.W.1.50:.G$:.G$|
000010F0: B3 B1 22 22 A7 99 4D 24 22 9D 22 3B 3A 8E 00 24 |..""..M$".";:..$|
00001100: 15 DA 11 3A 82 57 3A 99 4D 24 22 9D 22 3B 3A 81 |...:.W:.M$".";:.|
00001110: 57 B2 31 A4 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 |W.1.50:.G$:.G$..|
00001120: 22 22 A7 8E 00 32 15 DF 11 3A 82 57 3A 89 34 35 |""...2...:.W:.45|
00001130: 36 35 00 54 15 E4 11 8B C8 28 58 24 2C 31 29 B2 |65.T.....(X$,1).|
00001140: 22 20 22 A7 58 24 B2 CA 28 58 24 2C 32 29 3A 89 |" ".X$..(X$,2):.|
00001150: 34 35 38 30 00 7D 15 E9 11 3A 8B C9 28 58 24 2C |4580.}...:..(X$,|
00001160: 31 29 B2 22 20 22 A7 58 24 B2 C8 28 58 24 2C C3 |1)." ".X$..(X$,.|
00001170: 28 58 24 29 AB 31 29 3A 89 34 35 38 35 00 86 15 |(X$).1):.4585...|
00001180: EE 11 3A 99 3A 8E 00 97 15 C0 12 8F 20 41 53 4B |..:.:....... ASK|
00001190: 20 4E 55 4D 42 45 52 00 C8 15 CA 12 58 24 B2 CA | NUMBER.....X$..|
000011A0: 28 C4 28 58 29 2C 32 29 3A 8D 34 35 30 30 3A 58 |(.(X),2):.4500:X|
000011B0: B2 C5 28 58 24 29 3A 8B 58 B2 30 AF 58 24 B3 B1 |..(X$):.X.0.X$..|
000011C0: 22 30 22 A7 34 38 31 32 00 DB 15 CB 12 8B 58 B2 |"0".4812......X.|
000011D0: B1 58 31 AF 58 B2 B3 58 32 A7 8E 00 09 16 CC 12 |.X1.X..X2.......|
000011E0: 99 22 12 49 4C 4C 45 47 41 4C 20 45 4E 54 52 59 |.".ILLEGAL ENTRY|
000011F0: 20 2D 20 50 4C 45 41 53 45 20 45 4E 54 45 52 20 | - PLEASE ENTER |
00001200: 41 20 4E 55 4D 42 45 52 22 00 31 16 CF 12 99 22 |A NUMBER".1...."|
00001210: 12 49 4E 20 54 48 45 20 52 41 4E 47 45 20 4F 46 |.IN THE RANGE OF|
00001220: 22 58 31 22 9D 20 54 4F 22 58 32 3A 89 34 38 30 |"X1". TO"X2:.480|
00001230: 30 00 41 16 B4 14 8F 20 4F 50 45 4E 20 46 4F 52 |0.A.... OPEN FOR|
00001240: 4D 00 6C 16 B9 14 99 22 4E 41 4D 45 20 4F 46 20 |M.l...."NAME OF |
00001250: 46 4F 52 4D 41 54 3A 22 3A 58 24 B2 4E 32 24 3A |FORMAT:":X$.N2$:|
00001260: 8D 34 35 30 30 3A 4E 32 24 B2 58 24 00 9E 16 BE |.4500:N2$.X$....|
00001270: 14 45 B2 31 3A 4C B2 C3 28 4E 32 24 29 3A 8B 20 |.E.1:L..(N2$):. |
00001280: 4C B1 31 32 20 A7 20 99 22 46 49 4C 45 20 4E 41 |L.12 . ."FILE NA|
00001290: 4D 45 20 54 4F 4F 20 4C 4F 4E 47 22 3A 8E 00 CD |ME TOO LONG":...|
000012A0: 16 C3 14 81 20 58 B2 31 20 A4 20 4C 3A 8B 20 CA |.... X.1 . L:. .|
000012B0: 28 4E 32 24 2C 31 29 B2 22 2A 22 A7 20 99 22 27 |(N2$,1)."*". ."'|
000012C0: 2A 27 20 49 4C 4C 45 47 41 4C 22 3A 8E 00 E0 16 |*' ILLEGAL":....|
000012D0: C4 14 3A 82 20 58 3A 8B 20 4C B2 30 20 A7 20 8E |..:. X:. L.0 . .|
000012E0: 00 FA 16 C8 14 8B 20 44 54 B2 31 20 A7 20 51 56 |...... DT.1 . QV|
000012F0: B2 52 56 3A 89 20 35 33 33 30 00 2C 17 CA 14 3A |.RV:. 5330.,...:|
00001300: 45 B2 30 3A 99 22 44 52 49 56 45 28 12 31 92 2F |E.0:."DRIVE(.1./|
00001310: 12 30 92 29 3F 22 3A 47 31 24 B2 22 30 31 22 3A |.0.)?":G1$."01":|
00001320: 8D 20 35 3A 51 56 B2 C5 28 47 24 29 00 50 17 CD |. 5:QV..(G$).P..|
00001330: 14 3A 8B 20 51 56 B3 B1 52 56 20 A7 20 98 4B 4B |.:. QV..RV . .KK|
00001340: 28 51 56 29 2C 22 49 22 AA 44 52 24 28 51 56 29 |(QV),"I".DR$(QV)|
00001350: 00 84 17 D2 14 8B 20 58 31 24 B2 22 57 22 A7 20 |...... X1$."W". |
00001360: 98 4B 4B 28 51 56 29 2C 22 53 22 AA 44 52 24 28 |.KK(QV),"S".DR$(|
00001370: 51 56 29 AA 22 3A 43 41 22 AA C7 28 31 36 32 29 |QV).":CA"..(162)|
00001380: AA 4E 32 24 00 B4 17 DC 14 9F 20 53 45 2C 44 56 |.N2$...... SE,DV|
00001390: 28 51 56 29 2C 53 45 2C 44 52 24 28 51 56 29 AA |(QV),SE,DR$(QV).|
000013A0: 22 3A 43 41 A2 22 AA 4E 32 24 AA 22 2C 53 2C 22 |":CA.".N2$.",S,"|
000013B0: AA 58 31 24 00 CD 17 DE 14 56 4F B2 51 56 3A 8D |.X1$.....VO.QV:.|
000013C0: 20 38 3A 8B 20 45 20 A7 20 A0 20 53 45 00 D3 17 | 8:. E . . SE...|
000013D0: E1 14 8E 00 E4 17 D4 17 8F 20 4D 41 4B 45 20 43 |......... MAKE C|
000013E0: 41 4C 43 53 00 01 18 D5 17 58 24 B2 22 4D 41 4B |ALCS.....X$."MAK|
000013F0: 45 20 43 41 4C 43 53 22 3A 8D 20 39 32 30 30 3A |E CALCS":. 9200:|
00001400: 8E 00 18 18 64 19 8F 20 54 4F 54 53 20 41 56 52 |....d.. TOTS AVR|
00001410: 53 20 43 48 41 4E 47 45 00 42 18 69 19 99 22 93 |S CHANGE.B.i..".|
00001420: 20 20 20 20 20 20 20 20 20 20 20 12 43 48 41 4E | .CHAN|
00001430: 47 45 20 54 4F 54 41 4C 53 20 41 56 45 52 41 47 |GE TOTALS AVERAG|
00001440: 45 53 00 6C 18 6E 19 81 20 57 46 B2 31 20 A4 20 |ES.l.n.. WF.1 . |
00001450: 48 46 3A 99 22 11 46 49 45 4C 44 20 23 22 57 46 |HF:.".FIELD #"WF|
00001460: 22 3A 20 12 22 46 54 24 28 57 46 29 00 A2 18 73 |": ."FT$(WF)...s|
00001470: 19 3A 99 22 54 4F 54 41 4C 20 41 54 20 45 4E 44 |.:."TOTAL AT END|
00001480: 3F 22 3A 58 B2 46 4C 25 28 57 46 29 3A 58 33 B2 |?":X.FL%(WF):X3.|
00001490: 32 3A 8D 20 34 34 30 30 3A 46 4C 25 28 57 46 29 |2:. 4400:FL%(WF)|
000014A0: B2 58 00 DA 18 78 19 3A 99 22 41 56 45 52 41 47 |.X...x.:."AVERAG|
000014B0: 45 20 41 54 20 45 4E 44 3F 22 3A 58 B2 46 4C 25 |E AT END?":X.FL%|
000014C0: 28 57 46 29 3A 58 33 B2 34 3A 8D 20 34 34 30 30 |(WF):X3.4:. 4400|
000014D0: 3A 46 4C 25 28 57 46 29 B2 58 00 E3 18 7D 19 82 |:FL%(WF).X...}..|
000014E0: 20 57 46 00 E9 18 82 19 8E 00 02 19 A4 1F 8F 2A | WF............*|
000014F0: 2A 2A 2A 2A 2A 43 48 41 4E 47 45 20 46 4F 52 4D |*****CHANGE FORM|
00001500: 41 54 00 24 19 A9 1F 99 22 93 20 20 20 20 20 20 |AT.$....". |
00001510: 20 20 20 20 20 12 43 48 41 4E 47 45 20 46 4F 52 | .CHANGE FOR|
00001520: 4D 41 54 22 00 34 19 AB 1F 99 22 11 11 43 48 41 |MAT".4...."..CHA|
00001530: 4E 47 45 3A 00 53 19 B3 1F 99 22 11 20 20 20 12 |NGE:.S....". .|
00001540: 53 92 45 4C 45 43 54 49 4F 4E 20 43 52 49 54 45 |S.ELECTION CRITE|
00001550: 52 49 41 00 6C 19 B8 1F 99 22 11 20 20 20 12 43 |RIA.l....". .C|
00001560: 92 41 4C 43 55 4C 41 54 49 4F 4E 53 00 8C 19 BD |.ALCULATIONS....|
00001570: 1F 99 22 11 20 20 20 12 54 92 4F 54 41 4C 53 20 |..". .T.OTALS |
00001580: 41 4E 44 20 41 56 45 52 41 47 45 53 00 B1 19 C7 |AND AVERAGES....|
00001590: 1F 99 22 11 12 5E 92 20 52 45 54 55 52 4E 20 54 |.."..^. RETURN T|
000015A0: 4F 20 46 49 4C 45 20 43 41 4C 43 53 20 4D 45 4E |O FILE CALCS MEN|
000015B0: 55 00 D1 19 CC 1F 47 31 24 B2 22 53 43 54 5E 22 |U.....G1$."SCT^"|
000015C0: 3A 8D 20 35 3A 8B 20 47 24 B2 22 52 22 20 A7 20 |:. 5:. G$."R" . |
000015D0: 8E 00 E0 19 D1 1F 8B 47 24 B2 22 5E 22 A7 20 8E |.......G$."^". .|
000015E0: 00 F9 19 D6 1F 91 20 56 20 8D 20 32 31 30 30 2C |...... V . 2100,|
000015F0: 33 31 30 30 2C 36 35 30 30 00 04 1A 07 20 89 20 |3100,6500.... . |
00001600: 38 31 30 30 00 0F 1A 8C 23 8F 20 45 58 49 54 00 |8100....#. EXIT.|
00001610: 47 1A 8D 23 4C 4F 24 28 33 29 B2 22 29 20 54 48 |G..#LO$(3).") TH|
00001620: 45 4E 20 50 52 49 4E 54 2E 22 3A 58 24 B2 22 46 |EN PRINT.":X$."F|
00001630: 49 4C 45 20 4D 45 4E 55 22 3A 8D 20 39 32 30 30 |ILE MENU":. 9200|
00001640: 3A 89 20 39 31 30 31 00 57 1A F0 23 8F 20 4C 4F |:. 9101.W..#. LO|
00001650: 41 44 20 50 52 4F 47 00 8E 1A F1 23 A0 20 52 41 |AD PROG....#. RA|
00001660: 3A 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 |:. DT.1 . RV.1 .|
00001670: 20 99 22 11 12 49 4E 53 45 52 54 20 50 52 4F 47 | ."..INSERT PROG|
00001680: 52 41 4D 20 44 49 53 4B 22 3A 8D 20 31 30 00 B1 |RAM DISK":. 10..|
00001690: 1A F5 23 98 4B 4B 28 30 29 2C 22 49 30 22 3A 99 |..#.KK(0),"I0":.|
000016A0: 22 11 28 4C 4F 41 44 49 4E 47 20 22 58 24 22 29 |".(LOADING "X$")|
000016B0: 22 00 E4 1A FA 23 9F 20 53 45 2C 38 2C 53 45 2C |"....#. SE,8,SE,|
000016C0: 22 30 3A 22 AA 58 24 AA 22 2C 50 2C 52 22 3A 56 |"0:".X$.",P,R":V|
000016D0: 4F B2 30 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 45 |O.0:. 8:. SE:. E|
000016E0: 20 A7 20 8E 00 FB 1A FF 23 8B 20 4C 49 B3 32 35 | . .....#. LI.25|
000016F0: 33 20 A7 20 97 20 49 56 2C 4C 49 00 0D 1B 04 24 |3 . . IV,LI....$|
00001700: 93 20 22 30 3A 22 AA 58 24 2C 38 3A 90 00 1B 1B |. "0:".X$,8:....|
00001710: 54 24 8F 20 4F 50 45 4E 20 52 41 00 4A 1B 59 24 |T$. OPEN RA.J.Y$|
00001720: 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 20 |. DT.1 . RV.1 . |
00001730: 99 22 11 12 49 4E 53 45 52 54 20 44 41 54 41 20 |."..INSERT DATA |
00001740: 44 49 53 4B 22 3A 8D 20 31 30 00 61 1B 5B 24 98 |DISK":. 10.a.[$.|
00001750: 4B 4B 28 52 56 29 2C 22 49 22 44 52 24 28 52 56 |KK(RV),"I"DR$(RV|
00001760: 29 00 97 1B 5E 24 9F 20 53 45 2C 44 56 28 52 56 |)...^$. SE,DV(RV|
00001770: 29 2C 53 45 2C 44 52 24 28 52 56 29 AA 22 3A 44 |),SE,DR$(RV).":D|
00001780: 42 22 AA C7 28 33 34 AA 31 32 38 29 AA 4E 41 24 |B"..(34.128).NA$|
00001790: AA 22 2C 53 2C 52 22 00 B2 1B 60 24 56 4F B2 52 |.",S,R"...`$VO.R|
000017A0: 56 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 45 20 A7 |V:. 8:. SE:. E .|
000017B0: 20 8E 00 D0 1B 63 24 9F 20 52 41 2C 44 56 28 52 | ....c$. RA,DV(R|
000017C0: 56 29 2C 52 41 2C 22 23 22 3A 42 4C B2 30 3A 8E |V),RA,"#":BL.0:.|
000017D0: 00 00 00 11 43 4E CF 46 1A 30 |....CN.F.0 |
....... 5/10/80 9:20. .... 1100.Y.... 1
5,8,15,"I0":.15,"S0:CALC FILE":."0:CALC
FILE",8:......."CORRECTIONS?(.Y./.N.)":G
1$."YN":. 5:.......4,4:.4:.".";:..C....G
$:.V.1.C(G1$):.G$..J(G1$,V,1)..V:.5.I...
.......KK(VO),E,E$,S,T:.E.2........"DISK
ERROR:"E;E$;S;T......".R.EADY?":G1$."R"
:.5:..(.... MAIN.5.... SET UP.@.... LOAD
.K.... SAVE._.... SELECT CHANGE.O....
(CONT)...... DISPLAY SEL STATEMENT.....
. CALC CHANGE... .. INSTRUCT CALC...,..
YES?.S.-.. TOTS AVRS CHANGE...0.. ASK NU
MBER...5.. OPEN FORM...=.. MAKE CALCS...
Q.. CHANGE FORMAT.$.[.. EXIT./.L.. MAIN.
H.M.. LI.253 . . IV,LI.3.G.N.LO$(3).") T
HEN CALCULATE.".}.Q.. 9300:. E . 1105...
S.. 1200:. SET UP...U..". .F
ILE CALCULATIONS.N.V.."..L.OAD FORMAT"..
.X.."..C.HANGE, CREATE, INSPECT FORMAT..
.Z.."..S.AVE FORMAT".(.\.."..M.AKE CALCU
LATIONS".G.^.."..^. RETURN TO FILE MENU.
Y.`.G1$."LCSM^":.5:. V . 1500,8100,1700,
6100,9100...... X.1.10:.G$:.X:.1109.....
. SETUP...... N2$."". N2$.NA$.S....WC.1.
HC:CT(WC,0).0:.WC:....... LOAD.....X1$."
R":. 5300:. E . ....... SE, HS,HO.....:.
X.1 . HS.D.... SE,SA%(X),SE%(X), SB$(X)
, SL%(X):. X.T...:. X.1 . HO...... SE,OA
$(X), OB$(X), OO$(X), OC$(X):. X. ...:.
X.1 . RW:. SE,FL%(X):. X...?. SE:......
. SAVE.Q...X1$."W":. 5300:. E . .......
SE, HS;R$ HO;R$;.....:. X.1 . HS...A.. S
E,SA%(X);R$;SE%(X);R$;SB$(X);R$;SL%(X);R
$;:. X.>.D.:. X.1 . HO.Q.E.. SE, OA$(X)R
$ OB$(X)R$ OO$(X)R$ OC$(X)R$;:. X...L.:.
X.1.RW:. SE,FL%(X);R$;:.X..... SE:....4
.. SELECT.V.9.T$. ". .SELE
CT CHANGE.".R$...>..".DO YOU WISH TO SEL
ECT CERTAIN RECORDS?".).C.X.HS:X3..1:. 4
400:. X.0. HS.0:..T.H.. WS.1 . MD:. 2200
:. SL%(WS)..3 . . WS...... WS.MD . .".SE
LECTION TOO COMPLEX!!":. 2100...... SL%(
WS)..3 . WS.WS.1:X.5:. 2110.Q...HS.WS:X.
0:. 2500:.3:. G$."Y".2100.W.......... (C
ONT)......T$"FIELDS:":. WF.1 . HF:. WF;F
T$(WF):. WF.C...:X.1:. 2500:."..ENTER FI
ELD NO:":. DISP SEL.N...:X.SA%(WS):X1.1:
X2.HF:. 4800:SA%(WS).X......T$"EQUALITY
TYPES:":. X.1 . 9.(XF..0):. X;EQ$(X):. X
.U.E.:X.2:. 2500:."..ENTER EQUALITY TYPE
NO:"...J.:X.SE%(WS):X1.1:X2.9.(XF..0):.
4800:SE%(WS).X.5.O..T$"ARGUMENT CAN BE
ANY ALPHA-NUM STRING".Z.T.:X.3:. 2500:."
..ENTER ARGUMENT:".{.Y.:X$.SB$(WS):.4500
:SB$(WS).X$......T$"LOGICAL CONECTIONS:"
:. X.1 . 3:. X;LO$(X):. X.....:X.4:. 250
0:."..ENTER CONNECTION NO:".....:.WS.RW.
SL%(WS).3:.2215. ...:X.SL%(WS):X1.1:X2.3
:.4800:SL%(WS).X.&.....G.D..******DISPLA
Y SEL STATEMENT.I.F.."..YOUR SELECTION S
TATEMENT:...I.."IF (";:. HS.WS . HS.WS..
.N.. Y.1 . HS:. Y.WS . . X.1 . ."...";:.
2520.G.S.. FT$(SA%(Y));...X.. Y.WS . . X
.2 . ."...";:.2530...... " "EQ$(SE%(Y))"
";.&.... Y.WS . . X.3 . ."...";:.2540.4
.... SB$(Y);.W.... Y.WS . . X.4 . ."..."
;:.2550.J.... LO$(SL%(Y));.V.... Y:.:...
.... CALC...!..". .CALCULATED C
OLUMNS INFO...&..".HOW MANY OPERATIONS D
O YOU WANT TO PERFORM?"...+.X1.0:X2.MD:X
.HO:. 4800:HO.X:. HO.0 . .. .0.. 3200:.
INSTRUCT.0.5.. WO.1 . HO.K.:.:.".OPERATI
ON #"WO".:"..?.:X$.OA$(WO).",".OB$(WO).
",".OO$(WO).",".OC$(WO). .@.:.X$.",,,".X
$." , , ,"...A.:.4500:X1$.X$:CX.1.
..D.:.3170:OA$(WO).X$: .3170:OB$(WO).X$:
...E.:.3170:OO$(WO).X$: .3170:OC$(WO).X$
:.).N.:.OO$(WO)."".OO$(WO)."."."".D.S.:.
WO:.3:. G$."Y".3100.J.X...S.B.X.CX.~.G.
.J(X1$,X,1)..",".X..C(X1$).X.X.1:.3175..
.L.:X$.J(X1$,CX,X.CX):CX.X.1:.4580:.....
..******INSTRUCT CALC......".A. .B.
.C. .D......."F4= ,F5 ,+ ,5.07
"......"F1= , ,SIN ,F8 ".Q....".WHE
RE .A. IS THE LETTER 'F' PLUS ANY FIELD
NUMBER ";......"AND .B. AND .D. ARE EITH
ER REAL NUMBERS OR THE ";......"LETTER '
F' PLUS ANY FIELD NUMBER ";......"AND WH
ERE .C. IS A MATH OPERATION:";... ..".,+
,-.*,^,LOG,SIN,TAN,INT,RND.2....".FIELDS
:":.X.1.HF:."."X"."FT$(X)" ";:.X:..8....
.C.0.. YES?.G.5.X$.J("YN",1.((X.X3).0),1
):.4500...7.. X$.."Y".X$.."N"..".PLEASE
ANSWER Y OR N":.4400.M.:.X$.H(X$,1):X
.( X.(. X3) . (X$."Y").X3 ):.......X$H(L
E$,C(X$));:CX.1:. GARD INP.%...M$.J(X$."
",CX,1):."."M$"..";:.G$:.G$.""..4565.X.
..: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.....:.A.29.CX..C
(X$).CX.CX.1:.G$;:.4505:RI.....:.A.13.45
80:. RET.-...:.A.20..CX.1..G$;:X$.H(X$,C
X.2).J(X$,CX):CX.CX.1.H...:.A.148.C(X$).
78..4555.M.A.:.A.147.L.C(X$):.4560:CX.1:
X$."".X.F.:.4505...K.X$.H(X$,CX.1)." ".J
(X$,CX):.G$" .";:.:. IN.P.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$..""...2...:.W:.45
65.T....H(X$,1)." ".X$.J(X$,2):.4580.}..
.:.I(X$,1)." ".X$.H(X$,C(X$).1):.4585...
..:.:....... ASK NUMBER.H.J.X$.J(D(X),2)
:.4500:X.E(X$):.X.0.X$.."0".4812...K..X.
.X1.X..X2.....L..".ILLEGAL ENTRY - PLEAS
E ENTER A NUMBER".1.O..".IN THE RANGE OF
"X1". TO"X2:.4800.A.... OPEN FORM.L...."
NAME OF FORMAT:":X$.N2$:.4500:N2$.X$....
.E.1:L.C(N2$):. L.12 . ."FILE NAME TOO L
ONG":..M.C.. X.1 . L:. J(N2$,1)."*". ."'
*' ILLEGAL":....D.:. X:. L.0 . ....H.. D
T.1 . QV.RV:. 5330.,.J.:E.0:."DRIVE(.1./
.0.)?":G1$."01":. 5:QV.E(G$).P.M.:. QV..
RV . .KK(QV),"I".DR$(QV)...R.. X1$."W".
.KK(QV),"S".DR$(QV).":CA".G(162).N2$....
.. SE,DV(QV),SE,DR$(QV).":CA.".N2$.",S,"
.X1$.M...VO.QV:. 8:. E . SE.S.......T.
. MAKE CALCS...U.X$."MAKE CALCS":. 9200:
....D.. TOTS AVRS CHANGE.B.I..".
.CHANGE TOTALS AVERAGES.L.N.. WF.1 .
HF:.".FIELD #"WF": ."FT$(WF)...S.:."TOTA
L AT END?":X.FL%(WF):X3.2:. 4400:FL%(WF)
.X.Z.X.:."AVERAGE AT END?":X.FL%(WF):X3.
4:. 4400:FL%(WF).X...}.. WF............*
*****CHANGE FORMAT.$....". .CH
ANGE FORMAT".4...."..CHANGE:.S....". .
S.ELECTION CRITERIA.L....". .C.ALCULAT
IONS......". .T.OTALS AND AVERAGES...G
.."..^. RETURN TO FILE CALCS MENU.Q.L.G1
$."SCT^":. 5:. G$."R" . ....Q..G$."^". .
...V.. V . 2100,3100,6500.... . 8100....
#. EXIT.G..#LO$(3).") THEN PRINT.":X$."F
ILE MENU":. 9200:. 9101.W..#. LOAD PROG.
...# RA:. DT.1 . RV.1 . ."..INSERT PROG
RAM DISK":. 10....#.KK(0),"I0":.".(LOADI
NG "X$")"....#. SE,8,SE,"0:".X$.",P,R":V
O.0:. 8: SE:. E . .....#. LI.253 . . IV
,LI....$. "0:".X$,8:....T$. OPEN RA.J.Y$
. DT.1 . RV.1 . ."..INSERT DATA DISK":.
10.A.[$.KK(RV),"I"DR$(RV)...^$. SE,DV(RV
),SE,DR$(RV).":DB".G(34.128).NA$.",S,R".
..`$VO.RV:. 8: SE:. E . ..P.C$. RA,DV(R
V),RA,"#":BL.0:.....CNOF.0
> CLICK IMAGE PREVIEW FOR FULL MODAL