10 FOR y=1 TO 30
20 FOR x=0 TO 121
25 cls
30 FOR I=0 TO 3
40 FOR j=0 TO 3
50 pset x+i,y+j,1
60 NEXT
70 NEXT
80 NEXT
85 NEXT
90 GOTO 10
