10 FOR J=0 TO 31
20 FOR I=31 TO 0 STEP -1
30 CLS
40 LINE I,0,J,15,1
50 FOR K=0 TO 20
60 NEXT
70 NEXT
80 NEXT
90 GOTO 10
