' +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`MENT";T B"ENTER THE NUMBER OF YEARS OF THE INVESTMENT";YHy"ENTER THE COMPOUNDING PERIODS EACH YEAR";NI2N((TP)(1(NY))1)100"WHEN AN INVESTMENT OF $";P;"IS,""HELD FOR";Y;"YEARS""COMPOUNDING";N;"TIMES EA/N)";Y$#(Y$,1)"Y"İ9020:600+21V NOMINAL INTEREST RATE ON INVESTMENTSf9020:9000" NOMINAL INTEREST RATE ON INVESTMENTS"9000"ENTER THE AMOUNT OF THE PRINCIPAL";P"ENTER THE TOTAL AMOUNT OF THE INVEST((1IN)(NY)))N"A MINIMUM INVESTMENT OF $";(100P.5)100;"MUST"w"BE HELD AT AN INTEREST RATE OF";I1"PERCENT PER YEAR ,TO ALLOW MONTHLY""WITHDRAWALS OF $";R;"FOR A PERIOD OF";Y;"YEARS."::"DO YOU WANT TO RUN ANOTHER (Yab9000Ag"ENTER THE NUMBER OF WITHDRAWALS EACH YEAR";NGhtl"ENTER THE AMOUNT OF EACH WITHDRAWAL";Rzmq"ENTER THE NOMINAL INTEREST RATE";Irv"WITHDRAWAL TO OCCUR FOR HOW MANY YEARS";YyI1I{II100PRNI(11E OF ";I1;" PERCENT"K"COMPOUNDED";N;"TIMES EACH YEAR TO YIELD $";T;"."S:~!"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$&(Y$,1)"Y"İ9020:500+21X MIN INVESTMENT FOR INCOMEZ9020:9000]5)"#6 MINIMUM INVESTMENT FOR INCOME"N="ENTER THE NUMBER OF YEARS OF THIS INVESTMENT";YCl"ENTER THE NOMINAL INTEREST RATE";Iu I1I IIN100PT(1I)(NY):"YOU MUST INVEST $";(P100.5)100;" FOR A PERIOD""OF ";Y;" YEARS AT AN INTEREST RATEQUIRED TO PROVIDE FUTURE VALUE/9020:9000U" #5 INVESTMENT REQUIRED TO"}" PROVIDE FUTURE VALUE..":9000"ENTER THE AMOUNT YOU WANT TO HAVE AFTER Y YEARS";T"ENTER THE NUMBER OF COMPOUNDING PERIODS EACH YEAR";:AA(CC$)D MOS AT ";O(I);"%" I J :"HIT RETURN TO CONTINUE";:Q$:1860[$ "THANK YOU"a. AA$(AA):BB1(AA$):BB$(AA$,BB,1):BB$"."5010:BB: BBBB3:BB(AA$)5020:BB$(AA$,BB,1):CC(BB$):CC4AAAA.01:AA$(AA):CC$(AA$,BB1)BLDG TAKEN UNDER ";D$;" DEPRECIATION OVER ";Y1;" YEARS"z"PERSONAL PROPERTY TAKEN UNDER ";H$;" DEPR OVER ";Y2;" YEARS"I1JAAM(I):5000:M(I)AAAAN(I):5000:N(I)AAAAO(I):5000:O(I)AA"MORTGAGE ";I;"=";M(I);" OVER ";N(I);"3240*Z4310 4Z5340->Z65507R1970A936WAAF1:5000:F1AA"BUILDING HAS ";N1;" UNITS AND ";F1;" SQ FEET"AAA1:5000:A1AAAAA2:5000:A2AA"BUILDING ALLOCATION= ";A1;"%":"PERSONAL PROPERTY= ";A2;"%"7"0 18609366"1 SCHEDULED GROSS INCOME"R"2 VACANCY ALLOWANCE"j"3 EXPENSE RATIO""4 PURCHASE PRICE""5 MORTGAGE INFORMATION""6 DEPRECIATION INFORMATION":"ENTER CHOICE";:Z Z1180Z2210 ZFT= ";P4'0"HIT RETURN TO CONTINUE";/:Q$9D936ZN"1 DISPLAY CURRENT VALUES"sS"2 CHANGE A VALUE"X"3 RERUN PROGRAM"]"4 END OF PROCESS"b:"ENTER CHOICE ";gKlYKvK42340K360K21970K1218?"PURCHASE PRICE=";P1;" LOAN AMOUNT=";L;" EQUITY=";P5UAAP2:5000:P2AAkAAP6:5000:P6AA"CAP RATE BASED ON PRICE= ";P2;"%":"GROSS MULTIPLIER= ";P6AAP3:5000:P3AAAAP4:5000:P4AA"PRICE/UNIT= ";P3;" PRICE PER SQ ;P7;"%";40((C)));C,AAP8:5000:P8AAN"PRINCIPAL";40((P8)));P8dAAT1:5000:T1AA"EQUITY RTN (";P9;"%";40((T1)));T1AAA7:5000:A7AA"DEPRECIATION";40((A7)));A7AAT:5000:TAA"TAXABLE";40((T)));T@:"MTG # INTEREST PRINCIPAL TOTAL ":<JI1JVLAAT(I):5000:T(I)AApNAAU(I):5000:U(I)AAPAAV(I):5000:V(I)AATI;14((T(I))));T(I);27((U(I))));U(I);40((V(I))));V(I)^I:AAC:5000:CAA"CASH FLOW ("AR""-"ARE REQUIRED TO SATISFY"S-""A LOAN OF $";P;"FOR A PERIOD OF";Y;"YEARS"-'"AT AN INTEREST RATE OF";I1;"PERCENT PER ANNUM."-,::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$-1(Y$,1)"Y"İ9020:1500-621-@9020:9000.E10)"#16 LASINTEREST RATE":50,255:IJ, "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";Nu,"WHAT IS THE LOAN PRINCIPAL AMOUNT";P,::R((I100)PN)(11((I100)N1)(NY)),I1I,"REGULAR PAYMENTS OF $";(R100.5)100;","-"MADE ";N;" TIMES EACH YE TO RUN ANOTHER (Y/N)";Y$6+(Y$,1)"Y"İ9020:1400>+21N+9020:9000y+" #15 REGULAR PAYMENT ON A LOAN.."++9000+"WHAT IS THE LIFE OF THE LOAN IN ":27):50,63:"YEARS":50,255+Y,"WHAT IS THE ANNUAL":19):50,63:"THE AMOUNT OF EACH PAYMENT";R#*R*"WHAT IS THE LOAN ANNUAL INTEREST RATE";IX**"ENTER THE LIFE OF THE LOAN IN YEARS";Y*PRN(11((I100)N1)(NY))(I100)*:"THE PRINCIPAL ON THIS LOAN IS $";(P100.5)100+::"DO YOU WANT"AND THE COST WILL BE $";TD1;" ."R)U::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$o)Z(Y$,1)"Y"İ9020:1300w)_21)x9020:9000)}5)"#14 PRINCIPAL ON A LOAN")~)9000)"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N)*"WHAT IS (.3(2"ENTER THE NUMBER OF DAYS TO MATURITY";N?(7DD100P(<D1TDN360V(A~(F"IF YOU PURCHASE A NOTE WORTH $";T(H" DUE IN";N;"DAYS"(K"AT A DISCOUNT RATE OF";D100;"PERCENT,"(M"THE DISCOUNT AMOUNT WILL BE $";D1#)P(Y$,1)"Y"İ9020:1200"' 21B' FIND AMOUNT OF DISC PAPERR'9020:9000'"#13 CALCULATE THE NET COST OF DISCOUNTED"'" PAPER.."'#9000'$'("ENTER THE FUTURE VALUE OF THE NOTE";T'-"ENTER THE DISCOUNT RATE";DTER THE ITEM'S DEPRECIATION RATE";I)&3&K100>&Y1K`&S(100P(1I100)Y.5)100&"YEAR #";Y;"SALVAGE VALUE IS $";S&&XX1:X5X0&"PRESS RETURN FOR MORE":X$:&S2ĂY&:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$'~D2ĂY7%:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$T%(Y$,1)"Y"İ9020:1100\%21l%9020:9000%" #12 CALCULATE THE SALVAGE VALUE"%" OF AN ITEM..."%9000%"ENTER THE ORIGINAL PRICE OF THE ITEM";P%#&"ENRIGINAL PRICE OF THE ITEM";P"$a,$bK100\$e"WHAT PERCENT DO YOU WANT TO DEPRECIATE";Ib$fn$jII100{$o:Y1K$qDPI(1I)(Y1)$y"YEAR #";Y;"DEPRECIATION IS $";(D100.5)100:${XX1:X5X0$|"PRESS RETURN FOR MORE":X$: %E IS";(1000D.5)1000;"PERCENT."O#$:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$l#)(Y$,1)"Y"İ9020:1000t#.21#L CALCULATE THE AMOUNT OF DEPREC OF AN ITEM#Q9020:9000#V" #11 AMOUNT DEPRECIATED WITHIN A YEAR.."#[9000$`"ENTER THE O"ENTER THE RESALE PRICE OF THE ITEM";T-"U""ENTER THE ITEM'S LIFE IN YEARS";Y["u" D100(1(TP)(1Y)){"""IF YOU PURCHASED THIS ITEM FOR $";P":"AND SOLD IT";Y;"YEARS LATER-"""FOR $";T;", THE ACTUAL DEPRECIATION""#"RAT***** UNDER CONSTRUCTION ********"7!I12000:I:21]! DEPRECIATION RATE ON INVESTMENTm!9020:9000!" #10 ANNUAL DEPRECIATION RATE OF AN INVESTMENT"!!9000!"ENTER THE ORIGINAL PRICE OF THE ITEM";P!'""YOUR INVESTMENT IS";((TP)(1Y)1)100;"PERCENT.."c R:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$ W:(Y$,1)"Y"İ9020:800 \21  EARNED INTEREST TABLE 9020:9000 "#9 EARNED INTEREST TABLE FOR INVESTMENT"  9000"!" ***ATE ON INVESTMENT"+"/9000W4"ENTER THE AMOUNT OF YOUR INITIAL INVESTMENT";P]59"ENTER THE TOTAL VALUE Y YEARS";T:>"ENTER THE LIFE OF THE INVESTMENT IN YEARS";Y?CH"THE EFFECTIVE ANNUAL INTEREST RATE OF"I6 MCH YEAR"""AND YIELDS $";T;","U"THE NOMINAL INTEREST RATE IS";I2;"PERCENT..":"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$(Y$,1)"Y"İ9020:70021  EFFECTIVE INTEREST RATE ON INVESTMENTS%9020:9000*" EFFECTIVE INTEREST RF YEARS $ ";T+A+"ENTER NUMBER OF YEARS.............#";YG+V+9900:100+7)"ANNUAL INTEREST RATE = ";((TP)(1Y)1)100;" %"+255::9900+"WANT ANOTHER RUN (Y/N) ? ";A$+A$"N"11228+11200+90$,&,9000&OMINAL INTEREST RATE= ";I2;" %"0t+255::9900Tv+"WANT ANOTHER RUN (Y/N) ? ";A$fx+A$"Y"11104nz+90z+34,8:+"(EFFECTIVE INTEREST RATE ON INVESTMENTS)"+"ENTER INITIAL INVESTMENT..........$";P+ +"TOTAL VALUE AFTER (X) # OR PRINCIPAL AMT OF INVESTMENT ";P'b+Td+"ENTER TOTAL VALUE AT MATURITY.....";TZf+h+"ENTER NUMBER OF YEARS.............";Yj+l+"COMPOUNDING PERIODS PER YEAR ?....";Nn+p+I2N((TP)(1(NY))1)100q+:9900:100r+"THE N:F#X(936)::P#(:Z#I116::I:I)";Y$"9(Y$,1)"Y"İ9020:2000*9 F029 21T9 "TO CONTINUE HIT ANY KEY..."\9 A$b9 j9 F09 "PMT INTEREST";16);"PRINCIPAL";26);" BALANCE"9 21909(# SUBROUTINE TO MAKE A LINE OF ----92#I139:"-";:I:"-":9<#"":936:.5:BB100.5>8|C(C)100:L(L)100:P(P)100:B(B)100Y8C;7);L;17);P;27);Bc8FF1r8F2028008BR21708CC18DBI1008C;(D)100,R(D)1008"LAST PAYMENT WAS...";(D)100B9"DO YOU WANT TO RUN ANOTHER (Y/NMOUNT PER PAYMENT =";R+7bQ(RNA)100.5:7cQ(Q)100S7f"TOTAL INTEREST=";Qz7i"TO BEGIN LISTING HIT ANY KEY..."7jA$7k:BA7p"PMT INTEREST";16);"PRINCIPAL";26);" BALANCE"7zCC1:LBI:PRL:BBP8{CC100.5:LL100.5:PP100ADING & TRAILING ZERO'S NOT ?"ED")6*C0G64"ENTER AMOUNT OF LOAN";AQ69""x6>"AMOUNT OF INTEREST IN PERCENT";J6C""6H"NUMBER OF YEARS";N6M""6\JJ1006]NN12:IJ12:B1I:RAI(11BN)6_RR100.56`R(R)1007a"A900045" ******** UNDER CONSTRUCTION ********"E5I12000:IM521]59020:90005" THE MORTGAGE AMORTIZATION TABLE"55" COMPUTE INTEREST PAYMENTS..."5590005"PLEASE USE DECIMAL POINTS"59000!6 LE1I100N)N))M4:"A TERM OF";(Y10.5)10;"YEARS WILL SATISFY THIS LOAN."k4?"SATISFY THIS SCHEDULE."4D:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$4I(Y$,1)"Y"İ9020:18004N214l9020:90004q"#19 THE ANNUAL INTEREST RATE ON A LOAN"5v900073"ENTER THE NUMBER OF PAYMENTS EACH YEAR";N=3e3"ENTER THE ANNUAL INTEREST RATE";Ik33!"WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R3"3&"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P3+40Y((1(P(I100))(NR))(()N1"2I1((BOIN)100.5)100-2ARI192BOBOAA2J1v2:"THE REMAINING BALANCE IS $";(BO100.5)1002:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$2 (Y$,1)"Y"İ9020:170022129020:90002 10)"THE TERM OF A LOAN"23101"WHAT IS THE AMOUNT OF EACH PAYMENT";R61h1"WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";Pn11"ENTER THE LAST PAYMENT MADE ,"1" (PAYMENT #, YEAR # )";N1,Y1:"WORKING ON PROBLEM"1II1001BOP2J11N(Y1::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$F0(Y$,1)"Y"İ9020:1600N021^09020:90000" #17 REMAINING BALANCE ON A LOAN"0090000"ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N00"ENTER THE ANNUAL INTEREST RATE";IHE AMOUNT OF THE LOAN PRINCIPAL";P:/h:I1I:II100:BOPb/jNY100ĺ20)"WORKING THE PROBLEM"p/mJ11NY/rI2((BOIN)100.5)100/wARI2/|BOBOA/J1/"THE LAST PAYMENT FOR THIS LOAN,"/"WILL BE $";((RBO)100.5)100)0T PAYMENT ON A LOAN".F$.J9000S.O"WHAT IS THE LIFE OF THE LOAN IN YEARS";Y{.T"ENTER THE ANNUAL INTEREST RATE";I.U.Y"WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R.Z.^"HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N._"/c"ENTER T#";N )08)0"ENTER ANNUAL INTEREST RATE.......%";I5>)0L)0I5I5100n)0"ENTER LAST PAYMENT MADE...")0"PAYMENT # ";N1)0"YEAR....# ";Y)0B0P)0J11N(Y1)N1)0I1((B0I5N)100.5)100)0ARI1)0B0B0A)0J1)09900.*UN (Y/N) ? ";A$(E0A$"N"90)(H012300/(p09(r09000a(t08);"REMAINING BALANCE ON A LOAN"g(v0q(x09000(|0"ENTER REGULAR PAYMENT AMOUNT.....$";R(~0(0"ENTER PRINCIPAL AMOUNT...........$";P(0)0"NUMBER OF PAYMENTS PER/YEAR......%";I5 '$0'&0I5I5100C'(0"NUMBER OF PAYMENTS PER/YEAR...#";NI'*0R',0B0P`'.0J11NY'00I1((B0I5N)100.5)100'20ARI1'40B0B0A'60J1'809900':011);"LAST PAYMENT= $";((RB0)100.5)100'<0'>09900(A0"WANT ANOTHER R& 0&09000:&06);"((( LAST PAYMENT ON A LOAN )))":D&09000J&0t&0"ENTER REGULAR PAYMENT AMOUNT..$";Rz&0&0"ENTER PRINCIPAL AMOUNT........$";P&0&0"ENTER THE TERM IN YEARS.......#";Y& 0'"0"ENTER ANNUAL INTEREST RATE....TE....%";I5%/;%/"NUMBER OF PAYMENTS/YEAR.......#";NA%/q%/R((I5100)PN)(11((I5100)N1)(NY)){%/9900%/8);"REGULAR PAYMENT= $";(R100.5)100%/%/9900%/%/"WANT ANOTHER RUN (Y/N) ? ";A$%/A$"N"90%/12200"WANT ANOTHER RUN (Y/N) ? ";A$.$g/A$"N"909$i/12100?$/I$/9000p$/7);"REGULAR PAYMENT ON A LOAN":z$/9000$/$/"WHAT IS TERM IN YEARS.........#";Y$/$/"WHAT IS PRINCIPAL AMOUNT......$";P$/ %/"ENTER ANNUAL INTEREST RA................#";Y#R/H#T/"ENTER ANNUAL INTEREST RATE......%";I5N#U/z#W/"ENTER NUMBER OF PAYMENTS/YEAR...#";N#X/#Z/PRN(11((I5100)N1)(NY))(I5100)#[/9900#]/5);"!!! PRINCIPAL= $";(P100.5)100;" !!!"#_/#b/9900$e/ANNUAL INTEREST RATE= ";I5100;" %")",3",9900W","WANT ANOTHER RUN (Y/N) ? ";A$f",A$"N"90q",11420w"D/"F/9000"H/8);"((( PRINCIPAL ON A LOAN )))""I/"J/9000"L/"REGULAR PAYMENT AMOUNT..........$";R"N/#P/"TERM IN YEARS...";N !,!,I510:I20?!,R1(I5PN)(11((I5N1)(NY)))W!,R1(R1100.5)100i!,I3(I5I2)2s!,I2I5!,R1R11460!,R1R11456!,I5I5I3!,11441!,I5I5I3!,11441!,I5((((I51000)100.5))100)1000!,9900#",5);",90003 ,6);"ANNUAL INTEREST RATE ON A LOAN":= ,9000C ,o ,"ENTER REGULAR PAYMENT AMOUNT....$";Ru , ,"ENTER TERM IN YEARS.............#";Y , ,"ENTER PRINCIPAL AMOUNT..........$";P ,!,"NUMBER OF PAYMENTS PER YEAR.....#R(X)(X100.5)100Hz," (";J0;")";9);R(B2);20);R(I3);30);R(I2)W|,I30:KK1a~,B0B2y,J0J1N1Y11403,J1,J0X11402,,KK1,J0,,:,"WANT ANOTHER RUN (Y/N) ? ";A$,A$"N"90,:11300, h,L11:N21:P21 i,J11N1j,N2N111374Gk,N2N1J1N11374[l,B0B0R:N2N21nn,B2B0(1I5N){o,I1B2B0p,I3I3I1:I2I2I1q,P2P1J1N11380s,I2R(I2):B2R(B2):P2P21t,J0X11390v,J1NL1L211390x,L1L11y,;Y;" YEARS"Z,9900%[,N1011360[\,"DEPOSITS/WITHDRAWALS $";R;" ";N1;" TIMES/YEAR"e],9900^,R(X)(X100.5)100`,"EFFECTIVE INTEREST RATE ";R(100((1I5N)N1));" % PER YEAR"a,b,"YEAR BALANCE INTEREST ACC/INTEREST"f, I,X(X)J,B0PK,I10&L,I20/M,I308N,K66AO,P14RP,J01(Y)1bQ,J0X11368rR,K5511366S,K1K66T,U,K1V,K6:9000W,7);"((( EARNED INTEREST TABLE )))"X,:9000 Y,"PRINCIPAL = $";P;" AT ";I5100;" % FOR "UNT OF DEPOS/WITHDRAWAL.........$";R*9,4:,N360><,L2N1I=,11332x?,"COMPOUNDING PERIODS PER YEAR.......#";N~@,A,N10B,L24D,"STARTING WITH WHAT YEAR......(1-30) ";XE,F,"STOP PRINTING WITH WHAT YEAR (1-30) ";YG,:34,0:(,7);"((( EARNED INTEREST TABLE )))"2),:9000:*,:g,,"ENTER PRINCIPAL AMOUNT...........$";Pm-,.,"NOMINAL INTEREST RATE............%";I5/,0,I5I51002,"HOW MANY DEPOS/WITHDRAWALS PER YEAR ";N14,5,N1011327$7,"AMONUMBER OF PAYMENTS PER/YEAR.....#";N*9;V9 ;"PRINTING TO START AT..YEAR (1-30)";X9";C10:I20:I30:J00:N1N:K66:B0P:A10:A209$;(Y)1156909&;J01(Y)9(;J0X154109*;KN358154009,;K1K669.;90;K191;:9900:2;"PRINCTION TABLE"8;8;9000!8;M8 ;"ENTER AMOUNT OF REGULAR PAYMENT.$";RS8 ;8;"ENTER TERM IN YEARS.............#";Y8;8;"ENTER PRINCIPAL AMOUNT..........$";P8;8;"ENTER ANNUAL INTEREST RATE......%";I58;8;I5I5100$9;";Y7777I5I5N100477RTI5((I51)(NY)1)>779900G77100z77" REGULAR DEPOSITS = $";(R100.5)100777725577990077"WANT ANOTHER RUN (Y/N) ? ";A$77A$"N"9077142007:7:9000 8;" MORTGAGE AMORTIZA00&6|79);"*** REGULAR DEPOSITS ***",6~76679000<67i67"ENTER VALUE AFTER (X)# OF YEARS..$";To6767"ENTER NOMINAL INTEREST RATE......%";I56767"HOW MANY DEPOSITS EACH YEAR......#";N6777"ENTER NUMBER OF YEARS............#"7"ENTER NUMBER OF YEARS.............#";Y:527I5I5N100V5<7TR((1I5)(NY)1)I5\5F7f5P79900o5Q71005U77);"FUTURE VALUE = $";(T100.5)1005Y75Z72555_799005d7"WANT ANOTHER RUN (Y/N) ? ";A$5n7A$"N"905q7141005x76z7900-47" FUTURE VALUE OF REGULAR DEPOSITS"M47" (ANNUITY)"Y47:9000_4 74"7"AMOUNT OF REGULAR DEPOSITS........$";R4$74&7"ENTER NOMINAL INTEREST RATE.......%";I54(74*7"HOW MANY DEPOSITS EACH YEAR.......#";N4,7*5. NUMBER OF YEARS............#";Y.3r4I5I5100R3v4PRNI5(11((1I5N)(NY)))X3w4b3x49900k3y41003z47);"INVESTMENT REQUIRED = $";(100P.5)1003{4:2553|4990034"WANT ANOTHER RUN (Y/N) ? ";A$34A$"N"9034134003747900002X42Z49000A2\4"** MINIMUM INVESTMENT FOR WITHDRAWAL **"G2^4Q2`49000Y2b4:2d4"AMOUNT OF WITHDRAWALS............$";R2f42h4"ENTER NOMINAL INTERES RATE.......%";I52j42l4"HOW MANY WITHDRAWALS EACH YEAR...#";N2n4 3p4"ENTER4"NUMBERS OF YEARS.................#";Y/1 4?1 4I5I5N100`14RP(I5((1I5)(NY)1)I5)j149900s1410014" AMOUNT OF EACH WITHDRAWAL = $";(R100.5)10014142551499001!4"WANT ANOTHER RUN (Y/N) ? ";A$1&4A$"N"902+413390031320003039000M03" REGULAR WITHDRAWALS FROM AN INVESTMENT"S03]039000c0303"ENTER INITIAL INVESTMENT.........$";P0304"NOMINAL INTEREST RATE............%";I50404"HOW MANY WITHDRAWALS EACH YEAR...#";N04)1 S PER/YEAR.....#";N/3F/3"ENTER NUMBER OF YEARS............#";YL/3\/3I5I5N100q/3TP(1I5)(NY){/39900/3100/35);"!!! FUTURE VALUE = $";(T100.5)100;" !!!"/3255/3:9900/3"WANT ANOTHER RUN (Y/N) ? ";A$03A$"N"NOTHER RUN (Y/N) ? ";A$&.Z3A$"N"901.\3131007.3A.39000k.37);"FUTURE VALUE OF AN INVESTMENT"w.3:9000.3:.3"ENTER INITIAL INVESTMENT.........$";P.3.3"NOMINAL INTEREST RATE............%";I5.3/3"COMPOUNDING PERIOD/-@3"LENGTH OF INVESTMENT (YEARS).......#";Y5-B3d-D3"WHAT NOMINAL INTEREST RATE.........%";I5j-F3z-H3I5I5N100-J3PT(1I5)(NY)-M39900-N3100-O38);"INITIAL INVESTMENT= $";(P100.5)100-Q3-R3255-T39900-V3.X3"WANT A!!!",0:99004,0"WANT ANOTHER RUN (Y/N) ? ";A$C,0A$"N"90N,112500T,,3^,.39000,038);"((( INITIAL INVESTMENT )))",23,439000,63,83"VALUE AFTER (X)# OF YEARS........#";T,:3,<3"NUMBER OF COMPOUNDING PERIODS/YEAR.#";N->3ENTER PRINCIPAL AMOUNT...........$";P,+0Z+0"ENTER ANNUAL INTEREST RATE.......%";I5`+0+0"NUMBER OF PAYMENTS/YEAR..........#";N+0+0Y((1(P(I5100))(NR))((1I5100N)N))+09900,010);"!!! TERM= ";(Y10.5)10;" YEARS 07);"REMAINING BALANCE= $";(B0100.5)1004*0>*09900b*0"WANT ANOTHER RUN (Y/N) ? ";A$q*0A$"N"90|*012400*0*09000*010);"((( TERM OF A LOAN )))"*0*09000*0*0"ENTER REGULAR PAYMENT AMOUNT.... $";R*0&+0"JOR PURCHASES SUCH AS"?"A CAR ECT. YOU MAY ALSO TAKE AS A"l"DEDUCTION THE SALES TAX PAID ON THOSE" "ITEMS). ENTER THE TOTAL SALES TAX" "DEDUCTION HERE "; Q4 $ "ENTER ALL PERSONAL PROPERTY TAXES PAID ";. Q58 KB "YOU ARE"5"ENTITLED TO IN THE TAX TABLE AND THEN"T"ENTER THE AMOUNT HERE ";\Q3b"LOOK UP THE SALES TAX CREDIT FROM THE""TAX TABLES AND ENTER THE AMOUNT CORRES-""PONDING TO YOUR INCOME HERE (NOTE:""IF YOU HAD ANY MA4 >HP9550İ5770"MIR"TAX EXPENSES WILL BE DONE NEXT."O\Ufp"ENTER THE TOTAL STATE AND LOCAL INCOME"u"TAXES WITHELD ";zQ1"ENTER THE REAL ESTATE TAXES PAID ";Q2"LOOK UP THE GASOLINE TAX 1502"HOW MUCH DID YOU PAY FOR PRESCRIPTIONS";:P2@NP3D9.01[P4P2P3jP40P40"ENTER ALL OTHE MEDICAL EXPENSES AND""MISC. CHARGES ";P5P6P4P5 P7D9.03P8P6P7 P80P80*P9P8P1?/D"MEDICAL EXPENSES WILL BE DONE FIRST."5N;XAbkl"ENTER YOUR TOTAL MEDICAL INSURANCE"q"PREMIUMS. THE PROGRAM WILL CALCULATE"v"THE CORRECT AMOUNT AND ENTER IT INTO"{"THE FORM. ";P1P1P12P1150P1@*** DONATED 7-79 ***3(#********************C I1V2V2$(V1$,I,1)'V3I:V2$"."ī4130@MV$".00"W4140k"V3V21V$"0"}'V11VO$"0",V$VO$V1$V$"%"6V3(V$)@ **********************p *** EXPENSES PROFILE **X*** BY MIKE CICERCHI ***  3130& X3(X21)X$"0"10 (X1)13160G: X$"$"XO$X1$X$TD X3(X$)ZN X (X1$,1)"-"X$"$-0"(X1$,2)X$:3140b 3130 THIS SUBROUTINE FORMATS THE % DATAV1(V1100.5)100VO$"":V$""V1$(V1)V2(V1$)LE BY TYPING 'P'. NOTE...THIS WILL ERASE ALL OF YOUR";Mj" PREVIOUS DATA!"UlP$fvP$"S"1788tP$"P"Ĭ~2000 XO$"":X$"" X1$(X1) X2(X1$) I1X2 X2$(X1$,I,1) X3I X2$"."ī3110  X$".00"8:26,278@N13 @N2,3939,@N2,3908@N0,392E@N0,3939k@N8:"BUSINESS (FINANCIAL) SERIES"|@]I13000:I@a85I ?bN22,13?dN23,12 ?fN24,11+?hN21,156?jN21,16F?pN A:P:P:L:EN?uN14t?xN5,83:10,133:15,183:25,273?zN6,76:11,126:16,176:26,276:30,316?N3,85:3,88:3,810:3,613:3,815:3,618:3,820:3,825:3,833:3,835 @N21,22>>N11,3120!>@N9/>BN11,3121=>DN12,3022D>FN1R>HN13,2923`>IN13,2924n>JN14,2825|>LN14,2826>NN15,2727>PN2>RN16,2628>TN16,2629>UN2>VN17,2030>XN22,2530>YN12>\N21,14>^N16,1814>`N24,26145720=J=N1((Y(Y))12)12N*=T=J0J015=^=15144?=h=9900c=m="WANT ANOTHER RUN (Y/N) ? ";A$r=r=A$"N"90}=w=15100= N=)N THE APPLE=*N12=/N15,1915=0N14,2016=1N23,2715=2N22,2816=4N14=6N13,2917=8N12,3018=:N9 14);A;24);B0;32);I2<:3;"INTEREST RATE............%";I5c:4;"TERM IN YEARS............#";Y:5;"REGULAR PAYMENT..........$";R:7;:8;"MO. INTEREST AMOUNT ENDING ACCUM":9;" CHARGE AMORTIZED BALANCE INTEREST":::;K7;(*K6);"7",P6N*P6);"8",P7^*U6);"9",P8o*Z5);"10",P9*_5);"11",Q1*`5);"12",Q2*d5);"13",Q3*i5);"14",Q4*n5);"15",Q5*s5);"16",Q6*v5);"17",Q7*x5);"18",Q8+z5)) Z05286)Q)"THIS ENDS THE PRINT OUT OF THE 1040 TAX TOTALS. THE")"FOLLOWING LINE NUMBERS WILL REFLECT THE FIGURES")"WHICH ARE USED ON SCHEDULE 'A'.")#:::)("LINE NUMBER","AMOUNT")-)26);"1",P1)76);"2",P2 *(5);"37",,U7#(5);"39",I14(5);"40",I2E(5);"41",I3W(5);"46",,I4i(5);"47",,U8{(5);"54",,U8(5);"55",F1(5);"56",F2(5);"57",C1(5);"62",,F4(5);"63",,U9(5);"64",,U9(5);"66",,U0()8'5);"31",,D9'('2.'7X0ī4000Q'AX1ĺ"TYPE 'C' TO CONTINUE ";Y'FY$'"THIS IS THE END OF THE FRONT SIDE OF THE1040 FORM NOW THE BACK SIDE WILL BE"'"FILLED IN."'''5);"32",,D9'5);"33",,U5(5);"34",,U6;"8",,G1&6);"9",,I1,&4);"10C",,D3>&5);"11",,S3P&5);"12",,S4b&5);"13",,S5t&5);"14",,S6&5);"19",,S7&5);"21",,S8&5);"22",M1&5);"24",D4&5);"27",D5&5);"28",,D6& 5);"29",,D7'5);"30",,D0% (Z$,1)"Y"3600 % X1'% 01% 3605]% THIS PROGRAM FITS THE 1977 TAX FORMS.d%1%"THE FOLLOWING ARE THE LINE NUMBERS AND AMOUNTS TO BE ENTERED ON YOUR 1040 FORM.%$%."LINE NUMBER","AMOUNT","AMOUNT"%t6);"7",,D2&6)THE 1040 TAX PROGRAM. NOW THE PRO-"P$z "GRAM WILL PRINT OUT THE TOTALS TO BE "{$ "USED IN FILLING OUT YOUR TAX FORMS."$ "THE '1040' FORM WILL BE DONE FIRST."$ :$ "DO YOU WANT A PRINT OUT OF THIS REPORT ('Y' OR 'N') ";$ Z$$ % XRE "; # U7# # U8U7I4/# U80U80<# U9F4U8I# U0U8F4X# U90U90g# U00U00v# U903400|# # #* #4 #> "REFUND...REFUND...OF...$";U9#H #R #\ #f #p "THIS FINISHES THE QUESTIONING SECTION"#$u "OF "v " Q$"X, Y, OR Z " " 3" U6200003230K" Q$"A, B, C, OR D "" "THE TOTAL NUMBER OF EXEMPTIONS YOU":"CLAIMED IS ";D2" :" "YOUR TAXABLE INCOME IS $";U6" "LOOK UP THIS AMOUNT IN TAX RATE TABLES"# Q$;" AND ENTER YOUR TAX HE0R3R8U2! M03090)! J1U43200;! U432003160G! U41600Q! 3160]! U42200! "ARE YOU A QUALIFYING WIDOW OR WIDOWER WITH DEPENDENT CHILDREN ";!0 Y$!: (Y$,1)"Y"3160!D !N U43200!X U5U3U4!b U50U50!l U6D9U5 T ^ 2 h "MISCELLANEOUS DEDUCTIONS WILL BE"D m "DONE NEXT."J r P | s "ENTER ALL UNION DUES PAID ";{ R9 "ENTER ALL OTHER MISC. DEDUCTIONS SUCH ASCOST OF BOOKS, UNIFORMS, TOOLS, ECT "; U1 U2R9U1 ! U3P9Q7QLL CASUALTY LOSSES "; R4# h "ENTER ALL INSURANCE REIMBURSEMENTS FOR THE LOSSES (IF ANY). ";p R5} R6R4R5 R60R60  "ENTER 100 FOR EACH LOSS "; R7" , R60R706 R8R6R7@ R80R80J R8300İ5980ASH CONTRIBUTIONS YOU MADE ";%F R1+P Z "ENTER CASH VALUE OF OTHER CONTRIBUTIONS MADE SUCH AS CLOTHES, OLD FURNITURE AND ECT ";n R2x  R3R1R2 R3400İ5850   "LOSSES WILL BE DONE NEXT."   "ENTER APAID ON YOUR HOMEMORTGAGE ";$ Q8*  "ENTER ALL OTHER INTERESTS YOU PAID SUCH AS ON LOANS, CREDIT CARDS, AND ECT. "; Q9  Q0Q8Q9 Q0.1D9İ5810   "CONTRIBUTIONS WILL BE DONE NEXT."( 2 < "ENTER ANY CENTER ANY OTHER MISC. TAXES PAID EXECPT 'FICA' AND 'FEDERAL' THAT HAVE NOT"iL "ALREADY BEEN ENTERED ";qV Q6w` j Q7Q1Q2Q3Q4Q5Q6t Q7.1D9İ5710~  "INTEREST EXPENSES WILL BE DONE NEXT."   "ENTER THE INTEREST YOU 370 "* 380"4 :3200("> OLD ITEM#8"H I17::IA"R 390I"T NUm"V OPEN FILE #4,WRITE TO FILE #4u"X NU"\ "INPUT THE ITEM# ";:J9"f "p I1NU"z 350" J9N3510" 370" I" 380" 3200 # :"ENTER THE ITEM DATA AS TE TO FILE #4! NU1! 8! I61NU:350:370:I6_! "ENTER THE ITEM DATA AS FOLLOWS:"! "ITEM#, CLASS#, VENDOR#, DESC., COST, LOCATION, ON HAND, # SOLD THIS PERIOD, DATE OF LAST SALE OR PURCHASE, SELLING PRICE"! N,C,V,E$,O,L,H,S,A$,P" YPE A - 0 - TO EXIT THIS SECTION"G "TYPE A - 1 - TO ADD A NEW ITEM"q "TYPE A - 2 - TO UPDATE AN OLD ITEM"w ~ F F03190 F23190 F0530 F13290 F23390 NEW ITEM 390 OPEN FILE #4 NU ! WRI AGAIN"  / "TOTAL NUMBER OF ITEM = ";A15 ; A G X CLOSE FILE "WOULD YOU LIKE TO CHECK ANOTHER VENDOR ";& A$0 : N A$"Y"2800X 530b l I917::I9v "THIS IS THE UPDATING SECTION" ! "T "," ITEM# "," CLASS "," #ON HAND"," DESC."1@ :J A10CT A70L^ 390Tc NU`h I1NUor VA52960v| I 3000 V,N,C,H,E$ A71 A1A11 2940 A713030  "COULDN'T FIND THAT VENDOR IN THE INVENTORY LIST - TRY  530@ THIS SUB GENERATES THE VENDOR CODE LIST #5I A5T I1AZ a I "TYPE IN THE VENDOR CODE YOU WOULD LIKE TO SEARCH "; A5   " V E N D O R C O D E L I S T ";D$" , +6 " VENDOR # CODE#" ( 2 :< "TOTAL CLASS COST = ";:V$;B1\F "TOTAL NUMBER OF ITEMS =;B2P "TOTAL NUMBER OF PIECES =";B3Z d "WOULD YOU LIKE TO CHECK ANOTHER CLASS CODE (YES OR NO) ";n A$x   CLOSE THE FILE A$"Y"2330RIP. "," #ON HAND"," VENDOR#"# , A705 390= NUI I1NUX CA52520_ Ii 2580y C,N,E$,H,V B1B1HO B2B21 B3B3H A71 2500 A712610 "CAN'T FIND THAT CLASS CODE IN THE INVENTORY LIST RECHECKTHE ITEMS"5 "PRESENTLY ON YOUR INVENTORY RECORD."g "TYPE IN THE CLASS CODE YOU WANT SEARCHED:";o$ A5x. B108 B20B B30L V ` j " C L A S S C O D E L I S T ";D$t ~  " CLASS# "," ITEM# "," DESCAL LST SALES PERIODS = ";:V$;A2*NNU_"TOTAL NUMBER OF INVENTORY ITEM ON RECORD = ";Nen530 THIS SUB GENERATES AN INVENTORY LISTING BY CLASS #4A5I1AI  "THIS REPORT GENERATES A LIST BY CLASS CODE FROM 20 A30 A40390&NU2 I1NUB*N,C,V,O,E$R4L,H,S,P,A$`>A1A1OHnHA2A2PSzRA3A3H\fIpz CLOSE FILE"PRESENT INVENTORY COST = ";:V4;A1"TOTAL NUMBER OF PIECES = ";A3!"TOTvI11IO" L I S T O F I N V E N T O RY ";D$U[e3);" ITEM # "," CLASS # "," VENDOR #"," COST $"," DESCRIPTION""LOCAT# ","QUAN# "," #SOLD "," SEL PR$ ","LST DATE"A10A/5720/F/"YOUR LOSSES MAY CAUSE YOUR RETURN TO BE AUDITED."V/ X15000:\/4M.X"ARE GREATER THAN WOULD BE EXPECTED FOR YOUR INCOME. "c.b"THIS MAY CAUSE YOU TO BE AUDITED."i.lo.v.X15000:.."YOUR MEDICAL EXPENSES ";.5720.."YOUR INTERESTS ";.5720..."YOUR CONTRIBUTIONS ";HE"--"APPORIATE FORMS AND THEN SIGN THEM"Z-"IN THE CORRECT PLACES. BE SURE TO IN-"-"CLUDE ANY AND ALL SUPPORTING FORMS, IF"-"ANY, AND A CHECK IF YOU OWE THE GOVERN-"-"MENT ANY TAXES."-:::-5680-0-N"YOUR TAXES ";:"35",Q0,5);"36",R3),5);"37",R8:,5);"38",U2K,5);"39",U3\,5);"40",U4m,5);"41",U5{,X05300,"TYPE 'C' TO CONTINUE ";,Y$,255,"THIS FINISHES THE 1040 TAX PROGRAM."-"NOW YOU MUST FILL IN THE BLANKS ON TD$;"READ ";F$3'11000=8'NU: NUMBER OF FILES bB'216,0:TURN OFF ONERRL'NU010500: NO ENTRIES V'I1NU`'TI$(I)j'J0NFt'TTLE$(I,J)~'J:I)D$;"CLOSE ";F$:*// ERROR RECOVERY //*216,0:D$ ";Y$TI$(I)Y$+/// EXIT ///ND$;"OPEN ";F$:D$;"WRITE ";F$VNUjI1NU:TI$(I)J0NF:TTLE$(I,J):JID$;"CLOSE ";F$:D$;"LOCK "F$'/// INPUT FILE ///'D$;"UNLOCK ";F$$'D$;"OPEN ";F$ .'NT FILE NAME( (" G$ - CONTROL-G BELLF(" FI$ - FILE NAMES ARRAYb(" IN$ - KEYBOARD INPUT~((" M$ - DIRECTORY FILE2(" TD$ - TITLE OF DISK<(" Z$ - TEMPORARY STRING MS PER#'" RECORD (FIXED)>'" R - RECORD NUMBER['" SL - NEXT EMPTY SLOTq'" IN FILE'" V - VTAB'" Z - TEMPORARY STORE'" A$ - FIELD TITLES'" ARRAY'" D$ - CONTROL-D FOR DOS (" F$ - CURRE - HTAB&L'" I - GENERAL PURPOSEDV'" J - GENERAL PURPOSE a`'" LA - PTR LAST RECORD{j'" THIS RECORDt'" LL - RECORD LENGTH~'" (FIXED)'" NF - NUMBER OF ACTIVE'" FILES THIS DISK'" NI - NUMBER ITEASTER FILE#D$"OPEN "M$-#D$"WRITE "M$:#NF:TD$F#I1NFU#FI$(I):Id#D$"CLOSE"u#D$"OPEN "F$#D$"WRITE "F$$0:1$D$"CLOSE"$"$'"'"****PROGRAM COMMENTS*****$'".'" DEFINED VARIABLES -8'" B'" H #--OPEN DATA FILE AND INITIALIZE IT.>2#F$(IN$,4)M<#NF09110YF#I1NFjP#F$FI$(I)ıqZ#Id#NF659110n#24:x#G$"NO ADDITIONAL FILES AVAILABLE";:#I03000:I#:2000#NFNF1:FI$(NF)F$#1 #--OUTPUT M "F$^8070hD$"READ"F$+rNF,TD$<|216,0:D$:W--DISK ERROR RECOVERY_D$i:10"ENTER DISK VOLUME TITLE: ";TD$216,0D$"WRITE "F$0:NF=0TD$D$"CLOSE":D$"OPEN "F$:D$"READ "F$"".(FI$(J1):J+FI$(NF)"":D$"DELETE "IN$7&NFNF1R0--OUTPUT MASTER FILE c:D$"OPEN "M$uDD$"WRITE "M$NNF:TD$XI1NFbFI$(I):IlD$"CLOSE"v@--OPEN MASTER FILE AND INITIALIZE IT.JD$"CLOSE"TD$"OPEN$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$1HE": " FUTURE. NO SHORTAGES ALLOWED":ZV"5. DECISION TO STOCK AN INVENTORY ITEM":` " WHICH OPTION DO YOU CHOOSE "; G%a G%b G% 1 1c G% 2 101d G% 3 201f G% 4 301h G% 5 401~x$$$$$$$$$$$$"1. EOQ, CONSTANT DEMAND, NO SHORTAGES":" TOLERATED."|8:"2. EOQ, CONSTANT DEMAND, SHORTAGES TO BE": " ALLOWED.":B"3. E0Q FOR SPARE PARTS REQUIRED TO AVOID":" SHORTAGES. USAGE HISTORY ASSUMED.":*L"4. EOQ FOR TIME VARYING DEMAND IN T & HUNTINGTON S. SWANSON"::" (HARPER & ROW PUBLISHERS, 1975)"::" TRANSLATED FROM FORTRAN TO BASIC " :" BY F. PAUL WYMAN, FEB., 1978":"HIT SPACE BAR AND RETURN TO CONTINUE";A936$" SELECT ONE OF THE FOLLOWING OPTIONS:"::8.TY"::"AND STOCKING DECISIONS"J:"THE USER IS REFERRED TO CHAPTER 2":"AND APPENDICES 2.1-2.5 OF THE TEXTBOOK:" : "'OPERATIONS RESEARCH FOR IMMEDIATE":"APPLICATION: A QUICK & DIRTY MANUAL'"::" BY ROBERT E. D. WOOLSEY"h:"%,"ITEMS": 599vU"THIS ITEM SHOULD BE STOCKED"::"DON'T STOCK IT IF DEMAND FALLS AS LOW AS",IQ%;" ITEMS PER YEAR"W::" DO ANOTHER (Y/N):";Q$:Q$"Y" 500:1050936:"THIS IS A COLLECTION OF INVENTORY"::"CONTROL PROGRAMS FOR ORDER QUANTIFOLLOWS:"C# :"# ON HAND, # SOLD THIS PERIOD, DATE OF LAST SALE"O# H,S,A$Y# 3470_# y# D$;"RUN MASTER MENU"# D PLAY, HIT RETURN":U$:A:B55uX(218)(219)256B:uY(222)YPM0:D0:YR0:3040_QÀU(Q,1)A(P,1):A(Q,2)A(P,2):A(Q,3)A(P,3):A(Q,4)A(P,4):A(Q,5)A(P,5)K>QZ>A(0,1)100i>Q101450>A(Q,1)0:A(Q,2)0:A(Q,3)0:A(Q,4)0:A(Q,5)0>Q>5000PFPAP120:110300u"ERROR HAS BEEN DETECTED;SAVE DATA ON TAPE. PRESS RECORD AND$;"READ ";F$;", R0"3#':REREAD LAST, SLOT F EXIT ";:"";Y$:("' --INITIAL FILE--H"'D$;"OPEN ";F$;", V0, L";LLT"'10100n"$'D$;"READ ";F$;", R0"}".'LAST,SLOT"8'216,0:D$:"t'216,0:D$"y'D$;"WRITE ";F$;", R0""~'0:1: LAST=0: SLOT=1"'D$;"OPEN ";F$;", V0, L";LL#'N ";F$;", L";LL!#PT0:QT0+!#I1LASTF!#D$;"READ ";F$;", R";I\!#J0NF:I$(J):Jx!#P1(I$(P)):Q1(I$(Q))!#QTQTQ1:PTPTP1Q1!#I!#D$:DOS TURNOFF!#:"TOTAL QUANTITY: ";QT!#:"TOTAL VALUE: $";PT"$:"PRESS RETURN TO<#:" FIELD DEFINITIONS:":? F#I0NF:A$(F,I)""ĺ:9050[ P#I1;". ";A$(F,I):I: Z#"NUMBER OF ITEM WHICH IS 'QUANTITY':";:"";Q$:Q(Q$)1:Q1QNF9050 d#"NUMBER OF ITEM WHICH IS 'PRICE: ";:"";P$:P(P$)1:P1PNF9060!#D$;"OPEVAILABLE THIS DISKETTE. USE MASTER FILE CREATE PROGRAM TO INITIAL- IZE DATA FILES!":dhI1NUzrI;". ";TI$(I):I:"FILE NUMBER: ";FF1FNU8130F$TI$(F)10000:INITIALIZE FILE(#---SUM FIELDS---2#F$""İ8000 R";RBI0NF:I$(I):I/LD$;"CLOSE";F$:5WEX---EXIT---UbD$;"CLOSE"]lD$cvx@ ---NEW FILE---J:"CURRENT FILE IN USE: ";LF$""Ğ:"NONE":NF$""ĺF$T:"AVAILABLE FILES THIS DISKETTE:"X^:NU0ĺ"NO FILES A I1:15$"";Y$:Y$""ī61501I$(I)Y$FI1:15:I$(I);MIl958:CLEAR BOTTOM SCREEN$::"ARE THESE CHANGES CORRECT? ";Y$:(Y$,1)"Y"6200.:"DO YOU WISH TO CORRECT IT? ";Y$:(Y$,1)"Y"607038D$;"WRITE ";F$;", :"CONTINUE SEARCH? ";Y$:Y$(Y$,1)2Y$"N"ı<6046qRI:D$;"READ ";F$;", R";R:I0NF:I$(I):I:D$:10:"PRESS 'RETURN' IF NO CHANGE NEEDED"1I0NFA$(F,I);:15:I$(I)II0NFA$(F,I)""I$(I)"":6160CH$)0ıR(SEARCH$)>I1LAST:D$;"READ ";F$;", R";IgTEST$:(TEST$,R)SEARCH$ĺD$:6050nID$:"PART NUMBER NOT FOUND! PRESS RETURN":"";Y$:D$::"FOUND PART NUMBER ";TEST$:"UPDATE IT? ";Y$:Y$(Y$,1)Y$"Y"6060$N THIS FILE. PRESS 'RETURN' ";Y$:CD$;"OPEN ";F$;", V0, L";LLQI1LASTZ100aIkD$:}p---UPDATE---uF$""İ8000zD$;"OPEN ";F$;", V0, L";LL:"ENTER PART NUMBER OF ITEM TO UPDATE":"(0) TO EXIT: ";SEARCH$(SEARER SEARCH VALUE OF ";A$(F,Q):"";SEARCH$GR(SEARCH$):I1:R14030UIILASTpD$;"READ ";F$;", R";IJ0Q:TEST$:J:D$(TEST$,R)SEARCH$İ100I---LIST INVENTORY---F$""İ8000D$#LAST0ĺ:"NO DATA I:SLOT D$;"CLOSE":3---SEARCH FOR ITEM---DF$""İ8000dD$;"OPEN ";F$;", V0, L";LLr:I0NFA$(F,I)""ĺ:4020I1;". ";A$(F,I):I:"NUMBER OF ITEM TO SEARCH - ";:"";Q$:Q(Q$):Q1QNF14020QQ1:("ENT PART NUMBER ";TEST$:"DELETE IT? ";Y$:Y$(Y$,1)B! Y$"Y"3200k& :"CONTINUE SEARCH? ";Y$:Y$(Y$,1)y0 Y$"N"ı: 3070 D$;"WRITE ";F$;", R";I J0NF::J ISLOTSLOTR ILASTLASTLAST1 D$;"WRITE ";F$;", R0" LAST+D$;"WRITE ";F$- +0: CREATE NULL RECORD_+D$;"CLOSE ";F$:D$;"OPEN ";F$:D$;"READ ";F$e +L1PAz+YA(L,2)#+Y1A(L1,2)3+L1,Y1L,Y:+LA+2M+L1PAZ+YA(L,4)j+Y1A(L1,4)z+L1,Y1L,Y$,"TEMPORY END AFTER PLOT":>:"DATA TABLE IS FULL"::"PUT NEW BLANK TAPE IN RECORDER">P349>Q1100>PP1D>A SEE PLOT OF MOVING INDICATOR? (Y/N)":U$:(U$)7811005? +F+3W+P28018000`+PAPl+L1PA +XA(L,1):X(X100)%+YA(L,3)*+Y1A(L1,3)4+L1,Y1L,Y>+(L20)L2011100H+LR+11110\+L,:Lf+1g+PAP120p+RE DATA? (Y/N)":U$:(U$)893000|*:"STORE DATA ON DATA TAPE"::"PRESS 'RECORD' AND 'PLAY' THEN HIT RETURN":U$:A:B**:"HAVE CURRENT MARKET DATA NEXT TIME PROGRAM IS RUN. DO NOT SKIP ANY MARKET DAYS"::"END"*9+:"DO YOU WANT TO1000T':"CAUTION ! INDICATOR IS ";A(P,3)" MARKET NEAR INTERMEDIATE HIGH":11000<(:"CAUTION! INDICATOR IS ";A(P,3)" MARKET NEAR INTERMEDIATE LOW":11000(:"INDICATOR IS ";A(P,3)" MARKET MOVING SIDEWAYS":11000"*:"DO YOU WISH TO ENTER MOICATOR IS "A(P,3)" MARKET ABSOLUTELY PRIMED TO GO DOWN !"I':11000t'::"SUSPECT END OF LONG TERM BULL MARKET!!!"::"SHORT TERM MARKET FORCAST FOLLOWS"::10120'::"INDICATOR IS ";A(P,3)" MARKET ABSOLUTELY PRIMED TO GO UP "::1NEEDED"^30000DETERMINE LONG TERM TREND8X0FQPP30\VA(Q,2)1(Q1,2)jV08500tXX1{Q4!XX1:Q'::"SUSPECT END OF LONG TERM BEAR MARKET!!!"::"SHORT TERM MARKET FORCAST FOLLOWS"::10010<'::"IND2110100 A(P,3)49102006A(P,3)3010300A10400WA(P,3)8010010lA(P,3)3010100A(P,3)3610120A(P,3)6410200A(P,3)451030010400?LOADS TABLE FIRST TIMEJ"TEN CONSECUTIVE DAYS OF MARKET DATA AY A/D= "MS:"10 DAY MKDS= "MV;" ("Q")":"10 DAY ADV. VOLUME= "TVRP1008100:"INSUFFICIENT DATA TO PROJECT LONG TERM TREND OF MARKET"::"IS THE PRIMARY TREND UP? (Y/N)":U$:(U$)895610A(P,3)7010000A(P,3)6010010 A(P,3)0000:TV(TV10.5)(10.5)8"MS(MS10.5)(10.5)A,R,Vm-R0ĺ"DATA ERROR! RUN PROGRAM AGAIN":|6MVR5500@R1,V1JMVR15540TMVR15420^QR1MVhQ.035540|:QV:5550:QV1A(P,3)(MSQTV)2B"10 DDS B(PT,4)AV! B(PT,5)DV0 P1030009 MS0Y Q110:MSMSB(Q,2)B(Q,3)` Qi MV0 Q110:MVMV(B(Q,2)B(Q,3))(B(Q,4)B(Q,5)) Q TV0 Q110:TVTVB(Q,4) Q MVMV10:MV(MV102.5)(102.5)TVTV1PP1 P45116000$ A(0,1)P@ A(P,1)M10000D100YRN A(P,2)NYj A(P,4)A(P1,4)(ASDS)x PTB(0,1) (R010:RPT05180 2R <R1005200 FPTR1:5210 PPT1 ZB(0,1)PT B(PT,1)M100D B(PT,2)AS B(PT,3)UMBER OF ADVANCING STOCKS";:AS:P  "ENTER NUMBER OF DECLINING STOCKS";:DS:| "ENTER ADVANCING VOL.IN 1000'S";:AV: "ENTER DECLINING VOL.IN 1000'S";:DV: : :" IS ALL DATA CORRECT? (Y/N) ":U$:(U$)783060 :::::: 00 MYA(P,1):M(MY10000)4 D(MY100)M100L YRMY(MY100)100R :"LAST MARKET DATA WAS FOR "M","D","YR: "NEXT DAY'S MARKET DATA NEEDED" :"ENTER DATE AS M,D,Y ";:M,D,YR: "ENTER NYSE COMPOSITE";:NY:!  "ENTER N ( " STOCK MARKET FORCASTER":Q "DAILY MARKET DATA IS NEEDED"::: :"IS THERE A DATA TAPE? (Y/N) ":U$::(U$)788010 "LOAD PREVIOUS MARKET DATA FROM TAPE"::"PRESS 'PLAY' AND HIT RETURN":F$ A:B PA(0,1) P0500` A(450,5)B(10,5)-A(0,4)50000FdDATA FOR MKDS VALUE e.75,8.5,.8,8,.85,7.5,.9,7,.95,6.5,1,6,1.05,5.5,1.1,5,1.15,4.5,1.2,4,1.25,3.5,1.3,3,1.35,2.5,1.4,2,1.45,1.5,1.5,1,1.55,.5,1.6,0,1.65,-.5,1.7,-1,1.75,-1.5,1.8,-2,1.85,-2.5,1.9,-3,0,0           TO EXIT: ";SEARCH$' (SEARCH$)0ı8 R(SEARCH$)] I1LAST:D$;"READ ";F$;", R";I} TEST$:X(TEST$):X03100 (TEST$,R)SEARCH$ĺD$:3100 I D$:"PART NUMBER NOT FOUND! PRESS RETURN.":"";Y$: D$:30201 D$::"FOUNDASTSLOT19\:"MORE ADDITIONS? ";Y$:(Y$,1)"Y"2070TfD$;"WRITE ";F$;", R0"dpLAST:SLOTxzD$;"CLOSE ";F$~  ---DELETE FROM INVENTORY F$""İ8000 D$;"OPEN ";F$;", V0, L";LL :"ENTER PART NUMBER OF ITEM TO DELETE":"(0)F$;", R";I#%I$(0):I$(0)""ĂIP*SLOTI:D$: EXPLICIT DOS TURN OFF^4:I0NF}6A$(F,I)""I$(I)"":21088A$(F,I);" - ";:17:"";I$(I)<I>D$;"WRITE ";F$;", R";SLOTHI0NF:I$(I):IMD$ RSLOTSLOT1:SLOTLASTL*********---ADD TO INVENTORY---l:"DO YOU WISH TO ADD TO THE INVENTORY? ";Y$:(Y$,1)"Y"ırF$""İ8000D$;"OPEN ";F$;", V0, L";LLLAST0SLOTLAST2100SEARCH FOR EMPTY RECORD  ISLOTLAST:D$;"READ ";TI$(I) J0NF:A$(I,J):J&I;D$;"CLOSE ":D$yOP7:1120: PRESELECT NEW FILE OPTIONL***CONTROL LOOP***QV900GET OPTION -OP-`OP2000,3000,4000,5000,6000,7000,8000,9000j1100t********** FIELDS PER RECORD 9NX20:MAX NUMBER OF FILESWI$(NF),A$(NX,NF),TI$(NX)OPERATIONAL PROGRAM WILL HAVE CONTROL-S INSERTE D 'INVISIBLY' IN FILE NAME!!! D$;"OPEN MASTER.FILE"D$;"READ MASTER.FILE"NUI1NU:T OP$ TO NUMBER OP THIS WILL HELP CONTROL ERRORS IN INPUT._OP(OP$):OP1OP8950e---INITIALIZE PGM---LL60:RECORD LENGTH'NF' CANNOT BE CHANGED WITHOUT CHANGING SAME VARIABLE IN MASTER FILE CREATE!!NF9:TION---#5)TI$(F);" INVENTORY":"1. ADD TO INVENTORY":"2. DELETE FROM INVENTORY":"3. SEARCH FOR ITEM":"4. LIST INVENTORY""5. UPDATE ITEM":"6. EXIT":"7. NEW FILE":"8. SUM FIELDS":"ENTER OPTION NUMBER - ";OP$BCONVER1NFA$(F,QQ)""180?QQ1;". ";A$(F,QQ);:20:I$(QQ)GQQy:"'RETURN' TO EXIT.":"'SPACE' TO CONTINUE"16368,0X(16384):X128200X160Ĺ1668,0::'SPACE' X141Ĺ16368,0:::'RETURN' 190---INTRODUC! c"***************************"3 dREAD & PRINTV iENTER ROUTINE WITH I=RECORD # n:3:5:F$;" INVENTORY":30:"RECORD #" xD$;"READ ";F$;", R";I QQ0NF:I$(QQ):QQ:D$ I$(0)""ı D$:"1. ";A$(F,0);:20:I$(0);:35:IQQ "3 <"***************************"U =" --FILE FORMAT-- "w >" -FIXED LENGTH RECORDS-- " ?" -RECORD LENGTH=LL-- " @" -RECORD 0:SLOT,LAST " A" -RECORD 1 TO LAST : I$ " B" ""# 4"SEARCH$-SEARCH FOR MATCH "E 5" ON THIS VALUE "g 6" TEST$ -ITEMS TO MATCH WITH" 7" SEARCH$ " 8" Q1,QT -QUANTITY, TOTAL Q1 " 9" P1,PT -PRICE, TOTAL VALUE " :" P,Q -PRICE, QUANT INDEX " ;" ES/NO INPUT "5 *" I -GENERAL INDEX "W +" J -GENERAL INDEX "y ," R -RECORD NUMBER " ." F -FILE NUMBER " /" F$ -CURRENT FILE NAME " 0" TI$ -FILE NAMES " 2" Q -SEARCH FIELD NUMBER "% " D$ -CONTROL D "G " QQ -GENERAL INDEX "i " I$ -INDIVIDUAL FIELDS " "" A$ -FIELD TITLES " #" NF -NUMBER OF FIELDS " $" LL -RECORD LENGTH " &" OP -OPTION " (" Y$ -Y5D$"":CONTROL-D- D$;"NOMON C,I,O"71000Y"***************************"{" "" --VARIABLES USED-- "" "" LAST -LAST RECORD IN FILE" " SLOT -FIRST OPEN RECORD              :"(ENTER '0' TO EXIT):?B "NUMBER OF FILE TO RENAME: ";IR I1INUıb 2300:LIST :"DO YOU WISH TO RENAME THIS FILE? ";Y$:Y$(Y$,1):(Y$"Y"Y$"N")3550 Y$"N"ı :"NEW NAME: ";Y$ Y$Y$S$ D$;"RENAME ";TI$(I);",TEMP SAVEZ :"DO YOU WISH TO DELETE THIS FILE? ";Y$:Y$(Y$,1):(Y$"Y"Y$"N")3040h Y$"N"ıt NUNU1 INU3200 KINU TI$(K)TI$(K1) J0NF:TTLE$(K,J)TTLE$(K1,J):J& K D$;"DELETE ";A$  /// RENAME ///A$S$ I1NU' TI$(I)A$ī2750= I:TI$(NU1)A$:[ ::"DUPLICATE FILE"::g :2510m  /// DELETE /// :"(ENTER '0' TO EXIT)": "NUMBER OF FILE TO BE DELETED: ";I I1INUMBERı 2300:PRINTFILE  A$TI$(I):2570  IK :"IS THIS CORRECT? ";Y$:Y$(Y$,1):(Y$"N"Y$"Y")2570Y Y$"N"ıe NUNU1 THIS NEXT STEP ADDS A CONTROL-S TO FILE NAME FOR SECURITY# TI$(NU)TI$(NU)S$( D$;"OPEN ";TI$(NU):D$;"CLOSE ";TI$(NU)2  A$ UP TO ";NF1;" FIELD TITLES.":"SIMPLE CARRIAGE RETURN ENDS LIST:": I0NF:TTLE$(NU1,I)"":I:BLANKOUT POSSIBLE PREVIOUS ATTEMPT "1. PART NUMBER":TTLE$(NU1,0)"PART NUMBER" I1NF I1;:". ";TTLE$(NU1,I):TTLE$(NU1,I)""FIELDS: ":J0NF:TTLE$(I,J)""ı> J1;". ";TTLE$(I,J):JD X /// CREATE ///^  "DO YOU WISH TO CREATE A NEW FILE? ";Y$:Y$(Y$,1):(Y$"N"Y$"Y")2510 Y$"N"ı :"ENTER FILE NAME - ";A$ 2700:CK DUPLICATEE :"ENTER00 j1000/// LIST ///(:I17INU2200G2300:LISTQ II1:"PRESS ";::"RETURN";::" TO CONTINUE"Q(16384):Q128221016368,0INUı:2030// PRINT FILES // :"FILE ";I;" - ";TI$(I)" "INPUT FILE 5:5:"MASTER INVENTORY FILE CREATE"M:"1. LIST FILES"h"2. CREATE NEW FILE""3. DELETE FILE""4. RENAME FILE""5. EXIT"L:"ENTER OPTION - ";OP$VOP(OP$):OP1OP51000`OP2000,2500,3000,3500,40R OPERATIONAL USE. HERE SET TO NULL STRING FOR DEBUGGING \S$"":NULL (NOTHING)tF$"MASTER.FILE"S$D$;"NOMON C,I,O"'NX' & 'NF' MUST BE SAMEHERE AND IN INVENTORY PROGRAMNX20:NF9TI$(NX),TTLE$(NX,NF) 10000: " "? " NU; (TI$(I);(TTLE$(I,J);"_ " J = 0 TO NF), I = 1 TO " " NU ) " *" " +"*************************" D$"":CONTROL-DB 'S$' WILL BE SET TO CONTROL-S FO ~" OP$ - OPTION "? " I,J - INDEX "_ " Q,A$ - GENERAL PURPOSE" " NF - # OF FIELDS/REC" " NX - MAX # OF FILES " " " "*************************" " FILE FORMAT " n" NU - # OF FILES "? p" TI$ - FILE NAMES "_ r" TTLE$ - FIELD TITLES " t" D$ - CONTROL-D " v" S$ - CONTROL-S " x" (SECURITY) " z" F$ - MASTER.FILE " |" Y$ - YES/NO INPUT " AND CUSTOMERS WILL NOT *"; 4"* BE ABLE TO 'ACCIDEND- *"\ 6"* ALLY' DELETE YOUR *"} 8"* FILES!!! *" b"* *" c"**************************" d" VARIABLES - " l" "PORTANTLY DE- *"3 $"* DELETING FILES! *"T &"* A SPECIAL TRICK OF *"u ("* USING NONPRINTABLE CON-*" *"* TROL CHARACTERS IS USED*" ,"* TO MAKE THE NAMES OF *" ."* FILES BE KNOWN TO YOU *" 0"* ONLY. YOUR EMPLOYEES *" 2"*g 900+ "**************************"L"* MASTER FILE CREATE *"m"* *""* THIS PROGRAM IS YOUR *""* PRIMARY CONTROL OVER *""* CREATING NEW FILES, *" "* RENAMING FILES, AND *" ""* MOST IM        PROGRAM ESPECIALLY FOR MY COMPANY" ("IT'S SPECIAL FEATURES ARE INSTANT UP- DATING,INSTANT TOTALLIZING OF INVEN- TORY AND VALUE,AND A RUNNING TOTAL OF" 2"SALES AND STOCK ADDITIONS." < O/ ::"A FEW WORDS ABOUT SKIP'S PROGRAMS.""SKIP'S INV.1 IS AN IMMEDIATE UP-DATE PROGRAM. THE FIRST 4 CHARACTERS OF THE PART NUMBER CONSTITUTES THE FILE NAME."& "ALSO, THE FIRST CHARACTER MUST BE A LET-TER, NOT A NUMBER. SKIP CREATED THIS z#    Ү٠ Ƞ  !٠ԠĠ"ٮٮàٮŠŠٮŠĠ ˠԠҠˠΠ  ŠؠҠ)٠٠٠ԠŠ٠٠Šɠ٠̠٠ԭӠˠ ٠ԠӠŠŠԠŠǠĠŠ4ӠŠ:ˠ ĠӠŠ"GIVEN FOR SOME PARAMETERS AS A GUIDE"S::" HIT RETURN TO BEGIN --> ";Q$YmZERO VARIABLESM0:M10:M20:M30:"END"::DOVSKY METHOD OF STOCK VALUATION"L"IS USED IN THIS PROGRAM.IT REQUIRES"{"THE USER TO ESTIMATE CERTAIN PARAMETERS""ABOUT A COMPANY AND ITS STOCK.""REMEMBER THE MODEL IS ONLY AS GOOD ""AS THE ESTIMATES! HISTORICAL VALUES ARE"' ";R100;"%"8"------------------------------------"^"<> INTRINSIC VALUE: $";M3;" <>"d vTEST FOR END~ :*"TEST ANOTHER STOCK?";Q$4(Q$,1)"Y"1030>HINSTRUCTIONSR190\" STOCK VALUE"f!"THE MOLO*INTRINSIC VALUE OF ";S$;"**"J"-------------------------------------"r"INITIAL GROWTH RATE: ";G100;"%""RESIDUAL GROWTH RATE: ";G1100;"%""NORMALIZED EARNINGS: $";E"PRESENT PAYOUT RATIO: ";P100;"%" "DISCOUNT RATIO: # &"ENTER RATE AS A PERCENTAGE ";. 0" ";R: :RR100@ D_ NCALCULATE INTRINSIC VALUEj XH1N bM(E((1G)H)P)(1R)H lM1M1M v M2(E((1G)N)(1G1)P)((RG1)(1R)N) M3M2M1  FORMAT OUTPUT 190"* PAYOUT RATIO :6 "ENTER PAYOUT RATIO FOR "S$Z "THE HISTORICAL FIGURE IS 67%"y "ENTER AS A PERCENTAGE ", " ";P PP100  FIND DISCOUNT RATE : "ENTER THE DISCOUNT RATE" "THE HISTORICAL AVERAGE VALUE IS 7%"RATE OF GROWTH"5 J"FOR ";S$,". REMEMBER,2% IS THE"Q L"HISTORICAL FIGURE ";] T" ";G1k ^G1G1100q h rFIND NORMALIZED VALUES |: "ENTER YOUR ESTIMATE OF NORMALIZED" "EARNINGS PER SHARE FOR ";S$;" "; " ";E  FINDD GROWTH RATE"K "FOR ";S$;" ENTER IT AS A PERCENTAGE. HIT RETURN -->";V " ";Gb GG100 :"ENTER THE NUMBER OF YEARS THIS GROWTH RATE IS EXPECTED TO CONTINUE ";N " ,FIND RESIDUAL RATE OF GROWTH 6: @"ENTER EXPECTED RESIDUAL EARNINGS% 430:FIND PAYOUT RATIOC 510:ENTER DISCOUNT RATEg 590:CALCULATE INTRINSIC VALUE 670:FORMAT OUTPUT 790:TEST END 70 CLEAR SCREEN FIND INITIAL RATE OF GROWTH : "ENTER SHORT TERM EXPECTE "STKVALUE" 8408(INTRINSIC VALUE OF STOCKW2USES THE MOLODOVSKY MODELl<BEGIN MAIN LOOPuF190P1000:ZERO VARIABLEZ"ENTER CORPORATE NAME ";S$d220:FIND INITIAL GROWTHn300:FIND RESIDUAL GROWTH x370:NORMALIZED      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 E D#(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$" "  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    " GOI";32((G2)));G2:AAE2:5000:E2AAj"EXPENSE RATIO (";E1;"%)";32((E2)));E2AAG3:5000:G3AA"" NOI";32((G3)));G3,"HIT RETURN TO CONTINUE";1Q$:9366" FINANCING NOI ";40((G3)));G310 dP90nT10xI1J.P8P8U(I)5IAT1P8CTP9(T1P5)100`TT1A7j936AAG1:5000:G1AA"SCHEDULED GROSS";32((G1)));G1AAV2:5000:V2AA"VACANGY (";V1;"%)";32((V2)));V2AAG2:5000:G2AA$I)Q(I)T)(T1)I"I1J+T107T3M(I)CK112RT2T3Q(I)cT(I)T(I)T2wT3T3(R(I)T2)~KII1J V(I)R(I)12U(I)V(I)T(I)CCV(I)(N(I)90013402U(I)0<IFP7(CP5)100ZP8"990A6A4Y210900H$"DDB"1020AA6(A4Y2)2K1080`H$"125%"1060tA6(A4Y2)1.25~1080$H$"150%"650.A6(A4Y2)1.58A7A5A6VZ51280`I1JjQ(I)O(I)1200tT(1Q(I))N(I)~R(I)(M(E2  CG3 P2(G3100)P1+*P3P1N184P4P1F1D>P5P1LWRA3(A1100)P1j\A4(A2100)P1|fD$"SL"900pA5A3Y1z1080D$"DDB"930A5(A3Y1)21090D$"125%"600A5(A3Y1)1.251080H$"SL ";Y1:,"PERSONAL PROPERTY DEPR"P"DDB, SL, 125% OR 150% ";ZH$:z"PERSONAL PROPERTY PERIOD""IN YEARS ";Y2:Y2710V2(V1100)G1G2G1V2P6P1G2E2(E1100)G2G3G2:A1:'D"PERCENTAGE ALLOCATION TO"KI"PERSONAL PROPERTY ";UNA2:uX"WHAT IS THE DEPRECIATION"]"METHOD TO BE USED ON THE"b"BLDG DDB, SL OR 125% ";lD$:v"BUILDING DEPRECIATION"{"PERIOD IN YEARS ";N(I);" ";:O(I)+I6n" ";I;" ";" ";M(I);" ";N(I);" ";O(I);" "{LLM(I)IY2710!936&"FOR DEPRECIATION PURPOSES,"("WHAT IS THE PERCENTAGE"*"ALLOCATION TO THE BUILDING ";ERM TO 10000"::II14:M(I)0:N(I)0:O(I)0:T(I)0:U(I)0:V(I)0:Ix"MTG # AMOUNT ($) TERM (MOS) INT RATE"~I1J:I6" ";I;" ";:M(I):I6" ";I;" ";" ";M(I);" ";:N(I)I6"" ";I;" ";" ";M(I);" E PRICE "; @P1:- JY2710L T"HOW MANY MORTGAGES WILL"h W"THERE BE AGAINST THE" Z"PROPERTY "; ^Z5:J:L0: h"HIT RETURN TO CONTINUE ";:C$:936 |"FOR BALOON OR INTEREST ONLY MORTGAGES""SET TE RATIO", "(PCT) RELATED TO THE GOI ";6 E1:C Y2710^ "HOW MANY UNITS DOES" "THIS BUILDING HAVE "; N1: ""HOW MANY SQUARE FEET" '"DOES THIS BUILDING HAVE "; ,F1: 6"WHAT IS THE PROPOSED" ;"PURCHASNTS." * "HIT RETURN TO CONTINUE";2 C$< 936V "WHAT IS THE YEARLY"z "SCHEDULED GROSS INCOME "; G1: Y2710 "WHAT IS THE VACANCY" "ALLOWANCE IN PERCENT "; V1: Y2710 "WHAT IS THE EXPENS" " TAXABLE INCOME."! N "IN ADDITION, CAP RATE IS COMPUTED, AS"T v "WELL AS PRICE PER SQ FOOT."| "PARAMETERS, SUCH AS MORTGAGE INTEREST" "RATES CAN BE VARIED TO SEE THEIR"  "EFFECT ON THE PROFIT COMPONE"OF PROFIT RELATED TO THE PURCHASE "* aJ d"OF AN APARTMENT BUILDING.P fu i"THE COMPONENTS OF PROFIT ARE;" n" GOI - GROSS OPERATING INCOME" s" NOI - NET OPERATING INCOME" x" CASH FLOW OR SPENDABLE INCOME" }" EQUITY INCOME DIGITS2:LINE0)M(5),N(5),O(5)GQ(5),R(5),T(5),U(5),V(5)d(AA$(10),BB$(10),CC$(10)n2936<"DO YOU NEED HELP WITH THIS PROGRAM":"Y=YES N=NO ";:C$PC$"N"170U936Z"THIS PROGRAM COMPUTES THE COMPONENTS"\$ _          W $";(R100.5)100H"FROM YOUR ACCOUNT";N;"TIMES EACH YEAR,"Nt"FOR";Y;"YEARS WITHOUT REDUCING"z"YOUR INITIAL INVESTMENT."::"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$(Y$,1)"Y"İ9020:40021 INVESTMENT R"ENTER AMOUNT OF INITIAL INVESTMENT";PQ"ENTER NOMINAL INVESTMENT RATE";IW"ENTER THE NUMBER OF WITHDRAWALS EACH YEAR";N"ENTER THE NUMBERS OF YEARS";YIIN100RP(I((1I)(NY)1)I)::"YOU MAY WITHDRALAR DEPOSITS OF $";(R100.5)100;" FOR "OO;Y;" YEARS WILL YEILD $";T;" ."WQ:T:"DO YOU WANT TO RUN ANOTHER (Y/N)";Y$Y(Y$,1)"Y"İ9020:300^219020:90005)"#4 REGULAR WITHDRAWALS FROM"14)"AN INVESTMENT":9000*NT" .9000:/"ENTER THE TOTAL VALUE AFTER Y YEARS";T@0i1"ENTER THE NOMINAL INTEREST RATE";Io26"ENTER MUNBER OF DEPOSITS EACH YEAR";N7;"ENTER THE NUMBERS OF YEARS";Y@IIN100ERTI((I1)(NY)1)G:*J"REGU;YIIN100*TR((1I)(NY)1)I0[10)"FUTURE VALUE =$";(T100.5)100":::"WANT TO RUN ANOTHER (Y/N)";Y$$(Y$,1)"Y"İ9020:208&21,9020:9000-" #3 FUTURE VALUE OF AN ANNUITY OR SAVINGS ACCOU" #2 FUTURE VALUE OF REGULAR DEPOSITS"?15)"(ANNUITY)"K:9000t"ENTER AMOUNT OF REGULAR DEPOSIT";Rz"ENTER THE NOMINAL INTEREST RATE";I"ENTER THE NUMBER OF DEPOSITS EACH YEAR";N"ENTER THE NUMBER OF YEARS"OF COMPOUNDING PERIODS EACH YEAR(N)";N,S"ENTER THE NUMBER OF YEARS (Y)";YYgIIN100{TP(1I)(NY)"FUTURE VALUE=$";(T100.5)100::"WANT TO RUN ANOTHER (Y/N)";Y$(Y$,1)"Y"İ9020:99219020:9000*9Z14Z1Z13<; Z11400,1500,1600,1700,1800,1900,2000D<21Tc9020:9000d" #1 FUTURE VALUE OF AN INVESTMENT"ef9000n"ENTER THE INITIAL INVESTMENT (P)";Psx"ENTER THE NOMINAL INTEREST RATE (I)";Iy&"NUMBER TE" *`+"(10) ANNUAL DEPRECIATION RATE ";" (20) MORTGAGE AMORTIZATION TABLE"j.90000"SELECT A PROGRAM BY NUMBER AND THEN"150,63:"PRESS RETURN":50,2552Z7Z99,208,300,400,500,600,700,800,900,1000,1100,1200,1300 %"(7) NOMINAL INTEREST RATES ";" (17) REMAINING LOAN BALANCE"V & '"(8) EFFECTIVE INTEREST RATES ";" (18) LOAN REPAYMENT PERIODS" ()"(9) EARNED INTEREST TABLE ";" (19) LOAN ANNUAL INTEREST RA"(5) MINIMUM INVESTMENT FOR INCOME";" (15) LOAN PAYMENT SCHEDULES"z "9000:"PRESS RETURN TO CONTINUE DISPLAY" #M$:9020:9000:19)"MENU PAGE-2":9000 $"(6) INCOME FROM INVESTMENTS ";" (16) FINAL LOAN PAYMENT":PFUTURE VALUE OF ANNUITY ";" (12) SALVAGE VALUE YEAR END"M  "(3) FUTURE VALUE OF SAVINGS ";" (13) DISCOUNTED COMMERCIAL PAPER"  "(4) WITHDRAWALS FROM INVESTMENT";" (14) LOAN PRINCIPAL" L !N THE" "KEYBOARD...":9000G "PRESS RETURN TO DISPLAY MENU":M$Q 9020r 9000: MAKE A LINE OF ----- 19)"MENU PAGE-1" :9000 "(1) FUTURE VALUE OF INVESTMENT";" (11) DEPRECIATED INVESTMENT" G "(2) "INCLUDED ARE PROGRAMS WHICH EXAMINE"R "INVESTMENTS,SAVINGS AND ANNUITYS,"~ "MORTGAGES AND LOANS,DEPRECIATION AND" "AMORTIZATION SCHEDULES,AND MUCH MORE..." :"SELECT A PROGRAM FROM THE MENU BY" "ENTERING THE APPROPRIATE NUMBER O*2936:9000Z$(5)K" **** BANKING AND FINANCIAL ****"VM$(5)q:(I);17)"PROGRAMS"{9000 "THIS SERIES OF PROGRAMS IS DESIGNED TO" "AID CONSUMERS AND BUSINESSES IN LONG" "OR SHORT RANGE BUSINESS PLANNING.")               )'"ENTER NUMBER YEARS...........#";Y5':9900>'100y'10);"SALVAGE VALUE = $";(100P(1I5100)Y.5)100'255':9900'"WANT ANOTHER RUN (Y/N) ? ";A$'A$"N"10222'10200'90[+\+34,10:^+:!`+:"ENTETION= $";(D100.5)100!'255''1'9900U'"WANT ANOTHER RUN (Y/N) ? ";A$d'A$"N"90o'10100{'34,8:'11);"*** SALVAGE VALUE ***"':'"ENTER ORIGINAL PRICE.........$";P''"ENTER DEPRECIATION RATE......%";I5:z'{'9000|'D~'"ENTER ORIGINAL PRICE..............$";PJ'y'"WHATS THE DEPRECIATION RATE.......%";I5''I5I5100'"ENTER NUMBER OF YEARS.............#";Y''DPI5(1I5)(Y1)'9900'100'12);"DEPRECIA MANY YEARS...#";Y,$'D100(1(TP)(1Y))=%':9900:100z&'" THE DEPRECIATION RATE IS = ";(1000D.5)1000;"%"''255::9900)'"WANT ANOTHER RUN (Y/N) ? ";A$+'A$"Y"10004-'90t'v'9000x'7);"((( DEPRECIATION AMOUNT )))"HICH (1-2) ? ";A$#A$"1"151002A$"2"90N(#I139:"*";:I:"*":j&I139:"-";:I:"-":w'34,10:':'"ENTER THE ORIGINAL VALUE.........$";P''"ENTER THE RESALE PRICE...........$";T''"DEPRECIATE OVER HOW ::""WHICH (1-3) ? ";A$4A$"1"14100FA$"2"14200UA$"3"90[per9000t11);"((( AMORTIZATION )))"ux9000z:|6);"1. MORTGAGE AMORTIZATION TABLE"~6);"2. RETURN TO MENU...":"WA$"4"13400!A$"5"90+40821;9000X13);"((( DEPOSITS )))"^h9000p:"  1. FUTURE VALUE OF REGULAR DEPOSITS"29);"(ANNUITY)"" 2. REGULAR DEPOSITS":" 3. RETURN TO MENU..."URE VALUE OF AN INVESTMENT"!Q" 3. REGULAR WITHDRAWALS FROM INVESTMENT"W" 4. MINIMUM INVESTMENT FOR WITHDRAWAL"" 5. RETURN TO MENU...":"WHICH (1-5) ? ";A$A$"1"13100A$"2"13200A$"3"13300 "WHICH (1-6) ? ";A$+ A$"1"12100= A$"2"12200O A$"3"12300a A$"4"12400s A$"5"12500A$"6"903033900016);"INVESTMENTS"9000:" 1. INITIAL INVESTMENT"" 2. FUT$ 7);"1. PRINCIPAL ON A LOAN"* S 7);"2. REGULAR PAYMENT ON A LOAN"Y  7);"3. LAST PAYMENT ON A LOAN" 7);"4. REMAINING BALANCE ON A LOAN" 7);"5. TERM OF A LOAN" 7);"6. RETURN TO MENU" :NUAL INTEREST RATE ON A LOAN"# = "5. RETURN TO MENU"E :^ "WHICH (1-5) ? ";A$p 4A$"1"11100 6A$"2"11200 8A$"3"11300 :A$"4"11420 ;A$"5"90 >2030 9000 15);"((( LOANS )))" 9000 :"10200 A$"4"90 1030& 0 9000M 13);"((( INTEREST )))"S ] 9000e : "1. NOMINAL INTEREST RATE ON INVESTMENTS"  "2. EFFECTIVE INTEREST RATES ON ''"  "3. EARNED INTEREST TABLE"  "4. AN  9000 :9 10);"1. DEPRECIATION RATE"? c 10);"2. DEPRECIATION AMOUNT"i  10);"3. SALVAGE VALUE"  10);"4. RETURN TO MENU" ::: "WHICH (1-4) ? ";A$ A$"1"10000 A$"2"10100 A$"3 ~13);"(E) DEPOSITS"" @ 13);"(F) AMORTIZATION"F _ "WHICH (A-F) ? ";A$p A$"A"1000 A$"B"2000 A$"C"3000 A$"D"4050 A$"E"5000 A$"F"6000 140  9000 11);"((( DEPRECIATION )))"8::20000UA$(5)%VI(5)-Z:7_9000`d7);"BUSINESS ( FINANCIAL ) SERIES"fipj9000n" MENU... (A) DEPRECIATION"pr" (B) INTEREST"tv13);"(C) LOANS"xz13);"(D) INVESTMENTS" |                    0"  3090" X3(X21)X$"0"4  (X1)14000J  X$"$"XO$X1$X$W  X3(X$)]  (X1$,1)"-"X$"$-0"(X1$,2)X$:3095 3090T yX1A:3000" }23)"-------"1 X1T:3000R "RUNNING TOTAL ";30X3)X$` A0ī200i 100o X1(X1100.5)100 XO$"":X$"" X1$(X1) X2(X1$) I1X2 X2$(X1$,I,1) X3I X2$"."3085 I  X$".04)"ENTER THE AMOUNT OF EACH CHECK (WITHDRAWAL) OR DEPOSIT THEN HIT RETURN.";R U Z"CHECK AMTS SHOULD BE PRECEDED BY A MINUS (-) SIGN!" _TB dA hX1T:3000 i"LAST BALANCE";30X3)X$ uTTA wX1A:3000 x"AMT ENTERED ";30X3)X$ 4/15/79 AFTER MANY A9 DIFFICULT HOUR WAS SPENTQ FORMATING DOLLARSa AND CENTSt DONATED 7-79~ 936 :: 10)"### CHECKSTUB ###" :::: 2T0:B0:A0 <"ENTER THE STARTING CHECKBOOK BALANCE." FBL P ******************2 ## CHECKSTUB ##K ******************e BY MICHAEL CICERCHI THIS IS A SIMPLE PROGRAM  DESIGNED TO AID YOU IN KEEPING YOUR CHECKBOOK UP TO DATE AND ACCURATE. THE PROGRAM WAS COMPLETED    TT(N)J3000#LV1(Q(N))100-N4000NSCTG$(N);27X3)X$;39V3)V$UXN[]b"YOUR EXPENSES PROFILE IS NOW COMPLETE. TO REVIEW YOUR SORTED";f" PROFILE ONCE AGAIN TYPE 'S'."g6h" IF YOU WISH YOU MAY BEGIN ANOTHER PROFI"GRAND TOTAL",X$:%N1142 X1TT(N)<3000OV1(Q(N))100Y4000zCTG$(N);27X3)X$;39V3)V$N!:::&"TO SEE THE REMAINING CATEGORIES TYPE AN 'R'.";0M$:M$"R"1200?:::::DN1528HX1)TT(N1)TT(N1)K&L$CTG$(N)<CTG$(N)CTG$(N1)MCTG$(N1)L$XJQ(N)hQ(N)Q(N1)uQ(N1)JO1: ORDER IS NOT PERFECTN O=0 MEANS ORDER IS PERFECTO11715:TRY AGAINX1GT3000::::::YPE 'R'M$!M$"R"1708-::::N1528GX1TT(N)Q3000dV1(Q(N))100n4000CTG$(N);27X3)X$;39V3)V$1200936:(12):16)"WORKING"O0N127TT(N)TT(N1)1760KTT(N) TT(N@Z128'JQ(Z)TT(Z)GT10000-T;Y::::E\X1GTO]3000e^"GRAND TOTAL",X$k`wN114X1TT(N)3000V1(Q(N))1004000CTG$(N);27X3)X$;39V3)V$"TO SEE THE REMAINING CATEGORIES T 1698:::?"TO SEE YOUR 'SORTED' EXPENSE PROFILE ";W" TYPE AN 'S'.";_V$pV$"S"1714z2000 THE NEXT SECTION PRODUCES A "GRAND TOTAL" OF EACH OF THE INDIVIDUAL CATAGORY SUB-TOTALSGT0N128GTGTTT(N) THIS SECTION IS USED REPETETIVELY TO SUM INPUTS FOR EACH EXPENSE CATAGORYTLT0]MX1TgN3000mQR"TOTAL",30X3)X$TV"ENTER AMT.";`CKjCK0205tTTCKyTT(A)T~1101 THIS SECTION SHOULD REALLY BE @ LINEORY TO WHICH YOU WISH TO ADD DATA")A6A0220"ENTER YOUR NEXT CATEGORY. IF YOU WISH TO RETURN TO THE LISTING HIT 0 AND RETURN; OR IF YOU WISH TO SUMMATE AND PRINT YOUR EXPENSES PROFILE TYPE 99"AA080A9915001100LK"*" 10 HOUSEHOLD 24 GIFTS"T" 11 FURNISHING 25 TRAVEL"" 12 INSUR,AUTO 26 COMPUTER"" 13 INSUR,HEALTH 27 MISC #1"" 14 INSUR,LIFE 28 MISC #2"""ENTER THE NUMBER OF THE CATEG" 04 UTILITIES 18 LOAN EDUC"Q " 05 PHONE 19 DRUGS"~ " 06 DINING OUT 20 REC DRUGS" " 07 RECREATION 21 SAVINGS" " 08 CLOTHES 22 PERIODICALS"" 09 ALCOHOL 23 BOOKS12)"EXPENSE PROFILE" SH d"ACCT # ACCT NAME ACCT # ACCT NAME"u e"------ --------- ------ ---------"{ f n" 01 RENT 15 GAS" s" 02 FOOD 16 AUTO REP" x" 03 CASH 17 LOAN,AUTO"( }0 REC DRUGS"& +CTG$(21)"21 SAVINGS"D ,CTG$(22)"22 PERIODICALS"\ .CTG$(23)"23 BOOKS"t 0CTG$(24)"24 GIFTS" 1CTG$(25)"25 TRAVEL" 2CTG$(26)"26 COMPUTER" 4CTG$(27)"27 MISC #1" 6CTG$(28)"28 MISC #2" FTT(30),Q(28) P Q RG$(11)"11 FURNISHING"3 CTG$(12)"12 INSUR,AUTO"R CTG$(13)"13 INSUR,HEALTH"o "CTG$(14)"14 INSUR,LIFE" $CTG$(15)"15 GAS" %CTG$(16)"16 AUTO REP" &CTG$(17)"17 LOAN,AUTO" (CTG$(18)"18 LOAN,EDUC" )CTG$(19)"19 DRUGS" *CTG$(20)"2 CTG$(1)"01 RENT"+ CTG$(2)"02 FOOD"A CTG$(3)"03 CASH"\ CTG$(4)"04 UTILITIES"s CTG$(5)"05 PHONE" CTG$(6)"06 DINING OUT" CTG$(7)"07 RECREATION" CTG$(8)"08 CLOTHES" CTG$(9)"09 ALCOHOL" CTG$(10)"10 HOUSEHOLD" CT45 LINES 0-70 CATEGORY $ 102-175 CATEGORY TABLEP LINES 220-1099 EMPTY~ 1099-1150 SUMS INPUTS FOR EACH CATEGORY 1150-1499 EMPTY 1500 SUMS CATEGORIES FOR GRAND TOTAL 1630-1697 PRINTS THE EXPENSE PROFILE CTG$(28),L$(28)     "ANSWER SECTION. SCHEDULE 'A' WILL BE":"DONE NEXT.@FLRu THIS IS SCHEDULE 'A' SECTION{"IF YOU DON'T WANT TO ITEMIZE YOUR TAXES TYPE A '0' OTHERWISE TYPE A '1' ";&"TYPE A '1' ";0T2:T203180@2J"ENTER THE AMOUNT OF CREDIT FOR CHILD"]O"CARE (ATTACH FORM 2441 TO RETURN) ";e^I2khr"ENTER THE AMOUNT OF INVESTMENT CREDIT. ";|I3I4I1I2I3"THIS COMPLETES THE 1040 QUESTION AND")00D0D9D0D9%D0400015404D0D04000AC2D0.1NC1C1C2z"ENTER ANY ESTIMATED TAX PAYMENTS YOU" "HAVE MADE FOR LAST YEAR ";F2"F4F1F2C1,"ENTER THE AMOUNT OF TAX CREDIT FOR THE"1"ELDERLY ";6I1FM11540P<Z"DID YOU EARN ANY INCOME FROM U. S."`_"POSSESSIONS OR FROM ABROAD ";hnY$nx(Y$,1)"Y"1540"DO YOU HAVE DEPENDENT CHILDREN? ";Y$(Y$,1)"Y"1540D0G1D8S5C1D0.1C1400C14,"(IF NONE ENTER A '0' OTHERWISE ENTER"@"THE AMOUNT ";HD8NZ:(12)"THIS COMPLETES SIDE 1 OF THE 1040 FORM.""NOW WE WILL DO THE REVERSE SIDE." X11500:(D9D7D82D980001540<M1J11370 TER PAYMENTS TOWARD A RETIREMENT PLAN"St"(ATTACH FORM '5329' IF YOU QUALIFY) ";[~D4a"ENTER ANY ALIMONY PAYMENTS YOU HAVE MADE AND ARE ENTITLED TO ";D5D6D5D4M1D7S8D6"DID YOU RECIEVE ANY DISABILITY INCOME?""DID YOU HAVE ANY FARM INCOME OR LOSS."R"IF LOSS ENTER A NEGATIVE AMOUNT ";Z$S7`.8S8G1I1D3S3S4S5S6S7B"ENTER ANY MOVING EXPENSES YOU HAD."L"(INCLUDE WITH YOUR RETURN A '3903'"Q"FORM) IF ANY ";VM1`&j"ENSS INCOME OR LOSS DID"C"YOU RECIEVE. IF LOSS ENTER A NEGATIVE"S"AMOUNT ";[S5a"HOW MUCH DID YOU GAIN OR LOOSE FROM""FROM A SALE OR EXCHANGE OF CAPITAL""ASSETS. IF LOSS ENTER A NEGATIVE""AMOUNT ";S6)ONS ON".W"YOUR FEDERAL RETURN LAST YEAR ";6\Y$<fRp(Y$,1)"Y"930z"HOW MUCH STATE AND LOCAL TAX REFUNDS DID YOU RECIEVE FROM LAST YEARS TAXES";S3"HOW MUCH ALIMONY DID YOU RECIEVE";S4"HOW MWCH BUSINEFEDERAL" "TAXES "; F2% O "ENTER ALL INTERESTE RECIEVED (FROM"f "SCHEDULE 'B') ";n I1t  "ENTER ALL DIVIDENDS RECIEVED (FROM" %"SCHEDULE 'B') "; *D3 4 >G1G1G2 HF1F1F2R"DID YOU ITEMIZE YOUR DEDUCTI J=1 IF FILING A JOINT RETURN.O "WHAT IS THE GROSS WAGES ON YOUR W-2'S ";W G1]  "WHAT IS YOUR FEDERAL WITHOLDING "; F1  J0770 "WHAT IS YOUR SPOUSE'S GROSS WAGES "; G2  "WHAT HAS YOUR SPOUSE PAID INTO VER 65. "' " ENTER A 0, 1, OR 2 ";/ E15 a &"ARE YOU OR YOUR SPOUSE (IF FILING A "} +"JOINT RETURN) BLIND." 0" ENTER A 0, 1, OR 2 "; :B1 D NE1E1B1 X E1 = # OF SPECIAL EXEMPTIONS. bD2DE1 l M=1 IF MARRIED. vM1 1 "ARE YOU FILING A JOINT RETURN ";9 Y$? T (Y$,1)"Y"J1 "HOW MANY OTHER DEPENDENTS DO YOU CLAIM "; D1  J0500 DD12 510 DD11 "ARE YOU OR YOUR SPOUSE (IF FILING A " "JOINT RETURN) O ENTER A '0'"9 "UNLESS THE QUESTION REQUIRES A 'YES'"P "OR 'NO' ANSWER."V \  "THE 1040 FORM WILL BE DONE FIRST."  " , QUESTION SECTION. 6M0 @J0 J T"ARE YOU MARRIED "; hY$ r |(Y$,1)"Y"440 ]' 1"1040 FEDERAL TAX PROGRAM INCLUDING"`"SCHEDULE 'A' AND SUPPLEMENTAL SCHEDULES""'B', 'C', 'D', AND 'F'.""ANSWER ALL QUESTIONS. IF IT DOSEN'T""APPLY, OR YOU DON'T HAVE INCOME OR" "EXEMPTIONS FOR THIS ITEM,                  ";D$ Q" ITEM# "," DESCRIPTION "," #ON HAND "," #SOLD "," LOCAT#"WcI1NUl350{HA51840HA51840I&18600N,E$,H,S,L:1820DN CLOSE FILEb THIS IS THE INVENTORY LIST SUB #3lA5A - 1"Gr"TO CHECK FOR ITEMS WITH QUANTITIES LESS THEN 5 TYPE A - 5"|"TYPE A 0 IF YOU WANT ANOTHER REPORT INSTEAD. INPUT QUANTITY: ";A5A50530A50530390NU" MINIMUM QUANTITY ON HAND SEARCH REPORT ES THIS IS REPORT #2"T5-"I1T3,:6I{@" M I N I M U M Q U A N T I T Y S E A R C H ";D$JT^"TYPE IN THE MINIMUM QUANTITY LEVEL THAT YOU ARE INTERESTED"h"IN. FOR EXAMPLE TO CHECK FOR 0 STOCK ITEMS TYPE SALES = ";:V$;A27"TOTAL DOLLAR PROFIT = ";:V$;A3=N CLOSE FILETZ`"WOULD YOU LIKE TO CHECK THE ACTIVITY FOR ANOTHER PERIOD ";A$A$"Y"1000530 THIS SUB GENERATES A SEARCH FOR MINIMUM QUANTITI3A3A8A2A2SP!A1A11-(B1B1S=)A8V$:1251M*A2V$:1252V2A71`<1260oFA711380uPZ"THERE WAS NO ACTIVITY DURING THAT PERIOD "dn"TOTAL PIECES SOLD = ";B1x"TOTAL ITEMS = ";A1"TOTAL DOLLAR S DATE ";D$S" ITEM# "," DESCRIPTION "," #ON HAND "," $SALES "," $PROFIT"Yb390jNUsA70I1NU350A8S(PO)A$Q$1280A8(A8100)100A2(A2100)100I1350N,E$,H,:V$,SP,A8 A"1110 B10B20'B30O"ENTER THE DATE FOR THIS REPORT:";XA10a$A20j.A30r8Q4xBL1130VQ$Q$`jt" A C T I V I T Y R E P O R T F O R ";Q$~ " TODAYIS SUB GENERATES THE ACTIVITY REPORT #11HA5<RI1AB\IfIp"WOULD YOU LIKE YOUR ACTIVITY REPORT TO COVER A DATE"z"OTHER THEN THAT OF TODAY (YES OR NO)";B10B20B30A10A20A30A$A$"NDATE THE INVENTRY"8" 7 = RETURN TO MASTER MENU">j"WHICH REPORT WOULD YOU LIKE TO RUN:";rA$A$"7"3550A$"1"830A$"2"1540A$"3"1890 A$"4"2260A$"5"2750 A$"6"3170*4630(> THNE TYPE IT'S NUMBER TO THE PROGRAM PROMPT."1 lR v" 1 = ACTIVITY REPORT "{ " 2 = MINIMUM QUANTITY SEARCH " " 3 = INVENTORY LIST " " 4 = INVENTORY LIST BY CLASS " " 5 = INVENTORY LIST BY VENDOR "" 6 = UP3, RENAME FILE #4 TO FILE #3" 6  OPEN INV FILE< B J 24k " C O M P A N Y N A M E ";s C$ "TYPE IN THE DATE, AS: 1/14/75 D8$  N3 X"THE FOLLOWING IS A LIST OF THE REPORTS THAT ARE AVAILABLE"+ b"TO CHOOSE O " CHANGE THE ABOVE SUBSCRIPTS TO EQUAL THE NUMBER OF YOURY , TOTAL INVENTORY ITEMS. 6 **********========================= @ J T400 ^N,C,V,E$,O,L,H,S,A$,P h rN,C,V,E$;",";O,L,H,S,A$;",";P: | CLOSE FILES, DELETE FILE #ANTITY ON HANDJ S(I)=NUMBER OF SALES DURING THE LAST INVENTORY PERIOD A$(I)=DATE OF THIS PERIOD - BE CONSISTENT EX: 12/18/75 P(I)=SELLING PRICE IN $ A0100 N(A0),C(A0),V(A0),E$(A0),O(A0),L(A0),H(A0),S(A0),A$(A0) P(A0)K(16384)Q @K12862_ B16368,0e Dz d:"CAT. #: ";A$ n:"ITEM: ";B$ x:"COST PER CASE: ";C }WRITE TO DISK ROUTINE 20:40:A$:B$:C:30 A$"LASTONE"230 CN$(J) :D$"":CONT'L D? PROGRAM BY CARL & WARREN MAGDANZo **COST FILE ENTRY FOR INVENTORY PROGRAM** CN$(150),I$(150),IC(150)100D$;"NOMONC,I,O":D$;"OPEN SUPPLIES,L150":D$;"CLOSE SUPPLIES": (D$;"WRITE SUPPLIES,R";N:  :0 (222)5ĺ"PROCESSING ERROR":255:1360i (222)5ĺ:"THIS IS A NEW FILE ":I15000::1520o :u { :N"%< :"DO YOU WANT TO EDIT? Y/N ";:F G$:G$"Y"2110^P :"TRY ANOTHER KEYWORD? Y/N ";sZ G$:G$"Y"2350d :"PRESS RETURN TO CONTINUE - ";:A$:A$(13)ė:(5):1360n :2660x : ** ERROR ROUTINE ** *******************$;",R";J R$(J) D$- I140(K$)L (R$(J),I,(K$))K$2550c :J;:" ";:R$(J)n KK1u I~ J: K02610 :"NOTHING FOUND - ":"TRY ANOTHER KEY WORD ? Y/N "; G$:G$"Y"2350( G$"N"26602 D$"CLOSE";F$;"3)ė:(5):1360$ :2330!. :=8 ** KEYWORD SEARCH **YB ********************_L :eV ` :"KEYWORD SEARCH - ";F$;""j :"KEYWORD - ";K$t K0~ D$"OPEN";F$;",L40" D$"READ";F$;",R";0 C D$ J1C D$"READ";F" ";:R$(R)M:"DO YOU WANT TO CHANGE IT - Y/N ";G$::G$"N"2320XR$(R)^:wD$"WRITE";F$;",R";RR$(R)D$"CLOSE";F$;"" 17 "ANY MORE RECORDS Y/N ";:G$:G$"Y"2110 :"PRESS RETURN TO CONTINUE - ";:A$:A$(1D **R *******************%\:+fPp:"EDIT FILE RECORD - ";F$;"":tz"ENTER RECORD NUMBER - ";:R:D$"OPEN";F$;",L40"D$"READ";F$;",R";RR$(R)D$"RECORD ";R;" CHANGES - 35 CHARACTERS MAX.":"RECORD ";R;" ="I1C>(16384)127Ĺ16368,0:16384,128,0:16368,0VD$"READ";F$;",R";IaR$(I)iD$z I;4);R$(I)I D$"CLOSE";F$;""*:"PRESS RETURN TO CONTINUE - ";:A$:A$(13)ė:(5):13604:2090>:H ** EDIT A RECORF$;""FX:"PRESS RETURN TO CONTINUE - ";:A$:A$(13)ė:(5):1360Rb:1880Xl:rv ** LIST RECORDS ** ******************::"LIST TEXT FILE - ";F$;""D$"OPEN";F$;",L40"D$"READ";F$;",R";0CD$ ,R";CR$(C)D$:3"R";C;"";:6)R$(C)9DCCLJ:P:g"R";C;" ";:R$(C)}R$(C)"END"1840D$"WRITE";F$;",R";CR$(C)D$CC1&17700CC1::C::D$"WRITE";F$;",R";0DCND$"CLOSE";:(2):"BUILD FILE - ";F$;" "6 "D$"OPEN";F$;",L40"> ,D$H 61770N @:g J ** ADD RECORDS ** T ***************** ^: h r:(2):"ADD FILE RECORDS - ";F$;"": |D$"OPEN";F$;",L40" D$"READ";F$;",R";0 CD$"READ";F$;"OSE";F$;""9 "FILE '";F$;"' CONTAINS ";C;" RECORDS !"T :"WHICH NUMBER - ";Sb S51360 S0ĺ::"DONE":216,0:D$"CLOSE";F$;"":255: S1520,1620,1900,2110,2350 :  ** BUILD THE FILE **  ******************** :  <: P:"FILE OPTIONS:! Z> d" 1. BUILD NEW RECORDS"Z n" 2. ADD MORE RECORDS"r x" 3. LIST RECORDS" " 4. EDIT A RECORD" " 5. KEYWORD SEARCH" " 0. END THE PROGRAM" :D$"OPEN";F$;",L40" D$"READ";F$;",R";0:C D$"CL(13))  G$= LOCAL RESPONSE:  I&J LOCAL VARIABLESR  C = RECORD COUNTn  S = OPTION SELECTION  R = RECORD # TO EDIT  K$= KEYWORD TO SEARCH  K = SEARCH FLAG : ( ** OPERATING SYSTEM ** 2 **********************j:(2):"HOME INVENTORY FILE MANAGER"> tI127:"-";:I:_ ~"ENTER THE FILE NAME = ";F$e :  ** SYSTEM VARIABLES **  ********************** :  F$= FILE NAME  D$= CONTROL D  R$= FILE RECORD  A$= RETURN (CHR$} ***********************= * SIMPLE FILE BUILDER *[ * BY: CHUCK CARPENTER *y ***********************: ** INITIALIZE **$ ****************.:8B2720LD$(4):R$(200):C1VD$;"NOMON I,O,C`'      SS I'D SAY THAT"TDQ (PCTLOS100.(PRICECPROD)OSETUPAVG (1PCTLOS100.))2 I Q$"M" QQ2.SETUPSETUPCHOLDRATENQ2.CSETUPCHOLDQ:IQ%Q.5S Q DEMND 597:"THIS ITEM SHOULD NOT BE STOCKED"::"STOCK IT IF DEMAND RISES TO ";IQOS::" IS ITEM MANUFACTURED OR PURCHASED(M/P)";Q$:t0Q$"P" 570:"SETUP COST PER PRODUCTION RUN = $";CSETUP:5"ANNUAL PRODUCTION(NO.ITEMS)";RATE:: 580:"ENTER ORDERING COST PER ORDER= $";CSETUP?936:"OK, LET'S SEE HERE..."::"I GUECOST PER ITEM PER YEAR=$";CHOLD:K"SELLING PRICE PER ITEM = $";PRICE:}"ANNUAL DEMAND(NUMBER OF ITEMS) =";DEMND : !"NUMBER OF ITEMS PURCHASED PER ORDER = "; AVG: 4& "ESTIMATE PERCENT OF SALES LOST IF ITEM IS NOT STOCKED";PCTL"BUT LESS THAN $";A%: 245b-"SORRY, THAT PROGRAM ISN'T TRANSLATED YET":I11000:I:1050 q936:500"THIS PROGRAM TESTS WHETHER A GIVEN ITEM"::"SHOULD BE STOCKED OR NOT BE STOCKED":!"PLEASE INPUT THE FOLLOWING DATA:"::"HOLDING HE GIVEN STOCK LEVEL(PER ASSY)";L7 L PMAX 270 "FOR THIS ANALYSIS, STOCK LEVEL CAN BE NO GREATER THAN",PMAX: 255A%P(L1)(1P(L1))C1B%P(L)(1P(L))C1"STOCK ";L;" SPARES WHEN THE SHORTAGE COST":"IS GREATER THAN $";B%:)SUM I2 PMAX1:P(I)P(I)SUMP(I1): (C2(C1C2)) P(I1) (C2(C2C1)) P(I) "OPTIMAL STOCK LEVEL IS ";I  I:"DO YOU WANT THE RANGE OF SHORTAGE COSTS FOR A SPECIFIC STOCKING LEVEL(Y/N)";A$  A$"Y" !"WHAT IS TUT COST OF BEING SHORT THIS PART";C2:"WHAT IS THE MAXIMUM NUMBER OF SPARE":"PARTS EVER REQUIRED FOR AN ASSEMBLY": PMAX P(PMAX1):SUM0.0  IPMAX 0 1:"HOW MANY ASSY'S HAVE REQ'D ";I;" PARTS":P(I1):SUMSUMP(I1): IP(1)P(1G+ORDERING+SHORTAGE COSTS OVER":"THE DEMAND PERIOD = $";TC,TC1:]:"DO ANOTHER(Y/N)";A$r A$"Y" 101} 1050936:"STOCKING OF STRATEGIC SPARE PARTS"::"FOR COSTLY ASSEMBLIES":"PLEASE INPUT COST PER SPARE PART";C1:&"INP ORDER QUANTITY IS ";IQ;" UNITS"a:"AVERAGE SHORTAGE AT ENDOF ORDER CYCLE IS":: IS,"UNITS"TC (C1T(IQIS)2)2IQISISC2T(2IQ) CSRIQTC1 ((2.RTC1CSC2)(C1C2)) TC(TC100.5)100:TC1(TC1100.5)100A:"HOLDIN DAY";C21 ITS(((2.TCS)(C1C2))(RC1C2))Y IQ ((2.RCS(C1C2))(TC1C2)) ISIQ((2.RCSC2)(C1T(C1C2))) ITS(ITS .5):IQ(IQ.5) IS (IS.5) 936:"OPTIMAL INTERVAL BEWTEEN ORDERS IS":;ITS;" DAYS" :"OPTIMAL PER ITEM PER DAY"_ p"AS A DECIMAL FRACTION PERCENTAGE": "OF THE ITEM'S SELLING PRICE:$";C1 r:"PLEASE INPUT SETUP COST PER ORDER:$";CS t:"HOW MANY ITEMS ARE NEEDED:";R x:"OVER HOW MANY DAYS:";T }:"WHAT IS SHORTAGAE COST PER ITEM PER IS",IQSTAR% ;"UNITS."::h b"INVENTORY + ORDERING COST OVER THE ":"DEMAND PERIOD = $"; TEC : : c: "DO ANOTHER?": A$: A$ "Y" 1 d 1050 e936 i"INVENTORY MODEL WITH SHORTAGES": n"PLEASE INPUT HOLDING COSTTEC (TEC100 .5)100 : 95 \REM STMT 91 SHOWS HOW F.P. UES CAN BE TCATED AN ARBITRARY NUMBER OF DECIMAL PLACES(1002 PLACES). _:" THE OPTIMAL INTERVAL BETWEEN","BATCH ORDERS ="; ITSTAR%;"DAYS."  a:: "THE OPTIMAL ORDER QUANTITY PER ORDER " : CS: S ( " HOW MANY ITEMS ARE NEEDED ?": R: :x 2 " OVER HOW MANY DAYS?": T : 7936 <::" OK, I'LL THINK ABOUT IT..." FITSTAR% (2.CSTC1R) PIQSTAR% (2.CSRC1T) ZTEC (2.C1TCSR) [z  1000936 ,"INVENTORY MODEL"::"FOR ECONOMIC ORDER QUANTITY(EOQ)"::"WITH CONSTANT DEMAND AND NO SHORTAGES ALLOWED.":: "INPUT THE COST OF HOLDING ONE UNIT IN INVENTORY FOR ONE DAY:";C1:: $ : "PLEASE INPUT SETUP COST       TORY = ";"$";SUM0 D296 %B&T$T$".00"=(W1(S$):(S$,W,1)"."300D)WT*S$S$".00"`,I$(I);h-70." $";35(R$));R$;/49(S$));S$;018);"$";27(T$));T$6I@" "J" TOTAL INVEN1R$R$".00"1 (R$,(R$)1,1)"."R$R$"0"J (S$)1S$S$".00"m (S$,(S$)1,1)"."S$S$"0" (T$)1T$T$".00" (T$,(T$)1,1)"."T$T$"0" A1(R$):(R$,A,1)"."292 !A "R$R$".00"$B1(T$):(T$,B,1)"." K" SK164:" ":SKR " DAIRY QUEEN #33 INVENTORY TAKEN ";DMY$` " ":" " " ITEM UNIT PRICE # OF UNITS EXTENSION" I0Z L(I$(I)) L20L R$(IC(I)):S$(Q(I)):T$(P(I)) (R$)100 JJ1:NN1 1000 ADD ALL COSTS: ZJ1E X0ZV SUMSUMP(X)] Xg 936 "ENTER DAY, MONTH, YEAR THAT INVENTORY IS BEING TAKEN";DMY$ 936:"TURN ON THE POWER TO THE PRINTER" G12000:G 1:" 100N";" I";"STILL ";C;" PER CASE ?"; l60, nKK128> pK("Y")120T r"NEW COST = ?";D\ tCDw v20:40:A$:B$:C:30 xCN$(J)A$:I$(J)B$:IC(J)C }936 "ITEM: ";I$(J); " COUNT = ?";Q(J) P(J)IC(J)Q(J) P(J)(P(J)100.5)WRITE SUPPLIES,R";N:3 2D$;"READ SUPPLIES,R";N:G <KEYBOARD INPUTW >K(16384)e @K12862s B16368,0y D FH1L G" "; HH I d20:50:A$:B$:C:30 eA$"LASTOME"180 f936 h"IS THE COST OF ";A$;" ";B$ j:" :D$"":CONT'L DA PROGRAM BY CARL AND WARREN MAGDANZi **INVENTORY WITH PRINTER OUTPUT** CN$(150),I$(150),IC(150)P(150),Q(150),Z$(188)100D$;"NOMONC,I,O":D$;"OPEN SUPPLIES,L150":D$;