Picture Pairs   (Model A)


This is one for the kids, testing their powers of observation and memory. THere are ten pictures of various objects displayed on the screen for a few seconds. They are then hidden from view. When you choose one of the squares the picture is revealed and you must then identify the square behind which the corresponding image is hidden. If the two pictures chosen do not form a pair, they are once again hidden and no points are scored.

    1 REM *** BBC VERSION ***
    2 REM *** PICTURE PAIRS ***
   10 TB=10000:Q$="ZXCVBNM":P=0:R=0:T=0
   20 DIMA(7,72)
   30 GOTO360
   40 MODE4:VDU19,1,6;0;28,4,27,35,4:COLOUR12
9:COLOUR0:PRINT'"Time :"TAB(15,1)"Correct out
 of:"TAB(30,1);P
   50 PRINTTAB(3,18)"Z"TAB(7,18)"X"TAB(11,18)
"C"TAB(15,18)"V"TAB(19,18)"B"TAB(23,18)"N"TAB
(27,18)"M":COLOUR1:COLOUR128
   60 FORK=1TO7:FORL=0TO7:FORM=1TO9
   70       ?(&C00+M*8+L-8)=A(K,L*9+M)
   80       NEXTM,L
   90     Y=K*4-2
  100     PRINTTAB(Y,14)CHR$224;CHR$225;CHR$2
26;TAB(Y,15)CHR$227;CHR$228;CHR$229;TAB(Y,16)
CHR$230;CHR$231;CHR$232
  110     SOUND1,-15,K*20,4
  120     NEXTK
  130   PRINTTAB(21,4)"       "TAB(14,6)"   "
TAB(14,7)"   "TAB(14,8)"   "
  140   PRINTTAB(0,20)"Press the correct lett
er as soonas you recognise the new picture."
  150   N=RND(7)
  160   FORL=0TO7:FORM=1TO9:?(&C00+M*8+L-8)=A
(N,L*9+M):NEXTM,L
  170     FORC=1TO2000+RND(2000):NEXT:*FX15
  180     PRINTTAB(14,6)CHR$224;CHR$225;CHR$2
26;TAB(14,7)CHR$227;CHR$228;CHR$229;TAB(14,8)
CHR$230;CHR$231;CHR$232
  190     TA=0:SOUND1,-15,50,2
  200     A$=INKEY$(1):IFA$="" T=T+1:PRINTTAB
(6,1);T:GOTO220
  210     SOUND1,-15,ASC(A$),3:GOTO240
  220     TA=TA+1:IFTA=200 GOTO250
  230     GOTO200
  240     IFA$=MID$(Q$,N,1) R=R+1:PRINTTAB(13
,1);R:PRINTTAB(21,4)"Correct":GOTO260
  250     PRINTTAB(21,4)"Wrong"
  260     P=P+1:PRINTTAB(30,1);P
  270     IFP=10 GOTO290
  280     FORX=1TO2000:NEXT:GOTO130
  290     IFTB>T TB=T
  300     PRINTTAB(0,10)"You have ";R;" corre
ct out of 10 in"TAB(0,11)"Time ";T;". Best so
 far ";TB
  310     REPEAT:PRINTTAB(0,12)"Press <RETURN
> for next game.":FORI=0TO1000:NEXT:PRINTTAB(
0,12)STRING$(30," "):UNTILINKEY(10)=13
  320     R=0:T=0:P=0
  330     PRINTTAB(0,10)"                    
                                             
                               "
  340     PRINTTAB(6,1)"         "TAB(30,1)" 
 "
  350     GOTO130
  360     MODE7:PRINT'CHR$141;CHR$&81;CHR$157
;CHR$&86"      Hi-Res Picture Snap         "C
HR$156'CHR$141;CHR$&81;CHR$157;CHR$&86"      
Hi-Res Picture Snap         "CHR$156
  370     PRINT'''" This program allocates se
veral high     resolution pictures to the 'Z'
-'M'      keys."''" After a short delay,one p
icture is      displayed at the cenre of the 
screen.   You must quickly press the correct 
     key to score."
  380     FORX=1TO7:FORY=1TO72:READA(X,Y):NEX
TY,X
  390       GOTO40
  400       -----SHIP-----
  410       DATA0,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,25
5,8,0,0,0,0,0,0,15,255,8,0,0,0,0,0,0,63,255,2
52,0,0,0,0,0,8,63,255,248,0,0,0,0,0,8,31,255,
240,0,0,0
  420       -----HELICOPTER-----
  430       DATA0,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,12
7,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
  440       -----BUS-----
  450       DATA0,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,12
7,255,214,0,0,0
  460       ----RAILWAY ENGINE----
  470       DATA0,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
  480       -----CAR-----
  490       DATA0,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,3
2,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
  500       -----TANK-----
  510       DATA0,0,0,64,3,0,51,51,48,0,0,0,6
4,255,0,63,255,240,0,0,0,65,255,128,12,204,19
2,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
  520       -----CLOCK-----
  530       DATA0,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,2
40,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