home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.B.po / GAMES:BASIC.3 / HANGMAN.V1.1.bas < prev    next >
BASIC Source File  |  2010-05-14  |  6KB  |  125 lines
  1. 5  HOME : PRINT  SPC( 16)"HANGMAN": PRINT : PRINT  SPC( 13)"RICH LONGBRAKE": PRINT : PRINT  SPC( 11)"REVISED BY (ROUGH)": PRINT  SPC( 14)"DOUG TRUEMAN": PRINT  SPC( 8)"ON ST. PATRICKS DAY 1987
  2. 10  GOSUB 10000: HOME 
  3. 20 V1 =  PEEK(78) +256 * PEEK(79):V1 =  RND( -V1)
  4. 30  DIM B$(20),Z$(10):X =  RND(3) *203 +1:N =  INT(X): FOR I = 1 TO N: READ A$: NEXT :B =  LEN(A$)
  5. 100  FOR I = 1 TO 20:B$(I) = "-": NEXT 
  6. 110  GOSUB 6000
  7. 120 V22$ = "YOUR WORD HAS " + STR$(B) +" LETTERS. "
  8. 140  VTAB (22): PRINT V22$;: FOR I = 1 TO B: PRINT B$(I);: NEXT : PRINT 
  9. 190 N1 = 1
  10. 200  GOSUB 10100: VTAB (23): PRINT "ENTER GUESS # ";N1;: INPUT " ";Q$
  11. 206 F = 0
  12. 210  FOR  I = 1 TO  B
  13. 220  IF   MID$ (A$,I,  1) = Q$  THEN  250  
  14. 230  GOTO  400
  15. 250 B$(I) = Q$
  16. 260 F = 1
  17. 400  NEXT  I
  18. 410  VTAB (22): PRINT V22$;: FOR I = 1 TO B: PRINT B$(I);: NEXT : PRINT 
  19. 472  FOR  I = 1 TO  B
  20. 473  IF  B$(I) = "-"   THEN  480
  21. 475  NEXT  I
  22. 476  GOTO  1010
  23. 480  IF  F = 1   THEN  492
  24. 482  COLOR=   13
  25. 483  ON  N1  GOSUB 2800,2900,3000,3200,3400,3600,3800,4000,4200,4400,4600,4800  
  26. 484  IF  F = 1   THEN  492
  27. 485 N1 = N1 +1
  28. 486  IF  N1 >10   THEN  2010
  29. 487 Z$(N1) = Q$
  30. 492  VTAB (21): PRINT "LETTERS USED:";
  31. 494  FOR J = 1 TO N1: PRINT Z$(J);: NEXT : PRINT 
  32. 500  GOTO  200
  33. 1010  VTAB (23): PRINT "HEY, YOU GOT IT !                      "
  34. 1015  GOTO  9999
  35. 2010  VTAB (23): PRINT "YOU LOSE.   THE WORD WAS: "A$
  36. 2100  GOTO  9999
  37. 2800  COLOR=  9: VLIN   8,36 AT 35 
  38. 2850  RETURN 
  39. 2900  COLOR=  9: HLIN   20,39 AT 10  
  40. 2950  RETURN 
  41. 3000  HLIN  22,24 AT 15: HLIN  22,24 AT 16: HLIN  22,24 AT 14  
  42. 3100  RETURN 
  43. 3200  VLIN   16,27 AT 23
  44. 3250  RETURN 
  45. 3400  PLOT  22,28: PLOT  22,29: PLOT  21,30: PLOT  21,31: PLOT  20,32: PLOT  20,33: PLOT  19,34: PLOT  19,35
  46. 3500  RETURN 
  47. 3600  PLOT  24,28: PLOT  24,29: PLOT  25,30: PLOT  25,31: PLOT  26,32: PLOT  26,33: PLOT  27,34: PLOT  27,35
  48. 3700  RETURN 
  49. 3800  PLOT  22,19: PLOT  21,20: PLOT  20,21: PLOT  19,22    
  50. 3900  RETURN 
  51. 4000  PLOT  24,19: PLOT  25,20: PLOT  26,21: PLOT  27,22
  52. 4100  RETURN 
  53. 4200  COLOR=  7
  54. 4220  PLOT   23,11: PLOT  23,12: PLOT  23,13: PLOT  23,17: PLOT  22,17: PLOT  21,16: PLOT  24,17: PLOT  25,16
  55. 4300  RETURN 
  56. 4400  COLOR=  0
  57. 4410  HLIN   17,29 AT 36 
  58. 4420  FOR  CC = 1 TO  15
  59. 4430  COLOR=   CC
  60. 4440  FOR  AG  = 1 TO  6
  61. 4450  ON  AG  GOSUB  3000,3200,3400,3600,3800,4000
  62. 4460  NEXT  AG
  63. 4470  NEXT  CC
  64. 4500  RETURN 
  65. 6000  GR  
  66. 6010  COLOR=   9
  67. 6020  HLIN   10,38 AT 36: VLIN   36,39 AT 10: VLIN  36,39 AT 38
  68. 6030  RETURN 
  69. 8000  DATA "ALIEN", "ALIBI","ALIVE","ALLOW","ALMS"
  70. 8010  DATA "GAME","LIFE","ARROWHEAD","BATTERY","RECORD"
  71. 8020  DATA "TIME","COMPUTER","APPLE","BOOK","DICTIONARY" 
  72. 8030  DATA "EACH","DISTANCE","ANIMAL","ERRONEOUSLY","SCIENTIST"  
  73. 8040  DATA "EXAMPLE","TENSION","MOUSTACHE","DIFFERENT","PHYSICS"
  74. 8050  DATA "YEAST","BREAD","BAKE","COOKIES","EAT"
  75. 8060  DATA  "LINEAR","ALGEBRA","CALCULUS","AMBIGUITY","LIMIT"
  76. 8070  DATA "LOVE","HATE","FEAR","JOG","SUN"
  77. 8080  DATA "SON","LAUGHTER","CRY","GRADE","EXAM"
  78. 8090  DATA "CHRISTMAS","BUY","GIFTS","TRAFFIC","PAY"
  79. 8100  DATA "VACATION","TURKEY","EJECT","PUNCTUATION","REFLECTION"
  80. 8110  DATA "EXPRESS","NEIGHBOR","CHILD","KITTEN","STOVE"
  81. 8120  DATA "ALTITUDE","ATTITUDE","COMMENT","REMARK","INSTRUMENTS"
  82. 8130  DATA  "BALANCE","LIST","CHECK","MONEY","BROKE"
  83. 8140  DATA  "AUTOMOBILE","CROCODILES","LABORATORY","UNIVERSITY","UNEMPLOYMENT"
  84. 8150  DATA  "ENCYCLOPEDIA","FLOWER","ROSE","DAISY","ENCHILADAS"
  85. 8160  DATA  "TORTILLA","MATADOR","PICADOR","BULL","BORDER"
  86. 8170  DATA  "STATE","COUNTRY","NATION","UNIVERSE","COUNTY"
  87. 8180  DATA "MISTAKE","ERROR","MESS","CORRECT","COMPUTE"
  88. 8190  DATA  "TRAVEL", "TRIP", "FLY","CRUISE","JOURNEY"  
  89. 8200  DATA "AMONG","AMORPHOUS","AMORAL","AMORTIZE","AMPHIBIAN"
  90. 8220  DATA "AMPERE","ANGLE","TOXIN","APEX","APPARATUS"
  91. 8230  DATA   "AFGANISTAN","AFTCASTLE","ANAGRAM","APPLESOFT","AZTEC","BALLISTA","BEANSPROUT","BODYGUARD","BOSUN","CANNIBALIZE","CHAIRPERSON","CLIQUE","CLONE","COLLOQUIAL","COLLATE","COLORADO"  
  92. 8240  DATA "APPOINT","ASSASSINATE","ASSAY","ESSAY","ASSET"
  93. 8250  DATA "ARMENIA","KWUIT","HAITI","COMPUTER","COMPENSATORY","CONJUNCTION","CONNECTICUT","COPYRIGHT","COURTESAN","CROSSBOW","DEFACTO","DEGENERATE","DIATRIBE"
  94. 8260  DATA "BASS","BAT","BATTALION","BATTEN","BATH"
  95. 8280  DATA "BEATITUDE","BEASTLY","BEAGLE","BEHOLD","BEWITCHMENT"
  96. 8300  DATA "BROADCAST","BUTTON","BUZZARD","CABIN","CABLE"
  97. 8310  DATA "CADDY","CARROT","CARTOON","CHECK","CHASTE"
  98. 8320  DATA "CLEAR","COFFEE","COFFIN","COHERENT","COLD"
  99. 8330  DATA "COMBINATION","COMMONPLACE","COMMISSIONER","COMMENTARY","COMPASS"
  100. 8340  DATA "CONTROL","CONVICT","DART","DAUGHTER","DEFINITION"
  101. 8350  DATA "COWBOYS","CHEERLEADERS","FOOTBALL","BEER","HOCKEY"
  102. 8360  DATA  "DETECT","DIZZY","DOMAIN","DOUGH"
  103. 8470  DATA "ECHO","ECSTASY","ELECTRIC","ELEPHANT","EMULSION"
  104. 8480  DATA "YEAST","LEAST","YEARLING",YELLOW","YARD"
  105. 8490  DATA "ZENITH","ZEBRA","ZINC","ZODIAC","ZOOM"
  106. 9999  PRINT "DO YOU WANT TO PLAY AGAIN? (Y/N) ";: GET V1$: PRINT V1$: GOTO 20000
  107. 10000  POKE  -16368,0: VTAB 23: HTAB 7: PRINT "PRESS ANY KEY TO CONTINUE.";: GET PT$: PRINT PT$: RETURN 
  108. 10100  VTAB 23: PRINT "                                      ": RETURN 
  109. 20000  TEXT : HOME : IF V1$ = "Y"  OR V1$ = "y"  THEN  CLEAR : GOTO 20
  110. 20010  IF V1$ = "N"  OR V1$ = "n"  THEN  PRINT  CHR$(4)"-STARTUP"
  111. 20020  GOTO 9999
  112. 30000  REM *** REVISED BY
  113. 30010  REM *** DOUG TRUEMAN
  114. 30020  REM *** 3/17/87
  115. 30030  REM *** INPROVED TITLE PAGE
  116. 30040  REM *** IMPROVED END
  117. 30050  REM *** TRUE RANDOM
  118. 30060  REM  *** IMPROVED DISPLAY  
  119. 30070  REM *** MORE WORDS
  120. 30099 :
  121. 30100  REM *** VERSION 1.1
  122. 30110  REM ** BY DT FOR BRAC
  123. 30120  REM ** 1/22/88
  124. 30130  REM ** CONVERTED TO PRODOS
  125. 30140  REM ** MINOR CHANGE TO END ROUTINE