154 Picture Pairs
200 LOCATE 32,5:PRINT CHR$(24);"TRIES:"; CHR$(24):PEN 1:LOCATE 32,15:PRINT"SCORE:
210 FOR X=9 TO 0 STEP -1: LOCATE 35,20:P RINT CHRS(24);X;CHRS(24);:SOUND 1,120,3: FOR Y= 1 TO 900:NEXT Y,X:LOCATE 35,20:PR INT" ";
220 FOR XX=-5 TO 5:SOUND 1,(XX+100),4:NE XT
230 PAPER #2, 3:FOR X=1 TO 20:WINDOW #2, Q(X),0(X)+2,R(X),R(X)+2:CLS #2:NEXT
240 LOCATE 1,23:PRINT CHRS(18);:INPUT "E NTER FIRST PICTURE (eg. A4) ";XS:IF X$=" " THEN 240
250 GOSUB 270:IF FL=1 THEN FL=0:GOTO 240 ELSE SA=P: GOTO 400
260 REM INPUT SUBROUTINE (UP TO 309) 270 IF LEN(X$)<>2 THEN FL=1:RETURN 280 XS=UPPERS(X$)
290 FOR X= 65 TO 6e: IF ASC(LEFTS(XS,1)) =X THEN 310
300 NEXT X:FL=1:RETURN
310 FOR X= 49 TO 53:IF ASC(RIGHTS(X$,I)) =X THEN 330
320 NEXT X:FL=1:RETURN
330 P=5*(ASC(X$)-65)+VAL(RIGHTS(X$0)) 340 IF MIDS(SS,P,1)="1" THEN FL=1:RETURN 350 FOR X=1 TO 10:FOR Y=0 TO 1:IF ASC(MI DS(DS,X*2-Y,1))-64=P THEN Z=145+9*(ASC(M IDS(G$,X,1))-64):GOTO 370
360 NEXT Y,X:FL=1:RETURN
370 WINDOW #2,Q(P),Q(P)+2,R(P),R(P)+2 380 PEN #2,1:PAPER #2,2:FOR L=0 TO 8:PRI NT #2,CHRS(Z+L);:NEXT L
390 RETURN
400 LOCATE 1,23:PRINT CHRS(20);:INPUT "E NTER SECOND PICTURE (eg. A4) ";XS:IF X$= "" THEN 400
410 GOSUB 270:IF FL=1 THEN FL=0:GOTO 400 420 SB=P: FOR X=1 TO 10: IF(MIDS(D$,X*2- 1,1)=CHRS(SA+64) AND MIDS(D$,X*2,1)=CHR$ (SB+64)) OR (MIDS(DS,X*2-1,1)=CHRS(SB+64 ) AND MIDS(DS,X*2,1)=CHRS(SA+64)) THEN T T=TT+1:TS=TS+1:LOCATE 38,5:PRINT MIDS(ST RS(TT),2);:GOTO 480