)**********************************\ CONVERTED TO WORK WITH DISK DRIVE BY : SEAN ROONEY. MISSISSAUGA, ONT. CANADA. DEC27,1983.********************************** QUIT OPTION ON MAIN MENU ADDED:  JANUARY1,1984. BY SEAN ROONEY. 53280,0:53281,0z V(15,60),X$(50),V$(15,60):CR$"":CT$" ******* CALCULATING *******" "**D I S K A L C-64** ":C%1:R%1 " VIEW COLUMNS " ENTER DATA (" DO CALCULATIONS 2" ZERO MATRIX. <" GET DATA FROM DISKM F" SAVE DATA ON DISKg P" MEMORY CHECK U" PRINT DATA ON PRINTER" Z" QUIT THE PROGRAM" _"WHAT IS YOUR CHOICE ?":Y0 `AN$:AN$""96 aX19:AN$("VEDZGSMPQ",X,1)YX@ b:Y230,1000,2020,120,702,802,940,12010,12239:10Q xCR$:X115] Y150j V(X,Y)0q Yx X~ "ENTER COLUMN (1 TO 13):";C% C%1C%13"";:190 :"ENTER ROW (1 TO 31):";R% R%1R%31210 "";:500 ""; YR%R%19' 9);6 XC%C%2G X$(V(X,Y))[ "10(X$));X$;a ,m 6(13);s @ E" "; J"UP DOWN LEFT RIGHT JUMP MENU"; TC$:C$""340 hC$"U"R%R%10:(13);"";:220? |C$"D"R%R%10:(13);"";:220X C$"L"C%C%2:470q C$"R"C%C%2:470 C$"J"190 C$"M"10 340 C%1C%13(13);:190 230 9); I13 " COLUMN"; (13);9);&IC%C%2#0S%7:I10S%8;:S%);"";(I);"";ADMN(13);]XIR%R%19tbS$"":I10S$" "l2);"ROW"S$(I);""v"WHAT IS NAME OF FILE YOU WANT";FL$"LOOKING FOR ";FL$1,8,0,(FL$)"FOUND ";FL$;" .....LOADING"X112*Y14981,V(X,Y)?YFXa #1:"OK.....GOT DATA"rI11000:Ix""WHAT NAME FOR THIS FILE";FL$H1,8,1,(FL$)RX112\Y149f1,V(X,Y)pYzX#1:"OK.....DATA ON DISK"I11000:I2" "(A)"BYTES FREECI11000:IIT"":r"WHICH COLUMN (1-12)";K$CL(K$):CL1CL121000CL13CL14CL15"RESERVED FOR TOTALS":1010"HOW MANY ROWS (1-50)";K$K(K$):K50K11040"$:"ROW","CURRENT","COLUMN";CL-.Y1KZ8:Y,V(CL,Y),:"";V:V(CL,Y)VaBYL"C FOR ANOTHER COLUMN M FOR MENUVD$:D$""1110`D$"C"1000j"YOU MAY CHOOSE ANY OF THE FOLLOWING" " 1 SUM DOWN COLUMNS'" 2 SUM ACROSS ROWSI" 3 REPRODUCE ANY COLUMNt " 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 COLUMN4" 8 SUM INDIVIDUAL COLUMNS:>" 9 SERIES OF CALCULATIONSVH" M RETURN TO MENUpI"  "WHICH ONE ?"; 198,7:AN$:AN$""3510 AN$"M" (AN$)4001,5010,6010,7010,8010,9010,10010,11010,11510 20208"DO YOU WISH TO DESIGNATE THE ROWS TO BE SUMMED?"LA$:A$""4002iA$"N"S11:S249:4005"FIRST ROW";S1:"LAST ROW";S2:S1S2S10S2494001CR$;CT$:"SUM WILL BE STORED IN ROW"S21X114V(X,S21)0XX114YS1S2/V(X,S21)V(X,S21)V(X,Y)6Y=XCsCR$;CT$:"SUM WILL BE STORED IN COLUMN 13Y148V(13,Y)0YY148X112V(13,Y)V(13,Y)V(X,Y)XYz"DUPLICATE WHICH COLUMN";CX"PUT IT IN WHICH COLUMN";X*Y150=V(X,Y)V(CX,Y)DYJRbY0l"ADD MULTIPLY SUBTRACT DIVIDEvA$:A$""7030X14:A$("AMSD",X,1)YX:Y7070,7130,7190,7250:7030"AMOUNT TO ADD";AD "WHAT COL #";X!"WHAT ROW #";Y6V(X,Y)V(X,Y)AD@7999a"AMOUNT TO MULTIPLY BY";MLu"WHAT COL #";X"WHAT ROW #";YV(X,Y)V(X,Y)ML7999"AMOUNT TO SUBTRACT";SB "WHAT COL #";X*"WHAT ROW #";Y4V(X,Y)V(X,Y)SB >7999,R"AMOUNT TO DIVIDE BY";DV@\"WHAT COL #";XTf"WHAT ROW #";YipV(X,Y)V(X,Y)DVzV(X,Y)(V(X,Y)1000.5)10007999?J"HOW MANY ITEMS IN EACH ROW";AVETCR$;CT$:"AVERAGE WILL BE STORED IN COLUMN 14^Y150cV(13,Y)08050NhV(14,Y)V(13,Y)AVE:V(14,Y)(V(14,Y)1000.5)1000UrY[|x2#"WHICH IS BASE ROW";BR<#"WHICH IS ROW FOR PERCENTAGES";Y:BRYF#X113_#V(X,BR)09075d#V(X,Y)V(X,Y)V(X,BR):V(X,Y)(V(X,Y)10000.5)100s#X x#,'"WHICH IS BASE COLUMN";CX^$'"WHICH IS COLUMN FOR PERCENTAGES";X:XCXj.'Y150G'V(CX,Y)010075L'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:CA1CA15110203+"WHOLE COLUMN OR PART OF COLUMN?"U +YN$:YN$"P"YN$"W"11040p*+YN$"P"11210:110654+S11:S2499+V(CA,S21)0>+YS1S2H+V(CA,S21)V(CA,S21)V(CA,Y)R+Y\++"ROW OF FIRST ITEM IN THE SUM";S13+"ROW OF LAST ITEM IN THE SUM";S2:S1S2S10S249112109+e,:"HOW MANY CALCULATIONS (1-8)?",I15:" ":-NM$:NM$""11520-(NM$)0(NM$)811520 -NM(NM$):NM0-"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-I1NMP-OP(I)4001,5010,6010,7010,8010,9010,10010,11010Z-Id-'."MAKE SURE PRINTER IS ON.":"...HIT ANY KEY WHEN READY."<.A$:A$""12020u."DO YOU WANT TO DESIGNATE THE ROWS TO BE PRINTED?"/A$:A$""12040/A$"N"S11:S250:12070/"FIRST ROW TO BE PRINTED";S1:"LAST ROW TO BE PRINTED";S2&/SP$" "0/4,4LD/4," COLUMNS ";:I15:4,I;" ";:SN/4`X/YS1S2}b/4,("ROW"(Y)SP$,10);g/I15:4,(SP$(V(I,Y)),14);:I:4l/Y:4:4v/4," COLUMNS ";:I610:4,I;" ";:{/4 /YS1S2" /4,("ROW"(Y)SP$,10);L /I610:4,(SP$(V(I,Y)),14);:I:4Y /Y:4:4 /4," COLUMNS ";:I1115:4,I;" ";: /4 /YS1S2 /4,("ROW"(Y)SP$,10); /I1115:4,(SP$(V(I,Y)),14);:I:4 /Y!/4:!/58692.!/"ARE YOU SURE? Y/N";ZA$@!/ZA$"N" 10V!/ZA$"Y" 12250!/" NOW YOU'RE COMPLETELY SURE? Y/N";ZB$!/ ZB$"Y" 13000!/ ZB$"N" 10!2"WELL GOOD-BY THEN,":64738