DISKALC.C
FILE INFORMATION
FILENAME(S): DISKALC.C
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 5 disk(s)
FILE HASH
d340ee4468efa4599297d2ee8579de690dddb036f0505c70264d8bb127e0ca9a
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MORE MARCH 2 C | DISKALC.C | PRG | DuncanTwain | 32 | 9 | DOWNLOAD FILE |
| NYTTO | DISKALC.C | PRG | hedning, Martin L0fgren | 12 | 7 | DOWNLOAD FILE |
| CCS64 4 KOPIA | DISKALC.C | PRG | hedning, Mattias H00r | 27 | 0 | DOWNLOAD FILE |
| CCS 64 4 | DISKALC.C | PRG | hedning, Mattias H00r | 27 | 5 | DOWNLOAD FILE |
| C64 4 | DISKALC.C | PRG | hedning, Mattias H00r | 27 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..)....*********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5C 08 02 00 8F 20 |*********.\.... |
00000030: 43 4F 4E 56 45 52 54 45 44 20 54 4F 20 57 4F 52 |CONVERTED TO WOR|
00000040: 4B 20 57 49 54 48 20 44 49 53 4B 20 44 52 49 56 |K WITH DISK DRIV|
00000050: 45 20 20 20 20 20 20 20 42 59 20 3A 00 A3 08 03 |E BY :....|
00000060: 00 8F 20 53 45 41 4E 20 52 4F 4F 4E 45 59 2E 20 |.. SEAN ROONEY. |
00000070: 20 4D 49 53 53 49 53 53 41 55 47 41 2C 20 4F 4E | MISSISSAUGA, ON|
00000080: 54 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T. |
00000090: 43 41 4E 41 44 41 2E 20 44 45 43 32 37 2C 31 39 |CANADA. DEC27,19|
000000A0: 38 33 2E 00 CB 08 04 00 8F 2A 2A 2A 2A 2A 2A 2A |83.......*******|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F2 08 05 00 |***********.....|
000000D0: 8F 20 20 51 55 49 54 20 4F 50 54 49 4F 4E 20 4F |. QUIT OPTION O|
000000E0: 4E 20 4D 41 49 4E 20 4D 45 4E 55 20 41 44 44 45 |N MAIN MENU ADDE|
000000F0: 44 3A 00 18 09 06 00 8F 20 20 4A 41 4E 55 41 52 |D:...... JANUAR|
00000100: 59 31 2C 31 39 38 34 2E 20 20 42 59 20 53 45 41 |Y1,1984. BY SEA|
00000110: 4E 20 52 4F 4F 4E 45 59 00 40 09 07 00 8F 2A 2A |N ROONEY.@....**|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 00 56 09 08 00 97 35 33 32 38 30 2C 30 3A 97 35 |.V....53280,0:.5|
00000150: 33 32 38 31 2C 30 00 A2 09 09 00 86 56 28 31 35 |3281,0......V(15|
00000160: 2C 36 30 29 2C 58 24 28 35 30 29 2C 56 24 28 31 |,60),X$(50),V$(1|
00000170: 35 2C 36 30 29 3A 43 52 24 B2 22 93 22 3A 43 54 |5,60):CR$.".":CT|
00000180: 24 B2 22 9F 20 2A 2A 2A 2A 2A 2A 2A 20 43 41 4C |$.". ******* CAL|
00000190: 43 55 4C 41 54 49 4E 47 20 2A 2A 2A 2A 2A 2A 2A |CULATING *******|
000001A0: 9A 22 00 CC 09 0A 00 99 22 8E 93 9F 2A 2A 44 20 |."......"...**D |
000001B0: 49 20 53 20 4B 20 41 20 4C 20 43 2D 36 34 2A 2A |I S K A L C-64**|
000001C0: 20 22 3A 43 25 B2 31 3A 52 25 B2 31 00 E8 09 14 | ":C%.1:R%.1....|
000001D0: 00 99 22 9A 11 11 20 20 20 20 05 56 9A 49 45 57 |.."... .V.IEW|
000001E0: 20 43 4F 4C 55 4D 4E 53 00 00 0A 1E 00 99 22 11 | COLUMNS......".|
000001F0: 20 20 20 20 05 45 9A 4E 54 45 52 20 44 41 54 41 | .E.NTER DATA|
00000200: 00 1D 0A 28 00 99 22 11 20 20 20 20 05 44 9A 4F |...(..". .D.O|
00000210: 20 43 41 4C 43 55 4C 41 54 49 4F 4E 53 00 36 0A | CALCULATIONS.6.|
00000220: 32 00 99 22 11 20 20 20 20 05 5A 9A 45 52 4F 20 |2..". .Z.ERO |
00000230: 4D 41 54 52 49 58 00 56 0A 3C 00 99 22 11 20 20 |MATRIX.V.<..". |
00000240: 20 20 05 47 9A 45 54 20 44 41 54 41 20 46 52 4F | .G.ET DATA FRO|
00000250: 4D 20 44 49 53 4B 00 75 0A 46 00 99 22 11 20 20 |M DISK.u.F..". |
00000260: 20 20 05 53 9A 41 56 45 20 44 41 54 41 20 4F 4E | .S.AVE DATA ON|
00000270: 20 44 49 53 4B 00 8F 0A 50 00 99 22 11 20 20 20 | DISK...P..". |
00000280: 20 05 4D 9A 45 4D 4F 52 59 20 43 48 45 43 4B 00 | .M.EMORY CHECK.|
00000290: B3 0A 55 00 99 22 11 20 20 20 20 05 50 9A 52 49 |..U..". .P.RI|
000002A0: 4E 54 20 44 41 54 41 20 4F 4E 20 50 52 49 4E 54 |NT DATA ON PRINT|
000002B0: 45 52 22 00 D2 0A 5A 00 99 22 11 20 20 20 20 05 |ER"...Z..". .|
000002C0: 51 9A 55 49 54 20 54 48 45 20 50 52 4F 47 52 41 |Q.UIT THE PROGRA|
000002D0: 4D 22 00 F6 0A 5F 00 99 22 9F 11 11 57 48 41 54 |M"..._.."...WHAT|
000002E0: 20 49 53 20 59 4F 55 52 20 43 48 4F 49 43 45 20 | IS YOUR CHOICE |
000002F0: 3F 22 3A 59 B2 30 00 0A 0B 60 00 A1 41 4E 24 3A |?":Y.0...`..AN$:|
00000300: 8B 41 4E 24 B2 22 22 A7 39 36 00 31 0B 61 00 81 |.AN$."".96.1.a..|
00000310: 58 B2 31 A4 39 3A 8B 41 4E 24 B2 CA 28 22 56 45 |X.1.9:.AN$..("VE|
00000320: 44 5A 47 53 4D 50 51 22 2C 58 2C 31 29 A7 59 B2 |DZGSMPQ",X,1).Y.|
00000330: 58 00 68 0B 62 00 82 3A 91 59 8D 32 33 30 2C 31 |X.h.b..:.Y.230,1|
00000340: 30 30 30 2C 32 30 32 30 2C 31 32 30 2C 37 30 32 |000,2020,120,702|
00000350: 2C 38 30 32 2C 39 34 30 2C 31 32 30 31 30 2C 31 |,802,940,12010,1|
00000360: 32 32 33 39 3A 89 31 30 00 79 0B 78 00 99 43 52 |2239:.10.y.x..CR|
00000370: 24 3A 81 58 B2 31 A4 31 35 00 85 0B 82 00 81 59 |$:.X.1.15......Y|
00000380: B2 31 A4 35 30 00 92 0B 8C 00 56 28 58 2C 59 29 |.1.50.....V(X,Y)|
00000390: B2 30 00 99 0B 96 00 82 59 00 A0 0B A0 00 82 58 |.0......Y......X|
000003A0: 00 A6 0B A5 00 8E 00 C9 0B BE 00 85 22 93 45 4E |............".EN|
000003B0: 54 45 52 20 43 4F 4C 55 4D 4E 20 28 31 20 54 4F |TER COLUMN (1 TO|
000003C0: 20 31 33 29 3A 22 3B 43 25 00 E4 0B C8 00 8B 43 | 13):";C%......C|
000003D0: 25 B3 31 B0 43 25 B1 31 33 A7 99 22 93 22 3B 3A |%.1.C%.13..".";:|
000003E0: 89 31 39 30 00 06 0C D2 00 99 3A 85 22 11 45 4E |.190......:.".EN|
000003F0: 54 45 52 20 52 4F 57 20 28 31 20 54 4F 20 33 31 |TER ROW (1 TO 31|
00000400: 29 3A 22 3B 52 25 00 1A 0C DC 00 8B 52 25 B3 31 |):";R%......R%.1|
00000410: B0 52 25 B1 33 31 A7 32 31 30 00 29 0C E6 00 99 |.R%.31.210.)....|
00000420: 22 93 22 3B 3A 8D 35 30 30 00 35 0C F0 00 99 22 |".";:.500.5...."|
00000430: 13 11 11 22 3B 00 45 0C FA 00 81 59 B2 52 25 A4 |...";.E....Y.R%.|
00000440: 52 25 AA 31 39 00 4F 0C 04 01 99 A3 39 29 3B 00 |R%.19.O.....9);.|
00000450: 5E 0C 0E 01 81 58 B2 43 25 A4 43 25 AA 32 00 6F |^....X.C%.C%.2.o|
00000460: 0C 18 01 58 24 B2 C4 28 56 28 58 2C 59 29 29 00 |...X$..(V(X,Y)).|
00000470: 83 0C 22 01 99 A6 31 30 AB C3 28 58 24 29 29 3B |.."...10..(X$));|
00000480: 58 24 3B 00 89 0C 2C 01 82 00 95 0C 36 01 99 C7 |X$;...,.....6...|
00000490: 28 31 33 29 3B 00 9B 0C 40 01 82 00 CD 0C 45 01 |(13);...@.....E.|
000004A0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 08 0D | ";...|
000004D0: 4A 01 99 22 05 55 9A 50 20 20 20 05 44 9A 4F 57 |J..".U.P .D.OW|
000004E0: 4E 20 20 20 05 4C 9A 45 46 54 20 20 20 05 52 9A |N .L.EFT .R.|
000004F0: 49 47 48 54 20 20 20 05 4A 9A 55 4D 50 20 20 20 |IGHT .J.UMP |
00000500: 05 4D 9A 45 4E 55 22 3B 00 1B 0D 54 01 A1 43 24 |.M.ENU";...T..C$|
00000510: 3A 8B 43 24 B2 22 22 A7 33 34 30 00 41 0D 68 01 |:.C$."".340.A.h.|
00000520: 8B 43 24 B2 22 55 22 A7 52 25 B2 52 25 AB 31 30 |.C$."U".R%.R%.10|
00000530: 3A 99 C7 28 31 33 29 3B 22 11 22 3B 3A 89 32 32 |:..(13);".";:.22|
00000540: 30 00 67 0D 7C 01 8B 43 24 B2 22 44 22 A7 52 25 |0.g.|..C$."D".R%|
00000550: B2 52 25 AA 31 30 3A 99 C7 28 31 33 29 3B 22 11 |.R%.10:..(13);".|
00000560: 22 3B 3A 89 32 32 30 00 80 0D 90 01 8B 43 24 B2 |";:.220......C$.|
00000570: 22 4C 22 A7 43 25 B2 43 25 AB 32 3A 89 34 37 30 |"L".C%.C%.2:.470|
00000580: 00 99 0D A4 01 8B 43 24 B2 22 52 22 A7 43 25 B2 |......C$."R".C%.|
00000590: 43 25 AA 32 3A 89 34 37 30 00 A9 0D B8 01 8B 43 |C%.2:.470......C|
000005A0: 24 B2 22 4A 22 A7 31 39 30 00 B8 0D C2 01 8B 43 |$."J".190......C|
000005B0: 24 B2 22 4D 22 A7 31 30 00 C1 0D CC 01 89 33 34 |$."M".10......34|
000005C0: 30 00 DE 0D D6 01 8B 43 25 B3 31 B0 43 25 B1 31 |0......C%.1.C%.1|
000005D0: 33 A7 99 C7 28 31 33 29 3B 3A 89 31 39 30 00 E7 |3...(13);:.190..|
000005E0: 0D E0 01 89 32 33 30 00 F1 0D F4 01 99 A3 39 29 |....230.......9)|
000005F0: 3B 00 FC 0D FE 01 81 49 B2 31 A4 33 00 12 0E 08 |;......I.1.3....|
00000600: 02 99 22 9A 12 20 20 20 20 43 4F 4C 55 4D 4E 92 |..".. COLUMN.|
00000610: 22 3B 00 18 0E 12 02 82 00 28 0E 1C 02 99 C7 28 |";.......(.....(|
00000620: 31 33 29 3B A3 39 29 3B 00 37 0E 26 02 81 49 B2 |13);.9);.7.&..I.|
00000630: 43 25 A4 43 25 AA 32 00 4B 0E 30 02 53 25 B2 37 |C%.C%.2.K.0.S%.7|
00000640: 3A 8B 49 B3 31 30 A7 53 25 B2 38 00 63 0E 3A 02 |:.I.10.S%.8.c.:.|
00000650: 99 A6 53 25 29 3B 22 12 22 3B C4 28 49 29 3B 22 |..S%);".";.(I);"|
00000660: 92 22 3B 00 69 0E 44 02 82 00 75 0E 4E 02 99 C7 |.";.i.D...u.N...|
00000670: 28 31 33 29 3B 00 85 0E 58 02 81 49 B2 52 25 A4 |(13);...X..I.R%.|
00000680: 52 25 AA 31 39 00 9C 0E 62 02 53 24 B2 22 22 3A |R%.19...b.S$."":|
00000690: 8B 49 B3 31 30 A7 53 24 B2 22 20 22 00 B8 0E 6C |.I.10.S$." "...l|
000006A0: 02 99 A3 32 29 3B 22 12 9A 52 4F 57 22 53 24 C4 |...2);"..ROW"S$.|
000006B0: 28 49 29 3B 22 92 9F 22 00 BE 0E 76 02 82 00 C4 |(I);".."...v....|
000006C0: 0E 80 02 8E 00 EE 0E BE 02 85 22 93 57 48 41 54 |..........".WHAT|
000006D0: 20 49 53 20 4E 41 4D 45 20 4F 46 20 46 49 4C 45 | IS NAME OF FILE|
000006E0: 20 59 4F 55 20 57 41 4E 54 22 3B 46 4C 24 00 07 | YOU WANT";FL$..|
000006F0: 0F C6 02 99 22 93 4C 4F 4F 4B 49 4E 47 20 46 4F |....".LOOKING FO|
00000700: 52 20 22 3B 46 4C 24 00 18 0F D0 02 9F 31 2C 38 |R ";FL$......1,8|
00000710: 2C 30 2C 28 46 4C 24 29 00 3A 0F D5 02 99 22 46 |,0,(FL$).:...."F|
00000720: 4F 55 4E 44 20 22 3B 46 4C 24 3B 22 20 2E 2E 2E |OUND ";FL$;" ...|
00000730: 2E 2E 4C 4F 41 44 49 4E 47 22 00 46 0F DA 02 81 |..LOADING".F....|
00000740: 58 B2 31 A4 31 32 00 52 0F E4 02 81 59 B2 31 A4 |X.1.12.R....Y.1.|
00000750: 34 39 00 60 0F EE 02 84 31 2C 56 28 58 2C 59 29 |49.`....1,V(X,Y)|
00000760: 00 67 0F F8 02 82 59 00 6E 0F 02 03 82 58 00 89 |.g....Y.n....X..|
00000770: 0F 0C 03 CE 23 31 3A 99 22 4F 4B 2E 2E 2E 2E 2E |....#1:."OK.....|
00000780: 47 4F 54 20 44 41 54 41 22 00 9A 0F 16 03 81 49 |GOT DATA"......I|
00000790: B2 31 A4 31 30 30 30 3A 82 49 00 A0 0F 1B 03 8E |.1.1000:.I......|
000007A0: 00 C4 0F 22 03 85 22 93 57 48 41 54 20 4E 41 4D |..."..".WHAT NAM|
000007B0: 45 20 46 4F 52 20 54 48 49 53 20 46 49 4C 45 22 |E FOR THIS FILE"|
000007C0: 3B 46 4C 24 00 D5 0F 48 03 9F 31 2C 38 2C 31 2C |;FL$...H..1,8,1,|
000007D0: 28 46 4C 24 29 00 E1 0F 52 03 81 58 B2 31 A4 31 |(FL$)...R..X.1.1|
000007E0: 32 00 ED 0F 5C 03 81 59 B2 31 A4 34 39 00 FB 0F |2...\..Y.1.49...|
000007F0: 66 03 98 31 2C 56 28 58 2C 59 29 00 02 10 70 03 |f..1,V(X,Y)...p.|
00000800: 82 59 00 09 10 7A 03 82 58 00 28 10 84 03 82 23 |.Y...z..X.(....#|
00000810: 31 3A 99 22 4F 4B 2E 2E 2E 2E 2E 44 41 54 41 20 |1:."OK.....DATA |
00000820: 4F 4E 20 44 49 53 4B 22 00 39 10 8E 03 81 49 B2 |ON DISK".9....I.|
00000830: 31 A4 31 30 30 30 3A 82 49 00 3F 10 98 03 8E 00 |1.1000:.I.?.....|
00000840: 5A 10 AC 03 99 22 11 05 20 20 22 B8 28 41 29 22 |Z....".. ".(A)"|
00000850: 42 59 54 45 53 20 46 52 45 45 00 6B 10 B6 03 81 |BYTES FREE.k....|
00000860: 49 B2 31 A4 31 30 30 30 3A 82 49 00 71 10 C0 03 |I.1.1000:.I.q...|
00000870: 8E 00 7C 10 E8 03 99 22 93 22 3A 99 00 9A 10 F2 |..|....".":.....|
00000880: 03 85 22 57 48 49 43 48 20 43 4F 4C 55 4D 4E 20 |.."WHICH COLUMN |
00000890: 28 31 2D 31 32 29 22 3B 4B 24 00 B8 10 FC 03 43 |(1-12)";K$.....C|
000008A0: 4C B2 C5 28 4B 24 29 3A 8B 43 4C B3 31 B0 43 4C |L..(K$):.CL.1.CL|
000008B0: B1 31 32 A7 31 30 30 30 00 EC 10 06 04 8B 43 4C |.12.1000......CL|
000008C0: B2 31 33 B0 43 4C B2 31 34 B0 43 4C B2 31 35 A7 |.13.CL.14.CL.15.|
000008D0: 99 22 52 45 53 45 52 56 45 44 20 46 4F 52 20 54 |."RESERVED FOR T|
000008E0: 4F 54 41 4C 53 22 3A 89 31 30 31 30 00 0C 11 10 |OTALS":.1010....|
000008F0: 04 85 22 11 48 4F 57 20 4D 41 4E 59 20 52 4F 57 |..".HOW MANY ROW|
00000900: 53 20 28 31 2D 35 30 29 22 3B 4B 24 00 27 11 1A |S (1-50)";K$.'..|
00000910: 04 4B B2 C5 28 4B 24 29 3A 8B 4B B1 35 30 B0 4B |.K..(K$):.K.50.K|
00000920: B3 31 A7 31 30 34 30 00 4A 11 24 04 99 3A 99 22 |.1.1040.J.$..:."|
00000930: 52 4F 57 22 2C 22 43 55 52 52 45 4E 54 22 2C 22 |ROW","CURRENT","|
00000940: 43 4F 4C 55 4D 4E 22 3B 43 4C 00 55 11 2E 04 81 |COLUMN";CL.U....|
00000950: 59 B2 31 A4 4B 00 82 11 38 04 99 3A 99 59 2C 56 |Y.1.K...8..:.Y,V|
00000960: 28 43 4C 2C 59 29 2C 3A 85 22 9D 9D 9D 9D 9D 9D |(CL,Y),:."......|
00000970: 9D 9D 9D 9D 9D 22 3B 56 3A 56 28 43 4C 2C 59 29 |.....";V:V(CL,Y)|
00000980: B2 56 00 89 11 42 04 82 59 00 BC 11 4C 04 99 22 |.V...B..Y...L.."|
00000990: 11 11 05 43 9A 20 46 4F 52 20 41 4E 4F 54 48 45 |...C. FOR ANOTHE|
000009A0: 52 20 43 4F 4C 55 4D 4E 20 20 20 20 20 20 20 20 |R COLUMN |
000009B0: 05 4D 9A 20 46 4F 52 20 4D 45 4E 55 00 D0 11 56 |.M. FOR MENU...V|
000009C0: 04 A1 44 24 3A 8B 44 24 B2 22 22 A7 31 31 31 30 |..D$:.D$."".1110|
000009D0: 00 E1 11 60 04 8B 44 24 B2 22 43 22 A7 31 30 30 |...`..D$."C".100|
000009E0: 30 00 E7 11 6A 04 8E 00 14 12 E4 07 99 22 93 9F |0...j........"..|
000009F0: 59 4F 55 20 4D 41 59 20 43 48 4F 4F 53 45 20 41 |YOU MAY CHOOSE A|
00000A00: 4E 59 20 4F 46 20 54 48 45 20 46 4F 4C 4C 4F 57 |NY OF THE FOLLOW|
00000A10: 49 4E 47 22 00 32 12 EE 07 99 22 11 20 20 05 31 |ING".2....". .1|
00000A20: 9A 20 53 55 4D 20 44 4F 57 4E 20 43 4F 4C 55 4D |. SUM DOWN COLUM|
00000A30: 4E 53 00 4F 12 F8 07 99 22 11 20 20 05 32 9A 20 |NS.O....". .2. |
00000A40: 53 55 4D 20 41 43 52 4F 53 53 20 52 4F 57 53 00 |SUM ACROSS ROWS.|
00000A50: 71 12 02 08 99 22 11 20 20 05 33 9A 20 52 45 50 |q....". .3. REP|
00000A60: 52 4F 44 55 43 45 20 41 4E 59 20 43 4F 4C 55 4D |RODUCE ANY COLUM|
00000A70: 4E 00 9C 12 0C 08 99 22 11 20 20 05 34 9A 20 41 |N......". .4. A|
00000A80: 44 44 2D 4D 55 4C 54 2D 44 49 56 2D 53 55 42 20 |DD-MULT-DIV-SUB |
00000A90: 41 54 20 41 4E 59 20 50 4F 49 4E 54 00 CC 12 16 |AT ANY POINT....|
00000AA0: 08 99 22 11 20 20 05 35 9A 20 41 56 45 52 41 47 |..". .5. AVERAG|
00000AB0: 45 20 41 43 52 4F 53 53 20 52 4F 57 53 20 28 44 |E ACROSS ROWS (D|
00000AC0: 4F 20 12 32 92 20 46 49 52 53 54 29 00 F0 12 20 |O .2. FIRST)... |
00000AD0: 08 99 22 11 20 20 05 36 9A 20 4D 41 4B 45 20 52 |..". .6. MAKE R|
00000AE0: 4F 57 20 25 20 4F 46 20 42 41 53 45 20 52 4F 57 |OW % OF BASE ROW|
00000AF0: 00 1A 13 2A 08 99 22 11 20 20 05 37 9A 20 4D 41 |...*..". .7. MA|
00000B00: 4B 45 20 43 4F 4C 55 4D 4E 20 25 20 4F 46 20 42 |KE COLUMN % OF B|
00000B10: 41 53 45 20 43 4F 4C 55 4D 4E 00 3E 13 34 08 99 |ASE COLUMN.>.4..|
00000B20: 22 11 20 20 05 38 9A 20 53 55 4D 20 49 4E 44 49 |". .8. SUM INDI|
00000B30: 56 49 44 55 41 4C 20 43 4F 4C 55 4D 4E 53 00 62 |VIDUAL COLUMNS.b|
00000B40: 13 3E 08 99 22 11 20 20 05 39 9A 20 53 45 52 49 |.>..". .9. SERI|
00000B50: 45 53 20 4F 46 20 43 41 4C 43 55 4C 41 54 49 4F |ES OF CALCULATIO|
00000B60: 4E 53 00 7E 13 48 08 99 22 11 20 20 05 4D 9A 20 |NS.~.H..". .M. |
00000B70: 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 00 98 |RETURN TO MENU..|
00000B80: 13 49 08 99 22 9F 20 20 20 20 A3 A3 A3 A3 A3 A3 |.I..". ......|
00000B90: 20 A3 A3 20 A3 A3 A3 A3 00 AD 13 AC 0D 99 22 11 | .. ..........".|
00000BA0: 57 48 49 43 48 20 4F 4E 45 20 3F 22 3B 00 CA 13 |WHICH ONE ?";...|
00000BB0: B6 0D 92 31 39 38 2C 37 3A A1 41 4E 24 3A 8B 41 |...198,7:.AN$:.A|
00000BC0: 4E 24 B2 22 22 A7 33 35 31 30 00 D9 13 BB 0D 8B |N$."".3510......|
00000BD0: 41 4E 24 B2 22 4D 22 A7 8E 00 15 14 C0 0D 91 C5 |AN$."M".........|
00000BE0: 28 41 4E 24 29 8D 34 30 30 31 2C 35 30 31 30 2C |(AN$).4001,5010,|
00000BF0: 36 30 31 30 2C 37 30 31 30 2C 38 30 31 30 2C 39 |6010,7010,8010,9|
00000C00: 30 31 30 2C 31 30 30 31 30 2C 31 31 30 31 30 2C |010,10010,11010,|
00000C10: 31 31 35 31 30 00 1F 14 CA 0D 89 32 30 32 30 00 |11510......2020.|
00000C20: 60 14 A1 0F 99 22 93 44 4F 20 59 4F 55 20 57 49 |`....".DO YOU WI|
00000C30: 53 48 20 54 4F 20 44 45 53 49 47 4E 41 54 45 20 |SH TO DESIGNATE |
00000C40: 54 48 45 20 52 4F 57 53 20 20 20 20 20 20 20 20 |THE ROWS |
00000C50: 20 11 54 4F 20 42 45 20 53 55 4D 4D 45 44 3F 22 | .TO BE SUMMED?"|
00000C60: 00 74 14 A2 0F A1 41 24 3A 8B 41 24 B2 22 22 A7 |.t....A$:.A$."".|
00000C70: 34 30 30 32 00 91 14 A3 0F 8B 41 24 B2 22 4E 22 |4002......A$."N"|
00000C80: A7 53 31 B2 31 3A 53 32 B2 34 39 3A 89 34 30 30 |.S1.1:S2.49:.400|
00000C90: 35 00 CD 14 A4 0F 85 22 11 46 49 52 53 54 20 52 |5......".FIRST R|
00000CA0: 4F 57 22 3B 53 31 3A 85 22 11 4C 41 53 54 20 52 |OW";S1:.".LAST R|
00000CB0: 4F 57 22 3B 53 32 3A 8B 53 31 B1 53 32 B0 53 31 |OW";S2:.S1.S2.S1|
00000CC0: B3 30 B0 53 32 B1 34 39 A7 34 30 30 31 00 FC 14 |.0.S2.49.4001...|
00000CD0: A5 0F 99 43 52 24 3B 43 54 24 3A 99 22 11 53 55 |...CR$;CT$:.".SU|
00000CE0: 4D 20 57 49 4C 4C 20 42 45 20 53 54 4F 52 45 44 |M WILL BE STORED|
00000CF0: 20 49 4E 20 52 4F 57 22 53 32 AA 31 00 08 15 AA | IN ROW"S2.1....|
00000D00: 0F 81 58 B2 31 A4 31 34 00 18 15 B4 0F 56 28 58 |..X.1.14.....V(X|
00000D10: 2C 53 32 AA 31 29 B2 30 00 1F 15 BE 0F 82 58 00 |,S2.1).0......X.|
00000D20: 2B 15 C8 0F 81 58 B2 31 A4 31 34 00 38 15 D2 0F |+....X.1.14.8...|
00000D30: 81 59 B2 53 31 A4 53 32 00 57 15 DC 0F 56 28 58 |.Y.S1.S2.W...V(X|
00000D40: 2C 53 32 AA 31 29 B2 56 28 58 2C 53 32 AA 31 29 |,S2.1).V(X,S2.1)|
00000D50: AA 56 28 58 2C 59 29 00 5E 15 E6 0F 82 59 00 65 |.V(X,Y).^....Y.e|
00000D60: 15 F0 0F 82 58 00 6B 15 FA 0F 8E 00 9B 15 92 13 |....X.k.........|
00000D70: 99 43 52 24 3B 43 54 24 3A 99 22 11 53 55 4D 20 |.CR$;CT$:.".SUM |
00000D80: 57 49 4C 4C 20 42 45 20 53 54 4F 52 45 44 20 49 |WILL BE STORED I|
00000D90: 4E 20 43 4F 4C 55 4D 4E 20 31 33 00 A7 15 9C 13 |N COLUMN 13.....|
00000DA0: 81 59 B2 31 A4 34 38 00 B5 15 A6 13 56 28 31 33 |.Y.1.48.....V(13|
00000DB0: 2C 59 29 B2 30 00 BC 15 B0 13 82 59 00 C8 15 BA |,Y).0......Y....|
00000DC0: 13 81 59 B2 31 A4 34 38 00 D4 15 C4 13 81 58 B2 |..Y.1.48......X.|
00000DD0: 31 A4 31 32 00 EF 15 CE 13 56 28 31 33 2C 59 29 |1.12.....V(13,Y)|
00000DE0: B2 56 28 31 33 2C 59 29 AA 56 28 58 2C 59 29 00 |.V(13,Y).V(X,Y).|
00000DF0: F6 15 D8 13 82 58 00 FD 15 E2 13 82 59 00 03 16 |.....X......Y...|
00000E00: EC 13 8E 00 25 16 7A 17 85 22 93 44 55 50 4C 49 |....%.z..".DUPLI|
00000E10: 43 41 54 45 20 57 48 49 43 48 20 43 4F 4C 55 4D |CATE WHICH COLUM|
00000E20: 4E 22 3B 43 58 00 46 16 7F 17 85 22 11 50 55 54 |N";CX.F....".PUT|
00000E30: 20 49 54 20 49 4E 20 57 48 49 43 48 20 43 4F 4C | IT IN WHICH COL|
00000E40: 55 4D 4E 22 3B 58 00 52 16 8E 17 81 59 B2 31 A4 |UMN";X.R....Y.1.|
00000E50: 35 30 00 65 16 98 17 56 28 58 2C 59 29 B2 56 28 |50.e...V(X,Y).V(|
00000E60: 43 58 2C 59 29 00 6C 16 A2 17 82 59 00 72 16 AC |CX,Y).l....Y.r..|
00000E70: 17 8E 00 7A 16 62 1B 59 B2 30 00 B0 16 6C 1B 99 |...z.b.Y.0...l..|
00000E80: 22 93 11 12 41 92 44 44 20 20 20 20 12 4D 92 55 |"...A.DD .M.U|
00000E90: 4C 54 49 50 4C 59 20 20 20 20 12 53 92 55 42 54 |LTIPLY .S.UBT|
00000EA0: 52 41 43 54 20 20 20 20 12 44 92 49 56 49 44 45 |RACT .D.IVIDE|
00000EB0: 00 C4 16 76 1B A1 41 24 3A 8B 41 24 B2 22 22 A7 |...v..A$:.A$."".|
00000EC0: 37 30 33 30 00 E5 16 80 1B 81 58 B2 31 A4 34 3A |7030......X.1.4:|
00000ED0: 8B 41 24 B2 CA 28 22 41 4D 53 44 22 2C 58 2C 31 |.A$..("AMSD",X,1|
00000EE0: 29 A7 59 B2 58 00 08 17 8A 1B 82 3A 91 59 89 37 |).Y.X......:.Y.7|
00000EF0: 30 37 30 2C 37 31 33 30 2C 37 31 39 30 2C 37 32 |070,7130,7190,72|
00000F00: 35 30 3A 89 37 30 33 30 00 21 17 9E 1B 85 22 93 |50:.7030.!....".|
00000F10: 41 4D 4F 55 4E 54 20 54 4F 20 41 44 44 22 3B 41 |AMOUNT TO ADD";A|
00000F20: 44 00 35 17 A8 1B 85 22 57 48 41 54 20 43 4F 4C |D.5...."WHAT COL|
00000F30: 20 23 22 3B 58 00 49 17 B2 1B 85 22 57 48 41 54 | #";X.I...."WHAT|
00000F40: 20 52 4F 57 20 23 22 3B 59 00 5E 17 BC 1B 56 28 | ROW #";Y.^...V(|
00000F50: 58 2C 59 29 B2 56 28 58 2C 59 29 AA 41 44 00 68 |X,Y).V(X,Y).AD.h|
00000F60: 17 C6 1B 89 37 39 39 39 00 89 17 DA 1B 85 22 93 |....7999......".|
00000F70: 41 4D 4F 55 4E 54 20 54 4F 20 4D 55 4C 54 49 50 |AMOUNT TO MULTIP|
00000F80: 4C 59 20 42 59 22 3B 4D 4C 00 9D 17 E4 1B 85 22 |LY BY";ML......"|
00000F90: 57 48 41 54 20 43 4F 4C 20 23 22 3B 58 00 B1 17 |WHAT COL #";X...|
00000FA0: EE 1B 85 22 57 48 41 54 20 52 4F 57 20 23 22 3B |..."WHAT ROW #";|
00000FB0: 59 00 C6 17 F8 1B 56 28 58 2C 59 29 B2 56 28 58 |Y.....V(X,Y).V(X|
00000FC0: 2C 59 29 AC 4D 4C 00 D0 17 02 1C 89 37 39 39 39 |,Y).ML......7999|
00000FD0: 00 EE 17 16 1C 85 22 93 41 4D 4F 55 4E 54 20 54 |......".AMOUNT T|
00000FE0: 4F 20 53 55 42 54 52 41 43 54 22 3B 53 42 00 02 |O SUBTRACT";SB..|
00000FF0: 18 20 1C 85 22 57 48 41 54 20 43 4F 4C 20 23 22 |. .."WHAT COL #"|
00001000: 3B 58 00 16 18 2A 1C 85 22 57 48 41 54 20 52 4F |;X...*.."WHAT RO|
00001010: 57 20 23 22 3B 59 00 2B 18 34 1C 56 28 58 2C 59 |W #";Y.+.4.V(X,Y|
00001020: 29 B2 56 28 58 2C 59 29 AB 53 42 00 35 18 3E 1C |).V(X,Y).SB.5.>.|
00001030: 89 37 39 39 39 00 54 18 52 1C 85 22 93 41 4D 4F |.7999.T.R..".AMO|
00001040: 55 4E 54 20 54 4F 20 44 49 56 49 44 45 20 42 59 |UNT TO DIVIDE BY|
00001050: 22 3B 44 56 00 68 18 5C 1C 85 22 57 48 41 54 20 |";DV.h.\.."WHAT |
00001060: 43 4F 4C 20 23 22 3B 58 00 7C 18 66 1C 85 22 57 |COL #";X.|.f.."W|
00001070: 48 41 54 20 52 4F 57 20 23 22 3B 59 00 91 18 70 |HAT ROW #";Y...p|
00001080: 1C 56 28 58 2C 59 29 B2 56 28 58 2C 59 29 AD 44 |.V(X,Y).V(X,Y).D|
00001090: 56 00 B3 18 7A 1C 56 28 58 2C 59 29 B2 B5 28 56 |V...z.V(X,Y)..(V|
000010A0: 28 58 2C 59 29 AC 31 30 30 30 AA 2E 35 29 AD 31 |(X,Y).1000..5).1|
000010B0: 30 30 30 00 BD 18 84 1C 89 37 39 39 39 00 C3 18 |000......7999...|
000010C0: 3F 1F 8E 00 EA 18 4A 1F 85 22 93 48 4F 57 20 4D |?.....J..".HOW M|
000010D0: 41 4E 59 20 49 54 45 4D 53 20 49 4E 20 45 41 43 |ANY ITEMS IN EAC|
000010E0: 48 20 52 4F 57 22 3B 41 56 45 00 1E 19 54 1F 99 |H ROW";AVE...T..|
000010F0: 43 52 24 3B 43 54 24 3A 99 22 11 41 56 45 52 41 |CR$;CT$:.".AVERA|
00001100: 47 45 20 57 49 4C 4C 20 42 45 20 53 54 4F 52 45 |GE WILL BE STORE|
00001110: 44 20 49 4E 20 43 4F 4C 55 4D 4E 20 31 34 00 2A |D IN COLUMN 14.*|
00001120: 19 5E 1F 81 59 B2 31 A4 35 30 00 3E 19 63 1F 8B |.^..Y.1.50.>.c..|
00001130: 56 28 31 33 2C 59 29 B2 30 A7 38 30 35 30 00 76 |V(13,Y).0.8050.v|
00001140: 19 68 1F 56 28 31 34 2C 59 29 B2 56 28 31 33 2C |.h.V(14,Y).V(13,|
00001150: 59 29 AD 41 56 45 3A 56 28 31 34 2C 59 29 B2 B5 |Y).AVE:V(14,Y)..|
00001160: 28 56 28 31 34 2C 59 29 AC 31 30 30 30 AA 2E 35 |(V(14,Y).1000..5|
00001170: 29 AD 31 30 30 30 00 7D 19 72 1F 82 59 00 83 19 |).1000.}.r..Y...|
00001180: 7C 1F 8E 00 A0 19 32 23 85 22 93 57 48 49 43 48 ||.....2#.".WHICH|
00001190: 20 49 53 20 42 41 53 45 20 52 4F 57 22 3B 42 52 | IS BASE ROW";BR|
000011A0: 00 CF 19 3C 23 85 22 11 57 48 49 43 48 20 49 53 |...<#.".WHICH IS|
000011B0: 20 52 4F 57 20 46 4F 52 20 50 45 52 43 45 4E 54 | ROW FOR PERCENT|
000011C0: 41 47 45 53 22 3B 59 3A 8B 42 52 B2 59 A7 8E 00 |AGES";Y:.BR.Y...|
000011D0: DB 19 46 23 81 58 B2 31 A4 31 33 00 EF 19 5F 23 |..F#.X.1.13..._#|
000011E0: 8B 56 28 58 2C 42 52 29 B2 30 A7 39 30 37 35 00 |.V(X,BR).0.9075.|
000011F0: 27 1A 64 23 56 28 58 2C 59 29 B2 56 28 58 2C 59 |'.d#V(X,Y).V(X,Y|
00001200: 29 AD 56 28 58 2C 42 52 29 3A 56 28 58 2C 59 29 |).V(X,BR):V(X,Y)|
00001210: B2 B5 28 56 28 58 2C 59 29 AC 31 30 30 30 30 AA |..(V(X,Y).10000.|
00001220: 2E 35 29 AD 31 30 30 00 2E 1A 73 23 82 58 00 34 |.5).100...s#.X.4|
00001230: 1A 78 23 8E 00 54 1A 1A 27 85 22 93 57 48 49 43 |.x#..T..'.".WHIC|
00001240: 48 20 49 53 20 42 41 53 45 20 43 4F 4C 55 4D 4E |H IS BASE COLUMN|
00001250: 22 3B 43 58 00 86 1A 24 27 85 22 11 57 48 49 43 |";CX...$'.".WHIC|
00001260: 48 20 49 53 20 43 4F 4C 55 4D 4E 20 46 4F 52 20 |H IS COLUMN FOR |
00001270: 50 45 52 43 45 4E 54 41 47 45 53 22 3B 58 3A 8B |PERCENTAGES";X:.|
00001280: 58 B2 43 58 A7 8E 00 92 1A 2E 27 81 59 B2 31 A4 |X.CX......'.Y.1.|
00001290: 35 30 00 A7 1A 47 27 8B 56 28 43 58 2C 59 29 B2 |50...G'.V(CX,Y).|
000012A0: 30 A7 31 30 30 37 35 00 DF 1A 4C 27 56 28 58 2C |0.10075...L'V(X,|
000012B0: 59 29 B2 56 28 58 2C 59 29 AD 56 28 43 58 2C 59 |Y).V(X,Y).V(CX,Y|
000012C0: 29 3A 56 28 58 2C 59 29 B2 B5 28 56 28 58 2C 59 |):V(X,Y)..(V(X,Y|
000012D0: 29 AC 31 30 30 30 30 AA 2E 35 29 AD 31 30 30 00 |).10000..5).100.|
000012E0: E6 1A 5B 27 82 59 00 EC 1A 60 27 8E 00 15 1B 02 |..['.Y...`'.....|
000012F0: 2B 99 22 93 57 48 49 43 48 20 43 4F 4C 55 4D 4E |+.".WHICH COLUMN|
00001300: 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 | DO YOU WANT TO |
00001310: 53 55 4D 22 3B 00 2F 1B 0C 2B 85 43 41 3A 8B 43 |SUM";./..+.CA:.C|
00001320: 41 B3 31 B0 43 41 B1 31 35 A7 31 31 30 32 30 00 |A.1.CA.15.11020.|
00001330: 5B 1B 16 2B 99 22 11 12 57 92 48 4F 4C 45 20 43 |[..+."..W.HOLE C|
00001340: 4F 4C 55 4D 4E 20 4F 52 20 12 50 92 41 52 54 20 |OLUMN OR .P.ART |
00001350: 4F 46 20 43 4F 4C 55 4D 4E 3F 22 00 7D 1B 20 2B |OF COLUMN?".}. +|
00001360: A1 59 4E 24 3A 8B 59 4E 24 B3 B1 22 50 22 AF 59 |.YN$:.YN$.."P".Y|
00001370: 4E 24 B3 B1 22 57 22 A7 31 31 30 34 30 00 98 1B |N$.."W".11040...|
00001380: 2A 2B 8B 59 4E 24 B2 22 50 22 A7 8D 31 31 32 31 |*+.YN$."P"..1121|
00001390: 30 3A 89 31 31 30 36 35 00 A7 1B 34 2B 53 31 B2 |0:.11065...4+S1.|
000013A0: 31 3A 53 32 B2 34 39 00 B8 1B 39 2B 56 28 43 41 |1:S2.49...9+V(CA|
000013B0: 2C 53 32 AA 31 29 B2 30 00 C5 1B 3E 2B 81 59 B2 |,S2.1).0...>+.Y.|
000013C0: 53 31 A4 53 32 00 E7 1B 48 2B 56 28 43 41 2C 53 |S1.S2...H+V(CA,S|
000013D0: 32 AA 31 29 B2 56 28 43 41 2C 53 32 AA 31 29 AA |2.1).V(CA,S2.1).|
000013E0: 56 28 43 41 2C 59 29 00 EE 1B 52 2B 82 59 00 F4 |V(CA,Y)...R+.Y..|
000013F0: 1B 5C 2B 8E 00 1C 1C CA 2B 85 22 11 52 4F 57 20 |.\+.....+.".ROW |
00001400: 4F 46 20 46 49 52 53 54 20 49 54 45 4D 20 49 4E |OF FIRST ITEM IN|
00001410: 20 54 48 45 20 53 55 4D 22 3B 53 31 00 5B 1C CF | THE SUM";S1.[..|
00001420: 2B 85 22 11 52 4F 57 20 4F 46 20 4C 41 53 54 20 |+.".ROW OF LAST |
00001430: 49 54 45 4D 20 49 4E 20 54 48 45 20 53 55 4D 22 |ITEM IN THE SUM"|
00001440: 3B 53 32 3A 8B 53 31 B1 53 32 B0 53 31 B3 30 B0 |;S2:.S1.S2.S1.0.|
00001450: 53 32 B1 34 39 A7 31 31 32 31 30 00 61 1C D4 2B |S2.49.11210.a..+|
00001460: 8E 00 8D 1C F6 2C 99 3A 99 22 91 91 91 91 91 91 |.....,.:."......|
00001470: 48 4F 57 20 4D 41 4E 59 20 43 41 4C 43 55 4C 41 |HOW MANY CALCULA|
00001480: 54 49 4F 4E 53 20 28 31 2D 38 29 3F 22 00 B0 1C |TIONS (1-8)?"...|
00001490: FB 2C 81 49 B2 31 A4 35 3A 99 22 20 20 20 20 20 |.,.I.1.5:." |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 | ":.|
000014B0: 00 C7 1C 00 2D A1 4E 4D 24 3A 8B 4E 4D 24 B2 22 |....-.NM$:.NM$."|
000014C0: 22 A7 31 31 35 32 30 00 E4 1C 05 2D 8B C5 28 4E |".11520....-..(N|
000014D0: 4D 24 29 B3 30 B0 C5 28 4E 4D 24 29 B1 38 A7 31 |M$).0..(NM$).8.1|
000014E0: 31 35 32 30 00 FA 1C 0A 2D 4E 4D B2 C5 28 4E 4D |1520....-NM..(NM|
000014F0: 24 29 3A 8B 4E 4D B2 30 A7 8E 00 46 1D 14 2D 99 |$):.NM.0...F..-.|
00001500: 22 91 91 91 91 91 91 45 4E 54 45 52 20 4F 50 45 |"......ENTER OPE|
00001510: 52 41 54 49 4F 4E 53 20 49 4E 20 54 48 45 20 4F |RATIONS IN THE O|
00001520: 52 44 45 52 20 59 4F 55 20 57 41 4E 54 20 20 54 |RDER YOU WANT T|
00001530: 48 45 4D 20 54 4F 20 42 45 20 50 45 52 46 4F 52 |HEM TO BE PERFOR|
00001540: 4D 45 44 2E 11 22 00 52 1D 1E 2D 81 49 B2 31 A4 |MED..".R..-.I.1.|
00001550: 4E 4D 00 83 1D 28 2D 99 22 45 4E 54 45 52 20 4F |NM...(-."ENTER O|
00001560: 50 45 52 41 54 49 4F 4E 20 23 22 49 22 9D 20 20 |PERATION #"I". |
00001570: 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D | .......|
00001580: 9D 22 3B 00 AE 1D 32 2D A1 41 24 3A 4F 50 28 49 |.";...2-.A$:OP(I|
00001590: 29 B2 C5 28 41 24 29 3A 8B 4F 50 28 49 29 B3 31 |)..(A$):.OP(I).1|
000015A0: B0 4F 50 28 49 29 B1 38 A7 31 31 35 37 30 00 B9 |.OP(I).8.11570..|
000015B0: 1D 37 2D 99 4F 50 28 49 29 00 C0 1D 3C 2D 82 49 |.7-.OP(I)...<-.I|
000015C0: 00 CC 1D 46 2D 81 49 B2 31 A4 4E 4D 00 01 1E 50 |...F-.I.1.NM...P|
000015D0: 2D 91 4F 50 28 49 29 8D 34 30 30 31 2C 35 30 31 |-.OP(I).4001,501|
000015E0: 30 2C 36 30 31 30 2C 37 30 31 30 2C 38 30 31 30 |0,6010,7010,8010|
000015F0: 2C 39 30 31 30 2C 31 30 30 31 30 2C 31 31 30 31 |,9010,10010,1101|
00001600: 30 00 08 1E 5A 2D 82 49 00 0E 1E 64 2D 8E 00 4F |0...Z-.I...d-..O|
00001610: 1E EA 2E 99 22 93 4D 41 4B 45 20 53 55 52 45 20 |....".MAKE SURE |
00001620: 50 52 49 4E 54 45 52 20 49 53 20 4F 4E 2E 22 3A |PRINTER IS ON.":|
00001630: 99 22 11 11 2E 2E 2E 48 49 54 20 41 4E 59 20 4B |.".....HIT ANY K|
00001640: 45 59 20 57 48 45 4E 20 52 45 41 44 59 2E 22 00 |EY WHEN READY.".|
00001650: 64 1E F4 2E A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |d....A$:.A$."".1|
00001660: 32 30 32 30 00 9D 1E FE 2E 99 22 11 44 4F 20 59 |2020......".DO Y|
00001670: 4F 55 20 57 41 4E 54 20 54 4F 20 44 45 53 49 47 |OU WANT TO DESIG|
00001680: 4E 41 54 45 20 54 48 45 20 52 4F 57 53 20 54 4F |NATE THE ROWS TO|
00001690: 20 42 45 20 50 52 49 4E 54 45 44 3F 22 00 B2 1E | BE PRINTED?"...|
000016A0: 08 2F A1 41 24 3A 8B 41 24 B2 22 22 A7 31 32 30 |./.A$:.A$."".120|
000016B0: 34 30 00 D0 1E 12 2F 8B 41 24 B2 22 4E 22 A7 53 |40..../.A$."N".S|
000016C0: 31 B2 31 3A 53 32 B2 35 30 3A 89 31 32 30 37 30 |1.1:S2.50:.12070|
000016D0: 00 10 1F 1C 2F 85 22 46 49 52 53 54 20 52 4F 57 |..../."FIRST ROW|
000016E0: 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 22 3B | TO BE PRINTED";|
000016F0: 53 31 3A 85 22 11 4C 41 53 54 20 52 4F 57 20 54 |S1:.".LAST ROW T|
00001700: 4F 20 42 45 20 50 52 49 4E 54 45 44 22 3B 53 32 |O BE PRINTED";S2|
00001710: 00 2E 1F 26 2F 53 50 24 B2 22 20 20 20 20 20 20 |...&/SP$." |
00001720: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 37 | ".7|
00001730: 1F 30 2F 9F 34 2C 34 00 74 1F 44 2F 98 34 2C 22 |.0/.4,4.t.D/.4,"|
00001740: 20 20 20 20 20 20 20 20 20 20 43 4F 4C 55 4D 4E | COLUMN|
00001750: 53 20 20 20 20 22 3B 3A 81 49 B2 31 A4 35 3A 98 |S ";:.I.1.5:.|
00001760: 34 2C 49 3B 22 20 20 20 20 20 20 20 20 20 20 20 |4,I;" |
00001770: 22 3B 3A 82 00 7B 1F 4E 2F 98 34 00 88 1F 58 2F |";:..{.N/.4...X/|
00001780: 81 59 B2 53 31 A4 53 32 00 A5 1F 62 2F 98 34 2C |.Y.S1.S2...b/.4,|
00001790: C8 28 22 52 4F 57 22 AA C4 28 59 29 AA 53 50 24 |.("ROW"..(Y).SP$|
000017A0: 2C 31 30 29 3B 00 CE 1F 67 2F 81 49 B2 31 A4 35 |,10);...g/.I.1.5|
000017B0: 3A 98 34 2C C9 28 53 50 24 AA C4 28 56 28 49 2C |:.4,.(SP$..(V(I,|
000017C0: 59 29 29 2C 31 34 29 3B 3A 82 49 3A 98 34 00 DB |Y)),14);:.I:.4..|
000017D0: 1F 6C 2F 82 59 3A 98 34 3A 98 34 00 19 20 76 2F |.l/.Y:.4:.4.. v/|
000017E0: 98 34 2C 22 20 20 20 20 20 20 20 20 20 20 43 4F |.4," CO|
000017F0: 4C 55 4D 4E 53 20 20 20 20 22 3B 3A 81 49 B2 36 |LUMNS ";:.I.6|
00001800: A4 31 30 3A 98 34 2C 49 3B 22 20 20 20 20 20 20 |.10:.4,I;" |
00001810: 20 20 20 20 20 22 3B 3A 82 00 20 20 7B 2F 98 34 | ";:.. {/.4|
00001820: 00 2D 20 80 2F 81 59 B2 53 31 A4 53 32 00 4A 20 |.- ./.Y.S1.S2.J |
00001830: 8A 2F 98 34 2C C8 28 22 52 4F 57 22 AA C4 28 59 |./.4,.("ROW"..(Y|
00001840: 29 AA 53 50 24 2C 31 30 29 3B 00 74 20 8F 2F 81 |).SP$,10);.t ./.|
00001850: 49 B2 36 A4 31 30 3A 98 34 2C C9 28 53 50 24 AA |I.6.10:.4,.(SP$.|
00001860: C4 28 56 28 49 2C 59 29 29 2C 31 34 29 3B 3A 82 |.(V(I,Y)),14);:.|
00001870: 49 3A 98 34 00 81 20 94 2F 82 59 3A 98 34 3A 98 |I:.4.. ./.Y:.4:.|
00001880: 34 00 BF 20 9E 2F 98 34 2C 22 20 20 20 20 20 20 |4.. ./.4," |
00001890: 20 20 20 20 43 4F 4C 55 4D 4E 53 20 20 20 20 22 | COLUMNS "|
000018A0: 3B 3A 81 49 B2 31 31 A4 31 35 3A 98 34 2C 49 3B |;:.I.11.15:.4,I;|
000018B0: 22 20 20 20 20 20 20 20 20 20 20 22 3B 3A 82 00 |" ";:..|
000018C0: C6 20 A3 2F 98 34 00 D3 20 A8 2F 81 59 B2 53 31 |. ./.4.. ./.Y.S1|
000018D0: A4 53 32 00 F0 20 B2 2F 98 34 2C C8 28 22 52 4F |.S2.. ./.4,.("RO|
000018E0: 57 22 AA C4 28 59 29 AA 53 50 24 2C 31 30 29 3B |W"..(Y).SP$,10);|
000018F0: 00 1B 21 B7 2F 81 49 B2 31 31 A4 31 35 3A 98 34 |..!./.I.11.15:.4|
00001900: 2C C9 28 53 50 24 AA C4 28 56 28 49 2C 59 29 29 |,.(SP$..(V(I,Y))|
00001910: 2C 31 34 29 3B 3A 82 49 3A 98 34 00 22 21 BC 2F |,14);:.I:.4."!./|
00001920: 82 59 00 2B 21 C6 2F 98 34 3A 8E 00 36 21 CF 2F |.Y.+!./.4:..6!./|
00001930: 9E 35 38 36 39 32 00 56 21 D0 2F 85 22 12 41 52 |.58692.V!./.".AR|
00001940: 45 20 59 4F 55 20 53 55 52 45 3F 20 20 59 2F 4E |E YOU SURE? Y/N|
00001950: 92 22 3B 5A 41 24 00 68 21 D5 2F 8B 5A 41 24 B2 |.";ZA$.h!./.ZA$.|
00001960: 22 4E 22 A7 20 89 31 30 00 7E 21 D6 2F 8B 5A 41 |"N". .10.~!./.ZA|
00001970: 24 B2 22 59 22 A7 20 89 31 32 32 35 30 B2 00 AD |$."Y". .12250...|
00001980: 21 DA 2F 85 22 12 20 4E 4F 57 20 59 4F 55 27 52 |!./.". NOW YOU'R|
00001990: 45 20 43 4F 4D 50 4C 45 54 45 4C 59 20 53 55 52 |E COMPLETELY SUR|
000019A0: 45 3F 20 20 59 2F 4E 92 22 3B 5A 42 24 00 C3 21 |E? Y/N.";ZB$..!|
000019B0: DF 2F 8B 20 5A 42 24 B2 22 59 22 A7 20 89 31 33 |./. ZB$."Y". .13|
000019C0: 30 30 30 00 D6 21 E4 2F 8B 20 5A 42 24 B2 22 4E |000..!./. ZB$."N|
000019D0: 22 A7 20 89 31 30 00 F7 21 C8 32 99 22 57 45 4C |". .10..!.2."WEL|
000019E0: 4C 20 47 4F 4F 44 2D 42 59 20 54 48 45 4E 2C 22 |L GOOD-BY THEN,"|
000019F0: 3A 9E 36 34 37 33 38 00 00 00 |:.64738... |
..)....*********************************
*.\.... CONVERTED TO WORK WITH DISK DRIV
E BY :...... SEAN ROONEY. MISSISS
AUGA, ONT. CANADA. DEC27,19
83..K....*******************************
***...... QUIT OPTION ON MAIN MENU ADDE
D:...... JANUARY1,1984. BY SEAN ROONEY
.@....**********************************
.V....53280,0:.53281,0......V(15,60),X$(
50),V$(15,60):CR$.".":CT$.". ******* CAL
CULATING *******.".L...."...**D I S K A
L C-64** ":C%.1:R%.1......"... .V.IEW
COLUMNS......". .E.NTER DATA...(..".
.D.O CALCULATIONS.6.2..". .Z.ERO
MATRIX.V.<..". .G.ET DATA FROM DISK.U
.F..". .S.AVE DATA ON DISK...P..".
.M.EMORY CHECK...U..". .P.RINT DATA
ON PRINTER".R.Z..". .Q.UIT THE PROGRA
M"..._.."...WHAT IS YOUR CHOICE ?":Y.0..
.`..AN$:.AN$."".96.1.A..X.1.9:.AN$.J("VE
DZGSMPQ",X,1).Y.X.H.B..:.Y.230,1000,2020
,120,702,802,940,12010,12239:.10.Y.X..CR
$:.X.1.15......Y.1.50.....V(X,Y).0......
Y. . ..X.......I....".ENTER COLUMN (1 TO
13):";C%...H..C%.1.C%.13..".";:.190...R
..:.".ENTER ROW (1 TO 31):";R%......R%.1
.R%.31.210.)....".";:.500.5...."...";.E.
...Y.R%.R%.19.O.....9);.^....X.C%.C%.2.O
...X$.D(V(X,Y))..."...10.C(X$));X$;...,.
....6..G(13);...@...M.E.."
";...J..".U.P
.D.OWN .L.EFT .R.IGHT .J.UMP
.M.ENU";...T..C$:.C$."".340.A.H..C$."U".
R%.R%.10:.G(13);".";:.220.G.|..C$."D".R%
.R%.10:.G(13);".";:.220......C$."L".C%.C
%.2:.470......C$."R".C%.C%.2:.470......C
$."J".190...B..C$."M".10.A.L..340...V..C
%.1.C%.13..G(13);:.190......230.......9)
;......I.1.3......".. COLUMN.";......
.(....G(13);.9);.7.&..I.C%.C%.2.K.0.S%.7
:.I.10.S%.8.C.:...S%);".";D(I);".";.I.D.
..U.N..G(13);...X..I.R%.R%.19...B.S$."":
.I.10.S$." "...L...2);"..ROW"S$D(I);".."
...V...D..........".WHAT IS NAME OF FILE
YOU WANT";FL$...F..".LOOKING FOR ";FL$.
..P..1,8,0,(FL$).:.U.."FOUND ";FL$;" ...
..LOADING".F.Z..X.1.12.R....Y.1.49.`....
1,V(X,Y).G....Y.N....X.....N#1:."OK.....
GOT DATA"......I.1.1000:.I. .....D."..".
WHAT NAME FOR THIS FILE";FL$.U.H..1,8,1,
(FL$)...R..X.1.12...\..Y.1.49...F..1,V(X
,Y)...P..Y...Z..X.(....#1:."OK.....DATA
ON DISK".9....I.1.1000:.I.?.....Z...."..
".(A)"BYTES FREE.K....I.1.1000:.I.Q...
..|....".":......."WHICH COLUMN (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.J.$..:."ROW","CU
RRENT","COLUMN";CL.U....Y.1.K...8..:.Y,V
(CL,Y),:."...........";V:V(CL,Y).V...B..
Y...L.."...C. FOR ANOTHER COLUMN
.M. FOR MENU.P.V..D$:.D$."".1110...`..D$
."C".1000...J........"..YOU MAY CHOOSE A
NY OF THE FOLLOWING".2....". .1. SUM DO
WN COLUMNS.O....". .2. SUM ACROSS ROWS.
Q....". .3. REPRODUCE ANY COLUMN......"
. .4. ADD-MULT-DIV-SUB AT ANY POINT.L..
..". .5. AVERAGE ACROSS ROWS (DO .2. FI
RST)... ..". .6. MAKE ROW % OF BASE ROW
...*..". .7. MAKE COLUMN % OF BASE COLU
MN.>.4..". .8. SUM INDIVIDUAL COLUMNS.B
.>..". .9. SERIES OF CALCULATIONS.~.H..
". .M. RETURN TO MENU...I..". ......
.. ..........".WHICH ONE ?";.J....198,7
:.AN$:.AN$."".3510.Y....AN$."M"........E
(AN$).4001,5010,6010,7010,8010,9010,1001
0,11010,11510...J..2020.`....".DO YOU WI
SH TO DESIGNATE THE ROWS .TO BE
SUMMED?".T....A$:.A$."".4002......A$."N"
.S1.1:S2.49:.4005.M....".FIRST ROW";S1:.
".LAST ROW";S2:.S1.S2.S1.0.S2.49.4001...
...CR$;CT$:.".SUM WILL BE STORED IN ROW"
S2.1......X.1.14.....V(X,S2.1).0......X.
+.H..X.1.14.8.R..Y.S1.S2.W...V(X,S2.1).V
(X,S2.1).V(X,Y).^....Y.E....X.K.........
.CR$;CT$:.".SUM WILL BE STORED IN COLUMN
13......Y.1.48.....V(13,Y).0......Y.H..
..Y.1.48.T.D..X.1.12...N.V(13,Y).V(13,Y)
.V(X,Y)...X..X......Y.......%.Z..".DUPLI
CATE WHICH COLUMN";CX.F...".PUT IT IN W
HICH COLUMN";X.R....Y.1.50.E...V(X,Y).V(
CX,Y).L....Y.R.....Z.B.Y.0...L.."...A.DD
.M.ULTIPLY .S.UBTRACT .D.IVIDE
.D.V..A$:.A$."".7030......X.1.4:.A$.J("A
MSD",X,1).Y.X......:.Y.7070,7130,7190,72
50:.7030.!....".AMOUNT TO ADD";AD.5...."
WHAT COL #";X.I...."WHAT ROW #";Y.^...V(
X,Y).V(X,Y).AD.H.F..7999...Z..".AMOUNT T
O MULTIPLY BY";ML......"WHAT COL #";X...
..."WHAT ROW #";Y.F...V(X,Y).V(X,Y).ML.P
....7999......".AMOUNT TO SUBTRACT";SB..
. .."WHAT COL #";X...*.."WHAT ROW #";Y.+
.4.V(X,Y).V(X,Y).SB.5.>..7999.T.R..".AMO
UNT TO DIVIDE BY";DV.H.\.."WHAT COL #";X
.|.F.."WHAT ROW #";Y...P.V(X,Y).V(X,Y).D
V...Z.V(X,Y)..(V(X,Y).1000..5).1000.....
.7999.C.?.....J..".HOW MANY ITEMS IN EAC
H ROW";AVE...T..CR$;CT$:.".AVERAGE WILL
BE STORED IN COLUMN 14.*.^..Y.1.50.>.C..
V(13,Y).0.8050.V.H.V(14,Y).V(13,Y).AVE:V
(14,Y)..(V(14,Y).1000..5).1000.}.R..Y...
|... .2#.".WHICH IS BASE ROW";BR.O.<#.".
WHICH IS ROW FOR PERCENTAGES";Y:.BR.Y...
..F#.X.1.13..._#.V(X,BR).0.9075.'.D#V(X,
Y).V(X,Y).V(X,BR):V(X,Y)..(V(X,Y).10000.
.5).100...S#.X.4.X#..T..'.".WHICH IS BAS
E COLUMN";CX...$'.".WHICH IS COLUMN FOR
PERCENTAGES";X:.X.CX......'.Y.1.50...G'.
V(CX,Y).0.10075...L'V(X,Y).V(X,Y).V(CX,Y
):V(X,Y)..(V(X,Y).10000..5).100...['.Y..
.`'.....+.".WHICH COLUMN DO YOU WANT TO
SUM";./..+.CA:.CA.1.CA.15.11020.[..+."..
W.HOLE COLUMN OR .P.ART OF COLUMN?".}. +
.YN$:.YN$.."P".YN$.."W".11040...*+.YN$."
P"..11210:.11065...4+S1.1:S2.49...9+V(CA
,S2.1).0.E.>+.Y.S1.S2...H+V(CA,S2.1).V(C
A,S2.1).V(CA,Y)...R+.Y...\+....J+.".ROW
OF FIRST ITEM IN THE SUM";S1.[.O+.".ROW
OF LAST ITEM IN THE SUM";S2:.S1.S2.S1.0.
S2.49.11210.A.T+.....,.:."......HOW MANY
CALCULATIONS (1-8)?"....,.I.1.5:."
":..G..-.NM$:.NM$."".11520.
...-.E(NM$).0.E(NM$).8.11520....-NM.E(NM
$):.NM.0...F..-."......ENTER OPERATIONS
IN THE ORDER YOU WANT THEM TO BE PERFOR
MED..".R..-.I.1.NM...(-."ENTER OPERATION
#"I". ........";...2-.A$:OP(I
).E(A$):.OP(I).1.OP(I).8.11570...7-.OP(I
)...<-.I.L.F-.I.1.NM...P-.OP(I).4001,501
0,6010,7010,8010,9010,10010,11010...Z-.I
...D-..O....".MAKE SURE PRINTER IS ON.":
.".....HIT ANY KEY WHEN READY.".D....A$:
.A$."".12020......".DO YOU WANT TO DESIG
NATE THE ROWS TO BE PRINTED?"..../.A$:.A
$."".12040.P../.A$."N".S1.1:S2.50:.12070
..../."FIRST ROW TO BE PRINTED";S1:.".LA
ST ROW TO BE PRINTED";S2...&/SP$."
".7.0/.4,4.T.D/.4,"
COLUMNS ";:.I.1.5:.4,I;"
";:..{.N/.4...X/.Y.S1.S2...B/.4,H("ROW".
D(Y).SP$,10);.N.G/.I.1.5:.4,I(SP$.D(V(I,
Y)),14);:.I:.4...L/.Y:.4:.4.. V/.4,"
COLUMNS ";:.I.6.10:.4,I;"
";:.. {/.4.- ./.Y.S1.S2.J ./.4,H("
ROW".D(Y).SP$,10);.T ./.I.6.10:.4,I(SP$.
D(V(I,Y)),14);:.I:.4.. ./.Y:.4:.4.. ./.4
," COLUMNS ";:.I.11.15:.4,I;
" ";:..F ./.4.S ./.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:..6!O/.58692.V!P/.".ARE YOU SURE? Y/N
.";ZA$.H!U/.ZA$."N". .10.~!V/.ZA$."Y". .
12250...!Z/.". NOW YOU'RE COMPLETELY SUR
E? Y/N.";ZB$.C!./. ZB$."Y". .13000.V!./
. ZB$."N". .10..!H2."WELL GOOD-BY THEN,"
:.64738...
> CLICK IMAGE PREVIEW FOR FULL MODAL