Compucolor.org – Virtual Media

Listing of file='RULES.BAS;01' on disk='vmedia/chip_106-sector.ccvf'

10 REM  *******************************
11 REM  *			      *
12 REM  * INSTRUCTIONS FOR GUESS WHAT *
13 REM  *    BY MICHAEL RANZENBACH    *
14 REM  *        OCTOBER 1983         *
15 REM  *			      *
16 REM  *******************************
20 PLOT 27,24,29,20,14,12
25 PRINT TAB( 21)"G U E S S    W H A T"
30 PLOT 15,19:PRINT TAB( 12)"A GAME FOR ONE TO THREE PLAYERS BASED"
35 PRINT TAB( 12)"ON THE TV GAME SHOW ";CHR$ (34);"WHEEL OF FORTUNE";CHR$ (34)
40 PRINT :PRINT :PRINT "OBJECT: TO SCORE POINTS BY CORRECTLY GUESSING WHICH LETTERS"
45 PRINT ,"OF THE ALPHABET ARE CONTAINED IN A WORD PUZZLE  AND"
50 PRINT ,"THEN SOLVE THAT PUZZLE FOR BONUS POINTS.  THERE ARE"
55 PRINT ,"SEVEN PUZZLES OR 'ROUNDS' PER GAME. THE PLAYER WITH"
60 PRINT ,"THE MOST POINTS AT THE END OF THE GAME WINS."
65 PRINT :PRINT :PRINT "TYPES:  THERE ARE FIVE DIFFERENT TYPES OF PUZZLES. THEY ARE:"
70 PRINT :PRINT TAB( 13)"PERSON ... THE NAME OF EITHER A FAMOUS"
75 PRINT ,,,"PERSON OR A FICTIONAL CHARACTER"
80 PRINT :PRINT TAB( 13)"PLACE .... THE NAME OF A PLACE
85 PRINT :PRINT TAB( 13)"THING .... THE NAME OF AN INANIMATE OBJECT"
90 PRINT ,,,"OR AN ORGINAZATION"
95 PRINT :PRINT TAB( 13)"PHRASE ... A SAYING, VERSE, PROVERB ETC.
100 PRINT :PRINT TAB( 13)"TITLE .... THE NAME OF A MOVIE, BOOK, TV SHOW ETC.
105 GOSUB 1000
110 PLOT 12:PRINT "PUZZLE: AT THE START OF EACH ROUND, A SERIES OF BLANKS WILL BE"
115 PRINT ,"DISPLAYED ON THE SCREEN DENOTING THE WORD OR WORDS OF"
120 PRINT ,"THE PUZZLE.  THE FIRST PLAYER THEN 'SPINS THE WHEEL' TO"
125 PRINT ,"DETERMINE HOW MANY POINTS HE CAN EARN DURING HIS TURN."
130 PRINT :PRINT :PRINT "WHEEL:  THE WHEEL IS COMPOSED OF POINT VALUES IN THE RANGE OF"
135 PRINT ,"100 TO 1000.  IN ADDTION THERE ARE ALSO SPACES MARKED"
140 PRINT ,"PASS AND BROKE.  IF YOU LAND ON PASS, YOU MERELY LOSE"
145 PRINT ,"YOUR TURN.  HOWEVER, IF YOU LAND ON BROKE YOU LOSE"
150 PRINT ,"BOTH YOUR TURN AND ALL OF YOUR POINTS !!!"
160 PRINT :PRINT :PRINT "OPTIONS:IF THE WHEEL LANDS ON A POINT VALUE THE PLAYER HAS"
165 PRINT ,"THREE OPTIONS .....
170 PRINT :PRINT ,"LETTER ...... ENTERING AN L WILL ALLOW YOU TO CHOOSE A"
175 PRINT TAB( 22)"LETTER WHICH YOU THINK MAY BE FOUND IN"
180 PRINT TAB( 22)"THE PUZZLE.   FOR EACH TIME THE LETTER"
185 PRINT TAB( 22)"APPEARS IN THE PUZZLE, YOU GET THE POINT"
190 PRINT TAB( 22)"VALUE ON THE 'WHEEL' ADDED TO YOUR SCORE."
195 PRINT TAB( 22)"PLUS YOU GET TO KEEP YOUR TURN AND 'SPIN'"
200 PRINT TAB( 22)"AGAIN. IF THE LETTER IS NOT IN THE PUZZLE"
205 PRINT TAB( 22)"OR HAS ALREADY BEEN CALLED, YOU LOSE"
210 PRINT TAB( 22)"YOUR TURN !!!":GOSUB 1000:PLOT 12
220 PRINT "OPTIONS CONTINUED ......":PRINT
225 PRINT ,"BUY A VOWEL . ENTERING A B ALLOWS YOU TO BUY ONE OF THE"
230 PRINT TAB( 22)"VOWELS  ( A-E-I-O-U )  FOR THE AMOUNT OF"
235 PRINT TAB( 22)"POINTS SHOWN ON THE 'WHEEL'. IF THE VOWEL"
240 PRINT TAB( 22)"IS IN THE PUZZLE, YOU KEEP YOU TURN. IF"
245 PRINT TAB( 22)"THE VOWEL IS NOT IN THE PUZZLE OR HAS"
250 PRINT TAB( 22)"ALRAEDY BEEN CALLED, YOU LOSE YOUR TURN."
260 PRINT :PRINT ,"GUESS ....... ENTERING A G ALLOWS YOU TO MAKE A GUESS"
265 PRINT TAB( 22)"AT THE PUZZLE.  IF YOU ARE CORRECT, YOU"
270 PRINT TAB( 22)"EARN TEN TIMES THE AMOUNT SHOWN ON THE"
275 PRINT TAB( 22)"'WHEEL' PLUS YOU GET TO GO FIRST IN THE"
280 PRINT TAB( 22)"NEXT ROUND. IF YOU ARE WRONG, YOU LOSE"
282 PRINT TAB( 22)"YOUR TURN."
285 PRINT :PRINT :PRINT "ONLY VOWEL LEFT ........":PRINT
290 PRINT ,"IF ALL OF THE CONSONENTS CONTAINED IN THE PUZZLE HAVE"
295 PRINT ,"BEEN CALLED THEN EACH PLAYER GETS ONE LAST GUESS AT"
300 PRINT ,"THE PUZZLE.  IF NO ONE SOLVES THE PUZZLE AT THIS TIME"
305 PRINT ,"THE ROUND IS THEN OVER."
310 PRINT :PRINT :PRINT ,"     NOTE: ALL PUZZLES HAVE HAD ANY PUNCTUATION"
315 PRINT ,,"       SUCH AS - OR ' REMOVED FROM THEM."
320 PRINT :PRINT ,,"   ALSO, THE DISK MUST REMAIN IN THE"
325 PRINT ,,," DISK DRIVE DURING THE GAME."
330 PLOT 3,0,31,11:PRINT TAB( 8);:INPUT "PRESS RETURN TO START OVER OR    ENTER P TO PLAY ";Z$
335 Z$= LEFT$ (Z$,1):IF Z$= ""THEN GOTO 20
340 IF Z$= "P"THEN PLOT 27,11,6,2,12:LOAD "GUESS":RUN
345 GOTO 330
999 PLOT 27,11,6,2:END
1000 PLOT 3,13,31:INPUT "..... PRESS RETURN TO CONTINUE .....";Z$:RETURN
5000 INPUT Z$
5010 X= INT (32- LEN (Z$)/ 2)
5020 PRINT "TAB(";X;" )"