10 A=1
20 OUT(13,A)
30 B=1
40 B=B+1:IF B<5000 THEN 40
50 IF A=1 LET A=0:GOTO 20
60 A=1:GOTO 20