69 lines
1.7 KiB
Plaintext
69 lines
1.7 KiB
Plaintext
20 TAB(16):PRINT "23 MATCHES"
|
|
30 TAB(5):PRINT "CREATIVE COMPUTING, NEW JERSEY"
|
|
35 TAB(1):PRINT "MODIFIED BY PHILIP LORD FOR THE APPLE 1"
|
|
40 PRINT:PRINT:PRINT
|
|
80 PRINT "THIS IS A GAME CALLED '23 MATCHES'."
|
|
90 PRINT
|
|
100 PRINT "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE,"
|
|
110 PRINT "TWO, OR THREE MATCHES. THE OBJECT OF "
|
|
120 PRINT "THE GAME IS NOT TO TAKE THE LAST MATCH."
|
|
130 PRINT
|
|
140 PRINT "LET'S FLIP A COIN TO SEE WHO GOES"
|
|
150 PRINT "FIRST. IF IT IS HEADS THEN I WIN"
|
|
155 PRINT "THE TOSS..."
|
|
155 PRINT
|
|
160 REM
|
|
165 N = 23
|
|
170 Q =RND(2)
|
|
180 IF Q = 1 THEN 210
|
|
190 PRINT "TAILS! YOU GO FIRST. "
|
|
195 PRINT
|
|
200 GOTO 300
|
|
210 PRINT "HEADS! I WIN! HA! HA!"
|
|
220 PRINT "PREPARE TO LOSE, MEATBALL-NOSE!!"
|
|
230 PRINT
|
|
250 PRINT "I TAKE 2 MATCHES"
|
|
260 N = N -2
|
|
270 PRINT "THE NUMBER OF MATCHES IS NOW "; N
|
|
280 PRINT
|
|
290 PRINT "YOUR TURN"
|
|
295 PRINT "YOU MAY TAKE 1, 2 OR 3 MATCHES."
|
|
300 PRINT "HOW MANY DO YOU WISH TO REMOVE"
|
|
310 INPUT K
|
|
320 IF K > 3 THEN 430
|
|
330 IF K <= 0 THEN 430
|
|
340 N = N - K
|
|
350 PRINT "THERE ARE NOW ";N;" MATCHES REMAINING."
|
|
351 IF N = 4 THEN 381
|
|
352 IF N = 3 THEN 383
|
|
353 IF N = 2 THEN 385
|
|
360 IF N <= 1 THEN 530
|
|
370 Z = 4 - K
|
|
372 GOTO 390
|
|
380 PRINT
|
|
381 Z = 3
|
|
382 GOTO 390
|
|
383 Z = 2
|
|
384 GOTO 390
|
|
385 Z = 1
|
|
390 PRINT "MY TURN! I REMOVE "; Z ;" MATCHES"
|
|
400 N = N - Z
|
|
410 IF N <= 1 THEN 470
|
|
420 GOTO 270
|
|
430 PRINT "VERY FUNNY! DUMMY!"
|
|
440 PRINT "DO YOU WANT TO PLAY OR GOOF AROUND?"
|
|
450 PRINT "NOW, HOW MANY MATCHES DO YOU WANT"
|
|
460 GOTO 310
|
|
470 PRINT
|
|
480 PRINT "SORRY! YOU TOOK THE LAST MATCH!"
|
|
490 PRINT "HA! HA! I BEAT YOU!!!"
|
|
500 PRINT
|
|
510 PRINT "GOOD BYE LOSER!"
|
|
520 GOTO 560
|
|
530 PRINT: PRINT "YOU WON, FLOPPY EARS!"
|
|
540 PRINT "THINK YOU'RE PRETTY SMART!"
|
|
550 PRINT: PRINT "LETS PLAY AGAIN (Y/N).": INPUT Y$
|
|
555 IF Y$="Y" THEN GOTO 130
|
|
560 END
|
|
RUN
|