' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`z&9(NO$))NO$;8(R$(A,0)))R$(A,0);8(R$(A,0)))R$(A,1);26(R$(A,1)))R$(A,2);26(R$(A,2))9(R$(A,3)))R$(A,3)&PGPG1:PG60ĺ(12):B15::7900:PG8&A&PG45ĺ(12):B15::7970:PG12:7190& ::7970:PGPG6:Z107275 '[% JANUARY,FEBURARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERu%Y(YR$):Y$(Y1900)%YM$M$" "Y$%(14);21(YM$)2)YM$%%7900%PG12:Z07170%A1Z%NO$(A)&RD(R$(A,3)):5:R$(A,3)RD$$Z:"YEAR ";YR$%$\"MONTH ";MO$$^:D$;"PR#1":(17):(9);"80N":RDTR:5:TR$RD$:RDTD:5:TD$RD$:RDBA:5:BA$RD$:RDBF:5:BF$RD$$bA12::$l(14);12)"CAROLINA APPLE CORE"$v(14);11)"MONTHLY TRANSATIONS"$A1(MO$):M$::IBUTION NO ";A#BAZ14#"DISTRIBUTION NO ";B?#J03L#D$(B,J)S#JY#q#(16384)1286030#16368,0#A1$#p(A1$)271000#z(A1$)136030#5090#B##1780#A1$#1000$X(MO$)0(YR$)07006fM(M2)"pM04870""zKNM-"J1K5"IJ?"LIMK"CMCM1b"A$(I)A$(L)4850"T$A$(I):A$(I)A$(L):A$(L)T$"TA(I):A(I)A(L):A(L)T"SWSW1"IM4850"IIM"4760""4710""#"STARTING DISTR$(A,B)DU$(A(A),B)::>!A1Z2:B14:DU$(A,B)S$(A,B)::J!A1Z2V!B112q!(DA$(A(A),B))04590!S$(A,B)DA$(A(A),B)!B!A!A1Z2!B112! (DA$(A(A),B))04650!DA$(A,B)S$(A,B)!*!4!>1000!\MN "),B)::. A1Z:B03:R$(A,B)S$(A,B)::8 1000D 0A1Z1] :A$(A)D$(A,0):A(A)Ad DAs NNZ1:4700~ XA1Z bB03 lD$(A,B)D$(A(A),B) vB A 1000 A1Z2:A$(A)DU$(A,1):A(A)A: NZ2:4700!A1Z2:B14:SDU$(A,B):B%JB112:DA$(A,B):B,TAF^D$;"CLOSE DUES ";YR$bhD$;"OPEN DIS ";MO$;YR$rD$;"WRITE DIS ";MO$;YR$|X:XD$;"CLOSE DIS ";MO$;YR$A1ZA$(A)R$(A,0):A(A)AANZ:4700 A1Z:B03:S$(A,B)R$(A(A1):4060MO$((MO$)1)<D$;"OPEN REC ";MO$;YR$;DR$YD$;"WRITE REC ";MO$;YR$kX:BA:X:BAD$;"CLOSE REC ";MO$;YR$(MO$)14200D$;"OPEN DUES ";YR$D$;"WRITE DUES ";YR$"Z2:X,Z2041906A1Z2 @B14:DIS ";MO$,YR$2Z1:TD(7Z1039304<A1Z1?FB03QPD$(A,B):B,AnZD$;"CLOSE DIS ";MO$;YR$xd1000:"END OF MO DISC WRITE":X0"MONTH";MO$"YEAR ";YR$"DRIVE ";DR$:DR$",D"DR$(MO$)12MO$"1":YR$((YR$),A`D$;"CLOSE REC ";MO$;YR$8jD$;"OPEN DUES ";YR$QtD$;"READ DUES ";YR$]~Z2:Z3lZ203860xA1Z2B14:DU$(A,B):B:Z303750B112:DA$(A,B):BAD$;"CLOSE DUES ";YR$D$;"OPEN DIS ";MO$;YR$ (D$;"READ ):B,A# D$;"CLOSE DIS ";MO$;YR$- 1000B:"READ DISC":T"MONTH ";MO$f$"YEAR ";YR$."DRIVE ";DR$:DR$",D"DR$8D$;"OPEN REC ";MO$;YR$;DR$BD$;"READ REC ";MO$;YR$LZ:BF:TR:BAQZ03680VA1Z:B03:R$(A,B):BWRITE DUES ";YR$R Z2:Z3+W Z2034607\ A1Z2Of B14:DU$(A,B):Bhp B112:DA$(A,B):Boz A D$;"CLOSE DUES ";YR$ D$;"OPEN DIS ";MO$;YR$ D$;"WRITE DIS ";MO$;YR$ Z1:TD Z103520 A1Z1 B03 D$(A,B "MONTH ";MO$# "YEAR ";YR$B "DRIVE ";DR$:DR$",D"DR$b D$;"OPEN REC ";MO$;YR$;DR$ D$;"WRITE REC ";MO$;YR$ Z:BF:TR:BA% Z03380* A1Z:B03:R$(A,B):B,A4 D$;"CLOSE REC ";MO$,YR$> D$;"OPEN DUES ";YR$H D$;" A5 RDZ3:5::"TOTAL DUES (YR TO DATE) $";RD$D A1$:1000J e& "MEMBER TO DELETE ";As0 BAZ21~: C14D DU$(B,C)DU$(B1,C)N CX C112b DA$(B,C)DA$(B1,C)l Cv B Z2Z21 1000 :"WRITE DISC CUR":NO ";Ah B14)r (DU$(A,B))029507| DU$(A,B)> BL B1112d (DA$(A,B))02990 DA$(A,B);30(DA$(A,B1)))DA$(A,B1) B  (16384)1283060 16368,0 A1$ (A1$)271000 (A1$)133060 3030E THIS TO THE"1 "ALTERNATIVE OF RENTING? ";A$\ A$"N"ĺ"TOO BAD, WE'LL LOOK ANYWAY!"l1650:166010);"COMPARISON TO RENTING"(:"WHAT WOULD IT COST PER MONTH TO RENT "2"OR LEASE A SIMILAR PROPERTY? ";R1<M1(EY1):R1M1ī138"ETC.: $";P!C4(FS)P:C3KN=EY(C2C3)C1C4:ZGEG1660e:" IT COST YOU $";E" TO OWN THAT PROPERTY.":" BASED ON A SELLING PRICE OF":" $";S" YOUR NET RETURN IS: $";Z:"WOULD YOU LIKE TO COMPAR ";:V1:A$(V):20:RETUTNN40V1:H1:" ";:V1:H1:" "A$(V):20:c4 N WILBUR ANDREWS}4!N CAROLINA APPLE COREN3-V2(V22)2H119Q3-V1:H1:" ";:V1:H1:" ";A$(V2):20:z3.5:20:868:5:20:" ";A$(1):20:3D/6:20:868:6:20:" ";A$(2):20:3/7:20:868:7:20:" ";A$(3):20:3 08:20:868:8:20:" ";A$(4):20:4p0V1:" 2'A214(2$'DU$(A1,A2)DU$(A11,A2)32.'A2,A1?28'Z2Z21E2B'X2,V2(A1$):H14t2,V25V26V111:116702-V27V28V112:116702 -V29V210V113:116702-V211V212V114:116702-V213V214V115:116703(-V215V216V116BALDI_1D%ZZ1:R$(Z,0)DA$:R$(Z,1)DU$(N,1):R$(Z,2)"DUES COR":R$(Z,3)A$(A):DA$(N,A4)A$(A)e1N%1X%DI(DA$(N,A4)):TRTRDI:BALBALDI1b%Z1Z11:D$(Z1,0)DA$:D$(Z1,1)DU$(N,1):D$(Z1,2)"DU COR":D$(Z1,3)A$(A):DA$(N,A4)A$(A)1l%2'A1NZ21$A0$DU$(N,1)"DEL"İ10000-0"$A5152P0,$(A$(A))0DA$(N,A4)A$(A):^06$A6162t0@$(A$(A))0İ9500z0J$0T$10000%"DATE ";DA$0&%(A$(A))(DA$(N,A4))956000%(A$(A))(DA$(N,A4))ı1:%DI(A$(A))(DA$(N,A4)):TRTRDI:BALЄ" ENTER NUMBER TO EDIT ";A1$:/#(A1$)1(A1$)169150/#(A1$)12000,12100,12200,12300,11500,11500,11500,11500,11500,11500,11500,11500,11500,11500,11500,11500/#A1$/#A1$"D"1000/#A1$"E"9150/$A14/$(A$(A))0DU$(N,A)A$(A)0;20)DU$(N,1)+.Z#" 2-STREET";20)DU$(N,2)P.d#" ";"3-OTHER DATA";20)DU$(N,3)x.n#" 4-CITY-STATE-ZIP";20)DU$(N,4):.#"DATE";20)"AMOUNT".#A1112.#" ";A4;"-";DA$(N,A);20)" ";A5;"-";DA$(N,A1).#(DA$(N,A2))09140.#A.#/#-& 36,68(TA$):TA$-0 7-b (12):Q13::Q:PG6~-l 10)"NO NAME DATE AMOUNT TOTAL"-v :-(#:A116:A$(A)"":-2#"MEMBER NUMBER TO CORRECT ";N$-<#(N$)1(N$)Z21000-A#N(N$)-F#5 .P#" 1-NAME"$(A,C))08175,8200$,PGPG1+,C<,PG56İ8290J,:PGPG1Q,Ay,:40)"TOTAL DUES";20(Z3$));Z3$,(12), D$;"PR#0":1000, 36,44:DA$(A,C);, 36,58(DA$(A,C1)):DA$(A,C1);, TATA(DA$(A,C1)):RDTA:5:TA$RD$1((Q1$)2));Q1$:"+|8300:PG91+Z208185=+A1Z2O+NO$(A):TA0\+C1:TA0q+12(NO$))NO$;|+B14+(DU$(A,B))O8145+36,15:DU$(A,B);:PGPG1+(DA$(A,C))0ĺ:8140+8200+CC2+B+CC112,(DA FOR AMOUNT"0*;:C*@(YR$)08020V*J:"YEAR ";YR$*T:D$;"PR#1":(17):(9);"80N":RDZ3:5:Z3$RD$:RDZ2:5:Z2$RD$*YB13::*^(14);11)"CAROLINA APPLE CORE"*hQ1$"19"YR$" DUES JOURNAL"+r(14);2$))Q4$;9(BA$))BA$)(12)4)D$;"PR#0":1000N)(14);18)"RECEIPTS"T))" NO DATE FROM FOR AMOUNT"):)"(14);15)"DISBURSMENTS"),(*6" NO DATE TO :7280 (f/(kQ1$"BALANCE BROUGHT FORWARD"O(pQ2$"TOTAL "M$" RECEIPTS"t(zQ3$"TOTAL "M$" DISTRIBUTIONS"(Q4$M$" BALANCE"(:71(Q1$))Q1$;9(BF$))BF$(71(Q2$))Q2$;9(TR$))TR$(71(Q3$))Q3$;9(TD$))TD$)71(Q4A1Z1'NO$(A)7' RD(D$(A,3)):5:D$(A,3)RD$'49(NO$))NO$;8(D$(A,0)))D$(A,0);8(D$(A,0)))D$(A,1);26(D$(A,1)))D$(A,2);26(D$(A,2))9(D$(A,3)))D$(A,3)'>PGPG1:PG60ĺ(12):B15::7970:PG8'HA(\PG60ĺ(12):B15: "(VI):(H(A$(0,I))):A$(0,I);:(H):":";:A$(J,I):S `" **.FORMAT.SUB.** | j"A$(J,I)""A$(J,I)"--------------" t" (# ********.INITIALIZE.************ 2#16298,0:::D$(4):HRES.OFF.CLR.SCRN <#R1500:C18:ARRAY.SIZE !F#2:FI::I1ĭI$"^"ġ:10108!::::I$"^"İ8710:II1:8600P!::::I$"S"ġ:8050!::::I$""A$(J,I)"--------------"A$(J,I)"":8710:8675!::::I$""İ8710:8675!::A$(J,I)I$!::::I3TT(A$(J,I))!I!! **.?.DATA.SUB.** 9:34,4:SET.WINDOW.TO.SAVE.PROMPTS3f!"RECORD #"JFk!I25:8810:cl!A$(J,6)""A$(J,6)"YY"m!A$(J,7)""A$(J,7)"YY"p!I1C1z!::8710:?.DATA.SUB!I!T0!I1C1!::8710:?.DATA.SUB!::(VI):(H1)!::"";I$!::=ARRAY.ROWS..K=1ST.OPEN.ROW'TJKR13^::8510:hJ@r\|OUT:A$(R,C)=INPUT.DATAy4! **.ROW.INPUT.SUB.** >!:H!V5:H18:SCREEN.POSITIONR!"S=STOP ^=BACK UP CR=KEEP F=FURN T=TOOL":"M=MACHINE A=APPLIANCE P=PHOTO G=GENERAL""\!4:"-";:::$L179:"=";:::LL119:" ";::L140:"*";:::f **.TYPE.TOTAL.** p 637036,D(5):"TOTAL ";C$(C);:36,D(8)5:WT1:20050::6370:: FORM&?@ ******.INPUT.SUB.*************** JIN:C1=ARRAY.COLUMNS..R1.OUTL **.TOTAL.** <V6380:36,D(5):"GRAND TOTAL";WjT0:ZERO.TOTAL.ARRAYe::I1R1::::TT(A$(I,8)):TOTAL::I::DD(8)5:WT:20050:FORMAT.&.PRINT:6380:SEPARATOR:MENU **.SEPARATOR.** L17985::::DD(I)5:W(A$(J,I)):W6175:JUMP.IF.0N::::20050:PRINT.ITl::36,D(9):YR(A$(J,6))!T1T1(A$(J,8)):TYPE.TOTAL$J)6410:C:TYPE.TOT.&.LOOP+6230:GRAND.TOT.9960:PRINTER.OFF81000:MENUBOUT:NO.DATA:36,D(9):"AGE":/ ***.PRINT.TABLE.*** EC16:TYPE.LOOP^T10:ZERO.TYPE.TOTjJ1R1::A$(J,1)""6185:TYPE.TOTAL::A$(J,1)C$(C)6180:IS.IT.THIS.TYPE?::J;:I17:36,D(I):A$(J,I);:I:PRINT.TEXT.COLUMNS ::I:C$(2)"T":C$(3)"M":C$(4)"A":C$(5)"P":C$(6)"G":TYPESY ***.PRINT.HEADINGS.*** 6390:36,27:NA$;" ";(TI$,5);"/";YR:6390:"#";:36,D(1):"T";K25::36,D(K):A$(0,K);:36,D(6):"OR";:36,D(7):"AC";:36,D(8):"COST";*** =zIN:C1=ARRAY.COLUMNS..R1=ARRAY.ROWS..A$(R1,C1)=ARRAY~:9210:5:"PLEASE INPUT THE YEAR 19(YY):";"YY";:30:"";YR9910:PRINTER.OND(1)3:D(2)5:D(3)20:D(4)35:D(5)50:D(6)65:D(7)68:D(8)71:D(9)76:COLUMN.POSITIONS9C$(1)"F"(T3Y)) *S ALL THE COMPARING I AM PREPARED"te"TO SHOW YOU! I HOPE I HAVE BEEN OF ":"SOME ASSISTANCE. "::17);"THE END"zhr:"PRESS RETURN TO CONTINUE ";A$:|:Z3140:"$";:Z3::-"$";R7F-F0D4(D1Y1):F1D3D:F2(F0F1)((F0F1)60)"OWNING AND SELLING BROUGHT YOU "G"$";ZD;" CASH IN HAND."M"Z,Z6D5R7o@F3F0F1G2DR7J"RENTING AND INVESTING BROUGHT YOU:"T"$";Z6;" OR (IF THE INTEREST WAS "^"FULLY TAXED): $";F3c"CASH IN HAND.""d::"THAT'3)(12Y)1)R3:D4(D4100.5)1000D5D4D3:1660e"AT THE INTEREST RATE YOU SPECIFIED,""YOUR DOWNPAYMENT AND MONTHLY INVEST-""MENTS WOULD HAVE GROWN TO: $";D5R7R1Y1:"YOUR COST FOR RENT WOULD HAVE BEEN;"1650:16 "/"INVESTMENT (SAVINGS, DEPOSIT CERTIFI-"M"CATE, BOND, ETC.)? ";R3^R3R3Y1100 SOME OF THE SIGNS MAY BE WRONG, BECAUSE THEY WERE LEFT OUT OF THE MAGAZINE LISTING OF THE PROGRAMD3D(1R3)(4Y):D3(D3100.5)100#D4D1((1R0FD6R1M1P<Z"YOU ARE $";D6;" A MONTH AHEAD BY"M_"OWNING.":{dD1M1R1:"THAT FEE IS $";D1;" LESS THAN"n"YOUR AVERAGE MONTHLY COST OF OWNING."x:"WHAT IS THE HIGHEST PER CENT OF RETURN""YOU WOULD EXPECT FROM YOUR TYPICALST(I):489WEWEST(I)"::(D SUB-TOTAL PRINT GOSUBe15)"....................."15)"INCOME/ASSETS=$";PTIT15)"EXPENSES =$";BTMT15)"......................":: FINAL PRINTING ROUTINE:(10)485 M1H4341342+N%H44863H4CW3441454RN%W3487ZW3c489xOMOMST(I):489OMOMST(I):489IBIBST(I):489NHNHST(I):489EBEBST(I):489KHKHST(I):489MEMEST(I):489 AHAHFOR REPORT TALLIES"ST(I)ST(I)2OX311313AN%OX479IOXYB2411414hN%B2481pB2H1321324N%H1482H1B3421424N%B3483B3H2331333N%H2484H2M1431436N%M1K101108N%K432"K1L211215?N%L434FLUU300350cN%U436jUyG411454N%G438G440PTPTST(I):440ITITST(I):440BTBTST(I):440MTMTST(I):: GOSUB C1,2}::" "I;:14:A$(0,I)#,<}+,F}:I,P}9310:1000:SCREEN.PAUSEa,::R$""1000:MENUu,6770:1140:960{,;,@770:20002999:40004999:960,J,T770:80008999:960,^,h770:94009790:960* +:u "TYPE: F T M A P G",ITEM,MANUFACTURER,"MODEL/COMMENT","SERIAL #","ORIGINAL YEAR","ACQUISITION YEAR","ACQUISITION COST"+} ********.DISPLAY.ARRAY.********* + }IN:A$(0,C1)+}:"COLUMNS DATA"+}" INDEX I A$(0,I)":,(}I00:24070:24070O*]CE$"":I20592066:CE$CE$((I))::24060:24070:24050t*]9310::SCRN.PAUSE *]I139:"*";::::*LINE*]"*";:20(CE$)2:CE$;:39:"*"::CENTER*^"*";:39:"*":+0u ********.DATA.*****************$"LOCK "NA$",D"A!)PZA123030G)ZZD$"NOMON I,O,C":43624,1:1016:q)dZ(222)6Ĺ216,0:" NOT THERE":23100)nZ:216,0:23090)] ********.TITLE.***************** )]:::24050:24070:CE$NA$:24060:24070*]CE$"BY BOB HUELSDONK":2406(Y"THE PROGRAM IS: "NA$:B(Y"DRIVE ";:A$:A$:A$(13)23130Z(ZA(A$):A223080j( Z9200:TIME(ZI15:I2058,((TI$,I,1)):(ZI711:I2061,((TI$,I,1))::1((Z23140(2ZD$"DELETE "NA$",D"A(Nv'HN ********.PRINT.SUB.************* 'RNWF(W)'\N36,DT(W)'fNW(W)ĺ"0";'pNW;'N: 'Y ********.SAVE.****************** 'YD$(4):D$"MON I,O,C"ROUTINES.*** $&&770::PRINTER.ON;&&903::12/IN,8/INR&&907::16/IN,8/INk&&(27)(120)::8/IN&&39700::DURA.ON&&960::BOTH.OFF& N ********.FORMAT.FUNCTIONS.****** +'*NT(X)(X0)2(((X))9)(((X))99)(((X))999)(("CLOSE "FI$ %l%D$"LOCK "FI$5%v%DD2DD1:9430;%%e%% ********.FILE.READ.************* x%%D$"OPEN "FI$%%D$"READ "FI$%&EF:READ.EOF% &R1EF%&::C1C1% &::::A$(R,C)%*&::C%4&R%>&D$"CLOSE "FI$: && ***.PRINT.Y$$DD2:ND0*$$D$"OPEN "FI$",D"DD>$$D$"UNLOCK "FI$R$$D$"DELETE "FI$f$$D$"OPEN "FI$z$$D$"WRITE "FI$$%R1R1$%::A$(R,1)""EFR1:9510:FIND.EOF$%$&%EF$0%R1EF$:%::C1C1$D%::::A$(R,C)$N%::C$X%R %b%D$6))S1#;$HD,MD,SD/#@$SD0SDSD60:MDMD1J#J$MD0MDMD60:HDHD1P#O${#T$ ********.SCREEN.PAUSE.********** #^$24:16:"ANY KEY";:A$:#$ ********.FILE.WRITE.************ $$IN:R1=ARRAY.ROWS..ND=NEW.DATA.FLAG..A$(R1,C1)=DATA.ARRA****.TIME.****************** 6"#D$;"IN#3":D$"PR#3"C"$" ";TI$]"$D$"IN#0":D$"PR#0":""$ ********.CALC.TIME.************* ",$H1((TI$,8,2)):M1((TI$,11,2)):S1((TI$,14,6)):#6$HD((TI$,8,2))H1:MD((TI$,11,2))M1:SD((TI$,14,$"HM.INV"'!P#A$(R1,C1),B(R1,1),T(C1)K!Z#I1C1:A$(0,I)::FIELD.NAMESj!d#20000:24000:FCTNS&TITLEz!n#1000:MENU!x#OUT:D$=DOS.CMD..A$=ARRAY..R1=ARRAY.ROWS..C1=ARRAY.COLUMNS..NA$=PGRM.NAME..FI$=FILE.NAME..A$(0,1TO0,C1)=COLUMN.NAMES"# ****AST RATE GUESSED=APPROXIMATE REG. PAYMENT7 R1R230E R1R210x - R1R, RATE MUST BE LOWER THAN LAST GUESS III3 - RETEST WITH NEW GUE(NY)))* - ROUND OFF TO NEAREST CNETB R1(R1100.5)100v - I3=NUMBER USED TO CLOSE IN ON INTEREST RATE I3(II2)2 - SAVE THIS GUESS I2I - COMPARE COMPUTED PAYMENT (R1) TO INPUT PAYMENT (R);) - IF THEY'RE EQUAL, L Z"NUMBER OF PAYMENTS PER YEAR";) dNb m - GUESS AN INTEREST RATE (10%) TO INITIATE TESTINGk nI10 w - I2*LAST GUESS OR ESTIMATE ( START WITH 0 ) xI20 - COMPUTE REGULAR PAYMENT USING GUESSED INTEREST RATE R1(IPN)(11((IN1)' "ANNUAL INTEREST RATE ON A LOAN"-] - STATEMENTS 30 TO 100 REQUEST USER INPUTu"REGULAR PAYMENT";|(R2"TERM IN YEARS, MONTHS";<Y0,M@ - CALCULATE YEARS FROM YEARS AND MONTHSAY(12Y0M)12F"PRINCIPAL";PP"  %TT1:%::#% PRINTER ON5%54,0:55,198?%"K";K%"80N";Q%X%::j% PRINTER OFF~%54,240:55,253% _TION"1${15)"......$";WE;"=";((WETT)100)"%"F$|I140:".";:IU$~XX1İ710$"#1=REPORTS:#2=LIST ACC'TS:#3=INPUT"$"WHICH ONE:";Q$Q0Q4Ā$Q1500$Q3647$Q2İ40$640$154$500$::% ERROR ROUTINEBEING"2#s8)"1.CLOTHING":8)"2.TRANSPORTATION"^#t15)"......$";EB;"=";((EBTT)100)"%"d#u#v5)"C.PERSONAL EXPENSES"#w15)"......$";ME;"=";((METT)100)"%"#x#y5)"D.SOCIAL-PERSONAL IMPROVEMENT"$z8)"1.RECREATION":8)"2.EDUCAIMPROVEMENTS"9"k15)"......$";AH;"=";((AHTT)100)"%"V"lANS$::I140:".";:Iy"n:7)"HOME-LIFE MAMAGEMENT":"o5)"A.VITAL NEEDS":8)"1.FOOD""p8)"2.MEDICAL/DENTAL""q25)"......$";IB"=";((IBTT)100)"%"#r:5)"B.PHYSICAL WELL-8)"2.TELEPHONE">!c15)"......$";KH;"=";((KHTT)100)"%"D!dv!e5)"C.MAINTENANCE":8)"1.CLEANING/SUPPLIES"!f8)"2.REPAIR/MAINTAIN"!g15)"......$";KH;"=";((KHTT)100)"%"!h!i5)"D.IMPROVE/ADDITIONS" "j8)"1.FURNITURE":8)"2.\ANS$::I140:".";:I? ]7)"HOUSE OPERATION EXPENSES":m ^5)"A.BASIC NEEDS":8)"1.RENT-MORTGAGE" _8)"2.INSURANCE":8)"3.TAXES": `15)"......$";OM;"=";((OMTT)100)"%": a5)"B.NEEDED TO RUN":8)"1.UTILITIES-GAS,WATER,ELECT"!bB):32);(((NHEB)TT)100)"%"1R"'MAINTAIN'"eT7)"5.HOUSEKEEPING +":7)"6.PERSONAL NEEDS=$"V(KHME):32);(((KHME)TT)100)"%"W"'EXTRAS'"X7)"7.ADD-TO-HOUSE +":7)"8.LEISURE-EDUC==$";Z(AHWE):32);(((AHWE)TT)100)"%" TY=$";PT"D7)"2.INCOME =$";IT(F2GTTITFH5)"EXPENSES:"UI"'BASIC'"J7)"1.BASIC HOUSE +":7)"2.INTERNAL BODY==$";L(OMIB):32);(((OMIB)TT)100)"%"M"UPKEEP"N7)"3.HOUSE NEEDS +":7)"4.EXTERNAL BODY==$";P(NHET."2.INCOME =$";IT50"3.BUILDING-HOUSE =$";BTS5"4.LIFE MAMAGEMENT=$";MTh7I140:"-";:Ir8ANS$y9::: REPORT PAGE 2<I140:"^";:I>10)"CATEGORY REPORTS":10)"............"@5)"ASSETS:"A680B7)"1.PROPER)"=$";ST(I)I:ANS$3::T140:"=";:T:P"TOTAL # OF INPUTS=";INVk"DATE:";M$","Y%qz490 C(PTIT)(BTMT)" CAPITAL=$";C:15)"......"& REPORTS(15)"REPORTS":*"1.PROPERTY ASSETS=$";P""PRINTER:1-TV:2--)WHICH ONE?"1"1/2?";XX@XX1İ700G::R:(5)"DO YOU WANT A LIST OF INDIVIDUAL ACCOUNTS?""Y/N";NY$:N52NY$"N"ī514::N:I1N:I0$(I),TY$(I),KN$(I),N%(I),AC$(I):II1N N%(I)"."AC$(I(45);(B$,4,2);(45);(B$,4)$C$;(E$;(32);(44);G$N2" ";H$V<:^FI$P"$"(J)".";:(((100(J1)0.5)),2)" PER/HOUR"ZK;" EXEMPTION(S)"d"STARTED WORK- ";(L$,2);(47);(L$,3,2);(47);(L$,2)n"MARITAL STATUS- ";$tB97:160~I$&B114:160-J<B120:160CKRB125:160ZL$iB133:160pMB138:160PN: *** LAST PAY PERIOD RECORDED180: *** CLOSE FILEAA$"Y"āI110::I 936F$,(B$,3); PRINT FILE'190: RETURN TO MENU1936S *** READ FILE INFORMATION`R0:150mB0:160F$: INPUT FROM DISK TO COMPUTERB25:160B$$B36:160.C$8B56:160BE$LB74:160VG$`B90:160jH: *** CLOSE FILE190> ***************************a OUTPUT EMPLOYEE INFORMATION ***************************936:(12): CLEAR SCREEN AND MOVE CURSOR TO LINE 12"ENTER EMPLOYEE NAME: ";F$990: READ FILE 1280:6:170-C$: OUTPUT FROM COMPUTER TO DISK;B56:170CE$QB74:170YG$gB90:170oH$}B97:170 I$B114:170 J$*B120:1704K$>B125:170HL$RB133:170\MfB138:170pPNz1806 NUMERALS ONLY"::6007l"MARRIED?(1=NO,2=YES): ";M[vPN0: *** SETS PAY PERIOD TO 0R0:150: *** OPEN FILE - RECORD # 0B0:170: *** WRITE TO RECORD-SECTION # 0F$B25:170: *** WRITE TO FILE - SECTION # 25B$B3R RATE OF PAY ($.$$) : ";J$!5z:(J$)5ĺ(7):"RATE OF PAY MUST HAVE 2 OR LESS NUMERALSAFTER DECIMAL POINT"::560D"ENTER # OF EXEMPTIONS: ";K$NX"ENTER DATE STARTED (MMDDYY) : ";L$]b(L$)6ĺ(7):"STARTING DATE SHOULD BE 15ĺ(7):"MAX STATE LENGTH IS 15 CHARACTERS"::500O"ENTER ZIP CODE: ";H$W :(H$)5ĺ(7):"ZIP CODE MUST BE 5 NUMERALS"::520"ENTER POSITION: ";I$!&(I$)16ĺ(7):"MAX POSITION LENGTH IS 16 CHARACTERS"::5400"ENTES ONLY"::440/"ENTER STREET ADDRESS: ";C$5w(C$)19ĺ(7):"MAX ADDRESS LENGTH IS 19 CHARACTERS"::460"ENTER CITY: ";E$(E$)17ĺ(7):"MAX LENGTH OF CITY IS 17 CHARACTERS"::480"ENTER STATE: ";G$4(G$)HELLO" SS 130L - COMPUTE INTEREST TO PROPER PROPORTIONS, ROUND OFF, PRINTr I((((I1000)100.5))100)1000 "ANNUAL INTEREST RATE = ";I100;"%"  - RESTART OR END PROGRAM "MORE DATA? (1=YES, 0=NO)"; X X120 ""RUN CE = $";(B0100.5)100 = - RESTART OR END PROGRAM^ "MORE DATA? (1=YES, 0=NO)";e Xq X120 "RUN HELLO"  - CALCULATE INTEREST PAID WITH EACH PAYMENTN I1((B0IN)100.5)100 - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT ARI1 - CALCULATE REMAINING BALANCE ON PRINCIPAL B0B0A J1 ROUND OFF, PRINT "REMAINING BALANO DECIMAL nII100R w - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. N1<=N x"LAST PAYMENT MADE ( PAYMENT N0. , YEAR )"; N1,Y - INITIALIZE REMAINING BALANCE B0P - LOOP TO ACCUMULATE AMOUNT PAID SO FAR J11N(Y1)N10$ "REMAINING BALANCE ON A LOAN"*Z - STATEMENTS 30 TO 130 REQUEST USER INPUTr"REGULAR PAYMENT";y(R2"PRINCIPAL";<PF"NUMBER OF PAYMENTS PER YEAR";PNZ"ANNUAL INTEREST RATE";dI m - CONVERT FROM PERCENT T   F THAT FIGURE";:SU$::SU$"N"ī1690+L"ENTER # OF O.T. HOURS: ";OrUYO(J1.5): TIME AND ONE HALFUY(UY100.5)100: ** ROUND TO 2 DECIMAL PLACES"ENTER TIPS RECEIVED: ";TW(REJ)(O(J1.5))T936!100(J1)0.5)),2)" PER/HOUR": *** ADD DECIMAL AND OR ZEROS AS NEEDEDMhjr"ENTER FIRST AND LAST "|"DAY OF PAY PERIOD ";PP$R121690PNPN1: PAY PERIOD +1"ENTER # OF REGULAR HOURS: ";RE%RE40ĺ:"ARE YOU SURE O'S NAME: ";F$8"OUTPUT TO PRINTER ?";:AA$::B1010L936_"AA$"Y"İ5990i,1280y6R12İ6110@AA$"Y"İ6050JAA$"N"ĺ:936:1630T"***************************************"::G^"RATE OF PAY $";(J)".";:(((xM1ĺ"SINGLE":1420("MARRIED"GAA$"Y"āI14::I:6050VAA$"Y"ı::7)"HIT ANY KEY TO CONTINUE ";:V$V$"" *************** CALCULATE WAGES ***************936(12) "ENTER EMPLOYEE+160-::0K5J$:II?"JUST A PAUSE...HIT KEY!":ANS$RD400XN`V::hW::  POKE54,0:POKE55,192+1" PRINT "CNTRL-I-K";$ PRINT"C-180N";&* POKE54,240:POKE55,253,GOSUB )11)"'SEQUENTIAL INPUT'"0::8M1?::W"OUTLINE?(1/0):";X`100oXGOXUB125w::100::I14 P$(I)".";160::J142)5$(J)".";160::K14!4)T%(K)".";14P$(I)".";N$(M)'165/:::J14L2)S$(J)".";WN$(M)`165h::sK144)T%(K)".";N$(M)165::KANS$JANS$I::810:: SEQUENTIAL INPUT >4)"2 A-D SECTIONS-#2"5A4)"3 1-4 POINTS-#3"OD4)"4. PRINT OUT-#4"jE"(INPUT'0'TO RETURN)"qF::G"CHOICE #:";DJD0399MD200,235,265,400O::P312800M1::(18)"TITLE:";T$100::I165K14'4)T%(K)"."N$(M)D"INPUT OR NOT (1/2)?";GVG0G3295eG160,165lKsJz!I"::', RANDOM INPUT SUBROUTINE/:(5)213)"/RANDOM INPUT/"58"INPUT CHOICES";4)"1 I-IV PARTS-#1" 165 J14) 2)S$(J)".";N$(M)D "INPUT OR NOT:1/2?";FV F0F3260e F186,188l Js Iz ::  ::  1-4 INPUT :M1::(5):100 :: I14 P$(I)".";N$(M) 165 J14 2)S$(J)"."N$(M): I-IV INPUTS M1' :(5)0 1007 ::B I14V P$(I)".";N$(M)r "INPUT OR NOT :1/2?";E E0E3230 E176,178 I :: :: A-D INPUTS M1 :(5):100 :: I14 P$(I)".";N$(M)J14 2)5$(J)"." ::) K14: 4)T%(K)"."A KH JR ANS$Y I_ e m ::x N$(M) MM1 :: I-IV INPUT GOSUB N$(M) MM21 :: A-D INPUT GOSUB N$(M) MM5  :g:: hI14 jP$(I)" lI* m::5 nJ14@ pS$(J)G rJO s::Z tK14e vT%(K)l xKt y::z z | END OF READ DATA SUBROUTINE } GOSUB TO PRINT OUTLINE ~ "TITLE=:";T$ :: I14 P$(I)"." ::  210)"INPUT CHOICES:"5 712)"1 RANDOM INPUT"S <12)"2 SEQUENTIAL INPUT"e A"CHOICE #";Cv FC0C332 KC300,500 M:: P"#0-END:#1-INPUT:#2-PRINT"; RF TF0Ā WF300,400 _80 a:: d GOSUB TO READ DATA f T BY DEREK KELLY FROM MARCH 1980 ISSUE OF PERSONAL COMPUTING PAGES 29,36ZfN$(84)qM(84) I,II,III,IV,A,B,C,D,1,2,3,4#Y140:"!!;: NEXT V((5):12)"/TEXT ORGANIZER/"-V140:".";:V./"TITLE=:";T$ 0      TS TO THIS ACCOUNT=?"!6"#:";Z.;Z0350;@::J1ZZD"ENTER'-1' TO START OVER"oE"INPUT#";J;"=";~G"$";AN(J)HAN(J)1303JSTSTAN(J)T::JYST(I)ST[ININZ^_:: TALLY REPORTS SUBROUTINEST(I)ST(I) 8,CONTRIBUTIONS3 EXPENSE,LIFE,WE,451,EDUC-FEESX EXPENSE,LIFE,WE,452,EDUC-BOOKS| EXPENSE,LIFE,WE,453,MAGS-NEWS EXPENSE,LIFE,WE,454,CONFERENCES  EXPENSES,LIFE,WE,455,OTHER"::, INPUT TO ACCOUNTS/ST01"NUMBER OF INPU EXPENSE,LIFE,WE,441,MOVIES@ EXPENSE,LIFE,WE,442,SPORTS` EXPENSE,LIFE,WE,443,DRUGS EXPENSE,LIFE,WE,444,ALCOHOL EXPENSE,LIFE,WE,445,TOBACCO EXPENSE,LIFE,WE,446,MISTRESS EXPENSE,LIFE,WE,447,GIFTS EXPENSE,LIFE,WE,44XI-AIR( EXPENSE,LIFE,BODY,424,OTHERP EXPENSE,LIFE,ME,431,WRITING NEEDSs  EXPENSE,LIFE,ME,432,LIFE INS  EXPENSE,LIFE,ME,433,LEGAL FEES  EXPENSE,LIFE,ME,434,BANK FEES  EXPENSE,LIFE,ME,435,ALIMONY  EXPENSE,LIFE,ME,436,OTHERPENSE,LIFE,VITAL,412,FOOD(AWAY)D EXPENSE,LIFE,VITAL,413,MEDICALh EXPENSE,LIFE,VITAL,414,DENTAL EXPENSE,LIFE,BODY,421,CLOTHING(NEW-CLEAN-FIX-BAGS) EXPENSE,LIFE,BODY,422,CAR(GAS-OIL-PARK-INSURE-REPAIR) EXPENSE,LIFE,BODY,423,BUS-TANEEDS,324,TELEPHONE7 EXPENSES,HOUSE,KEEP,331,CLEAN^ EXPENSES,HOUSE,KEEP,332,SUPPLIES EXPENSES,HOUSE,KEEP,333,REPAIR EXPENSES,HOUSE,ADD,341,FURNITURE EXPENSES,HOUSE,ADD,342,IMPROVE EXPENSE,LIFE,VITAL,411,FOOD(HOME) EX EXPENSE,HOUSE,BASIC,311,RENT(MORTGAGE)R EXPENSE,HOUSE,BASIC,312,INSURANCEv EXPENSE,HOUSE,BASIC,313,TAXES EXPENSES,HOUSE, NEEDS,321,GAS EXPENSES,HOUSE,NEEDS,322,WATER EXPENSES,HOUSE,NEEDS,323,ELECTRICITY EXPENSES,HOUSE,,LAND5 ASSET,PROPERTY,EXTRA,108,STOCKS AND BONDS^ ASSET,INCOME,CASH,211,CASH ON HAND ASSET,INCOME,CASH,212,CASH IN BANK ASSET,INCOME,CASH,213,SAVINGS ASSET,INCOME,CREDIT,214,PAYCHECK ASSET,INCOME,CREDIT,215,OTHER INCOME*HOUSE0 ASSET , PROPERTY,BASIC,102,FURNITUREX ASSET,PROPERTY,MECHANICAL,103,CAR ASSET,PROPERTY,MECHANICAL,104,TOOLS ASSET,PROPERTY,ELECTRONIC,105,RECREATION ASSET,PROPERTY,ELECTRONIC,106,ELECTRONICS ASSET,PROPERTY,EXTRA,107' FOR REPORTS)" WH% WH16403 WH01959 @ NM ::I1Ne IO$,TY$,KN$,N%,AC$t N%WH176} ::I 154 I"."N%"::"AC$ 300 400 450 490 170 500 :: 52 ASSET, PROPERTY,BASIC,101,490 ::I ::< "FORGOT SOME??WANT RANDOM INPUT?M "(Y/N)";NY$_ NY$"Y"İ154h 500o :: RANDOM INPUT TO ACCT'S AM0:PT0:IT0:BT0:MT0 13)"RANDOM INPUTS":13)"............." "WHAT ACCOUNTS WANTED?":"(ENTER '0 UY V XY1100' ZY2150. _::E d SEQUENTIAL INPUTb eAM0:PT0:IT0:BT0:MT0k f(5) g11)"SEQUENTIAL INPUT":11)"............": h iN k::I1N lIO$,TY$,KN$,N%,AC$ oI"."N%"::"AC$ s300 x400 }450 5 $40 &75 ':: (:' *N2 ,I1NJ .IO$,TY$,KN$,N%,AC$m 0N%":"AC$"--"TY$"--"KN$"--"IO$w 1ANS$~ 2I 4"THAT'S ALL!" 7ANS$ < A:: K N(15):"INPUT CHOICE:": P"1.ACCOUNTS IN ORDER?":"2.ACCOUNTS AT RANDOM?" BH(30),IB(30),NH(30),EB(30),KH(30),AH(30),WE(30): ::C (8)X I140:"X";:I^  6)"'LIFE MANAGEMENT & FINANCES'" I140:"^";:I 3)"MONTH,YEAR:"; M$,Y% "DO YOU WANT A LIST OF ACCOUNTS?(Y/N)" YY$ "YY$"N"7 :, AM=AMT,AN=SUBAMT,ST=SUBTOTALlAM(55),N(55),N%(55),I0$(55),TY$(55),KN$(55),AC$(55),N$(55)AN(55),ST(55),IN(200)PT(50),IT(50),BT(50),MT(50) PT=PROPERTY,IT=INCOME,BT=HOUSE,MT=LIFE MANAGEMENT U(50),K(50),L(50),G(50)3               31XX)(UY)".";:(((100(UY1)0.5)),2);"TIPS";PT10XX4:2050fT100XX5:2050oXX631XX)(T)".";:(((100(T1)0.5)),2) 25)"------""TOTAL INCOME"; W10XX4:2120*W100XX5:21204W1000XXJ)XTZ(TZ100.5)1003bTZ10.00XX4:1920MlTZ100.00XX5:1920VvXX631XX)(TZ)".";:(((100(TZ1)0.5)),2)"OVERTIME";O10ĺ21)O:196020)O"COST";UY10XX4:2000UY100XX5:2000XX6.W(W100.5)100:AA$"Y"İ5990t"PAY PERIOD - ";(PP$,2);(47);(PP$,3,2);(47);(PP$,5,2);(32);(45);(32);&(PP$,7,2);(47);(PP$,9,2);(47);(PP$,2)0"("PN")":: LIST PAYROLL PERIOD #:"REG HOURS";20)RED"COST ";NTZ(RE.00"   UPL2ı& P$P$"0"4 UPL1ıB P$P$"0"H& EH(I);" MONTH LEASE ON ";X$;" DOLLARS"O "WILL COST ";Y$;" DOLLARS PER MONTH"U  "COMPUTE ANOTHER U C LEASE (Y/N) ";:A$ A$""2530 A$"Y"2140 :10 P$(PA) PL(P$) UPL11 (P$,U,1)"."3070  P$P$" B " 2 FOR FULL PAY OUT"<L "ENTER LEASE TYPE: ";KNV K1K22350Y` J13j CST(J,1)LA(CST(J,2)LA)2440t ~  LPLARTE(K,J,I) LP(LP100.5)100  PALA:3000 X$P$ PALP:3000 Y$P$% "A ";MNT11:958:119"NOW ENTER THE LEASE AMOUNT"X"MINIMUM AMOUNT IS $1000"|I1ĺ"MAXIMUM AMOUNT IS $9999"  "YOUR LEASE AMOUNT? ";LA LA10002272 I1LA99992272$ . 17:958:178 "ENTER 1 FOR 10% RESIDUAL""COMPUTATION OF U C LEASING RATE"Dp"ACCEPTABLE LEASE LENGTHS:"Jumz"1) 24 MONTHS ( $9999 MAX )""2) 36 MONTHS""3) 48 MONTHS""4) 60 MONTHS""ENTER # OF MONTHS:";NMI14MNTH(I)NM22702140I14 MNTH(I)12I12'J13B RTE(1,J,I),RTE(2,J,I)J*:n4 .0458,.0492,.0453,.0488,.0,.0> .0335,.0356,.0331,.0352,.03230,.03447H .0275,.0290,.0271,.0285,.02623,.02773R .0240,.0250,.0235,.0245,.02265,.02375\936#f PER MONTH" A "COMPUTE ANOTHER 1ST TN LEASE (Y/N) ";:A$Q A$""1490b A$"Y"1150l :10 CST(3,2),RTE(2,3,4),MNTH(4) I128:CST(1,1): I13 CST(I,1),CST(I,2)   1000.,4999.,5000.,9999.,10000.,9999999.99P(CST(J,1)LA)(CST(J,2)LA)1390+ Z1 dD nLPLARTE(J,I)\ xLA(LA100.5)100t LP(LP100.5)100 PALA:3000 X$P$ PALP:3000 Y$P$  "A ";MNTH(I);" MONTH LEASE ON ";X$;" DOLLARS" "WILL COST ";Y$;" DOLLARSNTHS" "5) 72 MONTHS"7 :"ENTER # OF MONTHS:";? MNJ I15_ MNMNTH(I)1310e o 1150 13::958 #13:"ENTER LEASE AMOUNT " ("MINIMUM AMOUNT IS $2000" 2:"AMOUNT OF YOUR LEASE? ";LA <LA20001310 FJ14% ,.0283,.0278,.02730 j .0249,.0243,.0238,.0233N t .0222,.0217,.0211,.0206X ~936 "COMPUTATION OF 1ST TENN LEASING RATE"  "ACCEPTABLE LEASE LENGTHS:"  "1) 24 MONTHS" "2) 36 MONTHS" "3) 48 MONTHS" "4) 60 MORTE(4,5),MNTH(5) I14& J124 CST(I,J)< :x  2000.,4999.,5000.,7999.,8000.,9999.,10000.,9999999.99 I15 $MNTH(I)I1212 .J14 8RTE(J,I) B: L .0494,.0490,.0485,.0480 V .0357,.0352,.0347,.0342 ` .0289I  9364/5);"LEASE COMPUTATION"8((6)X2" 1) 1ST TENNESSEE BANK"q<" 2) U C LEASING"E" 9) END PROGRAM"F:"ENTER YOUR CHOICE? ";B$PB$""ijZB$"1"İ1000dB$"2"İ2000mB$"9"ijn70 CST(4,2),        INFO ON DISK): R123200%)D 150-)N R0<)X B138:170c)b PN: *** LAST PAY PERIOD RECORDEDl)l 180u)v RPN~) 150) B0:170) PP$) B20:170) RE) B25:170) TZ) B32:170) O) B38:170) UY) B46:170* TTDT( 34)"------"-( "TAKE HOME PAY";B( U10XX4:3070X( U100XX5:3070o( U1000XX6:3070x( XX7( 40XX)(U)".";:(((100(U1)0.5)),2)( 34)"======"( AA$"N"ī3120( XX117::XX(& AA$"Y"İ6050 )0 ** ENTERME";'T TH10XX4:29401'^ TH100XX5:2940I'h TH1000XX6:2940R'r XX7'| 40XX)(TH)".";:(((100(TH1)0.5)),2)' "LESS TIPS";' T10XX4:2990' T100XX5:2990' XX6' 40XX)(T)".";:(((100(T1)0.5)),2)( UW((100(Y1)0.5)),2)'& 25)"------"7& TDADIIYT& "TOTAL DEDUCTIONS ARE";j& TD10XX4:2840& TD100XX5:2840& XX6& 40XX)(TD)".";:(((100(TD1)0.5)),2)&" THWTD&, 34)"------"&6 AA$"N"2890&@ 'J "NET INCOY(.10(ST288))16.50:2710M% ST327ST365Y(.11(ST327))20.39:2710q% ST365Y(.12(ST365))24.57% Y(Y100.5)100% Y0Y0% "N.Y. STATE INCOME TAX";% Y10XX4:2770% Y100XX5:2770% XX6& 31XX)(Y)".";:(ST96ST135Y(.05(ST96))3.07:2710Y$P ST135ST173Y(.06(ST135))5.02:2710$Z ST173ST212Y(.07(ST173))7.30:2710$d ST212ST250Y(.08(ST212))10.04:2710$n ST250ST288Y(.09(ST250))13.08:2710%x ST288ST327# CALCULATE N.Y. STATE TAX;# W168.30D13.50:2580W# W288.50D32.70:2580k# D(W.16)13.50}# SD(K13.50)# STWS#( ST19Y.02ST:2710#2 ST19ST58Y(.03(ST19)).38:2710#< ST58ST96Y(.04(ST58))1.55:2710)$F I(.28(G369))62.91:2480J" G454G556I(.32(G454))86.71:2480l" G556I(.37(G556))119.35" I(I100.5)100" "FED INCOME TAX ";" I10XX4:2530" I100XX5:2530" XX6" 31XX)(I)".";:(((100(I1)0.5)),2)!!L G433I(.39(G433))103.39+!V 2480@!` G46I0:2480d!j G46G127I.15(G46):2480!t G127G210I(.18(G127))12.15:2480!~ G210G288I(.21(G210))27.09:2480! G288G369I(.24(G288))43.47:2480" G369G45427G63I.15(G27):2480G  G63G131I(.18(G63))5.40:2480u $ G131G196I(.21(G131))17.64:2480 . G196G273I(.26(G196))31.29:2480 8 G273G331I(.30(G273))51.31:2480 B G331G433I(.34(G331))68.71:2480CULATE N.Y.S. DISABILITY&DIW200:DI.30ĪDI.30RDI(DI100.5)100o"DISIBILITY INSURANCE";27)(DI)".";:(((100(DI1)0.5)),2) *** CALCULATE FED. INCOME TAXGW(K19.23)M2ī2400 G27I0:2480  G6:2120>XX7?H40XX)(W)".";:(((100(W1)0.5)),2)XR *** CALCULATE FICAg\AW.0613}fA(A100.5)100pz"SOCIAL SECURITY TAX";A10XX4:2200XX531XX)(A)".";:(((100(A1)0.5)),2) ** CAL.5)100? - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONE y - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA?(1=YES, 0=NO)"; X X120 "RUNHELLO" TD MONTHS UY(12Y0M)129 Z"NOMINAL INTEREST RATE";@ dIl l - CALCULATE INTEREST RATE PER PERIOD; m - CONVERT FROM % TO DECIMAL nIIN100 xPT(1I)(NY) - ROUND OFF TO NEAREST CENT, PRINT "INITIAL INVESTMENT = $";(P100ȿ "INITIAL INVESTMENT"!Q - STATEMENTS 30 TO 100 REQUEST USER INPUTs"TOTAL VALUE AFTER Y YEARS";z(T2"NUMBER OF COMPOUNDING PERIODS PER YEAR";<NF"NUMBER OF YEARS, MONTHS";PY0,M T - CALCULATE YEARS FROM YEARS AN  ** WAIT FOR SINGLE KEY INPUT'5f:15p936>5zZ1REZ1K5Z2RJZ2W5Z3OZ3d5Z4OJZ4p5Z5TZ55Z6Z2Z4Z55Z7WZ75Z8AZ85Z9IZ95T1YT15T2DIT25T3TDT35T4SZT45T5THT5#6RE0:RJ0:O0:OJ0:T0:E HOME PAY";%4TH10.00XX4:4640?4 TH100.00XX5:4640H4XX6y4 39XX)(TH)".";:(((100(TH1)0.5)),2)4*32)"======="44AA$"N"ī47004>::::4HAA$"Y"İ60504RAA$"Y"47105\" HIT ANY KEY TO CONTINUE ";:V$:V$"":32XX)(T)".";:(((100(T1)0.5)),2)<326)"------"I3SZTDTX3R154570q3SZ10.00XX4:45603SZ100.00XX5:45603XX6338XX)"-"(SZ)".";:(((100(SZ1)0.5)),2)3THWSZ3R154730333)"------" 4"TAK226)"------"#2TDAIYDI22&R154510K20"TOTAL DEDUCTIONS";a2:TD10XX4:4440x2DTD100XX5:44402NXX62X32XX)(TD)".";:(((100(TD1)0.5)),2)2b"PLUS TIPS";2lT10.00XX4:44902vT100XX5:44902XX6*3100XX5:42901XX6F132XX)(I)".";:(((100(I1)0.5)),2)]1"N.Y. STATE TAX";r1Y10XX4:43401Y100XX5:43401XX6132XX)(Y)".";:(((100(Y1)0.5)),2)1"DIS INSUR";228)(DI)".";:(((100(DI1)0.5)),2)100XX5:41800JXX6F0T39XX)(W)".";:(((100(W1)0.5)),2)L0^e0h"SOCIAL SECURITY ";z0rA10XX4:42400|A100XX5:42400XX6032XX)(A)".";:(((100(A1)0.5)),2)0"FED. INCOME TAX";0I10.00XX4:42901IѭOJ100XX5:4070/XX6L/32XX)(OJ)".";:(((100(OJ1)0.5)),2)Y/"TIPS";n/T10XX4:4120/T100XX5:4120/XX6/32XX)(T)".";:(((100(T1)0.5)),2)/"26)"------"/,"TOTAL INCOME";/6W10XX4:41800@WOURS";.ZRE10ĺ21)RE:3950+.d20)RE8.n"COST";N.xRJ10XX4:3990e.RJ100XX5:3990n.XX6.32XX)(RJ)".";:(((100(RJ1)0.5)),2)."OVERTIME HOURS";.O10ĺ21)O:4030.20)O."COST";.OJ10XX4:4070/0-Y-B84:160- DI'-1806-R154380I-(AA$"Y"İ5990-2"PAYROLL PERIOD - "20)(PP$(R),2);(47);(PP$(R),3,2);(47);(PP$(R),5,2);(32);(45);(32);-<(PP$(R),7,2);(47);(PP$(R),9,2);(47);(PP$(R),2)-F"("R")":.P"REG Hī3600,::,R1PN&,$936/,.150<,8B0:160H,BPP$(R)V,LB20:160^,VREl,`B25:160t,jRJ,tB32:160,~O,B38:160,OJ,B46:160,T,B52:160,W,B60:160,A,B68:160,I-B76:16*********************+ 936)+ (10)I+ "ENTER EMPLOYEE NAME: ";F$S+ 1010Y+ ~+ "OUTPUT TO PRINTER ?";:AA$::+ "OUTPUT EMPLOYEE INFORMATION ";:UI$::+ AA$"Y"İ5990+ UI$"Y"ĺ:::1290::::+ AA$"Y"ī3600,UI$"N"* B52:170* W#* B60:170** A8** B68:170?*4 IM*> B76:170T*H Yb*R B84:170j*\ DIs*f 180*p " HIT ANY KEY TO CONTINUE ";:V$:V$""::*z 190* *************************** OUTPUT PAYROLL INFORMATION+ *****00.5)100B - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONH | - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA? (1=YES,0=NO)"; X X120 "RUNHELLO"OY0,M2 h - CALCULATE YEARS FROM YEARS AND MONTHSE iY(12Y0M)12q l - CALCULATE INTEREST RATE PER PERIOD; m - CONVERT FROM PERCENTTO DECIMAL nIIN100 w - CALCULATE FUTURE VALUE BY FORMULA xTP(1I)(NY) "FUTURE VALUE=$";(T1& "FUTURE VALUE OF AN INVESTMENT",] - STATEMENTS 30 TO 100 REQUEST USER INPUTx"INITIAL INVESTMENT";(P2"NOMINAL INTEREST RATE";<IF"NUMBER OF COMPOUNDING PERIODS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS"; d  Z60:Z70:Z80:Z90%ARAA$"Y"ī190\A\" HIT ANY KEY TO CONTINUE ";:V$:V$"":::190sAf ***************Ap TURN ON PRINTERAz ***************A936AD$;"PR#2"AA ****************A TURN OFF PRINTERB ********10XX4:5920$@T5100XX5:5920<@T51000XX6:5920U@ T510000XX7:5920^@XX8@ 41XX)(T5)".";:(((100(T51)0.5)),2)@*AA$"N"Ģ(22)@433)"========"@>AA$"Y"İ6050AHT10:T20:T30:T40:T50:Z10:Z20:Z30:Z40:Z50:25)"--------"'?Z5T310XX4:5820A?Z5T3100XX5:5820\?Z5T31000XX6:5820e?XX7?40XX)"-"(Z5T3)".";:(((100((Z5T3)1)0.5)),2)?AA$"N"Ģ(20)?33)"--------"?AA$"N"Ģ(21)?"TOTAL TAKE HOME PAY"; @T53XX)(T3)".";:(((100(T31)0.5)),2)i>DT5T3Z6.009āYU110:(7):YU:"ERROR IN TAKE HOME PAY"{>N"PLUS TIPS";>XZ510XX4:5760>bZ5100XX5:5760>lZ51000XX6:5760>vXX7>33XX)(Z5)".";:(((100(Z51)0.5)),2)?X54=33XX)(T2)".";:(((100(T21)0.5)),2)}=T3Z8Z9T1T2.009āYU110:(7):YU:"ERROR IN TOTAL DEDUCTIONS"=25)"--------"="TOTAL DEDUCTIONS";=T310XX4:5690=T3100XX5:5690=&T31000XX6:5690=0XX7)>:310 <|XX7<<33XX)(Z9)".";:(((100(Z91)0.5)),2)S<"N.Y. STATE TAX";i<T110XX4:5570<T1100XX5:5570<T11000XX6:5570<XX7<33XX)(T1)".";:(((100(T11)0.5)),2)<"DIS INSUR";<T210XX4:5610=X5400 ;#;"SOCIAL SECURITY";9;"Z810XX4:5450P;,Z8100XX5:5450h;6Z81000XX6:5450q;@XX7;J33XX)(Z8)".";:(((100(Z81)0.5)),2);T"FEDERAL INCOME TAX";;^Z910XX4:5510;hZ9100XX5:5510 IH R **.QUIT.** \ 1000:MENUf OUT:  3420:QUIT- **.CONTINUE.SUB.** o :"KEY TO CONTINUE, ^ FOR MENU. ";:Q$:Q$"^"ġ:3420:QUITu  **.REVIEW.ALL.**  J1R1 ::A$(J,1)""1000 ::3350:DISPLAY.FOUND.RECORD ::3230:CONTINUE  3420:QUIT:3330:PRINT.FIELDS.SUB: ^D Q2::15)"WHICH? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$)N ::"INPUT SEARCH WORD:";A$:A$"^"3420:QUITX J1R1b ::R$A$(J,Q):R$""3210l ::210:SEARCHv ::S1S10:3340:3230:DISPLAY.&.CHOICEELDS 1"( 6:"REVIEW ALL ENTRIES 2":h Q1::17)"WHICH? ";:Q;:(25):Q$:Q$:Q$(13)Q(Q$) Q$"^"3420:QUIT Q23260:REVIEW.ALL **.SEARCH.FIELDS.**  :3:10:"FIELDS:": V5:H22:SCREEN.POSITION& I1C10 :""2050K:K=NEXT.OPEN-8010:INPUTF ND1:NEW.DATA.FLAGV1010:MENU OUT:ND=NEW.DATA.FLAG..A$(J,1TOC1)=DATA ******.REVIEW.FILE.*************  IN:A$(R1,C1)=DATA.ARRAY :7:10:"REVIEW FILE :":: 11:"SEARCH FI1000. ********.QUIT.****************** ::7:" THIS IS THE"::10)NA$::20)"PROGRAM."::::" BYE FOR NOW, BOB!":::1016: ******.INPUT.DATA.************** IN:R1=ARRAY.ROWS..A$(R1,C1)=ARRAYK1R1::A$(K,1)E.**** 9710:1000A@ ********.SAVE.FILE.************* QJ9400:1000{ ********.SET.UP.FILES.1ST.TIME.* :::"FILE SET UP WILL DESTROY ANY EXISTING":"FILE ON THIS DISK. TYPE 'YES' TO":"CONTINUE. ";A$:A$"YES"10009400::"SET UP FILES 1ST TIME 7"= j:" QUIT 8"^ o:" DISPLAY COLUMNS 9" tQ1::15)"WHICH? ";:Q;:(23):Q$:Q$:Q$(13)Q(Q$) ~Q1410,2010,3020,4010,1610,6010,1810,1990,32020 1000x ********.READ.EXISTING.FILIN:ND=NEW.DATA.FLAG :% 5F :" READ EXISTING FILE 1"g :" INPUT NEW DATA 2" $:" REVIEW FILE 3" .:" EDIT FILE 4" 8NDğ B:" SAVE FILE 5" L V:" PRINT LIST W TOTALS 6" ` IJ% LIM:B(I,0)B(L,0)450J TB(I,0):B(I,0)B(L,0):B(L,0)Tq T1B(I,1):B(I,1)B(L,1):B(L,1)T1 IIM:I1450 400 JJ1:JK370 390 :OUT:B$(R1,1)=ARRAY.OF.DATE.ORDER  ******.MENU.********************  + , ********.ORDERING.************** I 6 IN:A$(R1,1)=RECORD.DATEU @I1R1 J::A$(I,1)""360:LOOK.FOR.END.OF.DATA T::B(I,0)(A$(I,1)):B(I,1)I:FORM.ARRAYS.OF.DATES.&.REC.NOS ^ hNI1:MN rM(M2):M0470 |J1:KNM 770:ZZ$:960:7& 9000:INIT: 2:23010:SAVEd ********.SEARCH.**************** IN:R$=FILE$..A$=SEARCH$..T$=LOCAL L1(R$) ::T$(R$,L,((A$))) ::T$A$S11:OUT:LOOP.CNTR.SET.TO.SEARCH.RECORD..S1=FOUND.FLAG :$9:..10/16/80.18;48 :NA$"HOME.INVENTORY":: s5:::" CALL770:LISTXXXXX-YYYYY:GOTO 6":(37)1:5:1016:D$(4):2:9210:770:NA$" "(TI$,5)"/80 "(TI$,7,5):960:960:1016: "TEXT:":"";ZZ$:ZZ$""Č1016:           }776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240 }788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96:}776,100:777,50:778: ";N;" YEARS AT ";I100;"%"!<" IS $";BBj"HAVE ANOTHER? ENTER Y OR N ";:C$xC$"N"Ā~:3202010"INVALID CODE -- TRY AGAIN --"776,50:777,100:778WX DONATED BY KEVIN ARMSTRONGg.5) c:320207 h"PRESENT VALUE OF $";D;" ANNUITY"= ib j"FOR ";N;" YEARS AT ";I100;"%"h k l" IS $";B r405 |B(D((((1I)(N1))1)I))D B(B.5) :32020 "FUTURE VALUE OF $";D;" ANNUITY" "FOR150E160EVV$!E180=E"OLD DATA READS - "VV$EE:qE"WHAT SHOULD CORRECTED DATA BE - ";XY$yER0E::" ITEM BEING CORRECTED "E150E170EXY$E180EVV1ī190EE"D$;"RENAME "F$","XY$E,190DRRIED (1=YES,2=NO)"D:KD"ENTER NUMBER OF ITEM TO BE CORRECTED ";VVYD(VV1B0hD2VV2B25wD<VV3B36DFVV4B56DPVV5B74DZVV6B90DdVV7B97DnVV8B114DxVV9B120DVV10B125DVV11B133DR0E5)" 3. STREET ADDRESS"C~1C5)" 4. CITY"7CKC5)" 5. STATE"QChC5)" 6. ZIP CODE"nCC5)" 7. POSITION"CC5)" 8. RATE OF PAY"CC5)" 9. # OF EXEMPTIONS"CC5)"10. DATE STARTED"C D5)"11. MA********BD$;"PR#0"B#B-B9367B(12)eB"WHICH PAY PERIOD IS TO BE CORRECTED ";RkBB8 *** CORRECT EMPLOYEE DATA ***BB936BD"ENTER EMPLOYEE'S NAME ";F$BL5)" 1. NAME"BVB`5)" 2. SOCIAL SECURITY #"BjCt"ANNUAL INTEREST RATE =";((TP)(1Y)1)100;"%"j c - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONp d m - RESTART OR END PROGRAM? n"MORE DATA? (1=YES, 0=NO)"; xX X120 "RUN HELLO" F/ "EFFECTIVE INTEREST RATE ON INVESTMENTS"5a - STATEMENTS 30-80 REQUEST USER INPUT|"INITIAL INVESTMENT";(P2"TOTAL VALUE AFTER Y YEARS";<TF"NUMBER OF YEARS";PYY - CALCULATE EFFECTIVE INTEREST RATE, PRINT2 Z z"#??  ҠӠ ŠŠӠȠ  ٠Π  ͠٠! ٠̠Π  Π̠ ΠҠԠ Π͠ ŠҠŠŠ̠?ҠӠɠ Ԡ̠ ŠΠ ŠԠĠӠ ŠԠԠҠ ΠŠΠԠŠΠԠԠ ŠӠ!ŠӠ"ԠĠ ԠŠ٠Šɠ&ԠҠӠ ԠŠŠ ˠˠҠ ˠҠΠԠΠŠΠӠ ΠԠԠ̠ҠϠ ӠŠŠ٠ŠȠŠŠàĠͭӠˠ.B0)100.5)100 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120{ "RUN HELLO"LIAREST CENT( I1((B0IN)100.5)100] - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENTh ARI1 - BALANCE REMAINING DECREASES WITH EACH PAYMENT B0B0A J1 - CALCULATE LAST PAYMENT, ROUND OFF, PRINT "LAST PAYMENT =$";((RAL INTEREST RATE"; dIH m - CONVERT ITERST FROM PERCENT TO DECIMALT nII100x x"NUMBER OF PAYMENTS PER YEAR"; N B0P - COMPUTE ALL PAYMENTS, BALANCES THROUGH LAST PAYMENT USING R J11NY - ROUND OFF INTEREST PAID TO NE} "LAST PAYMENT ON A LOAN$T - STATEMENTS 30 TO 130 REQUEST USER INPUTl"REGULAR PAYMENT";s(R2"PRINCIPAL";<PF"TERM IN YEARS, MONTHS";PY0,MT - CALCULATE YEARS FROM YEARS AND MONTHSUY(12Y0M)12 Z"ANNU#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     "PAL = $";(P100.5)100P - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONV v - RESTART OR END PROGRAM? "MORE DATA? (1=YES, 0=NO)"; X X120 "RUN HELLO" "Z"NUMBER OF PAYMENTS PER YEAR";( dNZ l - CALCULATE AMOUNT OF PRINCIPAL BY FORMULA; m - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONS nPRN(11((I100)N1)(NY))(I100) w - ROUND OFF TO NEAREST CENT, PRINT x"PRINCI "PRINCIPAL ON A LOAN""R - STATEMENTS 30 TO 100 REQUEST USER INPUTj"REGULAR PAYMENT";q(R2"TERM IN YEAR, MONTHS";<Y0,M@ - CALCULATE YEARS FROM YEARS AND MONTHSAY(12Y0M)12F"ANNUAL INTEREST RATE";PI!    RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA " ,N1)(NY))4 w - ROUND OFF TO NEAREST CENT, PRINT_ x"REGULAR PAYMENT = $";(R100.5)100 - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION - RESTART OR END PROGRAM "MORE DATA? (1=YES, 0=NO)"; X X120 "RUNHELLO"PRINCIPAL"; <P1 F"ANNUAL INTEREST RATE";8 PI[ Z"NUMBER OF PAYMENTS PER YEAR"b dN l - CALCULATE AMOUNT OF REGULAR PAYMENT BY FORMULA m - INTEREST CONVERTED FROM PERCENT TO DECIMAN FOR CALCULATIONS nR((I100)PN)(11((I100)# "REGULAR PAYMENT ON A LOAN";] - ROUND OFF TO NEARES T CENT, PRINT c - STATEMENTS 30 TO 100 REQUEST USER INPUT"TERM IN YEARS, MONTHS";(Y0,M,- CALCULATE YEARS FROM YEARS AND MONTHS-Y(12Y0M)12 2  WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    , ";M;" MONTHS" 5 - RESTART OR END PROGRAM?V "MORE DATA? (1=YES, 0=NO)";] Xi X120{ "RUN HELLO" MC m - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATIONt nY((1(P(I100))(NR))((1I100N)N)) r - CALCULATE YEARS AND MONTHS FROM YEARS sM(Y12.5) tY0(M12) uMMY012 w - PRINT RESULTS x"TERM = ";Y0;" YEARS} "TERM OF A LOAN"M - STATEMENTS 30 TO 100 REQUEST USER INPUTe"REGULAR PAYMENT";l(R~2"PRINCIPAL";<PF"ANNUAL INTEREST RATE";PIZ"NUMBER OF PAYMENTS PER YEAR";dN l - CALCULATE TERM IN YEARS BY FORMULA;   $";(T100.5)100K - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONQ - RESTATE OR END PROGRAM? USER INPUT REQUIRED "MORE DATA? (1=YES, 0=NO)"; X X120 "RUN HELLO" S"; dY0,M iYY0M12H l - CALCULATE INTEREST RATE PER DEPOSIT,p m - CONVERT FROM PERCENT TO DECIMAL~ nII100N w - CALCULATE FUTURE VALUE BY FORMULA xTR((1I)(NY)1)I - ROUND OFF TO NEAREST CENT, PRINT "FUTURE VALUE =3 "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)"9i - STATEMENTS 30 TO 100 REQUEST USER INPUT"AMOUNT OF REGULAR DEPOSITS";(R2"NOMINAL INTEREST RATE";<IF"NUMBER OF DEPOSITS PER YEAR";PN Z"NUMBER OF YEARS, MONTH  OPHER MORTGAGE CALCULATIONS N YEARS,MONTHS:";YT,MT , TMMT12YT9 MRAR12J LK1(1MR)TM` PAFMRK1(K11)} "MONTHLY PAYMENT = $";P xTPTMP  @"TOTAL OF PAYMENTS = $";TP :"AGAIN (Y/N) ?";X$ X$"Y"100 lX$"N"1700 BRUCE W. CHRIST" d::&"MORTGAGE COMPUTER":F"PRICE OF PROPERTY $";PC:^,"PERCENT DOWN:";PDd1~6DPPCPD100:AFPCDP;"DOWN PAYMENT = $";DP@:"AMOUNT FINANCED = $";AF"ANNUAL INTEREST RATE (%):";AR:ARAR100X "TERM I  1S(1G)(Y11)C ," =";(S1100.5)100L 6260] @"RUNHELLO"(I)) TTL VV(I1)L% IE A6(2V(N1)T)(N)(N1)R G(A)1 "AVERAGE GROWTH RATE = "(G10000.5)100;"%" S(TNA(N1)2) "(ENTER 0 TO END PROGRAM)" "PROJECTED SALES FOR YEAR "; Y1 Y10320 "S^0 "AVERAGE GROWTH RATE, FUTURE PROJECTIONS"6AS(20)m("NUMBER OF YEARS FIGURES ESTABLISHED";t2N<I1NFI1100P"FIGURE: YEAR "I;Z110d" YEAR ";I;nS(I)xIT(S(1))V0I2N L(S  CHANGE DATA AND RECOMPUTE? (1=YES, 0=NO)";1 Z= Z120J "PR#0"\ "RUN HELLO" S40);I2 :J1 DC1NY600P N" LAST PAYMENT = $";((R100.5))100^ XJ0X640g b" " l"YR.";J0;10);I3;20);A2 v" " J0Y720 I30 A20 J0 YJ0720 N1((Y(Y))12)12N J0J01 280 * " K7 KKN3! J11N1? I1((B0IN)100.5)100K C1C11V ARI1b A1A1An B0PA1 C1NY520 RRB0 AAB0 A1A1B0 B00 I2I2I1 I3I3I1 A2A2A &J0X570 0J1;10);I1;20);A;30);B0; MORTGAGE AMORTIZATION TABLE"} ^" PRINCIPAL $";P;" AT ";I100;"% FOR ";Y0;" YEARS ";M;" MONTHS" h" REGULAR PAYMENT = $";R r" " |"NO.";10);"INTEREST";20);"AMORTIZED";30);"BALANCE";40);"ACCUM INTEREST"TART PRINTING WITH WHAT YEAR";% X: "PR#1":" K":E X(X)N C10W I20` I30i J00r N1N{ K66 B0P A10 A20 (Y)1690 J01(Y) J0X410 "KN358400 ,K1K66 6 @K1 J" "0 T"^$ "MORTGAGE AMORTIZATION TABLE"*B"REGULAR PAYMENT";I(Rg2"TERM IN YEARS, MONTHS";q<Y0,MAY(12Y0M)12F"PRINCIPAL";PPZ"ANNUAL INTEREST RATE";dInII100x"NUMBER OF PAYMENTS PER YEAR";N "S     OUNT ";D$(A,3);" ";:" ";A$(3)) A1$= (A1$)692730Q (A1$)681000w TRTR(D$(A,3)):BABA(D$(A,3)) K03 (A$(K))02850 D$(A,K)A$(K)" K, TDTD(D$(A,3)):BABA(D$(A,3))6 1000T ^ A1Z2c "MEMBER ,A`;" SEC O$$"O D "$"R D "$ʄZ뀌2и86p12tꆁB!4:du$():*Zc3eLB()12ztA$1B)"6A:d;"SEESYRD$;"EN S "O$;$ D"REMBER ";Z1t "DATE ";A$(0)5~ "TO ";A$(1)K "FOR ";A$(2)a "AMOUNT ";A$(3)g p A1$ (A1$)692410 (A1$)68Z1Z11:1000 (A1$)27(A1$)132510 2470 J03 D$(Z1,J)A$(J) J TDTD(D$(Z1"OTHER DATA ";DU$(B,3);" ";:" ";B$(3)^"CITY-STATE-ZIP ";DU$(B,4);" ";:" ";B$(4)gA1${(A1$)681000(A1$)692200J24(B$(J))02290DU$(B,J)B$(J)J2010B 2010` Z1Z11 j :"DISBURSMENT NU2020 K03+(A$(K))02060=R$(A,K)A$(K)D KjTRTR(R$(A,3)):BABA(R$(A,3))t 1000\B1Z2fR$(A,1)DU$(B,1)2200pBz"NAME NOT FOUND"A1$1000"STREET ADDRESS ";DU$(B,2);" ";:" ";B$(2)-"AMOUNT ";R$(A,3);" ";:" ";A$(3)1A1$E(A1$)691930Y(A1$)681000rR$(A,2)"DUES"2140TRTR(R$(A,3)):BABA(R$(A,3))J1112:R$(A,0)DA$(B,J)R$(A,3)DA$(B,J1)Z3Z3(DA$(B,J1)):DA$(B,J1)A$(3):Z3Z3(A$(3)):/&"BALANCE ";35(BA$))BA$50;l_v"RECEIPT NUMBER TO CORRECT ";Ag:"RECEIPT NUMBER ";A"DATE ";R$(A,0);" ";:" ";A$(0)"FROM ";R$(A,1);" ";:" ";A$(1)"FOR ";R$(A,2);" ";:" ";A$(2)(B1780A1$%1000mRDBF:5:BF$RD$:RDTR:5:TR$RD$:RDTD:5:TD$RD$:RDBA:5:BA$RD$s"BALANCE BROUGHT FORWARD ";35(BF$))BF$"TOTAL MO RECEIPTS ";35(TR$))TR$"TOTAL MO DISBURSMENTS ";35(TD$))TD$2,J)A$(0):DA$(Z2,J1)A$(3):Z3Z3(A$(3))51330;@UJ"STARTING NUMBER ";A`^BAZuc"RECEIPT NO ";BhJ03rR$(B,J)|J(16384)128173016368,0A1$(A1$)271000(A1$)1317301690$(B,1)1450 B/ "STREET ADDRESS ";B$(2)L "OTHER DATA ";B$(3)i "CITY-STATE-ZIP ";B$(4)s 1270 BZ21520 Z2Z21 DU$(Z2,1)A$(1) J24 DU$(Z2,J)B$(J) J J1112 (DA$(B,J))01550 J+DA$(ZS"1390 A1$$ (A1$)691210? (A1$)68ZZ1:1000] (A1$)13(A1$)271320g 1270~ (A$(2)"DUES"1460 2J03 <R$(Z,J)A$(J) FJ PTRTR(R$(Z,3)):BABA(R$(Z,3)) Z(A1$)271000 d1200 nB1Z2 xA$(1)DUV$)1(AV$)171000u (AV$)1200,1900,1600,4300,2400,2700,5000,4400,3600,3300,4000,2900,3100,4500,9000,7000,8000 ZZ1 :"RECEIPT NUMBER ";Z: "DATE ";A$(0) "FROM ";A$(1) "FOR ";A$(2) "AMOUNT ";A$(3) A$(2)"DUE DUES"1 B"READ..........(9) LIST........(12)"[ L"WRITE CUR....(10) DELETE......(13)" V"WRITE MO END.(11) SORT........(14)" `" CORRECT.....(15)": j"PRINT" t"JOURNAL......(16)" ~"DUES JOURNAL.(17)" :AV$:(A"COMMAND TABLE" ; "RECEIPTS DISBURSMENTS"e "ENTER........(1) ENTER........(5)" "CORRECT......(2) CORRECT......(6)" "LIST.........(3) LIST.........(7)" $"SORT.........(4) SORT.........(8)" . 8"DISC ,SD$(4):A$(100),A(100),R$(100,3),D$(100,3),DU$(100,4),DA$(100,12),S$(100,12)oD$;"NOMON I,C,O":1000(RD).005RD$"0.00":RD(RD)((RD)100.5)100:RD$((RD)((RD).005)):RD$(RD$,(RD$)1)6CITYSTEZIP :10)                OPEN A NEW EMPLOYEE FILEC  *****************************M 936m "ENTER EMPLOYEE NAME: ";F$s  (F$)23ĺ(7):"MAX. NAME LENGTH IS 23 CHARACTERS"::420 "ENTER S.S. #: ";B$ (B$)9ĺ(7):"S.S.# MUST BE 9 NUMERALO DATE" @1 J5)" 6. CORRECT EMPLOYEE DATA"7 L] N5)" 7. TERMINATE PROGRAM USAGE"i T::: ^"ENTER NUMBER OF DESIRED OPERATION ";:R1:: hR11R17190 rR1380,1470,1470,3460,3460,6200,6100 | ***************************** AA$"" 12)"PAYROLL MENU"7 12)"************"= ^ 5)" 1. ADD A NEW EMPLOYEE"d 5)" 2. CORRECT PAYROLL PERIOD"  5)" 3. CALCULATE WAGES" " ,5)" 4. PAYROLL HISTORY TO DATE W/TOTALS" 65)" 5. PAYROLL TOTALS T5),T2(55),T3(55),T4(55),T5(55)+ dPP$(55)7 nD$(4)@ 190Y *** DISK COMMANDSv D$;"OPEN ";F$;",L142": D$;"READ";F$;",R";R;",B";B: D$;"WRITE";F$;",R";R;",B";B: D$;"CLOSE";F$: 936: ** CLEAR SCREEN AND HOME CURSOR N.Y. ***M < *** REVISED 3/07/1980 *** F *********************************************** K DONATED TO APPLE PI (3/80) PR(55),PN(55) ZZ1(55),Z2(55),Z3(55),Z4(55),Z5(55),Z6(55),Z7(55),Z8(55),Z9(55),T1(5=8 ***********************************************o *** PAYROLL PROGRAM *** *** WRITTEN BY DONALD M. HOWE - JUNE 1979 ***( *** LONG VIEW LODGE *** 2 *** LONG LAKE,                              ;"$";((DOBCOB1.005)100)100P"***************************************"cPRT$"Y"ĺ" "}PRT$"Y"ĺDD$;"PR#0"PRT$"Y"ĺ"NOW DO YOU WANT PRINTED RESULTS (Y/N)?":Z$:PRT$"Y"Z$"Y"PRT$"Y"::380MT";30);"$";COvC"=======================================""BALANCE EXPECTED IN CHECKBOOK";30);"$";((DOBCO.005)100)100"BALANCE IN CHECKBOOK";30);"$";B1"***************************************"!" DIFFERENCE ";30)"TOTAL";30);"$";DOB[ !PRT$"Y"ĺ:"PRESS ANY KEY FOR OUTSANDING CHECKS";:Z$:::a &{ 0"CHECKS OUTSTANDING" :18);"CHK";30);"AMOUNT" DI1M2 N18);C1$(I);30);"$";C(I) XI b25);"------------"l" SUBTOTAL CHECKS OUA$   18);DA$# L "BALANCE FROM STATEMENT";30);"$";BR s "RECENT DEPOSITS NOT SHOWN" I1M1 30);"$";D(I) I 25);"-------------" " SUBTOTAL DEPOSITS";30);"$";DO  25);"=============" GET OTHER ADDS AND SUBTRACTS "[ @"SUCH AS AUTOMATIC WITHDRAWALS, CHECK CHARGES, ETC."f JM2I1l T ^"ENTER BALANCE SHOWN IN CHECKBOOK $";B1 r *** PRINT OF RESULTS *** | PRT$"Y"ĺDD$;"PR#1":395 "PRESS ANY KEY FOR BALANCE";:WHEN DONE." M1I1" I1M21 C1$(I)" "< C(I)0d "CK NBR. ";C1$(I):(C1$(I))0300 "CK AMOUNT $";C$(I):(C$(I))0300 C(I)(C$(I)) COCOC(I) "I ,"SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR CHECKBOOK.":"DON'T FORER BALANCE FROM BANK STAT. $";Bc :"ENTER DEPOSITS NOT CREDITED ON STATEMENT(RETURN WHEN DONE)"o I1M1z D(I)0 "AMOUNT $ ";D$ (D$)0200 D(I)(D$) DODOD(I) I "ENTER CHECKS OUTSTANDING - CK NBR & AMT PRESS RETURN $ CHECKBOOK BALANCING PROGRAM G *** DATA INITIALIZATION *** Q(M120\2M2100<D(20),C1$(100),C(100),C$(100)F::5PDD$""Z:"ENTER DATE OF THE STATEMENT ";DA$d:"WILL YOU WANT RESULTS PRINTED (Y/N)? ";PRT$ n:"ENT     AREST CENT,PRINT< "REGULAR DEPOSITS = $";(R100.5)100t - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTIONz - RESTRT OR END PROGAM? USER INPUT REQUIRED "MORE DATA? (1=YES, 0=NO)"; X X120 "RUN HELLO" OULATE YEARS FROM YEARS AND MONTHS4 iY(12Y0M)12a l - CALCULATE INTEREST RATE PER DEPOSIT; m - CONVERT FROM PERCENT TO DECIMAL nIIN100 w - CALCULATE AMOUNT OF REGULAR DEPOSIT BY FORMULA xRTI((I1)(NY)1) - ROUND OFF TO NE "REGULAR DEPOSITS"O - STATEMENTS 30 TO 100 REQUEST USER INPUTr"TOTAL VALUE AFFTER Y YEARS";y(T2"NOMINAL INTEREST RATE";<IF"NUMBER OF DEPOSITS PER YEAR";PNZ"NUMBER OF YEARS, MONTHS";dY0,M! h - CALC"RUNHELLO" 1000 X0$ X0$;. A3N1(N110)10< A30760F "-";P FFA3Z FFA3d 1000m 740w FFN1 FFN1 1000 X0$ X0$;" ";  ,"*****VOID*****" 570   FF1ı I1FF1 A$ I10490 A1500 510' 6408 "DOLLARS ";E A1A1N1U A1.01600b A1550p " AND ";~ &A1A1100 0(A1.5);" CENTS" : D N X b l v120 N121730 FF(N120)1020 FF(N120)1020 ,,"$";A ,,," ";A "+ ,,F$;" ";L$1 6? @A0770H JA1AY TN1(A11E3)h ^N199770v hN10390 r640 |"THOUSAND "; A1A1N11E3 N1(A1100) N10440 640 "HUMDRED "; A1A1N1100 N1(A1) NF$"END"790) "LAST NAME OF PAYEE";1 L$I "AMOUNT OF CHECK";P Am "READY TO PRINT CHECK";u X$ D1(D10000) D2((DD110000)100) D3(D(D1100D2)100) FF27D1 1000 X0$ ,,,X0$" ";D2;" ";D3 ,SEVENTY","EIGHTY","NINETY"Y F "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY" P "AUGUST","SUPTEMBER","OCTOBER","NOVEMBER","DECEMBER" Z"DATE (MMDDYY)"; dD n"-(TO END PROGRAM ENTER 'END')--" x"FIRST NAME OF PAYEE"; F$  "CHECK WRITER"` "ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE"( "TEN","ELEVEN","TWELVE","THIRTEEN","FOURTEEN","FIFTEEN","SIXTEEN"2"SEVENTEEN","EIGHTEEN","NINETEEN","TWENTY","THIRTY","FORTY" <"FIFTY","SIXTY","      <RP(I((1I)(NY)1)I)S F" AMOUNT OF EACH WITHDRAWAL = $";(R100.5)100] K:: P" WOULD YOU LIKE TO CONTINUE ? ";N$ QN$"Y"9 Z(4);"RUN MENU"  6 " REGULAR WITHDRAWALS FROM AN INVESTMENT"<Y" INITIAL INVESTMENT";P_~#" NOMINAL INTREST RATE";I$(" NUMBER OF WITHDRAWALS PER YEAR";N)2" NUMBER OF YEARS,MONTHS ";YO,M3Y(12YOM)1247IIN100  OR END PROGRAM?/ "MORE DATA (1=YES, 0=NO)";6 XB X120S "RUNHELLO" ULCULATING FOR THIS ITEM?% nY0160V w - CALCULATE DEPRECIATION AMOUNT BY FORMULAl xDPI(1I)(Y1) - ROUND OFF TO NEAREST CENT, PRINT "DEPRECIATION = $";(D100.5)100 - RETURN FOR NEXT YEAR NUMBER 90 - RESTART U "DEPRECIATION AMOUNT""9"ORIGINAL PRICE";@(PZ2"DEPRECIATION RATE";a<IE- CONVERT FROM PERCENT TO DECIMALFII100P"--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--"Z"YEAR";dY m - THROUGH CA  (1=YES, 0=NO)!; X" X1203 "RUNHELLO"LVAGE VALUE BY FORMULA, ROUND OFF, PRINT.p m - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATIONS n"VALUE = $";(100P(1I100)Y.5)100 x - RETURN FOR NEXT YEAR NUMBER 80 - RESTART OR END PROGRAM? "MORE DATA 4 "SALVAGE VALUE"3"ORIGINAL PRICE";:(PT2"DEPRECIATION RATE";[<IF"--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)--"P"YEARS";ZYc - CALCULATE ANOTHER SALVAGE VALUE?dY0140) l - CALCULATE SA   ATE =";(1000D.5)1000;"%"" nB w - RESTART OR END PROGRAM?b x"MORE DATA (1=YES, 0=NO)";i Xu X120 "RUNHELLO"U  "DEPRECIATION RATE" 7"ORIGINAL PRICE";>(PS2"RESALE PRICE";Z<ThF"YEARS";oPYY - REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENTZD100(1(TP)(1Y))c - ROUND OFF, PRINT d"DEPRECIATION R TURE VALUE OF $";D < "IN ";N;" YEARS AT ";I100;"%"B ] " IS $";Bf 405 "FUTURE OR PRESENT VALUE? ENTER F OR P ";:Q$ ": ,Q$"P"ī340 6Q$"F"ī380 ; @500 J280 TBD(1(1(1I)N))I ^B(Bī200 Q$"F"ī240 500( 140> BD(1((1I)N))L B(B.5)Y :32020u "PRESENT VALUE OF $";D{ "IN ";N;" YEARS AT ";I100;"%" " IS $";B 405 BD((1I)N) B(B.5) :32020 "FUATE ";:I 2 4I1ī60( 7II100H <"ENTER TIME IN YEARS ";:NN F~ P"LUMP SUM OR ANNUITY? ENTER L OR A ";:Q$ Z: dQ$"L"ī140 nQ$"A"ī280 x500 80 "FUTURE OR PRESENT VALUE? ENTER F OR P ";:Q$ : Q$"P" FROM PUTTING $3000 IN A BANK NOW." "4. THE FUTURE VALUE OF EQUAL ANNUAL PAYMENTS, SUCH AS FROM PUTTING $1000 IN A BANK EACH YEAR FOR A NUMBER OF YEARS." 255 32000 32020 "ENTER AMOUNT ";:D  ("ENTER INTEREST R ::506"** THIS PROGRAM WILL CALCULATE **"<y"1. THE PRESENT VALUE OF A FUTURE LUMP SUM PAYMENT.""2. THE PRESENT VALUE OF FUTURE EQUAL ANNUAL (ANNUITY) PAYMENTS."% "3. THE FUTURE VALUE OF A PRESENT LUMP SUM, SUCH ASSDEPIL940I)PF1ī8002650R:"TOTAL DEPRECIATION: "DSXa690xTYPE1DEPPFDEPTYPE3DEPPFDEPT)(2(LI1))(L(L1))(BS)P I1D2(12ND)12(2(LJ1))(L(L1))(BS)c*I1DEPD1D2s4ILDEPD2>DEP(DEP100.5)100HRVRDVDEPRRVSDEPRDVS\RVSRVSfRV(RV100.5)100pI,12)DEP30)RVzRDVRVDSD YEAR BONUS":"DEPRECIATION!":%Z"DO YOU WISH TO COMPUTE FURTHER SCHEDULES? ";B$kB$"Y"ī150~B$"YES"ī150: SYD ROUTINERDVBI1LJI1 I1DEP(2(LI1))(L(L1))(BS)(ND12)I1D1(ND12DEP(DEP100.5)100$ RVRDDEP< &RV(RV100.5)100O 0RVSDEPRDS^ :RVSRVSr DI12)DEP30)RV NDSDSDEP XRDRV bILī650 l vPF1II PF1ī490  "TOTAL DEPRECIATION: "DS:"AND DON'T FORGET FIRST PERCENT" := "YEAR"12)"DEPRECIATION"30)"BAL.REM."l "---------------------------------------"} TYPE2ī730 RDB I1L TYPE1DEP(BS)L TYPE3DEPRD((DB100)L) I1DEPDEPPF ILTYPE1DEPDEP(1PF) S: ";B J1 T"ENTER SALVAGE VALUE: ";S7 ^k hTYPE3Ą"ENTER PERCENT DECLINING BALANCE: ";DBq r |A$(1)"STRAIGHT LINE" A$(2)"SUM OF THE YEARS DIGITS" A$(3)"DECLINING BALANCE" "METHOD: "A$(TYPE) TYPE3ĺ" "DB""ASSETS PURCHASED ON OR BEFORE THE 15TH"U "MAY BE TEATED AS HELD FOR SUCH MONTH."] : "PLEASE ENTER NUMBER OF MONTHS "ASSET HELD IN YEAR OF PURCHASE." :ND PFND12 " ,"ENTER ASSET LIFE: ";L 6 @"ENTER ADJ.BASI! :5)"STRAIGHT LINE"30)"1"L :5)"SUM OF THE YEARS DIGITS"30)"2"q :5)"DECLINING BALANCE"30)"3"{ TYPE Y11500: 936:8 "ASSETS PURCHASED DURING THE YEAR ARE" "ONLY ENTITLED TO PART YEAR DEPRECIATION." (  d936En8:"THIS PROGRAM CALCULATES DEPRECIATION SCHEDULES."Mx:"IT WAS WRITTEN BY GARY NAKARADO ON JULY 7,1979."Y13000:Y936:6 "PLEASE ENTER THE NUMBER OF THE METHOD OF DEPRECIATION WHICH YOU WISH TO UTILIZE:"     j(MI)1MI0(mQI(QI):DI(DI)TrQ(K)(QI):D(K)(DI):M(K)(MI):F(K)(PM)Z|}"LINE ";K;" HAS BEEN CHANGED"F(K1)0Q(K1)1200:" (PRESS ANY KEY TO CONTINUE)";:A$:936:CR"dH:"TO RETURN TO 'OPTIONS',ENTER (R).":"TO REVISE, ENTER LINE NUMBER":"TO BE CHANGED ";:A$tJA$"R"200OK(A$)PTKRXVXV:YVYVTCR1:320^QIPA90:CR0cPA180PA360PAdPA90PA180PAhDI(PA):MI(PADI)601:1000::RE0:1008 L-:2000:200R@::"THIS ROUTINE WILL CHANGE" }B"ONE OF THE LINES TO CANCEL AN ERROR"C"OF FINAL POSITION."D:"IT MUST BE USED AFTER 'COMPUTE'"F"AND YOU SHOULD KNOW THE LINE MOST":"LIKELY TO BE IN ERROROAPA: OMPM: 's" 0"::d"LINE";:8:"QUAD";:15:"DEG";:21:"MIN";:27:"FEET"nREızL130Q(L)01040:L;QFQ(L)8:Q$(QF);15:D(L);21:M(L);27:F(L);(37)211035:2000:RE:2000 200 X:R ]"EDIT WHICH LINE NUMBER ";:EL:SVDP:DPEL:E1:82f bE0:DPSV:200 ~ PM((XV2)(YV2)) %YV0YV1E30 *PA((XVYV)C) 4PA0PA180PA >XV0PA180PA HARAR((PMOM ((OAPA)C))2) MA(AR)Q(T )3RA360RA ! cRARACD hXF(T)((RA)):YF(T)((RA)) X rXVXVX:YVYVYa w800m yCR1ıy |T::: " FINAL POSITION (DECIMAL FT): :" X= ";XV " Y= ";YV :" AREA (SQ. FT.)= ";A :" ACRES= ";(A 43560) 0 A$"C"300! A$"E"6002 A$"L"1000C A$"R"1600R A$"N"80[ 200 ,XV0:YV0:PM0:OM0:PA0:OA0:AR0 1936::" <*> COMPUTING <*>" 6T1DP1 @RAD(T )(M(T )60) JQ(T )1RA180RA TQ(T )2RA180RA  ^DP)) :"DISTANCE (DEC. FT.) ";:F(DP)4 E1ıG 936:DP:200T Q(DP)1^ 936u :" OPTIONS:" :" COMPUTE(C)" :" EDIT(E)" :" LIST(L)" :" REVISE(R)" :" NEW RUN(N)";:A$ 936 E0:CRNW NE"$ V:" 90 + 90"< W:" SW SE"N X" 0"g d:"LINE NUMBER ";DP n:"QUADRANT (NE,SE,SW,NW, E=END) ";:A$ xT03:A$Q$(T)ĂT }A$"E"180 T4110 Q(DP)T::"DEGREES ";:D(DP)::"MINUTES ";:M(  C57.295779513Q(30):D(30):M(30):F(30)x#936:" SURVEY DATA REDUCTION"::" AND ERROR CORRECTION"3:" P. LUTUS 11/77"<Q$(0),Q$(1),Q$(2),Q$(3)F"NE","SE","SW","NW"PDP130R::S" 0" U"     nX0 xXX1 AAC- A0ī1606 170? A0H X,AV XBī120r "********************" "TYPE 1 TO CONTINUE, 0 TO STOP" L L1ī240 "STOP" 260 30 T+" STRIGHT LINE DEPRECIATION PROGRAM"Z THIS PROGRAM COMPUTES VALUE DEPRECIATION| BY THE STRIGHT LINE MENTHOD"ORIGINAL VALUE=";(A2"LIFETIME IN YEARS=";<BFCABP"YEARLY DEPRECIATION=";CZ d"YEAR","VALUE" ATE"; F ZZ1WF! I' 5 Z(ZT)T "SYSTEM RELIABILITY = ";ZZ b 40s "RUNHELLO" Su "SYSTEM RELIABILITY"!A"(TO END PROGRAM ENTER 0)"a("OPERATING TIME IN HOURS";h2Tu<T0230F"NUMBER OF COMPONENTS";PNZZ0dI1Nn"COMPONENT ";Ix" AVERAGE WEAROUT TIME";W " AVERAGE FAILURE R  120 "RUN HELLO"  dD1TDN360( n"DESCOUNT = $";D1F w - CALCULATE COST, PRINT_ x" COST = $";TD1 - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION - RESTART OR END PROGRAM? USER INPUT REQUIRED "MORE DATA (1=YES, 0=NO)"; X X" "DISCOUNT COMMERCIAL PAPER"(W - STATEMENTS 30 TO 90 REQUEST USER INPUTl"FUTURE VALUE";s(T2"DISCOUNT RATE";<DE - CONVERT PERCENT TO DECIMALFDD100P"DAYS TO MATURITY";ZN c