10 FOR t=20000 TO 20349:READ a$:POKE t,VAL("&"+a$):NEXT:FOR t=10000 TO 10288:READ a$:POKE t,VAL("&"+a$):NEXT:INK 0,0:BORDER 0:PAPER 0:a$=CHR$(238)+SPACE$(18)+CHR$(238) 20 MODE 0:CLS:PEN 12:FOR t=1 TO 10:LOCATE 1,t*2:PRINT a$;:NEXT:PEN 9:FOR t=1 TO 10:LOCATE 1,t*2+1:PRINT a$;:NEXT:LOCATE 1,22:FOR t=1 TO 20:PEN 1:PRINT CHR$(238);:NEXT:PEN 7:LOCATE 1,24:PRINT "SCORE >>":PEN 6:LOCATE 1,25:PRINT "* CATCH * by D.Hall";:PEN 3 30 DATA 30,30,30,30,30,30,30,30,25,f,f,f,f,f,f,1e,25,f,f,f,f,f,f,1e,25,c,c,c,c,c,c,1e,25,d,f,f,f,f,1e,1e,25,d,f,f,f,f,1e,1e,25,d,f,f,f,f,1e,1e,25,d,f,f,f,f,1e,1e,25,1c,3c,3c,3c,3c,3c,1e,25,f,f,f,f,f,f,1e,25,f,f,f,f,f,f,1e,34,3c,3c,3c,3c,3c,3c,3c,0,0,0,0 40 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,33,0,0,0,0,0,0,11,22,0,0,0,0,0,44,88,44,88,0,0,0,44,cc 50 DATA cc,cc,cc,88,0,0,cc,30,cc,cc,cc,cc,0,0,98,30,64,cc,cc,cc,0,44,98,30,64,cc,cc,cc,88,44,98,30,64,cc,cc,cc,88,cc,cc,30,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc,cc 60 DATA cc,cc,44,cc,cc,cc,cc,cc,cc,88,44,cc,cc,cc,cc,cc,cc,88,0,cc,cc,cc,cc,cc,cc,0,0,cc,cc,cc,cc,cc,cc,0,0,44,cc,cc,cc,cc,88,0,0,0,44,cc,cc,88 70 DATA 21,c2,c5,22,a0,8c,11,20,4e,cd,1,28,af,32,4,8d,32,28,a0,cd,3d,27,cd,d3,27,cd,6a,27,3a,28,a0,fe,0,c0,cd,6a,27,3a,28,a0,fe,0,28,ea,c9,21,40,9c,6,7,36,30,23,10,fb,21,18,c,cd,75,bb,21,46,9c,6,7,7e,cd,5a,bb,2b,10,f9,c9,21,41,9c,7e,fe,39,20,5,36,30,23 80 DATA 18,f6,34,18,dd,3a,4,8d,fe,0,20,17,3c,32,4,8d,32,7,8d,ed,5f,fe,5,38,fa,fe,45,30,f6,26,c0,6f,22,5,8d,3a,7,8d,fe,92,28,3e,3c,32,7,8d,2a,5,8d,cd,26,bc,22,5,8d,11,f0,0,19,cd,29,bc,cd,29,bc,7e,fe,0,20,11,11,7,0,19,7e,fe,0,20,8,11,d0,4e,2a,5,8d 90 DATA 18,45,af,32,4,8d,3e,7,cd,5a,bb,cd,5a,27,11,80,4f,18,ea,3e,1,32,28,a0,c9,3e,4b,cd,1e,bb,20,8,3e,4a,cd,1e,bb,20,33,c9,2a,a0,8c,2b,7e,fe,0,c0,11,8,0,19,6,c,36,0,cd,26,bc,10,f9,2a,a0,8c,2b,22,a0,8c,11,20,4e,e,16,e5,6,8,1a,77,13,23,10,fa,e1,cd,26 100 DATA bc,d,20,f0,c9,2a,a0,8c,11,8,0,19,7e,fe,0,c0,2a,a0,8c,6,c,36,0,cd,26,bc,10,f9,2a,a0,8c,23,18,ca:CALL 10000:PEN 15:LOCATE 3,11:PRINT "Ha! You Missed !":FOR t=1 TO 15:SOUND 1,t,3,15:SOUND 2,t+5,3,15:NEXT:FOR t=1 TO 4200:NEXT:GOTO 20