home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / games / vmsnet / wheel / part01 < prev    next >
Text File  |  1993-08-29  |  9KB  |  305 lines
  1. Newsgroups: vmsnet.sources.games
  2. Path: uunet!spool.mu.edu!sol.ctr.columbia.edu!caen!nic.umass.edu!umassd.edu!MDCS.UMASSD.EDU!S14863SA
  3. From: s14863sa@UMASSD.EDU
  4. Subject: Wheel of Fortune [1/1] VAX BASIC
  5. Message-ID: <CC1sqK.FtC@umassd.edu>
  6. Sender: usenet@umassd.edu (USENET News System)
  7. Reply-To: s14863sa@UMASSD.EDU
  8. Organization: UMASS DARTMOUTH, NO. DARTMOUTH, MA.
  9. Date: Fri, 20 Aug 1993 07:56:41 GMT
  10. Lines: 292
  11. Xref: uunet vmsnet.sources.games:775
  12.  
  13. I am new to Usenet and the Internet in general, but I do maintain an
  14. interest in the good ol VMS OS... I know of nowhere besides vmsnet.sources
  15. and vmsnet.sources.games in the world that I can acquire old VMS stuff from.
  16.  
  17. The following is the VAX BASIC source code to a Wheel of Fortune game... It
  18. works with almost any terminal emulation, but works best with VT100...
  19.  
  20. I do not know how to use uudecode/uuencode... I will not archive this in any
  21. way... just cut it out, name it WHEEL.BAS, and type:
  22.  
  23. $ basic wheel
  24. $ link wheel
  25. $ run wheel
  26.  
  27.              Please be patient with me.
  28.  
  29. This is my first ever post in an Internet Usenet group. I would like to hope
  30. that this game brings some enjoyment to someone out there who is doomed to
  31. VMSdom...
  32.  
  33. ------------------------------------CUT---------------------------------------
  34.  
  35.  
  36. 100 Rem ***** Wheel of Fortune v1.0 for VAX/VMS system
  37. 110 Rem ***** by Jason R. Keyes (LOXSMITH@WORKS.UUCP)  1/13/93
  38. 120                                                                    Rem
  39. 130 Data 25
  40. 140 Data "100","150","250","450","600"
  41. 150 Data "Bankrupt","750","800","950","1000"
  42. 160 Data "Lose a Turn","1100","1200","1350","1500"
  43. 170 Data "Bankrupt","2000","2250","2500","2800"
  44. 180 Data "Lose a Turn","3000","3500","4000","5000"
  45. 190 Data 33
  46. 191 Data "DALLAS MAVERICKS","Sports Team"
  47. 192 Data "LIVE AND LET DIE","Song/Phrase"
  48. 193 Data "MICRO PROCESSOR","Thing"
  49. 194 Data "WHEEL OF FORTUNE","Game"
  50. 195 Data "LEAVE IT TO BEAVER","TV Show"
  51. 196 Data "ANDREW DICE CLAY","Person"
  52. 197 Data "SUPERBOWL","Event"
  53. 198 Data "CROSSWORD PUZZLE", "Thing"
  54. 199 Data "THE STARSHIP ENTERPRISE", "Thing"
  55. 200 Data "GEORGE WASHINGTON","Person"
  56. 201 Data "VALENTINE'S DAY", "Date"
  57. 202 Data "WHISTLE WHILE YOU WORK", "Phrase"
  58. 203 Data "THE BRADY BUNCH", "TV Show"
  59. 204 Data "THE WORLD SERIES", "Event"
  60. 205 Data "CHRISTMAS EVE", "Date"
  61. 206 Data "MARKED FOR DEATH", "Movie"
  62. 207 Data "I WANT TO BE RICH", "Song"
  63. 208 Data "ZESTFULLY CLEAN", "Phrase"
  64. 209 Data "DANCES WITH WOLVES", "Movie"
  65. 210 Data "WALT DISNEY WORLD","Place"
  66. 211 Data "DIRTY DANCING", "Movie"
  67. 212 Data "MICKEY MOUSE", "Character"
  68. 213 Data "MIGHTY MOUSE", "Character"
  69. 214 Data "PRESS YOUR LUCK", "Phrase"
  70. 215 Data "SPIN THE WHEEL", "Phrase"
  71. 216 Data "CHRISTINA APPLEGATE", "Person"
  72. 217 Data "I'LL BE BACK", "Phrase"
  73. 218 Data "NOVEMBER RAIN", "Song"
  74. 219 Data "I WANT MY MTV", "Phrase"
  75. 220 Data "CINDY CRAWFORD", "Person"
  76. 221 Data "WHAT'S UP DOC", "Phrase"
  77. 222 Data "MAKE LOVE LIKE A MAN", "Song"
  78. 223 Data "MICHAEL JACKSON", "Person"
  79. 224 Data "WHAT GOES UP MUST COME DOWN", "Phrase"
  80. 225 Data "NEW JACK CITY", "Movie"
  81. 226 Data "SUPER MARIO BROTHERS", "Game"
  82. 227 Data "STREET FIGHTER II", "Game"
  83. 228 Data "THE INCREDIBLE HULK", "Character"
  84. 229 Data "DANCING ON THE CEILING", "Song"
  85. 230 Data "TOOTHBRUSH","Thing"
  86. 240 Data "BEAM ME UP SCOTTY","Phrase"
  87. 241 Data "HOW LOW CAN YOU GO","Phrase"
  88. 242 Data "THINK BEFORE YOU TALK","Phrase"
  89. 250 Read WD
  90. 255 Dim W$(WD),SE$(79),G1(79)
  91. 260 For I = 1 To WD
  92. 270    Read W$(I)
  93. 280 Next I
  94. 290 Read WO
  95. 300 Dim AN$(WO),CL$(WO),AU(WO)
  96. 310 For I = 1 To WO
  97. 320    Read AN$(I),CL$(I)
  98. 330 Next I
  99. 340 G$ = Chr$(7)
  100. 350 ES$ = Chr$(27)
  101. 352 VO$ = "AEIOUaeiou"
  102. 354 CN$ = "BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz"
  103. 360 R = 0
  104. 370 I = 0
  105. 375 RR = 1
  106. 380 L1$ = ES$ + "#3"
  107. 390 L2$ = ES$ + "#4"
  108. 400 X$ = ES$ + "[H" + ES$ + "[J"
  109. 410 Print X$
  110. 420 Input "Contestant #1, Enter your name: ";C1$
  111. 430 Input "Contestant #2, Enter your name: ";C2$
  112. 440 CP$ = C1$
  113. 450 CP = 1
  114. 460 Randomize
  115. 465 RR = RR + 1
  116. 470 WN = Int(Rnd*WO) + 1
  117. 471 For J = 1 To WO
  118. 472    If AU(J) = WN Then Goto 470
  119. 473 Next J
  120. 474 AU(RR) = WN
  121. 480 LW = Len(AN$(WN))
  122. 482 For A = 1 To LW
  123. 484    G1(A) = 0
  124. 485    US$ = ""
  125. 486 Next A
  126. 490 S3 = 0
  127. 500 For A = 1 To LW
  128. 510    SE$(A) = Mid$(AN$(WN),A,1)
  129. 520    If SE$(A) = " " Or SE$(A) = "'" Or SE$(A) = "," Then S3 = S3 + 1
  130. 530 Next A
  131. 540 RL = LW - S3
  132. 550 Print X$
  133. 560 R = R + 1
  134. 565 Print X$
  135. 570 Print L1$;"Wheel of Fortune"
  136. 580 Print L2$;"Wheel of Fortune"
  137. 590 Print L1$;"by Jason R. Keyes"
  138. 600 Print L2$;"by Jason R. Keyes"
  139. 610 Print
  140. 620 Print "Round ";R;" of 3"
  141. 630 Print C1$;"'s score: ";S1
  142. 640 Print C2$;"'s score: ";S2
  143. 650 Print 
  144. 660 Print CP$;" has this spin. Letters used: ";US$
  145. 670 Print "Category: ";CL$(WN)
  146. 671 Print
  147. 672 Gosub 1000
  148. 674 Print
  149. 680 Input "S)pin wheel  B)uy vowel  G)uess answer  Q)uit: ";CH$
  150. 690 Goto 1200
  151. 700 Print X$
  152. 705 For A = 1 To WD
  153. 710    Print ,W$(A) 
  154. 720 Next A
  155. 730 Randomize
  156. 740 LI = Int(Rnd*WD) + 1
  157. 750 For A = 1 To LI
  158. 760    Print ,W$(A)
  159. 770 Next A
  160. 780 If W$(LI) = "Lose a Turn" Or W$(LI) = "Bankrupt" Then Goto 3000
  161. 790 V = Val(W$(LI))
  162. 800 Print
  163. 802 Print CP$;"'s turn. Letters already used: ";US$
  164. 804 Print
  165. 810 Input "Enter a consonant: ";C$
  166. 820 For A = 1 To Len(CN$)
  167. 830    If Mid$(CN$,A,1) = C$ Then Goto 850
  168. 840 Next A
  169. 842 Print G$;"You may only use a consonant!"
  170. 844 Goto 810
  171. 850 For A = 1 To Len(CN$)
  172. 860    If Mid$(US$,A,1) = C$ Then Goto 890
  173. 870 Next A
  174. 880 Goto 900
  175. 890 Print G$;"Letter already used - You lose a turn!"
  176. 895 Goto 4200
  177. 900 For A = 1 To Len(CN$)
  178. 905    If Mid$(AN$(WN),A,1) = C$ Then Goto 940
  179. 910 Next A
  180. 915 Print "Sorry, but there are no ";C$;"'s."
  181. 920                                                                    Rem
  182. 925 US$ = US$ + C$ + " "
  183. 930 Goto 4200
  184. 940 Print "Yes, there are ";
  185. 942 TT = 0
  186. 943 US$ = US$ + C$ + " "
  187. 945 For A = 1 To LW
  188. 950    If Mid$(AN$(WN),A,1) = C$ Then TT = TT + 1
  189. 955    If Mid$(AN$(WN),A,1) = C$ Then G1(A) = 1
  190. 960 Next A
  191. 965 Print TT;" ";C$;"'s. Press any key to continue: ";
  192. 970 KK$ = Inkey$(0%,Wait)
  193. 975 If CP = 1 Then S1 = S1 + (TT * V)
  194. 980 If CP = 2 Then S2 = S2 + (TT * V)
  195. 985 Goto 5000
  196. 1000 For A = 1 To LW
  197. 1010    If SE$(A) = " " Or SE$(A) = "'" Or SE$(A) = "," Then Goto 1050
  198. 1020    Goto 1070
  199. 1050    Print " ";SE$(A);" ";
  200. 1060    Goto 1090
  201. 1070    If G1(A) = 1 Then Print " ";SE$(A);" ";
  202. 1080    If G1(A) = 0 Then Print " _ ";
  203. 1090 Next A
  204. 1092 Print
  205. 1100 Return
  206. 1200 If CH$ = "S" Or CH$ = "s" Then Goto 700
  207. 1210 If CH$ = "B" Or CH$ = "b" Then Goto 1500
  208. 1220 If CH$ = "G" Or CH$ = "g" Then Goto 2000
  209. 1230 If CH$ = "Q" Or CH$ = "q" Then Goto 9000
  210. 1240 Print G$;G$
  211. 1250 Goto 565
  212. 1500 Print X$
  213. 1510 Print CP$;"'s turn. Letters used: ";US$
  214. 1520 Print
  215. 1530 Input "Buy what vowel: ";V$
  216. 1540 For A = 1 To Len(VO$)
  217. 1550    If Mid$(VO$,A,1) = V$ Then Goto 1590 
  218. 1560 Next A
  219. 1570 Print G$;G$;G$;"You must enter a vowel!"
  220. 1580 Goto 1520 
  221. 1590 For A = 1 To Len(US$)
  222. 1600    If Mid$(US$,A,1) = V$ Then Goto 1630
  223. 1610 Next A
  224. 1620 Goto 1650
  225. 1630 Print G$;G$;"Vowel already bought. You lose a turn, sucker!"
  226. 1640 Goto 4200
  227. 1650 For A = 1 To Len(CN$)
  228. 1660    If Mid$(AN$(WN),A,1) = V$ Then Goto 1720
  229. 1670 Next A
  230. 1680 Print "Sorry, but there are no ";V$;"'s. ";
  231. 1690                                                                   Rem
  232. 1700 US$ = US$ + V$ + " "
  233. 1710 Goto 4200
  234. 1720 Print "Yes, there are ";
  235. 1722 TT = 0
  236. 1724 US$ = US$ + V$ + " "
  237. 1729 For A = 1 To LW
  238. 1730    If Mid$(AN$(WN),A,1) = V$ Then TT = TT + 1
  239. 1740    If Mid$(AN$(WN),A,1) = V$ Then G1(A) = 1
  240. 1750 Next A
  241. 1755 Print TT;" ";V$;"'s. Press any key to continue: ";
  242. 1757 KK$ = Inkey$(0%,Wait)
  243. 1760 If CP = 1 Then S1 = S1 - (TT * 250)
  244. 1765 If CP = 2 Then S2 = S2 - (TT * 250)
  245. 1770 Goto 5000
  246. 2000 Print X$
  247. 2010 Gosub 1000
  248. 2020 Print
  249. 2030 Print "Enter your answer below: Capital Letters Only!"
  250. 2040 Input "--> ";YA$
  251. 2050 If YA$ = AN$(WN) Then Goto 2070
  252. 2060 Print G$;G$;"Sorry, you did not guess correctly."
  253. 2065 Goto 4200
  254. 2070 Print "You are totally correct! We will now move to Round ";R + 1
  255. 2080Rem
  256. 2090 If CP = 1 Then S1 = S1 + 1000
  257. 2100 If CP = 2 Then S2 = S2 + 1000
  258. 2105 If (R + 1) = 4 Then Goto 4800
  259. 2107 Print "Press any key to continue: ";
  260. 2108 KK$ = Inkey$(0%,Wait)
  261. 2110 Goto 460
  262. 3000 If W$(LI) = "Bankrupt" Then Goto 3050
  263. 3010 Print
  264. 3020 Print G$;G$;"You lose a turn, what a shame, ";CP$;". ";
  265. 3040 Goto 4200
  266. 3050 Print G$;G$;G$;G$;"Ouch! Looks like you start all over again. ";
  267. 3060 If CP = 1 Then S1 = 0
  268. 3070 If CP = 2 Then S2 = 0
  269. 3080 Goto 4200
  270. 4200 Print
  271. 4210 Print "Press any key to continue: ";
  272. 4220 KK$ = Inkey$(0%,Wait)
  273. 4230 If CP = 1 Then Goto 4270
  274. 4240 CP = 1
  275. 4250 CP$ = C1$
  276. 4260 Goto 565
  277. 4270 CP = 2
  278. 4280 CP$ = C2$
  279. 4290 Goto 565
  280. 4800 Print
  281. 4810 Goto 9000
  282. 5000 For A = 1 To LW 
  283. 5010    If SE$(A) = " " Or SE$(A) = "'" Or SE$(A) = "," Then Goto 5030
  284. 5020    If G1(A) = 1 Then Goto 5030
  285. 5022    Goto 565
  286. 5030 Next A
  287. 5040 Rem
  288. 5050 Print X$
  289. 5060 Print "You have completed the puzzle."
  290. 5070 Goto 2070
  291. 9000 Print X$
  292. 9010 Print "Rounds played: ";R
  293. 9020 Print C1$;"'s total winnings: ";S1
  294. 9030 Print C2$;"'s total winnings: ";S2
  295. 9040 If S1 > S2 Then Print C1$;" wins this game."
  296. 9050 If S2 > S1 Then Print C2$;" wins this game."
  297. 9060 If S1 = S2 Then Print "This game ends in a dead tie."
  298. 9070 Print
  299. 9080 Print "Thank you for playing the VAX/VMS version of"
  300. 9090 Print ,"Wheel of Fortune V1.0 by Jason R. Keyes (LOXSMITH@WORKS.UUCP)."
  301. 9100 Print
  302. 9110 Print "Good day to you. :-)"
  303. 9120 Print
  304. 9130 End
  305.