500: X 5 :@~A$"N( , )":LI("1C10"):T1::(F$,T,1)"+"A170:95(F$,T,1)"-"A171:95(F$,T,1)"="A178:95#(F$,T,1)"*"A172:95((F$,T,1)">"A177:95-(F$,T,1)"/"A173:95,2(F$,T,1)"<"A179:95I7(F$,T,1)"^"A174:95x<(F$,T,1)"R"(A$,3,2)(F$,T1,2):TT3A(F$,T,1)"C"(A$,6,2)(F$,T1,2)::75FTT3:B18:A((A$,B,1)):LI,A:LILI1::90K(F$,T,1)"?"UI0XX:B$(XX):UI1MP(F$,T,1)"?"UI1B1(B$):LI,((B$,B,1)):LILI1::TT1:90pULI,((F$,T,1)):LILI1:TT1Z T (F$):TLI7223:T,32::_LI,A:TT1:LILI1:90d""DF$26)"WORKSHEET":11);:"0":TCC5:"C";:"##";T;:9);::i" ":HRR:TR:DRR16::"R";:"##";T;:" ";:" "nHCC:AC:DCC6::120:" ";:AA1: ADC A53o:"0":TT1: TDR T33:" "4 s" ":_ x(N$(T,A),1)"^"130::P$;N(T,A);: (N$(T,A))11N$(T,A)N$(T,A)" ":130 (N$(T,A),2,10);: 1,PC,PR,"":TR:AC:120: ! :%:N(32,52),N$(32,52):R1:C1:T132:A152:N$(T,A)"_"::G!J132:A12:KA82:JJ1:K,(J):K,A:P$"-######.##"i!T18:SP$SP$" ":!100:PC5:PR3:C$""!1,PC,PR,"":TR:AC:120:1,0,20,SP$:1,0,20:"R="R"C="C" "(N$(R,C),2)!A$:CO0:T116"A$(C$,T,1)COT:T16$":CO0800}"CO550,600,650,700,1000,1500,2000,2500,3000,3500,4000,4500,5000,5500,6000,6500:505"&499:RR1:PRPR1:PR3560"+505"0R1R1:PR3:WR1::PR3:WRR"5PR3:WCC:CHC:100:RWR:CWC:505#X499:RR1:PRPR1:PR18610#]505K#bR32R17:PR18:WR32::PR18:WRR:RR15s#gPR18:WCC:CHC:100:RWR:CWC:505#499:CC1:PCPC12:PC5660#505#C1C1#WCC:PC5:WRR:RHR:100:CWC:RWR:505#499:CC1:PCPC12:PC75710$505$C51C52H$WCC:PCPC12:CC5:WRR:RHR:100:RWR:CWC:505a$ A(A$)132:A0505$%A10000,12000,14000,16000,11000,13000,15000,17000:505$1099:"BEGINNING ROW";WR:1099:"ENDING ROW";R:1099%"BEGINNING COLUMN";WC:1099:"ENDING COLUMN";C:1099U%"ADJUST PAPER TO TOP OF PAGE":A$:4,4:1099:"PRINTING":PR3%AWCC7:4,"ROW COLUMN ";:T16:4," COLUMN ";::4%4,"#########";A;%TA1A6:4,"###########";T;::4%4," ";:T176:4,"";::4,&TWRR:4,"##";T;:4,"";:XAA6:X521045G&(N$(T,X),1)"^"1040h& 4,P$;N(T,X);:4," ";:1045&4,(N$(T,X),2,10)" ";&:4:PRPR1::XPR66:4::PR3::4&C1:R1:PR3:PC5:100:505&K1,0,23,(SP$,40):1,0,23:,'1,0,23:"CLEARING NUMBERS":R132:C152:N(R,C)0:C,RL'R1:C1:100:PR3:PC5:505}'1,0,23:"CLEARING FORMULAS":R132:C152'(N$(R,C),1)"\"(N$(R,C),1)(133)N$(R,C)"_"'C,R:R1:C1:100:PR3:PC5:505 ( 1,0,23:"CLEARING CALCULATIONS":R132:C152@( (N$(R,C),1)"\"(N$(R,C),1)(133)N(R,C)0e( C,R:R1:C1:PC5:PR3:100:505( 1,0,23:"NO. OF DECIMALS (0-8)";ND:ND0P$"-#########":3100( ND8ND03000( P$"":T1ND:P$P$"#"::P$"."P$) (P$)9P$"#"P$:3015) P$"-"P$<) WRR:WCC:RHR:CHC:100:RWR:CWC:505y) 1,0,23:"SOURCE FILE";A$:1,0,23:"DESTINATION FILE";I$) (A$) (I$):1,0,23:(SP$,40):505)15:52684,16,12:52684,24,20:2606,16:2607,24*"":"*=S":"PRESS ANY KEY":A$6*15:52684,0,12:52684,8,20:2606,0:2607,8:505l* WR=R:WC=C:R=HR:C=HC:GOSUB100:R=WR:C=WC:GOTO505*1,0,23:"ROW(01-17),COL(01-47)";R,C:R1R174500*C1C474500*PC5:PR3:100:505*: +|1,0,23:"INSERT BLANK DISK":A$:1,0,23:"DISK NAME,ID ";D$,I$]+D$"N0:"D$","I$:8,8,15,D$:8:1,0,23:(SP$,40):505+p1,0,23:"FILE TO BE DELETE";A$:(A$):1,0,23:(SP$,40):505+d1,0,23:"STARTING CELL";WR,WC:1,0,23:"ENDING CELL ";R1,C1,i1,0,23:"DESTINATION CELL";DR,DC:XDC:PRDRc,nTWRR1:DCX:AWCC1:N(DR,DC)N(T,A):N$(DR,DC)N$(T,A):DCDC1::DRDR1:,sRPR:CX:PC5:PR3:100:505,'15:52684,16,12:52684,24,20:2606,16:2607,24-'"LIST OF COMMANDS":"F1 - DISPLAYS THIS SCREEN":"F2 - ENTER FORMULA/FUNCTION "_-'"F3 - ENTER NUMBER":"F4 - ENTER STRING":"F5 - LOAD FILE FROM DISK"-'"F6 - SAVE FILE TO DISK":"F7 - CALCULATE":"F8 - CLEAR MEMORY"-'"HOLD SHIFT KEY AND PRESS":"N - CLEAR NUMBERS ONLY":"F - CLEAR FORMULAS ONLY"].$'"C - CLEAR FORMULAS AND RESULTS":"D - SETS NUMBER OF DECIMAL PLACES":"X - COPY DISK FILE".)'"L - LIST FILES ON DISK":"G - GO TO ROW,COLUMN":"E - EXIT PROGRAM"..'"H - FORMAT A DISK":"S - DELETE DISK FILE":"T - TRANSFER BLOCK" /3'"RETURN TO EXIT OR F1 FOR NEXT SCREEN":A$4/8'A$(13)10115z/9' IFA$=CHR$(13)THENWR=R:WC=C:R=HR:C=HC:GOSUB100:R=WR:C=WC:GOTO505/='"LIST OF FORMULAS":"+ - ADD E.I. R01C01+R02C02":"- - SUBTRACT E.I R01C01-R02C02"D0B'"/ - DIVIDE E.I. R01C01/R02C01":"* - MULTIPLY E.I. R01C01*R01C01":"^ - EXPONENT E.I. R01C01^2 (SQUARED)0C'"? - REQUEST USER INPUT"::"LIST OF FUNCTIONS":0G'"RSUM(RR) - ADD COLUMNS STARTING AT RR":"CSUM(CC) - ADD ROW STARTING AT CC")1L'"RCNT(RR) - COUNTS ZERO ELEMENTS(ROW)":"CCNT(CC) - COUNTS ZERO ELEMENTS(COL)"e1Q'"RAVG(RR) - AVERAGE COLUMNS":"CAVG(CC) - AVERAGE ROW"1V'"RINC(XX) - INCREAMENT SAME COL IN PREVIOUS ROW BY X"A2['"CINC(XX) - INCREAMENT PREVIOUS COL IN SAME ROW BY X":"RDEC(XX) - DECREAMENT SAME COL IN PREVIOUS ROW BY X"2`'"CDEC(XX) - DECREAMENT PREVIOUS COL IN SAME ROW BY X":"NOTE: RR=ROW(1-32),CC=COL(1-52),XX=(.9-99)":2e'"RETURN TO EXIT OR F1 FOR NEXT SCREEN":A$3j'A$(13)10115H3k' IFA$=CHR$(13)THENWR=R:WC=C:R=HR:C=HC:GOSUB100:R=WR:C=WC:GOTO5053t'"LOGICAL OPERATORS":"= - EQUAL":"< - LESS THAN":"> - GREATER THAN"3y'"THESE RETURN -1 WHEN TRUE & 0 FOR FALSE"3~'"RETURN FOR WORKSHEET":A$:10040%4'15:52684,0,12:52684,8,20:2606,0:2607,8:505_4*1,0,23:"1=FORMULA,2=FUNCTION";X:X111100::11200j4*110004\+1,0,23:""(SP$,60);:1,0,23:"FORMULA";N$(R,C):N$(R,C)"\"N$(R,C):11300 5+1,0,23:""(SP$,60);:1,0,23:"FUNCTION";N$(R,C):N$(R,C)(133)N$(R,C)-5$,N(R,C)0:1,0,23,(SP$,78):505V5.1,0,23:"NUMBER";N(R,C):N$(R,C)"_"q5.1,0,23,(SP$,78):505521,0,23:"STRING";A$:N$(R,C)"^"A$521,0,23,(SP$,78):505561,0,23:"FILENAME";DF$:1,0,23:"LOADING "DF$(SP$,20))66 #8,(DF$):DS621,0,23:DF$" NOT FOUND":#8:505C668,P$:R132:C152~668,N$(R,C):(N$(R,C))134N$(R,C)"_":N(R,C)0:1403066(N$(R,C))94N(R,C)0:14030668,A$:N(R,C)(A$)66C:R66R1:C1:#8:100:5057:1,0,23:"FILENAME? ";DF$:1,0,23:"FILENAME";F$?7:1,0,23:"SAVING "F$(SP$,40):(F$):"0"e7: #8,(F$),W:8,P$:T132:A1527:N$(T,A)"_"N(T,A)08,(134):150307:(N$(T,A))948,N$(T,A):150307:8,N$(T,A):8,P$;N(T,A)7:A:T8:#8:1,0,23:(SP$,40):" ":505@8>1,0,23:"CALCULATING"(SP$,40):WRR:WCC:R132:C152m8>(N$(R,C),1)"^"(N$(R,C),1)"_"161308>(N$(R,C),1)"\"F$(N$(R,C),2):20:10:N(R,C)X:161308>F$(N$(R,C),2):A(F$,"("):A0160529>X((F$,A1,2)):Y0:A$(F$,2,1):A$"S"Y19>A$"A"Y2(9>A$"C"Y3:9>A$"I"16120T9>A$"D"XX1:16120c9>Y0160529>(F$,1)"R"R1X:C1C:R2R1:C2C:160659>(F$,1)"C"C1X:R1R:R2R:C2C1:160659>WRR:WCC:R1:C1:100:>1,0,23:"** BAD FUNCTION ** IN R"WR"C"WC:R32:C522:>C,R:R1:C1:PC5:PR3:505K:>Y16070,16100,16080:>X0:TR1R2:AC1C2:(N$(T,A),1)"^"::XXN(T,A):>A,T:N(R,C)X:16130:>X0:TR1R2:AC1C2:(N$(T,A),1)"^"16090:>N(T,A)0XX1:>A,T:N(R,C)X:161303;>X0:Y0:TR1R2:AC1C2:(N$(T,A),1)"^"16110H;>XXN(T,A):YY1l;>A,T:Y0N(R,C)0::N(R,C)XYw;>16130;>(F$,1)"R"N(R,C)N(R1,C)X:16130;>N(R,C)N(R,C1)X;?C,R:C1:R1:PR3:PC5:100:UI0:505