100 REPeat i
110 j=RND(6 TO 16)
120 k=RND(40 TO 100)
130 BLOCK k,j,RND(0 TO 100-k),0,RND(0 TO 255)
140 SCROLL j
150 k=RND(0 TO 70)
160 IF k<8 THEN RECOL k+7,k+6,k+5,k+4,k+3,k+2,k+1,k
170 IF k>50 THEN PAPER RND(0 TO 255):WINDOW 100,100,RND(20 TO 400),RND(10 TO 150)
180 END REPeat i
200 WINDOW 392,164,60,30
210 BORDER 2,7
220 PAPER 0
230 CLS
240 FOR i=0 TO 511
250 STRIP i MOD 256
260 PRINT "  ";
270 END FOR i
