home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / MASTERMD.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  1.1 KB  |  40 lines
  1. 100 PRINT:PRINT:PRINT :PRINT TAB(20)"** MASTERMIND **":PRINT
  2. 110 U$="###      ! ! ! ! !          ##                 ##"
  3. 120 R=RND(1)
  4. 130 FOR I=1 TO 5
  5. 140 R=R*10:X$(I)=RIGHT$(STR$(INT(R)),1):R=R-INT(R)
  6. 150 NEXT I
  7. 160 PRINT:A$="00000":INPUT " INPUT A 5 DIGIT GUESS ";A$
  8. 170 PRINT " NO.       GUESS     RIGHT POSITIONS     RIGHT NUMBERS"
  9. 180 FOR W=12 TO 1 STEP -1
  10. 190 IF W=12 THEN PRINT:GOTO 210
  11. 200 PRINT,"GUESS";:A$="00000":INPUT A$
  12. 210 A$=RIGHT$("00000"+A$,5)
  13. 220 FOR I=1 TO 5
  14. 230 Z$(I)=MID$(A$,I,1)
  15. 240 Y$(I)=Z$(I):L$(I)=X$(I)
  16. 250 NEXT I
  17. 260 C=0
  18. 270 FOR I=1 TO 5
  19. 280 IF Z$(I)<>L$(I) THEN 300
  20. 290 C=C+1:Z$(I)="10":L$(I)="11"
  21. 300 NEXT I
  22. 310 D=0
  23. 320 FOR I=1 TO 5
  24. 330 FOR J=1 TO 5
  25. 340 IF Z$(I)<>L$(J) THEN 360
  26. 350 D=D+1:Z$(I)="10":L$(J)="11"
  27. 360 NEXT J
  28. 370 NEXT I
  29. 380 PRINT USING U$;13-W;Y$(1);Y$(2);Y$(3);Y$(4);Y$(5);C;C+D;
  30. 390 IF C=5 THEN 440
  31. 400 NEXT W
  32. 410 PRINT:PRINT:PRINT "END OF GAME. YOU LOSE, DUMMY. THE CODE WAS  ";
  33. 420 PRINT USING "! ";X$(1);X$(2);X$(3);X$(4);X$(5)
  34. 430 GOTO450
  35. 440 PRINT:PRINT:PRINT "*****     YOU WIN IN ";13-W;"GUESSES":PRINT
  36. 450 PRINT:PRINT:GOTO 100
  37. 460 END
  38. $(5)
  39. 430 GOTO450
  40. 440