Snap
This is an educational game for the very young, designed to test their powers of observation. The computer generates a series of picture cards at the bottom of the screen — a bus, a train, a ship and so one — and then randomly produces selected pictures at the top of the screen. It's up to the player to match up the top picture with one of the bottom ones.
10 REM SNAP
20 REM @ MICHAEL SEWS
30 MODE 1:BORDER 18:INK 0,0:INK 1,24:INK 2,20:INK 3,6:WINDOW #1,1,40,1,25:PAPER #1,0:CLS #1
40 WINDOW #0,5,36,1,25
50 PAPER #0,0:PEN #0,1
60 CLS #0
70 TB=10000:0$="ZXCVBNM":P=0:R=0:T=0 BO DIM A(7)
90 GOSUB 520
100 GOTO 460
110 REM**** HI RES SCREEN DISPLAY
120 CLS:PEN 2:PRINT CHR$(24);"HI-RES PIC TURE SNAP C.11983 M.BEWS";CHR$(24);:PEN 1 130 PEN 3:PRINT CHR$(24);"TIME:";CHR$(24 );:PEN 1:LOCATE 13,2:PRINT" CORRECT OUT OF:";:LOCATE 30,2:PRINT CHR$(24);MID$(ST R$(P),2);CHR$(24);
140 PEN 2:LOCATE 4,19:PRINT CHR$(24);"z" ;:LOCATE 8,19:PRINT"x";:LOCATE 12,19:PRI NT"c";:LOCATE 16,I9:PRINT"v";:LOCATE 20, 19:PRINT"b";:LOCATE 24,19:PRINT"n";:LOCA TE 28,19:PRINT"m";CHR$(24);:PEN 1
150 V=189:Z=1:FOR K=1 TO 7
160 X=K*4-1
170 LOCATE X,15:PRINT CHRS(V+1);CHRS(V+2 );CHR$(V+3);:LOCATE X,16:PRINT CHRS(V+4) ;CHRS(V+5);CHR$(V+6);:LOCATE X,17:PRINT CHRS(V+7);CHR$(V+8);CHR$(V+9);
leo V=V+9:Z=-Z:PEN (Z+2)