home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / CARTELS.DSK / BS-START.bas < prev    next >
BASIC Source File  |  2014-09-09  |  22KB  |  182 lines
  1. 1  IF A$ = "qzq"  THEN 800
  2. 10  PRINT "<CTRL-D>MAXFILES1": PRINT "<CTRL-D>BRUNLOMEM:": &  LOMEM: 16849: POKE 1014,0: POKE 1015,182
  3. 15  PRINT : PRINT "<CTRL-D>BRUNTST,A8192": PRINT "<CTRL-D>BLOADTEST.F3": PRINT "<CTRL-D>BLOADTCHAIN,A16392": PR# 0: IN# 0
  4. 20  HGR : TEXT :A = B:C = I:J = K:L = M:X = T:A$ = B$:C$ = D$: DEF  FN I(A) = A *(A <32000) +32000 *(A > = 32000): GOTO 800
  5. 30 B = 0: FOR J = 1 TO 12:B = B + RND(1): NEXT :B = B -6: RETURN 
  6. 50  INPUT "WHICH? ";A: IF A <1  OR A >B  THEN  PRINT "<CTRL-G><CTRL-K>";: GOTO 50
  7. 52  RETURN 
  8. 90 A = QT +A:A$ =  STR$(YR -(A <1) +(A >4)) +"/" + STR$(A +4 *(A <1) -4 *(A >4)): RETURN 
  9. 100 Z = Z +1: IF Z >1  THEN  RETURN 
  10. 103 B = B *2 +A -1: FOR J = A TO B  STEP 2:K =  PEEK(J): POKE 0,K: POKE 1, PEEK(J +1) *.8: IF K = 0  THEN  FOR K = 1 TO 100: NEXT K: GOTO 110
  11. 105  CALL 2892
  12. 110  FOR K = 1 TO 10: NEXT K: NEXT : RETURN 
  13. 200  PRINT "<CTRL-L><CTRL-W>CONGRATULATIONS!<CTRL-R><CTRL-M><CTRL-M>    You have acquired a manufacturing<CTRL-M>company that makes a product considered<CTRL-M>a ";: IF DR = .5  THEN  PRINT "necessity by most consumers."
  14. 202  IF DR = 1  THEN  PRINT "necessity by some and a luxury by<CTRL-M>other consumers."
  15. 204  IF DR = 2  THEN  PRINT "luxury by most consumers."
  16. 206  PRINT "   Your raw material prices ";: IF RT = 1  THEN  PRINT "are stable<CTRL-M>and based on abundant supplies."
  17. 208  IF RT = 2  THEN  PRINT "fluctuate<CTRL-M>unpredictably according to world-wide<CTRL-M>supplies."
  18. 210  IF RT = 3  THEN  PRINT "fluctuate<CTRL-M>seasonally with the third quarter offer-ing the lowest prices."
  19. 212  IF RT = 4  THEN  PRINT "are directlyinfluenced by the total demand of your<CTRL-M>industry on your few suppliers."
  20. 214 A =  INT(((G(1) -1) *4 +.025)/.05): PRINT "   The economic outlook for the next<CTRL-M>five years is for ";: IF A <0  THEN  PRINT "slow decline";
  21. 216  IF A = 0  THEN  PRINT "no growth";
  22. 218  IF A = 1  THEN  PRINT "slow growth";
  23. 220  IF A >1  THEN  PRINT "strong expansion";
  24. 222  PRINT " in<CTRL-M>the Gross National Product (GNP)";: IF G(2)  THEN  PRINT " with an";: IF G(3) >0  THEN A$ = "up"
  25. 224  IF G(2)  AND G(3) < = 0  THEN A$ = "down"
  26. 226  IF G(2)  AND  SGN(A) =  SGN(G(3))  THEN  PRINT "additional economic ";A$;"-turn likely<CTRL-M>some time in the future";
  27. 228  IF G(2)  AND  SGN(A) < > SGN(G(3))  THEN  PRINT "economic ";A$;"-turn likely some time<CTRL-M>in the future";
  28. 230 A =  INT((((BC -1) *4 +(G(1) -1) *4)/2 +.025)/.05 +1): PRINT ".<CTRL-M>   Inflation, as measured by the Con-<CTRL-M>sumer Price Index (CPI), is expected to<CTRL-M>continue at a ";: IF A <2  THEN  PRINT "very low";
  29. 232  IF A = 2  THEN  PRINT "controlled";
  30. 234  IF A = 3  THEN  PRINT "high";
  31. 236  IF A >3  THEN  PRINT "runaway";
  32. 238 A =  INT(V/.05): PRINT " level.<CTRL-M>   In addition, the impact of chance<CTRL-M>on the companies and the economy should": IF A = 1  THEN  PRINT "be moderate."
  33. 240  IF A <1  THEN  PRINT "be slight."
  34. 242  IF A >2  THEN  PRINT "make a wild next ";QQ;" quarters!"
  35. 244  IF A = 2  THEN  PRINT "be significant."
  36. 246  RETURN 
  37. 400  IF G = 4  THEN A = 3: GOTO 535
  38. 420 G(1) =  RND(1) *.15 -.05:BC =  RND(1) *.15: IF BC +G(1) >.2  THEN 400
  39. 452 X = G(1):G(1) = 1 +G(1)/4:BC = 1 +BC/4:A =  SGN( INT( RND(1) *5 -1.5)):G(2) = ( RND(1) *.2 +.01) *(A < >0)
  40. 455 B =  RND(1) *.08 +.04:L = B/.04
  41. 457 G(3) = ( RND(1) *.01 +.005) *L:G(4) =  INT( RND(1) *4 +2):J = G(3) *G(4): IF J <B *.8  OR J >B *1.2  THEN 457
  42. 460 G(3) = G(3) *A:J = J *A +X: IF J >.21  OR J < -.1  THEN 455
  43. 462 G(5) = ( RND(1) *.01 +.005) *L:G(6) =  INT( RND(1) *4 +2):J = G(5) *G(6): IF J <B *.8  OR J >B *1.2  THEN 462
  44. 465 G(5) =  -G(5) *A:J = X +G(3) *G(4) +G(5) *G(6): IF J >.21  OR J < -.1  THEN 455
  45. 467 G(3) = G(3)/4:G(5) = G(5)/4:V =  INT( RND(1) *4 +1):V = V *.05 -.03 *(V = 1):RT =  INT( RND(1) *4 +1):DR =  INT( RND(1) *3 +1)
  46. 470  IF DR = 1  THEN DR = .5:P%(1) = 80:P%(2) = 10:P%(3) = 5:P%(4) = 5
  47. 472  IF DR = 2  THEN DR = 1:P%(1) = 60:P%(2) = 20:P%(3) = 10:P%(4) = 10
  48. 475  IF DR = 3  THEN DR = 2:P%(1) = 40:P%(2) = 30:P%(3) = 15:P%(4) = 15
  49. 500  CALL 3072: GOSUB 200
  50. 505  PRINT : INPUT " IS THIS SCENARIO ACCEPTABLE? ";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  51. 510  IF  ASC(A$) =  ASC("Y")  THEN 600
  52. 515  PRINT "<CTRL-K><CTRL-K><CTRL-O>";: IF  ASC(A$) < > ASC("N")  THEN  PRINT "<CTRL-G>";: GOTO 505
  53. 520  PRINT "<CTRL-L>YOU MAY:<CTRL-M><CTRL-M><CTRL-M> 1) MAKE THE COMPUTER PICK AGAIN,<CTRL-M><CTRL-M> 2) MAKE YOUR OWN SCENARIO,<CTRL-M><CTRL-M> 3) SELECT A SPECIAL BEGINNER'S SET-UP.<CTRL-M><CTRL-M><CTRL-M>"
  54. 525  INPUT "WHICH WOULD YOU LIKE? ";A: IF A <1  OR A >3  THEN  PRINT "<CTRL-G><CTRL-G><CTRL-K><CTRL-O>";: GOTO 525
  55. 530  IF A = 1  THEN 400
  56. 535  IF A = 3  THEN DR = 3:RT = 1:V = .25:BC = .03 + RND(1) *.02:G(1) = .12 + RND(1) *.02:BC = 2 *BC -G(1):G(1) = 1 +G(1)/4:BC = 1 +BC/4:G(2) = 0:G(3) = 0: GOTO 470
  57. 540  PRINT "<CTRL-L>FROM EACH OF THE FOLLOWING GROUPS SELECT ONE OPTION BY NUMBER<CTRL-M><CTRL-M>PRODUCT TYPE:<CTRL-M> 1) necessity<CTRL-M> 2) mixed consumer good<CTRL-M> 3) luxury":B = 3: GOSUB 50:DR = A
  58. 545  PRINT "<CTRL-M>RAW MATERIAL PRICING:<CTRL-M> 1) stable<CTRL-M> 2) fluctuating<CTRL-M> 3) fluctuating seasonally<CTRL-M> 4) based on demand":B = 4: GOSUB 50:RT = A
  59. 550  PRINT "<CTRL-M>INFLATION:<CTRL-M> 1) runaway<CTRL-M> 2) high<CTRL-M> 3) controlled<CTRL-M> 4) very low":B = 4: GOSUB 50:BC = (4 -A) *.05 +( RND(1) *.02 -.01)
  60. 555  PRINT "<CTRL-M>GROSS NATIONAL PRODUCT:<CTRL-M> 1) strong expansion<CTRL-M> 2) slow growth<CTRL-M> 3) stagnant<CTRL-M> 4) slow decline":B = 4: GOSUB 50:G(1) = (3 -A) *.05 +( RND(1) *.02 -.01):BC = 2 *BC -G(1):G(1) = 1 +G(1)/4:BC = 1 +BC/4
  61. 560  PRINT "<CTRL-M>TYPE OF ECONOMIC SWING:<CTRL-M> 1) up-swing<CTRL-M> 2) none noticed<CTRL-M> 3) down-swing":B = 3: GOSUB 50:C = (2 -A): IF C = 0  THEN G(2) = 0:G(3) = 0: GOTO 585
  62. 565  PRINT "<CTRL-M>PROBABILITY OF ECONOMIC SWING HAPPENING: 1) slight<CTRL-M> 2) small<CTRL-M> 3) medium<CTRL-M> 4) high":B = 4: GOSUB 50:G(2) = .01 *(A = 1) +.04 *(A = 2) +.1 *(A = 3) +.2 *(A = 4)
  63. 570  PRINT "<CTRL-M>MAXIMIMUM CHANGE ON ECONOMIC SWING:<CTRL-M> 1) small<CTRL-M> 2) medium<CTRL-M> 3) large":B = 3: GOSUB 50:B = .04 *A: FLASH : HTAB 17: PRINT "WORKING<CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>";: NORMAL 
  64. 575 G(3) = ( RND(1) *.01 +.005) *A:G(4) =  INT( RND(1) *4 +2):J = G(3) *G(4): IF J <B *.8  OR J >B *1.2  THEN 575
  65. 580 G(5) = ( RND(1) *.01 +.005) *A:G(6) =  INT( RND(1) *4 +2):J = G(5) *G(6): IF J <B *.8  OR J >B *1.2  THEN 580
  66. 585 G(3) = G(3) *C/4:G(5) = G(5) * -C/4: PRINT "<CTRL-O><CTRL-M>IMPACT OF CHANCE ON THE GAME:<CTRL-M> 1) slight<CTRL-M> 2) moderate<CTRL-M> 3) significant<CTRL-M> 4) WILD!":B = 4: GOSUB 50:V = A *.05 -.03 *(A = 1)
  67. 590  GOTO 470
  68. 600  IF G >0  THEN  PRINT "<CTRL-L>";: GOTO 1250
  69. 605  IN# 0: PR# 0: CALL 1002: TEXT : HOME : IF PS <8  THEN 625
  70. 607  POKE  -16368,0: PRINT "REMOVE THE GAME PROGRAM DISKETTE AND<CTRL-M>INSERT A DISK WITH YOUR PRINTER DRIVER<CTRL-M>NAMED '"P$"' ON IT.<CTRL-M><CTRL-M>PRESS 'RETURN' WHEN YOU ARE READY.": INPUT "";A$
  71. 610  ONERR  GOTO 615
  72. 612  PRINT "<CTRL-D>BLOAD";P$: POKE 216,0: POKE  -16368,0: HOME : PRINT "RE-INSERT THE GAME PROGRAM DISKETTE ANDPRESS ANY KEY WHEN READY.": GET A$: HOME : GOTO 625
  73. 615 X =  PEEK(222): POKE 216,0: PRINT "<CTRL-G><CTRL-G>DOS ERROR=";X: CALL 54915: PRINT "<CTRL-M><CTRL-M>PRESS ANY KEY TO CONTINUE": POKE  -16368,0: GET A$: GOTO 605
  74. 625  POKE  -16368,0: INPUT "HOW MANY COPIES OF THE SCENARIO DO<CTRL-M> YOU WANT? ";X: IF X <1  THEN  HOME : GOTO 1250
  75. 627  POKE  -16368,0: PRINT : PRINT "MAKE SURE YOUR PRINTER IS ON AND PRESS<CTRL-M> ANY KEY WHEN READY.": GET A$
  76. 630  HOME : GOSUB 200: CALL 2621: IF PS <8  THEN  IN# 0: PR# 0: CALL 1002: PRINT "<CTRL-D>PR#";PS
  77. 640  IF PS >7  THEN  CALL PS
  78. 645  POKE 2,SP: PRINT I$;: FOR I = 1 TO X: PRINT  SPC( SP);: CALL 2676: FOR J = 25 TO 54: PRINT : NEXT : PRINT "<CTRL-L>": NEXT : IN# 0: PR# 0: GOTO 1250
  79. 700  FOR I = 0 TO T:LC(I) = LC:RL%(I) = RM%(I):RL(I) = RM(I):A = RL%(I) +RB%(I):B = RL(I) +RB%(I) *RP%(I) +SC * INT(RL%(I)/10 +.99) +SU *RL%(I):RM%(I) = A:RM(I) = B:PU%(I) = A *(PU%(I) > = A) +PU%(I) *(PU%(I) <A): IF (A)  THEN RM%(I) = A -PU%(I):RM(I) =  INT(B/A *RM%(I) +.5)
  80. 702 FL%(I) = FM%(I):FM%(I) = FL%(I) +PU%(I)
  81. 703 PU(I) =  INT(L%(I)/4 *LC *PU%(I) +.5):CP(I) = RL(I) +RB%(I) *RP%(I) +SC * INT(RL%(I)/10 +.99) +SU *RL%(I) +PU(I) -RM(I):FL(I) = FM(I):B = FL(I) +CP(I) + INT(FL%(I)/10 +.99) *SC *2 +FL%(I) *SU *2:FM(I) = B: IF FM%(I)  THEN A = FM%(I):FM%(I) = A -SL%(I):FM(I) =  INT(B/A *FM%(I) +.5)
  82. 704 MK(I,1) = 200:RD(I,1) = 300
  83. 705 CG(I) = B -FM(I):A =  INT(L%(I) *PU%(I)/10 +.99):C = A -LL%(I):LL%(I) = A:C =  -C *(C <0) +2 *C *(C >0):EX(I) = AX%(I) *F%(I) +AX +RD(I,1) +MK(I,1) +DF%(I) +DA%(I) +C:A = SL%(I) *SP%(I) -CG(I) -EX(I) - INT(LN(I) *IT(I)/4 +.5):X%(I) =  INT(A *TR/100) *100:X = A -X%(I)
  84. 710 C%(I) = 9:S(I,0) = 1:DP%(I) = DF%(I) +DA%(I):AS(I) = CS(I) +FV(I) +AM(I) +FM(I) +RM(I): FOR J = 1 TO 4:E(I,J) = X:S(I,J) = SL%(I) *SP%(I): NEXT : NEXT :RL = RB%(1) *Q:RB = RL:SE = AS(1)
  85. 715  FOR I = 0 TO T:A = SL%(I):J%(I,0) = SP%(I):J%(I,1) = CG(I)/A +.5:J%(I,2) = (EX(I) -RD(I,1) -MK(I,1) -DP%(I) -M%(I))/A +.5:J%(I,3) = MK(I,1)/A +.5:J%(I,4) = RD(I,1)/A +.5:J%(I,5) = DP%(I)/A +.5:J%(I,6) = M%(I)/A +.5:J%(I,7) = EX(I)/A +.5:J%(I,8) = 0:J%(I,9) = X%(I)/A +.5
  86. 720 J%(I,10) = (S(I,1) -E(I,1) +O%(I))/A +.5:J%(I,11) = (E(I,1) -O%(I))/A +.5:J = PU%(I):J%(I,12) = J:J%(I,13) = J:J%(I,14) = J:J%(I,15) = 0:J%(I,16) = RP%(I):J%(I,17) = 0:J%(I,18) = PU(I)/J +.5:J%(I,19) = F%(I) *AX%(I)/A +.5:CL(I) = 20000: NEXT : RETURN 
  87. 790 X =  PEEK(222): PRINT : PRINT "YOU GOT DOS ERROR ";X: POKE 768,104: POKE 769,168, POKE 770,104: POKE 771,166: POKE 772,223: POKE 773,154: POKE 774,72: POKE 775,152: POKE 776,72: POKE 777,96: POKE 216,0: CALL 768
  88. 792  PRINT : PRINT : PRINT "CONSULT DOS MANUAL PG. 114 ANDPRESS": INPUT " 'RETURN' TO CONTINUE: ";A$
  89. 800  CALL 3072: PRINT "<CTRL-L><CTRL-W>CARTELS & CUTTHROATS====================<CTRL-R>";: POKE 35,7: PRINT "<CTRL-C>0<CTRL-B>0<CTRL-C>9<CTRL-O>";: POKE 35,24: PRINT "<CTRL-M><CTRL-^>07THE BUSINESS STRATEGY GAME<CTRL-M><CTRL-M><CTRL-^>09[ 1981,  by Dan Bunten<CTRL-M><CTRL-M>": POKE 34,8: PRINT "<CTRL-C>9<CTRL-B>0<CTRL-C>0"
  90. 805  INPUT "<CTRL-L>DO YOU WANT TO START A NEW GAME? ";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  91. 807  IF  ASC(A$) =  ASC("Y")  THEN  PRINT "<CTRL-L>SPECIAL NOTE:  Do not remove the game<CTRL-M>  program diskette while playing, unless  (or until) you are told to.";:A = 2948:B = 21: GOSUB 100:Z = 1: PRINT "<CTRL-L>";: GOTO 840
  92. 810  IF  ASC(A$) < > ASC("N")  THEN  PRINT "<CTRL-G><CTRL-G><CTRL-L>";: GOTO 805
  93. 825  IN# 0: PR# 0: CALL 1002: CALL 16392"BS-CONT"
  94. 840  INPUT "<CTRL-L>IN WHAT SLOT IS YOUR DISK DRIVE? ";DS: IF DS <1  OR DS >7  THEN  PRINT "<CTRL-G><CTRL-G>";: GOTO 840
  95. 845 DS = 49289 +16 *DS
  96. 850  PRINT "<CTRL-L>YOU MAY SELECT FROM THE FOLLOWING WAYS<CTRL-M>OF PLAYING THIS GAME:<CTRL-M> 1) OPEN PLAY (where everyone sits<CTRL-M>   around the computer and can see each<CTRL-M>   other's reports)."
  97. 855  PRINT " 2) CLOSED PLAY (where each person<CTRL-M>   takes a turn viewing their reports<CTRL-M>   at the computer while everyone else<CTRL-M>   talks politics in the other room)."
  98. 860  PRINT " 3) HARD-COPY PLAY (where all reports<CTRL-M>   are printed on a printer and every-<CTRL-M>   body sits where they please)."
  99. 865  PRINT " 4) BEGINNER'S GAME"
  100. 870  INPUT "<CTRL-M>WHICH WOULD YOU LIKE? ";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  101. 875 G =  VAL(A$): IF G <1  OR G >4  THEN  PRINT "<CTRL-G><CTRL-G><CTRL-K><CTRL-K><CTRL-O>";: GOTO 870
  102. 880 G = G *(G < >3): IF G  AND G <4  THEN 1100
  103. 885  IF G = 0  THEN 920
  104. 890  PRINT "<CTRL-L>THE BEGINNER'S GAME INCLUDES:<CTRL-M><CTRL-M> OPEN PLAY (everyone sits around the<CTRL-M>   computer).<CTRL-M><CTRL-M> GAME PADDLES (are passed from player<CTRL-M>   to player for report viewing).<CTRL-M><CTRL-M> NUMBER OF TURNS = 8 (two years).<CTRL-M>"
  105. 895  PRINT " THE BEGINNER'S ECONOMIC SET-UP<CTRL-M>   (presented after your companies <CTRL-M>   are named)."
  106. 900  INPUT "<CTRL-M>IS THIS ACCEPTABLE? ";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  107. 905  IF  ASC(A$) =  ASC("Y")  THEN 1100
  108. 910  IF  ASC(A$) =  ASC("N")  THEN 850
  109. 915  PRINT "<CTRL-G><CTRL-G><CTRL-K><CTRL-K>";: GOTO 900
  110. 920 PS = 0: INPUT "<CTRL-L>DO YOU TURN YOUR PRINTER ON WITH A<CTRL-M> `PR#' ? ";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  111. 925  IF  ASC(A$) =  ASC("N")  THEN 950
  112. 930  IF  ASC(A$) < > ASC("Y")  THEN  PRINT "<CTRL-G><CTRL-G><CTRL-G>";: GOTO 920
  113. 935  PRINT : PRINT "ENTER THE NUMBER THAT FOLLOWS THE `PR#'<CTRL-M> THAT YOU USE TO TURN ON YOUR PRINTER.": INPUT " PR#? ";A: IF A >7  OR A <0  THEN  PRINT "<CTRL-G><CTRL-G>NO SUCH SLOT!": GOTO 935
  114. 940 G = 0:PS = A: IF A = 0  THEN 850
  115. 945  GOTO 965
  116. 950  PRINT "<CTRL-L>DO YOU USE A PRINTER DRIVER THAT IS<CTRL-M> STORED ON A DISK AND DO A `CALL xxx'": INPUT " TO TURN ON YOUR PRINTER ? ";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  117. 952  IF  ASC(A$) =  ASC("N")  THEN 850
  118. 953  IF  ASC(A$) < > ASC("Y")  THEN  PRINT "<CTRL-G><CTRL-G>": GOTO 950
  119. 955  PRINT : INPUT "WHAT IS THE NAME OF YOUR PRINTER DRIVER  ? ";P$: IF  LEN(P$) = 0  THEN  PRINT "<CTRL-G>";: GOTO 955
  120. 960  PRINT : INPUT "WHAT NUMBER DO YOU `CALL' TO TURN IT ON  ? ";PS: IF PS >767  AND PS <976  THEN 965
  121. 962  PRINT "<CTRL-G><CTRL-G><CTRL-L>YOUR PRINTER DRIVER WILL NOT WORK WITH<CTRL-M> THIS PROGRAM.  IT MUST FIT BETWEEN<CTRL-M> 767 & 976 (decimal) OR BETWEEN $300 &<CTRL-M> $3D0 (hex).<CTRL-M><CTRL-M>PRESS ANY KEY TO CONTINUE": GET A$:PS = 0:P$ = "": GOTO 850
  122. 964  HOME 
  123. 965  PRINT "<CTRL-L>IS THERE A CONTROL CODE (OR ESCAPE<CTRL-M>SEQUENCE) THAT YOU MUST SEND TO YOUR<CTRL-M>PRINTER TO MAKE IT WORK PROPERLY WITH<CTRL-M>THIS GAME?<CTRL-M><CTRL-M><CTRL-M> (If you don't know what this means then you hopefully don't have any problems)."
  124. 966  VTAB 12: HTAB 12: INPUT "    <CTRL-H><CTRL-H><CTRL-H><CTRL-H>";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  125. 968  IF  ASC(A$) =  ASC("N")  THEN 980
  126. 970  IF  ASC(A$) < > ASC("Y")  THEN  PRINT "<CTRL-G><CTRL-G>";: GOTO 966
  127. 972  IN# 0: PR# 0: TEXT : HOME : PRINT "ENTER THE SEQUENCE OF KEYS EXACTLY IN<CTRL-M>THE FASHION YOU WANT THEM SENT TO YOUR<CTRL-M>PRINTER EACH TIME IT IS TURNED ON.  END<CTRL-M>THE LINE (POSSIBLY INVISIBLE) WITH A<CTRL-M>'RETURN'.":I$ = ""
  128. 974  GET A$:I$ = I$ +A$:A =  ASC(A$):A = A -128 *(A >127): IF A >31  THEN  PRINT A$
  129. 976  IF A < >13  THEN 974
  130. 978  CALL 3072: POKE 34,8
  131. 980  PRINT "<CTRL-L>HOW MANY SPACES WOULD YOU LIKE TO INSERTBEFORE EACH PRINTED LINE?<CTRL-M><CTRL-M><CTRL-M> (This is useful since the lines on the<CTRL-M> reports are 40 columns and most print-<CTRL-M> ers will print at least 80 columns.": VTAB 10: HTAB 28: INPUT "";SP:SP = SP *(SP >0)
  132. 986  PRINT "<CTRL-L>THERE IS AN OPTIONAL WAY OF PLAYING THE<CTRL-M>GAME AVAILABLE WHEN USING A PRINTER.<CTRL-M><CTRL-M>IN THIS MODE OF PLAY, THE GAME IS AUTO-<CTRL-M>MATICALLY SAVED TO DISK AND STOPPED<CTRL-M>AFTER ALL REPORTS ARE PRINTED.  THE<CTRL-M>GAME RESUMES AT THE POINT WERE PLANS"
  133. 988  PRINT "ARE ENTERED.  THE GAME THEN PRINTS ALL<CTRL-M>REPORTS AND SAVES ITSELF AGAIN.<CTRL-M><CTRL-M> Players can thus be distant from the<CTRL-M> computer (like at the office or in the<CTRL-M> classroom) and each day can represent<CTRL-M> a period in the game."
  134. 990  INPUT "<CTRL-M>WOULD YOU LIKE TO TRY THIS MODE? ";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  135. 995  IF  ASC(A$) =  ASC("N")  THEN  PRINT "<CTRL-L>";: GOTO 1100
  136. 1000  IF  ASC(A$) < > ASC("Y")  THEN  PRINT "<CTRL-G><CTRL-G>";: GOTO 990
  137. 1005 G =  -1: PRINT : INPUT "WHAT NAME WOULD YOU LIKE FOR THE GAME<CTRL-M> (up to 10 characters) ? ";G$: IF  LEN(G$) = 0  THEN  PRINT "<CTRL-G>";: GOTO 1005
  138. 1100  PRINT "<CTRL-L>";: DIM AM(5),AS(5),B$(5),C$(5),CG(5),CP(5),CS(5),D%(6,4),DA%(5),DF%(5),E(5,4),EX(5),F%(5),F1%(5),FL(5),FL%(5),FM(5),FM%(5),FV(5),G(6),I%(4),I1%(5,4),L%(5),LC(5),LL%(5),LM(5),LN(5),LW(5),MK(5,2),N$(5),N%(6),NM$(6),P%(4),CL(5)
  139. 1110  DIM PD%(5),PU%(5),RB%(5),RD(5,2),RL%(5),RL(5),RM%(5),RM(5),RP%(5),S$(11,6),S0(6),S(5,4),S1%(5),SL%(5),SP%(5),X%(5),A%(5),AX%(5),U$(3),UQ%(5),R%(5,5),T%(5),T1%(5),CH$(2),M%(5),O%(5),C(5,11),U(5),DP%(5),R(5),K%(5),J%(5,19),C%(5),PP%(5)
  140. 1112  DATA "<CTRL-A>APPLE ADDICTS LTD.",APPLERS,"<CTRL-A>MICRO MERCHANTS INC",MICRO,"<CTRL-A>COMPUTER COMPETITOR",COMPUTER,"<CTRL-A>ROM & RAM COMPANY",ROM&RAM,"<CTRL-A>SLOT SIX SALES INC.","SLOT SIX","<CTRL-A>BINARY BOONDOGGLES",BINARY
  141. 1115 NM$(1) = "1st":NM$(2) = "2nd":NM$(3) = "3rd":NM$(4) = "4th":NM$(5) = "5th":NM$(6) = "6th":YR = 0:QT = 4:U$(0) =  CHR$(92):U$(1) = " ":U$(2) = "^":R$ = "LMAPS":CH$(0) = "down":CH$(1) = "unchanged":CH$(2) = "up"
  142. 1120 TR = .48:AX = 1000:FC = 16000:SU = 1:SC = 40:LC = 1.5:RC = 50:S0(1) = RC:S0(2) = FC:S0(3) = SU:S0(4) = SC:S0(5) = LC:S0(6) = AX:B1 = 2620:B2 = 236
  143. 1125  FOR I = 0 TO 5:LW(I) = 10000:CS(I) =  -5000:A%(I) = 300:AX%(I) = A%(I):F%(I) = 2:DF%(I) = F%(I) *FC/80 +.5:RP%(I) = S0(1):FV(I) = F%(I) *FC:PU%(I) = F%(I) *10:PP%(I) = PU%(I):RB%(I) = PU%(I):L%(I) = 400:LL%(I) = L%(I) *F%(I):UQ%(I) = 10 *F%(I):SL%(I) = 20:SP%(I) = 500: NEXT 
  144. 1130 QQ = 8: IF G < >4  THEN  PRINT "<CTRL-L>HOW MANY TURNS WOULD YOU LIKE TO PLAY<CTRL-M> (each turn is a quarter of a year and<CTRL-M> two years is the minimum recommended) ";: INPUT "?";QQ: IF QQ <2  OR QQ >100  THEN  PRINT "<CTRL-G><CTRL-G>": GOTO 1130
  145. 1135  IF G >0  AND G <4  THEN  PRINT "<CTRL-L>THE GAME PADDLES ARE NORMALLY USED TO<CTRL-M>`PAGE THROUGH' YOUR REPORTS.  HOWEVER,<CTRL-M>WOULD YOU LIKE TO USE THE KEYBOARD": INPUT "INSTEAD? ";A$: IF  LEN(A$)  THEN  IF  ASC(A$) =  ASC("Y")  THEN IO = 1
  146. 1137 A =  RND( -1 *( PEEK(78) + PEEK(79) *256)):NX =  INT( RND(1) *7 +1)
  147. 1140 Z = 0: INPUT "<CTRL-L>HOW MANY PLAYERS? ";T: IF T <2  OR T >6  THEN  PRINT "<CTRL-G><CTRL-^>18from 2 to 6": FOR I = 1 TO 1000: NEXT I: GOTO 1140
  148. 1147 T = T -1
  149. 1150  PRINT : PRINT "WOULD YOU LIKE ANY OF THE ";T +1;" TO BE<CTRL-M> `DUMMIES' (COMPUTER MANAGED)? ";: INPUT "";A$: IF  LEN(A$) = 0  THEN A$ = "P"
  150. 1155  IF  ASC(A$) =  ASC("N")  THEN 1195
  151. 1160  IF  ASC(A$) < > ASC("Y")  THEN  PRINT "<CTRL-G><CTRL-G>": GOTO 1150
  152. 1165  PRINT : INPUT "HOW MANY DUMMIES DO YOU WANT? ";Z: IF Z >T  THEN  PRINT : PRINT "<CTRL-G><CTRL-G>YOU CAN'T HAVE THAT MANY!": GOTO 1165
  153. 1170  IF Z <0  THEN  PRINT : PRINT "<CTRL-G><CTRL-G>YOU CAN'T HAVE THAT FEW!": GOTO 1165
  154. 1175  IF Z = 0  THEN 1195
  155. 1180 Z = Z -1: FOR I = 0 TO Z: READ C$(I),B$(I): NEXT : PRINT "<CTRL-L>THE FOLLOWING COMPANIES WILL BE MANAGED<CTRL-M>BY YOUR COMPUTER:<CTRL-M>": FOR I = 0 TO Z: PRINT "  ";C$(I): NEXT :K = 0: FOR I = 0 TO Z
  156. 1185 K%(I) =  INT( RND(1) *2 +1) +2: IF K%(I) = K  THEN 1185
  157. 1190 K = K%(I): NEXT : PRINT "<CTRL-M><CTRL-M>PRESS ANY KEY TO CONTINUE ";: GET A$:Z = Z +1
  158. 1195  FOR I = Z TO T:K%(I) = 0: PRINT : PRINT "<CTRL-L>CORPORATION #";I +1;":"
  159. 1200  PRINT " The Company's Name:___________________";: HTAB 21: INPUT "";C$(I): IF  LEN(C$(I)) = 0  OR  LEN(C$(I)) >19  THEN  PRINT "<CTRL-G>": GOTO 1200
  160. 1202  IF  ASC(C$(I)) =  ASC("<CTRL-A>")  THEN  PRINT "<CTRL-G>": GOTO 1200
  161. 1205  PRINT " Short Company Name (8 chars.):________";: HTAB 32: INPUT "";B$(I): IF  LEN(B$(I)) = 0  OR  LEN(B$(I)) >8  THEN  PRINT "<CTRL-G>": GOTO 1205
  162. 1210  PRINT " President's Name :____________________";: HTAB 20: INPUT "";N$(I): IF  LEN(N$(I)) = 0  OR  LEN(N$(I)) >20  THEN  PRINT "<CTRL-G>": GOTO 1210
  163. 1215  INPUT " Do you claim a beginner's handicap? ";A$: IF  LEN(A$)  THEN  IF  ASC(A$) =  ASC("Y")  THEN K%(I) = 1
  164. 1220  NEXT : POKE 34,0: PRINT "<CTRL-L>";:Q = T +1:TT = T:D%(1,1) = B1:D%(2,1) = B2:D%(3,1) = 100:D%(4,1) = 18:D%(5,1) = Q *F%(1):D%(6,1) = SP%(1): GOTO 400
  165. 1250 D%(1,1) = B1:D%(2,1) = B2:D%(3,1) = 100:D%(5,1) = 10 *Q *F%(1):D%(6,1) = SP%(1): FOR I = 2 TO 4:D%(2,I) = D%(2,I -1)/((BC +G(1))/2):D%(1,I) = D%(1,I -1)/(G(1) *((BC +G(1))/2)):D%(3,I) = D%(3,I -1)/G(1):D%(5,I) = D%(5,1):D%(6,I) = D%(6,1): NEXT 
  166. 1255 N%(1) = D%(1,1) *G(1) *BC:N%(2) = D%(2,1) *(G(1) +BC)/2:N%(3) = D%(3,1) *G(1):N%(4) = D%(4,1):N%(5) = D%(5,1) *N%(3)/100 +.5:N%(6) = D%(6,1) *(G(1) +BC)/2 +.5:MP = D%(5,1) *D%(6,1)/B2
  167. 1260 A = 3 *(D%(2,1)/D%(2,2) *4 -3) ^11 -2:I%(2) = (A *(A <15) +15 *(A > = 15)) *11 +.5
  168. 1265 A = 26 *(4 *D%(1,1)/D%(1,2) -3) -27:I%(1) = A +.5:A = 40 +I%(1) +I%(2):A = 40 *(A <40) +A *(A > = 40  AND A <450) +450 *(A > = 450):D%(4,1) = A:N%(4) = A
  169. 1270  FOR I = 2 TO 3:D%(4,I) = D%(4,1): NEXT 
  170. 1275 A = 0: GOSUB 90:LD$ = A$: GOSUB 700
  171. 2502 G = G *(G < >4) +(G = 4): IF G >0  THEN  CALL 3072: PRINT "<CTRL-L>": VTAB 23: PRINT "<CTRL-C>0<CTRL-B>0<CTRL-C>9<CTRL-O><CTRL-G><CTRL-G><CTRL-G><CTRL-V><CTRL-G>"
  172. 2503  IF G <1  THEN  PR# 0: IN# 0: TEXT : HOME : HTAB 16: FLASH : PRINT "WORKING": POKE 34,1: NORMAL : CALL 2716
  173. 2505 A =  INT(D%(1,1) -D%(1,2)): PRINT "<CTRL-M>    - -  SUMMARY NEWS WIRE  - -<CTRL-M><CTRL-M><CTRL-M><CTRL-M> The GNP is ";CH$( SGN(A) +1);: IF (A)  THEN A =  ABS(A/D%(1,2)): PRINT " "; INT(A *1000 +.5)/10;"%  ("; INT(A *400 +.5);"%/yr)";
  174. 2510 A =  INT(D%(2,1) -D%(2,2)): PRINT ".<CTRL-M><CTRL-M> The CPI is ";CH$( SGN(A) +1);: IF (A)  THEN A =  ABS(A/D%(2,2)): PRINT " "; INT(A *1000 +.5)/10;"%  ("; INT(A *400 +.5);"%/yr)";
  175. 2515 A =  INT(D%(3,1) -D%(3,2)): PRINT ".<CTRL-M><CTRL-M> Purchasing Power (PPI) is ";CH$( SGN(A) +1);: IF (A)  THEN A =  ABS( INT(A/D%(3,2) *1000)/10): PRINT " ";A;"%";
  176. 2516  PRINT ".<CTRL-M><CTRL-M> The Prime Interest Rate is ";D%(4,1)/10;"%";
  177. 2517 B = D%(5,2) *D%(6,2):A = D%(5,1) *D%(6,1) -B: PRINT ".<CTRL-M><CTRL-M> Total Revenues are ";CH$( SGN(A) +1);: IF A  AND B  THEN A =  ABS( INT(A/B *1000)/10): PRINT " ";A;"%";
  178. 2520 AE = E(1,1):A = 0: IF RT <4  THEN  PRINT ".<CTRL-M><CTRL-M> The raw material price will be $"RC"<CTRL-M> this quarter";
  179. 2525  PRINT ".<CTRL-M><CTRL-M>              ##########": PRINT : IF G <1  THEN  POKE ( PEEK(1) *256 + PEEK(0)),0
  180. 3000 A = 0: GOSUB 90:LD$ = A$
  181. 3010 TZ = 100:TQ = 1:I = 0: IN# 0: PR# 0: CALL 1002: IF K%(I) >1  THEN  CALL 16392"BS-COMP"
  182. 3015  CALL 16392"BS-REP1"