L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`΍ "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:NORMALIZEDD 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 ANL1PAz+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      /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 T;"19",Q9+|5);"20",Q0*+~5);"21",R1;+5);"22",R2L+5);"24",R3]+5);"25",R4n+5);"26",R5+5);"27",R6+5);"28",R7+5);"29",R8+5);"30",R9+5);"31",U1+5);"32",U2+5);"33",P9+5);"34",Q7,5);<6);"3",P3*A6);"4",P4.*F5);"6C",P5>*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 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"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,                          @*** 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"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)             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 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;(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"#";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,"AMOF 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)'"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" |                     :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"5vz#X±   Ү٠ ǠĠŠ4ӠŠ: ˠ  ĠӠŠ ŠؠҠ) ˠԠҠ ˠΠ  ٠Ԡ٠ԠĠٮٮàٮŠŠٮŠĠԠŠ̠Ϡ ̠Ϯà!٠٠٠ԠŠ٠٠Šɠ٠̠٠ԭӠˠ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fpA1A1OHnHA2A2PSzRA3A3H\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 ";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 = UP <: 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`'      A$:I$(J)B$:IC(J)C9 "IF AN ERROR WAS MADE PUSH 'Y'";A 60M KK128_ K("Y")100o NN1:JJ1x 100 PRINT VALUES FRON DISC YJ1 X0Y::CN$(X):I$(X):IC(X):T1600:T:X  D 2D$;"READ SUPPLIES,R";N:3 < KEYBOARD INPUTC >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:FOLLOWS:"C# :"# ON HAND, # SOLD THIS PERIOD, DATE OF LAST SALE"O# H,S,A$Y# 3470_# y# D$;"RUN MASTER MENU"# 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 # 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      :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 **  ******************** : HE": " 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 QUANTISS 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 PERA$,A 5:::D$ 6:::A1A1A, 8:::A$,A2 :D <EF;" ITEMS",] >"$";A1;"TOTAL COST"m @D$;"CLOSE" AD$;"MON I,O,C" BM* WORLD'S SHORTEST INVENTORY READOUT0 F BOB HUELSDONKL iD$"": CTL D IN QUOTESD$;"NOMON I,O,C"D$;"OPEN INV.1,L50"(D$;"READ INV.1,R0"*EF,D$: CANCEL READ2R11EF3:::D$;"READ INV.1,R";R1 4:::CEL WRITE @R1R11:52M F LINES 80-82 POST LAST RECORD NBR IN RECORD 0.f PD$;"WRITE INV.1,R0"p RR11 TD$;"CLOSE" UD$;"MON I,O,C" VL* WORLD'S SHORTEST INVENTORY PROGRAMF BOB HUELSDONKcD$"": CTL D IN QUOTESyD$;"NOMON I,O,C"D$;"OPEN INV.1,L50"2R114"ITEM ? ";A$6A$""808"COST ? ";A:D$;"WRITE INV.1,R";R1<A$:A >D$: CANTORY = ";"$";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$;"CLOSE SUPPLIES": (D$;"     $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$1320:"RETURN TO CONTINUE; SPACE TO EXIT ";:Z$AX(Z$):PX135560\X32ıf5510oI:--DELETE ITEM/FILE"FILE NAME: ";IN$(IN$)0ıI1NFIN$FI$(I)5630I:INF5660JINF1 FI$(J)LLD$"READ "F$", R0#LA,SL2LA15460>"R1LAW,10:(A$(1))05450s6P1(A$(3)):Q1(A$(2))@PTPTP1Q1:QTQTQ1JRT:D$"CLOSE"^15::"SUMS":h5:"FILE: ";F$r"QUANTITY: ";QT|"VALUE: ";PTd18An:19:"PRESS RETURN TO CONTINUE":"SPACE BAR TO EXIT"IxD$YZ$:X(Z$)_nX135300}X3253105240R:D$"CLOSE"--SUM ALL FILESNF0ıI1NFF$FI$(I):QT0:PT0D$"OPEN "F$", L"--LIST FILES0"FILE NAME: ";IN$:(IN$)0ı<I164QIN$FI$(I)5120ZI:hF$FI$(I) D$"OPEN "F$", L"LLD$"READ "F$", R0"LA,SL(D$"CLOSE"2LA1ı<D$"OPEN "F$", L"LLFR1LAP10Z(A$(1))05300:33,21:2I2NI1(T$(I))04070R"";IN$:(IN$)0A$(I)IN$p(IN$)0Ģ((37)):A$(I)wI}3800--EXTENDED MENUFL0:RESET FLAG20:958IN$"L"5070IN$"S"5330IN$"D"5570 LL53890 22:958:JG$"POTENTIAL RECORD OVERFLOW. RE-ENTER!":[I03000:Ie(3400}2D$"OPEN "F$", L"LL<D$"WRITE "F$", R"RFI1NIPA$(I):IZD$"CLOSE"d3400n"x"--UPDATE ALL FIELDS20:20:32,19t--UPDATE QUANTITY ONLYM~IN0A$(2)((A$(2))IN):A$(5)((A$(5))IN)IN0A$(2)((A$(2))IN):A$(6)((A$(6))IN)--CHECK FOR RECORDS OVERFLOW AND OUTPUT RECORD TO DISK.Z0I1NIZZ(A$(I))1:I Zф"SOLD: ";IN$:IN(IN$); IN0Ą"ADDED: ";IN$:IN(IN$)K IN03700{ "DELETE (D), UPDATE (U) OR (RETURN): ";IN$ IN$"D"3580 IN$"U"4000  A$(1)"":SLRSLRLARLAR1D$;"WRITE "F$", R0"LA:SL$3800 LASLLASL) D$"WRITE "F$", R"SL7 A$(1)IN$C I1NIQ A$(I):IZ RSLr* D$"WRITE "F$", R0"~4 LA:SL> D$;"CLOSE"H D$"OPEN ";F$", L"LLR 10\ (A$(1))0ĺD$"CLOSE":f 18p D$"CLOSE" --ENTER UPDATE 15:F$",L "LL D$"READ "F$",R0* LA:SL9 LA03210E I1LA\ D$"READ "F$", R"Ig  A$(1)  IN$A$(1)RI:3400 I --ITEM NOT FOUND SL(LA)3310 ISLLA D$"READ "F$", R"I A$(1):(A$(1))03300 I SLI"READ "F$ jNF:TD$% tNF011801 ~I1NF= FI$(I)D IT D$;"CLOSE"g --MASTER LOOPp 800 FL1İ5000:2000 9000 3000 2000 --DISPLAY INVENTORY ITEM & SELECTIONS I1NI:A$(I)"":I D$"OPEN "--INITIALIZE D$(4)3 M$"MASTER.DIRECTORY"= F$M$I G$(7)T LL120^ $NI10t .I1NI:T$(I):I 8 PART NUMBER,QUANTITY,PRICE,LOCATION,TOTAL SOLD YTD,TOTAL ADDED YTD,SOURCE,NOTES,,,,, BFI$(65) L8000 VD$"OPEN "F$ `D$3 I 20:14 "A. ENTER PART NUMBER, OR" "B. ENTER SINGLE LETTER COMMAND Q/QUIT L/LIST, S/SUM, D/DELETE FILE" " >";IN$:IN$"Q"ĺD$"CLOSE": (IN$)1FL1: (IN$)5910 Z$(IN$,1):Z$"A"Z$(91)910   ITEM J1NI T$(J):J8 1:20:32,19:33,21> J J1NIX A$(J):Ji 32,0:33,40o u " --MENU DISPLAY *: 420(TD$)2 >:TD$: HV3:H1 RI164 \V:H fI". "FI$(I); pVV1 zV19HH10:V 1000--SORT FI$'NF1ı3I1NF?J2NFVFI$(J1)FI$(J)7Z$FI$(J1):FI$(J1)FI$(J):FI$(J)Z$J:I " --INPUT ITEM  D$"READ "F$", R"R J1NIA$(J):J"" --DISPLAY           ~" 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 THISNT 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 "% " 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          +D$;"WRITE ";F$- +0: CREATE NULL RECORD_+D$;"CLOSE ";F$:D$;"OPEN ";F$:D$;"READ ";F$e +D$;"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$ .' :"(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 FOER 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 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 NUMBERE 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"\$ _        D$;"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$(SEAR3240*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 ("" 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"