PICTURE GRA(r)
   SET COLOR mode "NATIVE"
   FOR y=-4080 TO 2040 STEP 30
      LET x=MOD(y,255)
      IF INT(INT(y/255)/2)=INT(y/255)/2 THEN
         SET AREA COLOR colorindex(ABS(x/255),ABS(x/255),ABS(x/255))
      ELSE
         SET AREA COLOR colorindex(ABS((255-x)/255),ABS((255-x)/255),ABS((255-x)/255))
      END IF
      PLOT AREA: r+y/30,-5;r+y/30+1,-5;r+y/30+1,5;r+y/30,5
   NEXT y
END PICTURE

PAUSE "ESC·° ‚ŸI—¹"
SET WINDOW 0,2040/30,-5,5
SET POINT STYLE 1
LET k=0
DO WHILE k<175
   SET DRAW mode hidden
   DRAW GRA(k)
   WAIT DELAY 1/10
   DRAW GRA(k)
   LET k=k+1
   SET DRAW mode explicit
   IF getkeystate(27)<0 THEN EXIT DO
LOOP
PRINT
END