3 CLS'Вначале очистим экран!
5 LOCATE 255,1,1
7 FOR I=1 TO 400:NEXT
10 LOCATE ,255,1
20 FOR I=1 TO 400:NEXT
30 LOCATE 1,,1
40 FOR I=1 TO 400:NEXT
50 LOCATE ,1,1
60 FOR I=1 TO 400:NEXT:GOTO 3