Squares Program

CRT @(-1):
w = INT((SYSTEM(2)+2)/24)
h = INT((SYSTEM(3)+1)/12)
spots = '[]**++XX##\\//--||  '
LOOP UNTIL SYSTEM(14) DO
  x = 14 + 24 * (RND(w)); y = 5 + 12 * (RND(h))
  zone1 = RND(5); zone2 = RND(6)
  IF zone1 = zone2 THEN zone1 = 0; zone2 = 5
  IF zone1 < zone2 THEN dir = 1 ELSE dir = -1
  spot = spots[2*RND(LEN(spots)/2)+1,2]
  FOR zone = zone1 TO zone2 STEP dir
    t = y-zone; b = y+zone; l = x-zone*2; r = x+zone*2
    IF zone1 = 0 AND zone2 = 5 THEN
      CRT @(x-zone*2,y-zone):spot: @(x+zone*2,y-zone):spot:
      CRT @(x-zone*2,y+zone):spot: @(x+zone*2,y+zone):spot:
    END ELSE
      CRT @(l,t):STR(spot,zone*2): @(l,b):STR(spot,zone*2):
      FOR i = t TO b STEP  1; CRT @(l,i):spot:; NEXT i
      FOR i = b TO t STEP -1; CRT @(r,i):spot:; NEXT i
    END
  NEXT zone
REPEAT
CRT @(0,SYSTEM(3)):