Back to Main page.
Back to Main tapes page.
1000  REM: ***** Hangman
1005  GOSUB 8000
1010  DIM C$[71],D$[72],E$[72]
1020  DATA "EXPERT","INCLUDE","ADVICE","QUICK","LIBRARY","CONTRACT","INCORRECT"
1030  DATA "BROWN","SEVERAL","AUTHENTIC","DISCARD","WITHOUT","MILLION","PROPER"
1040  DATA "ERROR","COMPLETE","DISPUTE","SEQUENCE","MIDDLE","IRREGULAR","REVOKE","CHANCE"
1050  DATA "BEGINNING","AARDVARK","IMMEDIATE","WITHDRAWN","REARRANGE","GENERAL"
1060  DATA "ACTUAL","FOUNDATION","AVIATION","IMPROPER","POSSIBLE","AVAILABLE"
1070  DATA "RANDOM","SUBMARINE","NEWSPAPER","BUILDING","AIRPLANE","FACTOR","AVENUE","MERCURY"
1080  DATA "INVALUABLE","INADVERTANTLY","INTERCHANGE","RECTIFIED","SUBSEQUENT"
1090  DATA "ANDROMEDA","DIHEDRAL","TITANIUM","BICARBONATE","OSMOSIS","HEMMORRHAGES"
1100  DATA "WHETTED","FORTHWITH","POMEGRANATE","COVERT","DISTAFF","MINSTRELS","QUOIT"
1110  DATA "INDIVISIBILITY","POLYNOMIAL","QUEZAL","HARMONOGRAPH","CENTUAR","ADRIATIC"
1120  DATA "DEIFICATION","WAKIL","SCABROUS","STULTIFY","INFINITESIMAL"
1130  DATA "CONTRACTILE","PEDERASTY","DETERIORATE","INFLECTION"
1140  DATA "PROVINCIAL","HIERARCHY","VIRIDESCENT","VIOLABLE","PROMONTORY"
1150  DATA "CYCLOTRON","FETTERS","THRALDOM","WHELP","VENERABLE","OBELISKS"
1160  DATA "ASPHODEL","DIADEM","MAJORAM","TIMBREL","GREAVES","UNREQUITED","POLYBUTALINE","CONDESCENSION"
1170  A=100
1180  REM
1190  PRINT '13'10'10"You have $";A;'13'10"Your wager";
1200  INPUT B
1205  IF B<0 THEN 130
1210  IF B<0 OR B>A OR B#INT(B) THEN 1200
1220  PRINT "Odds ";
1230  INPUT C
1240  IF C<1 OR C>4 OR C#INT(C) THEN 1220
1250  GOTO C OF 1260,1290,1310,1340
1260  RESTORE 1020
1270  R=42
1280  GOTO 1360
1290  RESTORE 1080
1300  R=18
1310  RESTORE 1110
1320  R=26
1330  GOTO 1360
1340  RESTORE 1160
1350  R=8
1360  D=INT(50*RND(0))
1370  IF D>R OR D<1 THEN 1250
1380  FOR Z=1 TO D
1390  READ C$
1400  NEXT Z
1410  D$="---------------------------"
1420  FOR Y=1 TO 10
1430  PRINT D$[1,LEN(C$)];"  ";
1440  INPUT E$
1450  E$=UPS$(E$[1,1])
1460  GOSUB 100
1470  W=1
1480  FOR Z=1 TO LEN(C$)
1490  IF C$[Z,Z]#E$ THEN 1520
1500  D$[Z,Z]=E$
1510  W=0
1520  NEXT Z
1530  IF W THEN 1600
1540  FOR Z=1 TO LEN(C$)
1550  IF D$[Z,Z]="-" THEN 1430
1560  NEXT Z
1570  PRINT "You won"'7"!"'7"!"'7'7'7"!"
1580  A=A+B*C
1590  GOTO 1180
1600  NEXT Y
1610  PRINT "You lose.  The word was "'34C$'34"."
1620  A=A-B
1630  IF A <> 0 THEN 1180
1640  PRINT "You've lost all of your money!  Better luck next time, sucker!"
1650  GOTO 130
1660  END 
8000  REM *** This section was written by Lane Rollins.
8010  DIM Z1$[10]
8020  PRINT "Instructions: ";
8030  LINPUT Z1$
8040  IF Z1$[1,1]="N" THEN 8100
8050  PRINT ""
8060  PRINT "    YOU HAVE TEN WRONG GUESSES TO GUESS THE WORD THAT THE COMPUTER"
8070  PRINT "HAS PICKED.  YOU MAKE BETS ON YOUR GETTING THE WORD.  THE ODDS ARE"
8080  PRINT "FROM 1 TO 4, 1 BEING THE EASIEST AND 4 BEING THE HARDEST."
8090  PRINT 
8095  PRINT "ENTER A WAGER OF -1 TO END THE GAME."
8100  RETURN 
8110  END