home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / mind.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  59 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 50 'MIND.BA, M100 VERSION BY RUSS HALL
  3. 60 PRINT:PRINT"    - MASTERMIND GAME -"
  4. 70 FOR F=1TOVAL(RIGHT$(TIME$,2)):P=RND(1):NEXT F
  5. 80 DIM A$(6),B$(3),C$(3),D$(3),S(3)
  6. 85 FOR J=0TO6
  7. 90 READ A$(J)
  8. 95 NEXT J
  9. 100 DATA R,B,G,O,Y,P,S
  10. 105 PRINT:PRINT" WHICH VERSION (1 OR 2)?"
  11. 110 R$=INKEY$
  12. 115 IF R$="1"THENR=1:GOTO130
  13. 120 IF R$="2"THENR=2:GOTO130
  14. 125 GOTO 110
  15. 130 PRINT:PRINT" More than one of same color is legal."
  16. 135 PRINT" Colors are Y, G, R, B, O, P,";:IF R=2 THEN PRINT" and S."
  17. 140 PRINT"   Be sure 'CAPS LOCK' is down; Space"
  18. 142 PRINT" between your choices.
  19. 145 FOR T=1TO800:NEXT T:PRINT
  20. 240 R=R+5
  21. 280 FOR J=0TO3
  22. 290 D$(J)=A$(INT(R*RND(J)))
  23. 330 NEXT J
  24. 350 FOR I=1TO10
  25. 355 N=0:M=0
  26. 360 PRINT"YOUR CHOICE FOR ROW  ";I;
  27. 370 INPUT E$
  28. 371 C$(0)=LEFT$(E$,1):C$(1)=MID$(E$,3,1):C$(2)=MID$(E$,5,1):C$(3)=RIGHT$(E$,1)
  29. 372 FOR J=0TO3
  30. 374 B$(J)=D$(J)
  31. 376 NEXT J
  32. 380 GOSUB 495
  33. 390 IF N<>4 THEN 420
  34. 400 PRINT"CONGRADULATIONS! YOU HAVE BROKEN THE    CODE IN"I"ROWS."
  35. 410 GOTO 710
  36. 420 IF I<10 THEN 470
  37. 430 PRINT"CORRECT WAS ";D$(0)" ";D$(1)" ";D$(2)" ";D$(3)
  38. 440 GOTO 710
  39. 470 NEXT I
  40. 495 FOR K1=0TO3
  41. 500 IF C$(K1)<>B$(K1)THEN 510
  42. 505 N=N+1
  43. 510 NEXT K1
  44. 515 FOR K1=0TO3
  45. 520 FOR K2=0TO3
  46. 522 IF K1=K2 THEN 550
  47. 525 IF C$(K1)=B$(K1)THEN 550
  48. 530 IF C$(K2)=B$(K2)THEN 550
  49. 535 IF C$(K1)<>B$(K2)THEN 550
  50. 540 M=M+1
  51. 545 B$(K2)="X":GOTO 555
  52. 550 NEXT K2
  53. 555 NEXT K1
  54. 590 PRINT"Row"I;N"Black,"M"White"
  55. 610 RETURN
  56. 710 PRINT"ANOTHER GAME  Y = YES, N = NO";
  57. 720 W$=INKEY$:IF W$="N"OR W$="n"THEN MENU
  58. 740 IF W$="Y"OR W$="y"THEN GOTO 105 ELSE GOTO 720
  59.