報告(その2)

 投稿者：N.E.  投稿日：2010年 4月 7日(水)21時25分21秒
  DO
   GET POINT: a,b
   IF a>9 AND a<247 THEN
      LET c=1
      IF b>29 AND b<61 THEN
         LET c=2
         beep
         pause "通常は形式を1にして下さい。"
      ELSEIF b>59 AND b<91 THEN
         LET c=3
         beep
         pause "通常は形式を1にして下さい。"
      ELSEIF b>89 AND b<121 THEN
         LET c=4
         beep
         pause "通常は形式を1にして下さい。"
         !ELSEIF c>0 AND d>0 AND
      ELSE
         ASK PIXEL VALUE (a,b)e
         IF e=2 AND a<80 THEN
            LET d=d-1
         ELSEIF e=2 AND a>80 THEN
            LET d=d+1
         END IF
         IF d=0 THEN
            LET d=1
            beep
            pause  "これ以上細くすることは出来ません。"
         ELSEIF e=2 AND d>2 THEN
            beep
            pause "通常は太さを2以下にして下さい。"
            IF d=41 THEN
               LET d=40
               pause "これ以上太くすることは出来ません。"
            END IF
         END IF
      END IF
   END IF
   IF c>0 AND d>0 THEN
      SET LINE STYLE c
      SET LINE WIDTH d
      PLOT LINES: 30,260;226,260
      PLOT TEXT,AT  10,300:"現在のイメージに変更するには、"
      PLOT TEXT,AT  10,320:"右下の「OK」を押して下さい。"
      PLOT TEXT,AT  10,350:"現在の形式(STYLE)は"&STR$(c)&"、"
      PLOT TEXT,AT  10,370:"太さ(WIDTH)は"&STR$(d)&"です。"
      PLOT AREA:170,330;240,330;240,370;170,370
      SET TEXT HEIGHT 25
      PLOT TEXT,AT  190,367:"OK"
      SET TEXT HEIGHT 11
   END IF LOOP END
 

戻る