28) MATCHES (499 B)
To use: LOAD 13, RUN
"\letter" means: press SHIFT and letter

10 REM
20 REM MATCHES
30 REM
40 RANDOMISE
50 LET M=18+RND(12)
60 PRINT "WHO TAKES LAST ONE LOSES."
70 PRINT
80 FOR L=1 TO 4
90 FOR K=1 TO M
100 IF L=1 THEN PRINT "\E";
110 IF L>1 THEN PRINT "\Q";
120 NEXT K
130 PRINT
140 NEXT L
150 PRINT
160 PRINT M;" MATCHES, YOUR TURN"
170 IF M=1 THEN GOTO 380
180 PRINT "HOW MUCH? (1-3, 0=QUIT)"
190 INPUT T
200 IF T=M THEN GOTO 380
210 IF T<1 THEN STOP
220 IF T>3 OR T>M THEN GOTO 190
230 LET M=M-T
240 IF M=1 THEN GOTO 360
250 LET C=RND(3)
260 IF RND(6)=1 THEN GOTO 290
270 LET R=M-4*(M/4)
280 IF NOT R=1 THEN LET C=R+3-4*((R+3)/4)
290 IF C>M THEN LET C=M
300 LET M=M-C
310 IF M=0 THEN GOTO 360
320 CLS
330 PRINT "YOU TOOK ";T
340 PRINT "I TOOK ";C
350 GOTO 70
360 PRINT "YOU WON"
370 GOTO 390
380 PRINT "I WON"
390 PRINT "PLAY AGAIN? (Y)"
400 INPUT A$
410 IF NOT CODE(A$)=62 THEN STOP
420 CLS
430 GOTO 50