Pairs

Source Code

    5 REM "PAIRS"
   10 RESTORE 1000
   15 POKE 23609,110
   20 BORDER 4: PAPER 5: INK 1
   25 LET LS=100: LET TT=0: LET TS=0
   30 DIM A(12,72): DIM Q(20): DIM R(20): DIM T(20): DIM U(9)
   40 GO TO 600
   50 PAPER 6: INK 6: CLS : PRINT AT 0,8; PAPER 7; INK 1; INVERSE 1;"     PAIRS    "
   60 FOR K=1 TO 10: PAPER K/2: INK K/2: FOR L=0 TO 7: FOR M=1 TO 9
   70 POKE USR CHR$ (143+M)+L,A(CODE G$(K)-64,L*9+M)
   80 NEXT M: NEXT L
   90 LET X=CODE D$(K*2-1)-64: LET Y=CODE D$(K*2)-64
  100 PRINT AT Q(X),R(X);"\a\b\c";AT Q(X)+1,R(X);"\d\e\f";AT Q(X)+2,R(X);"\g\h\i";
  110 PRINT PAPER 6; INK 6;AT Q(Y),R(Y);"\a\b\c";AT Q(Y)+1,R(Y);"\d\e\f";AT Q(Y)+2,R(Y);"\g\h\i";
  120 NEXT K
  125 PAPER 7: INK 1
  130 LET A=-40: LET B=-A
  140 FOR Y=160 TO 40 STEP A
  150 FOR X=23 TO 200 STEP B
  160 PLOT X,Y: DRAW 27,0: DRAW 0,-27: DRAW -27,0: DRAW 0,27
  170 NEXT X: NEXT Y
  200 LET W=57+INT (RND*3): LET Z=22595
  210 FOR X=1 TO 9: FOR Y=1 TO 20: POKE Z+T(Y)+U(X),W: NEXT Y: NEXT X
  220 PRINT PAPER 6; INK 0;AT 1,4;"1";AT 1,9;"2";AT 1,14;"3";AT 1,19;"4";AT 1,24;"5";AT 3,0;"6";AT 8,0;"7";AT 13,0;"8";AT 18,0;"9"; PAPER 2; INK 7;AT 6,27;"TRIES"; PAPER 1;AT 9,27;"SCORE"
  230 FOR X=5 TO 0 STEP -1: PRINT AT 18,30; INK 7; PAPER 2; FLASH 1;X;: FOR Y=1 TO 250: NEXT Y: NEXT X: PRINT AT 18,30; PAPER 6;" "
  240 PRINT AT 20,0; INVERSE 1;"ENTER ROW/COLUMN NUMBERS TO TRY FOR A MATCHING PAIR OF PICTURES"
  250 LET W=18: LET Z=22595
  260 FOR X=1 TO 20: FOR Y=1 TO 9: POKE Z+T(X)+U(Y),W: NEXT Y: NEXT X
  270 INPUT INVERSE 1;"ENTER FIRST PICTURE(eg82)";X$: IF X$="" THEN GO TO 270
  280 IF LEN X$<>2 OR X$(1)<"1" OR X$(1)>"9" OR X$(2)<"1" OR X$(2)>"9" THEN GO TO 270
  290 GO SUB 540
  300 IF P<1 OR P>20 THEN GO TO 270
  302 IF S$(P)="1" THEN GO TO 270
  305 LET Q=P: LET SA=P
  307 FOR X=1 TO 9: POKE Z+T(P)+U(X),40: NEXT X
  310 INPUT FLASH 1; INK 2;"ENTER NEXT PICTURE(eg82)";x$;: IF X$="" THEN GO TO 310
  320 IF LEN X$<>2 OR X$(1)<"1" OR X$(1)>"9" OR X$(2)<"1" OR X$(2)>"9" THEN GO TO 310
  330 GO SUB 540: IF P<1 OR P>20 THEN GO TO 310
  332 IF S$(P)="1" THEN GO TO 310
  335 FOR X=1 TO 9: POKE Z+T(P)+U(X),40: NEXT X
  340 LET SB=P: FOR X=1 TO 10: IF (D$(X*2-1)=CHR$ (SA+64) AND D$(X*2)=CHR$ (SB+64))+(D$(X*2-1)=CHR$ (SB+64) AND D$(X*2)=CHR$ (SA+64)) THEN LET V=57: LET TT=TT+1: LET TS=TS+1: PRINT AT 7,29;TT;AT 10,29;TS: LET S$(SA)="1": LET S$(SB)="1": GO TO 400
  350 NEXT X
  360 LET TT=TT+1: PRINT AT 7,29;TT;: LET V=W
  400 GO SUB 520
  405 FOR X=1 TO 20: IF S$(X)<>"1" THEN GO TO 270
  410 NEXT X
  420 REM **END OF GAME ROUTINE**
  430 IF LS>TT THEN LET LS=TT
  439 REM ** changed 440 ***
  440 PRINT AT 20,0;"                                                                ";AT 20,0; INVERSE 1;"YOU TOOK  ";TT;"  TRIES THIS TIME.  LOWEST SCORE THIS SESSION= ";LS;
  450 INPUT FLASH 1;"PRESS <ENTER> FOR NEXT GAME";X$
  460 LET TT=0: LET TS=0
  470 GO TO 640
  519 REM **WRONG GUESS ROUTINE**
  520 FOR X=1 TO 9: POKE Z+T(Q)+U(X),V: NEXT X: FOR X=1 TO 9: POKE Z+T(P)+U(X),V: NEXT X: RETURN 
  529 STOP 
  530 FOR X=1 TO 9: POKE Z+T(P)+U(X),57: NEXT X: RETURN 
  539 REM **ROW/COLUMN INPUT**
  540 LET A=0: LET B=0: LET A=(VAL X$(1) AND (CODE X$(1)>53 AND CODE X$(1)<58))+(VAL X$(2) AND (CODE X$(2)>53 AND CODE X$(2)<58))
  550 LET B=(VAL X$(1) AND (CODE X$(1)>48 AND CODE X$(1)<54))+(VAL X$(2) AND (CODE X$(2)>48 AND CODE X$(2)<54))
  560 LET P=5*(A-6)+B
  570 RETURN 
  598 STOP 
  599 REM **INITIALISATION**
  600 CLS : PRINT AT 0,8; PAPER 7; INK 1; INVERSE 1;"   P A I R S  "
  605 PRINT AT 2,9; PAPER 7; INK 4; FLASH 1;"INITIALISING"; FLASH 0; INVERSE 1; INK 1;AT 4,0;" THIS PROGRAM DISPLAYS TEN PAIRS OF HIGH RESOLUTION PICTURES AND THEN CONCEALS THEM FROM VIEW.  ";AT 9,0;" THE OBJECT OF THE GAME IS TO    MATCH ALL TEN PAIRS IN THE LOW- EST POSSIBLE NUMBER OF TRIES.  "
  610 FOR X=1 TO 11: FOR Y=1 TO 72: READ A(X,Y): NEXT Y: NEXT X
  620 FOR X=1 TO 20: READ Q(X): NEXT X: FOR X=1 TO 20: READ R(X): NEXT X
  630 FOR X=1 TO 20: READ T(X): NEXT X: FOR X=1 TO 9: READ U(X): NEXT X
  640 LET D$="00000000000000000000": LET S$=D$: LET E$=D$: LET F$="00000000000": LET G$=F$( TO 10)
  695 PRINT AT 15,4; PAPER 7; INK 2; FLASH 1;"NEXT GAME IN 25 SECONDS"
  700 FOR X=1 TO 10
  710 LET N=1+INT (RND*11)
  720 IF F$(N)="1" THEN GO TO 710
  730 LET F$(N)="1"
  740 LET NA=1+INT (RND*20)
  745 IF E$(NA)="1" THEN GO TO 740
  750 LET E$(NA)="1": LET G$(X)=CHR$ (64+N)
  760 LET NB=1+INT (RND*20)
  770 IF E$(NB)="1" THEN GO TO 760
  780 LET E$(NB)="1": LET D$(X*2-1)=CHR$ (64+NA): LET D$(X*2)=CHR$ (64+NB)
  790 NEXT X
  800 GO TO 50
  998 STOP 
  999 REM **SHIP**
 1000 DATA 0,0,0,0,0,8,15,255,224,0,0,0,3,128,8,0,0,0,0,0,0,3,128,8,0,0,0,0,0,0,15,255,8,0,0,0,0,0,0,15,255,8,0,0,0,0,0,0,63,255,252,0,0,0,0,0,8,63,255,248,0,0,0,0,0,8,31,255,240,0,0,0
 1009 REM *HELICOPTER**
 1010 DATA 0,0,0,0,7,128,0,255,252,0,0,0,0,12,192,0,0,0,0,0,0,96,24,96,0,0,0,0,0,0,127,240,112,0,0,0,0,0,0,111,255,224,0,0,0,0,127,240,3,255,192,0,0,0,0,2,0,0,127,128,0,0,0,0,2,0,0,6,4,0,0,0
 1019 REM *BUS**
 1020 DATA 0,0,0,0,0,0,60,1,224,0,0,0,63,255,252,24,0,192,0,0,0,36,16,84,0,0,0,0,0,0,36,16,84,0,0,0,0,0,0,36,16,84,0,0,0,0,0,0,63,255,214,0,0,0,0,0,0,63,255,214,0,0,0,0,0,0,127,255,214,0,0,0
 1029 REM **TRAIN ENGINE**
 1030 DATA 0,0,0,12,3,128,7,131,192,0,0,0,12,195,128,3,1,128,0,0,0,31,255,128,0,0,0,0,0,0,31,255,240,0,0,0,0,0,0,31,255,240,0,0,0,0,3,240,31,255,240,0,0,0,0,2,128,15,255,240,0,0,0,12,2,128,31,255,240,0,0,0
 1039 REM **TREE**
 1040 DATA 3,15,0,127,255,252,0,60,0,3,255,192,63,255,188,0,60,0,15,255,240,55,247,248,0,60,0,15,255,248,31,63,248,0,60,0,126,255,126,31,60,240,0,60,0,127,255,254,24,60,48,0,60,0,255,255,252,0,60,0,0,60,0,127,223,252,0,60,0,0,60,0
 1049 REM *CAR*
 1050 DATA 0,0,0,0,127,0,12,0,24,0,0,0,0,132,128,0,0,0,0,0,0,1,4,64,0,0,0,0,0,0,2,4,32,0,0,0,0,0,0,127,255,255,0,0,0,0,0,0,63,255,255,0,0,0,0,0,0,127,255,254,0,0,0,0,0,0,30,0,60,0,0,0
 1059 REM **TELEVISION SET**
 1060 DATA 0,0,0,48,0,104,48,0,104,0,0,0,48,0,120,63,255,248,0,0,0,48,0,104,63,255,248,0,0,0,48,0,120,0,0,0,0,0,0,48,0,104,0,0,0,0,0,0,48,0,120,0,0,0,63,255,248,48,0,104,0,0,0,63,255,248,48,0,120,0,0,0
 1079 REM **FLYING GOOSE**
 1080 DATA 0,0,0,0,120,0,1,0,0,0,0,0,0,124,0,3,0,0,0,0,0,0,124,240,0,0,0,0,0,0,96,125,216,0,0,0,1,224,0,127,255,252,0,0,0,0,248,0,127,255,255,0,0,0,0,248,0,15,255,128,0,0,0,0,248,0,7,255,0,0,0,0
 1089 REM **TANK**
 1090 DATA 0,0,0,64,3,0,51,51,48,0,0,0,64,255,0,63,255,240,0,0,0,65,255,128,12,204,192,0,0,0,67,0,255,0,0,0,64,0,0,79,255,192,0,0,0,64,0,0,255,255,240,0,0,0,64,0,0,255,255,248,0,0,0,64,0,0,127,255,252,0,0,0
 1099 REM **CLOCK**
 2000 DATA 0,0,0,9,64,144,8,66,16,0,0,0,8,32,16,8,24,16,0,0,0,8,16,16,8,0,16,15,255,240,10,15,80,15,255,240,8,0,16,8,0,16,0,0,0,8,24,16,8,0,16,0,0,0,8,66,16,9,0,144,0,0,0,8,0,16,8,0,16,0,0,0
 2009 REM **APPLE**
 2010 DATA 0,0,0,1,255,128,3,255,192,0,0,0,3,255,192,1,255,128,0,192,0,3,159,192,0,255,0,0,32,0,7,255,224,0,60,0,0,16,0,7,255,224,0,0,0,0,16,0,7,255,224,0,0,0,0,60,0,7,255,224,0,0,0,0,255,0,3,255,192,0,0,0
 2019 REM **SCREEN PRINT AT X,Y**
 2020 DATA 2,2,2,2,2,7,7,7,7,7,12,12,12,12,12,17,17,17,17,17
 2030 DATA 3,8,13,18,23,3,8,13,18,23,3,8,13,18,23,3,8,13,18,23
 2039 REM **ATTRIBUTE PRINT AT**
 2040 DATA 0,5,10,15,20,160,165,170,175,180,320,325,330,335,340,480,485,490,495,500
 2050 DATA 0,1,2,32,33,34,64,65,66
 8999 STOP 
 9000 CLEAR : SAVE "PAIRS" LINE 1
 9010 PRINT AT 10,6;"REWIND TO VERIFY";AT 12,8,"PRESS PLAY"
 9020 VERIFY "PAIRS"
 9021 CLS 
 9022 PRINT AT 10,8;" VERIFY O.K."
 9030 FOR X=1 TO 5: BEEP .2,6: BEEP .5,4: NEXT X