KKKKKKKKKKKKKKKKKKKKK ʚhi=h۩< }SIDECALC-128 oͥ 4-%Ɉ<lH٩ exJ3  _ , LZ =  _ = p _----------"5`OD," PAYMENT ";:OD,"BALANCE";:OD," INTEREST"}`OD," NUMBER";:OD," AMOUNT ";:OD,"PRINCIPAL ";`OD,"INTEREST ";:OD,"REMAINING ";:OD," TO DATE"aKKKK ɩ= p _ E= E  _H]HHDH$%L `  `ɠ f Eɠ ] ȹ  ` f` c` +-=+-*/^!'9PYRAMID CALC 1OD," ------------------------------------------------------------------------------"aCT0:>aCCBL:BCBL:ES$(2):OW$: ";q_OD, "###";NM;:OD," MONTHS.":BAAL_OD," --------------------------------------------------------------------KKKKKKKKKKKKKLNHCT1A$A$(1):240:D$D$LN)A$;:I24:D$::A$A$(4):240:CCYE:250:LN)A$:CCGR:250:CT4:780NRI1CT:D$::A$A$(CT):240:LN)A$:CCYE:250:A$A$(CT1):240:H$;:I1CT1:D$:N\LN)A$:CCGR:250:CTCT1:7801OfCT4A$A$(4):240 S U R E P R I N T E R I S O N A N D P R E S S R E T U R N":K$:K$(13)1210;YOD41190kYOD,OD,0:OD4::"P R I N T I N G . . ."YH$;:CCPU:250:OD, "#$#####.##";AL;:CCGR:250:OD," AT ";YCCRE:250:OD, "##.##%"; M B E R O F P A Y M E N T S :":"":CCPU:250:I110:U$;:RI140:R$;::IP6:50:AL(IP$):CCRE:250:::::I140:R$;::IP5:50:IR(IP$)RCC4:250:::::I140:R$;::IP3:50:NM(IP$): 0 BKCCYE:BCBL:250:ES$(1):CL$:CCAZ:250: 4,1,75,23,1:CCRE:250: 9,3,70,21,1KCCWH:250: 14,5,65,19,1:CCBL:250: 19,7,60,17,1:CCYE:250: 24,9,55,15,1: 1LH$D$D$D$" L O A N A N A L Y S I S": 2:D$D$D$U$U$" B Y J O H N  BL:250:730%VB920:A$"C O M P A R E D I F F E R E N T L O A N S":930::VL" H O W M A N Y L O A N S D O Y O U W A N T T O C O M P A R E ?"::A$"( E N T E R 2, 3, O R 4 ) ":240:LN)A$;VVIP1:50:NO(IP$):NO2NO4N $;I;:CCAZ:250:OD," "MP$;AP;8](S1(BAIR100.5)100:S2APS1:BABAS2:CCGR:250:OD," "PR$;S2;]2CCRE:250:OD," "IN$;S1;:IDIDS1:CCPU:250:OD," "BR$;BA;]<CCRE:250:OD," "ID$;ID:CCWH:250:((I12))(I12) :I14:D$::LN)A$:H$:D$;:CCYE:250:A$A$(1):240:LN)A$:CCGR:250:770OpI1CT:D$::A$A$(CT):240:LN)A$::CCYE:250:A$A$(CT1):240:H$;:I1CT1:D$:OzLN)A$:CCGR:250:CTCT1:780OCT1010,1090,1150,1560PIRIR1200:AP IR1200;:CCGR:250:OD," INTEREST FOR ";:CC4:2508ZOD, "###";NM;:CCGR:250:OD," MONTHS.":BAAL:CT0ZCC4:250:OD," ------------------------------------------------------------------------------"[OD," PAYMENT ,7,79,24,1:::CCGR:250:910:BS920:A$"F I G U R E A M O N T H L Y P A Y M E N T":930:950S" A LOAN OF ";:CCAZ:250: "#$#####";AL;:CCGR:250:" AT ";:CCRE:250: "##.##";IR1200;:CCGR:2501T" INTEREST FOR ";:CC4:25 M. M E Y E R": 2:D$" PRESS ANY KEY TO BEGIN"0LK$:CCBL:250_L 14,5,65,19,1:CCGR:250: 19,7,60,17,1LA$(1)" M O N T H L Y P A Y M E N T ":A$(2)" C O M P A R E L O A N S ":A$(3)" A M O R T I Z A T I O N ":A$(4)" E N DO0: 0,7,79,24,1:1100DW`K1NO: 0,7,79,24,1:A$"L O A N O P T I O N #":240::LN1)A$;:K;:U$;:950WjAL(K)AL:IR(K)IR1200:NM(K)NM:AP(K)AP:TP(K)NMAP:P(K)(((ALTP(K))10000))100:IN(K)100P(K):IA(K)TP(K)ALWt:OW$:CL$:2601410]FOD41410^PA$"PRESS 'C' TO CONTINUE OR 'M' FOR MENU":240:LN)A$;.^ZK$:K$"C"1400A^dK$"M"1370u^nOD:S10:S20:BA0:ID0:OW$:CL$:ES$(1):1080^xOW$: 0,12,79,24,1^OD4CTCT1:CT601460^OD4^OD((ALIR(1(1IR)NM).005)100)100:zPSL80:CCBL:250:OW$:CL$:ES$(2):CCGR:250:A$"L O A N A N A L Y S I S P R O G R A M":240:LN)A$::P240:LN)A$:PCCYE:250:"=============================================================== ";:CCPU:250:OD,"BALANCE";:CCRE:250:OD," INTEREST"[CC4:250:OD," NUMBER";:CCAZ:250:OD," AMOUNT ";:CCGR:250:OD,"PRINCIPAL ";:CCRE:250[OD,"INTEREST ";:CCPU:250:OD,"REMAINING ";0:NM;:CCGR:250:" MONTHS WILL RESULT IN "::" MONTHLY PAYMENTS OF ";:CCYE:250XT "#$###.##";AP;:CCGR:250:"."T::" YOU WILL REPAY A TOTAL OF ";:CCAZ:250: "#$######.##";APNM;:CCGR:250:" OF WHICH ";:CCRE:250U$ P R O G R A M "VMH$D$:A$A$(1):SL42:240:CCYE:250:LN)A$:CCGR:250:I24::A$A$(I):240:LN)A$:M:A$"(USE UP AND DOWN CURSOR KEYS)":240:LN)A$;MCT1M H$;MK$M K$U$840M*K$D$870M4K$(13)900M>790EX~920:A$"A M O R T I Z A T I O N S C H E D U L E":930:950:::A$"'S' CREEN O R 'P' RINTER":240:LN)A$X::A$"P R E S S 'S' O R 'P'":240:LN)A$:K$:K$"S"OD3:1190XK$"P"OD4:1190X1160+YCL$:OD4"M A K E 41390^INM1360^^OD:INM_OD, "#$#####.##";AL;:OD," AT ";H_OD, "##.##%";IR1200;:OD," INTEREST FOR ";q_OD, "###";NM;:OD," MONTHS.":BAAL_OD," --------------------------------------------------------------------=================": QCCPU:250::::nQ" A M O U N T O F L O A N :":" ":CCRE:250::Q" R A T E O F I N T E R E S T :":" ":CC4:250::BR"N U:CCRE:250:OD," TO DATE":CC4:250:G\ OD," ------------------------------------------------------------------------------"\IN$"###.##":PR$"######.##":BR$"#######.##":II$"###":ID$"#######.##":MP$"####.##"\I1NM:CC4:250:OD," "II "#$######.##";(APNM)AL;:CCGR:250:" WILL"::" BE INTEREST."U.CCYE:250::::A$"P R E S S A N Y K E Y T O C O N T I N U E":240:LN)A$:OW$:K$:ES$(1)U8CCYE:250:CL$:CCAZ:250: 4,1,75,23,1:CCRE:250: 9,3,70,21,1:CC[[ ** CAR EXPENSE **[:([ 20.[:8[ 164>[ :G[ 88M[:S[_[(147)u["CAR EXPENSE:":[ "EXPECTED LIFE IN YEARS";LY[[ "MILES DRIVEN PER YEAR ";MY[[ "FINANCED (Y/N) ";X$["[$ X$"Y" 42\&"r,3,19,"10"(34):,11,19,"13":,15,19,"10.25":,23,19,"9.00":,32,19,"1.0";s,3,20,"12"(34):,11,20,"13":,15,20,"10.25":,23,20,"10.5":,32,20,"1.0"Qt,78,107 78,170iu,225,107 225,170v,24,29:,144,29:,257,24w 311 : " MISCELLANEOUS $";#_t "###,###.##";AA)_vC_x"OPERATING TOTAL $";\_z "###,###.##";CPCb_||_~"PURCHASE COST $";_ "###,###.##";PC__"TOTAL COST OF CAR $";_ "###,###.##";C__"MILES DRIVEN ";` "# @@ %:""@U$(145):D$(17):R$(29):L$(157):BL1:WH2:RE11:PU5:GR14:AZ15:YE8:RE$(18):RO$(146):H$(19):OW$H$H$@ES$(1)(27)"R":ES$(2)(27)"N":CL$(147)@(690@2: **** INPUT ROUTINE ****@<IP$"":CU1:CT0AFI$ ORDERS AND BOTTOM)C, 6,0,79,24,1:CCWH:250C6RE$" 100% "G$::RE$" 90% "G$::RE$" 80% "G$::RE$" 70% "G$::RE$" 60% "G$C@:RE$" 50% "G$::RE$" 40% "G$:DJRE$" 30% "G$::RE$" 20% "G$::RE$" 10% "G$::RE$ H$D$D$D$;=FI110:R$;::I1NO:" ""#$######";TP(I);::H$;F" AMT OF LOAN":" INT/MONTHS":" PAYMENT":"TOTAL PAYBACK";:H$;FK$:I1NO:AL(I)0:IR(I)0:NM(I)0:AP(I)0:TP(I)0:P(I)0:IN(I)0:IA(I)0::OW$:CL$:1080G: ESTA "PURCHASE PRICE ";PC\( 549\* "DOWN PAYMENT ";P1?\,^\. "NUMBER OF PAYMENTS ";P2d\0\2 "MONTHLY PAYMENT ";P3\4\6 "MILES PER GALLON ";MG\8\: "PRICE PER GALLON ";GG\<\> "ANNUAL MAINTENANCE COST ";AM\@ 4,"BOX VOLUME"n,2,15,"SIZE":,12,15,"A B C":,31,15,"CU.FT."o,4,131 319,131Mp,3,17,"<6"(34):,11,17,"8.5":,16,17,"5.00":,22,17,"MATCH":,32,17,"0.2"q,4,18,"8"(34):,11,18,"10":,16,18,"8.63":,23,18,"6.75":,32,18,"0.5##,###";MYLY `=`"COST PER MILE";: "###,###.####";(C(MYLY))C`h` " OPERATING COST PER MONTH $";` "###,###.##";C(LY12)`3,` 3,4`:``:`:` **** CALC AND DEFINE ****`:`:` R(X)((X100):190:I$"" 70$API$(13)" ";:6AZI$(20)160QAdI$(32)I$(95)120ZAn130vAxI$(193)I$(218)70AI$(34)70A(IP$)IP70AIP$IP$I$:I$;:70A(IP$)070AIP$(IP$,1,((IP$)1))A" ";L$;L$;" ";L$;:70" 0 "G$MDTCC15:250: 1,6,3,16,1:" P R I N C I P A L":CC11:250D^ 4,6,6,16,1:H$;:" I N T E R E S T"Dh: DRAW GRAPH BARSDrI1NOD|480DCC15:250: W1,W2,W3,20,1:540:CC11:250: W5,W6,W7,20,1:580BLISH HEIGHT OF BARS TO WITHIN 5%-GI1W115: W1W116DGW2(21(P(I)5))^GI1W321: W3W316GW5W17:W6(21(IN(I)5)):W7W37GG: TOP OFF PRINCIPAL BAR WITH AMOUNT IN DOLLARS AND PERCENT AND ADD FINAL 1% TO 4% TO TOP OF B]B "COST OF A TIRE ";TC"]DI]F "# OF MILES A TIRE WILL LAST";TWO]Hn]J "INSURANCE COST/YEAR";IPt]L]N "MISC EXPENSES ";AA]P]R:]T]V:]X *** OUTPUT RESULTS]Z 3,4: 3]\"OPERATING EXPENSES:"::]^.^AR IDH$;: "###.#%";IN(I)oINB((IN(I)5))5:BTIN(I)B:T1W5:T2W61:610:H$;:K1T1:R$;::K1T21:D$;::CCWH:250IXRE$ "#$#####";IA(I):IbOW$;:K1T1:R$;::K1T2:D$;:IlBT.5T2T21: JvBT.5BT1.5RE$(164)(164.5)100a:a TW0 TW0 TW30000>a TW80000 TW(TW2): TWa IF YOUR TIRES DO GET MORE THAN 80000 MILES PER SET OF TIRES YOU HAVE UNUSUALL CASEa TW10000 TW10000aMLYMYaPCR(P1 (P2P3))aTGR((MMG)GG)aAMABCTCT1BCT20'BCU1" ";L$;CBCU1RE$" ";RO$;L$;WBCT0:CUCU1:uBLN0:LN((SL(A$)))2:B 6,BC: 5,CC:BBCBL:CCBL: 250B ES$(1):CL$BG$"":G$G$G$ C": DRAW GRAPH BE:OW$:CC8:250: 0,21,79,24,1:H$;aEI110:R$;::I1NO:" ""#$######";AL(I);::H$D$;EI110:R$;::I1NO:" ""##.##%";IR(I);:"/";: "###";NM(I);::H$D$D$;EI110:R$;::I1NO:" ""#$###.##";AP(I);:: AR HH$;: "###.#%";P(I)nH&B((P(I)5))5:BTP(I)B:T1W1:T2W21:610:H$;:K1T1:R$;::K1T21:D$;::CCWH:250H0RE$ "#$#####";AL(I):H:: TOP OFF INTEREST BAR WITH AMOUNT IN DOLLARS AND PERCENT AND ADD FINAL 1% TO 4% TO TOP OF B` "BASED ON "LY" YEARS TOTAL EXPENSES FOR PERIOD."H^b" FUEL $";_^d "###,###.##";TGy^f" UPKEEP $";^h "###,###.##";AM^j" TIRES $";^l "###,###.##";TC^n" INSURANCE $";^p "###,###.##";IP _r)(164)(164)(164)(164)(164)NJBT1.5BT2.5RE$(185)(185)(185)(185)(185)(185)(185)JBT2.5BT3.5(184)(184)(184)(184)(184)(184)(184)JBT3.5BT4.5(163)(163)(163)(163)(163)(163)(163)JBT4.5" "JMLYa:bDER0AMR(AMDER)=bTCR((MTW)(TC4)): TW=TIRE WARENbIPR(IPLY)jbCR(PCTGAMTCIPAA)bCM(((CM)1000).5)1000b,4`:``:`:` **** CALC AND DEFINE ****`:`:` R(X)((X100)R, 1/2 WATT OR GREATER,IN PARALLEL WITH THE METER. DJUST THE GENERATOR OUTPUT TO READ ANY 10 UNITS<"ON THE METER, BUT CHOOSE A POINT THAT USES ABOUT 10% OF THE SCALE. OR EXAMPLEWITH A 1 VOLT SCALE, THE READING SHOULD="BE 0.1 VOLT. FTER C1: R$"Y" 271x x" ٠ "yS$" ":T$"--------":4,4Sy4,S$"-40"S$"-30"S$"-20"S$"-10"S$" 0"S$"+10"~y4,S$" +"T$"-+"T$"-+"T$"-+"T$"-+"T$"+"y: I1 9: F:y I1 12 : Fy4,F;7((F)))""; FREQUENCY AS S.ЃF 311G" Ҡ PAGE 1H" ALIBRATE AN OHM-METER WITH A 5 TO 10 OHM PRECISION RESISTOR. EASURE THE RESISTANCE OF THE VOICE COIL. ECORD THIS VALUE AS E.I" ET THE SINE WAVE GENERATOR TO TH 5 1.5 "|,""+}-" 2000 .64 56.0 141 #20 .5 "[}." 1500 .85 64.0 162 1 "}/" 1000 1.27 78.0 200 2 "}0" (ES):"S10)"ES=MS/(O-1)":" HEN TOTAL (TS):":10)"=(ES*MS)/(ES+MS)" T 311,U" Ҡ PAGE 3UV" LTERNATE QUICK METHOD FOR :"ΈW" EASURE E, S, AND MAX.":" IND 1 AND 2 WHERE '=.707*MAX.":" 1,""Ԋb,74,28 88,28:,74,58 88,58:,10,5,""c,5,5,""*d,138,23,188,63:,143,28,183,58:,138,36 143,36:,138,50 143,50[e,143,5 143,20:,183,5 183,20:,20,1,"B"f,256,23,306,63:,261,28,301,58:,271,23 271,28:,291,23 2 ALIBRATING THE GENERATOR OUTPUT WITH THIS RESISTOR, THEVOLTAGE SCALE CAN BE READ IN OHMS;?>".1 VOLT=10 OHMS, .2 VOLTS=20 OHMS, ETC.?" ONNECT THE SPEAKER IN PLACE OF THE RESISTOR. UN AN IMPEDANCE CURVE, RECORDING VALUES AT 10 Z S y M(F)39 280y4,40M(F))"*"y 281y4z:4:4,z" ĠԠ Rz BL$"PRESS ANY KEY TO CONTINUE"\z A$bzhzz" ̠ z ""zE FREQUENCY OF S. EAD THE IMPEDANCE VALUE AND RECORD IT AS MAX. ALCULATErJ"THE VALUE OF O FROM:":10)"O=MAX/E":" ECORD THIS VALUE.":" IND SQR(O) AND RECORD THIS VALUE."υK" ALCULATE THE VALUE OF REDUCED IMPEDAN"}1" 900 1.41 101 171 #18 "~2" 700 1.82 115 194 .75 "K~3" 500 2.55 136 230 1.5 "{~4" 300 4.24 175 296 3-4 "~5""~6 311 :  HEN:":10)"=[S/(2-1)]*[E/MAX]"؈X 311Y" ASfZ" OLD THE SPEAKER OVER THE CUT-OUT IN THE STANDARD BOX. (IMENSIONS FOR THE STANDARD BOX TO FOLLOW.) PPLY ENOUGH["PRESSURE TO MAKE A GOOD SEAL. EASURE THE FREQUENCY91,28g,266,20,296,23:,268,20 271,15 291,15 294,20:,274,12,288,15h0,272,28 290,28i1,32,9,"IN USE"*j,4,92,319,170Ok,8,12,"S T A N D A R D B O X"fl1,4,107 319,107m,1,14,"SPEAKER":,11,14,"BOX DIMS INCHES":,29,TEPS TO 100<@"Z, EVERY 100 Z TO 1000 Z, ETC. F YOUR SPEAKER'S IMPEDANCE RISES ENOUGH TOREQUIRE A HIGHER SCALE, EITHER RECAL THEA"METER, OR USE ANOTHER RESISTOR ABOVE 100OHMS AND CALIBRATE TO A HIGHER SCALE.B 311C" !" . {"" 8OHMS M FEET # K{#""{{$" 10000 .127 17.5 89 #24 "{%" 7000 .18 20.8 106 LEN=.25 "{&" 5000 .2CE (') WHERE:":10)"'=SQR(O)*E"مL 311M" Ҡ PAGE 2")N" IND THE FREQUENCIES BELOW AND ABOVE"O"S WHERE DRIVER IMPEDANCE EQUALS '. ECORD THESE FREQUENCIES AS 1 AND 2. HECK THE ACCURACY OF YOUR WORK BY ~7,7,24,"PRESS ANY KEY TO CONTINUE": A$: 8" "9" :" ONNECT A 200 TO 1000 OHM RESISTOR IN SERIES WITH A SINE WAVE GENERATOR AND THE VOLT METER. ONNECT A 10 OHM 1%;"PRECISION RESISTO OF RESONANCE ON THE BOX. ECORD THIS FREQUENCY AS CT. IND AS: \10)"AS=1.15*((CT/S)^2-1)*B] 3119^" Ԡ J_ 1,1: 1,16y` 1,18,23,68,63:,23,28,63,58:,44,43,10,8a,23,5 23,20:,63,5 63,20:,5,14,"BOX VOLUME"n,2,15,"SIZE":,12,15,"A B C":,31,15,"CU.FT."o,4,131 319,131Mp,3,17,"<6"(34):,11,17,"8.5":,16,17,"5.00":,22,17,"MATCH":,32,17,"0.2"q,4,18,"8"(34):,11,18,"10":,16,18,"8.63":,23,18,"6.75":,32,18,"0.57D" USPEND THE SPEAKER IN MIDAIR WITH THECONE IN ITS NORMAL VERTICAL POSITION. ARY THE FREQUENCY FROM THE SINE WAVEƃE"GENERATOR UNTIL YOU FIND THE LOW FREQUENCY THAT PRODUCES THE GREATEST RISE IN IMPEDANCE. ECORD THIS 5 24.5 125 ID=.5 " |'" 4000 .32 27.7 141 OD=1 ";|(""k|)" 3500 .36 36.0 122 #22 .375 "|*" 3000 .42 39.0 132 .75 "|+" 2500 .51 43.0 14THIS TEST:"͆P10)"S=SQR(1*2)";Q"HE SOLUTION TO THIS FORMULA SHOULD BE ACCURATE WITHIN ABOUT 1 Z OR 2%, WHICHEVER IS GREATER."R" IND THE SPEAKER'S MECHANICAL (MS):":10)"MS=(S*SQR(O))/(1-2)":" ND IT'S ELECTRICAL ;L$dK L$"Y" 85)dL" Ҡ٠]dM4,4:4,(14)"DRIVER PARAMETERS FOR "D$(15):4dN4:4," VOICE COIL RESISTANCE (RE) ="RE"OHMS"dO4," FREE-AIR RESONANCE (FS) ="FS"HZ"dP4," QMS ="QMSdQ4," QES ="QESdR4," QTS"D$CHR#(15):4o4," VB ="VB"CU. FT."o4," FB ="FB"HZ"(o4," QTS ="QTS=o4," FS ="FS"HZ"_o4," VAS ="VAS"CU. FT.":4:4o"NOTHER ENTED OX ESIGN Ν";R$o R$"Y" 89o 21o" ؠ o TL$;((VASVB).35))(10)hp TL$;9hq" ֠ŠΠԠŠĠ ϠؠĠŠӠɠǠ "UhrB$"VENT":R$"N":L$"N"^hs D$htZR(VB):"B="Z"CU. FT."huZR(FB):"B="Z"HZ"hvZR(FH):"3="Z"HZ"hw H0 PD$"IP": 121hxPD$"EAK S="Z"CU. FT."rZR(VB):"B="Z"CU. FT."sZR(FS):"S="Z"HZ"2sZR(A):"LPHA="ZNsZR(FC):"C="Z"HZ"isZR(F3):"3="Z"HZ"s"ARD OPY Ν";L$s L$"Y" 232s" Ġؠ s4,4:4,(14 BL$" ӠӠΠ";: 2&l%:A(FB2)(FS2)>lBAQTS(FB(7FS))alC1A(FB(7FSQTS))(VASVB)ylD1QTS(FB(7FS))l F20 200 5lF9FFS:F5F92lF4F94:F3F93lF6(F4CF5A)2lF7(BF9DF OSED OX ESIGN Ν";R$u R$"Y" 186v 21$v" ٠Ƞ ;v2,1:1,7::R$"N"Lv 1,1,1,"DB"ev,2,3,"0":,1,5,"-5"v,0,8,"-10":,0,10,"-15"v,0,13,"-20":,0,15,"-25"v 1,5v,4,17,"20":,16,17,"60" ="QTSeS4," VAS ="VAS"CU. FT."eT4:49eU"NOTHER RIVER Ν";R$KeV R$"Y" 47TeW 21yeX" Ġؠ eY TL$;eZ" ֠ŠΠԠŠĠ ϠؠĠŠӠɠǠ "e[L$"N"e\"RIVER AME SRC#563" p" à̠ϠӠŠĠ ϠؠĠŠӠɠǠ "pL$"N":R$"N"Ip"RIVER AME... SRC#563";D$op" TS.... .42";QSp" AS.... 18.39";VASp" S..... 28";FSp" B....":ZR(H)iy""PD$" IN ESPONSE="Z"D"4iz"HANGE OX IZE Ν";R$Gi{ R$"Y" 108di|"ARD OPY Ν";L$xi} L$"Y" 135i~" Ġ i4,4:4,(14)" VENTED BOX DESIGN FOR "D$(15):4i4," VB ="V)" CLOSED BOX DESIGN FOR "D$(15):4t4," QTS ="QSt4," QTC ="QTC3t4," VAS ="VAS"CU. FT."Mt4," VB ="VB"CU. FT."bt4," FS ="FS"HZ"ut4," ALPHA ="At4," FC ="FC"HZ"t4," F3 ="F3"HZ"t4:4t"LOSED OX ESPONSE RAPH3)2mM(F)20((F4(F6F7).5)(10))m:&m 246.m B$"VENT" 1129m TL$;jm" ͠Ġؠ "sm D$m" B . . . . "VB"CU. FT."m" B . . . . "FB"HZ"m" TS . . . . "QTSmv,29,17,"200":,34,17,"HZ"v 1,13w,31,25 31,129: VER+w,31,129 241,129: HOR6w 1,16cw I25 125 20: 1,30,I:: VER.PIPSw2: I1 10: J: 1,((J20)86.8589)40,130::1: HOR.PIPSw 1,2w F20 200 ;D$f]" TS .42";QTS9f^" AS 18.39";VASZf_" S 28";FSsf`VB15(QTS2.87)VASfaFB.42(QTS.9)FSfbFH.26(QTS1.4)FSfcR$"N"fd TL$;fe" 4 - ̠ɠǠΠ͠ŠΠ . 5.11";VBpAVASVBqFCFS(A1)qQTC(FCQS)FSGqF3FC(((1QTC22)((1QTC22)24))2)Rq TL$;q" à̠ϠӠŠĠ ϠؠĠŠӠɠǠ "q D$qZR(F3):"3="Z"HZ"qZR(QTC):"TC="ZqZR(VB)B"CU. FT."j4," FB ="FB"HZ"j4," F3 ="FH"HZ"2j H0 PD$"DIP": 133AjPD$"PEAK"aj4,PD$" IN RESPONSE ="H"DB"kj4:4j"ENTED OX ESPONSE RAPH Ν";R$j R$"Y" 149j"USTOM ESIGN Ν";R$j R$"Y" 182 Ν";R$t R$"Y" 241%u BL$ " ӠӠΠӛ";: 2=u%: F20 200 5quFHFFC:FQFH2:MAGFQ(((FQ1)2(FHQTC)2))uM(F)20((MAG)(10))u : &u 246u 208uR$"N"u"NOTHER L" S . . . . "FS"HZ"n" AS . . . . "VAS"CU. FT."@n" HANGE B OR B Ν";R$Sn R$"Y" 139pn"ARD OPY Ν";L$n L$"Y" 182n" ͠Ԡ n4,4:4,(14)"CUSTOM VENTED BOX DESIGN FOR  5w M(F)25 M(F)25x 1,((F20)86.8589)40,(50M(F)4)25xMx  20,30,40,50,60,70,80,90,100,200: --- SCREEN DATAx  20,30,40,45,50,60,80,100,120,140,160,200: --- PRINTER DATAx  BL$ 16)"ARD OPY Ν"(7);: R$x 0, "gfZR(VB):"B ="Z"CU. FT.".ggZR(FB):"B ="Z"HZ"LghZR(FH):"3 ="Z"HZ"TgiH0ygj"HANGE OX IZE Ν";R$gk R$"Y" 112gl"NTER EW B";VBgmFBFS(VASVB).32gnFHFS(VASVB)goH20(2.6QTS:"B="Z"CU. FT." r"HANGE OX IZE Ν";R$r R$"Y" 208:r"NTER EW B";VBDr 194Or TL$;r" à̠ϠӠŠĠ ϠؠĠŠӠɠǠ "r D$rZR(QS):"TS="ZrZR(QTC):"TC="ZrZR(VAS):"Aj TL$;k" ͠Ġؠ "/kB$"":R$"N"Kk"HANGE B Ν";R$_k R$"Y" 145yk"NTER EW B";VBkR$"N"k"HANGE OX UNING Ν";R$k R$"Y" 149k"NTER EW B";FBl IONS TO PRINTER":s"P2 :CALCULATIONS TO SCREEN ONLY":9s"PTM :() 3.14159265 TO MEMORY":js"D6 :SETS PRINTER @ 6 DECIMAL PLACES":s"D2 :SETS PRINTER @ 2 DECIMAL PLACES":s"= :DO NOT USE THE = SIGN":s"END [ [ 154[" ^[" [" . [" [" OUDSPEAKER DESIGN PROGRAMS \" WRITTEN BY . . A A L Q U L A T O R C O M M A N D S":2l" A=ACCUMULATOR E=ENTRY M=MEMORY":\l"ENTRY : FUNCTIONS & EXAMPLES":l"234.75 :NUMBERS WITHOUT A SIGN IN FRONT"l" OF IT WILL BE THE FIRST ENTRY &"l" WILL BE VALUE A":1:70v:v ------- ERROR TRAP ------v&:w0:&9w:"  YOU HAVE AN ERROR ":2,32000,20JwD:12)(ER)mwN:" HIT ANY KEY TO RESUME"{wXGK$:10-u:u1,4uD21,"#########.##";A;:1," _ FIRST ENTRY":173 :SINE VAL OF A (A IN RADIANS)": pE$"PDC"1290Np"  C CONTINUE  R RETURN TO PROGRAM":GK$:GK$""1090apGK$"R":70spGK$"C"1280ypp "ASIN :ARCSINE OF A":p"COS :COSINE OF A (A IN RADIANS)":p"ACOS :A RAMETERS_11)""._11)"֒ENTED BOX DESIGN<_11)""\_11)"ÒLOSED BOX DESIGNj_11)""_ 11)"גIRE DATA FOR COILS_!11)""_"11)"ԒEST PROCEDURES_#17)""_$17)"ђUIT`%BL$9)"PLEASE PRESS SE :QUIT PROGRAM":sE$"PDC"1:1:70"EST OX OLUME";TVBb?"RIVER ESONANCE IN EST OX";TFSb@VASTVB(((TFSFS)2)1)1.149bA TL$;bB" Ҡɠ Š Ҡ͠ŠԠ "RCCOSINE OF A":q("TAN :TANGENT OF A (A IN RADIANS)":3q2"ATAN :ARCTANGENT OF A":cq<"COT :COTANGENT OF A (A IN RADIANS)":qF"ACOT :ARCCOTANGENT OF A":qP"RTD :CONVERT A (RADIANS) TO DEGREES":qZ"DTR :CONVERT A (DELECTION";:&`&A$:A$""38$`'A$"D"473`(A$"V"89C`)A$"C"186S`*A$"W"288c`+A$"T"313s`,A$"Q"38`-""(142);::`." Ҡ `/ TL$" ĠҠɠ֠ŠҠРҠ͠ŠԠŠҠ "`0L$"N":R$"tT1,"#########.######";AA;t^1,2)E$&uhD21,"#########.##";A;:1," _ A":1660Nur1,"#########.######";A;:1," _ A"Yu|1:70_u:u ------ PRINT FIRST ENTRY ----u:u1,4uD21,"#########.##";A;:1," _ FIRST ENTRY":173 ']" ?]""(14):0,1:4,1]] R(N)(N.001.5).001j] M(200)]TL$""]BL$""]" ]0,1v^" C CONTINUE  R RETURN TO PROGRAM":GK$:GK$""1090)nLGK$"R":70;nVGK$"C"1120An`inj"M456.7 :PUTS 456.7 INTO MEMORY":nt"CM :CLEARS MEMORY":n~"CE :CLEARS LAST ENTRY (NOT MEMORY)":n"CL :CLEARS ALL":obC D$/cDZR(RE):"OICE OIL ESISTANCE(E)="Z"OHMS"_cEZR(FS):"REE-AIR ESONANCE(S)="Z"HZ"ycFZR(QMS):"MS ="ZcGZR(QES):"ES ="ZcHZR(QTS):"TS="ZcIZR(VAS):"AS ="Z"CU. FT."cJ"ARD OPY Ν"GREES) TO RADIANS": rd"H :HELP INSTRUCTIONS":7rn"PDC :HELP INSTRUCTIONS TO PRINTER":JrxE$"PDC"1450r"  C CONTINUE  R RETURN TO PROGRAM":GK$:GK$""1090rGK$"R":70rGK$"C"1440rr"P1 :CALCULAT N"a1"RIVER AME";D$7a2"OICE OIL .. ESISTANCE";REWa3"REE-AIR ESONANCE";FSa4"MPEDANCE AT REE-AIR RESONANCE";ZMAXa5ROZMAXREa6RF(RO)REa7"REQ. BELOW S ="RF"OHMS";a8 F1a9"REQ. ABOVE S ="RF"OHM0u1,"#########.######";A;:1," _ FIRST ENTRY"v1:70v:3v ------ PRINT ALL CLEARED -----9v:kvP2A0:AA0:M0:LA0:A$"":LA$"":M$"":70tv1,4v1,"---------------- ALL CLEARED"vA0:AA0:M0:LA0:M$"":A$"":LA$"":1: Ҡ͠Π "^7)""58109(0)"/"64256(1)23)"BYTES USED^7)""(0)"/"(1)23)"BYTES FREE^11)""_11)"ĒRIVER PA"SQR :RETURNS THE SQUARE ROOT OF A":&o"A+M :MEMORY ADDED TO A":Oo"A-M :SUBTRACTS MEMORY FROM A":to"A/M :A DIVIDED BY MEMORY":o"A*M :A MULTIPLIED BY MEMORY":o"ATM :PUTS VALUE OF A INTO MEMORY":o"SIN ( CONTINUE",1:QU$:230%,"":(27)EN$"":SI$"":D#AN$"+"SI$"+":[#AN$"-"SI$"-":r#AN$"*"SI$"*":#AN$"/"SI$"/":#AN$"="CA%1AN$"":#AN$"%"EN$((EN$).01):#AN$""#AN$(13)(EN$)0[[ 1840:%5[ -------- K A L Q U L A T O R ---J[ J.S. NORVELLg[( 1813 GROVEHAVEN CIR.[2 MEMPHIS, TN. 38116[<0,1:0,1:4,12:M$"0":A$"0":A0:E$"0":P2:D6[F1,0,0,""$\P1,0,1," >b(E$,1)"+"EE$(E$,2,20):AA(EE$):LAA:LA$(A):AAAA:A$(A):1590PbE$"CL"1770bE$"CE"ALA:A$(A):AA0:E$"LAST ENTRY CLEARED":1590b(E$,1)"-"EE$(E$,2,20):AA(EE$):LAA:LA$(A):AAAA:A$(A):1590c(E$,1)"/"(( /_1,0,14," 1 2 3 4 5 6 7 8 9 0 D6 D2 "G_D2,36,14,"D2",1__D6,32,14,"D6",1_1,0,15," "_1,0,16,"E= "_"1,4,16,E$`,1,0,17,"LAST A=  )0AN$"-"224!"(EN$)6AN$(20)186C"(EN$)6DE%1AN$".":224V"(EN$)0198k"AN$(20)198"(EN$)6AN$(20)" """"";:RA(EN$)1:EN$(EN$,RA):AN$:188"AN$(20)RA(EN$)1:EN$(EN$,RA)#" """" 10)):LAA:LA$(A):AAQ:A$(A):AA0:1590CfXE$"PTM"M3.14159265:M$(M):AA0:1590ofbE$"SIN"A0A$" NO VALUE IN 'A'":70flE$"SIN"LAA:LA$(A):A(A):A$(A):AA0:1590fvE$"ASIN"A0A$" NO VALUE IN 'A'":70gE$"ASIN"LAA:L RADIANS":AA0:1590>iE$"RTD"LAA:LA$(A):AA(180):A$(A)" DEGREES":AA0:1590ciE$"ATM"MA:M$(A):AA0:1590iE$"P1"15,4,15:15:880iE$"P2"P2:70i E$"H"930iE$"PDC"15,4,15:15:900i E$"COT"A0A$" NO  ">\Z,15,1," H = HELP ",1t\d1,0,2," SIN ASIN ó"\n1,0,3," A= "\x1,15,3,A$\1,0,4," COS ACOS ó"%]1,0,5,"E$,2,20))0E$"YOU CAN'T DIVIDE THAT !!":70jc(E$,1)"/"EE$(E$,2,20):LAA:LA$(A):AA(EE$):AAAA:A$(A):1590c(E$,1)"*"EE$(E$,2,20):LAA:LA$(A):AA(EE$):AAAA:A$(A):1590cE$"SQR"A0E$"CAN'T BE DONE":70dE$"SQR "#`61,8,17,LA$Z`@1,0,18,"M= "i`J1,4,18,M$`T1,0,19," "`^1,0,20," P1=PRINTER ON P2=PRINTER OFF "`hP2,21,20,"P2=PRINTER";:(EN$)6DE%0#180-#AN$(27)EN$"":SI$"":D#AN$"+"SI$"+":[#AN$"-"SI$"-":r#AN$"*"SI$"*":#AN$"/"SI$"/":#AN$"="CA%1AN$"":#AN$"%"EN$((EN$).01):#AN$""#AN$(13)(EN$)0A$(A):A(A(AA1)):A$(A):AA0:1590?gE$"COS"A0A$" NO VALUE IN 'A'":70ugE$"COS"LAA:LA$(A):A(A):A$(A):AA0:1590gE$"ACOS"A0A$" NO VALUE IN 'A':GOTO480gE$"ACOS"LAA:LA$(A):A(A(AA1))2:A$(A):AA0:VALUE IN 'A'":70+j*E$"COT"LAA:LA$(A):A1(A):A$(A):AA0:1590Xj4E$"ACOT"A0A$" NO VALUE IN 'A'":70j>E$"ACOT"LAA:LA$(A):A(A)2:A$(A):AA0:1590jHE$"CM"M0:M$"0":AA0:1590jRE$"D2"D2:70j\E$"D6"D6:70 + - / * ^ % "[]1,0,6," TAN ATAN "]1,0,7," "]1,0,8," COT ACOT RTD DTR SQR PDC "]1,0,9," "LAA:LA$(A):A(A):A$(A):AA0:1590dd(E$,1)"M"M$(E$,2,20):M(M$):E$M$" ENTERED TO MEMORY":AA0:1590ydE$"END"&::dE$"A+M"LAA:LA$(A):AAM:A$(A):AAM:1590dE$"A-M"LAA:LA$(A):AAM:A$(A):AAM:1590e&E$ OFF",1"arP1ST0,5,20,"P1=PRINTER ON",1Ya|1,0,21,""a1,6,22," "a,5,24,"K A L Q U L A T O R BY JSN",1a&:1,0,22,"ENTRY ":21,64:E$:21,0:1,9,22,E$:(7):%#AN$"A"$(EN$)9AN$:188/$AN$"."DE%1:224I$AN$"0"AN$"9"180$""AN$"";:EN$EN$AN$:(EN$)6DE%1AN$".":DE%1:224$(EN$)9AN$:188$180$0,0,20,(27)"@":%0,0,24,(27)"Q":0,11,24,"ANY KEY TO1590hE$"TAN"A0A$" NO VALUE IN 'A'":70MhE$"TAN"LAA:LA$(A):A(A):A$(A):AA0:1590zhE$"ATAN"A0A$" NO VALUE IN 'A'":70hE$"ATAN"LAA:LA$(LA):A(A):A$(A):AA0:1590hE$"DTR"LAA:LA$(A):AA(180):A$(A)"kfA(E$):A$(A):P11700:Չ70*kpST0P1:A$" ":70IkzA$"PRINTER IS NOT ON":70tkST01,4:1:A$" ":960k2,32000,20:A$"TURN PRINTER ON":70k:k ---- HELP SCREENS -------k:k:&:l" K "4^1,0,10," A+M A-M A/M A*M ATM PTM "k^1,0,11," "^1,0,12," CE CL M CM END "^,23,12," DO NOT USE = ",1^1,0,13," ""A*M"LAA:LA$(A):AAM:A$(A):AAM:1590Ee0E$"A/M"M0E$"NOTHING IN MEMORY":70ze:E$"A/M"LAA:LA$(A):AAM:A$(A):AAM:1590eD(E$,1)"%"Z((E$,2,20)):LAA:LA$(A):A(ZA)100:A$(A)" %":AA0:1590fN(E$,1)"^"Q((E$,2, ??~~~~??~~? NTINUE"$x" 'N' FOR A NEW CHART";| R$: R$"" 380N R$"N" 120_ R$"E" s R$"C" 370L0: 280"MONTH(1 TO 12)";MM(M): M1 M12 505"DAY(1 TO 31)";DD(D): D1 D31 520"YE ???~~~???<>?000000000`0000 000p0 C$:"WJC68569:R(4W146097)1"WW((146097R3)4)M"Y(4000(W1)1461001)d"WW(1461Y4)31w"M(80W2447)"DW(2447M80)"$W(M11):MM212W".Y100(R49)YW"8A$(M):W(A$)1"BC$(A$,2,W)"/""LA$(D): 8?1! `08800ac ````1?/'GCCGOKG'/?? ?0 AG_???  c300sd0,7:4,6:230:0,0,19,"":I2024:0,37,I,""::5,16:104:h0,20,20,""j0,0,22,"ENTER: ":0,9,22," ":0,25,22,"<":"#";SI$;:">":0,30,22,"#=":"####";CO%;:""Sl |<<<<<<<<<<<<< AR";Y&Y(Y): Y0 540'0 Y99 580B:YY1900: Y;"ASSUMED"HD]XW0: M3 W1ybJD(1461(Y4800W)4)lB(367(M2W12)12)v B0 BB1JDJDBB((3(Y4900W)100)4)JDJDD32075B (147) ??000`@@`08  XW(A$)1#VC$C$(A$,2,W)"/")#`A$(Y):W(A$)1=#jC$C$(A$,W,2)C#t2Pd!WT(W):WWT1.5|!W(W):A$(L$,W,1)! A$"P" A$"E" A$"*" C$"*"!L$(L$,W1)C$(L$,TT1W)!!L$C$(L$,TT):!L$(L$,TT) ???_GA 0 ??????`0????????0` 0,0,24,"LAST=":"#######.##";LN;:"";:0,20,24,"TOTAL=":"#######.##";SU;:"";n0,9,22,"":DE%0:180:AN$""SU0:EN$"":AN$"":LN0:CO%0:SI$"":106p(SU0CO%0LN0(EN$)0)LN(EN$):EN$"":CA%1:SI$AN$:CO%CO%1:106rAN$"H" ?~~~~??~~?   0,7: 4,7:(159). 740: 15);"BIORHYTHM"C "--DATE--";12)b "DOWN";19);"0";24);"UP"l  8)  K1 TT1: (175); :: W(NV):RN(WV) R V23 900 \L$(32): K1 4 fL$L$L$: pL$(L$,T)(161 8???~~~???<>?000000000`0000 000p0 N:136SI$"-"SUSULN:1366SI$"*"SUSULN:136QSI$"/"SUSULN:136fSI$""SUSULNEN$"":AN$"":CO%CO%1:106CA%1154(EN$)0SULN:156SI$"+"SULN(EN$):152SI$"-"SULN(EN$):152 SI$ 8?1! `08800ac ````1?/'GCCGOKG'/?? ?0 AG_??? 102tAN$"A"CO%0110/vAN$"A"CO%0xAVSUCO%:0,0,22,(27)"Q":0,0,22,"AVERAGE = ":"#######.##";AV:232:AV0:AN$""::104zAN$(27)230:AN$"":EN$"":SU0:CO%0:LN0:DE%0:SI$"":|AN$(13)138~SI$"+"SUSUL "/"(EN$)0106) SI$"/"SULN(EN$):152H SI$"*"SULN(EN$):152r LN(EN$):EN$"":CA%0:CO%CO%1:106 (EN$)0166 AN$"+"SI$"+":164 AN$"-"SI$"-":164 AN$"/"SI$"/":164 AN$"*"SI$"*":164!LN )(L$,T)!z V23 C$"P"'! V28 C$"E";! V33 C$"I"M!WRV:WW2Pd!WT(W):WWT1.5|!W(W):A$(L$,W,1)! A$"P" A$"E" A$"*" C$"*"!L$(L$,W1)C$(L$,TT1W)!!L$C$(L$,TT):!L$(L$,TT)SU:SU0:CA%1:AN$"":106.!AN$"+"SUSU(EN$):176M!AN$"-"SUSU(EN$):176l!AN$"*"SUSU(EN$):176!AN$"/"(EN$)0EN$"":AN$"":106!AN$"/"SUSU(EN$)!LN(EN$):EN$"":AN$"":CO%CO%1:106!106"AN$:(EN$  INT"+~I139:1,"";::1*,C90:I20:I30:N1N:P1P:A10:A20:J20S,I1Y1:IYN1(NM)1.5:N12N1Mt,J1N1:I1A(A(P1(IRN))),C9C91:AA(RI1):A1A1A:P1A(PA1),C9(NY)RRP1:AAP1:A1A1P1:P10:JN1 -I2A(I2I1 12):N3DT(4)6%D0DT(1)DT(2)YDT(6)DT(7):D1DT(1)DT(2)DT(3)DT(5)U%D00FS1ZZ1:L1:1470n%D10ZZ2:L1:1470%PT$"M"PT$"B"PT$"Q"PT$"S"PT$"A"690%ZZ3:L5:1470%DT(1)0PDT(1):DD1%DT(2)0IRA(DT(2))10 :/(RW$,23)1)(E$(ZZ),37):*0A1$"":I137:A1$A1$"":I:A1$A1$""Z0A2$"":I137:A2$A2$" ":I:A2$A2$""0A3$"":I137:A3$A3$"":I:A3$A3$"":"";0A1$:I14:A2$:I:A3$0A1$:I111:A2$:I:A3$0"" N)))YA(Y):DT(3)(Y):DT(4)(12(Y(Y)).5)=)DT(4)12DT(3)DT(3)1:DT(4)0C)p)Z0:Z23:ZZ6:Z30:P1PB:IR1:I20:Z45)IR1E3ZZ10:1470)BIB(IRN):R1(IRP1N)(1(1IRN)(NY)))R1A(R1BI):I3(IRI2)2:I2IR* 4)4)(C065C066C077C081C083)17704C029C015717704166094(C020C0157)C111660s4TK$""C$;:#3,TK$:"";:C020C1C11:TK$" ":16604C0157C1C124C1C11:C1I%(L,3)1820416604#3,T2$:T2$TK$""TK$(FR$,12)(BK$,12)(PP$,11)7PP$PP$((LP),1,1):LP0:5XF1((DT(I))1E5):F2(DT(I))F15bF$((F1),2):(F$)I%(I,3)F$"** ):I3I3I1:A2A(A2A):ISYI30:A20:12700-J2J21:HC$"Y"(RW$,(7J2));I-(HC$"Y")(C91)1c-F1$"":C910F1$"0"-1,("000"((C9),2,3),3);-F1I1:1400:F1A:1400:F1P1:1400:F1I2:1400-J:ISY1390-HC$"Y"1- 0:DD1&Y0DD1#&DT(6)0RA(DT(6)):DD19&DT(7)0BDT(7)Q&D3ZZ4:L1:1470c&PT$"M"N12t&PT$"B"N6&PT$"Q"N4& PT$"S"N2&PT$"A"N1& Y0NY1ZZ15:1470&*(DT(1)DT(6))((DT(1)0)(N1)) (A1$,39):(A2$,39):(A3$,39)*1A1$"":A2$"":A3$"":""13)"LOAN CALCULATOR"\1""3)"PRINCIPAL APR TERM OF LOAN"u123)"YEARS MONTHS"1"""3)"PAYMENT PERIOD PAYMENTS"1,3)"M,B,Q,S,A":""3)"LAST PAYMENT"16 Z4Z41:Z43ZZZZZ2:1470:Z2Z21:Z40B*R1R2Z3Z31:Z32(Z32)IRIR1:Z361050`*R1RIRIRI3:R2R1:980~*R1RIRIRI3:R2R1:980*Z36IRIR1*$IRA(IR100)100:DT(2)IR100:ZZ0:1470:860*.1,""7)"PAYMENT AMORTIZA 5&(RW$,I%(L,1))I%(L,2));:ST$"":I1I%(L,3):#3,S0$50ST$ST$S0$:I:45:I17:DT(I)01930R5D(RW$,I%(I,1))I%(I,2));}5N(FR$,I%(I,3))" "(BK$,I%(I,3)2);5XF1((DT(I))1E5):F2(DT(I))F15bF$((F1),2):(F$)I%(I,3)F$"** x: (147):56325,2555L0:T11:P3.14159265N"** BIORHYTHM **":f"ENTER BIRTH DATE"| 500: 600:JBJD"ENTER START DATE FOR CHART" 500: 600:JCJD JCJB 270"CHART DATE CAN'T BE EARLIER""THAN BIRTH DA 1," ======== =======".1," ";:F1I3:1400:F1A2:1400K.I30:A20:J20:SYSY1:HC$"Y"1:1390^.(I(Y1)1390m.2ZZ7:1470.<A$:A$""1340.FZZ0:1470:A$"N"IY1:1390.PA$"Y"1330.Z(RW$,2)20)SY(RW$,8);.dI9 ZZ14:1470'4DT(1)P:DT(2)IR100:DT(6)R:8'>R2R:B0R2R(B(IRN))['HPR2N(11(IRN1)(NY))IRu'RP(P.5)B:DT(1)P:'\P1PB:BIB(IRN)'fR(IRP1N)(11(IRN1)(NY)):RA(RBI):DT(6)R'pZ0:Z23:ZZ6:Z411:LPP:J1N ""3)"BALLOON PAYMENT"2@""3)" ":3)"  ".2J3)"  ":3);"ߒ "e2TI17:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3))" "2^DT(I)0:I:PT$"":19402h2r(RW$,I%(L,1))I%(L,2)):C10:#3,TK$:"";2|I150:C$:C$""16 TION TABLE" +8M7(12(Y(Y)1E5)):MM7!+B1,15)"YEAR"SYP+L1,2)"PRINCIPAL APR TERM PAYMENT"+V1,1)P;10B(P))IR100;7B(IR))(Y);M7;+`1,4B(M7))((R),7)+jI139:1,"";::1+t1,"NO INTEREST PRINCIPAL BALANCE ACC ********":19106l(I3)(I4)F$F$((F21.00001),3,3)6v(F$,I%(I,3));96DT(I)0((DT(I)),1,1)N6I:A2:LP0A1k6PP$(FR$,12):LP019706PP$((((LP))),2)6PP$PP$((((LP)((LP))1.00001)),3,3)6(RW$,15)24)"" TE.""TRY AGAIN":: 150. K1 1000:8 700D,NJCJBS6V23: 800b@V28: 800qJV33: 800|T 1000^ C$;8);L$hJCJC1:LL1: L21 300rt" E=END C=CONTINUE N=NEW CHART":380v" 'C' TO CO 117:(RW$,I97)E$(0):.nI:1: /xQ6:F$((((F1)1E3)),2)Q/F2$(((((F1)((F1)))1.0001)"00"),4,2)s/(F$)8F$"*********":1460/(F$)5Q(F$)1/F$(FR$,(Q(F$)))F$"."F2$/F101,(F$,8)"-";:/1,(F$,9); Y:I1A(LPIRN))(zZ4Z41:Z410ZZZZZ2:1470:Z2Z21:Z40V(ARI1:LPLPA:J:LPA(RLP):ZZ0:1470(P2PB:R2A(R(BIRN)):(P20)(R20)ZZ12:1470(((P2IR)RN)(((RN)P2)IR)ZZ12:1470(Y((1(P2IR)(NR2))((1IRN) 902I:"Ɲ";:I150:C$:C$""16903I:TK$"";:1660D3C0(C$):C013C017C0145C019C01471820T3C0321770x3(C020)(C10)C$" ":17703(I%(L,4)0I%(L,4)1)(47C0C058)17703(I%(L,4)1)(C046)17703(I%(L, % ACCEL";17)"AT 60":4 (0S1$" "e(:4, " "NA$;P$(0);:4,9);:4, PE$;0;:4,9);:4, PE$;0;:4,09);:4,PM$;RM$(0)p(DN1Y(NC((RM%(N)RM%(0))1)100(XD((C)):D(C)D)b4,S1$;:4, NA$;P$(N);:4, " "PE$;C;:4, " O ********************************************************************** * LOAN CALCULATOR 1978 BY COMMODORE BUSINESS MACHINES...... * * C128 VERSION 1985 BY J. MINUNI ALL RIGHTS RESERVED *9( * THIS P , PM$SPC$;RM$(N);:N:4, MH25(MH25)04,*710N,44:SPC$"":N079:SPC$SPC$" "::4,SPC$:4|,7: K4 :4:4,(14)"MAX MPH "(15),8: SPC(80(12(Y1)((NA$)2)))(Y1):SPC$"":N1SPC:SPC$SPC$" ":2-9: 4," @";: 0 E$(7)"CONTINUE?(Y/N)":E$(8)"PAYMENT TABLE? (Y/N)c E$(9)"CALCULATING":E$(10)"APR IS TOO SMALL E$(11)"STARTING YEAR? E$(12)"CAN NOT CALCULATE TERM OF THE LOAN E$(13)"DO YOU WANT A HARD COPY (Y/N) !E$(14)"INVALID PAYMEN R(N)FD:!%^ N0Y:P(N)TR(N):RM$(N)(RM%(N)):*%h500P%r FIRST,SECOND,THIRD,FOURTH,FIFTHV%|:i% TIRE CHANGES%H$"TIRE SIZES":J$FD$:K$TR$" ":QFDTR%"INPUT ";X" TIRES REVS/MILE RPMS/60MPH"%N0Y:N1:% N0mZE "A1$0 K3 4," "FD$" FINAL DRIVE"36)"TIRE SIZE "A1$0#0:40 (ER);EL::0@0:IDTH/DIAM/CIRCUM).\AA((A1$,1,3)):AB((A1$,5,2)):AC((A1$,8,2)):AD2((AA25.4)(AB100)(AC2)):AM%(528412)(AD):.f:.p PRINT "PE$;D;:4, " "PM$;RM$(N):N;)l4:N$"":N079:N$N$" "::4,N$:4A)v:Q) FOR CHART)SPC(80(12(Y1)((NA$)2)))(Y1):SPC$"":N1SPC:SPC$SPC$" ":)4:4," MPH "(SPC$,(SPC$)2);:N0Y:4, NA$SPC$;P$(N);: ROGRAM MAY NOT BE SOLD!! *2 **********************************************************************<:F5:%:""6)"LOAN CALCULATOR COPYRIGHT 1978 ";P"COMMODORE BUSINESS MACHINES INC."1ZA$ 4,"#####";RX;:4," RPMS ";:4,(SPC$,(SPC$)2);:N0Y:4, NA$SPC$;P$(N);:N:4o-:: N0Y:RM(N)(RX60)(P(N)Q):RM$(N)((RM(N))):-;: SPC(80(12(Y1)((PM$)2)))(Y1):SPC$"":N1SPC:SPC$SPC$" ":.<: 4," "(SPC$, T (PAYMENT=>PRINCIPAL)6!E$(15)"TERM < THAN 1 PAYMENT PERIODt!RW$"":BK$"!FR$" ":3,3:L1! A(Q0)((Q0)100.5)100(Q0): B(Q1)((Q1))!"1480!,1650 "6DT(L) Y:"";:& N0Y*&2)"? ";:NN02: A$:A$;::"/";I& NN01:A$:A$;::"X";a&NN01:A$:A$;:g&&""2);: A1$(N):""2)" "A1$(N),&A1$A1$(N):860:AM%(N)AM%:RM%(N)AM%(N)FDTR:15)AM%(N),RM%(N)&N' N0 Y 880:DT(7)A(LPR)#ZZ0300 #1850/#ZZ8:1470B#Z$:Z$""480]#ZZ0:1470:Z$"N"300n#Z$"Y"470#(Y)2SY1:530#ZZ11:1470:L8:1650:SY(ST$):ZZ0:1470#Y1(Y1E3):(Y)1Y11:N1M:550#(Y)YY1Y11 N:4C* K3 4," "(SPC$,(SPC$)2);:N0Y:4, NA$SPC$;"("TR$(N)")";:N:4*SPC(80(12(Y1)((PM$)2)))(Y1):SPC$"":N1SPC:SPC$SPC$" ":*4*MP5: N0Y: ((RX60)(P(N)Q))180 MP10:: *MH0*MHMHMP "C128 VERSION BY J. MINUNI.....ALL RIGHTS RESERVED."ld"";:T1(A$):(A$,T,1);:A150:A,Tn:I%(10,4),DT(7),IN%(0)xL18:I%(L,1),I%(L,2),I%(L,3),I%(L,4):L10,4,7,0,10,15,5,1,10,25,2,0,10,31,2,013,14,1,4,13,24, (SPC$)2);:N0Y:4, PM$SPC$;RM$(N);:N.=: ,.>4:4:(142):: 602.H:X.R REVS/MILE (WIDTH/DIAM/CIRCUM).\AA((A1$,1,3)):AB((A1$,5,2)):AC((A1$,8,2)):AD2((AA25.4)(AB100)(AC2)):AM%(528412)(AD):.f:.p PRINT (ST$):I%(L,4)4PT$ST$"@C013390+"JC019L0="TC0145LL2S"^C0147L0:1620`"hL0L6s"rLL1:L7L1|"|300"ZZ0:1470:FS1:630:ZZ0300"P0830:450"IR0970:450"Y0910:450"R0860:450# :P$(N)A1$(N):P(N)AM%(N):RM$(N)(RM%(N)):#' 1:500)':5' CHART{'"":4,DV:NA$"######=#####":PM$"##########>#":PE$"#+###.##"' 880' K3 4: 640'4,25)"CHANGE CHANGE";19)"RPMS"'&4,23)"IN % RPMS IN #&SYY1520 $0SY1520*$: 40,0,79,24:1,3:1070:$DZZ13:1470M$NZ$:Z$""590l$XZ$"N" "":"";:110}$bZ$"Y"580$l1,4:I110:1::SY1:HC$"Y":1070:"":"";:110$vD0:D00:D10:B0:P0:IR0:R0:N0:YDT(3)(DT(4) *N0Y+RM(N)(MH60)P(N)Q8+RM(N)(RX(RX.08))RM(N)RM RM$(N)"":760U+RM$(N)((RM(N)10)10)\+N+ N0Y: RM(N)RX(RX.1) N: 820+  N0Y: RM$(N)"" N: 710+4," #>#";MH;:4,(SPC$,(SPC$)2);:N0Y:4 8,1,17,24,9,0,23,28,2,0ME$(15):E$(0)" "E$(1)"TOO MUCH DATA":E$(2)"NO DATA WAS RECEIVEDE$(3)"MISSING TYPE OF PAYMENT":E$(4)"TOO LITTLE DATAE$(5)"HIT RETURN TO RESTART":E$(6)"CALCULATING TITLEf/z4,(14)(" ** *  ",(40((LT$)2))2)" "LT$" "(" * ** ",(40((LT$)2))2)(15)/ K1 4," "FD$" FINAL DRIVE"36)"TRANS RATIO "TR$/4/ K2 4," "TR$" TRANS RATIO"36)"TIRE SI ). R = T/C (C). C = T/R"}."(D). T = L/R (E). R = L/T (F). L = RT"}8"CONVERSION SUBMENU : X"}BA$}LA$"X"6360}VA$"A"7580}`A$"B"7640}jA$"C"7700 ~tA$"D"7760~~A$"E"78200~A$"F"7880:~7490 0]vrA$"N"6360gv|6750v"":"AC RMS VALUE";V:AV.900854039:A" AC VOLTS (AVE)"v"ANOTHER PROBLEM (Y/N)"vA$vA$"Y"6790vA$"N"6360v68107w"":"AC AVE VALUE";V:AV.900854039:A" AC VOLTS (RMS)"Uw"ANOTHER P݁A$LA$"Y"7820^A$"N"7390h7840"":"RESISTANCE (OHMS)";R:"TIME CONSTANT (SECONDS)";T:LRT:L" HENRIES"ց"ANOTHER PROBLEM (Y/N)"ށA$A$"Y"7880A$"N"7390 79007390#F7720pP"":"INDUCTA A$Wz A$"Y"7150izA$"N"6360sz 7170z*"":"AC PEAK VALUE";V:AV2:A" AC VOLTS (PEAK-PEAK)"z4"ANOTHER PROBLEM (Y/N)"z>A$zHA$"Y"7210zRA$"N"6360{\7230<{f"":"FREQUENCY (HZ)";V:A1V:A" SECONDS (PERIOD)"Z{p  ********************************* CHART AUTOS 128 BY: RAND FREDRICKSEN 80 COL 4/5/86 ********************************* * * WRITTEN FOR : K$(1)"1 CHANGE TIRES" : K$(2)"2 CHOOSE FINAL DRIVES" : K$(3)"3 CHOOSE TRANS RATIOS"FN03:08)K$(N):P K$:K(K$): K3 (147): 1: 30 Z:10)""(K$(K),(K$(K))2): K0 :::0,12:4,14: ~"":"RESISTANCE (OHMS)";R:"CAPACITANCE (FARADS)";C:TRC:T" SECONDS"~"ANOTHER PROBLEM (Y/N)"~A$~A$"Y"7580~A$"N"7390~7600,"":"TIME CONSTANT (SECONDS)";T:"CAPACITANCE (FARADS)";C:RTC:R" OHMS "J"ANOT ROBLEM (Y/N)"]wA$owA$"Y"6850wA$"N"6360w6870w"":"AC PEAK VALUE";V:AV.707106781:A" AC VOLTS (RMS)"w"ANOTHER PROBLEM (Y/N)"wA$xA$"Y"6910x&A$"N"6360x06930]x:"":"AC RMS VALUE";V:AV.7071067  DV7 "": 30" K 390,200,290#":6" FINAL DRIVESc"H$"FINAL DRIVES":J$TR$:K$A1$:QAM%TR""PICK ";X" FINAL DRIVES""N0Y:N1" ";:FD$(N)""(FD$(N),(FD$(N),"/")1)::ՙ:" N0Y:"";:" N0 YT# "ANOTHER PROBLEM (Y/N)"b{zA$t{A$"Y"7270{A$"N"6360{7290{"":"PERIOD (SECONDS)";V:A1V:A" HZ (FREQUENCY)"{"ANOTHER PROBLEM (Y/N)"{A$|A$"Y"7330|A$"N"6360|7350;|"TIME CONSTANT INFO..."e| A VIC 1525 PRINTER, LINES 823 890 CONTAIN CHR$(14) AND CHR$(15) FOR EXPANDED PRINT MODE. FOR OTHER PRINTERS, CHANGE THESE VALUES OR CHANGE THE NUMBER OF SPACES TO 80 INSTEAD OF 40.%: 960:0,2:4,16:5,7 5,14:"": d:J n:" INPUT LISTING TITLE":" EXAMPLE:":2)LT$:"";LT$ x:"HOW MANY DIFFERENT CHOICES "X"";: X:YX1: X5 "": 120 :" MAXIMUM RPM "RX"";: RX:RMRX.08 ! K1 150:ՙ:" TIRE SIZE "A1$" HER PROBLEM (Y/N)"RA$dA$"Y"7640vA$"N"7390 7660"":"TIME CONSTANT (SECONDS)";T:"RESISTANCE (OHMS)";R:CTR:C" FARADS""ANOTHER PROBLEM (Y/N)"(A$2A$"Y"7700<A$"N"7390#F7720pP"":"INDUCTA 81:A" AC VOLTS (PEAK)"{xD"ANOTHER PROBLEM (Y/N)"xNA$xXA$"Y"6970xbA$"N"6360xl6990xv"":"AC PEAK-PEAK VALUE";V:AV2.828427125:A" AC VOLTS (RMS)"y"ANOTHER PROBLEM (Y/N)"yA$.yA$"Y"7030@yA$"N"6360Jy 4);: FD$(N):FD$(N)FD$(N)"/1":FD(N)(FD$(N)):""4);:"#.####";FD$(N):RM%(N)AM%FD(N)TR:# N0Y:P$(N)FD$(N):P(N)FD(N):RM$(N)(RM%(N)):#500#:#" TRANS RATIOS#,H$"TRANS RATIOS":J$FD$:K$A1$:QAM%FD#6"PICK ";X" " RISING CURVE DECAY CURVE"|"T1 = 63.2% 36.8% "|"T2 = 86.5% 13.5%"|"T3 = 95% 5%"|"T4 = 98.2% 1.8%"$}"T5 = 99.3% 0.7%"V}$"(A). T = RC (B ""10)" CHART RPM/MPH ":i# ***** DEFAULTS GO HERE *****o$:(RX4800:FD$"2.41/1":A1$"235/60X14":TR$"1.00/1":X5:DV4:LT$"1979 BUICK TURBO REGAL"-:2""w<K$(0)"0 TO QUIT" ";: A1$: 860O! K2 160: :" FINAL DRIVE "FD$"";: FD$:FD(FD$)! K3 170: :" TRANS RATIO "TR$"";: TR$:TR(TR$)"" SCREEN (3) OR PRINTER (4-7) ";DV"";: DV: DV3 NCE (HENRIES)";L:"RESISTANCE (OHMS)";R:TLR:T" SECONDS"Z"ANOTHER PROBLEM (Y/N)"dA$nA$"Y"7760xA$"N"7390Ā7780"":"INDUCTANCE (HENRIES)";L:"TIME CONSTANT (SECONDS)";T:RLT:R" OHMS"2"ANOTHER PROBLEM (Y/N)": 7050y"":"AC RMS VALUE";V:AV2.828427125:A" AC VOLTS (PEAK-PEAK)"y"ANOTHER PROBLEM (Y/N)"yA$yA$"Y"7090yA$"N"6360y7110z"":"AC PEAK-PEAK VALUE";V:AV2:A" AC VOLTS (PEAK)"=z"ANOTHER PROBLEM (Y/N)"Ez  TRANS RATIOS"M$@ 370: N0Y: P$(N):P$(N)P$(N)" GEAR":"####>######";P$(N);:" ";$ETR$(N)""(TR$(N),(TR$(N),"/")1)::ՙ:$J N0Y:"";:$T N0Y:13);: TR$(N):TR(N)(TR$(N)):TR$(N)TR$(N)"/1":""13)TR$(N):RM%(N)AM%T X5690hb"":"VELOCITY FACTOR";V:"RESONANT FREQUENCY (MHZ)";F:L(74.9481145V)F:"QUARTER LENGTH IS ";L;" METERS"hl"ANOTHER PROBLEM (Y/N)"ivA$iA$"Y"5730(iA$"N"51902i5750ci"DECIBEL GAIN & LOSS FOR POWER & VOLTAGE" "a"ANOTHER PROBLEM (Y/N)"aA$a(A$"Y"5130a2A$"N"4860a<5150bF"HALF WAVELENGTH GUIDE FOR WIRE ANTENNAS (Z=50 OHMS AT RESONANCE) &"bbP"QUARTER WAVELENGTH GUIDE FOR 50 OHM TRANSMISSION LINES TO RESONANT LOAD"bZ"(A). ANT A$"Y"5960}lpA$"N"5790lz5980l"IF DB IS A LOSS, ENTER AS A NEGATIVE NUMBER"'m"DECIBEL GAIN/LOSS";D:"OUTPUT POWER (WATTS)";O:IO(((D10)((10)))):"INPUT POWER = ";I;" WATTS"Em"ANOTHER PROBLEM (Y/N)"MmA$_mA$"Y"6 "Y"5430e^A$"N"5190eh5450er"":"RESONANT FREQUENCY (MHZ)";F:L5429.312231F:"HALF LENGTH IS ";L;" INCHES"f|"ANOTHER PROBLEM (Y/N)" fA$fA$"Y"54901fA$"N"5190;f5510f"":"RESONANT FREQUENCY (MHZ)";F:L452.4 AS A NEGATIVE NUMBER"p"DECIBEL GAIN/LOSS";D:"INPUT VOLTAGE";I:O(((D20)((10))))I:"OUTPUT VOLTAGE = ";O;" VOLTS"p"ANOTHER PROBLEM (Y/N)"pA$ qA$"Y"6290qA$"N"5790&q6320Oq"AC CONVERSIONS AND MISCELLANEOUS"q O PEAK TO AC PEAK"s<"(J). AC PEAK TO AC PEAK TO PEAK"sF"(K). FREQUENCY TO PERIOD"sP"(L). PERIOD TO FREQUENCY"-tZ"(M). TIME CONSTANTS FOR RC AND RL NETWORKS"@td"MENU : X"HtnA$Ytx i"(A). DECIBEL GAIN/LOSS FOR POWER GIVEN INPUT & OUTPUT POWER"i"(B). FIND INPUT POWER GIVEN DB GAIN/LOSS AND OUTPUT POWER"+j"(C). FIND OUTPUT POWER GIVEN DB GAIN/LOSS AND INPUT POWER"tj"(D). DECIBEL GAIN/LOSS FOR VOLTAGE GIVEN INPUT ENNA LENGTH IN CENTIMETERS (B). ANTENNA LENGTH IN METERS"bd"(C). ANTENNA LENGTH IN INCHES (D). ANTENNA LENGTH IN FEET""cn"(E). TRANSMISSION LINE LENGTH IN FEET"Rcx"(F). TRANSMISSION LINE LENGTH IN INCHES"c"(G). TRANSMISSION LINE 020qmA$"N"5790{m6050m"IF DB IS A LOSS, ENTER AS A NEGATIVE NUMBER"n"DECIBEL GAIN/LOSS";D:"INPUT POWER (WATTS)";I:O(((D10)((10))))I:"OUTPUT POWER = ";O;" WATTS"9n"ANOTHER PROBLEM (Y/N)"AnA$SnA$"Y"6090enA 426859F:"HALF LENGTH IS ";L;" FEET"f"ANOTHER PROBLEM (Y/N)"fA$fA$"Y"5550fA$"N"5190f5570Sg"":"VELOCITY FACTOR";V:"RESONANT FREQUENCY (MHZ)";F:L(245.8927641V)F:"QUARTER LENGTH IS ";L;" FEET"qg"ANOTHER PROBL "(A). AC PEAK TO AC AVERAGE"q"(B). AC AVERAGE TO AC PEAK" r"(C). AC RMS TO AC AVERAGE"Er"(D). AC AVERAGE TO AC RMS"r "(E). A A$"X"140ktA$"A"6670}tA$"B"6730tA$"C"6790tA$"D"6850tA$"E"6910tA$"F"6970tA$"G"7030tA$"H"7090tA$"I"7150 uA$"J"7210uA$"K"72701uA$"L"7330CuA$"M"7390Mu651 & OUTPUT VOLTAGES"j"(E). FIND INPUT VOLTAGE GIVEN DB GAIN/LOSS AND OUTPUT VOLTAGE"k"(F). FIND OUTPUT VOLTAGE GIVEN DB GAIN/LOSS AND INPUT VOLTAGE"k"MENU : X"kA$.kA$"X"140@kA$"A"5960Rk A$"B"6020dkA$"C"  LENGTH IN METERS"c"MENU : X"cA$cA$"X"140cA$"A"5370cA$"B"5430cA$"C"5490cA$"D"5550 dA$"E"5610dA$"F"5670-dA$"G"57308d 5270d"":"RESONANT FREQUENCY (MHZ)";F:L13790.45307 $"N"5790on6120n"":"OUTPUT VOLTAGE";O:"INPUT VOLTAGE";I:D(((OI))((10)))20:D;" DECIBELS":"IF DB IS NEGATIVE, IT IS DECIBELS LOSS"o"ANOTHER PROBLEM (Y/N)"o$A$*o.A$"Y"616058703lH"":"OUTPUT POWER (WATTS)";O:"INPUT POWER (WATTS)";I:D(((OI))((10)))10:D;" DECIBELS":"IF DB IS NEGATIVE, IT IS DECIBELS LOSS"QlR"ANOTHER PROBLEM (Y/N)"Yl\A$klf F:"HALF LENGTH IS ";L;" CENTIMETERS"d"ANOTHER PROBLEM (Y/N)"dA$dA$"Y"5370d"A$"N"5190d,5390=e6"":"RESONANT FREQUENCY (MHZ)";F:L137.9045307F:"HALF LENGTH IS ";L;" METERS"[e@"ANOTHER PROBLEM (Y/N)"ceJA$ueTA$ A LOSS, ENTER AS A NEGATIVE NUMBER"oV"DECIBEL GAIN/LOSS";D:"OUTPUT VOLTAGE";O:IO(((D20)((10)))):"INPUT VOLTAGE = ";I;" VOLTS"p`"ANOTHER PROBLEM (Y/N)"pjA$ptA$"Y"6220,p~A$"N"57906p6250lp"IF DB IS A LOSS, ENTER CS"(F). TAN = "S" IR"S"PRESS X TO RETURN TO SUB SUB MENU"T A$T A$"X"3180(T" A$"A"4200;T, A$"B"4210NT6 A$"C"4220aT@ A$"D"4230tTJ A$"E"4240TT A$"F"4250T^4 A$"C" 3780L. A$"D" 3900L8 A$"E" 3840LB3580jML"":"TOTAL CURRENT THROUGH PURE RESISTANCE";I:"TOTAL PURE RESISTANCE";R:EIR:"E = ";E;" VOLTS (RESISTIVE AC RMS VOLTAGE DROP)"MV"ANOTHER PROBLEM (Y/N)"M`A$MjA$"Y"PROBLEM (Y/N)"WA$WA$"Y"4250WA$"N"3960W4270W"ANOTHER PROBLEM (Y/N)"W A$XA$"Y"4200XA$"N"3960 X4320=X"ANOTHER PROBLEM (Y/N)"FX A$XXA$"Y"4210jX&A$"N"3960tX04370X:"ANOTHER PRO E = ";E;" VOLTS (AC RMS SOURCE VOLTAGE)"PF"ANOTHER PROBLEM (Y/N)"PPA$PZA$"Y"3900QdA$"N"3490Qn3920Qx""VQ" ET ET"Q"(A). I = (B). I = "Q 60[4710["":"CAPACITIVE CURRENT";C:"INDUCTIVE CURRENT";L:N(CL):"IN = ";N;" AMPS":CL4840[CL4850\"ANOTHER PROBLEM (Y/N)"#\ A$5\A$"Y"4750G\A$"N"4560Q\4780\"NET REACTANCE IS INDUCTIVE. USE IND "^." 2 L X";(142);" C"^8"(B). FIND L FOR A SPECIFIC FREQUENCY AND CAPACITANCE";_B"(C). FIND C FOR A SPECIFIC FREQUENCY AND INDUCTANCE"]_L"REACTANCE SUB MENU : X"e_VA$w_`A$"X"1710 110Uh"":"TOTAL AC RMS VOLTS";E:"TOTAL PURE RESISTANCE";R:IER:"IR =";I;" AMPS (RESISTIVE CURRENT)":4310vUr"":"TOTAL AC RMS VOLTS";E:"TOTAL CAPACITIVE REACTANCE";R:IER:"IR =";I;" AMPS (REACTIVE CURRENT)":4360U|"":"RESISTIVE  3660MtA$"N"3490M~3680?N"":"TOTAL CAPACITIVE CURRENT ";I:"TOTAL CAPACITIVE REACTANCE";X:EIX:"E = ";E;" VOLTS(CAPACITIVE AC RMS VOLTAGE DROP)"]N"ANOTHER PROBLEM (Y/N)"eNA$wNA$"Y"3720NA$"N"3490N3740 O"BLEM (Y/N)"XD A$XNA$"Y"4220XXA$"N"3960Xb4420Xl"ANOTHER PROBLEM (Y/N)"Xv A$YA$"Y"4230YA$"N"3960Y44709Y"ANOTHER PROBLEM (Y/N)"BY A$TYA$"Y"4240fYA$"N"3960pY4520yY""Y"(A)." R RT C XT"Q" "R"(C). I = 2 2 "@R" T IR + IC"R" ET RT X";(142);" XUCTIVE REACTANCE SERIES RL FORMULAS":\"NET REACTANCE IS CAPACITIVE. USE CAPACITIVE REACTANCE SERIES RC FORMULAS":J]"NET CURRENT IS CAPACITIVE. USE CAPACITIVE REACTANCE PARALLEL RC FORMULAS":]"NET CURRENT IS INDUCTIVE. USE INDUCTIVE R_jA$"A"5010_tA$"B"5070_~A$"C"5130_4950`"":"INDUCTANCE";L:"CAPACITANCE";C:F1((2)((LC)(12))):"F = ";F;" HERTZ",`"ANOTHER PROBLEM (Y/N)"4`A$F`A$"Y"5010X`A$"N"4860b`5030`"":"RESONANTCURRENT";R:"REACTIVE CURRENT";X:I((R2)(X2))(12):"IT = ";I;" AMPS (TOTAL AC RMS CIRCUIT CURRENT)":4410kV"":"TOTAL AC RMS VOLTS";E:"TOTAL AC RMS CIRCUIT CURRENT";I:ZEI:"ZT =";Z;" OHMS (IMPEDANCE)":4460V"":"TOTAL PURE RESISTAN":"TOTAL PURE RESISTANCE";R:"TOTAL CAPACITIVE REACTANCE";X:Z((R2)(X2))(12):"Z = ";Z;" OHMS (IMPEDANCE)")O"ANOTHER PROBLEM (Y/N)"1OA$COA$"Y"3780UOA$"N"3490_O3800O"":"TOTAL CAPACITIVE REACTANCE";X:"TOTAL PURE RE SERIES RCL CIRCUITS: XN = XL - XC"Y"[IF XL = XC THEN GO TO RESONANCE]"Z"(B). PARALLEL RCL CIRCUITS: IN = IC - IL"CZ"[IF IC = IL THEN GO TO RESONANCE]"fZ"REACTANCE SUB MENU : X"nZ A$ZA$"X"1710C"R" ".S"(D). Z = à  (E). Z = 2 2 "xS" T IT T RT + XC"S" IEACTANCE PARALLEL RL FORMULAS":]"RESONANCE FORMULA"]" 1"^"(A). F = "M^" "^$"  FREQUENCY";F:"CAPACITANCE";C:L((1(2))2)((F2)C):"L = ";L;" HENRIES"`"ANOTHER PROBLEM (Y/N)"`A$`A$"Y"5070 aA$"N"4860a5090ua "":"RESONANT FREQUENCY";F:"INDUCTANCE";L:C((1(2))2)((F2)L):"C = ";C;" FARADSCE";R:"TOTAL CAPACITIVE REACTANCE";L:Z(RL)(((R2)(L2))(12)):"ZT =";Z;" OHMS (IMPEDANCE)":4510yW"":"TOTAL CAPACITIVE CURRENT";X:"TOTAL PURE RESISTIVE CURRENT";R:A (180)((XR)):"ANGLE = ";A;" DEGREES (PHASE ANGLE)"W"ANOTHER SISTANCE";R:A((180)((XR))):"ANGLE = ";A;" DEGREES (PHASE ANGLE)"P "ANOTHER PROBLEM (Y/N)"PA$PA$"Y"3840,P(A$"N"34906P23860P<"":"PURELY RESISTIVE VOLTAGE DROP";R:"REACTIVE VOLTAGE DROP";X:E((R2)(X2))(12):"Z A$"A"4670Z*A$"B"4750Z44620[>"":"INDUCTIVE REACTANCE";L:"CAPACITIVE REACTANCE";C:N(LC):"XN = ";N;" OHMS": LC 4820&[HLC48307[RO0101:OU[\"ANOTHER PROBLEM (Y/N)"^[f A$p[pA$"Y"4670[zA$"N"45">2 " R RT L XT"#?< " "K?F "(C). I = 2 2 "q?P " T IR + IL"?Z " ET RT X";20707>""(8H"(A). ER = IT X";(142);" RT (B). EL = IT X";(142);" XL"t8R" "8\"(C). Z = 2 2 (D). E = 2 2 9f" ESISTIVE CURRENT";R:"REACTIVE CURRENT";X:I((R2)(X2))(12):"IT = ";I;" AMPS (TOTAL AC RMS CIRCUIT CURRENT)":3030C" "":"TOTAL AC RMS VOLTS";E:"TOTAL AC RMS CIRCUIT CURRENT";I:ZEI:"ZT =";Z;" OHMS (IMPEDANCE)":3080!D, "":"TOTAL PURE ;V 2360@<` "":"TOTAL PURE RESISTANCE";R:"TOTAL INDUCTIVE REACTANCE";X:Z((R2)(X2))(12):"Z = ";Z;" OHMS (IMPEDANCE)"^ A$IH A$"Y"3370IR A$"N"3180I\ 3390>Jf "":"INPUT CAPACITIVE REACTANCE";X:"INPUT CAPACITANCE";C:F1((2)CX):"F = ";F;" HERTZ"[Jp "ANOTHER PROBLEM (Y/N)"cJz A$uJ A$"Y"3430J A$"N"3180J 3450J ""J "( (142);" XL"@d " "_@n "(D). Z = à  (E). Z = 2 2 "@x " T IT T RT + XL"@ "  T RT + XL T ER + EX"'9p" XLC9z"(E). TAN = "^9" RT"9"PRESS X TO RETURN TO SUB SUB MENU"9 A$9 A$"X"18009 A$"A" 22809 RESISTANCE";R:"TOTAL INDUCTIVE REACTANCE";L:Z(RL)(((R2)(L2))(12)):"ZT =";Z;" OHMS (IMPEDANCE)":3130D6 "":"TOTAL INDUCTIVE CURRENT";X:"TOTAL PURE RESISTIVE CURRENT";R:A(180)((XR)):"ANGLE = ";A;" DEGREES (PHASE ANGLE)"D@ "A"TOTAL PURE RESISTANCE";R:A(180)((XR)):"ANGLE = ";A;" DEGREES (PHASE ANGLE)"1= "ANOTHER PROBLEM (Y/N)"9= A$K= A$"Y"2460]= A$"N"2110g= 2480= "":"PURELY RESISTIVE VOLTAGE DROP";R:"REACTIVE VOLTAGE DROP";X:E((R2)(X2 F XC 2 C XC"G "REACTANCE SUBMENU : X"H A$H A$"X"1710$H A$"A"34906H A$"B"3960HH A$"C"3310ZH A$"D"3370lH A$"E"3430vH 3230H "":"INPUT CAPACITANCE";C:"INPUT FREQUENA). ER = IT X";(142);" RT (B). EC = IT X";(142);" XC"9K " "K "(C). Z = 2 2 (D). E = 2 2K " T RT +  IL@ "(F). TAN = "@ " IR"*A "PRESS X TO RETURN TO SUB SUB MENU"3A A$FA A$"X"1800YA A$"A"2820lA A$"B"2830A A$"C"2840A A$"D"2850A A$"E"2860A A$"F" A$"B" 23409 A$"C" 24009 A$"D" 2520: A$"E" 2460:2200:"":"TOTAL CURRENT THROUGH PURE RESISTANCE";I:"TOTAL PURE RESISTANCE";R:EIR:"E = ";E;" VOLTS (RESISTIVE AC RMS VOLTAGE DROP)":"ANOTHER PROBLEM (Y/N)NOTHER PROBLEM (Y/N)"DJ A$DT A$"Y"2870D^ A$"N"2580Dh 2890Er "ANOTHER PROBLEM (Y/N)" E| A$2E A$"Y"2820DE A$"N"2580NE 2940kE "ANOTHER PROBLEM (Y/N)"tE A$E A$"Y"2830E A$"N"2580E 2990E "ANO))(12):"E = ";E;" VOLTS (AC RMS SOURCE VOLTAGE)" > "ANOTHER PROBLEM (Y/N)"> A$'> A$"Y"25209> A$"N"2110C> 2540L> ""> " ET ET">( "(A). I = (B). I = CY";F:X1((2)FC):"XC = ";X;" OHMS"H "ANOTHER PROBLEM (Y/N)"H A$ I A$"Y"3310I A$"N"3180%I 3330I* "":"INPUT CAPACITIVE REACTANCE";X:"INPUT FREQUENCY";F:C1((2)FX):"C = ";C;" FARADS"I4 "ANOTHER PROBLEM (Y/N) XC T ER + EX"K " XCL "(E). TAN = "#L " RT"SL "PRESS X TO RETURN TO SUB SUB MENU"\L A$oL A$"X"3180L A$"A" 3660L A$"B" 3720L$2870A 27302B "":"TOTAL AC RMS VOLTS";E:"TOTAL PURE RESISTANCE";R:IER:"IR =";I;" AMPS (RESISTIVE CURRENT)":2930B "":"TOTAL AC RMS VOLTS";E:"TOTAL INDUCTIVE REACTANCE";R:IER:"IR =";I;" AMPS (REACTIVE CURRENT)":2980+C "":"R":A$: A$"Y"2280: A$"N"2110: 2300u;$ "":"TOTAL REACTIVE CURRENT";I:"TOTAL INDUCTIVE REACTANCE";X:EIX:"E = ";E;" VOLTS(INDUCTIVE AC RMS VOLTAGE DROP)";. "ANOTHER PROBLEM (Y/N)";8 A$;B A$"Y"2340;L A$"N"2110THER PROBLEM (Y/N)"E A$E A$"Y"2840E A$"N"2580E 3040F "ANOTHER PROBLEM (Y/N)"F A$.F A$"Y"2850@F& A$"N"2580JF0 3090gF: "ANOTHER PROBLEM (Y/N)"pFD A$FN A$"Y"2860FX A$"N"2580Fb 3140Fl "(A).%A$"L"610&350O&"":"INPUT I (AMPS)";I:"INPUT R (OHMS)";R:"E=";IR;"VOLTS": 620&"":"INPUT E (VOLTS)";E:"INPUT R (OHMS)";R:"I=";ER;"AMPS":620&"":"INPUT E (VOLTS)";E:"INPUT I (AMPS)";I:"R=";EI;"OHMS":620('"":(1R)(1A))0d X11n"RT = ";A;" OHMS"%1x"ANOTHER PROBLEM (Y/N)"-1A$?1A$"Y"1320Q1A$"N"1190[11410v1"":"HOW MANY C'S";X1"FIRST C";A11XX11"NEXT C";C1ACA1 X11"CT = ";A;" FAR"COMPONENT VALUES IN SERIES FOR RESISTANCE, CAPACITANCE & INDUCTANCE"W*"(A). RT = R1 + R2 + R3 . . ."*" 1 ":"(B). C = ":" T 1 1 1 " +" + +  S (C). PARALLEL VALUES"H#"(D). REACTANCE (E). WAVELENGTH (F). DECIBEL"d#"(G). AC CONVERSIONS"m# A$~#A$"A"300# A$"B"670#A$"C"1190#A$"D"1710#A$"E"5190#A$"F"5790#A$"G"6360#" ER PROBLEM (Y/N)"-~A$.A$"Y"1060.A$"N"670".1150t."":"COMPONENT VALUES IN PARALLEL FOR RESISTANCE, CAPACITANCE & INDUCTANCE"." 1 ":"(A). R = ":" T 1 1 1  &" L 2 F 2 L"=50"REACTANCE SUBMENU : X"F5: A$X5DA$"X"1710j5NA$"A"2110|5XA$"B"25805bA$"C"19305lA$"D"19905vA$"E"2050518506"":"INPU "INPUT I (AMPS)";I:"INPUT E (VOLTS)";E:"P=";IE;"WATTS":620q'"":"INPUT P (WATTS)";P:"INPUT I (AMPS)";I:"E=";PI;"VOLTS":620'&"":"INPUT P (WATTS)";P:"INPUT E (VOLTS)";E:"I=";PE;"AMPS":620(0"":"INPUT E (VOLTS)";E:"INPUT P (WATT ADS"1"ANOTHER PROBLEM (Y/N)"1A$2A$"Y"1450"2A$"N"1190,2"1540G2,"":"HOW MANY L'S";XX26"FIRST L";A^2@h2JXX1x2T"NEXT L";L2^A1((1L)(1A))2h X12r"LT = ";A;" HENRIES"2|"ANOTHER PROBLEM (Y/N. . .":" C1 C2 C3"9+"(C). LT = L1 + L2 + L3 . . ."Q+"MENU : X"Z+ A$k+A$"A"800|+A$"C"930+A$"B"1060+ A$"X"180+ 740+ "":"HOW MANY R'S";X+*"FIRST R";A+4+>210#,""$6"(A). E=IR (B). I=E/R (C). R=E/I (D). P=IE (E). E=P/I (F). I=P/E (G). R=E2/P (H). P=I2R"$@" "%J"(I). E= PR (J). I= P/R (K). R=P/ ",/" + + . . .":" R1 R2 R3"Z/"(B). CT = C1 + C2 + C3 . . ."/" 1 ":"(C). L = ":" T 1 1 1 "0" T INDUCTANCE";L:"INPUT FREQUENCY";F:X(2)FL:"XL = ";X;" OHMS"06"ANOTHER PROBLEM (Y/N)"86A$J6A$"Y"1930\6A$"N"1800f619506"":"INPUT INDUCTIVE REACTANCE";X:"INPUT FREQUENCY";F:LX((2)F):"L = ";L;" HENRIES"6S)";P:"R=";E2P;"OHMS":620O(:"":"INPUT I (AMPS)";I:"INPUT R (OHMS)";R:"P=";I2R;"WATTS":620(D"":"INPUT P (WATTS)";P:"INPUT R (OHMS)";R:"E=";(PR)(12);"VOLTS":620(N"":"INPUT P (WATTS)";P:"INPUT R (OHMS)";R:"I=";(PR)(12);")"2A$2A$"Y"15803A$"N"1190 31670S3"(A). INDUCTIVE REACTANCE (B). CAPACITIVE REACTANCE (C). RCL"{3"(D). RESONANCE":"MENU : X"3A$3A$"X"1803A$"A"18003A$"B"31803A$"C"45603XX1+H"NEXT R";R+RARA ,\ X1%,f "RT = ";A;" OHMS"C,p"ANOTHER PROBLEM (Y/N)"K,zA$\,A$"N"670m,A$"Y"800v,890,"":"HOW MANY L'S";X,"FIRST L";A,,XX1,"NEXT L";L,ALA, X1,I2 (L). P=E2/R"%T"MENU : X" %^ A$1%hA$"X"180B%rA$"A"500S%|A$"B"510d%A$"C"520u%A$"D"530%A$"E"540%A$"F"550%A$"G"560%A$"H"570%A$"I"580%A$"J"590%A$"K"600 + + . . .":" L1 L2 L3"'0"MENU : X"/0A$A0A$"A"1320S0A$"B"1450e0 A$"C"1580v0A$"X"180012600("":"HOW MANY R'S";X02"FIRST R";A0<0FXX10P"NEXT R";R0ZA1("ANOTHER PROBLEM (Y/N)"6A$6A$"Y"19907A$"N"180072010y7"":"INPUT INDUCTIVE REACTANCE";X:"INPUT INDUCTANCE";L:FX((2)L):"F = ";F;" HERTZ"7 "ANOTHER PROBLEM (Y/N)"7A$7 A$"Y"20507*A$"N"180074AMPS":620:)X"":"INPUT P (WATTS)";P:"INPUT I (AMPS)";I:"R=";PI2;"OHMS":620)b"":"INPUT E (VOLTS)";E:"INPUT R (OHMS)";R:"P=";E2R;"WATTS":620)l"ANOTHER PROBLEM (Y/N) ")vA$)A$"Y"300)A$"N"180)630)""**A$"D"486031730%4"(A). SERIES R L CIRCUITS (B). PARALLEL R L CIRCUITS"z4" XL XL "4"(C). X = 2FL (D). L = (E). F = "5"LT = ";A;" HENRIES"-"ANOTHER PROBLEM (Y/N)"-A$+-A$"Y"930<-A$"N"670F-1020a-$"":"HOW MANY C'S";Xr-."FIRST C";Ax-8-BXX1-L"NEXT C";C-VA1((1C)(1A))-` X1-j"CT = ";A;" FARADS"-t"ANOTH  """"B"THIS LITTLE PROGRAM WILL TELL YOU JUST "q("WHERE YOUR FINANCES STAND.. "2"RIGHT DOWN TO THE AMMOUNT YOU CAN "<"SPEND PER DAY.PROGRAM IS BASEN ON THE "F"FACT THAT YOU ARE PAID EVERY WEEK......"U "MLPC" PER WEEK&'H"WHICH LEAVES YOU "(MLDM)" PER DAYP'R"YOU MUST SAVE ";(TBPC)" PER WEEK"'\"---------------------------------------"'f"CAR PAYMENT..........$";AU'p"INSURANCE PAYMENT....$";INS'z"UTILITIES PER MONTH..$";UT(CH DO YOU MAKE PER PAYCHECK (NET)": WKS 6"HOW MANY PAYCHECKS THIS MONTH?": PC:MOWKPC} @"HOW MANY DAYS IN THIS MONTH?";: DM J"" T"HOW MUCH IS YOUR CAR PAYMENT?": AU ^"HOW MUCH IS YOUR INSURANCE PAYMENT?":INS!h"":"HOW MUCH I ~ %:"ELECTRONIC FORMULA PROGRAM : VERSION 1.0":"WRITTEN BY""KIM F. SMITH":"N4JHX": 2e"SOME NOTES ON USIN --------------""$D"CAR PAYMENT............ ";AUF$N"INSURANCE PAYMENT...... ";INSi$X"UTILITIES PER MONTH.... ";UT$b"HOUSE PAYMENT.......... ";HP$l"PHONE BILL............. ";PB$v"CABLE T.V. BILL........ ";CA$"LOAN PAYMENT......... M FOR THE MATHEMATICAL":"DERIVATIONS. FOR EXAMPLE, ROOTS ARE DERIVED ALGEBRAICLY THAT IS SAY THE SQUARE " P"ROOT OF 4 IS THE SAME AS 4 TO THE 1/2 POWER OR AS IN THE MANUAL AS 4^(1/2).":"USING THIS METHOD, YOU CAN TAKE CUBE ROOTS, FOURTH ROOTS ETC.  -P"IF YOUR ARE PAID BI WEEKLY,ENTER THE "\Z"AMOUNT YOU WOULD GET PER PAYCHECK AS IF"d"YOU WERE PAID WEEKLY..EXAMPLE..IF YOU "n"ARE PAID 1000.00 PER MONTH THEN ENTER "x"AS 250.00 PER WEEK FOR 4 PAY PERIODS ""IN OTHER WOR "HOUSE PAYMENT........$";HP%("PHONE BILL...........$";PBF("CABLE T.V. BILL......$";CAg("LOAN PAYMENT.........$";LP("SAVINGS PER MONTH....$";SAPC("Q-LINK FOR MONTH.....$";MS("MISC. BILLS .........$";MB("SOFTWARE PER MONTHS YOUR HOUSE PAYMENT?":HPC!r"HOW MUCH ARE YOUR UTILITIES PER MONTH?": UTf!|"HOW MUCH IS CABLE T.V.?":CA!"HOW MUCH IS PHONE BILL ":PB!"HOW MUCH TO SAVE EACH PAYCHECKK?":SA!"SOFTWARE EACH WEEK?":SB!"MONTHLY LOAN PAYMENT?":LG THIS PROGRAM........":"TO ENTER IN SCIENTIFIC NOTATION, USE THIS FORMAT: FOR EXAMPLE 1000 OHMS OR"("1 KILO OHM IS ENTERED AS 1E3 OHMS AND 1 MILLION HERTZ OR 1 MEGAHERTZ IS"J2"ENTERED AS 1E6 HERTZ.....SIMILARLY, VERY SMALL NUMBERS USE A NEGA.. ";LP%"SAVINGS PER MONTH...... ";SAPC>%"Q-LINK BILL............ ";MSa%"MISCELANOUS BILLS...... ";MB%"SOFTWARE PER MONTH..... ";SBPC%"PRESS (P) FOR PRINTOUT"%A$%A$"" 700%A$"P"760%"PRESS (P) FOR PRINTOUTFOR ANY OTHER" Z"MATHEMATICAL PROGRAM. OTHER EXAMPLES: RETURNING TANGENTS TO DEGREES BY":"MULTIPLYING BY PI-RADS (180/) AND, RETURNING LOG BASE 10 FROM NATURAL LOGS BY"=!d"DIVIDING BY LOG(10) WHICH IS THE NATURAL LOG OF 10 TO THE C128.":"SIMILADS THE NUMBER OF PAYCHECKS "G"AND THE NUMBER OF WEEKS IN THE MONTH "v"MUST MATCH...BE PREPARED TO ENTER A LOT""UNDER MISC. ..PROGRAM HAS A LOT OF ""ROUGH EDGES BUT THE BASIC BUDGET WORKS ""WELL ENOUGH" "";:"PRESS$...$";SBPC(1:1)750AVES YOU "(MLDM)" PER DAYP'R"YOU MUST SAVE ";(TBPC)" PER WEEK"'\"---------------------------------------"'f"CAR PAYMENT..........$";AU'p"INSURANCE PAYMENT....$";INS'z"UTILITIES PER MONTH..$";UT(P""Q-LINK BILL FOR THE MONTH?":MSW""ENTER ANY OTHER AMOUNT COMING FROM YOUR PAY":MB"TBAUINSUTHPCAMSPBMB(SBPC)LP(SAPC)"""""BUDGET ANALYSIS FOR ";NM$""":"MONTHLY INCOME....... ";WKPC""""MLMOTBTIVE":"EXPONENT LIKE 25 MICROHENRIES IS 25E-6 HENRIES AND 150 PICOFARADS ARE"<"150E-12 FARADS...NOTE THAT IF A PROMPT ASKS FOR MEGAHERTZ , DIVIDE TOTAL":"HERTZ BY 1 MILLION & ENTER AS A DECIMAL"dF"YOU ARE ENCOURAGED TO PICK APART THIS PROGRA"&"OR ANY OTHER KEY TO RE-RUN"&& 1,4'& 1G& "BUDGET ANALISIS FOR ";NM$k&"BUDGET FOR THE MONTH OF ";MO$& "MONTHLY INCOME....... "WKPC&*"YOUR TOTAL BILLS ARE "TB&4"WHICH LEAVES YOU ";ML" PER MONTH&>"WHICH LEAVES YORLY, MULTIPLYING BY LOG(10) WILL RETURN A LOG BASE 10 TO A NATURAL LOG"!n"CAPABLE OF BEING USED BY THE EXP(X) FUNCTION. USE THESE DERIVATIONS IN":"OTHER PROGRAMS."@"x"NOTE:JUST PRESS THE LETTER OF THE FORMULA YOU WANT AND FOLLOW THE PROMPTS.": ANY KEY TO GO ON" A$:A$"" 200)""6MLMOTBC53281,0P53280,0v" A BASIC BUDGET PROGRAM"" BY:GRANGER THE RANGER """"YOUR NAME? ":NM$""BUDGET FOR THE MONTH OF?":MO$ ,"HOW MU"MENUS, SUBMENUS, ETC. CAN BE OBTAINED BY PRESSING X WHEN MENU:X APPEARS."""PRESS X TO ENTER PROGRAM AND CALCULATE TO YOUR HEARTS CONTENT !"" * KIM F. SMITH *" A$"A$"X"180"150 #"(A). OHMS LAW (B). SERIES VALUE#"YOUR TOTAL BILLS ARE "TB9#"WHICH LEAVES YOU ";ML" PER MONTH"c#"WHICH LEAVES YOU ";MLPC" PER WEEK"#"WHICH LEAVES YOU ";(MLDM)" PER DAY#&"":"YOU MUST SAVE ";(TBPC)" PER WEEK "#04,15:""#:"--------------------------A<lMATH #1M12A128 UNIT CONVERTACCOUNTS 128FBASIC BUDGET BIORHYTHM-128CALC-128CALCULATORCAR.128 CHART AUTOS 128KKCHECKBOOK BALDAYCALC 128ELEC FORMULASgHEX MATH 128HEX/DEC CHARTKALQULATORLED CALCLOAN ANALYSIS"KK LOAN TABLE MINICALC 2 MINICALCOHMS LAW OHMSPRITE 1 OHMSPRITE 2 OHMSPRITE 3PYRAMID CALC 1KK RPN CALC 128 SIDECALC.DOCSSIDECALCSPEAKER DESIGN5TEMPCON.DOCTEMPCON TIME CALCULATOR!GEMINI-DIR/LABELKKKKKKKKA--THIS PRG. WRITTEN BY ANTHONY VASS A.K.A. DALLEK 6-14-86.--ORIGINAL TIME CALCULATOR WRITTEN BY GARY EDBERG 4-4-86.--DOWN LOADED FROM Q-LINK PUBLIC DOMAIN LIBRARY 6-12-86.--I SHORTED THIS PRG. BY 4 BLOCKS-MAKING IT MORE EFFFICIEN+d "CCOUNTS AYABLE ENERAL EDGER"hn "Y ICHARD . ARRIS 19 EP 1986x " 72 RIFTWOOD IR ROTON T 06340 " (203) 449-8445 VOICE "HIS PROGRAM IS DISTRIBUTED UNDER THE CONC LFA$"######.##"-VFB$"#################### "M` I05: WX(I),WY(I): IXj 3,12dt 14,43p~ 45,49| 51,59 61,69 71,79CR$(13)KS$" "KD$"...................."15,8,15"  x!"0" CENTER TEXT LINE 80 COL DISPLAY6"M"TX (80(TX$))2]" TX); TX$c"i"" PLOT SCREEN CURSOR"" ("FFF0"), 0, RO, CO, 0""" GENERAL HEADER"" 0,0,79,24,1#".^"PRESS 'Y' OR 'N' ONLY!":320! h SECONDS";9FSHPS60100QZ130\dSS60fnMM1nx80TMTMM:TSTSSTS60170TM60230200TSTS60TMTM1140TH0280220280TMTM %: 5, AC(J,0), AC(J,1)%: BX(AC$(J,8))L%&: (AC$(J,0))0 BO(BX)1: BO(BX)0T%0 JZ%::a%D5t%NLRJ1: 2720z%X:%b 55,6,79,22,1%l "1. PEN A NEW ACCOUNT"%v "2. PDATE AN ACCOUNT"% "3. DISPLAY AN ACCOUNT" T AND STRUCTURED.T--WRITTEN FOR 128 80 COL. MODE, CAN BE MODIFIED TO RUN ON A 64.--DELETE REM'S TO SHORTEN PRG. TO 3 BLOCKS IF DESIRED! %::5,16:6,7" TIME CALCULATOR": 2:M0:S0 EPT.C "T IS NOT FOR ESALE. END ANY COMMENTS OR SUGGESTIONS "TO ABOVE ADDRESS. F YOU LIKE THE PROGRAM SEND $15 TO ABOVE ADDRESS "HIS WILL ENTITLE YOU TO FUTURE UPDATES% (14):  7, (136)  DA$(54): M "NTER SYSTEM DATE (DD MMM YY): "; DT$.  5480?  0,0,79,24E   *********************************************************   * SCREEN CONTROL PROCEDURES START HERE  *! ******************************************TX$TL$(M)" EDGER YSTEM"#, 1450#63#@TX$"MAIN MENU">#J 1450G#T: M#^S#h#r OPEN AND READ MASTER INDEX FILE#|# 1530 : DO TITLE# 5,8,5,FX$",S,R"# DS1 5: LR1: 2030#5,MX$ MX0 $(J,L)" ": L (\ 0,04,79,24,1 (f "RECORD # ";J10(pAC$(J,0)""K(z " NO "; AC$(J,0)z( (AC$(J,0))0 JJ1:2400:2720:1890( "AME "; AC$(J,1)( "DDRESS "; AC$(J,2)( "CITY "; AC$(J,3)( "TATE "; AC$(J,4)& "4. ELETE AN ACCOUNT"%& "5. LEAR AN ACCOUNT"?& "6. RINT SUMMARY"E&`& "0. ETURN TO MAIN"h&:& "SELECTION: "; SX& SX 2030, 3860, 4010, 4160, 5350, 6780& 2400& 5620' *******************************("ENTER MINUTES";2M2<"ENTER SECONDS";9FSHPS60100QZ130\dSS60fnMM1nx80TMTMM:TSTSSTS60170TM60230200TSTS60TMTM1140TH0280220280TMTME$(54): LP(54): DB(54): CR(54)- BA(54)H AC$(20,11): BO(20)W$ AC(20,2)p. I19: TL$(I): 8 "ASH", "ROPERTY", "EAL STATE", "CCOUNTS ECEIVABLE", "NCOME", "XPENSES"B "CCOUNTS AYABLE", "OTES AYABLE", "QUITY"*************** !(!2 0,5,79,24,1S!< 6);"";26);"";46);"";53);"";v!F 62);"";72);""!P J(15PG1) (15PG15)!Z: "##"; J;!d: 2);"";13);"";44);"";50);"";!n: 60);"";70);""! 5: LR1: 2030($RO8:CO15: 1480: TL$(M)" "7$ J0 MXI$: K0 8`$: 5, AX$u$: SXST$: RO10:CO15: 1480: "RECORD ";$: "### "; J,K$: AC$(J,K) AX$$: K) "IP "; AC$(J,5)) "HONE "; AC$(J,6)7) "CCT NO "; AC$(J,7)a) (M7 M8) "AYMENT "; AC(J,0)q)AC(J,1)0.0y)K0) BO(K)0 K20 KK1: 2290)BO(K) 1) AC$(J,8)(K): 2540) LRLR1) 2400)$ L ***************************** ',' CREATE A NEW FILE2' u' ************************************************************{' '* 0,2,79,3,1'4TX$"REATE AN CCOUNT": 1420'>JLR1'H J15 2720: 1890'R L07: AC60THTH1TM60230!280'J:" CURRENT TOTALS"""":TH;" HOURS ";TM;" MINUTES";TS;" SECONDS","LAST ENTRY:";6 M;" MINUTES "; S;" SECONDS"@"QUIT N";A$JA$"N"30TA$"Y"360:350 , - DISPLAY SHORT LIST OF ACCOUNTS- '-  0,4,54,23,1\- " O CC# EDGER CCOUNT ALANCE ";- (M7 M8) "AYMENT": - PT0: PP0- LR0 - J0 LR- : "#### "; J1;- : "#### "; 6L 71,6,79,22,16V J(15PG) (15PG14))7` BA(J)0 "#####.##";BA(J): " "17j J77t=7~:Y7 2,8,2,FY$",L,"(80)n7 40,23,70,24,17 LRX RX297: "WRITING RECORD-";: "####"; L7: JLRX7: #2,SLR). 3180)8 3910*B )*L WRITE UPDATED LIST FILE/*V L*` 5,8,5,"@0:"FX$",S,W"V*j 5,LRh*t LR0 2520t*~ AX$"0"* K0 LR* : AX$""* : L0 8* : AC$(K,L)"" AC$(K,L)" "* : AX$A 3::3*  10,23,70,24,134 LRX RX29*4> : "READING RECORD-";: "####"; L84H : JLRXH4R : #2,(L)Y4\ : 2,DA$(J)4f : DA$(J)(DA$(J)KS$,9)4p : 2,ME$(J)4z : ME$(J)(ME$(J)KS$,28)4 : 2,LP(J), DB(J) (147)0 " "0& 10 "ELECT O 0 TO EXIT"1: /1D "ELECT O: "; LS>1N LS0 J1X LSLS1]1b LSLR 3090n1l RX 30(LS)1v  0,0,79,6,11 14201 CO0:RO0:1480:": ";: "####"; AC$(LS,0);1 CO0:RO1:1480: A LEDGER PAGE CONTROL ROUTINE9:TX$"٠"TL$(M) : 3090!: 10,23,60,24,1W: "[CUR DN - NEXT PAGE CUR UP - PREVIOUS PAGE]": "PRESS ANYOTHER KEY TO CONTINUE: ";:AN$"": AN$: AN$"" 4090: AN$(17) PGMP PGP AC$(J,0);. : "#################### "; AC$(J,1);6. : "#####.## "; AC(J,1);P." : (M7 M8) m., : AC(J,0)0 .6 : "#####.##"; AC(J,0).@ : : "#####.##"; AC(J,1).J : : .T : PTPT (L)8: 2,DA$(J);CR$;ME$(J);CR$;LP(J);CR$;DB(J);CR$;CR(J);CR$;BA(J);CR$#8: #2,(L)X8: DS0 DS50 "ERROR": 0,0,79,23::`8 Lf8m82s8:y8 88 UPDATE A LEDGER PAGE CONTROL ROUTINE8(82TX$"X$AC$(K,L)(13)* : L(+ : 5,AX$;CR$;AC(K,0);CR$;AC(K,1);CR$0+ K9+ #5?+ E+ l+ CLEAR LEDGER PAGE RECORDSr+ x+ :+ 2,8,2,FY$",L,"(80)+ DS0 DS50 "ERROR LEDGER PAGES": : +( RX30K1+2 #, CR(J), BA(J)5 : DS0 DS50 "ERROR": 0,0,79,23::5 L 5 2&5 95  3,6,12,22,1c5 J(15PG) (15PG14) : DA$(J):5  14,6,43,22,1:J(15PG) (15PG14) : ME$(J):5  45,6,49,22,15 J(15PG) (15PG14"CCOUNT: ";2 "##############################"; AC$(LS,1)(2 "DDRESS: ";\2 "##############################"; AC$(LS,2)h2 09);2 "####################"; AC$(LS,3);2 " ## "; AC$(LS,4);2 " ###########"; AC$(LS,5)G1:1330:3510:4060 ; AN$(145) PG0 PGPG1:1330:3510:40602; AN$(136) PF2: 7060: 4090=;" 1530H;, 2720S;6 1890;@ ********************************************************;J;T DELETE AN ACCOUNT;^;AC(J,1).^ : (M7 M8) 4/h : AC(J,0)0 PPPPAC(J,0): PPPPAC(J,1)>/r : F/| J^/ 32);"---------";/ : M7 M8 42);"---------": / 24);"OTALS";32);:"#####.## ";PT;/ : M7 M8 "#####. "TL$(M)8< 3090: 53208F 43708PAC(LS,1)0 9Z K0299d: M7 J9n: AC(LS,1)AC(LS,1)CR(K)DB(K)u9x: : AC(LS,1)AC(LS,1)DB(K)CR(K){99 3720: 1530927209JLR: 189099 DISPLAY 2,(RX29):2+< LRX RX29.,F : CO1:RO12:1480: "NITILIZING RCD ";L>,P : #2,(L)y,Z : 2 ," ";CR$;" ";CR$;0;CR$;0.0;CR$;0.0;CR$;0.0;CR$,d : #2,(L),n : DS0 DS50 "ERROR LEDGER WITE":  : ,x L, 2, :, )5 LP(J)0 "####";LP(J): " "5 6  51,6,59,22,1-6 J(15PG) (15PG14)[6 DB(J)0 "#####.##";DB(J): " "c6 Jw6$ 61,6,69,22,16. J(15PG) (15PG14)68 CR(J)0 "#####.##";CR(J): " "6B J3 CO50:RO1:1480: "CCT O: ";: "####################";AC$(LS,7)[3 CO50:RO3:1480: "HONE: ";: "##############"; AC$(LS,6)d3 PG0o3 13303 RX30(AC$(LS,8))13 2,8,2,FY$",L,"(80)3 DS0 DS50 "ERROR": 0,0,79,2h ********************************************************: "";Y@H: "#####.##"; CR(LX);o@R: "";y@\: @f 0,24,30,24,1@p ">> ";@zIY$""@R1R: C1C*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-**Jr * *NJ| * LEDGER SYSTEM MAIN MENU *J * *J *-*-*-*-*-*-*- N08: AC$(MN,N)AC$(MN1,N): N=: N01: AC(MN,N)AC(MN1,N): N= MN=BO(LS)0*=LRLR15= 1530@= 2720K= 1890= ********************************************************= *=& * LEDGER PAGE UPDATE DATA=0 F (R105) (PG0) R120: PGPG1: PF1: 1330: 3510G (R105) (PG0) R106 GG3G ADD ESCAPE MESSAGE9GNG 50,23,79,24,1jG " - HEN FINISHED"pGG *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-* ": LD 3,6,39,20LN: ""LX: RO8: CO0: 1510Lb: "/" Ml 43,6,79,20"Mv: "";M: RO8: CO0: 1510PM: " "aM 4,8,35,12yM: (30): GREENM: A10M: I1 4M: P(LX);C C3 "#####.##"; DB(LX);C C4 "#####.##"; CR(LX); DRR1: CC1D 4440!DLX0;D WX(5),6,WY(5),21,1rD (LX(15(MP1))) ((DB(LX)0) (CR(LX)0))D: LX0 D: M7 D:  @IX$"": IX$: IX$"" 4750: IX(IX$)A: IX20 IY$(IY$,(IY$)1):(157);: 4750YA: IX13 C1((C4)C(C4)): R1R(C4): 5240: 4880oA: IX27 5040A: IX136 7060: 4750A: IX17 R1R1: 5240: *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-**J * OPEN T-BALANCE FILEJ K #6,"TBAL,S" K: DS1 ?K: #6,"TBAL,S",WnK: I09: LB(I)0.0: 6,LB(I): K: #6K: : I09: 6,LB(I *=: ********************************************************>D>NR6: C0*>X WX(C),R,WY(C),R,1;>bLX15PGR6M>l: C0 c>v: "";>: "#########"; DA$(LX);>: "";>: >: C1 -*-*-*-*-*-*--*G * *EH * CLEAR A LEDGER PAGE *H * *H *-*-*-*-*-*-*-*-*-* I; (TL$(I)KD$,20);M: FA$; LB(I)M: A1 A1LB(I)M: N 4,16,35,20N: A20.N: I5 6TN: I; (TL$(I)KD$,20);rN : FA$; LB(I)N: A2A2LB(I)N : N* BA(LX)CR(LX)DB(LX)D: : E: BA(LX)DB(LX)CR(LX)"E: 2E : : ME: M7 E: BA(LX)BA(LX1)CR(LX)DB(LX)E(: : E2: 4880A: IX29 C1C(C4): 4880B: IX145 R1R1: 5240: 4880,B: IX157 C1C(C0): 4880GB: IX9 IX$""RB IX$;bBIY$IY$IX$mB 4740{BIY(IY$)B PF1 PF0: 5320: 5020B$(19);: WX(C)): : #6K:K 0,0,79,24,1KTX$" Ǡ͠128": 1450L DT$, 58) "Y: ICHARD . ARRIS"FLTX$"EDGER ENU AND ALANCE": 1450oL: (2);: I079: (32);: : uL&:L0 40,5,41,21L:: I0 14: " >: "";?: "#############################"; ME$(LX);'?: "";1?: C?: C2 Y?: "";|?: "####"; LP(LX);?: "";?: ?: C3 ? : -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*HTX$"LEAR "TL$(M)H" 3090 I, 10,23,50,23,15I6" LEAR HIS CCOUNT (Y/N) "; AN$LI@ AN$ "Y" 5460sIJK(AC$(LS,8)): 2580: AC(LS,1)0IT 1530: 2720I^ 1890Ih *-*-*-*-*-*- 44,8,76,12N4: L10N>: I7 8NH: I; (TL$(I)KD$,20); OR: FA$; LB(I)$O\: L1L1LB(I)-Of: @Op 44,16,76,20KOz: I9iO: I; (TL$(I)KD$,20);O: FA$; LB(I)O: L2LB(I)O ( BA(LX)BA(LX1)DB(LX)CR(LX)E<: EF: .FP: (LX(15PG)) (LX(15PG14)) "#####.##"; BA(LX)=FZ: LXLX1CFdIFnFx (R121) (PGMP) R106: PGPG1: PF1: 1330: 3510F (R121) (PGMP) R120*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*U4,4,7U4, 38), " "DT$(13)5V4, FB$" "FA$" ";"",A1,"",L1AV4, " "aVFC$" "FB$FA$" "V4, FC$; TL$(1),LB(1),TL$(7),LB(7) * * * * * * * *R * *&S * CLOSE FILES AND CHECK BALANCE *hS * *S * * * * * * * * * * * * * * * * * *\v * PRINT LEDGER ACCOUNT *] * *T] *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*_]4,4,7]4,AC$(LS,0), AC$(LS,7), 5): WHITEO 27,6,35,7: FA$; A1O 27,14,35,15: FA$; A2O 67,6,76,7: FA$; L1P 67,14,76,15: FA$; L2^P 4,20,35,22: "OTAL SSETS...........";: FA$; A1A2P 43,20,76,22: "OTAL IABILITIES......";: FA CCOUNT SUMMARY ";DT$Y4, " "Y4," O CC# EDGER CCOUNT ALANCE";Z (M7 M8) 4," AYMENT": 4," "Z4," "GZFC$"#### #### #################### #####.## "VZ J0 LRZ: 4, FC$;J1, AC$(J,0), AC$(J,1), A # ";LP(J);: 4,"#### ";" ";_H: DB(J)0 4,"#####.## ";DB(J);: 4,"######## ";" ";`R: CR(J)0 4,"#####.## ";CR(J);: 4,"######## "; " ";<`\: DB(J)0 CR(J)0 ``f: 4,"#####.##";BA(J)`p: : 4, "# V4, FC$; TL$(2),LB(2),TL$(8),LB(8)V4, FC$; TL$(3),LB(3)V4, FC$; TL$(4),LB(4)V4, (13)?W4, FB$" "FA$" ";"/",A2," ",L2KW4, " "tW4, FC$; TL$(5),LB(5),TL$(9),LB(9)W4, FC$; TL$( * * * * * * * * * * * * *S *S DXA1A2: CXL1L2:  0,21,79,24,1/T (DXCX).005 "OUT OF BALANCE ",DXCX: "ETURN TO CONTINUE"; AN$: 5620DT #6,"@TBAL,S",W]T( I09: 6,LB(I): fT2#6nT<15TF 0,0,79,24,1TPTZ ,DT$]4,AC$(LS,1)]4,AC$(LS,2)]4,AC$(LS,3)" , "AC$(LS,4)" "AC$(LS,5)]4, " "2^4," "=^4," "s^FC$"## ######### ############################# "^ $;L1L2P 66,23,79,24P: " TO QUIT"P:P 20,23,64,24Q: "ELECT EDGER CCOUNT";(Q: AN$"": AN$: AN$"" 6170BQ$: AN$(27) 6350]Q.: AN$(136) 6540Q8: AN$"1" AN$"9" 6170QBFX$"LX"AN$QLC(J,1);Z: (M7 M8) Z: AC(J,0)0 Z: 4, "#####.##"; AC(J,0)$[: : 4, "#####.##"; AC(J,1)9[: : 4, " "A[ J[[4, 32);"---------";[ (M7 M8) 4, " ---------"3#######";" "`z J`4,(12)`4`^: DA$DA$(((DA$(J),X,1))127)^ : X_: ME$"": X1 (ME$(J))4_ : ME$ME$(((ME$(J),X,1))127)?_*: XZ_4: 4, FC$;J,DA$,ME$;_>: LP(J)0 4,"####6),LB(6)W4, (13)X"4, "######################### "FA$" ";"̠",A1A2,"̠/",L1L2X,4, (12)X64#X@ 5620bXJ *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*XT * *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--*Ud * *DUn * BALANCE SHEET PRINT ROUTINE *Ux * *U *-J0 15(MP1)1^: DA$"": X1(DA$(J))^: DA$DA$(((DA$(J),X,1))127)^ : X_: ME$"": X1 (ME$(J))4_ : ME$ME$(((ME$(J),X,1))127)?_*: XZ_4: 4, FC$;J,DA$,ME$;_>: LP(J)0 4,"####FY$"LP"AN$QVM(AN$)Q` I0 20Qj: J0 11Qt: AC$(I,J)" "Q~: R: J0 2R: AC(I,J)0'R: 6R: BO(I)0";(143);"TO CONTINUE."x:O$: O$" " THIS IS A PROGRAM TO CONVERT DEGREE ?J "WOULD YOU LIKE TO DO ANOTHER CONVERSION? 1) YES 2) NO"IT B$]^ B$ "1" 140h B$ "2" 140: (147): 330r (147)| "CENTIGRADE TO FAHRENHEIT CONVERSION" "ENTER THE CENTIGRADE DEGREES." Y (147)  )"v "DO YOU WANT TO..."9" "1) PRINT TABLE ON PRINTER OR..."j" "2) PRINT THE TABLE ON THE SCREEN OR..."" "3) ABORT AT THIS TIME?"" P$" P$"1" 4,4: 840: 4,4: 800" P$"2" 840: 800" P$"3" 140: 620l$,X),I9N$" 0":X21I99N$" 0":X3HI999N$" 0":X4_I9999N$"0":X5eRTOS 128CHECKBOOK BALELEC FORMULASgTIME CALCULATORHEX/DEC CHART HIS IS A TEMPERATURE CONVERSION PROGRAM. T IS ONE OF MY FEW ATTEMPTS AT PROGRAMMING. LEASE LET ME KNOW HOW YOU LIKE IT. HE PROGRAM WILL COMVERT FAHRENHEIT TO CENTIGRADE OR VISE-VERSA. T WILL ALSO CONSTRUCT A TABLE OF C\ << 7 >> THE PRINTER PART WORKS. HE LINE THAT OPENS THE PRINTER PORT IS LINE 680. INE 60 SETS THE SCREEN COLOR IN CASE YOU WANT TO CHANGE IT AND LINE 70 SETS THS FAHR. TO CENT. OR VISE VERSA.* (147)G "WOULD YOU LIKE TO..."f "1) CONVERT F>C OR..." "2) CONVERT C>F OR...""3) PRODUCE A LISTING OF CONVERSIONS OR..." "4) QUIT?" Z$ Z$ "1" 250 Z$"2" 37  F((95)Y)32O  Y;" DEGREES CENTIGRADE IS EQUAL TO ";F;" DEGREES FAHRENHEIT."Y  320f  (147)  "WOULD YOU LIKE A TABLE OF..."  "1) C>F CONVERSIONS OR..."  "2) F>C CONVERSIONS OR..."  "3) ABORT AT THIS TIME?" " (147)/# "FAHRENHEIT TO CENTAGRADE CONVERSION TABLE"5#Y# "ENTER THE LOWEST DEGREES..."b# FLo# (147)# "ENTER THE HIGHEST DEGREES..."#  FH# 620#  "DO YOU WANT TO DO MORE TABLES? 1) YES 2) NO"#* G$#4 V;" DEGREES FAHRENHEIT IS EQUAL TO ";M;" DEGREES CENTIGRADE."5% V;%H% (147)i% "THANK YOU... BYE FOR NOW"v% (159)|%GHEST DEGREES..."#  FH# 620#  "DO YOU WANT TO DO MORE TABLES? 1) YES 2) NO"#* G$#4ONVERSIONS FOR YOUR SCREEN OR PRINTER. INCE DON'T HAVE A PRINTER YET 'M NOT SURE IF THE PRINTER PART WORKS. HE LINE THAT OPENS THE PRINTER PORT IS LINE 680. INE 60 SETS THE SCREEN COLOR IN CASE YOU WANT TO CHANGE IT AND LINE 70 SETS THg 0,1:4,1:""::S$"SQUARE":R$(13)"":H$"128 EDC UNIT CONVERSIONS ":300H$"1. KILOHERTZ TO METRES"R$"2. METRES TO KILOHERTZ""3. FAHRENHEIT TO CELSIUS"R$"4. CELSIUS TO FAHRENHEIT"R$"5. INCHES TO MILLIMETRES0 Z$"3" 450) Z$"4" 970: 1406 (147)b "FAHRENHEIT TO CENTIGRADE CONVERSION" "ENTER THE FAHRENHEIT DEGREES." X" (147), C(59)(X32)6 X;" DEGREES FAHRENHEIT IS EQUAL TO ";C;" DEGREES CENTIGRADE."@ T$! T$"1" 540"! T$"2" 710;! T$"3" 140: 450H! (147)z!& "CENTIGRADE TO FAHRENHEIT CONVERSION TABLE"!0!: "ENTER THE LOWEST DEGREES..."!D CL!N (147)!X "ENTER THE HIGHEST DEGREES..."!b CH!l (147  G$"1" 450$> G$"2" 140: 800+$H T$"2" 9108$R (147)L$\ KCL CH 1a$f J((95)K)32$p K;" DEGREES CENTIGRADE IS EQUAL TO ";J;" DEGREES FAHRENHEIT."$z K$$ (147)$ VFL FH 1$ M(59)(V32)-% DAVE": 10:H$:#"THIS IS A MENU DRIVEN PROGRAM. INPUT CHOICE AT PROMPT. AT CONCLUSION OFOPERATION 'RETURN' RETURNS YOU TO PAGE ONE, 'SPACE' REPEATS OPERATION.# 10:$:H$:"FREQUENCY IN KILOHERTZ";F:WL300000F:R$"5. CIR. MILS TO SQ. MILS"R$"6. SQ. MILS TO CIR. MILS"R$"7. WATTS TO HORSEPOWER"R$"8. HORSEPOWER TO WATTS"R$"9. FIRST PAGE"R$"INPUT CHOICE?" A$:A(A$):A1A9220 A1300,1350,1400,1450,1500,1550,1600,1650,20!," 128"R$"6. MILLIMETRES TO INCHES"("7. KILOGRAM/METRES TO FOOT/LBS"R$"8. FOOT/LBS TO KILOGRAM/METRES"R$"9. NEXT PAGE"R$"INPUT CHOICE?"<A$:A(A$):A1A960FA500,550,600,650,700,750,800,850,100P60Od:H$R$"1. CUBIC INCHES TO L RENHEIT"&A$:A$""660&A$" "650:20{&""H$:"INPUT LENGTH IN INCHES";I:MMI25.400058:""H$"LENGTH IS"MM"MILLIMETRES"&A$:A$""710&A$" "700:20'""H$:"INPUT LENGTH IN MILLIMETRES";MM:IMM25.400058:""H$ :20P)""H$:"LITRES";LI:CILI61.023:""H$""LI"LITRES =":""CI"CUBIC INCHES"c)A$:A$""960w)A$" "950:20)""H$:"GALLONS";GA:LIGA3.7854:""H$""GA"GALLONS =":""LI"LITRES")A$:A GRAMS";KG:PAKG2.2046:""H$""KG"KILOGRAMS =":""PA"POUNDS (AVDP.)"K,A$:A$""1210`,A$" "1200:20,""H$:"POUNDS (AVDP.)";PA:KGPA2.2046:""H$""PA"POUNDS(AVDP.) =":""KG"KILOGRAMS",A$:A$ "THE WAVE LENGTH IS"WL"METRES"($A$:A$""510<$A$" "500:20$&:H$:"INPUT WAVELENTH IN METRES";WL:F300000WL:"THE FREQUENY IS"F"KHZ"$0A$:A$""560$5A$" "550:20F%X:H$:"INPUT DEGREES FAHRENHEIT";F:C( UNIT CONVERSIONS"/!6" DAVID C. GARDNER"U!@"1 NOVEMBRE 1986"]!J 5!T"THIS IS A PUBLIC DOMAIN PROGRAM RELEASED AS SHARE WARE. IFYOU FIND THISPROGRAM USEFUL ";!^"PLEASE SEND A DONATION OF$3.00 TO "ITRES"R$"2. LITRES TO CUBIC INCHES"R$"3. GALLONS TO LITRES"R$"4. LITRES TO GALLONS"nR$"5. POUNDS (AVDP.) TO POUNDS (TROY)"R$"6. POUNDS (TROY) TO POUNDS (AVDP.)"R$"7. POUNDS (AVDP.) TO KILOGRAMS"R$"8. KILOGRAMS TO POUNDS (AVDP.)"sR$"9. NEXT PA"LENGTH IS"I"INCHES"'A$:A$""760)'A$" "750:20' ""H$:"KILOGRAM/METRES";KM:FLKM7.233:""H$""KM"KILOGRAM/METRES=":""FL"FOOT/LBS'4A$:A$""820'9A$" "800:200(R""H$:"FOOT/LBS";FL:KMF$""1010*A$" "1000:20c*""H$:"LITRES";LI:GALI.26417:""H$""LI"LITRES =":""GA"GALLONS"w*$A$:A$""1020*)A$" "1050:20+L""H$:"POUNDS (AVDP.)";PA:PTPA1.2153:""H$""PA"POUNDS (AVDP.)=":"""1260,A$" "1250:20e-""H$:"SQUARE FEET";SF:SMSF.0929:""H$""SF;S$" FEET =":""SM;S$" METRES"y-A$:A$""1310-+A$" "1300:20-F""H$:"SQUARE METRES";SM:SFSM.0929:""H$""SM;S$" FEET":"F32)59:""H$""F"DEGREES FAHENHEIT = "C"DEGREES CELSIUS"Y%bA$:A$""610m%gA$" "600:20%:H$:"INPUT DEGREES CELSIUS";C:F(C95)32:""H$""C"DEGREES CELSIUS = "F"DEGREES FAH"h" DAVID C. GARDNER"="r" 3569 146TH AVE "c"|" ZEELAND, MI 49464""" AN UPDATED PROGRAM IS IN THE WORKS AND THIS WILL HELP DEFRAY TIME AND COST."""THANK YOU," #"GE"R$"INPUT CHOICE?"-xA$:A(A$):A1A9120^A900,950,1000,1050,1100,1150,1250,1200,200g120:H$R$"1. SQ. FEET TO SQ. METRES"R$"2. SQ. METRES TO SQ. FEET"R$"3. SQ. CENTIMETRES TO SQ. INCHES"R$"4. SQ. INCHES TO SQ. CENTIMETRES" L7.233:""H$""FL"FOOT/LBS =":""KM"KILOGRAM/METRES"C(\A$:A$""860W(aA$" "850:20(""H$:"CUBIC INCHES";CI:LICI.01639:""H$""CI"CUBIC INCHES =":""LI"LITRES"(A$:A$""910(A$" "900"PT"POUNDS (TROY)"+VA$:A$""1110++[A$" "1100:20+~""H$:"POUNDS (TROY)";PT:PAPT.82286:""H$""PT"POUNDS (TROY)=":""PA"POUNDS (AVDP.)"+A$:A$""1110+A$" "1100:207,""H$:"KILO"SF"SQUARE FEET" .PA$:A$""1360".ZA$" "1350:20.x""H$:"SQUARE CENTIMMETRES";SC:SISC.155:""H$""SC;S$" CENTIMETRES =":""SI;S$" INCHES".A$:A$""1410.A$" "1400:202/""H$:"SQUARE I[[ (27)(85)[ (14)([ 4,12[0,13;[5,2h[d " ELCOME O HE ALCULATOR"[n " "[ "YPE IN THE FIRST NUMBER";[5,2[6 N1\ "YPE IN THE OPERATION(+,-,*,/,^4 CL$" "d------------------------ LOAD SPRITES --- 19 SPRITES -------------------e-------- A$(0) = NUMBER OF SPRITES A$(X) = SPRITE DATA ------------fZ0:A$(50):0,1:1,4:4,1:5,4:1,1:500LVE FOR VOLTAGE":1,3:1,14,3,"(VOLTAGE)",1: 4lA$(19),6:6,1,4,0,0,0,0:6,344,250:---- SET UP EYE ------6,345#3:X1670:X:6,270#2:X1250:X:6,0#0‚1,4:1,29,7,"HERE IT IS"X15:1,255,85195,95:Y1100:Y:0,255,85195 ":8,0#1:X1270:X:8,270#1:X1350:X:8,0#0:2,270#1:X150:X:2,0#0X(5,0)24:Y(5,1):6,0,4:A$(6),6:6,X,Y:6,1,163,90#1:X1230:X:3,0#0:1,0,22,CL$:1,3,22,"THE RESISTANCES WILL NOW CANCEL OUT!": 4:1,15 1,1 NCHES";SI:SCSI6.4516:""H$""SI"SQUARE INCHES =":""SC;S$" CENTIMETRES"F/A$:A$""1460[/A$" "1450:20/""H$:"CIRCULAR MILS";MC:MSMC.7854:""H$""MC"CIRCULAR MILS =":""MS;S$" MILS"/A$:A$""15 2,0,1:1,0,1:7,0,1:Y130:Y:X`1,2,23,CL$:X190:1,1,0::1,8,21,"AND THERE YOU HAVE IT!": 11,3:1,4,23,"VOLATGE":1,4:1,12,23,"IS DIRECTLY PROPORTIONAL"1,4,24,"TO":1,8:1,7,24,"CURRENT":1,4:1,15,24,"AND":1,15:1,19 OR )";\5,2\ OP$0\  OP$" " 500F\& OP$"C" 100^\0 OP$(13) 100h\5 OP$t\: (13)\X "YPE IN THE SECOND NUMBER";\5,2\ N2\  OP$"+" RN1 N2\ OP$"-" RN1 N2\ OP$"*" RN1 N2 0PxX13:"OHMSPRITE"(X),U((186)),B0,P3584:----------- LOAD SPRITES -----lyDS1"DISK ERROR:"DS$Y18:ZZ1:Y,A$(Z):YX:A$(0)"24"----------- SOLVE OHMS LAW FOR VOLTAGE 'V' -----------------------------5000:5004:,95:Y1100:Y:X: 2:1,29,7,CL$: 26,235#2:X11300:X:6,0#0:A$(20),6:X120:X:A$(23),6:1,4:1,22,22,"REMOVE THE 'R'"X18:1,134,175170,140:Y1100:Y:0,134,175170,140:Y1100:Y:X: 3:1,22,22,"MULTIPLY BY 'R' ": 4,96,90,225,115:1,186,123,216,147: 3Y 1,196,90,225,115,,1:8,0,4:1,186,123,216,147,,1:3,0,4: 2 0,196,90,225,115,,1:0,186,123,216,147,,1: 1† 6,0:5,0: 1:2,180#1:X1200:X:2,0#0: 1 1,9,14," ":7,180#1:X130:X:7,90#110/A$" "1500:20W0""H$:"SQUARE MILS";MS:MCMS.7854:""H$""MS;S$" MILS =":""MC"CIRCULAR MILS"k0A$:A$""15600"A$" "1550:200@""H$:"WATTS";W:HPW.001314:""H$""W"WATTS =":""HP"HORSEP,24,"RESISTANCE.": 10P------------ TRANSPOSE OHMS LAW FOR RESISTANCE -------------------------c1,1:1,16: 4 1,1,1,"NOW TRANSPOSE TO SOLVE FOR RESISTANCE.":1,15:1,14,3,"RESISTANCE",1: 3ى"A$(22),8:8,0,165:8,1,4$8,90#2:X]L OP$"/" RN1 N20] OP$"^" RN1N2<] ""T]x R;"IS THE RESULT"c]} B1 20r] A1 16|] 4,A] A] B20 1460] B] 1410] 4,1] N1R]@ 400 N1\ "YPE IN THE OPERATION(+,-,*,/,^ 3B1,8:1,2,22,"CURRENT":1,4:1,10,22,"IS DIRECTLY PROPORTIONAL"1,2,23,"TO":1,3:1,5,23,"VOLTAGE":1,4:1,13,23,"AND INVERSELY PROPORTIONAL"Ё1,2,24,"TO":1,15:1,5,24,"RESISTANCE.": 10:1,1: 2)1,4:1,0,1,"TRANSPOSE OHMS LAW TO SOA$(3),7:7,1,15,0,0,0,0:A$(3),8:8,1,15,0,0,0,08,123#3:X11500:X:8,0#0::FORX=1TO300:NEXTX:MOVSPR8,0#1:FORX=1TO50:NEXTX:MOVSPR8,0#0Ą7,135#2:X1650:X:7,180#3:X1480:X:7,0#01,9,14,"":1,26,14,"": 3E1,26,14,":X1200:X:7,0#0o1,16:1,0,22,CL$: 2:1,3,23,"PUT":1,3:1,7,23,"VOLTAGE":1,16:1,15,23,"LEFT OF THE EQUAL SIGN": 3X125:2,0,1:1,0,1:7,0,1:Y130:Y:X߇X190:2,1,0:1,2,0:7,2,0:Y130:Y:XX125:OWRE"0JA$:A$""16101TA$" "1600:20e1r""H$:"HORSEPOWRE";HP:WHP.001314:""H$""HP"HORSEPOWRE=":""W"WATTS"y1|A$:A$""16601A$" "1650:20"MC"CIRCULAR MILS =":""MS;S$" MILS"/A$:A$""151350:X:8,0#0:1,0,18,"THAT'S NOT IT"j&X18:1,40,12583,120:Y1100:Y:0,40,12583,120:Y1100:Y:X: 2:1,0,18,CL$'R90:B200:E300:S1:SP8:5050:A$(24),8(X13:1,167,83193,108:Y1100: Y:0,167,83193,108:Y1100:Y:X:13:X11500:X:3,180#3:X1375:X:3,270#3:X1510:X:3,0#0I5,170#4:X1610:X:5,90#4:X1655:X:5,0#0 1:X14:1,26,14,"-?-":Y1200:Y:1,26,14," ":Y1200:Y:X: 1ŗX411:X,90#2:Y1200:Y:X,0#0:X:---"2":1,6:1,27,13,"8":1,9:1,29,13,"COMPUTER": 10:]----------- SUB: TURN OFF ALL SPRITES AND MOVE TO 0,0 ----------------X18:X,0,1,0,0,0,0:X,0,0:X:Ҕ--------------------- PRINT OHMS LAW ----------------------------------8,0,2:5,0,2:7,0,1:Y130:Y:XH@X195:2,1,0:8,1,0:5,1,0:7,1,0:Y130:Y:XAX125:2,0,2:8,0,2:5,0,2:7,0,1:Y130:Y:X: 2ÑB1,1,24,CL$:1,8,20,"AND THERE YOU HAVE IT!": 1 C1,15:1,2,22,"RES 5:6,334,175:A$(2),5:A$(2),6:5,1,8:6,1,8e5X1105:5,1,0:6,1,0:Y120:Y:X:X11:5,1,0:Y120:Y:X: 2ˎ61,16:1,0,24,CL$: 1:1,7,24,"NOW THE":1,8:1,15,24,"I'S":1,16:1,19,24,"WILL CANCEL OUT.": 27X122:6,1, ,22,7,"THAT'S NOT IT!"e)X15:1,167,83193,108:Y1100:Y:0,167,83193,108:Y1100:Y:X: 2:1,22,7," "*R80:B180:E110:S2:SP8:5050:A$(23),8+X13:1,217,145230,130:Y1100:Y:0,217,145230,130:Y1100:Y:X:1,15 ' MINICALC - WRITTEN BY BILL C128F DELETE REM LINES 10 - 40Z VARIABLE LISTn AN$ = ANSWER$ AV = AVERAGE CA% = FLAG TCH CO% = COUNTER EN$ = ENTRY$ / TOTAL LN = LAST NUMBER ENTERED QU$ = QUESTIO ---------------- MOVE SPRITE IN A CIRCULAR PATTERN -----------------6--------- R : RADIUS OF CIRCLE~--------- B : BEGIN ANGLE IN DEGREES E : ENDING ANGLE IN DEGREES--------- S : SPEED OF ROTATION SP: SPRITE NUMBERؘB90B27 1,1X15:X,0,0:XA$(2),1:1,1,8,0,0,0,0:----- ICA$(1),2:2,1,3,0,0,0,0:----- VmA$(3),3:3,1,15,0,0,0,0:----- RA$(5),4:4,1,16,0,0,0,0:----- =A$(6),5:5,1,16,0,0,0,0:----- -1,5,1,"PRESISTANCE":1,4:1,13,22,"IS DIRECTLY PROPORTIONAL"^D1,2,23,"TO":1,3:1,5,23,"VOLTAGE":1,4:1,13,23,"AND INVERSELY PROPORTIONAL"E1,2,24,"TO":1,8:1,5,24,"CURRENT.": 10:5000:1,1: 3F1,9:1,3,10,"GRAPHICS AND PROGRAM BY:":1,6:1,28,10,"D0:Y140:Y:X:0,210,117,258,119,,1-8X116:7,0,1:Y140:Y:X: 1_91,8:1,180,87,209,114:1,180,122,209,150: 2:1,180,87,209,114,,1:1,180,122,209,150,,1:1,0,4:6,0,4: 2;0,180,87,209,114,,1:0,180,122,209,150,,1: 1:0,170,1:1,28,20,"HERE IT IS!"`,X15:1,217,145230,130:Y1100:Y:0,217,145230,130:Y1100:Y:X:1,28,20," "-X115:7,1,X:Y180:Y:X:X(8,0):Y(8,1):A$(19),8Ȍ.XX1:YY1:8,X,Y:X0Y0558'/ 1:1,16:1,3,24,"NOW N$ RA = RANGE$ SI$ = SIGN$B SU = VAL(ENTRY$) Mi ******************************** WHAT IT'S FOR - SUBROUTINE THAT ALLOWS FOR A SIMPLE POP-UP CALCULATOR. CLEARS SCREEN FROM LINE 20 - 24 *************************0A1:A1EBC1:C1BB180:EE180:----- CONVERT TO RADIANSXX1(SP,0):Y1(SP,1):X2X1(B)RA:Y2Y1(B)RAuXBE(.017453S200)CSP,X2(X)R,Y2(X)RX:1:X,90#2:Y1200:Y:X,0#0:X:---ENTING OHMS LAW:": 1:1,8:1,30,1,"CURRENT"1,150 #2: 3:1,0#0Q4,135 #2: 3:4,130 #0:4,180 #1: 1:4,180 #0l1,3:1,30,3,"VOLTAGE"2,130 #2:X11750:X:2,0#1:X120:X:2,0#0–1,15:1,30,5,"RESISTANCE"3,110 #ON ANTHONY"JG1,9:1,5,13,"USING THE":1,3:1,15,13,"C":1,15:1,16,13,"O":1,6:1,17,13,"MM":1,5:1,19,13,"O"H1,4:1,20,13,"D":1,3:1,21,13,"O":1,15:1,22,13,"R":1,14:1,23,13,"E":1,8:1,11:1,24,13,"-" I1,9:1,25,13,"1":1,15:1,26,13,17,258,119,,1+<8,0,0:A$(6),8:8,106,158:8,1,16:0,76,117,110,119,,1i=X148:7,1,0:Y140:Y:X: 2:1,0,24,CL$:1,16: 1Đ>1,1,24,"MOVE":1,15:1,6,24,"RESISTANCE":1,16:1,17,24,"LEFT OF THE EQUALS SIGN": 2?X125:2,0,2:WE MUST REMOVE THE":1,8:1,26,24,"CURRENT 'I'": 4:1,1,24,CL$: 1h01,16:1,6,24,"DIVIDE BOTH SIDES BY":1,8:1,27,24,"CURRENT"2X115:2,0,1:1,0,1:7,0,1:Y120:Y:XՍ31,16:1,76,117,110,119,,1:1,180,117,257,119,,145,0,17******* HOW IT WORKSc THIS WORKS PRETTY MUCH THE WAY ANY ORDINARY CALCULATOR WOULD WORK WITHy FEW EXCEPTIONS. ******************************** FUNCTIONS CLR/HOME CLEARS EVERYTHING! INST/DEL KEY DELETES LAST CHARACTE[[ PYRAMID CALCULATOR9[ BY DOUG ZIMMER 5/8/87r[ PYRAMID DRAW ROUTINE FROM 'CAD 128' - ABACUS BOOK[(560:&:PI:GM(0):GM5GM0[2GM,1[<0,1:4,1:5,6:" Y R A M I D A L C U L A T O R"[F"BASE ANGLE";BA'\PB.01):'AN$""(AN$(13)(EN$)0'(AN$"A"@((EN$)9AN$:188X(AN$"."DE%1:224r(AN$"0"AN$"9"180(""AN$"";:EN$EN$AN$:(EN$)6DE%1AN$".":DE%1:224((EN$)9AN$:188(180(0,0,20,(27)/"SI$"/":164%AN$"*"SI$"*":1648%LNSU:SU0:CA%1:AN$"":106W%AN$"+"SUSU(EN$):176v%AN$"-"SUSU(EN$):176%AN$"*"SUSU(EN$):176%AN$"/"(EN$)0EN$"":AN$"":106%AN$"/"SUSU(EN$)&LN(EN$):EN$" :EN$"":CA%1:SI$AN$:CO%CO%1:106*"rAN$"H"102B"tAN$"A"CO%0110X"vAN$"A"CO%0"xAVSUCO%:0,0,22,(27)"Q":0,0,22,"AVERAGE = ":"#######.##";AV:232:AV0:AN$""::104"zAN$(27)230:AN$"":EN$"":SU0:CO%0:LN0:DE%0:S R ENTERED.2" 'A' KEY GIVES AVERAGE (TOTAL / COUNTER)Z# 'ENTER' KEY REPEATS LAST FUNCTION$ '%' KEY GIVES PERCENTAGE, I.E., ENTER '100','*','12','%'% '+' ADDS, '-' SUBTRACTS, '*' MULTIPLIES, '/' DIVIDES. & '=' SIGN ONLY WORKS IF THERE 00)^"EDGE TO GROUND ANGLE=";(EA100)100N^"BASE LENGTH=";(BL100)100r^"EDGE LENGTH=";(VL100)100^"BASE CIRCUMFERENCE=";(4BL100)100^"BASE AREA=";(BLBL100)100^"HEIGHT =";(H100)100 _"FACE HEIGHT RBAPI180: BASE ANGLE DEG/RAD CONVERTH\Z"BASE LENGTH";BL:BXBL2m\dD(2BLBL):DXD2: DIAGONALS\nFHBX(BR): FACE HEIGHT\xVL(BXBXFHFH): EDGE LENGTH\H(VLVLDXDX): HEIGHT\EA180(HDX)PI: EDGE TO GROUND ANGN"@":.)0,0,24,(27)"Q":0,11,24,"ANY KEY TO CONTINUE",1:QU$:23080V'AN$(27)EN$"":SI$"":m'AN$"+"SI$"+":'AN$"-"SI$"-":'AN$"*"SI$"*":'AN$"/"SI$"/":'AN$"="CA%1AN$"":'AN$"%"EN$((EN$)":AN$"":CO%CO%1:106 &106-&AN$:(EN$)0AN$"-"224J&(EN$)6AN$(20)186l&(EN$)6DE%1AN$".":224&(EN$)0198&AN$(20)198&(EN$)6AN$(20)" """"";:RA(EN$)1:EN$(EN$,RA):AN$:188 'AN$I$"":#|AN$(13)138)#~SI$"+"SUSULN:136D#SI$"-"SUSULN:136_#SI$"*"SUSULN:136z#SI$"/"SUSULN:136#SI$""SUSULN#EN$"":AN$"":CO%CO%1:106#CA%1154#(EN$)0SULN:156#SI$"+"SULN( IS OMETHING TO WORK WITH.P ' 'ESC'APE KEY CLEARS THE VARIABLES, (ABOVE), AND RETURNSw ( ******************************** d5,2:0,7:4,7::102: f230 h0,20,20,"""!j0,0,22,"ENTER: ":0,9,22," ":0,25,22,"<":"#" =";(FH100)100+_""VOLUME =";(VO100)100U_,"5% OF VOLUME =";(.05VO100)100_6:"TOTAL LENGTH (BASE+EDGES) =";((4BL4VL)100)100_@GM5"SWITCH TO 40 COLUMNS TO SEE PYRAMID":ՙ"PRESS A KEY TO SEE PYRAMID":A$_J48LE(]AA1802BA: APEX INTERFACIAL ANGLET]AE180EAEA: APEX EDGE TO EDGE ANGLEe]VOBLBLH3z]""(27)"@";]"BASE ANGLE=";(BA100)100]"APEX INTERFACIAL ANGLE=";(AA100)100]"APEX EDGE TO EDGE ANGLE=";(AE100)12,J2M2,N2aa1,4:1,1":0,30,22,"#=":"####";CO%;:""|!l0,0,24,"LAST=":"#######.##";LN;:"";:0,20,24,"TOTAL=":"#######.##";SU;:"";!n0,9,22,"":DE%0:180:AN$""SU0:EN$"":AN$"":LN0:CO%0:SI$"":106"p(SU0CO%0LN0(EN$)0)LN(EN$) 0 `TD2((B228))`^U2(D22))`hV2(A22)9`rE2X2:F2Y2L`|G2X2A2:H2Y2e`I2X2A2D2:J2Y2D2{`K2X2D2:L2Y2D2`M2X2V2U2Z2:N2Y2U2C2`:1,E2,F2G2,H2`:1,G2,H2I2,J2`:1,E2,F2M2,N2`:1,G2,H2M2,N2`:1,I;A$:50)b0ER30GM:5,6::GM,1:(ER): 1:560:50X2:F2Y2L`|G2X2A2:H2Y2e`I2X2A2D2:J2Y2D2{`K2X2D2:L2Y2D2`M2X2V2U2Z2:N2Y2U2C2`:1,E2,F2G2,H2`:1,G2,H2I2,J2`:1,E2,F2M2,N2`:1,G2,H2M2,N2`:1,I, DAYCALC BY E. PLURIBUS MODEM 4/10/87NMO31:ME30:FEB28:YR365:74T"HAT IS THE CURRENT ";Y:Y$(Y):(Y$)5" NTER A 4-DIGIT NUMBER, PLEASE.":8= YDY4:L$(YD):(L$)4FEB29:YR366:" " Y$"'S A LEAP YEAMMMOFEBD:MM$"ARCH"5*M4MM(MO2)FEBD:MM$"PRIL"Z,M5MM(MO2)MEFEBD:MM$"AY".M6MM(((MO3)ME)FEBD):MM$"UNE"0M7MM(((MO3)ME2)FEBD):MM$"ULY"2M8MM(((MO4)ME2)FEBD):MM$"UGUST" 4M9MM(((MO5)ME2 ;"DAYS REMAINING IN";(Y);".":;"H" OO MANY DAYS! RY AGAIN.":16"J"":4,12:0,1:(14):14)"AYCALC 128":13)"":10)"Y . LURIBUS ODEM""#L" HIS SHORT ROUTINE WILL DETERMINE":" THE NUMBER OF DAYS THAT HAVE  ['[ PROGRAM WRITTEN BY R.S. MOFFATTR[ DURING THE WEEKEND OF MARCH 7/8,1987x[ RIGHT HERE IN COLORADO SPRINGS.[( DIVISION PORTION NEEDS SOME WORK[2 IN AVOIDING A "DIVISION BY ZERO"[< ERROR.[F[P 0,7[Z 4,1[d 5,15\n ""^,"1.) ADDITION OF HEX NUMBERS"L^6"2.) SUBTRACTION OF HEX NUMBERS"y^@"3.) MULTIPLICATION OF HEX NUMBERS"^J"4.) DIVISION OF HEX NUMBERS"^K"5.) CONVERT DECIMALS TO HEX"^T"6.) EXIT PROGRAM"^^ A^h 230 ECIMAL NUMBER:" a` C$aj""!atX(C$)Ra~ "PLEASE ENTER IN NEXT HEXIDECIMAL NUMBER:"[a D$gaY(D$)qaZXYwaa (18);"HEXIDECIMAL"," DECIMAL"a C$,"=",(C$)a D$,"=",(D$)a""a (18);"DECIMAL TOTAL= ";Zb  R. T HAS 366 DAYS.":" (OUR 128 KNOWS ALL ABOUT LEAP YEARS.)"j "HAT IS THE CURRENT (1-12)";MM1M12" O SUCH MONTH! RY AGAIN.":12"HAT IS THE CURRENT (1-31)";DD1" O MONTH HAS ZERO DAYS! RY AGAIN.":1)FEBD):MM$"EPTEMBER"? 6M10MM(((MO5)ME3)FEBD):MM$"CTOBER"p 8M11MM(((MO6)ME3)FEBD):MM$"OVEMBER" :M12MM(((MO6)ME4)FEBD):MM$"ECEMBER" <:Z$(MM10):(Z$,1)"1"ZZ$"ST" >(Z$,1)"2"ZZ$"ND" @(Z$,1)"3"ZPASSED":" IN THE CURRENT YEAR AS WELL AS THE"#N" NUMBER OF DAYS REMAINING. LL YOU":" HAVE TO DO IS FOLLOW THE PROMPTS!":8)"(RESS ANY KEY TO START)":A$: T IS THE";(MM);ZZ$;" DAY OF THE YEAR.""FT1500::" HERE ARE";YRMM""3\x (18);"HEXIDECIMAL MATH PROGRAM"?\""i\"PLEASE ENTER YOUR SELECTION:"r\""\"1.) ADDITION OF HEX NUMBERS"\"2.) SUBTRACTION OF HEX NUMBERS"\"3.) MULTIPLICATION OF HEX NUMBERS"]"4.^r _| A6 420/_ A 1000,2000,3000,4000,50007_70=_C_N_ 0,12X_ 5,6l_ ""_ (18);"END OF HEX MATH PROGRAM"_""___ 0,15_ 5,7_""` "THIS SECTION W(18);"HEXIDECIMAL TOTAL= ";(Z)b""&b (7)Rb"PRESS ANY KEY TO RETURN TO MENU"\b  B$bbhbsb 0,13}b 5,7b""b "THIS SECTION WILL TAKE TWOb"HEXIDECIMAL NUMBERS, GIVE THE DECIMAL"c "E61D31" O MONTH HAS"D"DAYS! RY AGAIN.":16@FEBDFEBDXM2YR365D2872pM2YR366D2972M4D3072M6D3072 M9D3072"M11D3072$M1MMD:MM$"ANUARY"&M2MMMOD:MM$"EBRUARY"(M3Z$"RD"_!B(Z$,1)"0"(Z$,1)"4"(Z$,1)"5"(Z$,1)"6"(Z$,1)"7"(Z$,1)"8"(Z$,1)"9"ZZ$"TH"!D 1:"ODAY IS ";MM$;(D);",";(Y);".":T1500::" T IS THE";(MM);ZZ$;" DAY OF THE YEAR.""FT1500::" HERE ARE";YRMMQUAVILENT,SUBTRACT THE SECOND NUMBER"Ac"FROM THE FIRST, AND RETURN THE"lc "REMAINDER IN BOTH HEXIDECIMAL"c*"AND DECIMAL"c4Y0:X0:Z0:G$"":H$""c>""cH"PLEASE ENTER IN A HEXIDECIMAL NUMBER:"cR G$c) DIVISION OF HEX NUMBERS">]"5.) CONVERT DECIMALS TO HEX"[] "6.) EXIT PROGRAM"e]""n] A] A1 A6 380]] ""] (18);"YOUR SELECTION IS IN ERROR]]"PLEASE RE-ENTER:"]""ILL TAKE TWO1`"HEXIDECIMAL NUMBERS, GIVE THE DECIMAL"``$"EQUAVILENT,ADD THE TWO NUMBERS, AND "`."RETURN THE SUM IN BOTH HEXIDECIMAL"`8"AND DECIMAL"`B""`LY0:X0:Z0:C$"":D$""aV"PLEASE ENTER IN A HEXID j"QUOTIENT IN BOTH HEXIDECIMAL".j"AND DECIMAL"_j (18);"(NOTE: HEX NUMBER DROPS ANY"j (18);"FIGURE AFTER DECIMAL POINT)"j""j"Y1:X1:Z0:K$"":L$""j,"PLEASE ENTER IN A HEXIDECIMAL NUMBELTIPLY THE TWO NUMBERS"*g "AND RETURN THE ANSWER IN BOTH"Rg "HEXIDECIMAL AND DECIMAL"\g ""xg Y0:X0:Z0:E$"":F$""g& "PLEASE ENTER IN A HEXIDECIMAL NUMBER:"g0 E$g: ""gD X(E$)gN "PLEASE ENTER IN NEXT HEXIDE\""dfX(G$)1dp "PLEASE ENTER IN NEXT HEXIDECIMAL NUMBER:":dz H$FdY(H$)Xd YX 2330^dd (18);"FIRST HEX NUMBER IS TOO SMALL."dd (18);"PLEASE RE-ENTER:"dd"PLEASE ENTER IN A HEXIDECIMAL NUMBER:"d G$ 8);"HEXIDECIMAL TOTAL= ";(Z)mD"" mN (7)9mX"PRESS ANY KEY TO RETURN TO MENU"Cmb X$ImlOmYm 0,4dm 5,14nm 4,1m""m "THIS SECTION WILL TAKE ANYm"DECIMAL NUMBER, UNDER THE VALUE"n  ***********************= ** **[ ** RICHARD **y ** JOHNSON ** ** **# ***********************(4,1:0,1: 1,12:2,3:3,6:B$" "-1215$ IT 3 C,X,YX4,Y& C,X,Y6X4,Y6> C,X,Y12X4,Y12V C,X5,Y1X5,Y5o C,X5,Y7X5,Y11u DIGIT 4 C,X,Y6X4,Y6 C,X1,Y1X1,Y5 C,X5,Y1X5,Y5 C,X5,Y7X5,Y11 C,X,YX4 R:"j6 K$j@""kJX(K$)2kT "PLEASE ENTER IN NEXT HEXIDECIMAL NUMBER:";k^ L$GkhY(L$)[kr (YX) 4350ak|k (18);"FIRST HEX NUMBER IS TOO SMALL."kk (18);"PLEASE RE-ENTER:"kk"PLEASE ENTER IN A HEXIDECIMAL  CIMAL NUMBER:"gX F$ hb Y(F$)hl ZXYhv >h (18);"HEXIDECIMAL"," DECIMAL"Qh E$,"=",(E$)dh F$,"=",(F$)mh ""h (18);"DECIMAL TOTAL= ";Zh (18);"HEXIDECIMAL TOTAL= ";(Z)h ""h (7)h "PRESS ANY KEY TOd""eX(G$)2e "PLEASE ENTER IN NEXT HEXIDECIMAL NUMBER:";e H$Ge Y(H$)Re 2190\e ZXYbe$ e. (18);"HEXIDECIMAL"," DECIMAL"e8 G$,"=",(G$)eB H$,"=",(H$)eL ""eV (18);"DECIMAL TOTAL= ";Ze` (18);"HEXIDE"OF 65,536 AND RETURN THE PROPER"*n"VALUE IN HEXIDECIMAL CODE."6nN0:W0?n""cn "ENTER HOW MANY NUMBERS YOU "n "WISH TO CONVERT: ";Wn W0 5230n  I1 Wn""n (18);I;"OF";Wn"PLEASE ENTER IN A DE21,"A":3,"B":5,"C":7,"D":A$(20)273,1:660D<X52:Y10:C2PAA110ZF 345cK425pPXX10:~U 1: 630Z835_ DIGIT 1d C,X5,Y1X5,Y5i C,X5,Y7X5,Y11nsDIGIT 0x C,X,YX4,Y} C,X,Y12X,Y  C,X,Y6X4,Y6(  C,X,Y12X4,Y12@  C,X1,Y1X1,Y5Y  C,X5,Y7X5,Y11_ m  DIGIT 6 " C,X1,Y1X1,Y5 ' C,X1,Y7X1,Y11 , C,X,Y6X4,Y6 1 C,X5,Y7X5,Y11 6 C,X,Y12X4,Y12 ; @ DIGINUMBER:"k K$k""lX(K$)5l "PLEASE ENTER IN NEXT HEXIDECIMAL NUMBER:">l L$JlY(L$)Ul 4210alZ(XY)gll (18);"HEXIDECIMAL"," DECIMAL"l K$,"=",(K$)l& L$,"=",(L$)l0 (18);"DECIMAL TOTAL= ";Zl: (1 RETURN TO MENU"h X$i ii 0,15i 5,40i""Yi "THIS SECTION WILL TAKE TWOi"HEXIDECIMAL NUMBERS, GIVE THE DECIMAL"i"EQUAVILENT,DIVIDE THE SECOND NUMBER"i"INTO THE FIRST, AND RETURN THE"CIMAL TOTAL= ";(Z)fj ""ft (7)=f~ "PRESS ANY KEY TO RETURN TO MENU"Gf X$Mf Sf ^f 0,12hf 5,6yf ""f "THIS SECTION WILL TAKE TWOf "HEXIDECIMAL NUMBERS, GIVE THE DECIMAL"f "EQUAVILENT,MUCIMAL NUMBER:"n( Nn2 ""o<M$(N))oF (18);"HEXIDECIMAL"," DECIMAL"AoP (18);M$,,(18);NLoZ (7)Tod I]on""hox (7)o"PRESS ANY KEY TO RETURN TO MENU"o B$oo(0)ECIMAL NUMBER, UNDER THE VALUE"n4,Y12 C,X1,Y1X1,Y54 C,X1,Y7X1,Y11L C,X5,Y1X5,Y5e C,X5,Y7X5,Y11ky DIGIT 2 C,X,YX4,Y C,X,Y6X4,Y6 C,X,Y12X4,Y12 C,X1,Y7X1,Y11 C,X5,Y1X5,Y5 DIGT 7 !E C,X,YX4,Y#!J C,X5,Y1X5,Y5)4X122:Y48:535R)9X140:Y48:570X)>j)C PRINT INPUT|)HX62:Y10:C2)MN$:N$""845)R(N$)46(N$)57N1$A$:A$"":900: 920)WA$A$N$: (A$)9 1180)\ 8Y48:C3:515:1045,R1R0:N1$"":TT0:J19:A$(J)"":1,N$:N$""970E,900:X62: 850T, ADDITIONd,N1$""995,TTTT(N1$):TT((TT100000.5))100000:TT$(TT),900,X140:Y83:C1:460:X140:Y108:C1:480:1100,/GN1$"":TT0:J19:A$(J)""::X140:Y48:C1:570:8359/L PRINT RIGHT JUSTIFIED RESULTSF/QN$(TT)S/VLN(N$)/[J1(N$):A$(J)(N$,J,1):A$(J)"." LNLN1/`/eLN101180:/j900/oC2:X152(10LN):Y10/tJ1(N$)0y  . / . ";22" * + - / * BY RICH JOHNSON / ";j2" + - . * / * + ";2" - + / * / "2" * - + . / " @ @100.@ :REVERSE POLISH ATI CALCULARJ@ : C128 40 COLUMNS LYP@ :v@ :THIS IS A SIMPLE ADDSUBTRACT@:LY CALCULAR. USE THIS@:CALCULAR, ENTER THE FIRST OPER@: THE ENTER ; IN@:THE SECD OPER FOLLOWED BY THE M MAY #C&:EXCEED TS OF MEDIA TAGE.IC':ALL OTHER RIGHTS ARE RESERVED BYjC(:THE AUTH, R. HAROLD DROID.pC1:Cd ********************************Cn SET UP DISPLAY AND VARIABLESCx ********************************)DN(16):X0:L0:D 0P0$:A$;:200FP2$:190;F ********************************YF ENTER KEY ROUTINEF ********************************F(A$)13:P1$:L0290G3,7,10,24:(31)(DN$,X);:XX1:X16(28)" OVER ":" STACK":" LIMIT"#>####.##";N3:N1N3:LL3:190:6I ********************************PI CLEAR ENTRYwI ********************************I(A$)67P2$:190I200: UNRECOGNIZED KEYPRESS + AND - KEYSG@ ******************************2 2:500:6100 2:90001 TITLER1" + - / * / ";1" * - + . / + * ";1" + /  CALCULATOR * + -128 HIS IS A SIMPLE CALCULATOR THAT USES THE -128'S NUMERIC KEYPAD, WRITTEN IN ML SO IT DOESN'T INTERFERE WITH . HE PROGRAM REQUIRES TWO PAGES OF MEMORY AND IS RELOCATABLE SO LONG AS IT STARTS ON A PAGE BOUNDARY IN BANK0 BELOW $400 A: .A:2A:ENTERING OPERS IN SUCCESSIQA: ENTER RATHER THAN xA:TRANSFERS THE NUMBER A "STACK".A:PRESG AN OPERAR ( ) BYA:ITSELF PULLS THE LAST NUMBER $A:THE STACK ASSUMES IT AS THEA:OPER.A:B:US N$"":A124:DN$DN$(17)::0,1:(147):1,"C"D 0,4,0,0,0,2,1: 1,4,0,0,0,2,100: 2,5,0,15,0,2,3500:P0$"V1O5T0U15X0SC":P1$"V1O5T1U15X0IC":P2$"V1O5T2U2X0IC" EA024:102418A40,66:5529618A40,1::A017:1024540A,64:55296540A,1 :P2$:(19)(19):?GN(X)N1:"####.##";N(X):Z07:55296L4027Z,6:G"N1(N$):24,1,39,24:(158)(DN$,L);:"##>####.##";N1:LL1:190:G, ********************************G6 + AND - KEYSG@ ****************************** R CALCULATIONS USING STANDARD ARITHMETIC NOTATION. OR THE = KEY ON A NORMAL CALCULATOR, USE . 1 MULTIPLIES, 3 DIVIDES, 5 RAISES TO POWER, AND 7 RETURNS TO . O ENTER A NEGATIVE NUMBER, USE ED - TO DIFFERENTIATE FROM UNED - WHI ULATIONS ARE DISPLAYED AUTOMATICALLY. RESS TO CANCEL INPUT-IN-PROGRESS AND RECALL THE LAST RESULT. F AN OPERATOR IS PRESSED WITHOUT A PRECEDING NUMBER, IDECALC RECALLS THE PREVIOUS RESULT AND USES IT AS THE FIRST OPERAND. RESSING = ( 0. HE HEADER ON THE VERSION SUPPLIED IN THIS LIBRARY IS ADDRESS $1300 OR 4864 DECIMAL, SO "":4864 WILL START IT RUNNING. OU COULD ALSO PUT IT IN THE SPRITE SPACE, -232 BUFFER AREA, OR ANYWHERE ELSE BETWEEN $1300 AND $1. NTE ERS OF HEWT PACKARD CALCULARS@B:ARE ALY FAMILIAR WITH THIS WAY^B:OF ENTERING CALCULATIS.dB:B :THE F1 CLEARS THE ENTRYINB!:PROGRESS.B":B#:DISTRIBUTE THIS PROGRAM ELY.B$:IT MAY BE SOLD PROFIT.C%:ANY GE THIS PROGRA ::102454018,1151E ********************************TE INPUT WINDOW AND SEQUENCE{E ********************************E(150):N$"":5,2,12,2,1:L22L22EA$:((A$)48(A$)59)((A$)46)260FN$N$A$:(N$)8(N$)1000 **HJ(A$)43(A$)45:N$""3606HTN$(N(X)):XX1:X0X0WH^Z39:1024(7X)40Z,32:HhN2(N$):(A$)43N3N1N2:OP$"+":N3N1N2:OP$"-"HrP1$:24,1,39,24:(158)(DN$,L);:OP$(32)(32);:"####.##";N2:""I|"# CH CALLS FOR A SUBTRACTION OPERATION. FTER YOU'VE RETURNED TO , YOU CAN TO THE LOAD ADDRESS AGAIN TO REUSE THE CALCULATOR. OUR INPUT IS ECHOED TO THE SCREEN, ALL ON ONE LINE UNTIL YOU PRESS = (). NTERMEDIATE RESULTS IN CHAIN CALC!) BY ITSELF SIMPLY REPRINTS THE LAST RESULT. HIS LIBRARY MAY ALSO CONTAIN 128, A SIMPLE ADD-AND-SUBTRACT-ONLY CALCULATOR WRITTEN IN WHICH FEATURES AN AUTOMATIC STORE-AND-RECALL STACK FOR MULTIPLE CHAIN CALCULATIONS. HESE P!  M.J.KERYAN 11-12-83B MICRO #71 - APRIL 1984c GEMINI AND LABEL MODS( BY R.F.JOHNSTON- REBUILT BY MIKE GREENE (3/85)2 CUSTOM MADE FOR DON & JUDY353280,0:53281,0 <(147):646,3:A$(16):!TO PRINT ALL FILES" 920% #1,A$,B$3 "#1,A$,B$A ,#1,A$,B$I 6C0] @A$""C(A$)w JB$""CC(B$)256 TZ$((C),2) ^(Z$)1Z$" " h(Z$)1Z$" "Z$ r(Z$)2Z$" "Z$ wD$"Y"B$(J)" "(34):390 |B$(J)!"PQ$(13)493PQ$(13)499(PQ$"Y"499:B$(J)"":500DJJ1RSS0290\""D$"Y" B$(J)(B$(J),(B$(J))1):521B$(J)(B$(J),(B$(J))1)" BLOCKS FREE ""  "B$(J)" " 1  Q$"N" ! 2504,4:4,(27)(64)(27)(77)(3)5D$"Y"4,(27)(66)(3)O4: PRINT THE HEADERvWI14,B$(0);20)"COMMENTS":7604,B$(0) THE NEXT COMMANDS SENDS CONTROL TO GEMINI 10X THRU CARDCO G+ INTERFACE TO SWITCH TO COK! N LINE4:5115:15,DR,15,"I0"'1,DR,0,"$0"<15,E1,E2$,E3,E4lE10" "E2$:1:970rW$:W$""970W$:W$""980930U$(27)(45)(1):O$(27)(45)(0)4,U$;45);O$;! B$(144) FI116:A$(I):; PDR8:J0:I1144:B$(I)"":f "":I16:" "A$(I)"": I1316:" "A$(I)"": 2000 Q$:Q$""220 Q$:Q$""230 Q$"C"1500:2000 Q$"Q"15:1030 Q$"S"Q$"U"Q! " "Z$" "(34) LZ0) #1,B$:ST0510< B$(34)400n #1,B$:B$(34)B$(J)B$(J)B$:LZLZ1:420 #1,B$:B$(32)430 B$(J)B$(J)(34):LZ15460 JZLZ15:B$(J)B$(J)" ":JZ C$"" C$C$B$:#1,B$:B$""470!" SPACE TO CONTINUE 'Q' TO QUIT"Y Q$"S" " ............SORTING..........."jQ$"N"570}Q$:Q$""540&Q$:Q$""550'Q$"Q"Q$(32)550+Q$"Q" 647380 Q$(32) ::51:Q$"U"680DLB2!NDENSED MODE AND WIDE LINESAWI14,(27)(66)(3);: CONDENSED MODE FOR >1 COL.}WI14,(27)(81)(138);: WIDE LINES TO PREVENT CR'S D$"Y"4,(27)(83)(0)(27)(51)(9) NOW PRINT THE DIRECTORY RW((JWD)WI)*I1RW:W!MANY COLUMNS? (1 TO 5) *!j"* SELECT OR RETURN FOR 3 *Jt"* (IF USING LABEL 3 COLUMNS) *o~"* WOULD YOU LIKE LABEL SIZE? *"* *"* (Y/N) *"* 'C' CHANGE DRIVE (8/9) ! 64738$"******************************=."* *f8"* GEMINI DIRECTORY PRINTER *B"* *L"******************************V"* *`"* HOW !$"N"200 Q$"U"1300:14006 Q$"S"1300:1400k "  ":Z1 "  USING DRIVE";DR" ": Q$"N"" SEND THIS FILE TO PRINTER?" Q$"N"" RETURN ! D$"Y"SSST:J0B$(J)B$(J)(C$,2)1 D$"Y" 487O SSST:B$(J)B$(J)(C$,3)` Q$"N"3000r J0 "" "  "B$(J)" ":J0499 " Y/N" PQ$(13)499PQ$:PQ$"Y"PQ$"N!NIIJ1LB1PD$"Y"600<S(B$(II1),7,15)(B$(II),7,15)650ET610oX(B$(II1),1,15)(B$(II),1,15)650~bEX$B$(II)lB$(II)B$(II1)vB$(II1)EX$FXIIIILBFX1680LBFX1:590B$(2)"" Q$"N":!1WI,4(I(W1)RW)J4," ";:840O>4,B$(I(W1)RW);:WI11000YHW:4`RIg\4f SWITCH PRINTER TO NORMALpWI14,(27)(64) ;: POWER-UP CONDITIONzWI34,(27)(81)(80);: BACK TO 80 COLUM" * "* 'S' SORTED 'U' UNSORTED *0"* 'N' NO PRINT 'Q' QUIT *U"******************************"":I19:" "A$(I)"":" "A$(16)""(20002C$:C$""1330<C(C$):C$(13)C3:1360FC1CKKKK" 51330PWIDTHC:WDWI1:(x"":I16:" "A$(I)"":\I1012:" "A$(I)""::" "A$(16)""f2000zD$:D$""1430D$"Y"260D$"N"1430DR8DR9:1520DR9DR8"KKKKKUSING DRIVE";DR:# "  "B$(J)" "- JJ1; SS0290D ""r B$(J)(B$(J),(B$(J))1)" BLOCKS FREE " "  "B$(J)" ":1 5252C$:C$""1330<C(C$):C$(13)C3:1360FC1CKKKKKKKKKKKKKKKKKKKKKKK