L"ADAPTED BY STEVEN DARNOLD, P.O. BOX 201 ALEXANDRA, NEW ZEALANDd53280,11:53281,11 V(15,60),X$(50),V$(15,60):CR$"":CT$" ******* CALCULATING *******" "C O L U M N C A L C U L A T O R":C%1:R%1 " VIEW COLUMNS " ENTER DATA: (" DO CALCULATIONSS 2" ZERO MATRIXs <" GET DATA FROM DISK F" SAVE DATA TO DISK P" MEMORY CHECK U" PRINT DATA ON PRINTER" W" QUIT" Z"WHAT IS YOUR CHOICE ?":Y0 _AN$:AN$""951 ` AN$"Q" "":W aX18:AN$("VEDZGSMP",X,1)YX b:Y230,1000,2020,120,702,802,940,12010:10 xCR$:X115 Y150 V(X,Y)0 Y X "ENTER COLUMN (1 TO 13):";C% C%1C%13"";:190& :"ENTER ROW (1 TO 31):";R%: R%1R%31210I "";:500U "";e YR%R%19o 9);~ XC%C%2 X$(V(X,Y)) "10(X$));X$; , 6(13); @ E" ";( J"UP DOWN LEFT RIGHT JUMP MENU";; TC$:C$""340a hC$"U"R%R%10:(13);"";:220 |C$"D"R%R%10:(13);"";:220 C$"L"C%C%2:470 C$"R"C%C%2:470 C$"J"190 C$"M"10 340 C%1C%13(13);:190 230 9); I132 " COLUMN";8 H (13);9);W &IC%C%2k 0S%7:I10S%8 :S%);"";(I);""; D N(13); XIR%R%19 bS$"":I10S$" " l2);"ROW"S$(I);"" v "WHAT IS NAME OF FILE YOU WANT";FL$'"LOOKING FOR ";FL$81,8,3,(FL$)Z"FOUND ";FL$;" .....LOADING"fX112rY1491,V(X,Y)YX "OK.....GOT DATA"I11000:I1:""WHAT NAME FOR THIS FILE";FL$H1,8,3,(FL$)",S,W"RX112\Y149!f1,V(X,Y)(pY/zXJ"OK.....DATA ON DISK"[I11000:Id1:" "(A)"BYTES FREEI11000:I"":"WHICH COLUMN (1-12)";K$CL(K$):CL1CL121000CL13CL14CL15"RESERVED FOR TOTALS":10101"HOW MANY ROWS (1-50)";K$LK(K$):K50K11040o$:"ROW","CURRENT","COLUMN";CLz.Y1K8:Y,V(CL,Y),:"";V:V(CL,Y)VBYL"C FOR ANOTHER COLUMN M FOR MENUVD$:D$""1110`D$"C"1000 j9"YOU MAY CHOOSE ANY OF THE FOLLOWING"W" 1 SUM DOWN COLUMNSt" 2 SUM ACROSS ROWS" 3 REPRODUCE ANY COLUMN " 4 ADD-MULT-DIV-SUB AT ANY POINT" 5 AVERAGE ACROSS ROWS (DO 2 FIRST) " 6 MAKE ROW % OF BASE ROW?*" 7 MAKE COLUMN % OF BASE COLUMNc4" 8 SUM INDIVIDUAL COLUMNS>" 9 SERIES OF CALCULATIONSH" M RETURN TO MENUI"  "WHICH ONE ?"; 198,7:AN$:AN$""3510 AN$"M": (AN$)4001,5010,6010,7010,8010,9010,10010,11010,11510D 2020"DO YOU WISH TO DESIGNATE THE ROWS TO BE SUMMED?"A$:A$""4002A$"N"S11:S249:4005"FIRST ROW";S1:"LAST ROW";S2:S1S2S10S2494001!CR$;CT$:"SUM WILL BE STORED IN ROW"S21-X114=V(X,S21)0DXPX114]YS1S2|V(X,S21)V(X,S21)V(X,Y)YXCR$;CT$:"SUM WILL BE STORED IN COLUMN 13Y148V(13,Y)0YY148X112V(13,Y)V(13,Y)V(X,Y)X"Y(Jz"DUPLICATE WHICH COLUMN";CXk"PUT IT IN WHICH COLUMN";XwY150V(X,Y)V(CX,Y)YbY0l"ADD MULTIPLY SUBTRACT DIVIDEvA$:A$""7030 X14:A$("AMSD",X,1)YX-:Y7070,7130,7190,7250:7030F"AMOUNT TO ADD";ADZ"WHAT COL #";Xn"WHAT ROW #";YV(X,Y)V(X,Y)AD7999"AMOUNT TO MULTIPLY BY";ML"WHAT COL #";X"WHAT ROW #";YV(X,Y)V(X,Y)ML7999"AMOUNT TO SUBTRACT";SB' "WHAT COL #";X;*"WHAT ROW #";YP4V(X,Y)V(X,Y)SBZ>7999yR"AMOUNT TO DIVIDE BY";DV\"WHAT COL #";Xf"WHAT ROW #";YpV(X,Y)V(X,Y)DVzV(X,Y)(V(X,Y)1000.5)10007999?J"HOW MANY ITEMS IN EACH ROW";AVECTCR$;CT$:"AVERAGE WILL BE STORED IN COLUMN 14O^Y150ccV(13,Y)08050hV(14,Y)V(13,Y)AVE:V(14,Y)(V(14,Y)1000.5)1000rY|Y1 200:Y:2#"WHICH IS BASE ROW";BR<#"WHICH IS ROW FOR PERCENTAGES";Y:BRYF#X113"_#V(X,BR)09075Zd#V(X,Y)V(X,Y)V(X,BR):V(X,Y)(V(X,Y)10000.5)100as#Xgx#'"WHICH IS BASE COLUMN";CX$'"WHICH IS COLUMN FOR PERCENTAGES";X:XCX.'Y150G'V(CX,Y)010075L'V(X,Y)V(X,Y)V(CX,Y):V(X,Y)(V(X,Y)10000.5)100['Y`'H+"WHICH COLUMN DO YOU WANT TO SUM";b +CA:CA1CA1511020+"WHOLE COLUMN OR PART OF COLUMN?" +YN$:YN$"P"YN$"W"11040*+YN$"P"11210:110654+S11:S2499+V(CA,S21)0>+YS1S2H+V(CA,S21)V(CA,S21)V(CA,Y)!R+Y'\+O+"ROW OF FIRST ITEM IN THE SUM";S1+"ROW OF LAST ITEM IN THE SUM";S2:S1S2S10S24911210+,:"HOW MANY CALCULATIONS (1-8)?",I15:" ":-NM$:NM$""11520-(NM$)0(NM$)811520- -NM(NM$):NM0y-"ENTER OPERATIONS IN THE ORDER YOU WANT THEM TO BE PERFORMED."-I1NM(-"ENTER OPERATION #"I" ";2-A$:OP(I)(A$):OP(I)1OP(I)8115707-OP(I)<-IF-I1NM4P-OP(I)4001,5010,6010,7010,8010,9010,10010,11010;Z-IAd-."MAKE SURE PRINTER IS ON.":"...HIT ANY KEY WHEN READY.".A$:A$""12020."DO YOU WANT TO DESIGNATE THE ROWS TO BE PRINTED?"/A$:A$""12040/A$"N"S11:S250:12070C/"FIRST ROW TO BE PRINTED";S1:"LAST ROW TO BE PRINTED";S2a&/SP$" "j0/4,4D/4," COLUMNS ";:I14:4,I;" ";:M/4,"5 "N/4X/YS1S2b/4,("ROW"(Y)SP$,10);g/I15:4,(SP$(V(I,Y)),14);:I:4Vh/4,"-------------------------------------------------------------";si/4,"-------------------"l/Y:4:4v/4," COLUMNS ";:I69:4,I;" ";:{/4,"10"/YS1S2/4,("ROW"(Y)SP$,10); /I610:4,(SP$(V(I,Y)),14);:I:4f /4,"-------------------------------------------------------------"; /4,"-------------------" /Y:4:4 /4," COLUMNS ";:I1114:4,I;" ";: /4,"15" /YS1S2!/4,("ROW"(Y)SP$,10);0!/I1115:4,(SP$(V(I,Y)),14);:I:4x!/4,"-------------------------------------------------------------";!/4,"-------------------"!/Y!/4:4: