SET WINDOW 0,20,0,20
FOR i=0 TO 139
   SET AREA COLOR i
   PLOT AREA: MOD(i,20),18-3*INT(i/20);MOD(i,20)+1,18-3*INT(i/20);MOD(i,20)+1,19-3*INT(i/20);MOD(i,20),19-3*INT(i/20)
   PLOT TEXT, AT MOD(i,20)+0.2,19-3*INT(i/20): STR$(i)
NEXT i
END