:59468,12:PK12D HI CALC COPYRIGHT (C) 1979 GLEN FISHERJ:g CURSOR #11, JUNE, 1979m : AS OF JULY 5, 1979Z62000dQV1:QM134:(50000)QM52:QV2PR40:(QM1)64PR228PR127QV1PR127PL5:MX1000A%(PRPR1),E%(PR1)!1700,35000729000XL".,+,-,*,/,= ? ";:60000:lV(IN$)11100`I17:IN$(".+-*/=?",I,1)1200jI:1100OPI:OP1"HOW MANY DECIMAL PLACES?"OP71700:110035000OP1500,6000,5000,7000,8000,1300*OP1" =":3600041100OI1EL:A%(I)E%(I):IkASES:AIEI:AFEF:ALELq(NPL:EL0PL0:1560EF0"USE INTEGERS, PLEASE.":EI2"CAN'T KEEP THAT MANY PLACES.":TESE%(1):EI2TTMXE%(2) TT3:PL(T)APLTPLPL1:"ADJUSTING TO";:TPL3:1590["WAS";:TN3:1590:6(" -",2(T0));((T),2);" PLACES.":" FUNCTIONS:". SET CARRIED DECIMAL PLACES"= START NEW CALCULATION"+,-,*,/" ADD,SUBTRACT,MULTIPLY,DIVIDE4"? PRINTS THIS MESSAGET"#? MEANS 'TYPE A NUMBER'x"PRECISION IS";PR3;"DIGITS.""CARRYING AT MOST";3PL;"DECIMAL PLACES."ESESpAIEFPREL0NPRAI:28500zEIAFPRAL0NPREI:28000 }AL029000 EL06110- AFEFNAF:27100D EFAFNEF:27000[ AIEINAI:27600r EIAINEI:27500 C0:ASES6200 I1AL:SA%(I)E%(I)C C0:SMXC1:SSMX A%(I)S:I C0ALAL1:AIAI1:A%(AL)C 28100:NPRAI:28000:$ 8A%(AL)E%(EL)29000@ BI1AL:DA%(I)E%(I)BX LB0:D0DDMX:B1g VA%(I)D:Iu `C0:6100 XAL0EL0AL0:AI0:AF0: IAL11:A%(IEL)A%(I):I I1EL:A%(I)0:I I1AL:MA%(IEL):C0 ("*",1(I1));""; J1EL:TIJ1@ SA%(T)E%(J)MC:C(SMX):SSMXCO A%(T)S:Ja A%(IEL)C:I ALALEL:AFAFEF:AIAIEI:ASASES 28100:NPRAI:28000  @EL0"DIVISION BY ZERO NOT ALLOWED!": JAL0 TEL1EI1E%(1)18450 ^EL1NEF1:271004 hNPLEF:PLPRNPRELAIE mNN1:27000_ rV0EL1:V1EL:V2EL1 D(MX(E%(V1)1)):C0:D18140 I1EL:SE%(I)DC:C(SMX):E%(I)SMXC:I C0 I1AL:SA%(I)DC:C(SMX):A%(I)SMXC:I ALAL1:AIAI1:A%(AL)C!  JALV01< ("/",1(J1));"";[  QTMX1:TA%(J)MXA%(J1)}  A%(J)E%(V1)QT(TE%(V1)) & QTE%(V2)(TQTE%(V1))MXA%(J2)QTQT1:8230 0 Z1:C0:IEL11 : SA%(JI)QTE%(V0I)C D C(SMX):SSCMX I ZZ(S0)N A%(JI)S:I,S ZC08400MX A%(J)A%(J)C:A%(J)08330`b C0:IEL11|l SA%(JI)QTE%(V0I)Cv C(SMX):SSCMX A%(JI)S:I:QTQT1 A%(J)QT J:JV01 I1J:A%(I)0:I AIAIEI:AFAFEI:ASASES!28100:NPL:ZPRAI:NZNZ*!28000:7xiAFNfiDLNAF:AL0ZAL11:A%(ZDL)A%(Z):Z}iZ1DL:A%(Z)0:ZiALALDL:AFAFDLiAL0AFEF:AIAFiiEFNiDLNEF:EL0ZEL11:E%(ZDL)E%(Z):ZiZ1DL:E%(Z)0:ZiELELDL:EFEFDL0jEL0EFAF:EIEF6jClkAINhvkDLNAI:ZAL1ALDL:A%(Z)0:ZkALALDL:AIAIDL:kEINkDLNEI:ZEL1ELDL:E%(Z)0:ZkELELDL:EIEIDL:`mAFNem"ROUNDING!"jmAINAFAI:AL0:28100)tmC0:DLAFN:A%(DL)MX2C1;~mDLAL28070JmZDL1ALnmSA%(Z)C:C0:SMXC1:SSMXmA%(ZDL)S:ZmC0ALAL1:AIAI1:A%(ALDL)CmALALDL:AFAFDLmAL0A%(AL)0AIAI1:ALAL1:28100mDL0mDLDL1:A%(DL)0DLAL28120FmDLDL1:DLALDL0ZDL1AL:A%(ZDL)A%(Z):Z^mAFAFDL:ALALDL:wTo29000:28000:29000}hoo29000:28100:29000:HqTAL:TELTELRqZ1T:TA%(Z):A%(Z)E%(Z):E%(Z)T:Z\qTAL:ALEL:ELT::TAI:AIEI:EIT::TAF:AFEF:EFT::TAS:ASES:EST#fq8耋T(IN$)E1:PZ$(IN$,T,1):TT1iZ$"0"Z$"9"33000E$E$Z$:(E$)333000$E(E$):ЄT0:DP$".":I1(IN$)ڄZ$(IN$,I,1):Z$"0"Z$"9"TT1:34040䄋Z$DP$DPT:DP$"":T0:34040.Z$",""NO ";Z$;"'S, PLEASE":DP1:CI:DP$""DPTIZ"#?";:EL0}ˆNN1:60000:NN0:IN$""35010̈:ES1:(IN$,1)"-"ES1:IN$(IN$,2)ֈ34000:DP035000ۈNPR1:ELN:EI((DP2)3):EFELEIT1:E$("00",DPEI33)33000:E035100FE$"":E0NELEIEI1:EFEF1:35070cE%(N)E:NN1:N035070E$(E$"000",3):E%(N)(E$):NN1&DLN:DL0351300ELELDL:EFEFDL:I1EL:E%(I)E%(IDL):I:29000:28100:NPRAI:AL028000D29000NAL0" 0":7TAL:("- ",2AS,1);PAI1" 0";:36100fZZAF:ZZ0ZZ0Ȍ(" "(A%(T)),3);:TT1ҌZZAI1ZZZ1AI1:NA%(T):TT1:36200:",";N$;:Z܌ZZ0Z1ZZ:",000";:ZAF136150 ".";:ZZAI:ZZ0ZZ0'ZZ0Z1ZZ:"000 ";:Zb"ZZAF1ZZZ1AF1:NA%(T):TT1:36200:N$;" ";:Z,NA%(T):36200:36300:;N$;6:hN$((N),2):(N$)3N$("00"N$,3)mN0N$"-"N$r(N$)3N$""(N$,1,(N$)3)""(N$,3)|0̍N$"0"(N$,1)"0"N$(N$,(N$)1):363006֍W`IN$" ":ZTTI:ZC2:ZD$(20)mjZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110NN(Z$"0"Z$"9")Z$","Z$"."Z$"-"60020 ZL25260010;IN$IN$Z$:Z$;ZD$;Z$;ZZ13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010TI110:"";:I::0PG$"HI CALC":NM$"11":"";9);"CURSOR #11 ";PG$ID" COPYRIGHT (C) 1979 BY GLEN FISHERTI60500wN"A HIGH PRECISION CALCULATORX"PRESS RETURN TO BEGIN"bT$:T$""62050l""::100