"CALCULATOR 128"#(147)7 53281,13:""P K0 39:"-";::t(" SUPER CALCULATOR"2 K0 39:"-";::<"SELECT MATHS OPERATION :-"AF" 1....FACTORIALK" 2....DEGREES TO DECIMALP" 3....DECIMAL TO DEGREES*U" 4....SUM & AVERAGEIZ" 5....ROOT MEAN SQUAREd_" 6....CUBE ROOTS +d" 7....RECTANGULAR TO POLARi" 8....POLAR TO RECTANGULARn" 9....METRIC CONVERSIONSs" 10...DOLLARS & CENTS" t" 11...FIBONACCI SERIES"x JK J 200,300,400,500,600,700,800,900,1000,3000,4000{(147):"FACTORIAL OPERATOR IS ...""N* N-1 * N-2 * N-3...... TO 1"" INPUT INTEGER N..";FAF I(F1) 1 1FFI:"FACTORIAL.. "A" IS"F:" ANOTHER FACTORIAL ?"Q Z$: Z$"" 240d Z$"Y" 200m 20,(147)"DEGREES TO DECIMAL":""1"DEGREES....";D2"MINUTES....";M3"SECONDS....";S6 D360 "OUT OF RANGE" @IM60 EJS3600 JADIJ! OB T"DECIMAL VALUE IS.."AU ^:"ANOTHER ?"l c Z$: Z$"" 355 h Z$"Y" 300 r 20 (147) "DECIMAL TO DEGREES": "ANGLE IN DEGREES..";A D(A) RAD B60R M(B)!KBM!S60K8!"ANGLE IS.."D;M"'";S;(34)V!"ANOTHER ANGLE ?"m! Z$: Z$"" 475! Z$"Y" 400! 20!(147)!5)"SUM AND AVERAGES"!:!"INPUT FIGURES - LAST ENTRY MUST BE '0'"!"A0:C0""NUMBER...";N%" N0 5605"AAN:CC1?" 515G"&:["06)"SUM IS.."Aq"56)"AVERAGE."AC":"ANOTHER SUM ?""? Z$: Z$"" 575"D Z$"Y" 500"I 20"X(147)"]"ROOT MEAN SQUARE":5#b" THE SQUARE ROOT OF THE AVERAGE OF THE SQUARES OF THE NUMBERS"e#g:"ENTER NUMBERS - LAST ENTRY MUST BE '0'"u#jC0:S0:B0#l:"NUMBER...";N#v N0 660#{BN2:CC1#SSB# 620#JSC:I(J)#:" R.M.S. VALUE IS.."I$:"ANOTHER SET.?"$ Z$: Z$"" 680-$ Z$"Y" 6006$ 20B$(147)S$17)"ROOTS"d$:18)"-*-"{$:"NUMBER...";N:$"TO THE ROOT OF..";R$K(N)$IKR$A(I)$:$5)"ANSWER .."N;"ROOT."R;" IS.."A$:"ANOTHER ROOT ?"% Z$: Z$"" 770&% Z$"Y" 700/%  20;% (147)c%%"RECTANGULAR TO POLAR":%*:"ENTER CO-ORDINATES ":%,"X...";X%/"Y...";Y%4 TAN @=Y/X%>IYX%HU(I):AU57.2958%MA$(A)&R:5)"ANGLE IS..."(A$,7) " DEGREES"'&WV((A$,7))57.2958:HY(V)-&ZI&\"VECTOR H VALUE IS.."Hi&a:"ANOTHER CONVERSION ?":&f Z$: Z$"" 870&k Z$"Y" 800&p 20&(147)&"POLAR TO RECTANGULAR":&:"ANGLE IN DEGREES DECIMAL";A'"HYPOTENUSE VECTOR..";V'CA57.29584'Y(C)V:X(C)VH'X$(X):Y$(Y)f'X((X$,7)):Y((Y$,7))l''"X COORDINATE IS.."X''"Y COORDINATE IS.."Y':"ANOTHER CONVERSION ?"' Z$: Z$"" 960' Z$"Y" 900' 20((147))("METRIC CONVERSIONS "H("PRESS SHIFT FOR PAGES"r(" 1 MM = 0.0394 IN. * 1 IN = 25.4MM(" 1 CM = 0.3937 IN. * 1 IN = 2.54 CM(" 1 M = 3.28 FT * 1 FT = .3048 M"(" 1 M = 1.093 YD * 1 YD = .9144 M"(  )"DISTANCE:"5)" 1 KM = 1093.61 YDS = .621 MILESQ)" 1 ML = 1.6093 KMS"W)e)$"AREA :"))" SQ/ML = 2.59 SQ/KMS = 640 ACRES")." HECTARE = 2.47 ACRES)3" SQ/KMS = .3861 SQ/MLS")8" HECTARE = 10,000 SQ METRES"*=" SQ/FEET = .0929 SQ/M"7*B:"FOR NEXT PAGE PRESS SHIFT"C*G 211,1O*(147)`*"VOLUME :"*" CU/FT = 6.24 IMP. GALS"*" CU/FT = .0283 CU/M*" CU/M = 35.31 CU/FT*"IMP GAL = 4.546 LITRES"*" US GAL = 3.7853 LITRES+" LITRES = .2201 IMP GALS"+%+"MASS : ">+"LBS = .4536 KILOS"W+"KILO = 2.2046 LBS"o+ " GMS = .03527 OZ"+" OZS = 28.3495 GMS"+" TON = .90718 TONNES"+"TONNE= 1.1023 TON(2000LBS)+ "FORCE:"+% "NEWTON = .2248 LBS FORCE",*" LBS = 4.4482 NEWTONS"8,-" RADIANS = X * 57.3 DEGREES"W,/"REVIEW TABLES ? Y/N"o,0 Z$: Z$"" 2096,1 Z$"Y" 1000,2 20, (147), "DOLLARS & CENTS", A0:, "ADDING AND ROUNDING", - :"ENTER FIGURES - LAST ENTRY MUST BE '0'"- (- "NUMBER..";N9- N0 3065K- BN: AB1000W- A$(A)f- Q$(A$,1)|- (Q$)5 AA5- C(A10)- DC100:II1- EED- 3025- "TOTAL IS.."E- E0:D0:B0:A0:C0. :10)"ANOTHER LIST Y/N". Z$: Z$"" 30751. Z$"Y" 3000:. 20K."FIBONACCI"X. A(100)d.(147)z. 53281,7: 646,0."FIRST VALUE..";A(1)."SECOND VALUE.";A(2).Q$" ".F$"FIBONACCI SERIES".A(3)A(1)A(2).F$/Q$;A(1):Q$;A(2):Q$;A(3)#/ X4 18C/A(X)A(X2)A(X1):Q$;A(X)I/"Z/,"GO AGAIN?"q/6 Z$: Z$"" 4150/@ Z$"Y" 4020/J 20