20 lines
796 B
QBasic
20 lines
796 B
QBasic
10 PRINT CHR$(147):PRINT " NIM CHALLENGE":PRINT
|
|
20 PRINT "THERE ARE 21 STICKS. TAKE 1, 2, OR 3."
|
|
30 PRINT "WHOEVER TAKES THE LAST STICK WINS.":PRINT
|
|
40 PRINT "PRESS ANY KEY"
|
|
50 GET A$:IF A$="" THEN 50
|
|
60 R=RND(-TI):N=21:PRINT CHR$(147)
|
|
70 PRINT "STICKS LEFT:";N:PRINT
|
|
80 FOR I=1 TO N:PRINT "|";:NEXT:PRINT:PRINT
|
|
90 INPUT "TAKE 1-3 (0 QUITS)";P
|
|
100 IF P=0 THEN 230
|
|
110 IF P<1 OR P>3 OR P>N THEN PRINT "CHOOSE 1, 2, OR 3.":GOTO 90
|
|
120 N=N-P:IF N=0 THEN PRINT "YOU TOOK THE LAST STICK!":GOTO 210
|
|
130 C=INT(RND(1)*3)+1:IF C>N THEN C=N
|
|
150 PRINT "THE COMPUTER TAKES";C:FOR D=1 TO 700:NEXT
|
|
160 N=N-C:IF N=0 THEN PRINT "THE COMPUTER WINS.":GOTO 210
|
|
170 PRINT CHR$(147):GOTO 70
|
|
210 PRINT:PRINT "R=PLAY AGAIN Q=QUIT"
|
|
230 GET A$:IF A$="R" THEN RUN
|
|
240 IF A$<>"Q" THEN 230
|
|
250 PRINT CHR$(147):END
|