2000 MEMORY &4FFF:MODE 1:SPEED INK 30,30:INK 0,0:BORDER 0:LOAD "f&f1",&5000:CALL &5000:cpt=0
2010 t$=INKEY$:IF cpt>4000 OR t$<>"" THEN CALL &5003 ELSE cpt=cpt+1:GOTO 2010
