40 A$ = "Special Advisor": GOSUB 30:R = 1:B = 1:M = 0:C = E(I,1) -O%(I): FOR J = 0 TO T:R = R +(S(J,1) >S(I,1)):L = E(J,1) -O%(J):B = B +(L >C):M = M +MK(J,1): NEXT
50 M = M/Q:M = M +(M = 0):A = (MK(I,1) -M)/M:L = (SP%(I) -D%(6,1))/D%(6,1):J = PU%(I):X = UQ%(I) -F1%(I) *10: IF X THEN J = (PU%(I) -X)/X
60 S$(0,1) = S$(0,1) +"Beginner's Report<CTRL-M><CTRL-M>":B$ = "<CTRL-M> Remember, consistancy is best but<CTRL-M>when changes are needed, make them in<CTRL-M>small steps."
70 IF PU%(I) < = X -10 AND F1%(I) > = 0 THEN B$ = B$ +"<CTRL-M> In addition, you are not using the<CTRL-M>normal capacity of your factories. You<CTRL-M>need to use them or sell the extra."
80 S$(0,1) = S$(0,1) +" You ranked " +NM$(R) +" in revenue this quarterand " +NM$(B) +" in net income. Overall, you did":A$ = "alright": IF C <AE *.8 THEN A$ = "poorly"
90 IF C >AE *1.2 OR B = 1 THEN A$ = "very well": IF C >100 THEN S$(0,2) = "very well relative to the competition.<CTRL-M><CTRL-M> You don't need any advice from me.<CTRL-M>Just keep up the good work!": GOTO 370
100 S$(0,1) = S$(0,1) +A$ +" relative to the competition.": IF FM(I) = 0 AND LM(I) = 0 THEN S$(0,2) = "<CTRL-M> Your product available matched the<CTRL-M>demand": IF M%(I) >300 THEN S$(0,2) = S$(0,2) +" but miscellaneous expenses hurt<CTRL-M>your income.": GOTO 320
110 IF FM(I) = 0 AND LM(I) = 0 THEN S$(0,2) = S$(0,2) +".": GOTO 230
120 S$(0,2) = "<CTRL-M> You had more demand than product": IF FM(I) THEN S$(0,2) = "<CTRL-M> You had more product than demand"
130 IF M%(I) >300 THEN S$(0,2) = S$(0,2) +" and<CTRL-M>miscellaneous expenses hurt income"
140 S$(0,2) = S$(0,2) +".": IF FM(I) THEN 190
150 A$ = "raising your price.": IF MK(I,1) >M AND A *P%(2) > -L *P%(1) THEN A$ = "reducing your advertising."
160 IF PU%(I) <X AND J >L AND -J >(A) THEN A$ = "increasing production."
170 IF F%(I) = 0 OR (D%(5,1)/Q >X +10 AND C%(I) = 9 AND PU%(I) > = X AND F1%(I) < = 0) THEN A$ = "buying a factory.":B$ = ""
175 IF SL%(I) THEN IF C/SL%(I) < -.1 *SP%(I) AND L <0 THEN A$ = "raising your price."
177 IF PU%(I) <.8 *PP%(I) THEN A$ = "resuming planned production (see memo).":B$ = ""
180 GOTO 310
190 A$ = "increasing your advertising.": IF SP%(I) >D%(6,1) AND -A *P%(2) <L *P%(1) THEN A$ = "reducing your price."
200 IF PU%(I) >X AND J > -A AND J >L THEN A$ = "reducing your production."
210 IF FM%(I) >X AND D%(5,1)/Q <X -10 AND F1%(I) > = 0 THEN A$ = "selling a factory.":B$ = ""
220 GOTO 310
230 IF C >.8 *AE THEN 320
240 S$(0,2) = S$(0,2) +" But you need to increase incometo remain competitive in the industry."
250 A$ = "": IF PU%(I) >(D%(5,1)/Q) OR PU%(I) >X THEN 280
260 A$ = "increasing production": IF MK(I,1) <M THEN A$ = A$ +" and advertising.": GOTO 310
270 IF SP%(I) >D%(6,1) THEN A$ = A$ +" while lowering<CTRL-M>your price.": GOTO 310
280 IF MK(I,1) <M AND SP%(I) <D%(6,1) THEN A$ = "increasing your price and advertising.": GOTO 310
290 IF MK(I,1) >M AND SP%(I) >D%(6,1) THEN A$ = "reducing your price and advertising.": GOTO 310
320 A = 1: IF C%(I) *AS(I)/10 -LN(I) +CS(I) <5000 THEN A = 0:S$(0,3) = "":S$(0,4) = "":S$(0,2) = "<CTRL-M> You are in serious financial trouble!": IF F%(I) >1 THEN S$(0,2) = S$(0,2) +"You better sell a factory.": GOTO 370
330 IF A = 0 THEN 370
340 IF CS(I) >1000 AND LN(I) THEN S$(0,5) = "<CTRL-M> You might also pay back some of your<CTRL-M>loan this period to reduce the interest<CTRL-M>expense.
345 IF RT < >4 AND (RC <S0(1) *D%(2,1)/B2 *.6 OR (RT = 3 AND QT = 2)) THEN S$(0,5) = "<CTRL-M> You might want to stock up on raw<CTRL-M>materials while the price is low."
350 IF (YR -1) *4 +QT = 1 OR (RD(I,1) <RD(I,2) AND ABS(QQ) >3) THEN S$(0,5) = "<CTRL-M> Consistant investments of from $200<CTRL-M>to $600 per quarter in R & D are advisedif you wish to improve your product or<CTRL-M>lower production costs.
360 IF ABS(QQ) <4 AND RD(I,1) THEN S$(0,5) = "<CTRL-M> Do not invest any further in R & D<CTRL-M>this near the end of the game."
