10MODE 2
   50FOR X=0 TO 79
   60   FOR Y=0 TO 63
   70      PROC_box(X,Y,(X * Y) MOD 8)
   80   NEXT
   90NEXT
  100END
  110DEFPROC_box(X,Y,colour)
  120REM Scale box in lambda from 80 by 50
  130REM to real pixels 320 by 256
  140REM to screen co-ords of 1280 by 1024
  150 
  160Px = X * 4: Py = Y * 5
  170Sx = Px * 4: Sy = Py * 4
  180 
  190REM Draw box in 'Colour' at Sx, Sy.
  200GCOL 0,colour
  210 
  220MOVE Sx,Sy: MOVE Sx+16, Sy: PLOT 85, Sx, Sy+20: PLOT 85, Sx+16, Sy+20
  230 
  240ENDPROC