Concentration

Source Code

    5 REM concentration
    6 CLS 
   10 DIM A(6,6)
   15 BORDER 4
   20 LET P1=0
   30 LET P2=0
   40 LET X$="ABCDEFGHI"
   42 PRINT : PRINT 
   45 PRINT "   Please standby . . .",,," cards being shuffled"
   48 PRINT AT 11,2;"\::C O N C E N T R A T I O N\  "
   50 FOR i=1 TO 9
   60 FOR j=1 TO 4
   70 LET X=INT (RND*6+1)
   80 LET Y=INT (RND*6+1)
   90 IF A(X,Y)<>0 THEN GO TO 70
  100 LET A(X,Y)=I
  110 NEXT J
  120 NEXT I
  125 CLS 
  130 PRINT AT 1,10;"CONCENTRATION"
  140 PRINT AT 3,12;"1 2 3 4 5 6"
  150 FOR I=1 TO 6
  160 PRINT AT 2*i+3,10;i;
  170 PRINT " \:: \:: \:: \:: \:: \::"
  180 NEXT I
  185 PRINT AT 7,2;"Score";AT 7,26;"Score"
  190 PRINT AT 9,0;"Player 1";AT 9,24;"Player 2"
  195 PRINT AT 21,1;"Enter row no. then column no."
  200 LET z=1
  230 PRINT AT 17,10;"Player ";Z;" goes"
  280 GO SUB 300
  290 GO TO 230
  300 PRINT AT 19,12;"1st card"
  310 INPUT x
  315 PRINT AT 19,0;"          ";AT 20,0;"           "
  320 INPUT y
  410 LET f=a(X,Y)
  415 IF A(x,y)=0 THEN PRINT AT 19,0; FLASH 1;"ERROR MADE";AT 20,0;"ENTER AGAIN": GO TO 300
  420 PRINT AT 2*X+3,2*Y+10;X$(f)
  430 PRINT AT 19,12;"2nd"
  440 INPUT r
  445 PRINT AT 19,0;"          ";AT 20,0;"           "
  450 INPUT t
  460 LET s=a(R,T)
  465 IF a(r,t)=0 THEN PRINT AT 19,0; FLASH 1;"ERROR MADE";AT 20,0;"ENTER AGAIN": GO TO 430
  470 PRINT AT 2*R+3,2*T+10;X$(s)
  475 PAUSE 100
  480 IF f=s THEN GO TO 550
  482 IF Z=1 THEN GO TO 486
  483 LET z=1
  484 GO TO 490
  486 LET z=2
  490 LET Y$="\::"
  500 PRINT AT 15,3;"No "
  510 PRINT AT 2*X+3,2*Y+10;Y$
  520 PRINT AT 2*R+3,2*T+10;Y$
  530 RETURN 
  550 PRINT AT 15,3; FLASH 1;"OK"
  553 BEEP .15,0: BEEP .1,4: BEEP .1,7: BEEP .2,12: BEEP .1,9: BEEP .3,12
  555 LET Y$=" "
  558 IF f=s THEN LET A(x,y)=0
  559 IF f=s THEN LET A(r,t)=0
  560 IF Z=1 THEN GO TO 600
  570 LET p2=p2+1
  580 PRINT AT 11,27;p2
  590 GO TO 620
  600 LET p1=p1+1
  610 PRINT AT 11,3;p1
  620 IF p1+p2<>18 THEN GO TO 510
  630 IF p1+p2=18 THEN PRINT AT 19,22; FLASH 1;"GAME OVER"