SET WINDOW -100,100,-100,100
DRAW GRID (10,10)
pause "これは図形を平行移動させるものです。"
pause "矢印キー で操作できます。"
pause "縦横斜めに移動できます。"
pause "移動中にちらつきます。"
pause "移動しながら格子線を消していきます。"
pause "ESCキー で終了します。"
WAIT DELAY 0.5
LET ESC=27
LET hidari=37
LET ue=38
LET migi=39
LET sita=40
LET X=0
LET Y=0
LET Z=.01
DRAW TILE(0,0,3)
DO UNTIL getkeystate(ESC)<0
   IF getkeystate(migi)<0 THEN
      DRAW TILE(X,Y,0)
      DRAW TILE(X,Y,3) WITH SHIFT(Z,0)
      LET X=X+Z
      IF X>80 THEN
         LET X=80
      END IF
   END IF
   IF getkeystate(hidari)<0 THEN
      DRAW TILE(X,Y,0)
      DRAW TILE(X,Y,3) WITH SHIFT(-Z,0)
      LET X=X-Z
      IF X<-100 THEN
         LET X=-100
      END IF
   END IF
   IF getkeystate(ue)<0 THEN
      DRAW TILE(X,Y,0)
      DRAW TILE(X,Y,3) WITH SHIFT(0,Z)
      LET Y=Y+Z
      IF Y>80 THEN
         LET Y=80
      END IF
   END IF
   IF getkeystate(sita)<0 THEN
      DRAW TILE(X,Y,0)
      DRAW TILE(X,Y,3) WITH SHIFT(0,-Z)
      LET Y=Y-Z
      IF Y<-100 THEN
         LET Y=-100
      END IF
   END IF
LOOP
END  

EXTERNAL PICTURE TILE(A,B,C)   !基本の四角形を描く
SET AREA COLOR C
PLOT AREA: A,B;A,B+20;A+20,B+20;A+20,B
END PICTURE