home *** CD-ROM | disk | FTP | other *** search
/ back2roots/filegate / filegate.zip / filegate / gamesnet / g_amiga / AE1CRTVC.ZIP / AE1CRTVC.LHA / WORD.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  2KB  |  71 lines
  1. 0 RANDOMIZE
  2. 1 PRINT CHR$(26):WIDTH 80
  3. 2 PRINT TAB(33);"WORD":PRINT
  4. 3 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  5. 4 PRINT: PRINT: PRINT
  6. 5 DIM S(7),A(7),L(7),D(7),P(7)
  7. 10 PRINT "I AM THINKING OF A WORD -- YOU GUESS IT.  I WILL GIVE YOU"
  8. 15 PRINT "CLUES TO HELP YOU GET IT.":PRINT
  9. 16 PRINT "TO QUIT, ENTER 'QUIT' FOR YOUR GUESS.":PRINT
  10. 17 PRINT "GOOD LUCK!":PRINT:PRINT
  11. 20 REM
  12. 30 PRINT: PRINT: PRINT "YOU ARE STARTING A NEW GAME..."
  13. 35 RESTORE
  14. 40 READ N
  15. 50 C=INT(RND(1)*N+1)
  16. 60 FOR I=1 TO C
  17. 70 READ S$
  18. 80 NEXT I
  19. 90 G=0
  20. 95 S(0)=LEN(S$)
  21. 100 FOR I=1 TO LEN(S$): S(I)=ASC(MID$(S$,I,1)): NEXT I
  22. 110 FOR I=1 TO 5
  23. 120 A(I)=45
  24. 130 NEXT I
  25. 140 FOR J=1 TO 5
  26. 144 P(J)=0
  27. 146 NEXT J
  28. 150 PRINT "GUESS A FIVE LETTER WORD";
  29. 160 INPUT L$
  30. 165 IF L$="QUIT" THEN RUN "MENU"
  31. 170 G=G+1
  32. 172 IF S$=G$ THEN 500
  33. 173 FOR I=1 TO 7: P(I)=0: NEXT I
  34. 175 L(0)=LEN(L$)
  35. 180 FOR I=1 TO LEN(L$): L(I)=ASC(MID$(L$,I,1)): NEXT I
  36. 190 IF L(1)=63 THEN 300
  37. 200 IF L(0)<>5 THEN 400
  38. 205 M=0: Q=1
  39. 210 FOR I=1 TO 5
  40. 220 FOR J=1 TO 5
  41. 230 IF S(I)<>L(J) THEN 260
  42. 231 P(Q)=L(J)
  43. 232 Q=Q+1
  44. 233 IF I<>J THEN 250
  45. 240 A(J)=L(J)
  46. 250 M=M+1
  47. 260 NEXT J
  48. 265 NEXT I
  49. 270 A(0)=5
  50. 272 P(0)=M
  51. 275 A$="": FOR I=1 TO A(0): A$=A$+CHR$(A(I)): NEXT I
  52. 277 P$="": FOR I=1 TO P(0): P$=P$+CHR$(P(I)): NEXT I
  53. 280 PRINT "THERE WERE";M;"MATCHES AND THE COMMON LETTERS WERE...";P$
  54. 285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW................";A$
  55. 286 IF A$=S$ THEN 500
  56. 287 IF M>1 THEN 289
  57. 288 PRINT: PRINT "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS."
  58. 289 PRINT
  59. 290 GOTO 150
  60. 300 S$="": FOR I=1 TO 7: S$=S$+CHR$(S(I)): NEXT I
  61. 310 PRINT "THE SECRET WORD IS ";S$: PRINT
  62. 320 GOTO 30
  63. 400 PRINT "YOU MUST GUESS A 5 LETTER WORD.  START AGAIN."
  64. 410 PRINT: G=G-1: GOTO 150
  65. 500 PRINT "YOU HAVE GUESSED THE WORD.  IT TOOK";G;"GUESSES!": PRINT
  66. 510 INPUT "WANT TO PLAY AGAIN";Q$
  67. 520 IF LEFT$(Q$,1)="Y" THEN 30
  68. 530 DATA 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST"
  69. 540 DATA "CANDY","CHAMP","WOULD","CLUMP","DOPEY"
  70. 999 RUN "MENU"
  71.