156 Picture Pairs 640 FOR S=1 TO 50:NEXT:FOR F=1 TO 7:SOUN D 1,(F*5+100):NEXT 650 LOCATE 1,12:PEN 1:PRINT"The object o f the game is to match all ten pairs in the lowest possible number of tries.":F EN 1 660 FOR S=1 TO 100:NEXT:FOR F=1 TO 10:SO UND 1,(F*5),3:NEXT 670 W$=" PRESS ANY KEY TO START 6eo FOR F=1 TO 40:SOUND 1,(F*2+100),3:LO CATE F,25:PEN 3:PRINT CHR$(24); MIDS-(W$, F,1);CHR$(24);:NEXT:PEN 1 690 IF INKEY$<>"" THEN 690 700 IF INKEY$="" THEN 700 710 D$="00000000000000000000".S$=DS:E$=1) $:F$="00000000000":G$=LEFTS(F$00) 720 FOR X = 1 TO 10 730 N=1+INT(RND*11) 740 IF MID$(F$,N,1)="1" THEN 730 750 MIDS(F$,N,1)="1" 760 NA=1+INT(RND*20) 770 IF MID$(E$,NA,1)="1" THEN 760 780 MID$(E$,NA,1)="1":MID$(6$,X,1)=CHR$( 64+N) 790 NB=1+INT(RND*20) BOO IF MIDS(E$,NB,1)="1" THEN 790 elo MID$(E$,NB,1)="1":MID$(D$,X*2-1,1)=C HR$(64+NA):MID$(D$,X*2,1)=CHR$(64+NB) 820 NEXT X 830 GOTO 90 840 STOP 850 SYMBOL AFTER 153 860 SYMBOL 154,3,3,15,15,126,127,255,127 870 SYMBOL 155,15,255,255,255,255,255,25 Geo SYMBOL 156,0,192,240,248,126,254,252 ,252 890 SYMBOL 157,127,63,55,31,31,24,0,0 900 SYMBOL 158,255,255,247,63,60,60,60,6 0 910 SYMBOL 159,252,188,248,248,240,48,0, 0 920 SYMBOL 160,0,0,0,0,0,0,0,0