home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / WHEEL-OF-FORTUNE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.3 KB  |  162 lines
  1. 5 AR$="":N=-1:PN=1:A1$=""
  2. 7 PO$(1)="><   "
  3. 8 PO$(2)="   ><"
  4. 10 PRINT"[147]":POKE53281,0:POKE53280,0
  5. 15 LC$="":TE$=""
  6. 20 FORR=1TOINT(RND(1)*30):READP$,C$:NEXTR:RESTORE
  7. 30 PRINT"";
  8. 40 FORR=1TOLEN(P$)
  9. 50 IFMID$(P$,R,1)=" "THENPRINT"   ";:GOTO70
  10. 60 PRINT"[158] [146] ";
  11. 70 NEXTR
  12. 75 PRINT"PLAYER 1   PLAYER 2"
  13. 77 PRINT"         [163][163][163][163][163][163][163][163]   [163][163][163][163][163][163][163][163]"
  14. 78 PRINT"            0          0"
  15. 79 PRINTPO$(PN)
  16. 80 X=LEN(P$)-(LEN(C$)/2):PRINT""TAB(X);C$
  17. 83 PRINT"[176][192][192][174]"
  18. 84 PRINT"[221]  [221]"
  19. 86 PRINT"[173][192][192][189]"
  20. 90 REM VALUE OF SPIN
  21. 91 PRINT"S[146]PIN, A[146]NSWER, B[146]UY A VOWEL?"
  22. 92 GETQ$:IFQ$=""THEN92
  23. 93 IFQ$="S"THEN100
  24. 94 IFQ$="B"THEN1000
  25. 95 IFQ$="A"THEN2000
  26. 96 GOTO92
  27. 100 S=INT(RND(1)*100)
  28. 110 IFS<=25THENV=2:V$="02"
  29. 120 IFS>25ANDS<=45THENV=3:V$="03"
  30. 130 IFS>45ANDS<=60THENV=4:V$="04"
  31. 140 IFS>60ANDS<=70THENV=5:V$="05"
  32. 150 IFS>70ANDS<=80THENV=0:V$="BA"
  33. 160 IFS>80ANDS<=90THENV=99:V$="FS"
  34. 170 IFV>90ANDS<=95THENV=7:V$="07"
  35. 180 IFS>95THENV=10:V$="10"
  36. 190 FORR1=1TO15:FORT1=1TOR1*R1:NEXTT1:PRINT"0[157]";INT(RND(1)*10):NEXTR1
  37. 200 PRINT"";V$
  38. 210 IFV=0THENBA(PN)=0:GOTO305
  39. 220 IFV=99THENFS(PN)=FS(PN)+1:GOTO90
  40. 230 PRINT"LETTER :     [157][157][157][157]";
  41. 240 GETG$:IFG$=""THEN240
  42. 245 G=ASC(G$)
  43. 250 IFG<66ORG>90THEN240
  44. 255 IFG=69ORG=73ORG=79ORG=85THEN240
  45. 260 PRINTG$
  46. 261 FORT=1TOLEN(TE$)
  47. 262 IFG$<>MID$(TE$,T,1)THEN265
  48. 263 POKE53280,2:FORP=1TO200:NEXTP:POKE53280,0
  49. 264 T=LEN(TE$):GOTO9000
  50. 265 NEXTT
  51. 268 TE$=TE$+G$
  52. 270 FORR=1TOLEN(P$):P1$=MID$(P$,R,1)
  53. 275 IFP1$=" "THENAR$=AR$+""
  54. 280 AR$=AR$+""
  55. 290 IFP1$=G$THENBA(PN)=BA(PN)+V:Y=1:GOSUB40000:PRINTAR$;"";G$
  56. 300 NEXT R
  57. 305 AR$=""
  58. 307 X=11*PN:PRINT"";TAB(X);"   [157][157][157]";BA(PN)
  59. 310 IFY=0ANDV$<>"BA"THEN8000
  60. 315 IFY=0THEN9000
  61. 320 Y=0:GOTO90
  62. 1000 IFBA(PN)<3THENPRINTA1$;"YOU HAVEN'T THE POINTS[146]":FORP=1TO4500:NEXTP:GOSUB10000:GOTO90
  63. 1010 BA(PN)=BA(PN)-3
  64. 1020 PRINT" VOWEL :     [157][157][157][157]";
  65. 1030 GETG$:IFG$=""THEN1030
  66. 1035 G=ASC(G$)
  67. 1040 IFG=65ORG=69ORG=73ORG=79ORG=85THEN1051
  68. 1050 GOTO1030
  69. 1051 FORT=1TOLEN(TE$)
  70. 1052 IFG$<>MID$(TE$,T,1)THEN1055
  71. 1053 POKE53280,2:FORP=1TO200:NEXTP:POKE53280,0
  72. 1054 T=LEN(TE$):GOTO9000
  73. 1055 NEXTT
  74. 1057 TE$=TE$+G$
  75. 1060 FORR=1TOLEN(P$):P1$=MID$(P$,R,1)
  76. 1070 IFP1$=" "THENAR$=AR$+""
  77. 1080 AR$=AR$+""
  78. 1090 IFP1$=G$THENY=1:GOSUB40000:PRINTAR$;G$
  79. 1100 NEXT R
  80. 1120 AR$=""
  81. 1125 X=11*PN:PRINT"";TAB(X);"   [157][157][157]";BA(PN)
  82. 1130 IFY=0THEN8000
  83. 1140 Y=0:GOTO90
  84. 2000 REM ANSWER PUZZLE
  85. 2002 IFC$="PERSON"ORC$="CHARACTER"THENWH$="WHO":GOTO2010
  86. 2005 IFC$="PLACE"THENWH$="WHERE":GOTO2010
  87. 2007 WH$="WHAT"
  88. 2010 PRINT""WH$;" IS THIS"
  89. 2020 PRINTC$;
  90. 2030 INPUTA$:IFA$=P$THEN2500
  91. 2040 PRINT"[145][145]NO I'M SORRY, BUT THAT'S NOT IT":PRINT"                                  "
  92. 2045 GOSUB15000
  93. 2050 PRINT"                                        "
  94. 2060 PRINT"                                    "
  95. 2070 GOTO9000
  96. 2500 FORR=1TO16:FORT=1TO70:NEXTT:POKE53280,R:POKE53281,R+5:NEXTR
  97. 2510 POKE53281,0:POKE53280,0:PRINT"[147]THAT'S RIGHT"
  98. 2515 PT(PN)=PT(PN)+BA(PN):IF PT(PN)<50THENGOSUB15000:BA(1)=0:BA(2)=0:GOTO10
  99. 2520 PRINT"                YOU  WIN[146]"
  100. 2530 PRINT"            PLAY AGAIN (Y/N)"
  101. 2540 GETQ$:IFQ$=""THEN2540
  102. 2550 IFQ$="Y"THENCLR:GOTO5
  103. 2560 IFQ$="N"THENSTOP
  104. 2570 GOTO2550
  105. 2999 STOP
  106. 8000 LC$=LC$+"":PRINTLC$;G$
  107. 8010 G$=""
  108. 9000 IFFS(PN)=0THEN9100
  109. 9010 PRINTA1$;"[196]O YOU WANT TO USE YOUR FREE SPIN (Y/N)?"
  110. 9020 GETQ$:IFQ$=""THEN9020
  111. 9030 IFQ$="Y"THEN90
  112. 9040 IFQ$<>"N"THEN9020
  113. 9100 N=N*(-1):PN=PN+N
  114. 9110 GOSUB10000
  115. 9120 PRINT"LETTER :     [157][157][157][157]";
  116. 9130 PRINTPO$(PN)
  117. 9140 GOTO90
  118. 10000 PRINTA1$;"                                       ":RETURN
  119. 15000 PRINTA1$;"PRESS ANY KEY"
  120. 15010 GETQ$:IFQ$=""THEN15010
  121. 15020 GOSUB10000
  122. 15030 RETURN
  123. 20000 DATA JOHN PAUL JONES,PERSON
  124. 20001 DATA TRIVIAL PURSUIT,THING
  125. 20002 DATA CAPE CANAVERAL,PLACE
  126. 20003 DATA THE WIZARD OF OZ,TITLE
  127. 20004 DATA WHERES THE BEEF,PHRASE
  128. 20005 DATA KING ARTHUR,CHARACTER
  129. 20006 DATA DUSTIN HOFFMAN,PERSON
  130. 20007 DATA VOLKSWAGON,THING
  131. 20008 DATA TELEVISION SET,THING
  132. 20009 DATA ARTHUR C CLARKE,PERSON
  133. 20010 DATA DEATH VALLEY,PLACE
  134. 20011 DATA FATHER KNOWS BEST,TITLE
  135. 20012 DATA PLAY IT AGAIN SAM,PHRASE
  136. 20013 DATA SAM SPADE,CHARACTER
  137. 20014 DATA DINER TABLE,THING
  138. 20015 DATA DUSTIN HOFFMAN,PERSON
  139. 20016 DATA SUPERMARKET,PLACE
  140. 20017 DATA CAPTAIN AHAB,CHARACTER
  141. 20018 DATA THE PINK PANTHER,TITLE
  142. 20019 DATA MODEL AIRPLANE,THING
  143. 20020 DATA WHEEL OF FORTUNE,TITLE
  144. 20021 DATA BILLY JOEL,PERSON
  145. 20022 DATA THOMAS EDISON,PERSON
  146. 20023 DATA POISON IVY,THING
  147. 20024 DATA SAN FRANCISCO,PLACE
  148. 20025 DATA DALLAS TEXAS,PLACE
  149. 20026 DATA GET SMART,TITLE
  150. 20027 DATA I LOVE LUCY,TITLE
  151. 20028 DATA CAPTAIN AMERICA,CHARACTER
  152. 20029 DATA BARRY MANILOW,PERSON
  153. 20030 DATA FOR SALE SIGN,THING
  154. 40000 PRINTAR$;
  155. 40005 PRINTAR$;"[158] [146]":FORL=1TO100:NEXTL
  156. 40010 PRINTAR$;"[158][170][146]":FORL=1TO40:NEXTL
  157. 40020 PRINTAR$;"[158][161]":FORL=1TO40:NEXTL
  158. 40030 PRINTAR$;"[158][181]":FORL=1TO40:NEXTL
  159. 40040 PRINTAR$;"[158][180]":FORL=1TO40:NEXTL
  160. 40050 PRINTAR$;"[158][165]":FORL=1TO40:NEXTL
  161. 40060 RETURN
  162.