10 COL 0,255,0
20 CLS 
22 TLOAD 1,"sysfontb.dat",16,11
23 STILE 1
30 FOR i=0 TO 100
40 x=RND (39)
50 y=RND (29)
60 BOX i,x,y,x+5,y+5,1
70 NEXT i
80 FOR i=100 TO 0 STEP -1
90 x=RND (39):y=RND (29)
100 BOX i,x,y,x+5,y+5,0
110 NEXT i
120 FOR i=0 TO 100
130 x=RND (39):y=RND (29)
140 FRAME i+5,i,i+10,x,y,x+5,y+5
150 NEXT i
155 CROFF 
160 FOR i=100 TO 0 STEP -1
170 x=RND (39):y=RND (29)
180 WIN c(1,i+5,i,i+10,x,y,x+8,y+8,4,0,"Hey!")
185 PRINT "Hey!"
190 NEXT i
200 WSET 0