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