1448565324


i j k l m のキーを押すと、円盤がその方向へ動く。kが中心。


10 SET WINDOW 0,400,400,0

30 CLEAR


40 CHARACTER INPUT nowait :a$


   IF a$="i" THEN  DRAW disk WITH SCALE(20)*SHIFT(200,140)

   IF a$="j" THEN  DRAW disk WITH SCALE(20)*SHIFT(140,200)

   IF a$="l" THEN  DRAW disk WITH SCALE(20)*SHIFT(260,200)

   IF a$="m" THEN  DRAW disk WITH SCALE(20)*SHIFT(200,260)

   IF a$="k" THEN  DRAW disk WITH SCALE(20)*SHIFT(200,200)


   FOR ti=0 TO 1000000

   NEXT ti


       GOTO 30


        END

1448556381


何かキーを押すと大きなアルファベットが順番に出る。


5 DIM a(5,5)
  LET  i=0

10 SET WINDOW 0,300,300,0

   CHARACTER INPUT s$

20 FOR y=1 TO 5
30    for x=1 to 5

40       READ p
50       LET  a(x,y)=p

60    NEXT x
70 NEXT y

100 FOR y=1 TO 5
110    for x=1 to 5

120       IF a(x,y)=0 THEN
             SET AREA COLOR 0
             GOTO 140
          END IF
130       IF a(x,y)=1 THEN
             SET AREA COLOR 1
             GOTO 140
          END IF

140       PLOT AREA: 50+20*x,50+20*y;70+20*x,50+20*y;70+20*x,70+20*y;50+20*x,70+20*y

150    NEXT x
160 NEXT y
170 LET  i=i+1
180 IF i=26 THEN RESTORE
190 IF i=26 THEN GOTO 5

200 GOTO 10

1010 data 0,1,1,1,0,1,0,0,0,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1
     rem A
1020 data 1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1
     rem B
1030 DATA 1,1,1,1,1,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,1,1,1,1
     REM C
1040 DATA 1,1,1,1,0,1,0,0,1,1,1,0,0,0,1,1,0,0,1,1,1,1,1,1,0
     REM D
1050 data 1,1,1,1,1,1,0,0,0,0,1,1,1,1,0,1,0,0,0,0,1,1,1,1,1
     rem E
1060 data 1,1,1,1,1,1,0,0,0,0,1,1,1,1,0,1,0,0,0,0,1,0,0,0,0
     rem F
1070 data 1,1,1,1,1,1,0,0,0,0,1,0,1,1,1,1,0,0,0,1,1,1,1,1,1
     REM G
1080 data 1,0,0,0,1,1,0,0,0,1,1,1,1,1,1,1,0,0,0,1,1,0,0,0,1
     REM H
1090 data 0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0
     rem I
1100 data 0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,1,0,1,0,0,1,1,1,0
     rem J
1110 data 1,1,0,0,1,1,1,0,1,0,1,1,1,0,0,1,1,0,1,0,1,1,0,0,1
     rem K
1120 data 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,1,1,1,0
     REM L
1130 data 1,1,0,1,1,1,1,1,1,1,1,0,1,0,1,1,0,0,0,1,1,0,0,0,1
     rem M
1140 data 1,1,0,0,1,1,1,0,0,1,1,0,1,0,1,1,0,0,1,1,1,0,0,1,1
     REM N
1150 data 1,1,1,1,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,1,1,1,1
     REM O
1160 data 1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,0,0,0,0,1,0,0,0,0
     REM P
1170 data 1,1,1,1,1,1,0,0,0,1,1,0,1,1,1,1,0,1,0,1,1,1,1,1,1
     REM Q
1180 data 1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,0,0,1,0,1,0,0,1,1
     REM R
1190 DATA 1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1
     REM S
1195 data 1,1,1,1,1,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0
     REM T
1200 data 1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,0,0,0,1,1,1,1,1,1
     REM U
1210 data 1,0,0,0,1,1,0,0,0,1,0,1,0,1,0,0,1,0,1,0,0,0,1,0,0
     REM V
1220 data 1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0
     REM W
1230 data 1,0,0,0,1,0,1,0,1,0,0,0,1,0,0,0,1,0,1,0,1,0,0,0,1
     REM X
1240 data 1,0,0,0,1,0,1,0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,0
     REM Y
1250 DATA 1,1,1,1,1,0,0,0,1,1,0,0,1,0,0,1,1,0,0,0,1,1,1,1,1
     REM Z

     END

1447353338

大小当てゲーム


100 PRINT "Hi&Lowです。"

110 PRINT "ルール説明を読みますか?"

120 PRINT "Yesなら1を、Noなら2を押してください。"

130 SET ECHO "off"

140 CHARACTER INPUT CLEAR :s$

150 IF s$="1" THEN GOTO 180

160 IF s$="2" THEN GOTO 200

170 GOTO 140

180 PRINT "それじゃぁ説明しますね。"

190 GOTO 220

200 PRINT "説明は不要ですね。"

210 GOTO 240

220 PRINT "先に出た数より後の数の方が、"

230 PRINT "多きいか小さいか当てる簡単なゲームです。"

240 PRINT "では、早速始めます。"

250 PRINT "(エンターを押してください。)"

260 CHARACTER INPUT CLEAR :m$

270 RANDOMIZE

280 LET a=INT(RND*10)+1

290 PRINT "一枚目は"

300 PRINT a

310 PRINT "です。"

320 PRINT "ではこの数より大きいですか?小さいですか?"

330 PRINT "大きければHキーを。小さければLキーを押してください。"

340 SET ECHO "off"

350 CHARACTER INPUT CLEAR :b$

360 RANDOMIZE

370 LET c=INT(RND*10)+1

380 PRINT "二枚目は"

390 PRINT c

400 PRINT "です。"

410 CHARACTER INPUT CLEAR :m$

420 IF b$="h" THEN GOTO 470

430 IF b$="l" THEN GOTO 560

440 PRINT "きちんとHかLを選んで下さい。やり直しです。"

450 CHARACTER INPUT CLEAR :m$

460 GOTO 270

470 IF a>c THEN GOTO 520

480 IF a<c THEN GOTO 500

490 IF a=c THEN GOTO 540

500 PRINT "正解!あなたの勝ちです!"

510 GOTO 590

520 PRINT "残念!あなたの負けです!"

530 GOTO 590

540 PRINT "引き分けです。"

550 GOTO 590

560 IF a>c THEN GOTO 500

570 IF a<c THEN GOTO 520

580 IF a=c THEN GOTO 540

590 PRINT "よければまた再チャレンジしてくださいね♪"

600 END

     


UFOは飛ぶ


20 SET POINT STYLE 1

30 OPTION ANGLE DEGREES

40 FOR t=0 TO 360 STEP 6

50 LET i=SIN (t)/4

60 LET j=SIN(t)/12+COS (t)/12

70 LET a=a+i

LET b=b+j

80 SET AREA COLOR 4

DRAW disk WITH SCALE(0.5)*SHIFT(-a,-b)

REM SET AREA COLOR 0

REM PLOT AREA: -a-0.5,-b;-a-0.5,-b-0.5;-a+0.5,-b-0.5;-a+0.5,b

SET AREA COLOR 4

DRAW disk WITH SCALE(0.9)*SHIFT(-a,-b-0.7)

SET AREA COLOR 0

PLOT AREA: -a-0.9,-b-0.3;-a-0.9,-b-1.6;-a+0.9,-b-1.6;-a+0.9,-b-0.3

SET AREA COLOR 6

DRAW disk WITH SCALE(0.15)*SHIFT(-a,-b+0.1)

SET AREA COLOR 4

DRAW disk WITH SCALE(0.15)*SHIFT(-a,-b-0.3)

DRAW disk WITH SCALE(0.15)*SHIFT(-a-0.3,-b-0.3)

DRAW disk WITH SCALE(0.15)*SHIFT(-a+0.3,-b-0.3)

SET AREA COLOR 5

DRAW disk WITH SCALE(0.6)*SHIFT(-a,-b-2)

SET AREA COLOR 0

PLOT AREA: -a-0.7,-b-1;-a-0.7,-b-2.2;-a+0.7,-b-2.2;-a+0.7,-b-1

SET AREA COLOR 5

PLOT AREA: -a,-b-0.6;-a-0.55,-b-2.2;-a+0.55,-b-2.2

100 FOR ti=1 TO 100000

NEXT ti

110 CLEAR

120 NEXT t

130 GOTO 10

500 END



衛星軌道


20 SET POINT STYLE 1

30 OPTION ANGLE DEGREES

40 FOR t=0 TO 360 STEP 6

50 LET x=SIN (t)

60 LET y=SIN(t)/3+COS (t)/3

70 REM PLOT POINTS: x,y

80 SET COLOR 1

DRAW disk WITH SCALE(0.1)*SHIFT(x,y)

85 DRAW circle WITH SCALE(0.5)*SHIFT(0,0)

88 REM WAIT DELAY 0.05

90 SET COLOR 0

95 IF y<0 THEN DRAW disk WITH SCALE(0.49)*SHIFT(0,0)

100 WAIT DELAY 0.4

110 CLEAR

120 NEXT t

130 GOTO 10

500 END



二つのボール


50 LET a=30

LET b=30

LET i=1

LET j=1

LET c=130

LET d=30

LET m=1

LET n=1

60 CLEAR

70 LET a=a+i

LET b=b+j

LET c=c+m

LET d=d+n

85 DRAW disk WITH SCALE(5)*SHIFT(a,b)

DRAW disk WITH SCALE(8)*SHIFT(c,d)

86 FOR k=1 TO 2000

87 NEXT k

88 DRAW disk WITH SCALE(8)*SHIFT(a,b)

DRAW disk WITH SCALE(10)*SHIFT(c,d)

89 FOR k=1 TO 2000

90 NEXT k

130 IF a<20 THEN GOTO 300

140 IF b<20 THEN GOTO 300

150 IF a>280 THEN GOTO 330

160 IF b>280 THEN GOTO 330

IF c<20 THEN GOTO 1300

IF d<20 THEN GOTO 1300

IF c>280 THEN GOTO 1330

IF d>280 THEN GOTO 1330

210 IF a=c THEN 220

220 IF c=d THEN 330

270 GOTO 60

300 LET i=INT(4*RND)

RANDOMIZE

LET j=INT(4*RND)

GOTO 60

310 LET i=INT(-4*RND)

RANDOMIZE

LET j=INT(4*RND)

GOTO 60

320 LET i=INT(4*RND)

RANDOMIZE

LET j=INT(-4*RND)

GOTO 60

330 LET i=INT(-4*RND)

RANDOMIZE

LET j=INT(-4*RND)

GOTO 60

1300 LET m=INT(4*RND)

RANDOMIZE

LET n=INT(4*RND)

GOTO 60

1310 LET m=INT(-4*RND)

RANDOMIZE

LET n=INT(4*RND)

GOTO 60

1320 LET m=INT(4*RND)

RANDOMIZE

LET n=INT(-4*RND)

GOTO 60

1330 LET m=INT(-4*RND)

RANDOMIZE

LET n=INT(-4*RND)

GOTO 60

1500 GOTO 60

END



チカチカするボール


5 SET WINDOW 0,300,0,300

1650 LET x1=INT(150*RND)

LET p1=INT(300*RND)

LET q1=INT(300*RND)

SET AREA COLOR x1

DRAW disk WITH SCALE(x1)*SHIFT(p1,q1)

1660 LET x2=INT(150*RND)

LET p2=INT(300*RND)

LET q2=INT(300*RND)

SET AREA COLOR x2

DRAW disk WITH SCALE(x2)*SHIFT(p2,q2)

1670 LET x3=INT(150*RND)

LET p3=INT(300*RND)

LET q3=INT(300*RND)

SET AREA COLOR x3

DRAW disk WITH SCALE(x3)*SHIFT(p3,q3)

1680 FOR k=1 TO 150000

NEXT k

clear

1700 GOTO 5

END

1444334381

ブロック崩しの例


5 SET WINDOW 0,300,0,300

50 LET a=30
   LET b=30
   LET i=3
   LET j=2
55 LET  ye=6
   LET  re=4
   LET  bl=3
   LET  gr=5

60 CLEAR

70 LET a=a+i
   LET b=b+j

   SET AREA COLOR ye
   PLOT AREA: 0,300;0,290;300,290;300,300

   SET AREA COLOR re
   PLOT AREA: 0,290;0,280;300,280;300,290

   SET AREA COLOR bl
   PLOT AREA: 0,280;0,270;300,270;300,280

   SET AREA COLOR gr
   PLOT AREA: 0,270;0,260;300,260;300,270

80 SET AREA COLOR "black"
   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   FOR k=1 TO 7000

   NEXT k

   IF b=250 THEN GOTO 160
   IF b=270 THEN GOTO 165
   IF b=280 THEN GOTO 170
   IF b=290 THEN GOTO 175

   FOR k=1 TO 7000
   NEXT k

130 IF a<30 THEN LET  i=-i
140 IF b<30 THEN LET  j=-j
150 IF a>290 THEN LET  i=-i
    IF b>290 THEN LET  j=-j
    GOTO 200

160 LET  gr=0
    GOTO 205
165 LET  bl=0
    GOTO 205
170 LET re=0
    GOTO 205
175 LET ye=0
    GOTO 205

200 IF a>30 THEN GOTO 60
    IF b>30 THEN GOTO 60
    IF a<290 THEN GOTO 60
    IF b<260 THEN GOTO 60

205 RANDOMIZE
    LET n=INT(4*RND)

210 IF n=0 THEN LET  i=-i
220 IF n=1 THEN LET  i=i
230 IF n=2 THEN LET  j=-j
240 IF n=3 THEN LET  j=j

300 IF ye=0 THEN GOTO 500

    GOTO 60

500 END

1443727714


スロットマシン


5 LET  total=100
10 SET WINDOW  0,300,300,0
   LET  t=0
   SET TEXT FONT "MS 明朝",30
   PRINT "sキーを押して下さい。"
50 CHARACTER INPUT NOWAIT: s$
   IF s$ = "s" THEN GOTO 100
   GOTO 50

100 RANDOMIZE
    FOR i=0 TO 25
       CLEAR
       LET  t=i*i
       LET  a=INT(RND*10)
       LET  p=a
       GOSUB 1000
       LET  a$=p$
       LET  b=INT(RND*10)
       LET  p=b
       GOSUB 1000
       LET  b$=p$
       LET  c=INT(RND*10)
       LET  p=c
       GOSUB 1000
       LET  c$=p$
       LET  d=INT(RND*10)
       LET  p=d
       GOSUB 1000
       LET  d$=p$
       LET  e=INT(RND*10)
       LET  p=e
       GOSUB 1000
       LET  e$=p$
       LET  f=INT(RND*10)
       LET  p=f
       GOSUB 1000
       LET  f$=p$
       LET  g=INT(RND*10)
       LET  p=g
       GOSUB 1000
       LET  g$=p$
       LET  h=INT(RND*10)
       LET  p=h
       GOSUB 1000
       LET  h$=p$
       LET  j=INT(RND*10)
       LET  p=j
       GOSUB 1000
       LET  j$=p$
       PLOT TEXT ,AT 100,110,USING "## ## ##" : a$,b$,c$
       PLOT TEXT ,AT 100,140,USING "## ## ##" : d$,e$,f$
       PLOT TEXT ,AT 100,170,USING "## ## ##" : g$,h$,j$

       WAIT DELAY t/500

    NEXT i

    IF a$=b$ AND b$=c$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=10
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    IF d$=e$ AND e$=f$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=20
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    IF g$=h$ AND h$=j$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=30
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    IF a$=d$ AND d$=g$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=40
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    IF b$=e$ AND e$=h$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=50
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    IF c$=f$ AND f$=j$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=60
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    IF a$=e$ AND e$=j$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=70
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    IF c$=e$ AND e$=g$ THEN
       PLOT TEXT ,AT 70,200 : "JACK POT !!!"
       LET  gain=80
       PLOT TEXT ,AT 70,230,USING "##":gain
       GOTO 500
    END IF
    LET  gain=-10
    500 LET  total=total+gain
        PLOT TEXT ,AT 70,260,USING "TOTAL=###":total
        IF total=0 THEN GOTO 2000
        GOTO 10
        STOP

1000 IF p=1 THEN LET  p$="○"
1010 IF p=2 THEN LET  p$="×"
1020 IF p=3 THEN LET  p$="△"
1030 IF p=4 THEN LET  p$="◎"
1040 IF p=5 THEN LET  p$="▽"
1050 IF p=6 THEN LET  p$="◇"
1060 IF p=7 THEN LET  p$="□"
1070 IF p=8 THEN LET  p$="●"
1080 IF p=9 THEN LET  p$="■"
1090 RETURN

         2000 END


************************


VRハンド


20 CLEAR
   SET WINDOW  0,300,300,0
   SET LINE WIDTH 5

25 CHARACTER INPUT NOWAIT: a$
30 if a$ = "n" then LET  i1 = i1-15
40 if a$ = "u" then LET  i2 = i2-10
50 if a$ = "i" then LET  i3 = i3-10
60 if a$ = "o" then LET  i4 = i4-10
70 if a$ = "p" then LET  i5 = i5-10
100 LET  i1 = i1+2
110 LET  i2 = i2+2
120 LET  i3 = i3+2
130 LET  i4 = i4+2
140 LET  i5 = i5+2
200 DRAW disk WITH SCALE(17)*SHIFT(45+i1,135+i1)
    PLOT LINES: 45+i1,135+i1;135,233
210 DRAW disk WITH SCALE(15)*SHIFT(135,35+i2*2)
    PLOT LINES: 135,35+i2*2;135,193

220 DRAW disk WITH SCALE(15)*SHIFT(175,35+i3*2)
    PLOT LINES: 175,35+i3*2;175,193

230 DRAW disk WITH SCALE(15)*SHIFT(215,35+i4*2)
    PLOT LINES: 215,35+i4*2;215,193

240 DRAW disk WITH SCALE(13)*SHIFT(255,45+i5*2)
    PLOT LINES: 255,45+i5*2;255,193

1000 WAIT DELAY 0.1
1010 IF i1 >= 60 THEN LET  i1 = 58
1020 if i2 >= 60 then LET  i2 = 58
1030 if i3 >= 60 then LET  i3 = 58
1040 if i4 >= 60 then LET  i4 = 58
1050 if i5 >= 60 then LET  i5 = 58
1100 GOTO 20

     END


*************************


回転図形


DECLARE EXTERNAL PICTURE circle0
LET a=5
SET WINDOW -1.3,1.3,-1.3,1.3
FOR tt=0 TO 2*PI STEP PI/180
   SET DRAW MODE hidden
   CLEAR
   DRAW axes
   SET LINE color 0
   DRAW circle
   SET LINE COLOR 4
   DRAW circle0 WITH ROTATE(-(a-2)*t)*SCALE(1/a)*SHIFT((1-1/a)*COS(t),(1-1/a)*SIN(t))
   SET LINE COLOR 2
   FOR t=0 TO tt STEP PI/100
      LET x=(1-2/a)*COS(t)+(1/a)*COS((a-1)*t)
      LET y=(1-2/a)*SIN(t)-(1/a)*SIN((a-1)*t)
      PLOT LINES:x,y;

   NEXT t
   SET DRAW MODE explicit
   WAIT DELAY 0.04
NEXT tt
END
EXTERNAL PICTURE circle0
SET AREA COLOR 4
DRAW disk WITH SCALE(0.2)*SHIFT(2,1)
SET AREA COLOR 5
DRAW disk WITH SCALE(0.2)*SHIFT(1,1)
SET AREA COLOR 3
DRAW disk WITH SCALE(0.1)*SHIFT(1,0)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.3)*SHIFT(2,2)
SET AREA COLOR 7
DRAW disk WITH SCALE(0.4)*SHIFT(2,2)
SET AREA COLOR 2
DRAW disk WITH SCALE(0.3)*SHIFT(0,0)
SET AREA COLOR 3
DRAW disk WITH SCALE(0.3)*SHIFT(2,2)
SET AREA COLOR 5
DRAW disk WITH SCALE(0.1)*SHIFT(-3,3)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.5)*SHIFT(-4,0)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.2)*SHIFT(2,0)
SET AREA COLOR 7
DRAW disk WITH SCALE(0.4)*SHIFT(0,-3)
SET AREA COLOR 2
DRAW disk WITH SCALE(0.5)*SHIFT(4,0)

SET AREA COLOR 4
DRAW disk WITH SCALE(0.5)*SHIFT(7,6)
SET AREA COLOR 5
DRAW disk WITH SCALE(0.2)*SHIFT(1,7)
SET AREA COLOR 3
DRAW disk WITH SCALE(0.3)*SHIFT(-5,0)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.4)*SHIFT(2,-2)
SET AREA COLOR 7
DRAW disk WITH SCALE(0.3)*SHIFT(1,1)
SET AREA COLOR 0
DRAW disk WITH SCALE(0.2)*SHIFT(1,1)
SET AREA COLOR 2
DRAW disk WITH SCALE(0.1)*SHIFT(0,4)
SET AREA COLOR 4
DRAW disk WITH SCALE(0.3)*SHIFT(-5,2)
SET AREA COLOR 5
DRAW disk WITH SCALE(0.2)*SHIFT(-3,-3)
SET AREA COLOR 0
DRAW disk WITH SCALE(0.4)*SHIFT(4,0)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.1)*SHIFT(2,7)
SET AREA COLOR 7
DRAW disk WITH SCALE(0.1)*SHIFT(-4,3)
SET AREA COLOR 2
DRAW disk WITH SCALE(0.2)*SHIFT(2,0)
SET AREA COLOR 0
DRAW disk WITH SCALE(0.1)*SHIFT(-3,-3)
SET AREA COLOR 0
DRAW disk WITH SCALE(0.4)*SHIFT(4,0)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.4)*SHIFT(5,5)
SET AREA COLOR 9
DRAW disk WITH SCALE(0.1)*SHIFT(-3,3)
SET AREA COLOR 2
DRAW disk WITH SCALE(0.2)*SHIFT(5,5)

SET AREA COLOR 4
DRAW disk WITH SCALE(0.2)*SHIFT(5,1)
SET AREA COLOR 5
DRAW disk WITH SCALE(0.2)*SHIFT(1,7)
SET AREA COLOR 3
DRAW disk WITH SCALE(0.1)*SHIFT(5,6)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.3)*SHIFT(3,4)
SET AREA COLOR 4
DRAW disk WITH SCALE(0.3)*SHIFT(2,-2)
SET AREA COLOR 2
DRAW disk WITH SCALE(0.3)*SHIFT(-4,4)
SET AREA COLOR 4
DRAW disk WITH SCALE(0.1)*SHIFT(5,-2)
SET AREA COLOR 5
DRAW disk WITH SCALE(0.5)*SHIFT(-5,3)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.3)*SHIFT(-5,3)
SET AREA COLOR 6
DRAW disk WITH SCALE(0.2)*SHIFT(4,0)
SET AREA COLOR 3
DRAW disk WITH SCALE(0.7)*SHIFT(-5,-5)
SET AREA COLOR 0
DRAW disk WITH SCALE(0.6)*SHIFT(-5,-5)

END PICTURE



- 1 - - 2 - - 3 - - 4 - - 5 - - 6 -