home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / game / misc / 014 / wheel.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-03  |  11.1 KB  |  348 lines
  1. 10  CLEAR :SCREEN 0:WIDTH 80:COLOR 15,1,1:KEY OFF:CLS
  2. 15  ON KEY(1) GOSUB 40000:KEY (1) ON
  3. 20  RANDOMIZE(VAL(MID$(TIME$,4))+VAL(RIGHT$(TIME$,2)))
  4. 30  DEF FNR(X)=INT(RND*X)+1
  5. 40  DIM COL(3),N$(3),M(3),TOT(3),FREE(3),USED(26),P(200)
  6. 50  COL(1)=10:COL(2)=11:COL(3)=13
  7. 100  GOSUB 10030    '  Title Page
  8. 120  GOSUB 12000    '  Set up screen
  9. 200  ROUND=1
  10. 205  LOCATE 2,1:COLOR 15,0:PRINT" Round";ROUND:COLOR 15,1
  11. 206  GOSUB 11000    '  Set up the wheel for this round
  12. 210  GOSUB 13000    '  Get a puzzle and put it up
  13. 220  TURN=ROUND     '  First player starts first round, second starts second...
  14. 230  IF TURN>NP THEN TURN=1
  15. 240  REM  Set up the starting wheel
  16. 250  W=0
  17. 260  COLOR 14,4
  18. 270    LOCATE 22,19:PRINT " ";LEFT$(WW0$,42);" ";
  19. 280    LOCATE 23,19:PRINT " ";LEFT$(WW1$,42);" ";
  20. 320  LOCATE 21,12*TURN+15:COLOR COL(TURN)+16,1:PRINT STRING$(4,25) 'Flash arrows
  21. 330  LOCATE 18,1:COLOR COL(TURN):PRINT N$(TURN);:COLOR 15
  22. 340  PRINT", it's your turn."
  23. 341  COLOR 15,1:LOCATE 19,1:PRINT"Press ";:COLOR 31:PRINT"SPACE";:COLOR 15
  24. 345  PRINT" to spin the wheel, ";:COLOR 31:PRINT"V";:COLOR 15
  25. 346  PRINT" to buy a vowel, or ";:COLOR 31:PRINT"S";:COLOR 15
  26. 347  PRINT" to solve the puzzle."
  27. 350  A$=INKEY$:IF A$="V" OR A$="v" THEN GOSUB 15000 ELSE IF A$="S" OR A$="s" THEN GOSUB 16000
  28. 355  IF A$=" " THEN LOCATE 19,1:PRINT SPACE$(79); ELSE 350
  29. 360  LOCATE 19,1:PRINT SPACE$(79);
  30. 370  D3=FNR(300)+200
  31. 380  D=0:D2=0:COLOR 14,4
  32. 390  W=(W+1) MOD 24
  33. 410  LOCATE 22,20:PRINT MID$(WW0$,1+W*6,42)
  34. 420  LOCATE 23,20:PRINT MID$(WW1$,1+W*6,42)
  35. 430  SOUND 700,0.3
  36. 440  FOR A=1 TO D:NEXT A:D=D+D2:D2=D2+1:IF D>D3 THEN 500
  37. 450  GOTO 390
  38. 500  REM  Now let's see what they got
  39. 510  A$=MID$(WW0$,(W+TURN*2)*6-5,6)
  40. 520  IF INSTR(A$,"$")>0 THEN 600 '  Money
  41. 530  IF A$=" BANK " THEN 17000   '  Bankrupt
  42. 540  IF A$=" FREE " THEN 18000   '  Free spin
  43. 550  IF A$=" LOSE " THEN 19000   '  Lose turn
  44. 600  REM
  45. 610  REM  Money
  46. 620  REM
  47. 625  AMT=VAL(MID$(A$,INSTR(A$,"$")+1))
  48. 630  COLOR 15,1:LOCATE 19,1,1:PRINT"Please guess a letter (Not a vowel)  -->  ";
  49. 640  A$=INKEY$:IF A$="" THEN 640
  50. 650  IF A$>="a" AND A$<="z" THEN A$=CHR$(ASC(A$)-32)
  51. 660  IF A$<"A" OR A$>"Z" THEN BEEP:GOTO 640
  52. 670  IF A$="A" OR A$="E" OR A$="I" OR A$="O" OR A$="U" THEN BEEP:GOTO 640
  53. 680  IF USED(ASC(A$)-64) THEN BEEP:GOTO 640
  54. 690  COLOR 11:PRINTA$;:LOCATE ,,0
  55. 695  USED(ASC(A$)-64)=1:LOCATE 25,14+(ASC(A$)-64)*2:PRINT" ";
  56. 700  LT=0:FOR A=1 TO LEN(P$)
  57. 710  X$=MID$(P$,A,1)
  58. 720  IF X$<>A$ THEN 750
  59. 730  LOCATE 8,A-1+ST:COLOR 11:PRINT A$;:M(TURN)=M(TURN)+AMT
  60. 740  SOUND 500,0.1:LT=1:CN=CN-1:IF CN=0 THEN 50000
  61. 750  NEXT A:IF LT=0 THEN 780
  62. 760  COLOR COL(TURN):LOCATE 11,24*TURN-13:PRINT USING"$##,###";M(TURN);
  63. 770  GOTO 341
  64. 780  LOCATE 19,1:PRINTSPACE$(80);:LOCATE 19,1:COLOR 15,1:PRINT"Sorry, there are no ";:COLOR 11:PRINT A$;
  65. 790  COLOR 15:PRINT"'s.";:SOUND 40,10
  66. 800  IF FREE(TURN)=0 THEN 809
  67. 801  LOCATE 20,1,1:PRINT"You have a free spin, would you like to use it?  ";
  68. 802  A$=INKEY$:IF A$="" THEN 802
  69. 803  IF A$<>"Y" AND A$<>"y" THEN 820
  70. 804  COLOR 7:PRINT"Yes"
  71. 805  FREE(TURN)=FREE(TURN)-1
  72. 806  IF FREE(TURN)=0 THEN FOR A=14 TO 16:LOCATE A,24*TURN-19,0:PRINT"      ";:NEXT ELSE COLOR COL(TURN):LOCATE 14,24*TURN-19,0:PRINT FREE(TURN);:IF FREE(TURN)=1 THEN LOCATE 16,24*TURN-19:PRINT"SPIN ";
  73. 807  COLOR 15:LOCATE 19,1:PRINT SPACE$(160);:GOTO 341
  74. 809  LOCATE 20,1:PRINT"Press ";:COLOR 31:PRINT"ENTER";:COLOR 15:PRINT" to go on..."
  75. 810  IF INKEY$<>CHR$(13) THEN 810
  76. 820  LOCATE 19,1,0:PRINT SPACE$(159);
  77. 900  REM  Now go to next guy
  78. 910  LOCATE 21,12*TURN+15:COLOR COL(TURN),1:PRINT STRING$(4,25) 'Still arrows
  79. 915  LOCATE 18,1:PRINTSPACE$(50);
  80. 920  TURN=TURN+1:IF TURN>NP THEN TURN=1
  81. 930  GOTO 320
  82. 999  END
  83. 10000  REM
  84. 10010  REM  Title Page
  85. 10020  REM
  86. 10030  COLOR 10
  87. 10040  LOCATE ,19:PRINT"CSRLIN   CSRLIN CSRLIN   CSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLIN
  88. 10050  LOCATE ,19:PRINT"CSRLIN   CSRLIN CSRLIN   CSRLIN CSRLIN     CSRLIN     CSRLIN
  89. 10060  LOCATE ,19:PRINT"CSRLIN CSRLIN CSRLIN CSRLIN   CSRLIN CSRLIN     CSRLIN     CSRLIN
  90. 10070  LOCATE ,19:PRINT"CSRLININKEY$CSRLINOFFCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLIN  CSRLINCSRLINCSRLINCSRLIN  CSRLIN
  91. 10080  LOCATE ,19:PRINT"CSRLINCSRLIN CSRLINCSRLIN CSRLIN   CSRLIN CSRLIN     CSRLIN     CSRLIN
  92. 10090  LOCATE ,19:PRINT"CSRLINOFF INKEY$CSRLIN CSRLIN   CSRLIN CSRLIN     CSRLIN     CSRLIN
  93. 10100  LOCATE ,19:PRINT"CSRLIN   CSRLIN CSRLIN   CSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN
  94. 10110  COLOR 11:LOCATE 1,50
  95. 10120  LOCATE ,52:PRINT"CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN"
  96. 10130  LOCATE ,52:PRINT"CSRLIN   CSRLIN CSRLIN
  97. 10140  LOCATE ,52:PRINT"CSRLIN   CSRLIN CSRLIN
  98. 10150  LOCATE ,52:PRINT"CSRLIN   CSRLIN CSRLINCSRLINCSRLINCSRLIN
  99. 10160  LOCATE ,52:PRINT"CSRLIN   CSRLIN CSRLIN
  100. 10170  LOCATE ,52:PRINT"CSRLIN   CSRLIN CSRLIN
  101. 10180  LOCATE ,52:PRINT"CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLIN
  102. 10190  COLOR 13:PRINT
  103. 10200  LOCATE ,20:PRINT"CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLIN   CSRLIN CSRLIN  CSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN
  104. 10210  LOCATE ,20:PRINT"CSRLIN     CSRLIN   CSRLIN CSRLIN   CSRLIN   CSRLIN   CSRLIN   CSRLIN CSRLINOFF CSRLIN CSRLIN
  105. 10220  LOCATE ,20:PRINT"CSRLIN     CSRLIN   CSRLIN CSRLIN   CSRLIN   CSRLIN   CSRLIN   CSRLIN CSRLINCSRLIN CSRLIN CSRLIN
  106. 10230  LOCATE ,20:PRINT"CSRLINCSRLINCSRLINCSRLIN  CSRLIN   CSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN   CSRLIN   CSRLIN   CSRLIN CSRLININKEY$OFFCSRLIN CSRLINCSRLINCSRLINCSRLIN
  107. 10240  LOCATE ,20:PRINT"CSRLIN     CSRLIN   CSRLIN CSRLIN  CSRLIN    CSRLIN   CSRLIN   CSRLIN CSRLIN CSRLINCSRLIN CSRLIN
  108. 10250  LOCATE ,20:PRINT"CSRLIN     CSRLIN   CSRLIN CSRLIN  INKEY$OFF   CSRLIN   CSRLIN   CSRLIN CSRLIN INKEY$CSRLIN CSRLIN
  109. 10260  LOCATE ,20:PRINT"CSRLIN     CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLIN   CSRLIN   CSRLIN   CSRLINCSRLINCSRLINCSRLINCSRLIN CSRLIN  CSRLIN CSRLINCSRLINCSRLINCSRLINCSRLIN
  110. 10270  LOCATE 17,33:COLOR 31,0:PRINT" By Gregg Minkow "
  111. 10275  COLOR 14,4:LOCATE 25,1:PRINT"  -----> Make sure you have the disk with the .WOF files in the default drive. ";
  112. 10280  COLOR 15,1,1:LOCATE 20,1,1:PRINT"Number of players (1-3)  ? ";
  113. 10290  A$=INKEY$:IF A$<"1" OR A$>"3" THEN 10290
  114. 10300  LOCATE ,,0:NP=VAL(A$):COLOR 7:PRINTA$
  115. 10310  FOR A=1 TO NP
  116. 10320  LOCATE 20+A,1:COLOR 15:PRINT"Player no.";A;", what is your name?  ";
  117. 10330  COLOR COL(A):LINE INPUT N$(A):IF N$(A)="" THEN 10320
  118. 10340  N$(A)=LEFT$(N$(A),12)
  119. 10350  NEXT A
  120. 10360  FOR A=20 TO 23:LOCATE A,1:PRINT SPACE$(79);:NEXT
  121. 10380  COLOR 15,1:RETURN
  122. 11000  '
  123. 11010  '  Initialize spinner
  124. 11020  '
  125. 11030  OPEN"WHEELS.WOF" FOR INPUT AS #1
  126. 11040  FOR A=1 TO ROUND
  127. 11050  INPUT #1,WW0$:INPUT #1,WW1$:WW0$=" "+WW0$:WW1$=" "+WW1$
  128. 11060  NEXT A
  129. 11070  CLOSE
  130. 11080  RETURN
  131. 12000  REM
  132. 12010  REM  Set up screen
  133. 12020  REM
  134. 12030  CLS
  135. 12040  COLOR 7,1:LOCATE 1,30:PRINT STRING$(22,220);
  136. 12050  COLOR 12,7:LOCATE 2,30:PRINT" * Wheel of Fortune * "
  137. 12060  LOCATE 3,30:PRINT"   By  Gregg Minkow   "
  138. 12070  COLOR 7,1:LOCATE 4,30:PRINT STRING$(22,223);
  139. 12080  COLOR 15,4
  140. 12090  FOR A=22 TO 23
  141. 12100    LOCATE A,19:PRINT SPACE$(44);
  142. 12110  NEXT A
  143. 12120  FOR A=1 TO NP:COLOR COL(A),1
  144. 12130  LOCATE 10,24*A-13:PRINTN$(A);
  145. 12140  LOCATE 11,24*A-13:PRINTUSING"$##,###";M(A);
  146. 12150  COLOR ,0:LOCATE 13,24*A-13:PRINT CHR$(201);STRING$(10,205);CHR$(187);
  147. 12160  FOR B=14 TO 16
  148. 12170    LOCATE B,24*A-13:PRINT CHR$(186);SPC(10);CHR$(186);
  149. 12180  NEXT B
  150. 12190  LOCATE 17,24*A-13:PRINT CHR$(200);STRING$(10,205);CHR$(188);
  151. 12200  LOCATE 15,24*A-11:PRINTUSING"$###,###";TOT(A);
  152. 12210  COLOR ,1:LOCATE 21,12*A+15:PRINT STRING$(4,25);
  153. 12220  NEXT A
  154. 12230  RETURN
  155. 13000  REM
  156. 13010  REM  Get a puzzle
  157. 13020  REM
  158. 13025  OPEN "R",1,"PUZZLES.WOF"
  159. 13026  FIELD #1, 2 AS L$, 40 AS PUZZLE$, 15 AS CAT$
  160. 13027  GET #1,1:PZ=CVI(L$): REM  The first file contains the number of last p$
  161. 13030  P=FNR(PZ-1)+1:IF P(P) THEN 13030
  162. 13040  GET #1,P+1:P$=LEFT$(PUZZLE$,CVI(L$)):C$=CAT$:P(P)=1:CLOSE
  163. 13045  IF RIGHT$(C$,1)=" " THEN C$=LEFT$(C$,LEN(C$)-1):GOTO 13045
  164. 13050  COLOR 11,1:ST=(80-LEN(P$))/2:CN=0
  165. 13060  FOR A=1 TO LEN(P$)
  166. 13070    LOCATE 8,A-1+ST
  167. 13080    X$=MID$(P$,A,1)
  168. 13090    IF X$>="A" AND X$<="Z" THEN PRINT CHR$(254); ELSE PRINT X$;
  169. 13095    IF X$<>"A" AND X$<>"E" AND X$<>"I" AND X$<>"O" AND X$<>"U" AND X$>"A"             AND X$<="Z" THEN CN=CN+1
  170. 13100  NEXT A
  171. 13110  LOCATE 6,(80-LEN(C$))/2-1:COLOR 11,4:PRINT" ";C$;" ";
  172. 13115  SOUND 500,2:SOUND 700,2:SOUND 1000,2.5:SOUND 1200,3
  173. 13120  COLOR 15,1:LOCATE 25,1
  174. 13130  PRINT"Letters left:  ";
  175. 13140  FOR A=1 TO 26
  176. 13150    USED(A)=0:A$=CHR$(64+A):COLOR 15
  177. 13160    IF A$="A" OR A$="E" OR A$="I" OR A$="O" OR A$="U" THEN COLOR 12
  178. 13170    PRINTA$;" ";
  179. 13180  NEXT A
  180. 13190  RETURN
  181. 15000  REM
  182. 15010  REM  Buy a vowel
  183. 15020  REM
  184. 15023  LOCATE 19,1:PRINT SPACE$(159);
  185. 15025  IF M(TURN)<250 THEN COLOR 15,1:LOCATE 19,1:PRINT"Sorry, you don't have enough money.":BEEP:GOTO 15940
  186. 15030  IF USED(1) AND USED(5) AND USED(9) AND USED(15) AND USED(21) THEN BEEP:         COLOR 15,1:LOCATE 19,1:PRINT"Sorry, there aren't any vowels left.":             GOTO 15940
  187. 15040  COLOR 15,1:LOCATE 19,1,1:PRINT"Vowels cost $250 each.  Which one do you want?  ";
  188. 15050  A$=INKEY$:IF A$="" THEN 15050
  189. 15055  IF A$=" " OR A$=CHR$(13) OR A$=CHR$(27) THEN BEEP:GOTO 15900
  190. 15060  IF A$>="a" AND A$<="z" THEN A$=CHR$(ASC(A$)-32)
  191. 15070  IF A$="A" OR A$="E" OR A$="I" OR A$="O" OR A$="U" THEN 15075 ELSE BEEP:         GOTO 15050
  192. 15075  IF USED(ASC(A$)-64) THEN BEEP:GOTO 15050
  193. 15080  COLOR 12:PRINT A$;:A=ASC(A$)-64:USED(A)=1:LOCATE 25,14+A*2,0:PRINT" ";
  194. 15090  M(TURN)=M(TURN)-250:COLOR COL(TURN):LOCATE 11,24*TURN-13:                       PRINT USING"$##,###";M(TURN)
  195. 15100  LT=0
  196. 15110  COLOR 11
  197. 15120  FOR A=1 TO LEN(P$)
  198. 15130   X$=MID$(P$,A,1)
  199. 15140   IF X$=A$ THEN LOCATE 8,A-1+ST:PRINTA$;:SOUND 500,0.2:LT=1
  200. 15150  NEXT
  201. 15160  IF LT THEN 15900 ELSE COLOR 15:LOCATE 19,1:PRINT SPACE$(80);:LOCATE 19,1:PRINT"Sorry, there were no ";:COLOR 11:PRINT A$;:COLOR 15:PRINT"'s.";:SOUND 40,10
  202. 15165  IF NOMORE=1 THEN NOMORE=0:RETURN 51000 ELSE RETURN 800
  203. 15900  LOCATE 19,1,0:COLOR 15:PRINTSPACE$(79);
  204. 15930  IF NOMORE=0 THEN RETURN 341 ELSE NOMORE=0:LOCATE 19,1:COLOR 14:PRINT"There are no more consonants left in this puzzle.":COLOR 15:RETURN 50050
  205. 15940  LOCATE 20,1:COLOR 15:PRINT"Press";:COLOR 31:PRINT" ENTER ";:COLOR 15:PRINT"to continue..."
  206. 15950  IF INKEY$<>CHR$(13) THEN 15950
  207. 15960  LOCATE 19,1:PRINTSPACE$(159);
  208. 15970  IF NOMORE=0 THEN RETURN 341 ELSE NOMORE=0:LOCATE 19,1:COLOR 14:PRINT"There are no more consonants left in the puzzle.":RETURN 50050
  209. 16000  REM
  210. 16010  REM  Solve the puzzle
  211. 16020  REM
  212. 16030  LOCATE 19,1:PRINT SPACE$(79);:LOCATE 19,1:COLOR 15,1:PRINT"Type in your solution:  ";:COLOR 11
  213. 16040  LINE INPUT S$
  214. 16045  FOR A=1 TO LEN(P$):X$=MID$(S$,A,1)
  215. 16046  IF X$>="a" AND X$<="z" THEN MID$(S$,A,1)=CHR$(ASC(X$)-32)
  216. 16047  NEXT
  217. 16050  LOCATE 19,1:COLOR 15,1:PRINT SPACE$(159);
  218. 16060  IF LEFT$(S$,LEN(P$))<>P$ THEN 16200
  219. 16070  LOCATE 19,1:PRINT SPACE$(159);:LOCATE 19,1:COLOR 26:PRINT"Congratulations, you got it!!!  You get a $1000 bounus!!!";
  220. 16075  M(TURN)=M(TURN)+1000:COLOR COL(TURN):LOCATE 11,24*TURN-13:PRINT USING"$##,###";M(TURN);
  221. 16076  COLOR ,0:TOT(TURN)=TOT(TURN)+M(TURN):LOCATE 15,24*TURN-11:PRINT USING"$###,###";TOT(TURN);
  222. 16077  COLOR 11,1:LOCATE 8,ST:PRINT P$;
  223. 16080  PLAY "O3 P8 O2E8 O2G8. O2E16 F8 G4."
  224. 16090  PLAY "O3 P8 O2E8 O2G8. O2E16 F8 G4."
  225. 16100  LOCATE 20,1:COLOR 15,1:PRINT"Press ";:COLOR 31:PRINT"ENTER";:COLOR 15:PRINT" to continue...";
  226. 16110  IF INKEY$<>CHR$(13) THEN 16110
  227. 16120  LOCATE 18,1:PRINT SPACE$(239);:GOTO 25000
  228. 16200  LOCATE 19,1:PRINT SPACE$(159);:LOCATE 19,1:PRINT"Sorry, that's not right!!!";
  229. 16210  PLAY"L32O1BAGFEDO0BA"
  230. 16220  RETURN 800
  231. 17000  REM
  232. 17010  REM  Bankrupt
  233. 17020  REM
  234. 17030  LOCATE 19,1:COLOR 31,8:PRINT" Too bad. You went bankrupt!! "
  235. 17040  FOR A=700 TO 500 STEP -1:SOUND A,0.1:NEXT
  236. 17050  M(TURN)=M(TURN)-M(TURN) MOD 10:IF M(TURN)=0 THEN 17150
  237. 17060  SND=1900:COLOR COL(TURN),1
  238. 17070  LOCATE 11,24*TURN-13:PRINT USING"$##,###";M(TURN)
  239. 17080  SOUND SND,0.1:SOUND 800,0.1:SND=SND-2:IF SND<=50 THEN SND=50
  240. 17090  M(TURN)=M(TURN)-10
  241. 17100  IF M(TURN)<0 THEN 17150
  242. 17110  GOTO 17070
  243. 17150  M(TURN)=0:COLOR 15,1:GOTO 800
  244. 18000  REM
  245. 18010  REM  Free spin
  246. 18020  REM
  247. 18030  LOCATE 19,1:COLOR 30,1:PRINT"You get a free spin!!!  You may use it any time."
  248. 18035  COLOR COL(TURN):FREE(TURN)=FREE(TURN)+1
  249. 18036  LOCATE 14,24*TURN-19:PRINT FREE(TURN);:LOCATE 15,24*TURN-19:PRINT"FREE";:LOCATE 16,24*TURN-19:PRINT"SPIN";:IF FREE(TURN)>1 THEN PRINT"S";
  250. 18040  PLAY"O3L64CEADEDGFECABFDEFABDGFBEAG
  251. 18050  LOCATE 20,1:COLOR 15:PRINT"Press ";:COLOR 31:PRINT"ENTER ";:COLOR 15:PRINT"to go on..."
  252. 18060  IF INKEY$<>CHR$(13) THEN 18060
  253. 18070  LOCATE 19,1:PRINT SPACE$(159);:GOTO 341
  254. 19000  REM
  255. 19010  REM  Lose turn
  256. 19020  REM
  257. 19030  LOCATE 19,1:COLOR 28,1:PRINT" Too bad, you lose your turn... ";
  258. 19040  FOR A=500 TO 700:SOUND A,0.1:SOUND 750-A,0.1:NEXT
  259. 19900  COLOR 15,1:GOTO 800
  260. 25000  REM
  261. 25010  REM  The puzzle is solved
  262. 25020  REM
  263. 25030  REM  Clear up the board
  264. 25035  LOCATE 2,1:COLOR 15,8:PRINT"         ";:COLOR 15,1
  265. 25040  LOCATE 6,1:PRINT SPACE$(239);
  266. 25050  FOR A=1 TO NP:COLOR COL(A)
  267. 25060  LOCATE 11,24*A-13:PRINT USING"$##,###";0:M(A)=0
  268. 25070  NEXT A
  269. 25080  LOCATE 21,12*TURN+15:COLOR COL(TURN):PRINT STRING$(4,25);
  270. 25090  COLOR 14,4:LOCATE 22,20:PRINT SPACE$(42);
  271. 25100  LOCATE 23,20:PRINT SPACE$(42);:COLOR 15,1
  272. 25110  LOCATE 25,1:PRINTSPACE$(79);
  273. 25120  ROUND=ROUND+1:IF ROUND>3 THEN 30000
  274. 25130  LOCATE 19,1:COLOR 15:PRINT"Now we're going on to round";ROUND
  275. 25140  PRINT"Press ";:COLOR 31:PRINT"ENTER";:COLOR 15:PRINT" to continue..."
  276. 25150  IF INKEY$<>CHR$(13) THEN 25150
  277. 25160  LOCATE 19,1:PRINTSPACE$(159);
  278. 25170  GOTO 205
  279. 25900  GOTO 25900
  280. 26000  END
  281. 30000  REM
  282. 30010  REM  The Game's Over
  283. 30020  REM
  284. 30030  REM  Find out who has the most money...
  285. 30031  COLOR 15:LOCATE 2,1:PRINT SPACE$(10)
  286. 30032  FOR A=21 TO 23:LOCATE A,1:PRINTSPACE$(80);:NEXT
  287. 30040  X=0:H=0:FOR A=1 TO 3
  288. 30050  IF TOT(A)>H THEN H=TOT(A):X=1:M(X)=A:GOTO 30070
  289. 30060  IF TOT(A)=H THEN X=X+1:M(X)=A
  290. 30070  NEXT A
  291. 30080  LOCATE 19,1:COLOR 15
  292. 30090  IF X=1 THEN PRINT"The winner is ";:COLOR COL(M(1))+16:PRINTN$(M(1));:COLOR 15:PRINT"!!!":GOTO 31000
  293. 30100  LOCATE 18,1:PRINT"We have a";X;"way tie!!"
  294. 30110  PRINT"The winners are ";
  295. 30120  COLOR COL(M(1))+16:PRINTN$(M(1));:COLOR 15
  296. 30130  IF X=2 THEN PRINT" and "; ELSE PRINT", ";
  297. 30140  COLOR COL(M(2))+16:PRINTN$(M(2));:COLOR 15
  298. 30150  IF X=3 THEN PRINT" and ";:COLOR COL(3)+16:PRINTN$(3);:COLOR 15
  299. 30160  PRINT"!!!"
  300. 31000  REM
  301. 31010  FOR B=1 TO X
  302. 31020  A=M(B):COLOR COL(A)+16,7
  303. 31030  LOCATE 13,24*A-13:PRINTCHR$(201);STRING$(10,205);CHR$(187);
  304. 31040  FOR C=14 TO 16
  305. 31050  LOCATE C,24*A-13:PRINTCHR$(186);SPC(10);CHR$(186);
  306. 31060  NEXT C
  307. 31070  LOCATE 17,24*A-13:PRINTCHR$(200);STRING$(10,205);CHR$(188);
  308. 31080  LOCATE 15,24*A-11:PRINT USING"$###,###";TOT(A);
  309. 31090  NEXT B
  310. 31100  PLAY "Mf MN T180"
  311. 31110  PLAY "O2 C8.C16 F8 C8 F8 A8 F4 F8.F16 A8 F8 A8 O3C8 O2 A4 F8.A16 O3 C4  O2 A8.F16 C4 C8.C16 F4 F8.F16 F4 MF"
  312. 31150  COLOR 15,1:LOCATE 20,1,1
  313. 31160  PRINT"Would you like to play again?  ";
  314. 31170  A$=INKEY$:IF A$="" THEN 31170
  315. 31180  IF A$="Y" THEN PRINT"Yes.":LOCATE ,,0:RUN
  316. 31190  CLS:PRINT"Thank you for playing.":PRINT:PRINT:END
  317. 39000  GOTO 39000
  318. 40000  CLS:END
  319. 50000  REM
  320. 50010  REM  No more consonants
  321. 50020  REM
  322. 50030  LOCATE 19,1:PRINT SPACE$(159);
  323. 50035  PLAY"MBO4T90L8EEEEEMF"
  324. 50040  LOCATE 19,1:COLOR 14:PRINT"There are no more consonants left.  You must try to solve the puzzle now."
  325. 50050  LOCATE 20,1:COLOR 15,1:PRINT"Type ";:COLOR 31:PRINT"V";:COLOR 15:PRINT" to buy a vowel, or ";:COLOR 31:PRINT"S";:COLOR 15:PRINT" to try to solve it."
  326. 50060  A$=INKEY$:IF A$="" THEN 50060
  327. 50070  IF A$="V" OR A$="v" THEN NOMORE=1:GOSUB 15000
  328. 50080  IF A$<>"S" AND A$<>"s" THEN BEEP:GOTO 50060
  329. 50090  LOCATE 19,1:PRINT SPACE$(159);:LOCATE 19,1:COLOR 15:PRINT"Please type in your solution:  ";:COLOR 11
  330. 50100  LINE INPUT S$
  331. 50110  FOR A=1 TO LEN(P$):X$=MID$(S$,A,1)
  332. 50120  IF X$>="a" AND X$<="z" THEN MID$(S$,A,1)=CHR$(ASC(X$)-32)
  333. 50130  NEXT A
  334. 50140  IF LEFT$(S$,LEN(P$))=P$ THEN 16070
  335. 50150  LOCATE 19,1:PRINT SPACE$(159);:COLOR 15,1
  336. 50160  LOCATE 19,1:PRINT"Sorry, that's not right!!!";
  337. 50170  PLAY"L32O1BAGFEDO0BA"
  338. 51000  LOCATE 20,1:COLOR 15:PRINT"Press ";:COLOR 31:PRINT"ENTER";:COLOR 15:PRINT" to go on..."
  339. 51010  IF INKEY$<>CHR$(13) THEN 51010
  340. 51020  LOCATE 18,1:PRINT SPACE$(230);
  341. 51021  LOCATE 21,12*TURN+15:COLOR COL(TURN),1:PRINT STRING$(4,25)
  342. 51030  TURN=TURN+1:IF TURN>NP THEN TURN=1
  343. 51040  LOCATE 18,1:COLOR COL(TURN):PRINTN$(TURN);
  344. 51050  COLOR 15:PRINT", it's your turn."
  345. 51055  LOCATE 21,12*TURN+15:COLOR COL(TURN)+16,1:PRINT STRING$(4,25):COLOR 15,1
  346. 51060  LOCATE 19,1:COLOR 14:PRINT"There are no more consonants left in the puzzle."
  347. 51070  GOTO 50050
  348.