10 SCREEN 2,1
20 SPRITE$(0)="0123456789ABCDEF"
30 PUT SPRITE 0,(50,50),,0
40 FOR I=1 TO 1000:NEXT
50 OUT &H99,VDP(1) XOR 1:OUT &H99,1 OR &H80
60 GOTO 60