Picture Pairs 155
430 NEXT X
440 TT=TT+1:LOCATE 38,5:PRINT MID$(STR$( TT),2);
450 WINDOW #2,Q(SA),Q(SA)+2,R(SA),R(SA)+ 2:WINDOW #3,12(SB),Q(SB)+2,R(SB),R(SB)+2 460 PAPER #2,3:CLS #2:PAPER #3,3:CLS #3 470 GOTO 240
480 LOCATE 38,15:PRINT MID$(STR$(TS),2); :MID$(5$,SA,1)="1":MID$(S$,SB,1)="1"
490 IF S$<>STRING$(20,"1") THEN 240 500 REM GAME OVER ROUTINE
510 IF LS >TT THEN LS=TT
520 LOCATE 1,23:PRINT CHR$(20);:PRINT"YO U TOOK";TT;"TRIES THIS TIME. LOWEST";"SC ORE THIS SESSION:";LS;"PRESS ANY KEY FOR NEXT GAME";
530 IF INKEY$<>"" THEN 530
540 IF INKEY$="" THEN 540 ELSE TT=0:TS=0 :GOTO 710
550 STOP
560 CLS:PEN 1:A$="PICTURE	P A I
R S BY M. BEWS "
570 FOR F=1 TO LEN(A$):SOUND 1,(F*2),3:L OCATE F,1:PRINT CHR$(24); MID$(A$,F,1);C NR$(24);:NEXT
580 A$="L L 0 !":LOCATE 18,25:PEN 3:PRIN T A$;:PEN 1:FOR F=I TO 8:FOR G=24 TO 4 S TEP -1:SOUND 2,(G*3+F*3),3:LOCATE F+17,6 :PRINT MID$(A$,F,1):LOCATE F+17,G+1:PRIN T" ";:NEXT G,F
590 FOR f=1 TO 13:SOUND 1,(f*10),3:LOCAT E f,4:PRINT" H E";:NEXT
600 SX$= "This program displays ten pair s of high ":L$="resolution pictures and then conceals	":M$="them from view."
610 FOR F=1 TO LEN(SX$):SOUND 1,(F*2+50) ,3:LOCATE F,7:PEN 3:PRINT MID$(SX$,F,1); :NEXT:PEN I
620 FOR F=1 TO 40:SOUND 1,(F*2+50),3:LO CATE F,8:PEN 3:PRINT MID$(L$,F,1);:NEXT: PEN 1
630 FOR F=1 TO 40:SOUND 1,(F*2+50),3:LO CATE F,9:PEN 3:PRINT MID$(M$,F,1);:NEXT: PEN 1