MAKE CALCS
FILE INFORMATION
FILENAME(S): MAKE CALCS
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 20:14:48
APPEARS ON: 2 disk(s)
FILE HASH
d7709bdb2268371c0a7db2cbda672f3730cb54b36f6ea252662d32bf52d44614
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PER CEDERHOLM | MAKE CALCS | PRG | Curtcool, LPN | 8 | 0 | DOWNLOAD FILE |
| PRACTIFILE | MAKE CALCS | PRG | Curtcool, LPN | 8 | 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 56 04 02 00 A0 31 35 3A 9F 20 31 35 2C 38 2C |.V....15:. 15,8,|
00000030: 31 35 2C 22 53 30 3A 4D 41 4B 45 20 43 41 4C 43 |15,"S0:MAKE CALC|
00000040: 53 22 3A 94 22 30 3A 4D 41 4B 45 20 43 41 4C 43 |S":."0:MAKE CALC|
00000050: 53 22 2C 38 3A 80 00 7E 04 03 00 99 22 43 4F 52 |S",8:..~...."COR|
00000060: 45 43 54 49 4F 4E 53 28 12 59 92 2F 12 4E 92 29 |ECTIONS(.Y./.N.)|
00000070: 3F 22 3A 47 31 24 B2 22 59 4E 22 3A 89 35 00 92 |?":G1$."YN":.5..|
00000080: 04 04 00 9F 34 2C 34 3A 9D 34 3A 99 22 93 22 3B |....4,4:.4:.".";|
00000090: 3A 9B 00 BC 04 05 00 A1 47 24 3A 81 56 B2 31 A4 |:.......G$:.V.1.|
000000A0: C3 28 47 31 24 29 3A 8B 47 24 B3 B1 CA 28 47 31 |.(G1$):.G$...(G1|
000000B0: 24 2C 56 2C 31 29 A7 82 56 3A 89 35 00 C2 04 06 |$,V,1)..V:.5....|
000000C0: 00 8E 00 DE 04 08 00 84 4B 4B 28 56 4F 29 2C 45 |........KK(VO),E|
000000D0: 2C 45 24 2C 53 2C 54 3A 8B 45 B3 32 A7 8E 00 F9 |,E$,S,T:.E.2....|
000000E0: 04 09 00 99 22 44 49 53 4B 20 45 52 52 4F 52 3A |...."DISK ERROR:|
000000F0: 22 45 3B 45 24 3B 53 3B 54 00 16 05 0A 00 99 22 |"E;E$;S;T......"|
00000100: 12 52 92 45 41 44 59 3F 22 3A 47 31 24 B2 22 52 |.R.EADY?":G1$."R|
00000110: 22 3A 8D 35 3A 8E 00 21 05 0B 00 8F 20 4D 41 49 |":.5:..!.... MAI|
00000120: 4E 00 37 05 1B 00 8F 20 53 45 4C 20 54 45 53 54 |N.7.... SEL TEST|
00000130: 20 45 41 20 52 45 43 00 53 05 1C 00 8F 20 53 45 | EA REC.S.... SE|
00000140: 4C 20 54 45 53 54 20 45 41 20 43 4F 4E 44 49 54 |L TEST EA CONDIT|
00000150: 49 4F 4E 00 61 05 21 00 8F 20 43 41 4C 43 20 44 |ION.a.!.. CALC D|
00000160: 4F 00 77 05 22 00 8F 20 4D 41 54 48 20 4F 50 45 |O.w.".. MATH OPE|
00000170: 52 41 54 49 4F 4E 53 00 85 05 25 00 8F 20 41 53 |RATIONS...%.. AS|
00000180: 4B 20 52 45 43 00 97 05 29 00 8F 20 57 52 49 54 |K REC...).. WRIT|
00000190: 45 20 41 20 52 45 43 00 AB 05 2A 00 8F 20 52 45 |E A REC...*.. RE|
000001A0: 41 44 20 41 20 52 45 43 4F 52 44 00 C2 05 2B 00 |AD A RECORD...+.|
000001B0: 8F 20 50 4F 53 49 54 49 4F 4E 20 50 4F 49 4E 54 |. POSITION POINT|
000001C0: 45 52 00 D7 05 2F 00 8F 20 52 55 4E 4E 49 4E 47 |ER.../.. RUNNING|
000001D0: 20 54 4F 54 41 4C 53 00 EC 05 3D 00 8F 20 4D 41 | TOTALS...=.. MA|
000001E0: 49 4E 20 43 41 4C 43 55 4C 41 54 45 00 02 06 49 |IN CALCULATE...I|
000001F0: 00 8F 20 50 52 49 4E 54 20 54 4F 54 53 20 41 56 |.. PRINT TOTS AV|
00000200: 52 53 00 16 06 52 00 8F 20 52 45 41 44 20 41 20 |RS...R.. READ A |
00000210: 52 45 43 4F 52 44 00 21 06 5B 00 8F 20 45 58 49 |RECORD.!.[.. EXI|
00000220: 54 00 2C 06 4C 04 8F 20 4D 41 49 4E 00 45 06 4D |T.,.L.. MAIN.E.M|
00000230: 04 8B 20 4C 49 B3 32 35 33 20 A7 20 97 20 49 56 |.. LI.253 . . IV|
00000240: 2C 4C 49 AA 33 00 72 06 4E 04 8D 20 39 33 30 30 |,LI.3.r.N.. 9300|
00000250: 3A 99 22 93 20 20 20 20 20 20 20 20 20 20 12 4D |:.". .M|
00000260: 41 4B 49 4E 47 20 43 41 4C 43 55 4C 41 54 49 4F |AKING CALCULATIO|
00000270: 4E 53 00 89 06 51 04 8D 36 31 30 30 3A 8F 20 4D |NS...Q..6100:. M|
00000280: 41 4B 45 20 43 41 4C 43 53 00 AA 06 56 04 58 24 |AKE CALCS...V.X$|
00000290: B2 22 43 41 4C 43 20 46 49 4C 45 22 3A 8D 20 39 |."CALC FILE":. 9|
000002A0: 32 30 30 3A 89 20 31 31 31 30 00 C0 06 8C 0A 8F |200:. 1110......|
000002B0: 20 53 45 4C 20 54 45 53 54 20 45 41 20 52 45 43 | SEL TEST EA REC|
000002C0: 00 E4 06 91 0A 54 52 B2 31 3A 81 20 57 53 B2 31 |.....TR.1:. WS.1|
000002D0: A4 48 53 3A 20 20 20 20 8F 20 53 54 41 52 54 20 |.HS: . START |
000002E0: 54 52 55 45 00 28 07 96 0A 8B 20 54 52 20 A7 20 |TRUE.(.... TR . |
000002F0: 91 20 53 45 25 28 57 53 29 20 8D 20 32 38 31 30 |. SE%(WS) . 2810|
00000300: 2C 32 38 31 35 2C 32 38 32 30 2C 32 38 32 35 2C |,2815,2820,2825,|
00000310: 32 38 33 30 2C 32 38 33 35 2C 32 38 34 30 2C 32 |2830,2835,2840,2|
00000320: 38 37 30 2C 32 38 39 30 00 55 07 A0 0A 8B 20 53 |870,2890.U.... S|
00000330: 4C 25 28 57 53 29 B3 B1 32 20 A7 20 82 20 57 53 |L%(WS)..2 . . WS|
00000340: 3A 8E 3A 8B 20 27 AF 27 20 A7 20 54 45 53 54 20 |:.:. '.' . TEST |
00000350: 41 47 41 49 4E 00 68 07 A5 0A 8F 20 4D 55 53 54 |AGAIN.h.... MUST|
00000360: 20 42 45 20 27 4F 52 27 00 75 07 AA 0A 8B 20 54 | BE 'OR'.u.... T|
00000370: 52 20 A7 20 8E 00 9C 07 AF 0A 54 52 B2 31 3A 82 |R . ......TR.1:.|
00000380: 20 57 53 3A 99 22 53 45 4C 45 43 54 20 53 59 4E | WS:."SELECT SYN|
00000390: 54 41 58 20 45 52 52 4F 52 22 3A 8E 00 B8 07 F0 |TAX ERROR":.....|
000003A0: 0A 8F 20 53 45 4C 20 54 45 53 54 20 45 41 20 43 |.. SEL TEST EA C|
000003B0: 4F 4E 44 49 54 49 4F 4E 00 D7 07 FA 0A 54 52 B2 |ONDITION.....TR.|
000003C0: 28 46 24 28 53 41 25 28 57 53 29 29 B2 53 42 24 |(F$(SA%(WS)).SB$|
000003D0: 28 57 53 29 29 3A 8E 00 FC 07 FF 0A 54 52 B2 28 |(WS)):......TR.(|
000003E0: C5 28 46 24 28 53 41 25 28 57 53 29 29 29 B3 C5 |.(F$(SA%(WS)))..|
000003F0: 28 53 42 24 28 57 53 29 29 29 3A 8E 00 21 08 04 |(SB$(WS))):..!..|
00000400: 0B 54 52 B2 28 C5 28 46 24 28 53 41 25 28 57 53 |.TR.(.(F$(SA%(WS|
00000410: 29 29 29 B1 C5 28 53 42 24 28 57 53 29 29 29 3A |)))..(SB$(WS))):|
00000420: 8E 00 40 08 09 0B 54 52 B2 28 46 24 28 53 41 25 |..@...TR.(F$(SA%|
00000430: 28 57 53 29 29 B3 53 42 24 28 57 53 29 29 3A 8E |(WS)).SB$(WS)):.|
00000440: 00 5F 08 0E 0B 54 52 B2 28 46 24 28 53 41 25 28 |._...TR.(F$(SA%(|
00000450: 57 53 29 29 B1 53 42 24 28 57 53 29 29 3A 8E 00 |WS)).SB$(WS)):..|
00000460: 7F 08 13 0B 54 52 B2 28 46 24 28 53 41 25 28 57 |....TR.(F$(SA%(W|
00000470: 53 29 29 B3 B1 53 42 24 28 57 53 29 29 3A 8E 00 |S))..SB$(WS)):..|
00000480: 9F 08 18 0B 41 31 24 B2 46 24 28 53 41 25 28 57 |....A1$.F$(SA%(W|
00000490: 53 29 29 3A 41 32 24 B2 53 42 24 28 57 53 29 00 |S)):A2$.SB$(WS).|
000004A0: CC 08 1D 0B 8B 20 C9 28 41 32 24 2C 31 29 B2 22 |..... .(A2$,1)."|
000004B0: 2A 22 20 A7 20 41 31 24 B2 C8 28 41 31 24 2C C3 |*" . A1$..(A1$,.|
000004C0: 28 41 32 24 29 AB 31 29 AA 22 2A 22 00 E9 08 22 |(A2$).1)."*"..."|
000004D0: 0B 8B 20 C3 28 41 31 24 29 B3 B1 C3 28 41 32 24 |.. .(A1$)...(A2$|
000004E0: 29 A7 20 54 52 B2 30 3A 8E 00 FC 08 27 0B 81 20 |). TR.0:....'.. |
000004F0: 58 B2 31 20 A4 20 C3 28 41 32 24 29 00 33 09 2C |X.1 . .(A2$).3.,|
00000500: 0B 8B 20 CA 28 41 32 24 2C 58 2C 31 29 B3 B1 22 |.. .(A2$,X,1).."|
00000510: 3F 22 20 AF 20 CA 28 41 32 24 2C 58 2C 31 29 B3 |?" . .(A2$,X,1).|
00000520: B1 CA 28 41 31 24 2C 58 2C 31 29 A7 20 54 52 B2 |..(A1$,X,1). TR.|
00000530: 30 3A 8E 00 3C 09 31 0B 82 58 3A 8E 00 70 09 36 |0:..<.1..X:..p.6|
00000540: 0B 58 24 B2 46 24 28 53 41 25 28 57 53 29 29 3A |.X$.F$(SA%(WS)):|
00000550: 59 24 B2 53 42 24 28 57 53 29 3A 81 58 B2 31 A4 |Y$.SB$(WS):.X.1.|
00000560: C3 28 58 24 29 3A 81 59 B2 31 A4 C3 28 59 24 29 |.(X$):.Y.1..(Y$)|
00000570: 00 90 09 3B 0B 8B CA 28 58 24 2C 58 2C 31 29 B2 |...;...(X$,X,1).|
00000580: CA 28 59 24 2C 59 2C 31 29 A7 54 52 B2 31 3A 8E |.(Y$,Y,1).TR.1:.|
00000590: 00 A0 09 40 0B 82 59 2C 58 3A 54 52 B2 30 3A 8E |...@..Y,X:TR.0:.|
000005A0: 00 CC 09 4A 0B 54 52 B2 28 C5 28 46 24 28 53 41 |...J.TR.(.(F$(SA|
000005B0: 25 28 57 53 29 29 29 B1 C5 28 46 24 28 C5 28 53 |%(WS)))..(F$(.(S|
000005C0: 42 24 28 57 53 29 29 29 29 29 3A 8E 00 DA 09 E4 |B$(WS))))):.....|
000005D0: 0C 8F 20 43 41 4C 43 20 44 4F 00 EA 09 E6 0C 81 |.. CALC DO......|
000005E0: 20 57 4F B2 31 20 A4 20 48 4F 00 06 0A E9 0C 41 | WO.1 . HO.....A|
000005F0: B2 C5 28 20 20 CA 28 20 4F 41 24 28 57 4F 29 20 |..( .( OA$(WO) |
00000600: 2C 32 29 20 20 29 00 3E 0A EE 0C 42 24 B2 4F 42 |,2) ).>...B$.OB|
00000610: 24 28 57 4F 29 3A 42 B2 C5 28 42 24 29 3A 8B C8 |$(WO):B..(B$):..|
00000620: 28 42 24 2C 31 29 B2 22 46 22 A7 42 B2 C5 28 46 |(B$,1)."F".B..(F|
00000630: 24 28 C5 28 CA 28 42 24 2C 32 29 29 29 29 00 78 |$(.(.(B$,2)))).x|
00000640: 0A F3 0C 43 24 B2 4F 43 24 28 57 4F 29 3A 43 B2 |...C$.OC$(WO):C.|
00000650: C5 28 43 24 29 3A 8B C8 28 43 24 2C 31 29 B2 22 |.(C$):..(C$,1)."|
00000660: 46 22 A7 20 43 B2 20 C5 28 46 24 28 C5 28 CA 28 |F". C. .(F$(.(.(|
00000670: 43 24 2C 32 29 29 29 29 00 87 0A F8 0C 4F 24 B2 |C$,2)))).....O$.|
00000680: 4F 4F 24 28 57 4F 29 00 B1 0A FA 0C 8B 20 C9 28 |OO$(WO)...... .(|
00000690: 4F 24 2C 31 29 B2 22 20 22 A7 20 4F 24 B2 C8 28 |O$,1)." ". O$..(|
000006A0: 4F 24 2C C3 28 4F 24 29 AB 31 29 3A 89 33 33 32 |O$,.(O$).1):.332|
000006B0: 32 00 D6 0A 2A 0D 8D 20 33 34 30 30 3A 46 24 28 |2...*.. 3400:F$(|
000006C0: 41 29 B2 C4 28 58 29 3A 8F 20 44 4F 20 4F 50 45 |A)..(X):. DO OPE|
000006D0: 52 41 54 49 4F 4E 00 FB 0A 3E 0D 8B C8 28 46 24 |RATION...>...(F$|
000006E0: 28 41 29 2C 31 29 B2 22 20 22 A7 46 24 28 41 29 |(A),1)." ".F$(A)|
000006F0: B2 CA 28 46 24 28 41 29 2C 32 29 00 06 0B 47 0D |..(F$(A),2)...G.|
00000700: 82 20 57 4F 3A 8E 00 1C 0B 48 0D 8F 20 4D 41 54 |. WO:....H.. MAT|
00000710: 48 20 4F 50 45 52 41 54 49 4F 4E 53 00 33 0B 61 |H OPERATIONS.3.a|
00000720: 0D 8B 20 4F 24 B2 22 2B 22 20 A7 20 58 B2 42 AA |.. O$."+" . X.B.|
00000730: 43 3A 8E 00 4A 0B 66 0D 8B 20 4F 24 B2 22 2D 22 |C:..J.f.. O$."-"|
00000740: 20 A7 20 58 B2 42 AB 43 3A 8E 00 6A 0B 6B 0D 8B | . X.B.C:..j.k..|
00000750: 20 4F 24 B2 22 58 22 20 B0 20 4F 24 B2 22 2A 22 | O$."X" . O$."*"|
00000760: 20 A7 20 58 B2 42 AC 43 3A 8E 00 83 0B 70 0D 8B | . X.B.C:....p..|
00000770: 20 4F 24 B2 22 2F 22 20 A7 8B 43 A7 58 B2 42 AD | O$."/" ..C.X.B.|
00000780: 43 3A 8E 00 9A 0B 75 0D 8B 20 4F 24 B2 22 5E 22 |C:....u.. O$."^"|
00000790: 20 A7 20 58 B2 42 AE 43 3A 8E 00 B4 0B 7A 0D 8B | . X.B.C:....z..|
000007A0: 20 4F 24 B2 22 53 49 4E 22 20 A7 20 58 B2 BF 28 | O$."SIN" . X..(|
000007B0: 43 29 3A 8E 00 CE 0B 7B 0D 8B 20 4F 24 B2 22 52 |C):....{.. O$."R|
000007C0: 4E 44 22 20 A7 20 58 B2 BB 28 43 29 3A 8E 00 E8 |ND" . X..(C):...|
000007D0: 0B 7F 0D 8B 20 4F 24 B2 22 54 41 4E 22 20 A7 20 |.... O$."TAN" . |
000007E0: 58 B2 C0 28 43 29 3A 8E 00 02 0C 80 0D 8B 20 4F |X..(C):....... O|
000007F0: 24 B2 22 41 42 53 22 20 A7 20 58 B2 B6 28 43 29 |$."ABS" . X..(C)|
00000800: 3A 8E 00 1C 0C 84 0D 8B 20 4F 24 B2 22 4C 4F 47 |:....... O$."LOG|
00000810: 22 20 A7 20 58 B2 BC 28 43 29 3A 8E 00 31 0C 89 |" . X..(C):..1..|
00000820: 0D 8B 20 4F 24 B2 22 2E 22 20 A7 20 58 B2 42 3A |.. O$."." . X.B:|
00000830: 8E 00 4B 0C 8B 0D 8B 20 4F 24 B2 22 49 4E 54 22 |..K.... O$."INT"|
00000840: 20 A7 20 58 B2 B5 28 43 29 3A 8E 00 62 0C 8C 0D | . X..(C):..b...|
00000850: 8B 20 4F 24 B2 22 52 23 22 20 A7 20 58 B2 52 52 |. O$."R#" . X.RR|
00000860: 3A 8E 00 7D 0C 8E 0D 8B 20 4F 24 B2 22 2E 2E 2E |:..}.... O$."...|
00000870: 22 20 A7 20 58 B2 42 2E 2E 2E 43 3A 8E 00 98 0C |" . X.B...C:....|
00000880: 98 0D 99 22 12 45 52 52 4F 52 20 49 4E 20 43 41 |...".ERROR IN CA|
00000890: 4C 43 23 22 57 4F 3A 8E 00 A6 0C 74 0E 8F 20 41 |LC#"WO:....t.. A|
000008A0: 53 4B 20 52 45 43 00 BA 0C 78 0E 43 4B B2 30 3A |SK REC...x.CK.0:|
000008B0: 8F 20 43 4E 47 20 46 4C 47 47 00 F0 0C 79 0E 4C |. CNG FLGG...y.L|
000008C0: B2 30 3A 81 20 57 46 B2 31 20 A4 20 48 46 3A 8B |.0:. WF.1 . HF:.|
000008D0: 20 43 32 20 A7 20 8B 20 57 46 B3 B1 42 46 20 A7 | C2 . . WF..BF .|
000008E0: 20 58 24 B2 46 24 28 57 46 29 3A 89 33 37 31 37 | X$.F$(WF):.3717|
000008F0: 00 1F 0D 7B 0E 3A 55 50 24 B2 22 22 3A 81 58 B2 |...{.:UP$."":.X.|
00000900: 31 A4 C3 28 46 24 28 57 46 29 29 AD 43 34 AA 31 |1..(F$(WF)).C4.1|
00000910: 3A 55 50 24 B2 55 50 24 AA 22 91 22 3A 82 58 00 |:UP$.UP$.".":.X.|
00000920: 51 0D 7E 0E 3A 99 20 46 54 24 28 57 46 29 22 3A |Q.~.:. FT$(WF)":|
00000930: 22 52 24 3B 46 24 28 57 46 29 3B 55 50 24 22 91 |"R$;F$(WF);UP$".|
00000940: 91 11 11 22 3A A1 58 24 3A 84 4B 45 2C 58 24 3A |...":.X$:.KE,X$:|
00000950: 99 00 8C 0D 7F 0E 81 58 B2 31 A4 C3 28 58 24 29 |.......X.1..(X$)|
00000960: 3A 8B CA 28 58 24 2C 58 2C 31 29 B2 51 24 A7 99 |:..(X$,X,1).Q$..|
00000970: 22 12 44 4F 20 4E 4F 54 20 45 4E 54 45 52 20 51 |".DO NOT ENTER Q|
00000980: 55 4F 54 45 53 22 3A 89 33 37 31 30 00 93 0D 80 |UOTES":.3710....|
00000990: 0E 82 58 00 D2 0D 83 0E 8B 58 24 B3 B1 46 24 28 |..X......X$..F$(|
000009A0: 57 46 29 A7 81 58 B2 30 A4 48 4B 3A 81 44 B2 31 |WF)..X.0.HK:.D.1|
000009B0: A4 53 46 25 28 58 2C 30 29 3A 43 4B B2 43 4B AB |.SF%(X,0):CK.CK.|
000009C0: 28 57 46 B2 53 46 25 28 58 2C 44 29 29 3A 82 44 |(WF.SF%(X,D)):.D|
000009D0: 2C 58 00 ED 0D 85 0E 3A 4C B2 4C AA C3 28 58 24 |,X.....:L.L..(X$|
000009E0: 29 AA 32 3A 46 24 28 57 46 29 B2 58 24 00 17 0E |).2:F$(WF).X$...|
000009F0: 88 0E 82 20 57 46 3A 8B 20 4C B1 52 53 20 A7 20 |... WF:. L.RS . |
00000A00: 99 22 52 45 43 20 54 4F 4F 20 4C 41 52 47 45 22 |."REC TOO LARGE"|
00000A10: 3A 89 20 33 37 30 35 00 2E 0E 8D 0E 8D 33 3A 8B |:. 3705......3:.|
00000A20: 20 47 24 B2 22 59 22 20 A7 20 33 37 30 35 00 34 | G$."Y" . 3705.4|
00000A30: 0E 92 0E 8E 00 46 0E 04 10 8F 20 57 52 49 54 45 |.....F.... WRITE|
00000A40: 20 41 20 52 45 43 00 71 0E 0E 10 58 24 B2 22 22 | A REC.q...X$.""|
00000A50: 3A 81 20 58 B2 31 20 A4 20 48 46 3A 58 24 B2 58 |:. X.1 . HF:X$.X|
00000A60: 24 AA 51 24 AA 46 24 28 58 29 AA 52 24 3A 82 20 |$.Q$.F$(X).R$:. |
00000A70: 58 00 94 0E 18 10 8B 20 52 34 20 A7 20 CF 23 28 |X...... R4 . .#(|
00000A80: 52 41 29 2C 28 57 52 29 3A 98 28 52 41 29 2C 58 |RA),(WR):.(RA),X|
00000A90: 24 3B 3A 8E 00 A7 0E 22 10 8D 20 34 33 30 30 3A |$;:....".. 4300:|
00000AA0: 98 52 41 2C 58 24 3B 00 DC 0E 27 10 98 4B 4B 28 |.RA,X$;...'..KK(|
00000AB0: 52 56 29 2C 22 55 32 3A 22 52 41 3B 44 52 28 52 |RV),"U2:"RA;DR(R|
00000AC0: 56 29 3B 54 25 28 42 4C 29 3B 53 25 28 42 4C 29 |V);T%(BL);S%(BL)|
00000AD0: 3A 56 4F B2 52 56 3A 8D 20 38 3A 8E 00 F0 0E 68 |:VO.RV:. 8:....h|
00000AE0: 10 8F 20 52 45 41 44 20 41 20 52 45 43 4F 52 44 |.. READ A RECORD|
00000AF0: 00 20 0F 6D 10 8B 20 52 33 20 A7 20 8D 20 34 33 |. .m.. R3 . . 43|
00000B00: 30 30 3A 81 20 57 46 B2 31 20 A4 20 48 46 3A 84 |00:. WF.1 . HF:.|
00000B10: 52 41 2C 46 24 28 57 46 29 3A 82 20 57 46 3A 8E |RA,F$(WF):. WF:.|
00000B20: 00 5C 0F 72 10 4C B2 31 3A 81 58 B2 31 A4 48 46 |.\.r.L.1:.X.1.HF|
00000B30: 3A CF 23 28 52 41 29 2C 28 57 52 29 2C 28 4C 29 |:.#(RA),(WR),(L)|
00000B40: 3A 84 52 41 2C 46 24 28 58 29 3A 4C B2 4C AA C3 |:.RA,F$(X):L.L..|
00000B50: 28 46 24 28 58 29 29 AA 32 3A 82 58 00 62 0F 77 |(F$(X)).2:.X.b.w|
00000B60: 10 8E 00 79 0F CC 10 8F 20 50 4F 53 49 54 49 4F |...y.... POSITIO|
00000B70: 4E 20 50 4F 49 4E 54 45 52 00 96 0F D1 10 42 4C |N POINTER.....BL|
00000B80: B2 B5 28 28 57 52 AB 31 29 AD 52 42 AA 2E 30 30 |..((WR.1).RB..00|
00000B90: 30 30 31 29 AA 31 00 CD 0F D4 10 98 4B 4B 28 52 |001).1......KK(R|
00000BA0: 56 29 2C 22 55 31 3A 22 52 41 3B 44 52 28 52 56 |V),"U1:"RA;DR(RV|
00000BB0: 29 3B 54 25 28 42 4C 29 3B 53 25 28 42 4C 29 3A |);T%(BL);S%(BL):|
00000BC0: 56 4F B2 52 56 3A 8D 38 3A 8B 45 A7 8E 00 08 10 |VO.RV:.8:.E.....|
00000BD0: DB 10 58 B2 28 57 52 AB 31 29 AB 28 42 4C AB 31 |..X.(WR.1).(BL.1|
00000BE0: 29 AC 52 42 3A 8F 20 4E 4F 2E 20 52 45 43 53 20 |).RB:. NO. RECS |
00000BF0: 42 45 46 4F 52 20 54 48 49 53 20 49 4E 20 54 48 |BEFOR THIS IN TH|
00000C00: 49 53 20 42 4C 4F 43 4B 00 2D 10 DF 10 42 50 B2 |IS BLOCK.-...BP.|
00000C10: 31 AA 52 53 AC 58 3A 98 4B 4B 28 52 56 29 2C 22 |1.RS.X:.KK(RV),"|
00000C20: 42 2D 50 3A 22 3B 52 41 3B 42 50 3A 8E 00 42 10 |B-P:";RA;BP:..B.|
00000C30: 5C 12 8F 20 52 55 4E 4E 49 4E 47 20 54 4F 54 41 |\.. RUNNING TOTA|
00000C40: 4C 53 00 51 10 61 12 81 57 46 B2 31 20 A4 20 48 |LS.Q.a..WF.1 . H|
00000C50: 46 00 81 10 6B 12 8B 20 46 4C 25 28 57 46 29 20 |F...k.. FL%(WF) |
00000C60: AF 20 36 20 A7 20 43 54 28 57 46 2C 30 29 B2 43 |. 6 . CT(WF,0).C|
00000C70: 54 28 57 46 2C 30 29 AA C5 28 46 24 28 57 46 29 |T(WF,0)..(F$(WF)|
00000C80: 29 00 8C 10 70 12 82 20 57 46 3A 8E 00 A1 10 D4 |)...p.. WF:.....|
00000C90: 17 8F 20 4D 41 49 4E 20 43 41 4C 43 55 4C 41 54 |.. MAIN CALCULAT|
00000CA0: 45 00 BE 10 E8 17 81 20 57 46 B2 31 A4 48 46 3A |E...... WF.1.HF:|
00000CB0: 43 54 28 57 46 2C 30 29 B2 30 3A 82 57 46 00 DA |CT(WF,0).0:.WF..|
00000CC0: 10 F2 17 46 24 28 30 29 B2 22 22 3A 52 43 B2 30 |...F$(0)."":RC.0|
00000CD0: 3A 81 20 52 52 B2 31 A4 48 52 00 F6 10 F4 17 3A |:. RR.1.HR.....:|
00000CE0: A1 47 24 3A 8B 47 24 B2 22 50 22 A7 47 31 24 B2 |.G$:.G$."P".G1$.|
00000CF0: 22 52 22 3A 8D 35 00 1E 11 F7 17 3A 57 52 B2 50 |"R":.5.....:WR.P|
00000D00: 4F 25 28 52 52 2C 57 4B 29 3A 8D 20 34 32 30 30 |O%(RR,WK):. 4200|
00000D10: 3A 8F 20 52 45 41 44 20 52 45 43 4F 52 44 00 4C |:. READ RECORD.L|
00000D20: 11 FC 17 3A 8B 20 48 53 20 A7 20 8D 20 32 37 30 |...:. HS . . 270|
00000D30: 30 3A 8B 20 54 52 B2 30 20 A7 20 36 31 36 35 3A |0:. TR.0 . 6165:|
00000D40: 8B 20 A8 20 53 45 4C 45 43 54 45 44 00 59 11 01 |. . SELECTED.Y..|
00000D50: 18 3A 52 43 B2 52 43 AA 31 00 7D 11 06 18 3A 8B |.:RC.RC.1.}...:.|
00000D60: 20 48 4F 20 A7 20 8D 20 33 33 30 30 3A 8F 20 43 | HO . . 3300:. C|
00000D70: 41 4C 43 55 4C 41 54 45 20 43 4F 4C 53 00 91 11 |ALCULATE COLS...|
00000D80: 0B 18 3A 8D 20 34 31 30 30 3A 8F 20 57 52 49 54 |..:. 4100:. WRIT|
00000D90: 45 00 AC 11 10 18 3A 8D 20 34 37 30 30 3A 8F 20 |E.....:. 4700:. |
00000DA0: 52 55 4E 4E 49 4E 47 20 54 4F 54 53 00 CE 11 15 |RUNNING TOTS....|
00000DB0: 18 82 20 52 52 3A 8D 20 37 33 30 30 3A 8F 20 50 |.. RR:. 7300:. P|
00000DC0: 52 49 4E 54 20 54 4F 54 53 2C 41 56 52 53 00 D4 |RINT TOTS,AVRS..|
00000DD0: 11 1A 18 8E 00 EA 11 84 1C 8F A0 50 52 49 4E 54 |...........PRINT|
00000DE0: 20 54 4F 54 53 20 41 56 52 53 00 17 12 85 1C 58 | TOTS AVRS.....X|
00000DF0: B2 30 3A 81 20 57 46 B2 31 A4 48 46 3A 58 B2 58 |.0:. WF.1.HF:X.X|
00000E00: AA 46 4C 25 28 57 46 29 3A 82 20 57 46 3A 8B 20 |.FL%(WF):. WF:. |
00000E10: 58 B2 30 20 A7 20 8E 00 4A 12 86 1C 58 B2 30 3A |X.0 . ..J...X.0:|
00000E20: 81 20 57 46 B2 31 A4 48 46 3A 58 B2 58 AA 28 46 |. WF.1.HF:X.X.(F|
00000E30: 4C 25 28 57 46 29 AF 32 29 3A 82 20 57 46 3A 8B |L%(WF).2):. WF:.|
00000E40: 20 58 B2 30 20 A7 37 33 31 36 00 5B 12 89 1C 99 | X.0 .7316.[....|
00000E50: 22 11 12 54 4F 54 41 4C 53 3A 22 00 7A 12 8E 1C |"..TOTALS:".z...|
00000E60: 81 57 46 B2 31 A4 48 46 3A 46 4C 25 28 57 46 29 |.WF.1.HF:FL%(WF)|
00000E70: B2 46 4C 25 28 57 46 29 AF 36 00 9D 12 8F 1C 8B |.FL%(WF).6......|
00000E80: 46 4C 25 28 57 46 29 AF 32 A7 99 46 54 24 28 57 |FL%(WF).2..FT$(W|
00000E90: 46 29 22 3A 22 43 54 28 57 46 2C 30 29 00 A5 12 |F)":"CT(WF,0)...|
00000EA0: 92 1C 82 57 46 00 D9 12 94 1C 58 B2 30 3A 81 20 |...WF.....X.0:. |
00000EB0: 57 46 B2 31 A4 48 46 3A 58 B2 58 AA 28 46 4C 25 |WF.1.HF:X.X.(FL%|
00000EC0: 28 57 46 29 AF 34 29 3A 82 20 57 46 3A 8B 20 58 |(WF).4):. WF:. X|
00000ED0: B2 30 20 A7 20 37 33 33 35 00 EC 12 95 1C 99 22 |.0 . 7335......"|
00000EE0: 11 12 41 56 45 52 41 47 45 53 3A 22 00 1B 13 98 |..AVERAGES:"....|
00000EF0: 1C 81 57 46 B2 31 A4 48 46 3A 8B 46 4C 25 28 57 |..WF.1.HF:.FL%(W|
00000F00: 46 29 AF 34 A7 99 46 54 24 28 57 46 29 22 3A 22 |F).4..FT$(WF)":"|
00000F10: 43 54 28 57 46 2C 30 29 AD 52 43 00 23 13 A2 1C |CT(WF,0).RC.#...|
00000F20: 82 57 46 00 48 13 A7 1C 99 22 11 4E 55 4D 42 45 |.WF.H....".NUMBE|
00000F30: 52 20 4F 46 20 52 45 43 4F 52 44 53 20 53 41 4D |R OF RECORDS SAM|
00000F40: 50 4C 45 44 3A 22 52 43 00 68 13 AC 1C 99 22 11 |PLED:"RC.h....".|
00000F50: 12 43 92 4F 4E 54 49 4E 55 45 3F 22 3A 47 31 24 |.C.ONTINUE?":G1$|
00000F60: B2 22 43 22 3A 8D 20 35 00 6E 13 DE 1C 8E 00 82 |."C":. 5.n......|
00000F70: 13 08 20 8F 20 52 45 41 44 20 41 20 52 45 43 4F |.. . READ A RECO|
00000F80: 52 44 00 92 13 F0 23 8F 20 4C 4F 41 44 20 50 52 |RD....#. LOAD PR|
00000F90: 4F 47 00 C9 13 F1 23 A0 20 52 41 3A 8B 20 44 54 |OG....#. RA:. DT|
00000FA0: B2 31 20 AF 20 52 56 B2 31 20 A7 20 99 22 11 12 |.1 . RV.1 . ."..|
00000FB0: 49 4E 53 45 52 54 20 50 52 4F 47 52 41 4D 20 44 |INSERT PROGRAM D|
00000FC0: 49 53 4B 22 3A 8D 20 31 30 00 EC 13 F5 23 98 4B |ISK":. 10....#.K|
00000FD0: 4B 28 30 29 2C 22 49 30 22 3A 99 22 11 28 4C 4F |K(0),"I0":.".(LO|
00000FE0: 41 44 49 4E 47 20 22 58 24 22 29 22 00 1F 14 FA |ADING "X$")"....|
00000FF0: 23 9F 20 53 45 2C 38 2C 53 45 2C 22 30 3A 22 AA |#. SE,8,SE,"0:".|
00001000: 58 24 AA 22 2C 50 2C 52 22 3A 56 4F B2 30 3A 8D |X$.",P,R":VO.0:.|
00001010: 20 38 3A A0 20 53 45 3A 8B 20 45 20 A7 20 8E 00 | 8:. SE:. E . ..|
00001020: 36 14 FF 23 8B 20 4C 49 B3 32 35 33 20 A7 20 97 |6..#. LI.253 . .|
00001030: 20 49 56 2C 4C 49 00 48 14 04 24 93 20 22 30 3A | IV,LI.H..$. "0:|
00001040: 22 AA 58 24 2C 38 3A 90 00 56 14 54 24 8F 20 4F |".X$,8:..V.T$. O|
00001050: 50 45 4E 20 52 41 00 85 14 59 24 8B 20 44 54 B2 |PEN RA...Y$. DT.|
00001060: 31 20 AF 20 52 56 B2 31 20 A7 20 99 22 11 12 49 |1 . RV.1 . ."..I|
00001070: 4E 53 45 52 54 20 44 41 54 41 20 44 49 53 4B 22 |NSERT DATA DISK"|
00001080: 3A 8D 20 31 30 00 9C 14 5B 24 98 4B 4B 28 52 56 |:. 10...[$.KK(RV|
00001090: 29 2C 22 49 22 44 52 24 28 52 56 29 00 D2 14 5E |),"I"DR$(RV)...^|
000010A0: 24 9F 20 53 45 2C 44 56 28 52 56 29 2C 53 45 2C |$. SE,DV(RV),SE,|
000010B0: 44 52 24 28 52 56 29 AA 22 3A 44 42 22 AA C7 28 |DR$(RV).":DB"..(|
000010C0: 33 34 AA 31 32 38 29 AA 4E 41 24 AA 22 2C 53 2C |34.128).NA$.",S,|
000010D0: 52 22 00 ED 14 60 24 56 4F B2 52 56 3A 8D 20 38 |R"...`$VO.RV:. 8|
000010E0: 3A A0 20 53 45 3A 8B 20 45 20 A7 20 8E 00 0B 15 |:. SE:. E . ....|
000010F0: 63 24 9F 20 52 41 2C 44 56 28 52 56 29 2C 52 41 |c$. RA,DV(RV),RA|
00001100: 2C 22 23 22 3A 42 4C B2 30 3A 8E 00 00 00 |,"#":BL.0:.... |
....... 5/10/80 9:20. .... 1100.V... 15
:. 15,8,15,"S0:MAKE CALCS":."0:MAKE CALC
S",8:..~...."CORECTIONS(.Y./.N.)?":G1$."
YN":.5......4,4:.4:.".";:.......G$:.V.1.
C(G1$):.G$..J(G1$,V,1)..V:.5.B..........
KK(VO),E,E$,S,T:.E.2........"DISK ERROR:
"E;E$;S;T......".R.EADY?":G1$."R":.5:..!
.... MAIN.7.... SEL TEST EA REC.S.... SE
L TEST EA CONDITION.A.!.. CALC DO.W."..
MATH OPERATIONS...%.. ASK REC...).. WRIT
E A REC...*.. READ A RECORD.B.+.. POSITI
ON POINTER.W./.. RUNNING TOTALS...=.. MA
IN CALCULATE...I.. PRINT TOTS AVRS...R..
READ A RECORD.!.[.. EXIT.,.L.. MAIN.E.M
.. LI.253 . . IV,LI.3.R.N.. 9300:.".
.MAKING CALCULATIONS...Q..6100:. M
AKE CALCS...V.X$."CALC FILE":. 9200:. 11
10...... SEL TEST EA REC.....TR.1:. WS.1
.HS: . START TRUE.(.... TR . . SE%(WS
) . 2810,2815,2820,2825,2830,2835,2840,2
870,2890.U. .. SL%(WS)..2 . . WS:.:. '.'
. TEST AGAIN.H.... MUST BE 'OR'.U.... T
R . ......TR.1:. WS:."SELECT SYNTAX ERRO
R":....... SEL TEST EA CONDITION.W...TR.
(F$(SA%(WS)).SB$(WS)):......TR.(E(F$(SA%
(WS))).E(SB$(WS))):..!...TR.(E(F$(SA%(WS
))).E(SB$(WS))):..@...TR.(F$(SA%(WS)).SB
$(WS)):.._...TR.(F$(SA%(WS)).SB$(WS)):..
...TR.(F$(SA%(WS))..SB$(WS)):......A1$.
F$(SA%(WS)):A2$.SB$(WS).L.... I(A2$,1)."
*" . A1$.H(A1$,C(A2$).1)."*"...".. C(A1$
)..C(A2$). TR.0:....'.. X.1 . C(A2$).3.,
.. J(A2$,X,1).."?" . J(A2$,X,1)..J(A1$,X
,1). TR.0:..<.1..X:..P.6.X$.F$(SA%(WS)):
Y$.SB$(WS):.X.1.C(X$):.Y.1.C(Y$)...;..J(
X$,X,1).J(Y$,Y,1).TR.1:.. .@..Y,X:TR.0:.
.L.J.TR.(E(F$(SA%(WS))).E(F$(E(SB$(WS)))
)):..Z.... 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)))).X
...C$.OC$(WO):C.E(C$):.H(C$,1)."F". C. E
(F$(E(J(C$,2)))).....O$.OO$(WO)...... I(
O$,1)." ". O$.H(O$,C(O$).1):.3322.V.*..
3400:F$(A).D(X):. DO OPERATION...>..H(F$
(A),1)." ".F$(A).J(F$(A),2)...G.. WO:...
.H.. MATH OPERATIONS.3.A.. O$."+" . X.B.
C:..J.F.. O$."-" . X.B.C:..J.K.. O$."X"
. O$."*" . X.B.C:....P.. O$."/" ..C.X.B.
C:....U.. O$."^" . X.B.C:....Z.. O$."SIN
" . X..(C):..N.{.. O$."RND" . X..(C):...
... O$."TAN" . X..(C):....... O$."ABS"
. X..(C):....... O$."LOG" . X..(C):..1..
.. O$."." . X.B:..K.... O$."INT" . X..(C
):..B.... O$."R#" . X.RR:..}.... O$."...
" . X.B...C:.......".ERROR IN CALC#"WO:.
...T.. ASK REC...X.CK.0:. CNG FLGG...Y.L
.0:. WF.1 . HF:. C2 . . WF..BF . X$.F$(W
F):.3717...{.:UP$."":.X.1.C(F$(WF)).C4.1
:UP$.UP$.".":.X.Q.~.:. FT$(WF)":"R$;F$(W
F);UP$"....":.X$:.KE,X$:......X.1.C(X$)
:.J(X$,X,1).Q$..".DO NOT ENTER QUOTES":.
3710......X.R....X$..F$(WF)..X.0.HK:.D.1
.SF%(X,0):CK.CK.(WF.SF%(X,D)):.D,X.....:
L.L.C(X$).2:F$(WF).X$...... WF:. L.RS .
."REC TOO LARGE":. 3705......3:. G$."Y"
. 3705.4.....F.... WRITE A REC.Q...X$.""
:. X.1 . HF:X$.X$.Q$.F$(X).R$:. X......
R4 . O#(RA),(WR):.(RA),X$;:....".. 4300:
.RA,X$;...'..KK(RV),"U2:"RA;DR(RV);T%(BL
);S%(BL):VO.RV:. 8:....H.. READ A RECORD
. .M.. R3 . . 4300:. WF.1 . HF:.RA,F$(WF
):. WF:..\.R.L.1:.X.1.HF:O#(RA),(WR),(L)
:.RA,F$(X):L.L.C(F$(X)).2:.X.B.W...Y.L..
POSITION POINTER...Q.BL..((WR.1).RB..00
001).1.M.T..KK(RV),"U1:"RA;DR(RV);T%(BL)
;S%(BL):VO.RV:.8:.E.......X.(WR.1).(BL.1
).RB:. NO. RECS BEFOR THIS IN THIS BLOCK
.-...BP.1.RS.X:.KK(RV),"B-P:";RA;BP:..B.
\.. RUNNING TOTALS.Q.A..WF.1 . HF...K..
FL%(WF) . 6 . CT(WF,0).CT(WF,0).E(F$(WF)
)...P.. WF:....T.. MAIN CALCULATE......
WF.1.HF:CT(WF,0).0:.WF.Z...F$(0)."":RC.0
:. RR.1.HR.....:.G$:.G$."P".G1$."R":.5..
...:WR.PO%(RR,WK):. 4200:. READ RECORD.L
...:. HS . . 2700:. TR.0 . 6165:. . SELE
CTED.Y...:RC.RC.1.}...:. HO . . 3300:. C
ALCULATE COLS.....:. 4100:. WRITE.....:.
4700:. RUNNING TOTS.N.... RR:. 7300:. P
RINT TOTS,AVRS.T.......... PRINT TOTS AV
RS.....X.0:. WF.1.HF:X.X.FL%(WF):. WF:.
X.0 . ..J...X.0:. WF.1.HF:X.X.(FL%(WF).2
):. WF:. X.0 .7316.[...."..TOTALS:".Z...
.WF.1.HF:FL%(WF).FL%(WF).6......FL%(WF).
2..FT$(WF)":"CT(WF,0)......WF.Y...X.0:.
WF.1.HF:X.X.(FL%(WF).4):. WF:. X.0 . 733
5......"..AVERAGES:"......WF.1.HF:.FL%(W
F).4..FT$(WF)":"CT(WF,0).RC.#....WF.H...
.".NUMBER OF RECORDS SAMPLED:"RC.H....".
.C.ONTINUE?":G1$."C":. 5.N........ . REA
D A RECORD....#. LOAD PROG.I..# RA:. DT
.1 . RV.1 . ."..INSERT PROGRAM DISK":. 1
0....#.KK(0),"I0":.".(LOADING "X$")"....
#. SE,8,SE,"0:".X$.",P,R":VO.0:. 8: SE:
. E . ..6..#. LI.253 . . IV,LI.H..$. "0:
".X$,8:..V.T$. OPEN RA...Y$. DT.1 . RV.1
. ."..INSERT DATA DISK":. 10...[$.KK(RV
),"I"DR$(RV).R.^$. SE,DV(RV),SE,DR$(RV).
":DB".G(34.128).NA$.",S,R"...`$VO.RV:. 8
: SE:. E . ....C$. RA,DV(RV),RA,"#":BL.
0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL