5 CLS
20 LOCATE 0,0
30 PRINT SW
40 GOTO 5
