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