COLUMN CALC.C
FILE INFORMATION
FILENAME(S): COLUMN CALC.C
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 18:13:07
APPEARS ON: 1 disk(s)
FILE HASH
78edc41df8314beef4fdbf1033f687b2a54e3a8e5fc80e93d86464a2967a81ab
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG | COLUMN CALC.C | PRG | Sailor, Ganheden | 13 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4C 08 05 00 8F 22 14 14 14 14 14 14 41 44 |..L...."......AD|
00000010: 41 50 54 45 44 20 42 59 20 53 54 45 56 45 4E 20 |APTED BY STEVEN |
00000020: 44 41 52 4E 4F 4C 44 2C 20 50 2E 4F 2E 20 42 4F |DARNOLD, P.O. BO|
00000030: 58 20 32 30 31 20 41 4C 45 58 41 4E 44 52 41 2C |X 201 ALEXANDRA,|
00000040: 20 4E 45 57 20 5A 45 41 4C 41 4E 44 00 62 08 08 | NEW ZEALAND.b..|
00000050: 00 97 35 33 32 38 30 2C 36 3A 97 35 33 32 38 31 |..53280,6:.53281|
00000060: 2C 36 00 AE 08 09 00 86 56 28 31 35 2C 36 30 29 |,6......V(15,60)|
00000070: 2C 58 24 28 35 30 29 2C 56 24 28 31 35 2C 36 30 |,X$(50),V$(15,60|
00000080: 29 3A 43 52 24 B2 22 93 22 3A 43 54 24 B2 22 9F |):CR$.".":CT$.".|
00000090: 20 2A 2A 2A 2A 2A 2A 2A 20 43 41 4C 43 55 4C 41 | ******* CALCULA|
000000A0: 54 49 4E 47 20 2A 2A 2A 2A 2A 2A 2A 9A 22 00 E7 |TING *******."..|
000000B0: 08 0A 00 99 22 8E 93 9F 43 20 4F 20 4C 20 55 20 |...."...C O L U |
000000C0: 4D 20 4E 20 20 20 20 20 20 43 20 41 20 4C 20 43 |M N C A L C|
000000D0: 20 55 20 4C 20 41 20 54 20 4F 20 52 22 3A 43 25 | U L A T O R":C%|
000000E0: B2 31 3A 52 25 B2 31 00 03 09 14 00 99 22 9A 11 |.1:R%.1......"..|
000000F0: 11 20 20 20 20 05 56 9A 49 45 57 20 43 4F 4C 55 |. .V.IEW COLU|
00000100: 4D 4E 53 00 1B 09 1E 00 99 22 11 20 20 20 20 05 |MNS......". .|
00000110: 45 9A 4E 54 45 52 20 44 41 54 41 00 38 09 28 00 |E.NTER DATA.8.(.|
00000120: 99 22 11 20 20 20 20 05 44 9A 4F 20 43 41 4C 43 |.". .D.O CALC|
00000130: 55 4C 41 54 49 4F 4E 53 00 51 09 32 00 99 22 11 |ULATIONS.Q.2..".|
00000140: 20 20 20 20 05 5A 9A 45 52 4F 20 4D 41 54 52 49 | .Z.ERO MATRI|
00000150: 58 00 71 09 3C 00 99 22 11 20 20 20 20 05 47 9A |X.q.<..". .G.|
00000160: 45 54 20 44 41 54 41 20 46 52 4F 4D 20 54 41 50 |ET DATA FROM TAP|
00000170: 45 00 90 09 46 00 99 22 11 20 20 20 20 05 53 9A |E...F..". .S.|
00000180: 41 56 45 20 44 41 54 41 20 4F 4E 20 54 41 50 45 |AVE DATA ON TAPE|
00000190: 00 AA 09 50 00 99 22 11 20 20 20 20 05 4D 9A 45 |...P..". .M.E|
000001A0: 4D 4F 52 59 20 43 48 45 43 4B 00 CE 09 55 00 99 |MORY CHECK...U..|
000001B0: 22 11 20 20 20 20 05 50 9A 52 49 4E 54 20 44 41 |". .P.RINT DA|
000001C0: 54 41 20 4F 4E 20 50 52 49 4E 54 45 52 22 00 F2 |TA ON PRINTER"..|
000001D0: 09 5F 00 99 22 9F 11 11 57 48 41 54 20 49 53 20 |._.."...WHAT IS |
000001E0: 59 4F 55 52 20 43 48 4F 49 43 45 20 3F 22 3A 59 |YOUR CHOICE ?":Y|
000001F0: B2 30 00 06 0A 60 00 A1 41 4E 24 3A 8B 41 4E 24 |.0...`..AN$:.AN$|
00000200: B2 22 22 A7 39 36 00 2C 0A 61 00 81 58 B2 31 A4 |."".96.,.a..X.1.|
00000210: 38 3A 8B 41 4E 24 B2 CA 28 22 56 45 44 5A 47 53 |8:.AN$..("VEDZGS|
00000220: 4D 50 22 2C 58 2C 31 29 A7 59 B2 58 00 5D 0A 62 |MP",X,1).Y.X.].b|
00000230: 00 82 3A 91 59 8D 32 33 30 2C 31 30 30 30 2C 32 |..:.Y.230,1000,2|
00000240: 30 32 30 2C 31 32 30 2C 37 30 32 2C 38 30 32 2C |020,120,702,802,|
00000250: 39 34 30 2C 31 32 30 31 30 3A 89 31 30 00 6E 0A |940,12010:.10.n.|
00000260: 78 00 99 43 52 24 3A 81 58 B2 31 A4 31 35 00 7A |x..CR$:.X.1.15.z|
00000270: 0A 82 00 81 59 B2 31 A4 35 30 00 87 0A 8C 00 56 |....Y.1.50.....V|
00000280: 28 58 2C 59 29 B2 30 00 8E 0A 96 00 82 59 00 95 |(X,Y).0......Y..|
00000290: 0A A0 00 82 58 00 9B 0A A5 00 8E 00 BE 0A BE 00 |....X...........|
000002A0: 85 22 93 45 4E 54 45 52 20 43 4F 4C 55 4D 4E 20 |.".ENTER COLUMN |
000002B0: 28 31 20 54 4F 20 31 33 29 3A 22 3B 43 25 00 D9 |(1 TO 13):";C%..|
000002C0: 0A C8 00 8B 43 25 B3 31 B0 43 25 B1 31 33 A7 99 |....C%.1.C%.13..|
000002D0: 22 93 22 3B 3A 89 31 39 30 00 FB 0A D2 00 99 3A |".";:.190......:|
000002E0: 85 22 11 45 4E 54 45 52 20 52 4F 57 20 28 31 20 |.".ENTER ROW (1 |
000002F0: 54 4F 20 33 31 29 3A 22 3B 52 25 00 0F 0B DC 00 |TO 31):";R%.....|
00000300: 8B 52 25 B3 31 B0 52 25 B1 33 31 A7 32 31 30 00 |.R%.1.R%.31.210.|
00000310: 1E 0B E6 00 99 22 93 22 3B 3A 8D 35 30 30 00 2A |.....".";:.500.*|
00000320: 0B F0 00 99 22 13 11 11 22 3B 00 3A 0B FA 00 81 |...."...";.:....|
00000330: 59 B2 52 25 A4 52 25 AA 31 39 00 44 0B 04 01 99 |Y.R%.R%.19.D....|
00000340: A3 39 29 3B 00 53 0B 0E 01 81 58 B2 43 25 A4 43 |.9);.S....X.C%.C|
00000350: 25 AA 32 00 64 0B 18 01 58 24 B2 C4 28 56 28 58 |%.2.d...X$..(V(X|
00000360: 2C 59 29 29 00 78 0B 22 01 99 A6 31 30 AB C3 28 |,Y)).x."...10..(|
00000370: 58 24 29 29 3B 58 24 3B 00 7E 0B 2C 01 82 00 8A |X$));X$;.~.,....|
00000380: 0B 36 01 99 C7 28 31 33 29 3B 00 90 0B 40 01 82 |.6...(13);...@..|
00000390: 00 C2 0B 45 01 99 22 20 20 20 20 20 20 20 20 20 |...E.." |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 22 3B 00 FD 0B 4A 01 99 22 05 55 9A 50 20 20 20 |";...J..".U.P |
000003D0: 05 44 9A 4F 57 4E 20 20 20 05 4C 9A 45 46 54 20 |.D.OWN .L.EFT |
000003E0: 20 20 05 52 9A 49 47 48 54 20 20 20 05 4A 9A 55 | .R.IGHT .J.U|
000003F0: 4D 50 20 20 20 05 4D 9A 45 4E 55 22 3B 00 10 0C |MP .M.ENU";...|
00000400: 54 01 A1 43 24 3A 8B 43 24 B2 22 22 A7 33 34 30 |T..C$:.C$."".340|
00000410: 00 36 0C 68 01 8B 43 24 B2 22 55 22 A7 52 25 B2 |.6.h..C$."U".R%.|
00000420: 52 25 AB 31 30 3A 99 C7 28 31 33 29 3B 22 11 22 |R%.10:..(13);"."|
00000430: 3B 3A 89 32 32 30 00 5C 0C 7C 01 8B 43 24 B2 22 |;:.220.\.|..C$."|
00000440: 44 22 A7 52 25 B2 52 25 AA 31 30 3A 99 C7 28 31 |D".R%.R%.10:..(1|
00000450: 33 29 3B 22 11 22 3B 3A 89 32 32 30 00 75 0C 90 |3);".";:.220.u..|
00000460: 01 8B 43 24 B2 22 4C 22 A7 43 25 B2 43 25 AB 32 |..C$."L".C%.C%.2|
00000470: 3A 89 34 37 30 00 8E 0C A4 01 8B 43 24 B2 22 52 |:.470......C$."R|
00000480: 22 A7 43 25 B2 43 25 AA 32 3A 89 34 37 30 00 9E |".C%.C%.2:.470..|
00000490: 0C B8 01 8B 43 24 B2 22 4A 22 A7 31 39 30 00 AD |....C$."J".190..|
000004A0: 0C C2 01 8B 43 24 B2 22 4D 22 A7 31 30 00 B6 0C |....C$."M".10...|
000004B0: CC 01 89 33 34 30 00 D3 0C D6 01 8B 43 25 B3 31 |...340......C%.1|
000004C0: B0 43 25 B1 31 33 A7 99 C7 28 31 33 29 3B 3A 89 |.C%.13...(13);:.|
000004D0: 31 39 30 00 DC 0C E0 01 89 32 33 30 00 E6 0C F4 |190......230....|
000004E0: 01 99 A3 39 29 3B 00 F1 0C FE 01 81 49 B2 31 A4 |...9);......I.1.|
000004F0: 33 00 07 0D 08 02 99 22 9A 12 20 20 20 20 43 4F |3......".. CO|
00000500: 4C 55 4D 4E 92 22 3B 00 0D 0D 12 02 82 00 1D 0D |LUMN.";.........|
00000510: 1C 02 99 C7 28 31 33 29 3B A3 39 29 3B 00 2C 0D |....(13);.9);.,.|
00000520: 26 02 81 49 B2 43 25 A4 43 25 AA 32 00 40 0D 30 |&..I.C%.C%.2.@.0|
00000530: 02 53 25 B2 37 3A 8B 49 B3 31 30 A7 53 25 B2 38 |.S%.7:.I.10.S%.8|
00000540: 00 58 0D 3A 02 99 A6 53 25 29 3B 22 12 22 3B C4 |.X.:...S%);".";.|
00000550: 28 49 29 3B 22 92 22 3B 00 5E 0D 44 02 82 00 6A |(I);".";.^.D...j|
00000560: 0D 4E 02 99 C7 28 31 33 29 3B 00 7A 0D 58 02 81 |.N...(13);.z.X..|
00000570: 49 B2 52 25 A4 52 25 AA 31 39 00 91 0D 62 02 53 |I.R%.R%.19...b.S|
00000580: 24 B2 22 22 3A 8B 49 B3 31 30 A7 53 24 B2 22 20 |$."":.I.10.S$." |
00000590: 22 00 AD 0D 6C 02 99 A3 32 29 3B 22 12 9A 52 4F |"...l...2);"..RO|
000005A0: 57 22 53 24 C4 28 49 29 3B 22 92 9F 22 00 B3 0D |W"S$.(I);".."...|
000005B0: 76 02 82 00 B9 0D 80 02 8E 00 E3 0D BE 02 85 22 |v.............."|
000005C0: 93 57 48 41 54 20 49 53 20 4E 41 4D 45 20 4F 46 |.WHAT IS NAME OF|
000005D0: 20 46 49 4C 45 20 59 4F 55 20 57 41 4E 54 22 3B | FILE YOU WANT";|
000005E0: 46 4C 24 00 FC 0D C6 02 99 22 93 4C 4F 4F 4B 49 |FL$......".LOOKI|
000005F0: 4E 47 20 46 4F 52 20 22 3B 46 4C 24 00 0D 0E D0 |NG FOR ";FL$....|
00000600: 02 9F 31 2C 31 2C 30 2C 28 46 4C 24 29 00 2F 0E |..1,1,0,(FL$)./.|
00000610: D5 02 99 22 46 4F 55 4E 44 20 22 3B 46 4C 24 3B |..."FOUND ";FL$;|
00000620: 22 20 2E 2E 2E 2E 2E 4C 4F 41 44 49 4E 47 22 00 |" .....LOADING".|
00000630: 3B 0E DA 02 81 58 B2 31 A4 31 32 00 47 0E E4 02 |;....X.1.12.G...|
00000640: 81 59 B2 31 A4 34 39 00 55 0E EE 02 84 31 2C 56 |.Y.1.49.U....1,V|
00000650: 28 58 2C 59 29 00 5C 0E F8 02 82 59 00 63 0E 02 |(X,Y).\....Y.c..|
00000660: 03 82 58 00 7E 0E 0C 03 CE 23 31 3A 99 22 4F 4B |..X.~....#1:."OK|
00000670: 2E 2E 2E 2E 2E 47 4F 54 20 44 41 54 41 22 00 8F |.....GOT DATA"..|
00000680: 0E 16 03 81 49 B2 31 A4 31 30 30 30 3A 82 49 00 |....I.1.1000:.I.|
00000690: 95 0E 1B 03 8E 00 B9 0E 22 03 85 22 93 57 48 41 |........"..".WHA|
000006A0: 54 20 4E 41 4D 45 20 46 4F 52 20 54 48 49 53 20 |T NAME FOR THIS |
000006B0: 46 49 4C 45 22 3B 46 4C 24 00 CA 0E 48 03 9F 31 |FILE";FL$...H..1|
000006C0: 2C 31 2C 31 2C 28 46 4C 24 29 00 D6 0E 52 03 81 |,1,1,(FL$)...R..|
000006D0: 58 B2 31 A4 31 32 00 E2 0E 5C 03 81 59 B2 31 A4 |X.1.12...\..Y.1.|
000006E0: 34 39 00 F0 0E 66 03 98 31 2C 56 28 58 2C 59 29 |49...f..1,V(X,Y)|
000006F0: 00 F7 0E 70 03 82 59 00 FE 0E 7A 03 82 58 00 1D |...p..Y...z..X..|
00000700: 0F 84 03 CE 23 31 3A 99 22 4F 4B 2E 2E 2E 2E 2E |....#1:."OK.....|
00000710: 44 41 54 41 20 4F 4E 20 54 41 50 45 22 00 2E 0F |DATA ON TAPE"...|
00000720: 8E 03 81 49 B2 31 A4 31 30 30 30 3A 82 49 00 34 |...I.1.1000:.I.4|
00000730: 0F 98 03 8E 00 4F 0F AC 03 99 22 11 05 20 20 22 |.....O....".. "|
00000740: B8 28 41 29 22 42 59 54 45 53 20 46 52 45 45 00 |.(A)"BYTES FREE.|
00000750: 60 0F B6 03 81 49 B2 31 A4 31 30 30 30 3A 82 49 |`....I.1.1000:.I|
00000760: 00 66 0F C0 03 8E 00 71 0F E8 03 99 22 93 22 3A |.f.....q....".":|
00000770: 99 00 8F 0F F2 03 85 22 57 48 49 43 48 20 43 4F |......."WHICH CO|
00000780: 4C 55 4D 4E 20 28 31 2D 31 32 29 22 3B 4B 24 00 |LUMN (1-12)";K$.|
00000790: AD 0F FC 03 43 4C B2 C5 28 4B 24 29 3A 8B 43 4C |....CL..(K$):.CL|
000007A0: B3 31 B0 43 4C B1 31 32 A7 31 30 30 30 00 E1 0F |.1.CL.12.1000...|
000007B0: 06 04 8B 43 4C B2 31 33 B0 43 4C B2 31 34 B0 43 |...CL.13.CL.14.C|
000007C0: 4C B2 31 35 A7 99 22 52 45 53 45 52 56 45 44 20 |L.15.."RESERVED |
000007D0: 46 4F 52 20 54 4F 54 41 4C 53 22 3A 89 31 30 31 |FOR TOTALS":.101|
000007E0: 30 00 01 10 10 04 85 22 11 48 4F 57 20 4D 41 4E |0......".HOW MAN|
000007F0: 59 20 52 4F 57 53 20 28 31 2D 35 30 29 22 3B 4B |Y ROWS (1-50)";K|
00000800: 24 00 1C 10 1A 04 4B B2 C5 28 4B 24 29 3A 8B 4B |$.....K..(K$):.K|
00000810: B1 35 30 B0 4B B3 31 A7 31 30 34 30 00 3F 10 24 |.50.K.1.1040.?.$|
00000820: 04 99 3A 99 22 52 4F 57 22 2C 22 43 55 52 FF 45 |..:."ROW","CUR.E|
00000830: 4E 54 22 2C 22 43 4F 4C 55 4D 4E 22 3B 43 4C 00 |NT","COLUMN";CL.|
00000840: 4A 10 2E 04 81 59 B2 31 A4 4B 00 77 10 38 04 99 |J....Y.1.K.w.8..|
00000850: 3A 99 59 2C 56 28 43 4C 2C 59 29 2C 3A 85 22 9D |:.Y,V(CL,Y),:.".|
00000860: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 56 3A 56 28 |..........";V:V(|
00000870: 43 4C 2C 59 29 B2 56 00 7E 10 42 04 82 59 00 B1 |CL,Y).V.~.B..Y..|
00000880: 10 4C 04 99 22 11 11 05 43 9A 20 46 4F 52 20 41 |.L.."...C. FOR A|
00000890: 4E 4F 54 48 45 52 20 43 4F 4C 55 4D 4E 20 20 20 |NOTHER COLUMN |
000008A0: 20 20 20 20 20 05 4D 9A 20 46 4F 52 20 4D 45 4E | .M. FOR MEN|
000008B0: 55 00 C5 10 56 04 A1 44 24 3A 8B 44 24 B2 22 22 |U...V..D$:.D$.""|
000008C0: A7 31 31 31 30 00 D6 10 60 04 8B 44 24 B2 22 43 |.1110...`..D$."C|
000008D0: 22 A7 31 30 30 30 00 DC 10 6A 04 8E 00 09 11 E4 |".1000...j......|
000008E0: 07 99 22 93 9F 59 4F 55 20 4D 41 59 20 43 48 4F |.."..YOU MAY CHO|
000008F0: 4F 53 45 20 41 4E 59 20 4F 46 20 54 48 45 20 46 |OSE ANY OF THE F|
00000900: 4F 4C 4C 4F 57 49 4E 47 22 00 27 11 EE 07 99 22 |OLLOWING".'...."|
00000910: 11 20 20 05 31 9A 20 53 55 4D 20 44 4F 57 4E 20 |. .1. SUM DOWN |
00000920: 43 4F 4C 55 4D 4E 53 00 44 11 F8 07 99 22 11 20 |COLUMNS.D....". |
00000930: 20 05 32 9A 20 53 55 4D 20 41 43 52 4F 53 53 20 | .2. SUM ACROSS |
00000940: 52 4F 57 53 00 66 11 02 08 99 22 11 20 20 05 33 |ROWS.f....". .3|
00000950: 9A 20 52 45 50 52 4F 44 55 43 45 20 41 4E 59 20 |. REPRODUCE ANY |
00000960: 43 4F 4C 55 4D 4E 00 91 11 0C 08 99 22 11 20 20 |COLUMN......". |
00000970: 05 34 9A 20 41 44 44 2D 4D 55 4C 54 2D 44 49 56 |.4. ADD-MULT-DIV|
00000980: 2D 53 55 42 20 41 54 20 41 4E 59 20 50 4F 49 4E |-SUB AT ANY POIN|
00000990: 54 00 C1 11 16 08 99 22 11 20 20 05 35 9A 20 41 |T......". .5. A|
000009A0: 56 45 52 41 47 45 20 41 43 52 4F 53 53 20 52 4F |VERAGE ACROSS RO|
000009B0: 57 53 20 28 44 4F 20 12 32 92 20 46 49 52 53 54 |WS (DO .2. FIRST|
000009C0: 29 00 E5 11 20 08 99 22 11 20 20 05 36 9A 20 4D |)... ..". .6. M|
000009D0: 41 4B 45 20 52 4F 57 20 25 20 4F 46 20 42 41 53 |AKE ROW % OF BAS|
000009E0: 45 20 52 4F 57 00 0F 12 2A 08 99 22 11 20 20 05 |E ROW...*..". .|
000009F0: 37 9A 20 4D 41 4B 45 20 43 4F CC 55 4D 4E 20 25 |7. MAKE CO.UMN %|
00000A00: 20 4F 46 20 42 41 53 45 20 43 4F 4C 55 4D 4E 00 | OF BASE COLUMN.|
00000A10: 33 12 34 08 99 22 11 20 20 05 38 9A 20 53 55 4D |3.4..". .8. SUM|
00000A20: 20 49 4E 44 49 56 49 44 55 41 4C 20 43 4F 4C 55 | INDIVIDUAL COLU|
00000A30: 4D 4E 53 00 57 12 3E 08 99 22 11 20 20 05 39 9A |MNS.W.>..". .9.|
00000A40: 20 53 45 52 49 45 53 20 4F 46 20 43 41 4C 43 55 | SERIES OF CALCU|
00000A50: 4C 41 54 49 4F 4E 53 00 73 12 48 08 99 22 11 20 |LATIONS.s.H..". |
00000A60: 20 05 4D 9A 20 52 45 54 55 52 4E 20 54 4F 20 4D | .M. RETURN TO M|
00000A70: 45 4E 55 00 8D 12 49 08 99 22 9F 20 20 20 20 A3 |ENU...I..". .|
00000A80: A3 A3 A3 A3 A3 20 A3 A3 20 A3 A3 A3 A3 00 A2 12 |..... .. .......|
00000A90: AC 0D 99 22 11 57 48 49 43 48 20 4F 4E 45 20 3F |...".WHICH ONE ?|
00000AA0: 22 3B 00 BF 12 B6 0D 92 31 39 38 2C 37 3A A1 41 |";......198,7:.A|
00000AB0: 4E 24 3A 8B 41 4E 24 B2 22 22 A7 33 35 31 30 00 |N$:.AN$."".3510.|
00000AC0: CE 12 BB 0D 8B 41 4E 24 B2 22 4D 22 A7 8E 00 0A |.....AN$."M"....|
00000AD0: 13 C0 0D 91 C5 28 41 4E 24 29 8D 34 30 30 31 2C |.....(AN$).4001,|
00000AE0: 35 30 31 30 2C 36 30 31 30 2C 37 30 31 30 2C 38 |5010,6010,7010,8|
00000AF0: 30 31 30 2C 39 30 31 30 2C 31 30 30 31 30 2C 31 |010,9010,10010,1|
00000B00: 31 30 31 30 2C 31 31 35 31 30 00 14 13 CA 0D 89 |1010,11510......|
00000B10: 32 30 32 30 00 55 13 A1 0F 99 22 93 44 4F 20 59 |2020.U....".DO Y|
00000B20: 4F 55 20 57 49 53 48 20 54 4F 20 44 45 53 49 47 |OU WISH TO DESIG|
00000B30: 4E 41 54 45 20 54 48 45 20 52 4F 57 53 20 20 20 |NATE THE ROWS |
00000B40: 20 20 20 20 20 20 11 54 4F 20 42 45 20 53 55 4D | .TO BE SUM|
00000B50: 4D 45 44 3F 22 00 69 13 A2 0F A1 41 24 3A 8B 41 |MED?".i....A$:.A|
00000B60: 24 B2 22 22 A7 34 30 30 32 00 86 13 A3 0F 8B 41 |$."".4002......A|
00000B70: 24 B2 22 4E 22 A7 53 31 B2 31 3A 53 32 B2 34 39 |$."N".S1.1:S2.49|
00000B80: 3A 89 34 30 30 35 00 C2 13 A4 0F 85 22 11 46 49 |:.4005......".FI|
00000B90: 52 53 54 20 52 4F 57 22 3B 53 31 3A 85 22 11 4C |RST ROW";S1:.".L|
00000BA0: 41 53 54 20 52 4F 57 22 3B 53 32 3A 8B 53 31 B1 |AST ROW";S2:.S1.|
00000BB0: 53 32 B0 53 31 B3 30 B0 53 32 B1 34 39 A7 34 30 |S2.S1.0.S2.49.40|
00000BC0: 30 31 00 F1 13 A5 0F 99 43 52 24 3B 43 54 24 3A |01......CR$;CT$:|
00000BD0: 99 22 11 53 55 4D 20 57 49 4C 4C 20 42 45 20 53 |.".SUM WILL BE S|
00000BE0: 54 4F 52 45 44 20 49 4E 20 52 4F 57 22 53 32 AA |TORED IN ROW"S2.|
00000BF0: 31 00 FD 13 AA 0F 81 58 B2 31 A4 31 34 00 0D 14 |1......X.1.14...|
00000C00: B4 0F 56 28 58 2C 53 32 AA 31 29 B2 30 00 14 14 |..V(X,S2.1).0...|
00000C10: BE 0F 82 58 00 20 14 C8 0F 81 58 B2 31 A4 31 34 |...X. ....X.1.14|
00000C20: 00 2D 14 D2 0F 81 59 B2 53 31 A4 53 32 00 4C 14 |.-....Y.S1.S2.L.|
00000C30: DC 0F 56 28 58 2C 53 32 AA 31 29 B2 56 28 58 2C |..V(X,S2.1).V(X,|
00000C40: 53 32 AA 31 29 AA 56 28 58 2C 59 29 00 53 14 E6 |S2.1).V(X,Y).S..|
00000C50: 0F 82 59 00 5A 14 F0 0F 82 58 00 60 14 FA 0F 8E |..Y.Z....X.`....|
00000C60: 00 90 14 92 13 99 43 52 24 3B 43 54 24 3A 99 22 |......CR$;CT$:."|
00000C70: 11 53 55 4D 20 57 49 4C 4C 20 42 45 20 53 54 4F |.SUM WILL BE STO|
00000C80: 52 45 44 20 49 4E 20 43 4F 4C 55 4D 4E 20 31 33 |RED IN COLUMN 13|
00000C90: 00 9C 14 9C 13 81 59 B2 31 A4 34 38 00 AA 14 A6 |......Y.1.48....|
00000CA0: 13 56 28 31 33 2C 59 29 B2 30 00 B1 14 B0 13 82 |.V(13,Y).0......|
00000CB0: 59 00 BD 14 BA 13 81 59 B2 31 A4 34 38 00 C9 14 |Y......Y.1.48...|
00000CC0: C4 13 81 58 B2 31 A4 31 32 00 E4 14 CE 13 56 28 |...X.1.12.....V(|
00000CD0: 31 33 2C 59 29 B2 56 28 31 33 2C 59 29 AA 56 28 |13,Y).V(13,Y).V(|
00000CE0: 58 2C 59 29 00 EB 14 D8 13 82 58 00 F2 14 E2 13 |X,Y)......X.....|
00000CF0: 82 59 00 F8 14 EC 13 8E 00 1A 15 7A 17 85 22 93 |.Y.........z..".|
00000D00: 44 55 50 4C 49 43 41 54 45 20 57 48 49 43 48 20 |DUPLICATE WHICH |
00000D10: 43 4F 4C 55 4D 4E 22 3B 43 58 00 3B 15 7F 17 85 |COLUMN";CX.;....|
00000D20: 22 11 50 55 54 20 49 54 20 49 4E 20 57 48 49 43 |".PUT IT IN WHIC|
00000D30: 48 20 43 4F 4C 55 4D 4E 22 3B 58 00 47 15 8E 17 |H COLUMN";X.G...|
00000D40: 81 59 B2 31 A4 35 30 00 5A 15 98 17 56 28 58 2C |.Y.1.50.Z...V(X,|
00000D50: 59 29 B2 56 28 43 58 2C 59 29 00 61 15 A2 17 82 |Y).V(CX,Y).a....|
00000D60: 59 00 67 15 AC 17 8E 00 6F 15 62 1B 59 B2 30 00 |Y.g.....o.b.Y.0.|
00000D70: A5 15 6C 1B 99 22 93 11 12 41 92 44 44 20 20 20 |..l.."...A.DD |
00000D80: 20 12 4D 92 55 4C 54 49 50 4C 59 20 20 20 20 12 | .M.ULTIPLY .|
00000D90: 53 92 55 42 54 52 41 43 54 20 20 20 20 12 44 92 |S.UBTRACT .D.|
00000DA0: 49 56 49 44 45 00 B9 15 76 1B A1 41 24 3A 8B 41 |IVIDE...v..A$:.A|
00000DB0: 24 B2 22 22 A7 37 30 33 30 00 DA 15 80 1B 81 58 |$."".7030......X|
00000DC0: B2 31 A4 34 3A 8B 41 24 B2 CA 28 22 41 4D 53 44 |.1.4:.A$..("AMSD|
00000DD0: 22 2C 58 2C 31 29 A7 59 B2 58 00 FD 15 8A 1B 82 |",X,1).Y.X......|
00000DE0: 3A 91 59 89 37 30 37 30 2C 37 31 33 30 2C 37 31 |:.Y.7070,7130,71|
00000DF0: 39 30 2C 37 32 35 30 3A 89 37 30 33 30 00 16 16 |90,7250:.7030...|
00000E00: 9E 1B 85 22 93 41 4D 4F 55 4E 54 20 54 4F 20 41 |...".AMOUNT TO A|
00000E10: 44 44 22 3B 41 44 00 2A 16 A8 1B 85 22 57 48 41 |DD";AD.*...."WHA|
00000E20: 54 20 43 4F 4C 20 23 22 3B 58 00 3E 16 B2 1B 85 |T COL #";X.>....|
00000E30: 22 57 48 41 54 20 52 4F 57 20 23 22 3B 59 00 53 |"WHAT ROW #";Y.S|
00000E40: 16 BC 1B 56 28 58 2C 59 29 B2 56 28 58 2C 59 29 |...V(X,Y).V(X,Y)|
00000E50: AA 41 44 00 5D 16 C6 1B 89 37 39 39 39 00 7E 16 |.AD.]....7999.~.|
00000E60: DA 1B 85 22 93 41 4D 4F 55 4E 54 20 54 4F 20 4D |...".AMOUNT TO M|
00000E70: 55 4C 54 49 50 4C 59 20 42 59 22 3B 4D 4C 00 92 |ULTIPLY BY";ML..|
00000E80: 16 E4 1B 85 22 57 48 41 54 20 43 4F 4C 20 23 22 |...."WHAT COL #"|
00000E90: 3B 58 00 A6 16 EE 1B 85 22 57 48 41 54 20 52 4F |;X......"WHAT RO|
00000EA0: 57 20 23 22 3B 59 00 BB 16 F8 1B 56 28 58 2C 59 |W #";Y.....V(X,Y|
00000EB0: 29 B2 56 28 58 2C 59 29 AC 4D 4C 00 C5 16 02 1C |).V(X,Y).ML.....|
00000EC0: 89 37 39 39 39 00 E3 16 16 1C 85 22 93 41 4D 4F |.7999......".AMO|
00000ED0: 55 4E 54 20 54 4F 20 53 55 42 54 52 41 43 54 22 |UNT TO SUBTRACT"|
00000EE0: 3B 53 42 00 F7 16 20 1C 85 22 57 48 41 54 20 43 |;SB... .."WHAT C|
00000EF0: 4F 4C 20 23 22 3B 58 00 0B 17 2A 1C 85 22 57 48 |OL #";X...*.."WH|
00000F00: 41 54 20 52 4F 57 20 23 22 3B 59 00 20 17 34 1C |AT ROW #";Y. .4.|
00000F10: 56 28 58 2C 59 29 B2 56 28 58 2C 59 29 AB 53 42 |V(X,Y).V(X,Y).SB|
00000F20: 00 2A 17 3E 1C 89 37 39 39 39 00 49 17 52 1C 85 |.*.>..7999.I.R..|
00000F30: 22 93 41 4D 4F 55 4E 54 20 54 4F 20 44 49 56 49 |".AMOUNT TO DIVI|
00000F40: 44 45 20 42 59 22 3B 44 56 00 5D 17 5C 1C 85 22 |DE BY";DV.].\.."|
00000F50: 57 48 41 54 20 43 4F 4C 20 23 22 3B 58 00 71 17 |WHAT COL #";X.q.|
00000F60: 66 1C 85 22 57 48 41 54 20 52 4F 57 20 23 22 3B |f.."WHAT ROW #";|
00000F70: 59 00 86 17 70 1C 56 28 58 2C 59 29 B2 56 28 58 |Y...p.V(X,Y).V(X|
00000F80: 2C 59 29 AD 44 56 00 A8 17 7A 1C 56 28 58 2C 59 |,Y).DV...z.V(X,Y|
00000F90: 29 B2 B5 28 56 28 58 2C 59 29 AC 31 30 30 30 AA |)..(V(X,Y).1000.|
00000FA0: 2E 35 29 AD 31 30 30 30 00 B2 17 84 1C 89 37 39 |.5).1000......79|
00000FB0: 39 39 00 B8 17 3F 1F 8E 00 DF 17 4A 1F 85 22 93 |99...?.....J..".|
00000FC0: 48 4F 57 20 4D 41 4E 59 20 49 54 45 4D 53 20 49 |HOW MANY ITEMS I|
00000FD0: 4E 20 45 41 43 48 20 52 4F 57 22 3B 41 56 45 00 |N EACH ROW";AVE.|
00000FE0: 13 18 54 1F 99 41 52 24 3B 43 54 24 3A 99 22 11 |..T..AR$;CT$:.".|
00000FF0: 41 56 45 52 41 47 45 20 57 49 4C 4C 20 42 45 20 |AVERAGE WILL BE |
00001000: 53 54 4F 52 45 44 20 49 4E 20 43 4F 4C 55 4D 4E |STORED IN COLUMN|
00001010: 20 31 34 00 1F 18 5E 1F 81 59 B2 31 A4 35 30 00 | 14...^..Y.1.50.|
00001020: 33 18 63 1F 8B 56 28 31 33 2C 59 29 B2 30 A7 38 |3.c..V(13,Y).0.8|
00001030: 30 35 30 00 6B 18 68 1F 56 28 31 34 2C 59 29 B2 |050.k.h.V(14,Y).|
00001040: 56 28 31 33 2C 59 29 AD 41 56 45 3A 56 28 31 34 |V(13,Y).AVE:V(14|
00001050: 2C 59 29 B2 B5 28 56 28 31 34 2C 59 29 AC 31 30 |,Y)..(V(14,Y).10|
00001060: 30 30 AA 2E 35 29 AD 31 30 30 30 00 72 18 72 1F |00..5).1000.r.r.|
00001070: 82 59 00 78 18 7C 1F 8E 00 95 18 32 23 85 22 93 |.Y.x.|.....2#.".|
00001080: 57 48 49 43 48 20 49 53 20 42 41 53 45 20 52 4F |WHICH IS BASE RO|
00001090: 57 22 3B 42 52 00 C4 18 3C 23 85 22 11 57 48 49 |W";BR...<#.".WHI|
000010A0: 43 48 20 49 53 20 52 4F 57 20 46 4F 52 20 50 45 |CH IS ROW FOR PE|
000010B0: 52 43 45 4E 54 41 47 45 53 22 3B 59 3A 8B 42 52 |RCENTAGES";Y:.BR|
000010C0: B2 59 A7 8E 00 D0 18 46 23 81 58 B2 31 A4 31 33 |.Y.....F#.X.1.13|
000010D0: 00 E4 18 5F 23 8B 56 28 58 2C 42 52 29 B2 30 A7 |..._#.V(X,BR).0.|
000010E0: 39 30 37 35 00 1C 19 64 23 56 28 58 2C 59 29 B2 |9075...d#V(X,Y).|
000010F0: 56 28 58 2C 59 29 AD 56 28 58 2C 42 52 29 3A 56 |V(X,Y).V(X,BR):V|
00001100: 28 58 2C 5B FF FF FF FF FF FF E3 FF FF FF FF FF |(X,[............|
00001110: FF FF FF FF FF FF FF FF FB FF FF FF FF FF 73 FF |..............s.|
00001120: FF FF E2 FF FF 73 43 FF FF FF D2 72 7F FF FF FF |.....sC....r....|
00001130: FF FF FF D2 FF FF FF D2 FF FF FF FF FF FF FF FF |................|
00001140: D0 FF EE DA DD FF FF FF E2 FF 56 73 FF FF FF FF |..........Vs....|
00001150: 66 FF FF D2 FF FF FF D2 FF FF FF D0 FF EE DA DD |f...............|
00001160: FF FF D0 FF FF FF FF FF FF FF FF FF FF D4 FF FF |................|
00001170: FF FF E3 FF 36 E3 FF FF E3 F4 FF FF 34 73 FF FF |....6.......4s..|
00001180: 26 FF FF FF FF FF FF FF 2A 72 D5 FF 36 FF FF FF |&.......*r..6...|
00001190: E3 FF FF FF FF FF F5 FF FF FF FF FF FF FF 72 FF |..............r.|
000011A0: FF FF FF E3 FF FF FF FF FF FF E3 FF FF FF FA FF |................|
000011B0: FF FF E3 FF FF FF FF FF FF E3 FF FF FF FF FF FF |................|
000011C0: FF FF E3 FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
000011D0: FB FF FF FF FF B6 72 FF FF FF FF FF E1 19 60 27 |......r.......`'|
000011E0: 8E 00 0A 1A 02 2B 99 22 93 57 48 49 43 48 20 43 |.....+.".WHICH C|
000011F0: 4F 4C 55 4D 4E 20 44 4F 20 59 4F 55 20 57 41 4E |OLUMN DO YOU WAN|
00001200: 54 20 54 4F 20 53 55 4D 22 3B 00 24 1A 0C 2B 85 |T TO SUM";.$..+.|
00001210: 43 41 3A 8B 43 41 B3 31 B0 43 41 B1 31 35 A7 31 |CA:.CA.1.CA.15.1|
00001220: 31 30 32 30 00 50 1A 16 2B 99 22 11 12 57 92 48 |1020.P..+."..W.H|
00001230: 4F 4C 45 20 43 4F 4C 55 4D 4E 20 4F 52 20 12 50 |OLE COLUMN OR .P|
00001240: 92 41 52 54 20 4F 46 20 43 4F 4C 55 4D 4E 3F 22 |.ART OF COLUMN?"|
00001250: 00 72 1A 20 2B A1 59 4E 24 3A 8B 59 4E 24 B3 B1 |.r. +.YN$:.YN$..|
00001260: 22 50 22 AF 59 4E 24 B3 B1 22 57 22 A7 31 31 30 |"P".YN$.."W".110|
00001270: 34 30 00 8D 1A 2A 2B 8B 59 4E 24 B2 22 50 22 A7 |40...*+.YN$."P".|
00001280: 8D 31 31 32 31 30 3A 89 31 31 30 36 35 00 9C 1A |.11210:.11065...|
00001290: 34 2B 53 31 B2 31 3A 53 32 B2 34 39 00 AD 1A 39 |4+S1.1:S2.49...9|
000012A0: 2B 56 28 43 41 2C 53 32 AA 31 29 B2 30 00 BA 1A |+V(CA,S2.1).0...|
000012B0: 3E 2B 81 59 B2 53 31 A4 53 32 00 DC 1A 48 2B 56 |>+.Y.S1.S2...H+V|
000012C0: 28 43 41 2C 53 32 AA 31 29 B2 56 28 43 41 2C 53 |(CA,S2.1).V(CA,S|
000012D0: 32 AA 31 29 AA 56 28 43 41 2C 59 29 00 E3 1A 52 |2.1).V(CA,Y)...R|
000012E0: 2B 82 59 00 E9 1A 5C 2B 8E 00 11 1B CA 2B 85 22 |+.Y...\+.....+."|
000012F0: 11 52 4F 57 20 4F 46 20 46 49 52 53 54 20 49 54 |.ROW OF FIRST IT|
00001300: 45 4D 20 49 4E 20 54 48 45 20 53 55 4D 22 3B 53 |EM IN THE SUM";S|
00001310: 31 00 50 1B CF 2B 85 22 11 52 4F 57 20 4F 46 20 |1.P..+.".ROW OF |
00001320: 4C 41 53 54 20 49 54 45 4D 20 49 4E 20 54 48 45 |LAST ITEM IN THE|
00001330: 20 53 55 4D 22 3B 53 32 20 8B 53 31 B1 53 32 B0 | SUM";S2 .S1.S2.|
00001340: 53 30 13 30 B0 53 32 B1 34 28 FF 31 2F 99 8F 9C |S0.0.S2.4(.1/...|
00001350: FF FF FF E7 8C FF FF FF FF AB FF FF 9D FF 98 FF |................|
00001360: FF FF FF FF FF FF 70 7B FF FF FF 75 FF 20 43 FF |......p{...u. C.|
00001370: FF FF EE FF FF FF D2 D0 FF FF FF FF C4 16 FF FF |................|
00001380: FF FF 26 3A ED FF 30 0B 64 FF AE FF FF E6 FF FF |..&:..0.d.......|
00001390: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
000013A0: FF FF FF E2 08 81 CF 5C 80 17 8C B9 B6 8A 58 FF |.......\......X.|
000013B0: A8 B6 8B 40 00 01 0E C4 C4 CE 40 C8 81 FF 5C 8E |...@......@...\.|
000013C0: 1F FF FE FF B9 B6 8A FF 44 C1 C8 FE FF B9 B6 8A |........D.......|
000013D0: FF C4 FF 0E C4 C4 CE 41 30 00 EF 1B 0A 2D 4E 4D |.......A0....-NM|
000013E0: B2 C5 28 4E 4D 24 29 3A 8B 4E 4D B2 30 A7 8E 00 |..(NM$):.NM.0...|
000013F0: 3B 1C 14 2D 99 22 91 91 91 91 91 91 45 4E 54 45 |;..-."......ENTE|
00001400: 52 20 4F 50 45 52 41 54 49 4F 4E 53 20 49 4E 20 |R OPERATIONS IN |
00001410: 54 48 45 20 4F 52 44 45 52 20 59 4F 55 20 57 41 |THE ORDER YOU WA|
00001420: 4E 54 20 20 54 48 45 4D 20 54 4F 20 42 45 20 50 |NT THEM TO BE P|
00001430: 45 52 46 4F 52 4D 45 44 2E 11 22 00 47 1C 1E 2D |ERFORMED..".G..-|
00001440: 81 49 B2 31 A4 4E 4D 00 78 1C 28 2D 99 22 45 4E |.I.1.NM.x.(-."EN|
00001450: 54 45 52 20 4F 50 45 52 41 54 49 4F 4E 20 23 22 |TER OPERATION #"|
00001460: 49 22 9D 20 20 20 20 20 20 20 20 20 20 20 9D 9D |I". ..|
00001470: 9D 9D 9D 9D 9D 9D 22 3B 00 A3 1C 32 2D A1 41 24 |......";...2-.A$|
00001480: 3A 4F 50 28 49 29 B2 C5 28 41 24 29 3A 8B 4F 50 |:OP(I)..(A$):.OP|
00001490: 28 49 29 B3 31 B0 4F 50 28 49 29 B1 38 A7 31 31 |(I).1.OP(I).8.11|
000014A0: 35 37 30 00 AE 1C 37 2D 99 4F 50 28 49 29 00 B5 |570...7-.OP(I)..|
000014B0: 1C 3C 2D 82 49 00 C1 1C 46 2D 81 49 B2 31 A4 4E |.<-.I...F-.I.1.N|
000014C0: 4D 00 F6 1C 50 2D 91 4F 50 28 49 29 8D 34 30 30 |M...P-.OP(I).400|
000014D0: 31 2C 35 30 31 30 2C 36 30 31 30 2C 37 30 31 30 |1,5010,6010,7010|
000014E0: 2C 38 30 31 30 2C 39 30 31 30 2C 31 30 30 31 30 |,8010,9010,10010|
000014F0: 2C 31 31 30 31 30 00 FD 1C 5A 2D 82 49 00 03 1D |,11010...Z-.I...|
00001500: 64 2D 8E 00 44 1D EA 2E 99 22 93 4D 41 4B 45 20 |d-..D....".MAKE |
00001510: 53 55 52 45 20 50 52 49 4E 54 45 52 20 49 53 20 |SURE PRINTER IS |
00001520: 4F 4E 2E 22 3A 99 22 11 11 2E 2E 2E 48 49 54 20 |ON.":.".....HIT |
00001530: 41 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 |ANY KEY WHEN REA|
00001540: 44 59 2E 22 00 59 1D F4 2E A1 41 24 3A 8B 41 24 |DY.".Y....A$:.A$|
00001550: B2 22 22 A7 31 32 30 32 30 00 92 1D FE 2E 99 22 |."".12020......"|
00001560: 11 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |.DO YOU WANT TO |
00001570: 44 45 53 49 47 4E 41 54 45 20 54 48 45 20 52 4F |DESIGNATE THE RO|
00001580: 57 53 20 54 4F 20 42 45 20 50 52 49 4E 54 48 44 |WS TO BE PRINTHD|
00001590: 3F 22 00 A7 1D 08 2F A1 41 24 3A 8B 41 24 B2 22 |?"..../.A$:.A$."|
000015A0: 22 A7 31 32 30 34 30 00 C5 1D 12 2F 8B 41 24 B2 |".12040..../.A$.|
000015B0: 22 4E 22 A7 53 31 B2 31 3A 53 32 B2 35 30 3A 89 |"N".S1.1:S2.50:.|
000015C0: 31 32 30 37 30 00 05 1E 1C 2F 85 22 46 49 52 53 |12070..../."FIRS|
000015D0: 54 20 52 4F 57 20 54 4F 20 42 45 20 50 52 49 4E |T ROW TO BE PRIN|
000015E0: 54 45 44 22 3B 53 31 3A 85 22 11 4C 41 53 54 20 |TED";S1:.".LAST |
000015F0: 52 4F 57 20 54 4F 20 42 45 20 50 52 49 4E 54 45 |ROW TO BE PRINTE|
00001600: 44 22 3B 53 32 00 23 1E 26 2F 53 50 24 B2 22 20 |D";S2.#.&/SP$." |
00001610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001620: 20 20 22 00 2C 1E 30 2F 9F 34 2C 34 00 69 1E 44 | ".,.0/.4,4.i.D|
00001630: 2F 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 43 |/.4," C|
00001640: 4F 4C 55 4D 4E 53 20 20 20 20 22 3B 3A 81 49 B2 |OLUMNS ";:.I.|
00001650: 31 A4 35 3A 98 34 2C 49 3B 22 20 20 20 20 20 20 |1.5:.4,I;" |
00001660: 20 20 20 20 20 22 3B 3A 82 00 70 1E 4E 2F 98 34 | ";:..p.N/.4|
00001670: 00 7D 1E 58 2F 81 59 B2 53 31 A4 53 32 00 9A 1E |.}.X/.Y.S1.S2...|
00001680: 62 2F 98 34 2C C8 28 22 52 4F 57 22 AA C4 28 59 |b/.4,.("ROW"..(Y|
00001690: 29 AA 53 50 24 2C 31 30 29 3B 00 C3 1E 67 2F 81 |).SP$,10);...g/.|
000016A0: 49 B2 31 A4 35 3A 98 34 2C C9 28 53 50 24 AA C4 |I.1.5:.4,.(SP$..|
000016B0: 28 56 28 49 2C 59 29 29 2C 31 34 29 3B 3A 82 49 |(V(I,Y)),14);:.I|
000016C0: 3A 98 34 00 D0 1E 6C 2F 82 59 3A 98 34 3A 98 34 |:.4...l/.Y:.4:.4|
000016D0: 00 0E 1F 76 2F 98 34 2C 22 20 20 20 20 20 20 20 |...v/.4," |
000016E0: 20 20 20 43 4F 4C 55 4D 4E 53 20 20 20 20 22 3B | COLUMNS ";|
000016F0: 3A 81 49 B2 36 A4 31 30 3A 98 34 2C 49 3B 22 20 |:.I.6.10:.4,I;" |
00001700: 20 20 20 20 20 20 20 20 20 20 22 3B 3A 82 00 15 | ";:...|
00001710: 1F 7B 2F 98 34 00 22 1F 80 2F 81 59 B2 53 31 A4 |.{/.4."../.Y.S1.|
00001720: 53 32 00 3F 1F 8A 2F 98 34 2C C8 28 22 52 4F 57 |S2.?../.4,.("ROW|
00001730: 22 AA C4 28 59 29 AA 53 50 24 2C 31 30 29 3B 00 |"..(Y).SP$,10);.|
00001740: 69 1F 8F 2F 81 49 B2 36 A4 31 30 3A 98 34 2C C9 |i../.I.6.10:.4,.|
00001750: 28 53 50 24 AA C4 28 56 28 49 2C 59 29 29 2C 31 |(SP$..(V(I,Y)),1|
00001760: 34 29 3B 3A 82 49 3A 98 34 00 76 1F 94 2F 82 59 |4);:.I:.4.v../.Y|
00001770: 3A 98 34 3A 98 34 00 B4 1F 9E 2F 98 34 2C 22 20 |:.4:.4..../.4," |
00001780: 20 20 20 20 20 20 20 20 20 43 4F 4C 55 4D 4E 53 | COLUMNS|
00001790: 20 20 20 20 22 3B 3A 81 49 B2 31 31 A4 31 35 3A | ";:.I.11.15:|
000017A0: 98 34 2C 49 3B 22 20 20 20 20 20 20 20 20 20 20 |.4,I;" |
000017B0: 22 3B 3A 82 00 BB 1F A3 2F 98 34 00 C8 1F A8 2F |";:...../.4..../|
000017C0: 81 59 B2 53 31 A4 53 32 00 E5 1F B2 2F 98 34 2C |.Y.S1.S2..../.4,|
000017D0: C8 28 22 52 4F 57 22 AA C4 28 59 29 AA 53 50 24 |.("ROW"..(Y).SP$|
000017E0: 2C 31 30 29 3B 00 10 20 B7 2F 81 49 B2 31 31 A4 |,10);.. ./.I.11.|
000017F0: 31 35 3A 98 34 2C C9 28 53 50 24 AA C4 28 56 28 |15:.4,.(SP$..(V(|
00001800: 49 2C 59 29 29 2C 31 34 29 3B 3A 82 49 3A 98 34 |I,Y)),14);:.I:.4|
00001810: 00 17 20 BC 2F 82 59 00 20 20 C6 2F 98 34 3A 8E |.. ./.Y. ./.4:.|
00001820: 00 00 00 |... |
..L...."......ADAPTED BY STEVEN DARNOLD,
P.O. BOX 201 ALEXANDRA, NEW ZEALAND.B..
..53280,6:.53281,6......V(15,60),X$(50),
V$(15,60):CR$.".":CT$.". ******* CALCULA
TING *******."......"...C O L U M N
C A L C U L A T O R":C%.1:R%.1......"..
. .V.IEW COLUMNS......". .E.NTER D
ATA.8.(..". .D.O CALCULATIONS.Q.2..".
.Z.ERO MATRIX.Q.<..". .G.ET DATA
FROM TAPE...F..". .S.AVE DATA ON TAPE
...P..". .M.EMORY CHECK.N.U..". .P
.RINT DATA ON PRINTER"..._.."...WHAT IS
YOUR CHOICE ?":Y.0...`..AN$:.AN$."".96.,
.A..X.1.8:.AN$.J("VEDZGSMP",X,1).Y.X.].B
..:.Y.230,1000,2020,120,702,802,940,1201
0:.10.N.X..CR$:.X.1.15.Z....Y.1.50.....V
(X,Y).0......Y... ..X............".ENTER
COLUMN (1 TO 13):";C%.Y.H..C%.1.C%.13..
".";:.190...R..:.".ENTER ROW (1 TO 31):"
;R%......R%.1.R%.31.210......".";:.500.*
...."...";.:....Y.R%.R%.19.D.....9);.S..
..X.C%.C%.2.D...X$.D(V(X,Y)).X."...10.C(
X$));X$;.~.,.....6..G(13);...@...B.E.."
";...J..".U.P .D.OWN .L.EFT .R.IGH
T .J.UMP .M.ENU";...T..C$:.C$."".340
.6.H..C$."U".R%.R%.10:.G(13);".";:.220.\
.|..C$."D".R%.R%.10:.G(13);".";:.220.U..
..C$."L".C%.C%.2:.470......C$."R".C%.C%.
2:.470......C$."J".190...B..C$."M".10...
L..340.S.V..C%.1.C%.13..G(13);:.190.....
.230.......9);......I.1.3......".. CO
LUMN.";............G(13);.9);.,.&..I.C%.
C%.2.@.0.S%.7:.I.10.S%.8.X.:...S%);".";D
(I);".";.^.D...J.N..G(13);.Z.X..I.R%.R%.
19...B.S$."":.I.10.S$." "...L...2);"..RO
W"S$D(I);".."...V..............".WHAT IS
NAME OF FILE YOU WANT";FL$...F..".LOOKI
NG FOR ";FL$...P..1,1,0,(FL$)./.U.."FOUN
D ";FL$;" .....LOADING".;.Z..X.1.12.G...
.Y.1.49.U....1,V(X,Y).\....Y.C....X.~...
N#1:."OK.....GOT DATA"......I.1.1000:.I.
........"..".WHAT NAME FOR THIS FILE";FL
$.J.H..1,1,1,(FL$).V.R..X.1.12...\..Y.1.
49...F..1,V(X,Y)...P..Y...Z..X.....N#1:.
"OK.....DATA ON TAPE"......I.1.1000:.I.4
.....O....".. ".(A)"BYTES FREE.`....I.1
.1000:.I.F.....Q....".":......."WHICH CO
LUMN (1-12)";K$.....CL.E(K$):.CL.1.CL.12
.1000......CL.13.CL.14.CL.15.."RESERVED
FOR TOTALS":.1010......".HOW MANY ROWS (
1-50)";K$.....K.E(K$):.K.50.K.1.1040.?.$
..:."ROW","CUR.ENT","COLUMN";CL.J....Y.1
.K.W.8..:.Y,V(CL,Y),:."...........";V:V(
CL,Y).V.~.B..Y...L.."...C. FOR ANOTHER C
OLUMN .M. FOR MENU.E.V..D$:.D$.""
.1110.V.`..D$."C".1000...J........"..YOU
MAY CHOOSE ANY OF THE FOLLOWING".'...."
. .1. SUM DOWN COLUMNS.D....". .2. SUM
ACROSS ROWS.F....". .3. REPRODUCE ANY
COLUMN......". .4. ADD-MULT-DIV-SUB AT
ANY POINT.A....". .5. AVERAGE ACROSS RO
WS (DO .2. FIRST)... ..". .6. MAKE ROW
% OF BASE ROW...*..". .7. MAKE COLUMN %
OF BASE COLUMN.3.4..". .8. SUM INDIVID
UAL COLUMNS.W.>..". .9. SERIES OF CALCU
LATIONS.S.H..". .M. RETURN TO MENU...I.
.". ...... .. ..........".WHICH ONE ?
";......198,7:.AN$:.AN$."".3510.N....AN$
."M"........E(AN$).4001,5010,6010,7010,8
010,9010,10010,11010,11510...J..2020.U..
..".DO YOU WISH TO DESIGNATE THE ROWS
.TO BE SUMMED?".I....A$:.A$."".400
2......A$."N".S1.1:S2.49:.4005.B....".FI
RST ROW";S1:.".LAST ROW";S2:.S1.S2.S1.0.
S2.49.4001......CR$;CT$:.".SUM WILL BE S
TORED IN ROW"S2.1......X.1.14.....V(X,S2
.1).0......X. .H..X.1.14.-.R..Y.S1.S2.L.
..V(X,S2.1).V(X,S2.1).V(X,Y).S....Y.Z...
.X.`..........CR$;CT$:.".SUM WILL BE STO
RED IN COLUMN 13......Y.1.48.....V(13,Y)
.0......Y......Y.1.48.I.D..X.1.12...N.V(
13,Y).V(13,Y).V(X,Y)...X..X......Y......
...Z..".DUPLICATE WHICH COLUMN";CX.;...
".PUT IT IN WHICH COLUMN";X.G....Y.1.50.
Z...V(X,Y).V(CX,Y).A....Y.G.....O.B.Y.0.
..L.."...A.DD .M.ULTIPLY .S.UBTRAC
T .D.IVIDE...V..A$:.A$."".7030.Z....X
.1.4:.A$.J("AMSD",X,1).Y.X......:.Y.7070
,7130,7190,7250:.7030......".AMOUNT TO A
DD";AD.*...."WHAT COL #";X.>...."WHAT RO
W #";Y.S...V(X,Y).V(X,Y).AD.].F..7999.~.
Z..".AMOUNT TO MULTIPLY BY";ML......"WHA
T COL #";X......"WHAT ROW #";Y.....V(X,Y
).V(X,Y).ML.E....7999......".AMOUNT TO S
UBTRACT";SB... .."WHAT COL #";X...*.."WH
AT ROW #";Y. .4.V(X,Y).V(X,Y).SB.*.>..79
99.I.R..".AMOUNT TO DIVIDE BY";DV.].\.."
WHAT COL #";X.Q.F.."WHAT ROW #";Y...P.V(
X,Y).V(X,Y).DV...Z.V(X,Y)..(V(X,Y).1000.
.5).1000......7999...?.....J..".HOW MANY
ITEMS IN EACH ROW";AVE...T..AR$;CT$:.".
AVERAGE WILL BE STORED IN COLUMN 14...^.
.Y.1.50.3.C..V(13,Y).0.8050.K.H.V(14,Y).
V(13,Y).AVE:V(14,Y)..(V(14,Y).1000..5).1
000.R.R..Y.X.|.....2#.".WHICH IS BASE RO
W";BR.D.<#.".WHICH IS ROW FOR PERCENTAGE
S";Y:.BR.Y...P.F#.X.1.13..._#.V(X,BR).0.
9075...D#V(X,Y).V(X,Y).V(X,BR):V(X,[....
......................S......SC...RR...
...R...R........P..Z......VS....F..R...R
...P..Z...P..........T......6.......4S..
&.......*RU.6.................R.........
........................................
......R.......`'.....+.".WHICH COLUMN DO
YOU WANT TO SUM";.$..+.CA:.CA.1.CA.15.1
1020.P..+."..W.HOLE COLUMN OR .P.ART OF
COLUMN?".R. +.YN$:.YN$.."P".YN$.."W".110
40...*+.YN$."P"..11210:.11065...4+S1.1:S
2.49...9+V(CA,S2.1).0...>+.Y.S1.S2...H+V
(CA,S2.1).V(CA,S2.1).V(CA,Y)...R+.Y...\+
....J+.".ROW OF FIRST ITEM IN THE SUM";S
1.P.O+.".ROW OF LAST ITEM IN THE SUM";S2
.S1.S2.S0.0.S2.4(.1/...................
......P{...U. C.......RP....D.....&:..0.
D.............................O\......X.
...@...DDN@H..\.........DAH......D..DDNA
0....-NM.E(NM$):.NM.0...;..-."......ENTE
R OPERATIONS IN THE ORDER YOU WANT THEM
TO BE PERFORMED..".G..-.I.1.NM.X.(-."EN
TER OPERATION #"I". ........";
...2-.A$:OP(I).E(A$):.OP(I).1.OP(I).8.11
570...7-.OP(I)...<-.I.A.F-.I.1.NM...P-.O
P(I).4001,5010,6010,7010,8010,9010,10010
,11010...Z-.I...D-..D....".MAKE SURE PRI
NTER IS ON.":.".....HIT ANY KEY WHEN REA
DY.".Y....A$:.A$."".12020......".DO YOU
WANT TO DESIGNATE THE ROWS TO BE PRINTHD
?"..../.A$:.A$."".12040.E../.A$."N".S1.1
:S2.50:.12070..../."FIRST ROW TO BE PRIN
TED";S1:.".LAST ROW TO BE PRINTED";S2.#.
&/SP$." ".,.0/.4,4.I.D
/.4," COLUMNS ";:.I.1.5:.4,I
;" ";:..P.N/.4.}.X/.Y.S1.S2...
B/.4,H("ROW".D(Y).SP$,10);.C.G/.I.1.5:.4
,I(SP$.D(V(I,Y)),14);:.I:.4.P.L/.Y:.4:.4
...V/.4," COLUMNS ";:.I.6.10
:.4,I;" ";:....{/.4."../.Y.S1.
S2.?../.4,H("ROW".D(Y).SP$,10);.I../.I.6
.10:.4,I(SP$.D(V(I,Y)),14);:.I:.4.V../.Y
:.4:.4..../.4," COLUMNS ";:.
I.11.15:.4,I;" ";:...../.4.H../
.Y.S1.S2..../.4,H("ROW".D(Y).SP$,10);..
./.I.11.15:.4,I(SP$.D(V(I,Y)),14);:.I:.4
.. ./.Y. F/.4:....
> CLICK IMAGE PREVIEW FOR FULL MODAL