5 on break goto 3000
10 cls
15 txtwindow @1,1,3,txtmaxx,txtmaxy
20 timer(0)=1000:rem timer 0 = 1000 ms
30 timer(1)=10:rem timer 1 = 10 ms
40 on timer(0) gosub 1000
50 on timer(1) gosub 2000
55 timer(0) on
57 timer(1) on
60 goto 60
1000 sec=sec+1
1010 locate 1,1:print sec"seconds passed."
1020 return
2000 print @1,".";
2010 return
3000 cls
