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