10 REM******* 20 REM* PICK A 30 REM* MATCH 40 REM* BY 50 REM* WM. V. R. 60 REM* SMITH 70 REM*ARTSCI INC 80 REM******* 90 GOTO 710 100 CLS 110 C=1 120 FOR M=0 TO 22 130 GOSUB 350 140 NEXT 150 LOCATE10,0 160 PRINT"PICK A" 170 LOCATE 12,1 180 PRINT"MATCH" 190 LOCATE 0,3 200 PRINT"WON";W;" LOST";L; 210 X$=INKEY$:IF X$="" THEN 210 220 LOCATE 0,3 230 PRINT"HOW ANY (1,2,3) "; 240 X$=INKEY$:P=VAL(X$) 250 ON P GOTO 270,270,270 260 GOTO 220 270 NM=M-P 280 IF NM=0 THEN 420 290 IF NM<0 THEN 220 300 C=0 310 M=M-1:GOSUB 350 320 IF M=NM THEN 470 330 GOTO 310 340 END 350 Y=INT(M/10) 360 X=(M-(Y*10))*4 370 Y=Y*7 380 LINE(X,Y)-(X,Y+4),PRESET,C 390 LINE(X+1,Y)-(X+1,Y+4),PRESET,C 400 SOUND 1,1 410 RETURN 420 LOCATE 0,3 430 PRINT"SORRY YOU LOSE "; 440 FOR T=1 TO1700:NEXT 450 L=L+1 460 GOTO100 470 IF NM>4 THEN 500 480 E=NM-1 490 GOTO530 500 R=(M-4)*INT(M/4) 510 IF R<>1 THEN 560 520 E=INT(RND(1)*10) 530 IF E>3 THEN 520 540 IF E=0 GOTO 520 550 GOTO 580 560 E= (R+3)-(4*(INT((R+3)/4))) 570 IF E=0 THEN E=1 580 NM=M-E 590 IF NM >0 THEN 650 600 IF M=1 THEN 620 610 IF M>0 THEN E=1 :GOTO580 620 LOCATE 0,3 630 PRINT"OH WELL I LOSE "; 640 W=W+1:GOTO 440 650 LOCATE0,3:PRINT"I TAKE ";E;" "; 660 M=M-1:GOSUB 350 670 IF M=NM THEN C=1:GOTO690 680 GOTO 660 690 FOR T=1 TO 700:NEXT 700 GOTO 220 710 CLS 720 PRINT"PICK A MATCH" 730 PRINT"We start with 23" 740 PRINT"matches. 1,2 or 3" 750 PRINT"are removed each"; 760 IF INKEY$="" THEN 760 770 CLS 780 PRINT"turn. The player" 790 PRINT"forced to remove" 800 PRINT"the last match" 810 PRINT"LOSES !!!!"; 820 IF INKEY$="" THEN 820 830 GOTO 100