d ** BUSMOD.BAS* FOR CODEWORKS MAGAZINE **n ** 3838 S. WARNER ST. TACOMA, WA 98409 (206) 475-2219)x: Adapted for the Tandy 600 by Dave Thomas| E(2),A$(2),P(2),P1(2),P$(2): I% P:D$D$"-":: D$(X)(D$,,X) : :CLEAR SCREEN COMMAND, CHANGE TO SUIT YOUR MACHINE: D$( );" The CodeWorks ";D$(!); )"B U S I N E S S M O D E L": ,: :" Magarac's Widget Factory ":D D$;J f )"1) Run the model )"2) Run sensitivity test )"3) To quit )"Your choice: "; Z$$():Z(Z$): Z Z  Z ,,  : "! , I 24 6 A$(I),E(I)J @ E(I) TR J I] TLNIk ^ Z ~ h I LN  r LI |  );I"- "A$(I)" "E(I);+);L"- "A$(L)" "E(L)  I  "WHICH ITEM # DO YOU WANT TO VARY";X  X XLN . "FROM WHAT VALUE -- ";SM "TO WHAT VALUE ---- ";ED U :o "VARYING --> ";A$(X) "STEP";);"PRICE";);"#SOLD";);"#DIRMAIL";);"FIXCOSTS";();"VARCOSTS";2);" GROSS";<);"EXPENSES";F);"$ NET",  * LINES 510 THROUGH 580 CONTAIN THE EXPANDED FORMULA *G  IS ED (EDS) T  E(X)I  USE()E() : : NUMBER OF UNITS SOLD  USUS(E( ) ):US(US): US US : : CURVE  RUSE( ) : : TOTAL INCOME FROM UNITS SOLD`  E1US(E()E()E()) : : MATERIAL,LABOR,MISC COSTS/UNIT & E2E()(E()E()E()) : : DIRECT MAIL COSTS 0 E3E1E2E() : : TOTAL EXPENSES: VC(US(E()E()E()))E2 : : VARIABLE EXPENSESUD PRE3 : : PROFIT = INCOME LESS EXPENSESeN Z X I;);E( ););US;);E(););(E());();(VC);2);(R);<);(E3);F);(P)b Il: 9)"PRESS RETURN FOR MENU";: X1: v+ ** SENSIVITY OF DATA ROUTINE **1k )"SENSIVITITY OF DATA. Only those terms causing" )"more than 1% change in bottom line are shown." )"$ NET WITH A 10%" )"CHANGES INCREASE IN" " X LN ( P(X)PE E(X)E(X)(E(X)@)Q _  P1(X)Pg Xv  X LN* PP((P(X)P1(X))P(X)d):PR(PP)4 P(X)P1(X) P$(X)"+"> P(X)P1(X) P$(X)"-"H PR fR );P$(X);PR; );"%";&);A$(X))\ PR1f X_z 8)"PRESS RETURN FOR MENU";: X1: e ** DATA STATEMENTS FOLLOW ** Material Cost/Unit,58 Labor Cost/Unit,10 # Dir Mail sent,10000 Dir Mail Postage,.125 Dir Mail Printing,.42- Dir Mail $/Label,.075I % Return Dir Mail,.01d MISC Costs/Unit,5.87 Fixed O'Head/Mo,2275 Unit Sales price,200 ,-1