10  PRINT"Wait...":A=&HAA:FOR I=0 TO &H17FF:POKE&H8800+I,A:A=A XOR 255:NEXTI
20 RESTORE140:P=&HA000
30 READ A:IFA<>-1THENPOKEP,A:P=P+1:GOTO30
40 Z=P:RESTORE 150:T=1
50 READ A:IF A=-1 THEN 130
60 PRINT"Press any key for test #";HEX$(T):T=T+1:A$=INPUT$(1):SCREEN 2:PUT SPRITE 0,(0,&HD0),0,0:'disable sprites
70 FOR I=0 TO &H17FF:VPOKE&H2000+I,31:NEXTI:'colors - white
80 P=Z:FORI=0TO&H17FF:POKEP,&HED:POKEP+1,&HA3:POKEP+2,A:P=P+3:NEXTI
90 POKEP,&HC9:DEFUSR=&HA000:A=USR(0):A$=INPUT$(1):SCREEN 0:GOTO 50
100 FOR I=0 TO &H17FF:VPOKE&H2000+I,31:NEXTI:'colors - white
110 POKEP,&HED:POKEP+1,&HA3:POKEP+2,&HC2:POKEP+3,8:POKEP+4,&HA0
120 POKEP+5,&HC9:DEFUSR=&HA000:A=USR(0):A$=INPUT$(1)
130 SCREEN 0:PRINT"Finished":END
140 DATA &hf3,&haf,&hd3,&h99,&h3e,&h40,&hd3,&h99,&h21,0,&h88,1,&h98,0,-1
150 DATA 0,&h13,&h8e,-1