Picture Pa6060]80 6** HI-RES PICTURE PAIRS @1983 MICHAEL BEWS 236099\,110n 5:1 &LS=100d:TT=0:TS=0 JA(12 ,72H):Q(20):R(20):T(20):U(20) ( 600X 1** DISPLAY PICTURES ** 2S6:6::7;1;1;" P A I R S @1983 MICHAEL BEWS " X=D$(K*2-1)-64@:Y=D$(K*2)-64@ dEQ(X),R(X);"";Q(X)+1,R(X);"";Q(X)+2,R(X);""; nW6;6;Q(Y),R(Y);"";Q(Y)+1,R(Y);"";Q(Y)+2,R(Y);""; xK }7:1 A=-40(:B=-A Y=16040(A X=23200B OX,Y:27,0:0,-27:-27,0:0,27 X:Y (W=579+(*3):Z=22595CX <X=19 :Y=120:Z+T(Y)+U(X),W:Y:X %6;0;1,4;"1";1,9 ;"2";1,14;"3";1,19;"4";1,24;"5";3,0;"6";8,0;"7";13 ,0;"8";18,0;"9";2;7;6,27;"TRIES";1;9 ,27;"SCORE"; X=50-1:18,30;7;2;1;X;:Y=1250:Y:X:18,30;6;" " _20,0;1;"ENTER ROW/COLUMN NUMBERS TO TRY FOR A MATCHING PAIR OF PICTURES " W=18:Z=22595CX <X=120:Y=19 :Z+T(X)+U(Y),W:Y:X <1;"ENTER FIRST PICTURE(eg 82)";X$:X$=""270 XX$2X$(1)<"1"X$(1)>"9"X$(2)<"1"X$(2)>"9"270 " 540 ,!P<1P>20270 .S$(P)="1"270 1 Q=P:SA=P 3,X=19 :Z+T(P)+U(X),40(:X 6D1;2;"ENTER NEXT PICTURE(eg 82)";X$:X$=""3106 @XX$2X$(1)<"1"X$(1)>"9"X$(2)<"1"X$(2)>"9"3106 J,540:P<1X>203106 LS$(P)="1"3106 O,X=19 :Z+T(P)+U(X),40(:X TSB=P:X=110 :(D$(X*2-1)=(SA+64@)D$(X*2)=(SB+64@))+(D$(X*2-1)=(SB+64@)D$(X*2)=(SA+64@))V=579:TT=TT+1:TS=TS+1:7,29;TT;10 ,29;TS;:S$(SA)="1":S$(SB)="1":400 ^X h+TT=TT+1:7,29;TT;:V=W  520 *X=120:S$(X)"1"270 X ** END OF GAME ROUTINE LS>TTLS=TT 20,0;" ";20,0;1;"YOU TOOK ";TT;" TRIES THIS TIME. LOWEST SCORE THIS SESSION: ";LS; *1;"PRES FOR NEXT GAME";X$ TT=0:TS=0  640 **WRONG GUESS ROUTINE LX=19 :Z+T(Q)+U(X),V:X:X=19 :Z+T(P)+U(X),V:X:  .X=19 :Z+T(P)+U(X),579:X: ** ROW/COLUMN INPUT A=0:B=0:A=(X$(1)(X$(1)>535ƯX$(1)<58:))+(X$(2)(X$(2)>535ƯX$(2)<58:)) &}B=(X$(1)(X$(1)>480ƯX$(1)<546))+(X$(2)(X$(2)>480ƯX$(2)<546)) 0P=5*(A-6)+B : V W** INITIALISATION XA:7;1;1;" P A I R S @1983 MICHAEL BEWS " ]72,9 ;7;4;1;"INITIALISING";0;1;1;4,0;" THIS PROGRAM DISPLAYS TEN PAIRS OF HIGH RESOLUTION PICTURESCONCEALS THEM FROM VIEW. ";9 ,0;" THE OBJECT OF THE GAME IS TO MATCH ALL TEN PAIRS IN THE LOW- EST POSSIBLE NUMBER OF TRIES. " b6X=111 :Y=172H:A(X,Y):Y:X l:X=120:Q(X):X:X=120:R(X):X v9X=120:T(X):X:X=19 :U(X):X MD$="00000000000000000000":S$=D$:E$=D$:F$="00000000000":G$=F$(10 ) I15,4;7;2;1;"NEXT GAME IN 25 SECONDS " X=110 N=1+(*11 ) F$(N)="1"710  F$(N)="1" NA=1+(*20) E$(NA)="1"740 !E$(NA)="1":G$(X)=(64@+N) NB=1+(*20) E$(NB)="1"760  PE$(NB)="1":D$(X*2-1)=(64@+NA):D$(X*2)=(64@+NB) X  502   *** ship _0,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,255,8,0,0,0,0,0,0,15,255,8,0,0,0,0,0,0,63?,255,252,0,0,0,0,0,8,63?,255,248,0,0,0,0,0,8,31,255,240,0,0,0 ** helicopter e0,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,127,240,112p,0,0,0,0,0,0,111o,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 ** bus e0,0,0,0,0,0,60<,1,224,0,0,0,63?,255,252,24,0,192,0,0,0,36$,16,84T,0,0,0,0,0,0,36$,16,84T,0,0,0,0,0,0,36$,16,84T,0,0,0,0,0,0,63?,255,214,0,0,0,0,0,0,63?,255,214,0,0,0,0,0,0,127,255,214,0,0,0 ** railway engine t0,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  ** tree 3,15,0,127,255,252,0,60<,0,3,255,192,63?,255,188,0,60<,0,15,255,240,557,247,248,0,60<,0,15,255,248,31,63?,248,0,60<,0,126~,255,126~,31,60<,240,0,60<,0,127,255,254,24,60<,480,0,60<,0,255,255,252,0,60<,0,0,60<,0,127,223,252,0,60<,0,0,60<,0 ** car ^0,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,32 ,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 #** television set $p0,0,0,480,0,104h,480,0,104h,0,0,0,480,0,120x,63?,255,248,0,0,0,480,0,104h,63?,255,248,0,0,0,480,0,120x,0,0,0,0,0,0,480,0,104h,0,0,0,0,0,0,480,0,120x,0,0,0,63?,255,248,480,0,104h,0,0,0,63?,255,248,480,0,120x,0,0,0 7** flying goose 8h0,0,0,0,120x,0,1,0,0,0,0,0,0,124|,0,3,0,0,0,0,0,0,124|,240,0,0,0,0,0,0,96`,125},216,0,0,0,1,24,0,127,255,252,0,0,0,0,248,0,127,255,255,0,0,0,0,248,0,15,255,128,0,0,0,0,248,0,7,255,0,0,0,0 A ** tank Bu0,0,0,64@,3,0,513,513,480,0,0,0,64@,255,0,63?,255,240,0,0,0,65A,255,128,12 ,204,192,0,0,0,67C,0,255,0,0,0,64@,0,0,79O,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 K ** clock e0,0,0,9 ,64@,144,8,66B,16,0,0,0,8,32 ,16,8,24,16,0,0,0,8,16,16,8,0,16,15,255,240,10 ,15,80P,15,255,240,8,0,16,8,0,16,0,0,0,8,24,16,8,0,16,0,0,0,8,66B,16,9 ,0,144,0,0,0,8,0,16,8,0,16,0,0,0  ** apple t0,0,0,1,255,128,3,255,192,0,0,0,3,255,192,1,255,128,0,192,0,3,159,192,0,255,0,0,32 ,0,7,255,224,0,60<,0,0,16,0,7,255,224,0,0,0,0,16,0,7,255,224,0,0,0,0,60<,0,7,255,224,0,0,0,0,255,0,3,255,192,0,0,0 ** SCREEN PRINT X,Y 2,2,2,2,2,7,7,7,7,7,12 ,12 ,12 ,12 ,12 ,17,17,17,17,17 3,8,13 ,18,23,3,8,13 ,18,23,3,8,13 ,18,23,3,8,13 ,18,23 ATTRIBUTE PRINT 0,5,10 ,15,20,160,165,170,175,180,320@,325E,330J,335O,340T,480,485,490,495,500 O0,1,2,32 ,33!,34",64@,65A,66B ;