1531431508

桃太郎を捕まえろ


5 SET WINDOW 0,300,300,0

 

50 LET a=30

   LET b=0

   LET i=5

  

   LET c=0

   LET d=0

   LET m=4

  

   LET e=230

   LET f=0

   LET k=7

  

   LET c1=1

   LET c2=1

   LET c3=1

   LET c4=0

   LET c5=0

   LET c6=0

  

   REM FOR ti=1 TO 50000

   rem NEXT ti

  

60 SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

  

   FOR j=1 TO 300

      SET POINT COLOR "blue"

     

      LET xa=150+(j/2)*SIN(j*5)

      LET ya=j

     

      PLOT POINTS: xa-j/10 , ya

      PLOT POINTS: xa+j/10 , ya

     

   NEXT j

  

  

  

70 REM LET b=b+i

  

   REM LET d=d+1

  

   rem LET c=c+1

  

  

  

80 SET AREA COLOR c1

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

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

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

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

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

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

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

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

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

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

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

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

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

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

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

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   SET AREA COLOR c2

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

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

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

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

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

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

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

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

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   SET AREA COLOR c3

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

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

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

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

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

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

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

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

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

  

  

  

90 CHARACTER INPUT NOWAIT: a$

   IF a$ = "i" THEN LET b = b-2

   IF a$ = "j" THEN LET a = a-2

   IF a$ = "k" THEN LET b = b

   IF a$ = "k" THEN LET a = a

   IF a$ = "l" THEN LET a = a+2

   IF a$ = "m" THEN LET b = b+2

  

   SET COLOR c4

   DRAW disk WITH SCALE(5)*SHIFT(150+x,150+y)

   SET COLOR c5

   DRAW disk WITH SCALE(8)*SHIFT(150+x,170+y)

   SET COLOR c6

   DRAW disk WITH SCALE(10)*SHIFT(150+x,200+y)

  

   SET LINE COLOR 4

   SET LINE WIDTH 10

  

   REM PLOT LINES : 150+x,150+y;150+x,250+y

  

  

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

  

   SET AREA COLOR 15

  

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

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

   SET AREA COLOR 52

  

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

  

   SET AREA COLOR 1

  

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

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

   SET AREA COLOR 0

  

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

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

  

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

  

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

  

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

  

  

   REM " momo"

   LET i=i+0.5

   LET d=150+(i/2)*SIN(i*2)

   LET c=c+1

  

   SET AREA COLOR 11

  

   PLOT AREA:d+10,c+5;d+2,c;d+2,c+5;d+10,c+5

   REM PLOT AREA:d-10,c+5;d-2,c;d-2,c+5;d-10,c+5

   set COLOR 24

   DRAW disk WITH SCALE(5)*SHIFT(d-3,c)

   DRAW disk WITH SCALE(5)*SHIFT(d+3,c)

   SET AREA COLOR 24

   PLOT AREA:d-7,c-3.5;d,c-10;d+7,c-3.5;d-7,c-3.5

   SET AREA COLOR 11

   PLOT AREA:d-10,c+5;d-2,c;d-2,c+5;d-10,c+5

  

  

   FOR ti=1 TO 500000

   NEXT ti

  

91 IF a<d+10 THEN GOTO 92 ELSE GOTO 160

92 IF a>d-10 THEN GOTO 110 ELSE GOTO 160

  

110 IF b<c+10 THEN GOTO 111 ELSE GOTO 160

111 IF b>c-10 THEN GOTO 140 ELSE GOTO 160

   

   

   

   

   

140 LET d=150

    LET c=0

    LET i=0

    GOTO 60

   

   

   

   

   

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

    IF c>300 THEN GOTO 400

   

   

   

270 GOTO 60

   

300 RANDOMIZE

   

    LET i=1+INT(4*RND)

   

    LET b=0

    LET a=INT(100*RND)

   

    GOTO 80

   

400 RANDOMIZE

   

    LET m=1+INT(4*RND)

   

    LET c=0

    LET d=150

    LET i=0

   

    GOTO 80

   

500 RANDOMIZE

   

    LET k=1+INT(4*RND)

    LET f=0

    LET e=INT(280*RND)

   

    GOTO 80

   

600 GOTO 60

   

    END

    

1531431313

螺旋の運動



 20 LET n=2                    ! INPUT n

30 SET WINDOW -1,1,-1,1

40 DRAW axes

45 LET r=0.1

   LET r1=0.12

   LET r2=0.14

   LET r3=0.16

   LET r4=0.18

   LET r5=0.20

   LET r6=0.22

   LET r7=0.24

   LET r8=0.26

   LET r9=0.28

   LET r10=0.30

   LET r11=0.32

   LET r12=0.34

   LET r13=0.36

   LET r14=0.38

   LET r15=0.40

   LET r16=0.42

   LET r17=0.44

   LET r18=0.46

   LET r19=0.48

   LET r20=0.50

   LET r21=0.52

   LET r22=0.54

   LET r23=0.56

   LET r24=0.58

   LET r25=0.60

   LET r26=0.62

   LET r27=0.64

   LET r28=0.66

   LET r29=0.68

   LET r30=0.70

   LET r31=0.72

   LET r32=0.74

   LET r33=0.76

   LET r34=0.78

   LET r35=0.80

   LET r36=0.82

   LET r37=0.84

   LET r38=0.86

   LET r39=0.88

   LET r40=0.90

   LET r41=0.92

   LET r42=0.94

   LET r43=0.96

   LET r44=0.98

   LET r45=1.0

   LET r46=1.02

   LET r47=1.04

   LET r48=1.06

   LET r49=1.08

   LET r50=1.10

   

   

50 LET t=t+4*PI/720

   

   REM CLEAR

   

   SET COLOR 15

   

   PLOT AREA: -1,1 ; 1 ,1 ; 1,-1; -1,-1

   

   

   

   

   

   DRAW disk WITH SCALE(2.00)*SHIFT(0,0)

   

   SET COLOR 0

   

   SET POINT STYLE 7

   

   PLOT POINTS: r*COS(t*1),r*SIN(t*1)

   

   PLOT POINTS: r1*COS(t*1.2),r1*SIN(t*1.2)

   

   PLOT POINTS: r2*COS(t*1.4),r2*SIN(t*1.4)

   

   PLOT POINTS: r3*COS(t*1.6),r3*SIN(t*1.6)

   

   PLOT POINTS: r4*COS(t*1.8),r4*SIN(t*1.8)

   

   PLOT POINTS: r5*COS(t*2),r5*SIN(t*2)

   

   PLOT POINTS: r6*COS(t*2.2),r6*SIN(t*2.2)

   

   PLOT POINTS: r7*COS(t*2.4),r7*SIN(t*2.4)

   

   PLOT POINTS: r8*COS(t*2.6),r8*SIN(t*2.6)

   

   PLOT POINTS: r9*COS(t*2.8),r9*SIN(t*2.8)

   

   PLOT POINTS: r10*COS(t*3),r10*SIN(t*3)

   

   PLOT POINTS: r11*COS(t*3.2),r11*SIN(t*3.2)

   

   PLOT POINTS: r12*COS(t*3.4),r12*SIN(t*3.4)

   

   PLOT POINTS: r13*COS(t*3.6),r13*SIN(t*3.6)

   

   PLOT POINTS: r14*COS(t*3.8),r14*SIN(t*3.8)

   

   PLOT POINTS: r15*COS(t*4.0),r15*SIN(t*4.0)

   

   PLOT POINTS: r16*COS(t*4.2),r16*SIN(t*4.2)

   

   PLOT POINTS: r17*COS(t*4.4),r17*SIN(t*4.4)

   

   PLOT POINTS: r18*COS(t*4.6),r18*SIN(t*4.6)

   

   PLOT POINTS: r19*COS(t*4.8),r19*SIN(t*4.8)

   

   PLOT POINTS: r20*COS(t*5.0),r20*SIN(t*5.0)

   

   PLOT POINTS: r21*COS(t*5.2),r21*SIN(t*5.2)

   

   PLOT POINTS: r22*COS(t*5.4),r22*SIN(t*5.4)

   

   PLOT POINTS: r23*COS(t*5.6),r23*SIN(t*5.6)

   

   PLOT POINTS: r24*COS(t*5.8),r24*SIN(t*5.8)

   

   PLOT POINTS: r25*COS(t*6.0),r25*SIN(t*6.0)

   

   PLOT POINTS: r26*COS(t*6.2),r26*SIN(t*6.2)

   

   PLOT POINTS: r27*COS(t*6.4),r27*SIN(t*6.4)

   

   PLOT POINTS: r28*COS(t*6.6),r28*SIN(t*6.6)

   

   PLOT POINTS: r29*COS(t*6.8),r29*SIN(t*6.8)

   

   PLOT POINTS: r30*COS(t*7.0),r30*SIN(t*7.0)

   

   PLOT POINTS: r31*COS(t*7.2),r31*SIN(t*7.2)

   

   PLOT POINTS: r32*COS(t*7.4),r32*SIN(t*7.4)

   

   PLOT POINTS: r33*COS(t*7.6),r33*SIN(t*7.6)

   

   PLOT POINTS: r34*COS(t*7.8),r34*SIN(t*7.8)

   

   PLOT POINTS: r35*COS(t*8.0),r35*SIN(t*8.0)

   

   PLOT POINTS: r36*COS(t*8.2),r36*SIN(t*8.2)

   

   PLOT POINTS: r37*COS(t*8.4),r37*SIN(t*8.4)

   

   PLOT POINTS: r38*COS(t*8.6),r38*SIN(t*8.6)

   

   PLOT POINTS: r39*COS(t*8.8),r39*SIN(t*8.8)

   

   PLOT POINTS: r40*COS(t*9.0),r40*SIN(t*9.0)

   

   PLOT POINTS: r41*COS(t*9.2),r41*SIN(t*9.2)

   

   PLOT POINTS: r42*COS(t*9.4),r42*SIN(t*9.4)

   

   PLOT POINTS: r43*COS(t*9.6),r43*SIN(t*9.6)

   

   PLOT POINTS: r44*COS(t*9.8),r44*SIN(t*9.8)

   

   PLOT POINTS: r45*COS(t*10),r45*SIN(t*10)

   

   PLOT POINTS: r46*COS(t*10.2),r46*SIN(t*10.2)

   

   PLOT POINTS: r47*COS(t*10.4),r47*SIN(t*10.4)

   

   

70

   

   FOR v=1 TO 100000

   NEXT v

   

   REM 80 NEXT t

   

90 GOTO 50

   

190 END

1531431050

落ちてくる球を消す


 5 SET WINDOW 0,300,300,0

  

50 LET a=30

   LET b=0

   LET i=5

   

   LET c=130

   LET d=0

   LET m=4

   

   LET e=230

   LET f=0

   LET k=7

   

   RANDOMIZE

   

   LET c1=INT(60*RND)

   LET c2=INT(60*RND)

   LET c3=INT(60*RND)

   

60 FOR ti=1 TO 90000

   

   NEXT ti

   

   REM CLEAR

   

   SET AREA COLOR 0

   

   PLOT AREA :0,0;300,0;300,300;0,300;0,0

   

70 LET b=b+i

   

   LET d=d+m

   

   LET f=f+k

   

   

80 SET AREA COLOR c1

   

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

   

   SET AREA COLOR c2

   

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

   

   SET AREA COLOR c3

   

   DRAW disk WITH SCALE(10)*SHIFT(e,f)

   

90 CHARACTER INPUT NOWAIT: a$

   

   IF a$ = "i" THEN LET y = y-5

   IF a$ = "j" THEN LET x = x-5

   IF a$ = "l" THEN LET x = x+5

   IF a$ = "m" THEN LET y = y+5

   

   SET AREA COLOR 1

   

   REM DRAW disk WITH SCALE(5)*SHIFT(150+x,150+y)

   

   PLOT AREA: 120+x,150+y ; 170+x ,150+y ; 170+x,170+y ; 120+x,170+y

   

   IF a<170+x THEN GOTO 92

92 IF a>120+x THEN GOTO 100

   

   IF c<170+x THEN GOTO 95

95 IF c>120+x THEN GOTO 110

   

   IF e<170+x THEN GOTO 97

97 IF e>120+x THEN GOTO 120

   

   GOTO 160

   

100 IF b<170+y THEN GOTO 102

102 IF b>150+y THEN GOTO 130

    

110 IF d<170+y THEN GOTO 112

112 IF d>150+y THEN GOTO 140

    

120 IF f<170+y THEN GOTO 122

122 IF f>150+y THEN GOTO 150

    

    GOTO 160

    

130 LET c1=0

    GOTO 160

    

140 LET c2=0

    GOTO 160

    

150 LET c3=0

    GOTO 160

    

160 IF b>300 THEN GOTO 300

    

    IF d>300 THEN GOTO 400

    

    IF f>300 THEN GOTO 500

    

    

    

270 GOTO 60

    

    

300 RANDOMIZE

    

    LET i=1+INT(4*RND)

    

    LET b=0

    LET a=INT(100*RND)

    

    LET c1=INT(60*RND)

    

    GOTO 80

    

    

400 RANDOMIZE

    

    LET m=1+INT(4*RND)

    

    LET d=0

    LET c=INT(200*RND)

    

    LET c2=INT(60*RND)

    GOTO 80

    

500 RANDOMIZE

    

    LET k=1+INT(4*RND)

    LET f=0

    LET e=INT(280*RND)

    

    LET c3=INT(60*RND)

    

    GOTO 80

    

    

600 GOTO 60

    

    END

     

1531430763

インベーダー

 

10 DECLARE EXTERNAL PICTURE mon

20 OPTION ANGLE DEGREES

30 SET WINDOW 0,200,200,0

  

   LET x = -20

   LET a = 40

   LET b = 40

  

40 SET AREA COLOR 1

   PLOT AREA:0,0;200,0;200,200;0,200

  

50 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+y)

   FOR TI=0 TO 1000

   NEXT TI

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+y)

   LET x = x+b

55 IF x>=200 THEN GOTO 60

   GOTO 50

  

  

60 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+25)

   DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+y)

   FOR TI=0 TO 500

   NEXT TI

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+25)

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+y)

   LET x = x-a

   LET n = n+a

65 IF x<=-23 THEN GOTO 70

   GOTO 60

  

  

70 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+50)

   DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+25)

   FOR TI=0 TO 500

   NEXT TI

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+50)

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+25)

  

   LET x = x+a

   LET n = n-a

75 IF x>=225 THEN GOTO 80

   GOTO 70

  

  

80 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+75)

   DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+50)

   FOR TI=0 TO 500

   NEXT TI

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+75)

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+50)

   LET x = x-a

   LET n = n+a

85 IF x<=-23 THEN GOTO 90

   GOTO 80

  

  

90 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+100)

   DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+75)

   FOR TI=0 TO 500

   NEXT TI

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+100)

   DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+75)

   LET x = x+a

   LET n = n-a

95 IF x>=225 THEN GOTO 100

   GOTO 90

  

  

100 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+125)

    DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+100)

    FOR TI=0 TO 1000

    NEXT TI

    DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+125)

    DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+100)

    LET x = x-a

    LET n = n+a

105 IF x<=-23 THEN GOTO 110

    GOTO 100

   

   

110 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+150)

    DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+125)

    FOR TI=0 TO 500

    NEXT TI

    DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+150)

    DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+125)

    LET x = x+a

    LET n = n-a

115 IF x>=225 THEN GOTO 120

    GOTO 110

   

   

120 DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+150)

    DRAW mon(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+175)

    FOR TI=0 TO 500

    NEXT TI

    DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+x,0+150)

    DRAW mon2(3) WITH SCALE( 0.05,0.05)*SHIFT(0+n,0+175)

    LET x = x-a

    LET n = n+a

125 IF x<=-23 THEN GOTO 130

    GOTO 120

   

   

   

130 LET x = 200

135 DRAW mon(3) WITH SCALE( 0.33,0.33)*SHIFT(50+x,25)

    FOR TI=0 TO 500

    NEXT TI

    DRAW mon2(3) WITH SCALE( 0.33,0.33)*SHIFT(50+x,25)

    LET x = x-10

140 IF x<=-350 THEN GOTO 250

    GOTO 135

   

   

   

   

250 SET TEXT FONT "MS 明朝",80

    SET TEXT COLOR 3

    PLOT TEXT ,AT 50,150 :"INVADER"&b$

   

   

350 CHARACTER INPUT NOWAIT: s$

    FOR TI=0 TO 100000

    NEXT TI

   

    GOTO 50

   

   

500 END

   

1905 EXTERNAL PICTURE mon(n)

    

1910 SET AREA COLOR 1

     PLOT AREA:0,0;50,50;50,450;0,450

     SET AREA COLOR 1

     PLOT AREA: 600,50;650,50;650,450;600,450

     SET AREA COLOR 1

     PLOT AREA: 0,0;50,550;50,550;0,550

    

    

    

     SET AREA COLOR 1

     PLOT AREA:50,50;100,50;100,100;50,100

     SET AREA COLOR 1

     PLOT AREA: 100,50;150,50;150,100;100,100

     SET AREA COLOR 0

     PLOT AREA: 150,50;200,50;200,100;150,100

     SET AREA COLOR 1

     PLOT AREA: 200,50;250,50;250,100;200,100

     SET AREA COLOR 1

     PLOT AREA: 250,50;300,50;300,100;250,100

     SET AREA COLOR 1

     PLOT AREA: 300,50;350,50;350,100;300,100

     SET AREA COLOR 1

     PLOT AREA: 350,50;400,50;400,100;350,100

     SET AREA COLOR 1

     PLOT AREA: 400,50;450,50;450,100;400,100

     SET AREA COLOR 0

     PLOT AREA: 450,50;500,50;500,100;450,100

     SET AREA COLOR 1

     PLOT AREA: 500,50;550,50;550,100;500,100

     SET AREA COLOR 1

     PLOT AREA: 550,50;600,50;600,100;550,100

    

     LET a=50

    

1920 SET AREA COLOR 1

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 1

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 1

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 1

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 1

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 1

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 1

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

    

    

     LET a=100

    

1930 SET AREA COLOR 1

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 1

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

     

    

     LET a=150

    

1940 SET AREA COLOR 1

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 0

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 1

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 1

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 0

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 1

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

     LET a=200

    

1950 SET AREA COLOR 0

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 0

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 0

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 0

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

     LET a=250

    

1960 SET AREA COLOR 0

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 0

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

     LET a=300

    

1970 SET AREA COLOR 0

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 1

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 1

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 1

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 1

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 1

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 0

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

    

     LET a=350

    

1980 SET AREA COLOR 1

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 1

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 1

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 1

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 1

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

2000 END PICTURE

    

    

2000 EXTERNAL PICTURE mon2(n)

    

2110 SET AREA COLOR 1

     PLOT AREA:0,50;50,50;50,450;0,450

     SET AREA COLOR 1

     PLOT AREA: 600,50;650,50;650,450;600,450

     SET AREA COLOR 1

     PLOT AREA: 0,0;50,550;50,550;0,550

    

    

     SET AREA COLOR 1

     PLOT AREA:50,50;100,50;100,100;50,100

     SET AREA COLOR 1

     PLOT AREA: 100,50;150,50;150,100;100,100

     SET AREA COLOR 0

     PLOT AREA: 150,50;200,50;200,100;150,100

     SET AREA COLOR 1

     PLOT AREA: 200,50;250,50;250,100;200,100

     SET AREA COLOR 1

     PLOT AREA: 250,50;300,50;300,100;250,100

     SET AREA COLOR 1

     PLOT AREA: 300,50;350,50;350,100;300,100

     SET AREA COLOR 1

     PLOT AREA: 350,50;400,50;400,100;350,100

     SET AREA COLOR 1

     PLOT AREA: 400,50;450,50;450,100;400,100

     SET AREA COLOR 0

     PLOT AREA: 450,50;500,50;500,100;450,100

     SET AREA COLOR 1

     PLOT AREA: 500,50;550,50;550,100;500,100

     SET AREA COLOR 1

     PLOT AREA: 550,50;600,50;600,100;550,100

    

     FOR TI=0 TO 100000

     NEXT TI

    

    

     LET a=50

    

2120 SET AREA COLOR 0

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 1

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 1

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 1

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 1

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 1

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 0

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

    

     FOR TI=0 TO 100000

     NEXT TI

    

    

     LET a=100

    

2130 SET AREA COLOR 0

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 0

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

    

     FOR TI=0 TO 100000

     NEXT TI

    

     LET a=150

    

2140 SET AREA COLOR 0

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 0

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 1

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 1

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 0

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 0

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

     FOR TI=0 TO 100000

     NEXT TI

    

     LET a=200

    

2150 SET AREA COLOR 0

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 0

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 0

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 0

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

     FOR TI=0 TO 100000

     NEXT TI

    

     LET a=250

    

2160 SET AREA COLOR 1

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 0

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 0

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 0

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 0

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 0

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 1

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

     FOR TI=0 TO 100000

     NEXT TI

    

     LET a=300

    

2170 SET AREA COLOR 1

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 1

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 0

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 1

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 1

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 1

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 1

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 1

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 0

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 1

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 1

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

    

     LET a=350

    

2180 SET AREA COLOR 1

     PLOT AREA:50,50+a;100,50+a;100,100+a;50,100+a

     SET AREA COLOR 0

     PLOT AREA: 100,50+a;150,50+a;150,100+a;100,100+a

     SET AREA COLOR 1

     PLOT AREA: 150,50+a;200,50+a;200,100+a;150,100+a

     SET AREA COLOR 1

     PLOT AREA: 200,50+a;250,50+a;250,100+a;200,100+a

     SET AREA COLOR 1

     PLOT AREA: 250,50+a;300,50+a;300,100+a;250,100+a

     SET AREA COLOR 1

     PLOT AREA: 300,50+a;350,50+a;350,100+a;300,100+a

     SET AREA COLOR 1

     PLOT AREA: 350,50+a;400,50+a;400,100+a;350,100+a

     SET AREA COLOR 1

     PLOT AREA: 400,50+a;450,50+a;450,100+a;400,100+a

     SET AREA COLOR 1

     PLOT AREA: 450,50+a;500,50+a;500,100+a;450,100+a

     SET AREA COLOR 0

     PLOT AREA: 500,50+a;550,50+a;550,100+a;500,100+a

     SET AREA COLOR 1

     PLOT AREA: 550,50+a;600,50+a;600,100+a;550,100+a

    

    

    

3000 END PICTURE

    

    


1507241514


外部絵定義を使って同じ絵を何度も描く


10 DECLARE EXTERNAL PICTURE tri

20 OPTION ANGLE DEGREES

30 SET WINDOW 0,300,300,0

40 DRAW tri(3)

50 DRAW tri(3) WITH SCALE(1.2,1.2)*SHIFT(50,0)

55 DRAW tri(3) WITH SCALE(0.8,0.8)*SHIFT(-50,0)

60 END

100 EXTERNAL PICTURE tri(n)

130 PLOT LINES:100,100;150,100;200,200;100,100

150 END PICTURE

1505586919


だんご串刺しゲーム



5 SET WINDOW 0,300,300,0

  

50 LET a=30

   LET b=0

   LET i=5

   

   LET c=130

   LET d=0

   LET m=4

   

   LET e=230

   LET f=0

   LET k=7

   

   LET c1=1

   LET c2=1

   LET c3=1

   LET c4=0

   LET c5=0

   LET c6=0

   

60 FOR ti=1 TO 10000

   NEXT ti

   

   SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

   

70 LET b=b+i

   

   LET d=d+m

   

   LET f=f+k

   

80 SET AREA COLOR c1

   

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

   

   SET AREA COLOR c2

   

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

   

   SET AREA COLOR c3

   

   DRAW disk WITH SCALE(10)*SHIFT(f,e)

   

90 CHARACTER INPUT NOWAIT: a$

   IF a$ = "i" THEN LET  y = y-2

   IF a$ = "j" THEN LET  x = x-2

   IF a$ = "l" THEN LET  x = x+2

   IF a$ = "m" THEN LET  y = y+2

   

   SET COLOR c4

   DRAW disk WITH SCALE(5)*SHIFT(150+x,150+y)

   SET COLOR c5

   DRAW disk WITH SCALE(8)*SHIFT(150+x,170+y)

   SET COLOR c6

   DRAW disk WITH SCALE(10)*SHIFT(150+x,200+y)

     

   SET LINE COLOR 4

   SET LINE WIDTH 10

   PLOT LINES : 150+x,150+y;150+x,250+y

   

   FOR ti=1 TO 100000

   NEXT ti

   

   IF 150+x=b THEN GOTO 100

   IF 150+x=d THEN GOTO 110

   IF 150+x=f THEN GOTO 120

   

   GOTO 160

   

100 IF 150+y=a THEN GOTO 130

110 IF 150+y=c THEN GOTO 140

120 IF 150+y=e THEN GOTO 150

    

    GOTO 160   

    

130 LET c1=0

    LET  c4=1

    GOTO 160

    

140 LET c2=0

    LET c5=1 

    GOTO 160

    

150 LET c3=0

    LET c6=1    

    GOTO 160

    

 160 IF b>300 THEN GOTO 300

     

     IF d>300 THEN GOTO 400

     

     IF f>300 THEN GOTO 500

     

270 GOTO 60

     

300 RANDOMIZE

    

    LET i=1+INT(4*RND)

    

    LET b=0

    LET a=INT(100*RND)

    

    GOTO 80

 

400 RANDOMIZE

    

    LET m=1+INT(4*RND)

    

    LET d=0

    LET c=INT(200*RND)

    

    GOTO 80

    

500 RANDOMIZE

    

    LET k=1+INT(4*RND)

    LET f=0

    LET e=INT(280*RND)

    

    GOTO 80

      

600 GOTO 60

    

    END

     

1505583554

ルーレットおみくじ



OPTION ANGLE DEGREES

5 LET  total=100

10 SET WINDOW  0,300,300,0

   LET  t=0

   SET TEXT FONT "MS 明朝",30

   PRINT "sキーを押して下さい。"

50 REM CHARACTER INPUT NOWAIT,ELAPSED n: s$

   

   CHARACTER INPUT CLEAR,ELAPSED n: s$

   

   IF s$ = "s" THEN GOTO 100

   GOTO 50

   

100 RANDOMIZE

    LET  om=INT(RND*18+1)*20*n

    FOR i=0 TO 720+om STEP 20

    

       CLEAR

       

       LET  t=i*i/10000

       LET  a=INT(RND*10)

       LET  p=a

       

       LET  a$=p$

       LET  b=INT(RND*10)

       LET  p=b

        

       LET  b$=p$

       LET  c=INT(RND*10)

       LET  p=c

       

       LET  c$=p$

       LET  d=INT(RND*10)

       LET  p=d

       

       LET  d$=p$

       LET  e=INT(RND*10)

       LET  p=e

       

       LET  e$=p$

       LET  f=INT(RND*10)

       LET  p=f

       

       LET  f$=p$

       LET  g=INT(RND*10)

       LET  p=g

       

       LET  g$=p$

       LET  h=INT(RND*10)

       LET  p=h

       

       LET  h$=p$

       LET  j=INT(RND*10)

       LET  p=j

        

       LET  j$=p$

       REM       PLOT TEXT ,AT 100,110,USING "## ## ##" : a$,b$,c$

       REM       PLOT TEXT ,AT 100,140,USING "## ## ##" : d$,e$,f$

       REM       PLOT TEXT ,AT 100,170,USING "## ## ##" : g$,h$,i$

       

       DRAW circle WITH SCALE(100)*SHIFT(150,150)

       DRAW circle WITH SCALE(80)*SHIFT(150,150)

       DRAW disk WITH SCALE(5)*SHIFT(90*COS(i)+150,90*SIN(i)+150)

       

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(20)+150,90*SIN(20)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(40)+150,90*SIN(40)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(60)+150,90*SIN(60)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(80)+150,90*SIN(80)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(100)+150,90*SIN(100)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(120)+150,90*SIN(120)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(140)+150,90*SIN(140)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(160)+150,90*SIN(160)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(180)+150,90*SIN(180)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(200)+150,90*SIN(200)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(220)+150,90*SIN(220)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(240)+150,90*SIN(240)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(260)+150,90*SIN(260)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(280)+150,90*SIN(280)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(300)+150,90*SIN(300)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(320)+150,90*SIN(320)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(340)+150,90*SIN(340)+150)

       DRAW circle WITH SCALE(5)*SHIFT(90*COS(360)+150,90*SIN(360)+150)

       

       WAIT DELAY t/800

       

    NEXT i

    

    500 SET TEXT HEIGHT 20

        

        IF COS(i)= COS(20) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(40) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(60) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(80) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(100) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(120) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(140) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(160) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(180) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(200) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(220) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(240) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(260) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(280) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(300) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(320) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(340) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        IF COS(i)= COS(360) THEN PLOT TEXT ,AT 150,150 : "大 吉"

        

        

        GOTO 10

        STOP

                 

   2000 END

1505579011

波紋が一部欠けてしまうバグについて。


SET LINE COLOR 0 の次の

plot lines を   PLOT POINTS に書き換える。


- 1 - - 2 - - 3 - - 4 - - 5 - - 6 - - 7 - - 8 - - 9 -