PCjs Machines
Home of the original IBM PC emulator for browsers.
PC-SIG Diskette Library (Disk #708)
[PCjs Machine "ibm5170"]
Waiting for machine "ibm5170" to load....
Information about “BACKGAMMON AND MORE”
Norsoft FOREIGN LANGUAGE HANGMAN is an excellent educational program for
learning Spanish, or for learning English for people who speak Spanish.
While being educational, this program is very entertaining. It includes
three variations on the basic Hangman game. The first is guessing what
the secret word is, while in the second version you must guess an entire
phrase. The last is Personalized Hangman, which can be played by two to
nine players who enter a word or phrase to try to stump the others.
This program is quite useful for building up your vocabulary or for
learning basic grammar.
BACKGAMMON is finally here for your PC! Now you can play against a
strong opponent on your own computer. If you've never played before, or
you're the champion of your local club, BACKGAMMON will fill the role of
instant opponent. For the true afficionado, the program keeps track of
points, games, gammons, and backgammons.
COMMENTS.DOC
WHAT PEOPLE HAVE BEEN SAYING ABOUT BACKGAMMON
"The backgammon game is the best one we've seen in years. The playing
style is straightforward..."
-- PC-SIG Magazine, Sunnyvale, California
"Backgammon is currently leading our ongoing struggle 176 games to 138
games. His prowness seems largely due to his expert handling of the
doubles cube."
-- Rancho La Costa, California
"...The author warns you to expect to get crushed, but in a test game,
we won by a roll or two and we are not experts by any means..."
-- Nelson Ford, The Public (Software) Library, Houston, Texas
"All in all, the program makes a fierce competitor."
-- Glasgow, Kentucky
CONTRACT.DOC
About Backgammon
Backgammon is user-supported.
Please copy this shareware starter disk and give it away to friends. It
is ok to copy this program, and and you are encouraged to make copies of
this program for others on a private, non-commercial basis.
If you do make copies of this disk, thank you, and we ask that you
distribute unmodified copies of the disk along with an unmodified copy of
the documentation.
If you like Backgammon, in addition to distributing copies, we hope that
you will acknowledge the authors of the program and support them with a
financial contribution. By supporting the authors through the completion
of registrations, you are encouraging the development of future quality
shareware programs such as Backgammon. You may register your copy by
filling out the registration form and mailing it to the address shown with
a (suggested) contribution of $21.95. (OEM's and institutions please
contact Software Creations for very reasonable pricing information on
usage on more than one computer).
PLEASE NOTE that if you have obtained Backgammon from a bulletin board or
via a national distribution group, that no portion of any payment that you
may have made to that group to obtain the shareware starter disk has been
passed on to Software Creations. Such distribution fees (which range from
$3 to $8 ) do not constitute formal registrations, and Software Creations
is not in a position to support users who have not formally registered.
User's agreement
By accepting and using this software, you acknowledge that this software
may not suit your particular requirements or be completely trouble-free.
The software will perform as described when the instructions are followed,
and with proper application. The authors, however, are not responsible
for your specific application or hardware configuration or any problems
resulting from use of this software.
If the software does not perform as described, liability is limited to
replacement of the software or a refund of your contribution (if you have
registered with Software Creations). We have no liability to you or any
other person or entity for any damage or loss, including special,
incidental, or consequential damages, caused by this software, directly or
indirectly. Some states do not allow the limitation or exclusion of
liability for incidental or consequential damages, so the above limitation
or exclusion may not apply to you.
This agreement is governed by the laws of the State of Hawaii and the laws
of the United States of America. Should any part of this agreement be held
invalid, the remainder of the agreement will still be in effect. This
agreement can only be modified by written statement signed by the authors.
Under this agreement, you may NOT:
1) Distribute the program in connection with any other product or
service, or as part of a corporate or institutionally-sponsored
distribution.
2) Charge a fee for this program, with the exception of registered
user groups who may charge cost-based fee (not to exceed $10) to
cover their own costs.
3) Distribute the program in modified form or with another program on the
same disk.
DISKFILE.DOC
BACKGAMMON Version 3.00
Copyright (C) Software Creations 1986, 1987.
User Interface Copyright (C) Software Creations 1986, 1987.
When you receive your distribution disk, it should contain the following
files. Please contact Software Creations if this is not true for your
distribution.
AUTOEXEC.BAT Sample AUTOEXEC.BAT file for autostart
BG.EXE Backgammon executable program
COMMENTS.DOC What people have been saying about Backgammon
CONTRACT.DOC User's agreements and guide to redistribution
DISKFILE.DOC This file
GO.BAT Batch file to call READ.ME
ISBN.DOC International Standard Book Number
LETTER.DOC An open letter to users
NEWS.DOC New features of Backgammon V3.00
PROBLEM.FRM Software Problem Report Form
README.1ST Instructions for the first time user
REGISTER.FRM Shareware Registration Form -- Please fill out
SC.CAT Other products from your dedicated programmers
FILE0708.TXT
Disk No: 708
Disk Title: Backgammon and More
PC-SIG Version: S3.3
Program Title: Foreign Language Hangman (Spanish)
Author Version: 5.75
Author Registration: $15.00
Special Requirements: None.
Norsoft FOREIGN LANGUAGE HANGMAN is an excellent educational program for
learning Spanish, or for learning English for people who speak Spanish.
While being educational, this program is very entertaining. It includes
three variations on the basic Hangman game. The first is guessing what
the secret word is, while in the second version you must guess an entire
phrase. The last is Personalized Hangman, which can be played by two to
nine players who enter a word or phrase to try to stump the others.
This program is quite useful for building up your vocabulary or for
learning basic grammar.
Program Title: Backgammon
Author Version: 1
Author Registration: $21.95
Special Requirements: None.
BACKGAMMON is finally here for your PC! Now you can play against a
STRONG opponent on your own computer. If you've never played before, or
you're the champion of your local club, BACKGAMMON will fill the role of
instant opponent. For the true aficionado, the program keeps track of
points, games, gammons, and backgammons.
PC-SIG
1030D East Duane Avenue
Sunnyvale Ca. 94086
(408) 730-9291
(c) Copyright 1989 PC-SIG, Inc.
GO.TXT
╔═════════════════════════════════════════════════════════════════════════╗
║ <<<< Disk #708 Backgammon and More >>>> ║
╠═════════════════════════════════════════════════════════════════════════╣
║ ║
║ To start the BACKGAMMON game, type: RUN (press enter) ║
║ ║
║ To start the FOREIGN LANGUAGE HANGMAN game, type: HANGMAN (press enter) ║
║ ║
║ To start WHEEL you must first load BASIC and then load WHEEL.BAS ║
║ ║
╚═════════════════════════════════════════════════════════════════════════╝
(c) Copyright 1990, PC-SIG Inc.
ISBN.DOC
International Standard Book Number
ISBN 0-944068-01-4
NEWS.DOC
NEW FEATURES WITH BACKGAMMON V3.00
Software Creations
Software Creations would like to extend thanks again to all you users
who have made financial contributions and have made Backgammon Version
3.00 possible. We would also like to thank all of you users who have
sent in your suggestions for improvements to Backgammon. Remember, if
you write to us, include a stamped, self-addressed envelope as we'd like
the opportunity to respond to your suggestions and questions.
With this release we want to show off our new Backgammon board, which is
more colorful draws the pieces more neatly.
This release also fixes a deeply hidden bug in our white move generator.
Believe us, we got lots of mail about our Backgammon cheating when
moving 6's in the endgame!! Thanks to those alert users who caught us
sonambulating and completed those really clear Software Problem Reports.
Tenkey pad users, accountants especially, will be very pleased to know
that when moving pieces the delimiter character for moves can now be a
decimal point as well as a space. This allows for faster input for
those who are fast at tenkey pad entry. The space also works as with
previous versions.
This release also features a complete internal restructuring in the
program itself. Software Creations has thus laid the foundation for a
Championship-strength Backgammon game in the future. We'd like to know,
however, is there any interest out there for an even stronger version of
Backgammon? We have the capabilities of doing so, but currently it
keeps blowing us away!
WHEEL.BAS
1 SCREEN 0:WIDTH 40:KEY OFF
2 PLAYER=1
5 CLS
6 ME$="WHEEL OF FORTUNE":MES=LEN(ME$)
10 LOCATE 12,20-INT(MES/2)+1:PRINT ME$
20 MF$="by Tom Reilly":MFS=LEN(MF$):LOCATE 14,20-INT(MFS/2):PRINT MF$
30 LOCATE 20,1:PRINT " (PRESS ANY KEY START GAME) "
40 R$=INKEY$:KOLA=RND:IF R$="" THEN 40
50 CLS
60 INPUT "HOW MANY PLAYERS ARE THERE (1-6)";RAY
65 DIM S(21)
70 FOR I=1 TO 21:READ S(I):NEXT I
1000 'PREPARING GAME
1020 DIM N$(500),TOM$(100),BREE$(26)
1030 FOR I=1 TO 150:READ N$(I):NEXT I
1040 CLS
1041 FOR TUE=0 TO 26:BREE$(TUE)="":NEXT TUE:ZUB=0
1042 ROUND=ROUND+1
1043 IF ROUND=4 THEN 3000
1044 IF ROUND=2 THEN 5000
1045 IF ROUND=3 THEN 5100
1050 HOWI=1
1070 P=INT(RND*150)+1:AN$=N$(P)
1080 A=1:GO=20-INT((LEN(AN$)-1)/2)
1090 TOM$=MID$(AN$,A,1)
1100 IF TOM$=" " THEN LOCATE 12,GO: PRINT " ":GO=GO+1:A=A+1:GOTO 1090
1110 IF TOM$="*" THEN 1122
1120 LOCATE 12,GO:PRINT "-":A=A+1:GO=GO+1:GOTO 1090
1122 IF P<51 THEN TEX$="PERSON"
1123 IF P>50 AND P<101 THEN TEX$="PLACE"
1124 IF P>100 AND P<151 THEN TEX$="THING"
1125 IF P>150 THEN TEX$="PHRASE"
1126 VAB=LEN(AN$)-1:LAMP=LEN(TEX$)
1127 TAX=INT(VAB/2)+20-INT(VAB/2)-INT(LAMP/2):FOR TEA=1 TO VAB:TOM$(TEA)=MID$(TEX$,TEA,1):NEXT TEA:HUGH=1:FOR TIX=TAX TO VAB+TAX:LOCATE 14,TIX:PRINT TOM$(HUGH):HUGH=HUGH+1:FOR SHOW=1 TO 25:NEXT SHOW:NEXT TIX
1130 'BEGIN GAME
1140 LOCATE 5,1:PRINT "PLAYER";PLAYER
1141 IF RAY<4 THEN LOCATE 7,1:FOR FUN=1 TO RAY:PRINT "PLAYER";FUN;": ":NEXT FUN:GOTO 1145
1142 LOCATE 7,1:FOR FUN=1 TO 3:PRINT "PLAYER";FUN;": ":NEXT FUN
1143 FOR FUN=4 TO RAY:LOCATE 3+FUN,20:PRINT "PLAYER";FUN;": ":NEXT FUN
1145 IF RAY<4 THEN LOCATE 7,1:FOR FUN=1 TO RAY:PRINT "PLAYER";FUN;":";MIN(FUN):NEXT FUN:GOTO 1150
1146 LOCATE 7,1:FOR FUN=1 TO 3:PRINT "PLAYER";FUN;":";MIN(FUN):NEXT FUN
1147 FOR FUN=4 TO RAY:LOCATE 3+FUN,20:PRINT "PLAYER";FUN;":";MIN(FUN):NEXT FUN
1148 MON=0
1150 ED$=INKEY$:IF ED$="" THEN 1150
1151 IF ED$="A" THEN 2000
1152 IF ED$="E" THEN 2000
1153 IF ED$="I" THEN 2000
1154 IF ED$="O" THEN 2000
1155 IF ED$="U" THEN 2000
1156 IF ED$="1" THEN 1300
1157 IF ED$="2" THEN 1600
1158 IF ED$="3" THEN 3700
1159 GOTO 1150
1160 ED$=INKEY$:IF ED$="" THEN 1160
1161 IF ED$="1" THEN LOCATE 1,1:PRINT "YOU CAN'T GUESS THE ANSWER NOW!":FOR TREE=1 TO 700:NEXT TREE:LOCATE 1,1:PRINT " ":GOTO 1160
1162 IF ED$="2" THEN LOCATE 1,1:PRINT"YOU HAVE SPUN ALREADY!":FOR TREE=1 TO 700:NEXT TREE:LOCATE 1,1:PRINT" ":GOTO 1160
1166 IF ED$="A" THEN 1160
1167 IF ED$="E" THEN 1160
1168 IF ED$="I" THEN 1160
1169 IF ED$="O" THEN 1160
1170 IF ED$="U" THEN 1160
1171 GO=20-INT(VAB/2)
1172 KGB=0
1180 YOUR=LEN(AN$)
1190 BETH=YOUR-1
1191 FOR A=0 TO BETH-1
1192 TOM=SCREEN(12,A+20-INT(VAB/2))
1193 IF CHR$(TOM)=ED$ THEN MAUREEN=1
1194 NEXT A:IF MAUREEN=1 THEN GOSUB 1500:GOTO 1130
1195 FOR B=0 TO ZUB
1196 IF ED$=BREE$(B) THEN MAUREEN=1
1197 NEXT B
1198 IF MAUREEN=1 THEN GOSUB 1500:GOTO 1130
1200 FOR A=1 TO BETH
1210 TOM$=MID$(AN$,A,1)
1220 IF ED$=TOM$ THEN LOCATE 12,GO:PRINT ED$:KGB=KGB+1
1230 GO=GO+1
1240 NEXT A
1260 GOSUB 1400
1270 IF KGB=0 THEN LOCATE 3,HOWI:PRINT ED$:HOWI=HOWI+2:BREE$(ZUB)=ED$:ZUB=ZUB+1:IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1272
1271 IF KGB=0 THEN PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
1272 IF KGB=0 THEN 1140
1273 IF ED$="A" OR ED$="E" OR ED$="I" THEN 1130
1274 IF ED$="O" OR ED$="U" THEN 1130
1275 MIN(PLAYER)=MON*KGB+MIN(PLAYER)
1280 GOTO 1140
1290 'ANSWERING
1300 LOCATE 1, 1:PRINT"WHAT IS THE ANSWER"
1310 LOCATE 1,19:INPUT EWEL$
1320 VEL=LEN(AN$):FRO$=MID$(AN$,1,VEL-1)
1330 IF EWEL$=FRO$ THEN LOCATE 2,1:PRINT"YOU ARE CORRECT!":LOCATE 12,20-INT((VEL-1)/2):PRINT FRO$:GOTO 1360
1340 LOCATE 2,1:PRINT"SORRY, THAT IS INCORRECT."
1350 FOR SAM=1 TO 1000:NEXT SAM:LOCATE 1,1:PRINT" ":LOCATE 2,1:PRINT" ":IF SPIN(PLAYER)>0 THEN GOSUB 3500:IF NUTO=1 THEN NUTO=0:GOTO 1130
1352 PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
1354 GOTO 1130
1360 FOR SAM=1 TO 1000:NEXT SAM:LOCATE 1,1:PRINT" ":LOCATE 2,1:PRINT" ":GOSUB 3500
1361 GOTO 1040
1400 JHS=45
1410 FOR PFS=20-INT((LEN(AN$)-1)/2) TO LEN(AN$)-1+15
1420 HS=SCREEN(12,PFS)
1430 IF HS=JHS THEN K=1
1440 NEXT PFS
1450 IF K<>1 THEN 1040
1460 K=0
1470 RETURN
1500 MAUREEN=0:LOCATE 1,1:PRINT "THAT LETTER WAS PICKED ALREADY.":LOCATE 2,1:PRINT "SORRY, YOU LOSE YOUR TURN.":FOR TOMB=1 TO 1000:NEXT TOMB:LOCATE 1,1:PRINT" "
1510 LOCATE 2,1:PRINT" ":IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1520
1512 PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
1520 RETURN
1600 FAT=INT(RND*24)+1
1610 IF FAT=22 THEN VOI$="LOOSE A TURN"
1620 IF FAT=23 AND ROUND=1 THEN VOI$="FREE SPIN"
1630 IF FAT=23 AND ROUND<>1 THEN VOI$="BANKRUPT"
1640 IF FAT=24 THEN VOI$="BANKRUPT"
1650 FOR GOOD=1 TO 5
1655 LOCATE 20,1:PRINT" "
1660 HALF=INT(RND*24)+1
1665 IF HALF=GERTRUDE THEN 1660
1667 GETRUDE=HALF
1670 IF HALF=22 THEN YOHAN$="LOOSE A TURN":GOTO 1800
1680 IF HALF=23 AND ROUND=1 THEN YOHAN$="FREE SPIN":GOTO 1800
1690 IF HALF=23 AND ROUND<>1 THEN YOHAN$="BANKRUPT":GOTO 1800
1700 IF HALF=24 THEN YOHAN$="BANKRUPT":GOTO 1800
1710 YOGART=S(HALF)
1720 LOCATE 20,18:PRINT YOGART
1730 GOTO 1850
1800 LOCATE 20,20-INT(LEN(YOHAN$)/2):PRINT YOHAN$
1850 FOR TIME=1 TO 200:NEXT TIME
1860 NEXT GOOD
1870 LOCATE 20,1:PRINT" "
1880 IF FAT>21 THEN LOCATE 20,20-INT(LEN(VOI$)/2):PRINT VOI$:GOTO 1950
1890 LOCATE 20,18:PRINT S(FAT)
1900 MON=S(FAT):GOTO 1160
1950 IF VOI$="BANKRUPT" THEN MIN(PLAYER)=0:IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1130
1952 IF VOI$="BANKRUPT" THEN PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
1960 IF VOI$="BANKRUPT" THEN 1130
1970 IF VOI$="FREE SPIN" THEN SPIN(PLAYER)=SPIN(PLAYER)+1:GOTO 1130
1980 IF VOI$="LOOSE A TURN" THEN BANA=0:IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1130
1990 IF VOI$="LOOSE A TURN" THEN PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1:
1995 GOTO 1130
2000 IF MIN(PLAYER)>250 THEN MIN(PLAYER)=MIN(PLAYER)-250:GOTO 1171
2010 LOCATE 1,1:PRINT "YOU DO NOT HAVE ENOUGH MONEY FOR AN ";ED$;"."
2020 LOCATE 2,1:PRINT "VOWELS ARE $250!"
2030 FOR VOWEL=1 TO 1000:NEXT VOWEL
2040 LOCATE 1,1:PRINT" "
2050 LOCATE 2,1:PRINT" "
2060 GOTO 1130
3000 CLS
3010 PRINT "THIS IS HOW MUCH EACH OF THE PLAYERS":PRINT"HAVE:"
3020 PRINT:PRINT:PRINT
3030 FOR GI=1 TO RAY:PRINT "PLAYER";GI;":";MINT(GI):NEXT GI
3040 IF MINT(1)>MINT(2) AND MINT(1)>MINT(3) AND MINT(1)>MINT(4) AND MINT (1)>MINT(5) AND MINT(1)>MINT(6) THEN WINNER=1:GOTO 3100
3050 IF MINT(2)>MINT(1) AND MINT(2)>MINT(3) AND MINT(2)>MINT(4) AND MINT (2)>MINT(5) AND MINT(2)>MINT(6) THEN WINNER=2:GOTO 3100
3060 IF MINT(3)>MINT(1) AND MINT(3)>MINT(2) AND MINT(3)>MINT(4) AND MINT (3)>MINT(5) AND MINT(3)>MINT(6) THEN WINNER=3:GOTO 3100
3070 IF MINT(4)>MINT(1) AND MINT(4)>MINT(2) AND MINT(4)>MINT(3) AND MINT (4)>MINT(5) AND MINT(4)>MINT(6) THEN WINNER=4:GOTO 3100
3080 IF MINT(5)>MINT(1) AND MINT(5)>MINT(2) AND MINT(5)>MINT(3) AND MINT (5)>MINT(4) AND MINT(5)>MINT(6) THEN WINNER=5:GOTO 3100
3090 IF MINT(6)>MINT(1) AND MINT(6)>MINT(2) AND MINT(6)>MINT(3) AND MINT (6)>MINT(4) AND MINT(6)>MINT(5) THEN WINNER=6:GOTO 3100
3095 PRINT:PRINT:PRINT:PRINT"WE HAVE A TIE!":PRINT"WE WILL PLAY ONE MORE ROUND TO BREAK":PRINT"THE TIE.":ROUND=2:GOTO 1040
3100 PRINT:PRINT:PRINT:PRINT"AND THE WINNER IS PLAYER";WINNER;"!"
3110 PRINT:PRINT"PLAYER";WINNER;"WILL PLAY THE BONUS ROUND."
3120 LOCATE 20,1:PRINT" (PRESS ANY KEY TO CONTINUE)"
3130 IF INKEY$="" THEN 3130
3140 CLS
3150 GANDA=INT(RND*150)+1
3160 AN$=N$(GANDA)
3170 A=1:GO=20-INT((LEN(AN$)-1)/2)
3180 TOM$=MID$(AN$,A,1)
3190 IF TOM$=" " THEN LOCATE 12,GO:PRINT " ":GO=GO+1:A=A+1:GOTO 3180
3200 IF TOM$="*" THEN 3220
3210 LOCATE 12,GO:PRINT"-":A=A+1:GO=GO+1:GOTO 3180
3220 IF GANDA<51 THEN TEX$="PERSON"
3222 IF GANDA>50 AND GANDA<101 THEN TEX$="PLACE"
3224 IF GANDA>100 AND GANDA<151 THEN TEX$="THING"
3226 IF GANDA>150 THEN TEX$="PHRASE"
3230 VAB=LEN(AN$)-1:LAMP=LEN(TEX$)
3240 TAX=INT(VAB/2)+20-INT(VAB/2)-INT(LAMP/2):FOR TEA=1 TO VAB:TOM$(TEA)=MID$(TEX$,TEA,1):NEXT TEA:HUGH=1:FOR TIX=TAX TO VAB+TAX:LOCATE 14,TIX:PRINT TOM$(HUGH):HUGH=HUGH+1:FOR SHOW=1 TO 25:NEXT SHOW:NEXT TIX
3250 LOCATE 1,1:PRINT"GIVE ME FIVE CONSONANTS AND A VOWEL:"
3260 FOR BRED=1 TO 5
3270 GR$=INKEY$:IF GR$="" THEN 3270
3280 IF GR$="A" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT" ":GOTO 3270
3290 IF GR$="E" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT" ":GOTO 3270
3300 IF GR$="I" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT" ":GOTO 3270
3310 IF GR$="O" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT" ":GOTO 3270
3320 IF GR$="U" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT" ":GOTO 3270
3330 BLEF=BLEF+1
3340 NEED$(BLEF)=GR$
3350 FOR HI=1 TO 5
3360 IF BLEF=HI THEN 3390
3370 IF NEED$(BLEF)=NEED$(HI) THEN LOCATE 3,1:PRINT"YOU PICKED THAT LETTER ALREADY.":FOR FRODO=1 TO 700:NEXT FRODO:LOCATE 3,1:PRINT" ":NAUGHT=1
3390 NEXT HI
3393 IF NAUGHT=1 THEN NAUGHT=0:GOTO 3270
3394 SHEEP=SHEEP+2
3395 LOCATE 5,SHEEP:PRINT GR$
3397 CON=CON+1
3398 JEFF$(CON)=GR$
3400 NEXT BRED
3410 GR$=INKEY$:IF GR$="" THEN 3410
3420 IF GR$<>"A" AND GR$<>"E" AND GR$<>"O" AND GR$<>"U" THEN LOCATE 3,1:PRINT"PICK A VOWEL PLEASE.":FOR GON=1 TO 700:NEXT GON:LOCATE 5,1:PRINT" ":GOTO 3410
3430 JEFF$(6)=GR$
3432 SHEEP=SHEEP+2:LOCATE 5,SHEEP:PRINT GR$
3434 UGY=LEN(AN$)-1
3440 FOR CHECK=1 TO 6
3442 GO=20-INT(UGY/2)
3450 FOR KATE=1 TO LEN(AN$)-1
3455 BLAB$=MID$(AN$,KATE,1)
3460 IF BLAB$=JEFF$(CHECK) THEN LOCATE 12,GO:PRINT JEFF$(CHECK)
3462 GO=GO+1
3465 NEXT KATE
3470 NEXT CHECK
3475 LOCATE 20,1:PRINT"WHAT IS THE ANSWER?":LOCATE 21,1:INPUT GHO$
3480 HUGY$=MID$(AN$,1,UGY)
3481 IF GHO$<>HUGY$ THEN 3830
3482 IF GHO$=HUGY$ THEN CLS:LOCATE 10,1:PRINT " CONGRATULATIONS!":LOCATE 12,1:PRINT" YOU HAVE JUST WON $25,000!"
3484 LOCATE 13,1:PRINT "YOUR TOTAL WINNINGS ARE $";MINT(WINNER)+25000;"!"
3486 GOTO 3860
3500 FOR DOP=1 TO RAY
3510 IF DOP=PLAYER THEN 3530
3520 MIN(DOP)=0
3530 NEXT DOP
3532 FOR DOP=1 TO RAY
3534 MINT(DOP)=MINT(DOP)+MIN(DOP)
3536 NEXT DOP
3537 FOR DOP=1 TO RAY:MIN(DOP)=0:NEXT DOP
3538 PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
3540 RETURN
3550 IF SPIN(PLAYER)>1 THEN LOCATE 1,1:PRINT"DO YOU WANT TO USE ONE OF YOUR FREE":LOCATE 2,1:PRINT"SPINS? (Y/N)"
3560 IF SPIN(PLAYER)=1 THEN LOCATE 1,1:PRINT"DO YOU WANT TO USE YOUR FREE SPIN? (Y/N)"
3570 LAUGH$=INKEY$:IF LAUGH$="" THEN 3570
3580 IF LAUGH$="Y" THEN NUTO=1:SPIN(PLAYER)=SPIN(PLAYER)-1:GOTO 3610
3590 IF LAUGH$="N" THEN 3610
3600 GOTO 3570
3610 LOCATE 1,1:PRINT" ":LOCATE 2,1:PRINT" ":RETURN
3700 FOR SPOT=5 TO 11
3710 LOCATE SPOT,1:PRINT" "
3720 NEXT SPOT
3730 LOCATE 5,1:PRINT"THIS IS HOW MANY FREE SPINS EACH PLAYER":LOCATE 6,1:PRINT"HAS:"
3740 IF RAY<4 THEN LOCATE 7,1:FOR FRU=1 TO RAY:PRINT"PLAYER";FRU;"HAS";SPIN(FRU):NEXT FRU:GOTO 3770
3750 LOCATE 7,1:FOR FRU=1 TO 3:PRINT"PLAYER";FRU;"HAS";SPIN(FRU):NEXT FRU
3760 FOR FRU=4 TO RAY:LOCATE 3+FRU,20:PRINT "PLAYER";FRU;"HAS";SPIN(FRU):NEXT FRU
3770 LOCATE 10,1:PRINT " (PRESS ANY KEY TO CONTINUE GAME!) "
3780 USG$=INKEY$:IF USG$="" THEN 3780
3790 FOR SPOT=5 TO 11
3800 LOCATE SPOT,1:PRINT" "
3810 NEXT SPOT
3820 GOTO 1130
3830 UGY=LEN(AN$)-1
3835 B$=MID$(AN$,1,UGY)
3840 CLS:PRINT"SORRY! THE ANSWER WAS ";B$;"."
3850 PRINT:PRINT:PRINT"YOU DON'T GET THE $25000, BUT YOU HAVE A TOTAL OF";MINT(WINNER);"!"
3860 PRINT
3870 PRINT
3880 PRINT "DO YOU WANT TO PLAY WHEEL OF FORTUNE"
3885 INPUT "AGAIN (Y/N)";LA$
3890 IF LA$="Y" THEN RUN
3900 IF LA$="N" THEN CLS:END
3910 GOTO 3880
5000 FOR I=1 TO 21:READ S(I):NEXT I
5010 GOTO 1050
5100 FOR I=1 TO 21:READ S(I):NEXT I
5110 GOTO 1050
9000 DATA 1000,500,400,300,200,700,200,150,450,400,250,900,150,400,600,250,350,750,800,300,200
9999 'PERSON
10000 DATA CHRISTOPHER COLUMBUS*,GARBAGE MAN*,TAX COLLECTOR*,TEACHER*,RONALD REAGAN*,GRANDMA*,STEVE MARTIN*,GEORGE WASHINGTON*,SUPERMAN*,RICHARD NIXON*,OPERATOR*,RICHARD PRYOR*,EDDIE MURPHY*,BUS DRIVER*,SALESMAN*,POLITICIAN*,BILL COSBY*,ELECTRICIAN*
10010 DATA SCOTT BAIO*,COMPUTER PROGRAMER*,QUEEN ELIZABETH*,JIMMY CARTER*,THE POPE*,FOOTBALL PLAYER*,RICHARD NIXON*,BASEBALL PLAYER*,DENTIST*,THOMAS JEFFERSON*,CLINT EASTWOOD*,ANDREW JACKSON*,ANDREW JOHNSON*
10020 DATA JOHN THE BAPTIST*,MADONNA*,BASKETBALL PLAYER*,PAUL NEWMAN*,JOHN WAYNE*,JULIE ANDREWS*,ALFRED HITCHCOCK*,TOM HANKS*,CHEVY CHASE*,DREW BARRYMORE*,ROBERT REDFORD*,SEAN CONNERY*,GEORGE PEPPARD*
10030 DATA SYLVESTER STALLONE*,DOLLY PARTON*,DUDLEY MOORE*,BROOKE SHIELDS*,DEAN MARTIN*,JERRY LEWIS*
10039 ' PLACE
10040 DATA SAN FRANCISCO*,SAN DIEGO*,NEW YORK*,CANADA*,BACKYARD*,AIRPORT*,APARTMENT*,KANSAS*,NEBRASKA*,NEW MEXICO*,BATHROOM*,GAS STATION*,TRAIN STATION*,BUS TERMINAL*,BROOKLYN*,WORLD TRADE CENTER*,WEST VIRGINIA*
10050 DATA HOSPITAL*,PRISON*,BOARDING SCHOOL*,UNIVERSITY*,KITCHEN*,FLORIDA*,EUROPE*,DEPARTMENT STORE*,LIGHTHOUSE*,EMPIRE STATE BUILDING*,WAREHOUSE*,SHOE FACTORY*,FLOWER SHOP*,MANSION*,DELICATESSEN*,SUBWAY*,STATUE OF LIBERTY*
10060 DATA GOLDEN GATE BRIDGE*,PHILADELPHIA*,PENNSYLVANIA*,WASHINGTON MONUMENT*,NIAGRA FALLS*,THE WHITE HOUSE*,RHODE ISLAND*,YANKEE STADIUM*,LINCOLN MEMORIAL*,JERUSALEM*,THE PENTAGON*,THE CAPITOL*,THE JEFFERSON MEMORIAL*
10070 DATA BETHLEHAM*,MADISON SQUARE GARDEN*,MUSEUM*
10079 ' THING
10080 DATA SOCCER BALL*,NEW YORK TIMES*,CIGARETTE*,AUTOMOBILE*,MAYONNAISE*,AMERICAN CHEESE*,ICE CREAM*,TOILET BOWL*,CANADIAN FLAG*,INVITATION*,QUESTION MARK*,OAK TREE*,STRAWBERRY YOGURT*,TELEVISION*,TELEPHONE*
10090 DATA FOOTBALL*,ELEPHANT*,BASEBALL*,AMERICAN FLAG*,TENNIS BALL*,POCKETBOOK*,DECK OF CARDS*,CANADIAN COIN*,PICTURE FRAME*,CALENDER*,BOOKCASE*,SIDEWALK*
10100 DATA DICTIONARY*,COMIC STRIP*,MISTLETOE*,CHRISTMAS TREE*,SQUAD CAR*,GRIZZLY BEAR*,BLUEBERRY*,OVERHANG*,DINOSAUR*,TRIVIAL PURSUIT*,KITCHEN CABINET*,ENCYCLOPEDIAS*,WORLD ATLAS*,CARROUSAL*,BIG TOE*,GARBAGE PAIL*,CHRISTMAS ORNAMENT*
10110 DATA POLAR BEAR*,CRAYON BOX*,CERTIFICATE*,GARAGE SALE*,FISHING POLE*,CASSETTE RECORDER*
20000 DATA 400,550,300,200,900,200,400,500,600,250,200,1000,600,300,700,450,800,150,500,400,250
20010 DATA 350,250,500,5000,300,800,1500,700,500,350,400,550,300,200,900,200,400,500,600,250,200
WHEEL.TXT
Wheel of Fortune is a simulation of the popular television game show of
the same name.
Getting Started:
1. Load both DOS and Cartridge BASIC.
2. Press ENTER twice for the date and time.
3. Type BASIC and press ENTER.
4. Type RUN "WHEEL" and press ENTER.
Object: To solve the puzzle and obtain the maximum amount of money while doing
so.
There are 3 rounds in Wheel of Fortune (not including the Bonus Round). Each
player takes a turn in order from the smallest to largest number which they are
assigned to by all the players. In each turn a player may do one of the
following:
1. solve the puzzle
2. buy a vowel
3. spin the wheel and guess a letter
You can always tell whose turn it is by looking at the top of the scoreboard
which is just above the puzzle.
The Puzzle: is composed of a series of dashes which represent the unknown
letters. The players may guess what a letter in the puzzle may be
on their turn after they've spun the wheel. They can do this by
simply pressing the letter they want on the keyboard (only after
they spin the wheel!). The money value on the wheel is only
given to the player if the player guesses a letter correctly. The
category of each puzzle is given underneath the puzzle. If the
letter is correct the letter appears in the puzzle, the money is
added to the player's score, and the player gets another turn. If
the player is incorrect the player receives no money, loses his or
her turn, and the incorrect letter is displayed at the top of the
screen.
The Wheel: is spun each turn unless the player buys a vowel or solves the
puzzle. This is done by pressing the number 2. There are only
three places on the wheel that do not contain money values. These
three spaces could be any one of the following:
1. Free Spin
2. Loose A Turn
3. Bankrupt
Free spin gives the player an extra spin in case the player guesses
a wrong letter, gets Bankrupt, or gets Loose A Turn. A player may
see how many free spins each player has by pressing the number 3.
Loose a Turn ends the player's turn but does not effect the player's
money in any way.
Bankrupt ends the player's turn and also takes all the money the
player has won that round.
Buying A Vowel: this is done by pressing the vowel on the keyboard before
spinning the wheel. You must have $250 to buy a vowel.
Solving The Puzzle: you must press the number 1 before spinning the wheel to do
this. Then you can enter the answer. If it is correct,
the player gets all the money he won that round added to
his overall winnings. If it is incorrect, the round
continues and the player looses his or her turn.
The Bonus Round: the winner of the three rounds goes on to this and a chance of
winning $25,000. He must choose five consonants and a vowel.
These letters show up in the puzzle and the person must guess
the puzzle immediatley. If you get it right you win $25,000
and are asked if you want to play again. If not, better luck
next time!
********************************************************************************
Send your donations and comments to:
Tom Reilly
100 Ramblewood Ave.
Staten Island, NY 10308
Directory of PC-SIG Library Disk #0708
Volume in drive A has no label
Directory of A:\
HANGMAN0 EXE 42098 5-11-88 5:43p
HANGMAN REF 38 5-01-84 12:00p
HANGCMT REF 222 5-01-84 12:00p
HANGSP1 WRD 50176 5-01-84 12:00p
HANGSP2 WRD 40320 5-01-84 12:00p
HANGMUSE MSC 4864 5-01-84 12:00p
HANGMAN BAT 21 7-21-86 3:30p
PLUG 1099 2-23-89 2:20p
HANGMAN CNF 128 5-11-88 5:48p
README 1230 8-01-88 11:06p
GO BAT 38 1-11-89 1:55p
GO TXT 883 7-06-90 2:02a
AUTOEXEC BAT 4 10-22-87 3:00a
BG EXE 72443 10-22-87 3:00a
COMMENTS DOC 680 10-22-87 3:00a
CONTRACT DOC 3261 10-22-87 3:00a
DISKFILE DOC 1010 10-22-87 3:00a
ISBN DOC 56 10-22-87 3:00a
NEWS DOC 1640 10-22-87 3:00a
PROBLEM FRM 3725 10-22-87 3:00a
README 1ST 777 10-22-87 3:00a
REGISTER FRM 1876 10-22-87 3:00a
RUN BAT 43 10-22-87 3:00a
SC CAT 3220 10-22-87 3:00a
WHEEL BAS 12645 1-01-80 12:32a
WHEEL TXT 3807 1-01-80 12:04a
FILE0708 TXT 2517 7-09-90 6:17p
27 file(s) 248821 bytes
57344 bytes free