home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CARTELS.DSK / BS-REP1.bas < prev    next >
BASIC Source File  |  2014-09-09  |  18KB  |  118 lines
  1. 1  CALL 54915: DEF  FN I(A) = A *(A <32000) +32000 *(A > = 32000): GOTO 10
  2. 2 A =  FN I( INT(A)):B = J%(I,N):A$ = "<CTRL-^>34<CTRL-[>^": IF A = 0  AND B = 0  THEN A$ = "<CTRL-^>34<CTRL-[>0"
  3. 3  IF B  THEN A$ = "<CTRL-^>34<CTRL-[>" + STR$( ABS( INT((A/B -1) *100 +.5)))
  4. 4 A$ = A$ +U$( SGN(A -B) +1):J%(I,N) = A:A = 0:N = N +1: RETURN 
  5. 10  POKE DS,0: IF  ASC(C$(I)) =  ASC("<CTRL-A>")  THEN 1150
  6. 12  IF G >0  THEN  DEF  FN S(A) =  PEEK( -16336): CALL 3072: PRINT "<CTRL-L>": VTAB 13: PRINT :A =  INT((40 - LEN(C$(I)) *2)/2):A$ =  STR$(A): IF A <10  THEN A$ = "0" +A$
  7. 15  IF G >0  THEN  PRINT "<CTRL-W><CTRL-^>"A$;C$(I);"<CTRL-M><CTRL-M><CTRL-R>";:A$ = "President: " +N$(I):A =  INT((40 - LEN(A$))/2):A$ =  STR$(A) +A$: IF A <10  THEN A$ = "0" +A$
  8. 18  IF G >0  THEN  PRINT "<CTRL-^>"A$: VTAB 10: GOSUB 55
  9. 20  GOTO 700
  10. 30 B = 0: FOR J = 1 TO 12:B = B + RND(1): NEXT :B = B -6: RETURN 
  11. 40  FOR C = 1 TO 60: IF  RND(1) <.1  THEN X =  FN S(A)
  12. 42  NEXT : RETURN 
  13. 55  PRINT "<CTRL-J><CTRL-Q>";: FOR J = 1 TO 20: PRINT "=";: NEXT : PRINT "<CTRL-K>";:F%(I) = F%(I) +(T%(I) = 7):M = F1%(I):L = F%(I) -M:X = F%(I):X = L *(L >X) +X *(L < = X):A = (40 -2 *X)/2:A = A *(A >0) +(A < = 0): IF X =  >19  THEN L = 19 -M *(M >0):A = 2
  14. 57  HTAB (A): PRINT "<CTRL-K><CTRL-Q>";: IF L  THEN  FOR J = 1 TO L: PRINT "C";: NEXT : IF T%(I) < >7  THEN 65
  15. 60  PRINT "<CTRL-H>";:F%(I) = F%(I) -1: FOR J = 1 TO 2:A = 20 *J: FOR K = 150 TO 50  STEP  -8: POKE 0,K: POKE 1,4: CALL 2892: NEXT :K = 90 +4 *A: FOR P = 90 -A TO K: POKE 0,P: POKE 1,8: CALL 2892: NEXT : NEXT 
  16. 62 A =  PEEK(36) *7:J =  PEEK(37) *8: PRINT "<CTRL-B>1";: FOR L = 0 TO 4: FOR K = 1 TO 15: HCOLOR=  INT( RND(1) *6 +1): HPLOT A + RND(1) *13 +1,J + RND(1) *8 +L +3: HCOLOR= 0: HPLOT A + RND(1) *13 +1,J + RND(1) *10 +L: NEXT : PRINT 6 -L"<CTRL-H>";: FOR K = 1 TO 40: HPLOT A + RND(1) *13 +1,J + RND(1) *(18 -L): NEXT : NEXT 
  17. 63  HCOLOR= 0: FOR L = 0 TO 16: FOR K = 1 TO 10: HPLOT A + RND(1) *13 +1,J + RND(1) *(16 -L) +L: NEXT : HPLOT A,J +L TO A +14,J +L: NEXT : FOR L = 1 TO 200: NEXT L: PRINT "<CTRL-C>9<CTRL-B>0<CTRL-C>0";
  18. 65  IF M >0  THEN  FOR J = 1 TO M: FOR K = 1 TO 6: PRINT K;"<CTRL-H>";: GOSUB 40: NEXT : PRINT "C";:X =  FN S(A) + FN S(A) + FN S(A) + FN S(A): FOR K = 1 TO 800: NEXT : NEXT 
  19. 66  IF M <0  THEN M =  -M:X =  PEEK(36) +1:A =  PEEK(37) +1: FOR J = 1 TO M: VTAB A:X = X -2: FOR K = X TO 37: HTAB K: PRINT "<CTRL-N><CTRL-R> <CTRL-Q>C";:B =  FN S(A) + FN S(A) + FN S(A): FOR L = 1 TO 30: NEXT L: NEXT : PRINT "<CTRL-H><CTRL-N>";: FOR L = 1 TO 500: NEXT L: NEXT 
  20. 70  PRINT "<CTRL-R><CTRL-J><CTRL-C>9<CTRL-B>0<CTRL-C>0<CTRL-M><CTRL-R>": RETURN 
  21. 80 M = 1:K = K +1:S$(K,1) = "<CTRL-L><CTRL-^>" + STR$(10 +5 *(G <1)) +"<CTRL-W>MEMORANDUM<CTRL-R><CTRL-M><CTRL-M>TO:<CTRL-^>07" +N$(I) +", PRESIDENT<CTRL-M>FROM: " +A$ +"<CTRL-M>DATE: " +LD$ +"<CTRL-M>SUBJ: ": RETURN 
  22. 90 A = QT +A:A$ =  STR$(YR -(A <1) +(A >4)) +"/" + STR$(A +4 *(A <1) -4 *(A >4)): RETURN 
  23. 100 J = LN(I)/(AS(I) -CS(I)):I%(3) =  FN I(130 *J ^2):A = I%(3) +I%(4):I%(4) = I%(4) -A *(A <0):B = (D%(4,1) +I%(3) +I%(4))/1000:X = 0:X = 1 *(B >IT(I)) -1 *(B <IT(I)): RETURN 
  24. 105 A =  -99999:L = 0: FOR J = 1 TO 4: IF (I%(J) -I1%(I,J)) *X >A  AND X  THEN A = (I%(J) -I1%(I,J)) *X:L = J
  25. 110 I1%(I,J) = I%(J) *(IT(I) >0): NEXT : RETURN 
  26. 700 K = 5:KK = 0:B$ = "<CTRL-L><CTRL-W><CTRL-^>08": IF G <1  THEN B$ = "<CTRL-L><CTRL-W><CTRL-^>14"
  27. 705 N = 12:X = SL%(I) +FM%(I):A = X: GOSUB 2:J = SP%(I):S$(3,1) = B$ +"SALES REPORT<CTRL-R><CTRL-M><CTRL-M><CTRL-^>11SALES ACTIVITY " +LD$ +"<CTRL-M><CTRL-^>24units<CTRL-^>34%ch<CTRL-M>Available for Sale<CTRL-[>" + STR$(X) +"<CTRL-^>27<CTRL-[>" +A$ +"<CTRL-^>36<CTRL-M>Total Demand<CTRL-[>":C =  INT(LM(I)/SP%(I) +SL%(I)):A = C: GOSUB 2
  28. 710 S$(3,1) = S$(3,1) + STR$(C) +"<CTRL-^>27<CTRL-[>" +A$ +"<CTRL-^>36<CTRL-M>Units Sold<CTRL-[>":A = SL%(I): GOSUB 2:S$(3,1) = S$(3,1) + STR$(SL%(I)) +"<CTRL-^>27<CTRL-[>" +A$ +"<CTRL-^>36<CTRL-M>": IF C = SL%(I)  AND C = X  THEN S$(3,1) = S$(3,1) +"<CTRL-^>18(perfect match)": GOTO 725
  29. 715  IF C >SL%(I)  THEN S$(3,1) = S$(3,1) +"Unsatisfied Demand<CTRL-[>" + STR$(C -SL%(I)) +"<CTRL-^>27": GOTO 725
  30. 720  IF FM%(I)  THEN S$(3,1) = S$(3,1) +"Excess Units<CTRL-[>" + STR$(FM%(I)) +"<CTRL-^>27"
  31. 725 A = 2560 +I:B = 0: FOR J = 0 TO 4:B = B + PEEK(A +J *12): NEXT : IF YR = 0  OR B = 0  THEN S$(3,2) = "<CTRL-M><CTRL-M>": GOTO 745
  32. 730 K = 5:S$(3,2) = "<CTRL-M><CTRL-M><CTRL-^>06CONSUMER PREFERENCE ESTIMATES<CTRL-M><CTRL-^>12market rank   % sales caused<CTRL-M>Price<CTRL-^>17" + STR$( PEEK(A +6)) +"<CTRL-[>" + STR$( INT( PEEK(A)/B *100 +.5)) +"<CTRL-^>33<CTRL-M>Advertising<CTRL-^>17" + STR$( PEEK(A +18)) +"<CTRL-[>"
  33. 735 S$(3,2) = S$(3,2) + STR$( INT( PEEK(A +12)/B *100 +.5)) +"<CTRL-^>33<CTRL-M>Product<CTRL-^>17" + STR$( PEEK(A +30)) +"<CTRL-[>" + STR$( INT( PEEK(A +24)/B *100 +.5)) +"<CTRL-^>33<CTRL-M>History<CTRL-^>17" + STR$( PEEK(A +42)) +"<CTRL-[>" + STR$( INT( PEEK(A +36)/B *100 +.5)) +"<CTRL-^>33<CTRL-M>Other<CTRL-^>17"
  34. 740 S$(3,2) = S$(3,2) + STR$( PEEK(A +54)) +"<CTRL-[>" + STR$( INT( PEEK(A +48)/B *100 +.5)) +"<CTRL-^>33"
  35. 745 S$(3,3) = "<CTRL-M><CTRL-M><CTRL-^>14PERFORMANCE CHART<CTRL-M><CTRL-^>04income<CTRL-^>33revenue<CTRL-M>":B = 10 ^10:X =  -1 *B: FOR J = 1 TO 4:A = S(I,J):L = E(I,J):B = B *(B <L) +L *(B > = L):X = X *(X >A) +A *(X < = A): NEXT :B = B *(B <0):L = (X -B)/35
  36. 750  FOR J = 4 TO 1  STEP  -1:A = 1 -J: GOSUB 90:S$(3,3) = S$(3,3) +A$ +" ":A = (E(I,J) -B)/L:A = A *(A >0): IF (A)  THEN  FOR M = 1 TO A:S$(3,3) = S$(3,3) + CHR$(255): NEXT 
  37. 755 A = (S(I,J) -B)/L -A: FOR M = 1 TO A:S$(3,3) = S$(3,3) + CHR$(254): NEXT :S$(3,3) = S$(3,3) +"<CTRL-M>": NEXT :S$(3,4) = "<CTRL-^>05" + STR$(B) +"<CTRL-[>" + STR$(X) +"<CTRL-]>39"
  38. 765 II = IT(I):A = 1: GOSUB 90:LD$ = A$:A$ = "Finance Director": GOSUB 80: IF ((LN(I) = 0  AND LW(I) <0)  OR (LN(I) = 0  AND LW(I) = 0))  AND CS(I) >0  THEN 890
  39. 770 B = (E(I,1) *4 +E(I,2) *3 +E(I,3) *2 +E(I,4)) *.4:B = B *(B >0) -1 *(B < = 0):A = 10 *IT(I) *LN(I)/B -3:I%(4) = ((A *(A <17) +17 *(A > = 17)) *(B >0) +17 *(B <0)) *10 +.5: GOSUB 100: IF  ABS(B -IT(I)) <.035  AND LW(I) = 0  AND J *(CL(I) = 0) < = C%(I)/10  AND CS(I) >0  THEN 890
  40. 775  IF CS(I) >0  OR LW(I) > -CS(I)  OR (CL(I) = 0  AND K%(I) > = 0)  THEN 790
  41. 780 A = CL(I):LW(I) = A *(A < -CS(I)) -CS(I) *(A > =  -CS(I)):S$(K,M) = S$(K,M) +"Emergency Loan<CTRL-M><CTRL-M>": IF LW(I) < = 0  THEN LW(I) = 1: GOTO 815
  42. 785 S$(K,M) = S$(K,M) +"  I have secured an emergency loan in<CTRL-M>the amount of $" + STR$(LW(I)) +".<CTRL-M>":M = 2:S$(K,M) = "": GOTO 840
  43. 790 A =  INT((AS(I) -CS(I)) *C%(I)/10 -LN(I)): IF J < = C%(I)/10  OR CL(I)  OR A >LW(I)  THEN 800
  44. 795 LW(I) = A *(A > =  -CS(I)) -CS(I) *(A < -CS(I)):S$(K,2) = "Recalled Loans<CTRL-M><CTRL-M>  Based on our activities last quarter,<CTRL-M>$" + STR$( -LW(I)) +" of our loans have been immed-<CTRL-M>iatly recalled by our lenders.<CTRL-M>":M = 2: GOTO 840
  45. 800 A$ = " ": IF LW(I) = 0  THEN 850
  46. 805  IF YR = 0  THEN S$(K,M) = S$(K,M) +"Liability Report<CTRL-M><CTRL-M>": GOTO 840
  47. 810  IF M = 1  THEN S$(K,M) = S$(K,M) +"Requested Change in Loans<CTRL-M><CTRL-M>":M = 2:S$(K,M) = ""
  48. 815  IF CL(I) = 0  AND LW(I) >0  THEN S$(K,M) = S$(K,M) +"  I am sorry to inform you that no one<CTRL-M>is willing to loan us any additional<CTRL-M>money at this time.<CTRL-M>":LW(I) = 0: GOTO 840
  49. 820  IF LW(I) >0  THEN A = CL(I):A = A *(A < = LW(I)) +LW(I) *(A >LW(I)):A$ = "$" + STR$(A): IF A = LW(I)  THEN A$ = "all"
  50. 825  IF LW(I) >0  THEN S$(K,M) = S$(K,M) +"  I have been able to secure " +A$ +"<CTRL-M>of the $" + STR$(LW(I)) +" additional loans you<CTRL-M>requested.<CTRL-M>":LW(I) = A: GOTO 840
  51. 830 A =  -LW(I):A = A *(A <LN(I)) +LN(I) *(A > = LN(I)):LW(I) =  -A *(A <CS(I)) -CS(I) *(A > = CS(I)):A$ = "$" + STR$( -LW(I)): IF LW(I) =  -LN(I)  THEN A$ = "all"
  52. 835 S$(K,M) = S$(K,M) +"  As you authorized, I repayed " +A$ +"<CTRL-M>of our loans this quarter.<CTRL-M>"
  53. 840 CS(I) = CS(I) +LW(I):C = LN(I):LN(I) = C +LW(I):AS(I) = AS(I) +LW(I):M = M +1:S$(K,M) = "":N = AS(I): GOSUB 100:A$ = " also ": IF K%(I) > = 0  THEN  IF B = IT(I)  OR LN(I) = 0  OR C = 0  THEN IT(I) = B *(LN(I) >0): GOSUB 105: GOTO 885
  54. 845  IF K%(I) <0  THEN S$(K,M) = "<CTRL-M>  WE HAVE NO CREDIT AND OUR CASH ACCOUNTIS OVERDRAWN!!": GOTO 915
  55. 850  IF M = 1  THEN S$(K,1) = S$(K,1) +"Refinanced Loans<CTRL-M><CTRL-M>":M = 2:S$(K,M) = ""
  56. 855 S$(K,M) = S$(K,M) +"  I have" +A$ +"been informed that the<CTRL-M>interest rate on our outstanding loans<CTRL-M>will be ":A$ = "increased": IF B <IT(I)  THEN A$ = "decreased"
  57. 860 S$(K,M) = S$(K,M) +A$ +" from the present<CTRL-M>rate of " + STR$(IT(I) *100) +"%.":IT(I) = B: GOSUB 105: IF L = 0  THEN 885
  58. 865 S$(K,M) = S$(K,M) +"  This change was mainly<CTRL-M>caused by ":A$ = "an inflation rate change.<CTRL-M>": IF L = 1  OR D%(4,1) < = D%(4,2)  THEN A$ = "money supply shifts.<CTRL-M>"
  59. 870  IF L = 3  AND E(I,1) >0  THEN A$ = "our liability/assets ratio.<CTRL-M>"
  60. 875  IF (L >2  AND E(I,1) < = 0  AND X >0)  OR L = 4  THEN A$ = "our earnings/interest ratio.<CTRL-M>"
  61. 880 S$(K,M) = S$(K,M) +A$
  62. 885  IF LN(I)  THEN M = M +1:S$(K,M) = "":S$(K,M) = "  The annual rate on loans totaling<CTRL-M>$" + STR$(LN(I)) +" will be " + STR$(IT(I) *100) +"%.  Our quarterly<CTRL-M>interest payment will now be $" + STR$( INT(LN(I) *IT(I)/4 +.5)) +".<CTRL-M>"
  63. 890  IF M = 1  THEN S$(K,M) = S$(K,M) +"Credit Limit<CTRL-M><CTRL-M>": IF QQ = 0  THEN K = K -1
  64. 895  IF QQ = 0  THEN 915
  65. 900 A = E(I,1):J = C%(I):C%(I) = J -(A <0) *(J >1) +(A >0) *(J <9):A =  INT(((AS(I) -CS(I)) *C%(I)/10 -LN(I))/100) *100:CL(I) = A *(A >0):M = M +1: IF A < = 0  THEN S$(K,M) = "  We have no credit available this<CTRL-M>quarter.": GOTO 915
  66. 905 S$(K,M) = "  Our guaranteed line of credit for<CTRL-M>this quarter is $" + STR$(CL(I)) +".": IF CS(I) >0  THEN S$(K,M) = S$(K,M) +"  Together with<CTRL-M>our current cash,  we have access to<CTRL-M>total funds of $" + STR$(A +CS(I)) +"."
  67. 915  IF F1%(I) = 0  AND R%(I,3) < >2  AND R%(I,4) < >2  AND PP%(I) = PU%(I)  THEN 960
  68. 920 A$ = "Production Manager": GOSUB 80:S$(K,M) = S$(K,M) +"Production Changes<CTRL-M><CTRL-M>": IF F1%(I) = 0  THEN 937
  69. 925 A$ = "purchase":B$ = "increased":J = F1%(I):A = J *10:B = UQ%(I):M = M +1: IF J <0  THEN A$ = "sale":B$ = "reduced":A =  INT(B/(F%(I) -J) *J +.5)
  70. 930 B = B +A:UQ%(I) = B:J =  ABS(J):A$ = "  The " +A$ +" of " + STR$(J) +" factory": IF J >1  THEN A$ = A$ +"<CTRL-H>ies"
  71. 935 S$(K,M) = A$ +", as per<CTRL-M>your instructions, has " +B$ +" our<CTRL-M>capacity by " + STR$( ABS(A)) +" units per quarter.  Our<CTRL-M>normal output is now " + STR$(B) +" units.<CTRL-M>"
  72. 937  IF R%(I,3) < >2  AND R%(I,4) < >2  THEN 945
  73. 940 M = M +1: IF R%(I,3) = 2  THEN A$ = "  The automated equipment proposal has<CTRL-M>": IF R%(I,4) = 2  THEN A$ = "   The product & automation proposals<CTRL-M>have "
  74. 942  IF R%(I,4) = 2  AND R%(I,3) < >2  THEN A$ = "  The product enhancement proposal has<CTRL-M>"
  75. 943 S$(K,M) = A$ +"been implemented and will affect<CTRL-M>production this quarter.<CTRL-M>"
  76. 945  IF PU%(I) = PP%(I)  THEN 960
  77. 947 A$ = "problems beyond our control.": IF T%(I) = 5  THEN A$ = "equipment breakdown."
  78. 948  IF RS = 1  THEN A$ = "raw material delivery problems."
  79. 949  IF RS = 2  THEN A$ = "a raw material embargo."
  80. 950  IF T%(I) = 7  THEN A$ = "loss of a factory."
  81. 952  IF R%(I,1) = 3  THEN A$ = "labor problems."
  82. 955 M = M +1:S$(K,M) = "  The planned production of " + STR$(PP%(I)) +" units<CTRL-M>last quarter was reduced to " + STR$(PU%(I)) +" units<CTRL-M>due to " +A$
  83. 960  IF F%(I) = 0  OR UQ%(I) = 0  THEN LC(I) = LC: GOTO 1020
  84. 965 R%(I,3) = 0:R%(I,4) = 0:A =  INT((LC -LC(I))/LC(I) *100):B =  INT((PU%(I)/UQ%(I) +.25) *A +.5):B = B *(B <100) +100 *(B >99): IF A <10  OR B <5  OR R%(I,1) = 2  THEN 1000
  85. 970 A$ = "Personnel Director": GOSUB 80: IF R%(I,1) = 3  THEN S$(K,M) = S$(K,M) +"LABOR STRIKE<CTRL-M><CTRL-M>  The labor union called a STRIKE and<CTRL-M>say they will not work until they are<CTRL-M>": GOTO 990
  86. 975 A$ = "still ": IF R%(I,1) = 0  OR QQ = 0  THEN A$ = "": IF  RND(1) >.4 *(PU%(I)/UQ%(I))  OR QQ = 0  THEN K = K -1: GOTO 1000
  87. 980  IF R%(I,1) = 1  AND  RND(1) >.7 *(PU%(I)/UQ%(I))  THEN K = K -1: GOTO 1020
  88. 985 S$(K,M) = S$(K,M) +"Labor Demands<CTRL-M><CTRL-M>  The labor union is " +A$ +"threatening<CTRL-M>a strike if they are not immediately<CTRL-M>"
  89. 990 M = M +1:S$(K,M) = "given a " + STR$(A *2) +"% raise. I feel certain they<CTRL-M>will accept a " + STR$(A) +"% increase.": IF R%(I,1) < >3  THEN S$(K,M) = S$(K,M) +"  If we do<CTRL-M>nothing, I estimate a " + STR$(B) +"% chance that<CTRL-M>they will act."
  90. 995 M = M +1:S$(K,M) = "<CTRL-M>  Send a memo to `L' to approve my<CTRL-M>labor proposal.":R%(I,1) = R%(I,1) +(R%(I,1) = 0): GOTO 1020
  91. 1000 A$ = "": IF G >0  THEN A$ = "<CTRL-^>28}<CTRL-M><CTRL-M>"
  92. 1005 J = R%(I,1):R%(I,1) = 0: IF J = 2  THEN K = K +1:S$(K,1) = "<CTRL-L><CTRL-E><CTRL-^>11HEY BOSS,<CTRL-M>THANX FOR DA RAZE!<CTRL-M><CTRL-M><CTRL-R>" +A$ +"<CTRL-^>17- The Union Spokesman -":LC(I) = LC: GOTO 1020
  93. 1010  IF A < =  -5  AND  RND(1) <.3  THEN A$ = "Personnel Director": GOSUB 80:S$(K,M) = S$(K,M) +"Labor Costs<CTRL-M><CTRL-M>  Due to high unemployment I was able<CTRL-M>to lower the wages payed our labor forceby " + STR$( ABS(A)) +"%.":LC(I) = LC
  94. 1020 L = RD(I,0) +RD(I,1) +1: IF .01 ^(1/(L/600)) +V/4 < RND(1)  OR RD(I,1) *RD(I,2) = 0  OR K%(I) <0  OR PU%(I) = 0  OR QQ = 0  THEN 1075
  95. 1025 A$ = "Director of R & D": GOSUB 80:S$(K,M) = S$(K,M) +"Research Break-Through<CTRL-M><CTRL-M>":A = UQ%(I): IF  RND(1) >.1  THEN 1035
  96. 1030 UQ%(I) = A + INT(A/10 +.5):S$(K,2) = "  We have implemented a productivity<CTRL-M>improvement program that will increase<CTRL-M>output capacity per factory by 10%<CTRL-M>making the normal production per quar-<CTRL-M>ter now " + STR$(UQ%(I)) +" units.": GOTO 1070
  97. 1035  IF  RND(1) <.1  THEN A%(I) = A%(I) *.9:S$(K,2) = "  We have acquired some inexpensive<CTRL-M>computer equipment (3 Apples) that we<CTRL-M>can use for production scheduling and<CTRL-M>inventory control.  We reduced produc-<CTRL-M>tion overhead costs by 10%.": GOTO 1070
  98. 1040 A =  INT(LC *500 *F%(I)/10 +.999) *10:B =  INT(L%(I)/10)/L%(I):L =  INT(A/(B *4 *PU(I)) *10)/10:S$(K,M) = S$(K,M) +"  We have discovered a method of using<CTRL-M>automated equipment that will reduce<CTRL-M>"
  99. 1045 M = M +1:S$(K,M) = "our labor cost by 10% for an investment<CTRL-M>of $" + STR$(A) +".  At our present production<CTRL-M>rate and costs this investment will be<CTRL-M>recovered after only " + STR$(L) +" quarters."
  100. 1050 S$(K,M) = S$(K,M) +"<CTRL-M>Send a memo to `A' to approve this<CTRL-M>automation proposal.<CTRL-M>":M = M +1:R%(I,3) = 1: IF MK(I,1) *MK(I,2) = 0  THEN 1075
  101. 1055 B = 0: FOR J = 0 TO T:B = B +PD%(J): NEXT :B = B +5:B = 5/B *P%(3):A =  INT(FC/1400) *100
  102. 1060 S$(K,M) = "  We have also developed an improved<CTRL-M>product design that the marketing de-<CTRL-M>partment believes will increase our<CTRL-M>sales by " + STR$( INT(B *10 +.5)/10) +"%.  The total costs for<CTRL-M>changing over our facilities to produce<CTRL-M>":M = M +1
  103. 1065 S$(K,M) = "this improved product will be $" + STR$(A) +".<CTRL-M>Send `P' a memo to approve this change.":M = M +1:R%(I,4) = 1
  104. 1070 RD(I,0) = RD(I,0) *.75
  105. 1075  IF R%(I,5) < >2  OR T%(I) > = 10  THEN 1145
  106. 1090 A = T1%(I): ON T%(I) GOTO 1095,1100,1105,1110,1115,1120,1125,1130,1135
  107. 1095 A$ = "Personnel Director": GOSUB 80:S$(K,2) = "Lost Suit<CTRL-M><CTRL-M>  We lost a sex discrimination suit<CTRL-M>last quarter and had to pay a $" + STR$(A) +"<CTRL-M>fine.  We are now actively recruiting<CTRL-M>female fork-lift operators.": GOTO 1140
  108. 1100 A$ = "Sales Director": GOSUB 80:S$(K,2) = "Sales Loss<CTRL-M><CTRL-M>  We were the victim of a consumer<CTRL-M>boycott last quarter due to rumors con-<CTRL-M>cerning our product.  We have published<CTRL-M>a rebuttal and expect sales to recover.": GOTO 1140
  109. 1105 A$ = "Production Manager": GOSUB 80:S$(K,2) = "Plant Modifications<CTRL-M><CTRL-M>  The EPA cited us for numerous pollu-<CTRL-M>tion violations.  We were forced to<CTRL-M>invest $" + STR$(A) +" into the plant to remedy<CTRL-M>the problems immediately.": GOTO 1140
  110. 1110 A$ = "Production Manager": GOSUB 80:S$(K,2) = "Operations Changes<CTRL-M><CTRL-M>  OSHA safety inspectors have required<CTRL-M>a number of changes to our operations<CTRL-M>to reduce hazards.  Our production over-head have gone up " + STR$(A) +"%.": GOTO 1140
  111. 1115 A$ = "Maintenance Foreman": GOSUB 80:S$(K,2) = "Equipment Breakdown<CTRL-M><CTRL-M>  We had a equipment breakdown due to<CTRL-M>heavy production scheduling.  Output<CTRL-M>last quarter was reduced by 10% and the<CTRL-M>cost of repairs were $" + STR$(A) +".": GOTO 1140
  112. 1120 A$ = "Finance Director": GOSUB 80:S$(K,2) = "Finished Goods Loss<CTRL-M><CTRL-M>  There was a flood in one of our fin-<CTRL-M>ished goods warehouses totally destroy-<CTRL-M>ing 10 units.  We received $" + STR$(A) +" from<CTRL-M>our insurance coverage.": GOTO 1140
  113. 1125 A$ = "Production Manager": GOSUB 80:S$(K,2) = "Loss of Factory<CTRL-M><CTRL-M>  We had a fire that totally destroyed<CTRL-M>one factory.  Our insurance payed the<CTRL-M>undepreciated value of $" + STR$(A) +" on the<CTRL-M>loss.": GOTO 1140
  114. 1130 A$ = "Marketing Manager": GOSUB 80:S$(K,2) = "Advertising Effectiveness<CTRL-M><CTRL-M>  Our recent advertising campaign using<CTRL-M>Brooke Shields caused a considerable<CTRL-M>scandal that reduced our sales signif-<CTRL-M>icantly.": GOTO 1140
  115. 1135 A$ = "Finance Director": GOSUB 80:S$(K,2) = "Surplus Property Sales<CTRL-M><CTRL-M>  We netted $" + STR$(A) +" through an auction<CTRL-M>sale of various surplus properties that<CTRL-M>we no longer needed.": GOTO 1140
  116. 1140 R%(I,5) = 0:T%(I) = 0:T1%(I) = 0
  117. 1145 R = 0: IF K%(I) = 1  AND YR  AND QQ  AND T >0  THEN A = 0: GOSUB 90:LD$ = A$: IN# 0: PR# 0: CALL 1002: CALL 16392"BS-BEGN"
  118. 1150  IN# 0: PR# 0: CALL 1002: CALL 16392"BS-REP2"