SET WINDOW 0,100,0,100
PAUSE "大きな文字が左へ移動します。"
WAIT DELAY 0.5
DRAW TATE(100,25,1)
DRAW YOKO(105,50,1)
DRAW YOKO(105,75,1)
DRAW TATE(140,25,1)
DRAW YOKO(145,25,1)
DRAW YOKO(145,50,1)
DRAW YOKO(145,75,1)
DRAW TATE(180,25,1)
DRAW TATE(210,25,1)
DRAW YOKO(185,50,1)
DRAW TATE(235,25,1) 
DRAW TATE(260,25,1)
DRAW YOKO(265,25,1)
DRAW YOKO(300,75,1)
DRAW YOKO(313,75,1)
DRAW TATE(317,25,1)

FOR i=1 TO 350 STEP 0.2
   SET DRAW mode hidden       ! ちらつき防止
   CLEAR
   DRAW TATE(100,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(105,50,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(105,75,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW TATE(140,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(145,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(145,50,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(145,75,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW TATE(180,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW TATE(210,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(185,50,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW TATE(235,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW TATE(260,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(265,25,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(300,75,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW YOKO(313,75,1) WITH SCALE(1)*SHIFT(1-i,0)
   DRAW TATE(317,25,1) WITH SCALE(1)*SHIFT(1-i,0)

   WAIT DELAY 0.01
   SET DRAW mode explicit   ! ちらつき防止
NEXT i
END

EXTERNAL PICTURE TATE(A,B,C)   !縦線を描く
SET AREA COLOR C
PLOT AREA: A,B;A,B+55;A+5,B+55;A+5,B
END PICTURE

EXTERNAL PICTURE YOKO(A,B,C)   !横線を描く
SET AREA COLOR C
PLOT AREA: A,B;A,B+5;A+25,B+5;A+25,B
END PICTURE