1  INTEGER WIN,X,Y,X1,Y1,I,J,K
5  RANDOMIZE 
10  ERASE 
20  PRINT "Draws random windows"
110  GOSUB 1000
115  ERASE 
120  GOTO 110
1000  WSELECT 1
1010   X=BAND(RND,$F)
1020   Y=BAND(RND,$3F)
1030   X1=BAND(RND,$F)
1040   Y1=BAND(RND,$3F)
1042   IF  X1 - X < 3 THEN   X1=X + 3
1044   IF  Y1 - Y < 3 THEN   Y1=Y + 3
1050  WINDOW X,Y,X1,Y1
1060  WFRAME "_","|"
1070  WINDOW X + 1,Y + 1,X1 - 1,Y1 - 1
1080  FOR J=X TO X1: FOR K=Y TO Y1
1090  PRINT K;
1100  NEXT K
1110  PRINT 
1120  NEXT J
1130  RETURN 
END
 - 1,Y1 - 1
1080  FOR J=X TO X1: FOR K=Y TO Y1
1090  PRINT K;
1100  NEXT K
1110  PRINT 
1120  NEXT J
130  RETURN 
END
 - 1,Y1 - 1
1080  FOR J=X TO X1: FOR K=Y TO Y1
1090  PRINT K;
1100  NEXT K
1110  PRINT 
1120  NEXT J
1