1532041998


迷路脱出

 

SET WINDOW 0,500,500,0

 

20 CLEAR

   

   !meiro

   SET LINE WIDTH   8

   SET LINE COLOR 73

   

   PLOT LINES:455,70;455,500  !migi1tate

   PLOT LINES:410,30;410,390  !migi2tate

   PLOT LINES:350,70;350,500  !migi3tate

   PLOT LINES:300,30;300,390  !migi4tate

   PLOT LINES:250,70;250,500  !migi5tate

   

   PLOT LINES:100,20000;30,30 !hidari1tate

   PLOT LINES:90,350;90,450   !hidari2tate(sita)

   PLOT LINES:120,30;120,70   !hidari3tate

   PLOT LINES:150,400;150,500 !hidari4tate(sita)

   

   PLOT LINES:30,30;460,30    !ue1yoko

   PLOT LINES:31,100;200,100  !ue2yoko

   PLOT LINES:31,150;50,150   !ue3yoko(hidari)

   PLOT LINES:90,150;250,150  !ue3yoko(migi)

   PLOT LINES:31,200;200,200  !ue4yoko

   PLOT LINES:90,250;250,250  !ue5yoko

   PLOT LINES:31,300;200,300  !ue6yoko

   PLOT LINES:90,350;250,350  !ue7yoko

   

   PLOT LINES:200,450;250,450 !sita1yoko

   PLOT LINES:150,400;200,400 !sita2yoko

   

   

   !keyboad control

125 CHARACTER INPUT NOWAIT: a$

130 IF a$ = "i" THEN LET  y = y-13

140 IF a$ = "j" THEN LET  x = x-13

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

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

160 IF a$ = "l" THEN LET  x = x+13

170 IF a$ = "m" THEN LET  y = y+13

    

    

    !meiro sen

    IF x<0 THEN LET x=0

    IF x>460 THEN LET x=460

    IF y<-455 THEN LET y=-455

    IF y>20 THEN LET y=20

    

    

    !goal

175 SET AREA STYLE "HATCH"

176 SET AREA STYLE INDEX 6

180 SET AREA COLOR 241

190 DRAW disk WITH SCALE(10)*SHIFT(230,480)

    

    

    !circle

200 SET AREA STYLE "SOLID"

210 SET AREA COLOR 184

250 DRAW disk WITH SCALE(10)*SHIFT(15+x,470+y)

    

    

    !goal moji

300 IF 200<x AND 230>x AND y< 20 AND y>-20 THEN

310    SET TEXT COLOR 247

       SET TEXT FONT "MS 明朝", 60

       PLOT TEXT , AT 210,250 : "GOAL"

320 END IF

    

1000 FOR TI=0 TO 1000000

     NEXT TI

1100 GOTO 20

     

     

  END

   

1532041749


グラスに氷を入れるゲーム

 

OPTION BASE 1

 

SET WINDOW  0,300,300,0

 

10 LET y2=0

   LET v=INT(300*RND)

   

20 CLEAR

   

25 CHARACTER INPUT NOWAIT: a$

   

40 IF a$ = "j" THEN LET  x = x-10

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

60 IF a$ = "l" THEN LET  x = x+10

   

   

   IF x>88 THEN LET x=88

   

   IF x<-108 THEN LET x=-108

   

   

   LET y2=y2+20

   

   

   SET AREA COLOR  38

   

   SET TEXT COLOR 1

   SET TEXT HEIGHT 20    

   PLOT TEXT ,AT 20,30: STR$(sum)

   

   

200 PLOT AREA: 108+x ,200+y ; 120+x ,300+y ; 200+x,300+y; 212+x,200+y

    

    

    SET COLOR 207

    

205 DRAW disk WITH SCALE(20)*SHIFT(v+x2,0+y2)

    

    SET AREA COLOR   207

    

207 PLOT LINES: 108+x , 200+y ; 120+x ,300+y ; 200+x,300+y; 212+x,200+y; 212+x,200+y;108+x , 200+y

    

    SET AREA COLOR  199

210 PLOT AREA: 200+x ,160+y ; 190+x ,300+y ; 200+x,300+y; 210+x,158+y

    

    SET AREA COLOR  56

    

220 PLOT AREA: 110+x ,220+y ; 120+x ,300+y ; 200+x,300+y; 210+x,220+y

    

    

    

    SET AREA COLOR  0

    

230 PLOT AREA: 120+x ,260+y ; 130+x ,270+y ; 140+x,265+y;130+x,250+y

    

    SET AREA COLOR  0

    

240 PLOT AREA: 142+x ,280+y ;  140+x ,290+y ; 150+x,285+y;150+x,280+y

    

    

    SET AREA COLOR   207

    

245 PLOT LINES: 108+x , 200+y ; 120+x ,300+y ; 200+x,300+y; 212+x,200+y;

    

    

280 IF v+x2>=140+x AND v+x2=<180+x THEN GOTO 285 ELSE GOTO 290

    

285 IF 0+y2>=220 AND 0+y2=<230 THEN GOTO 288 ELSE GOTO 290

    

288 LET sum = sum+10

    

    

290 FOR ti=0 TO 1000000

    NEXT ti

    

    

300 RANDOMIZE

    LET x2=INT(5*RND)

     

    IF y2>300 THEN GOTO 10

    

    GOTO 20

    

 END

 

 

1532041503


データに従って文字を描かせる。


10 SET WINDOW 0,500,500,0

   

   DATA 50,100,0,1

   DATA 55,100,1,0.5

   DATA 90,125,-1,0.5

   DATA 55,150,1,0.5

   DATA 90,175,-1,0.5

   

   DATA 120,190,0.25,-1

   DATA 145,100,0.25,1

   DATA 130,160,1,0.25

   

   DATA 240,105,-1,0.5

   DATA 205,120,0.5,1

   DATA 240,180,-1,0.5

   

   DATA 280,100,0,1

   

   DATA 330,100,0,1

   DATA 335,100,1,0.5

   DATA 365,175,-1,0.5

   

   

50 READ IF MISSING THEN 2000 : m,n,p,q

   

110 LET x=x+p

    LET y=y+q

    

    SET COLOR "black"   

    DRAW circle WITH SCALE(2)*SHIFT(m+x,n+y)

    

    SET COLOR "white"      

    DRAW disk WITH SCALE(1.9)*SHIFT(m+(x-1),n+y-1)

    

    

200 IF x>30 THEN GOTO 1000

220 IF y>90 THEN GOTO 1000

230 IF x<-30 THEN GOTO 1000

240 IF y<-90 THEN GOTO 1000

260 IF x=0 THEN GOTO 280

280 IF y=0 THEN GOTO 1000 

    

300 FOR ti=0 TO 100000

    NEXT ti

    

    GOTO 110

    

1000 LET x=0

     LET y=0

     

     GOTO 50

     

2000 END

  

  

  

 

 

1532041006


色を作る。10,10,10 のように赤、緑、青の数値を入力する。


SET WINDOW  0 , 310 , 300 , 0

 

10 INPUT x1,x2,x3

 

PRINT x1,x2,x3   

   

   LET r=x1

   LET g=x2

   LET b=x3

   

   SET COLOR MIX(80) r,g,b

   

   SET AREA COLOR 80

   PLOT AREA:0,0;0,310;310,310;310,0

   

2200 GOTO 10

     

  END

  

 

1531432153

団子くしざしゲーム


5 SET WINDOW 0,300,300,0

  

50

   

   

   

   LET a=30

   LET b=0

   LET i1=4

   

   LET c=60

   LET d=0

   LET i2=5

   

   LET e=90

   LET f=0

   LET i3=6

   

   LET g=120

   LET h=0

   LET i4=7

   

   LET i=180

   LET j=0

   LET i5=8

   

   LET k=210

   LET l=0

   LET i6=9

   

   LET m=240

   LET n=0

   LET i7=10

   

   LET o=270

   LET p=0

   LET i8=11

   

   LET c1=5

   LET c2=13

   LET c3=24

   LET c7=43

   LET c9=240

   LET c10=52

   LET c13=56

   LET c14=206

   LET c4=0

   LET c5=0

   LET c6=0

   LET c8=0

   LET c11=0

   LET c12=0

   LET c15=0

   LET c16=0

   

   LET d4=0

   LET d5=0

   LET d6=0

   LET d8=0

   LET d11=0

   LET d12=0

   LET d15=0

   LET d16=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

   

   LET co=co+1

   

70 LET b=b+i1

   

   LET d=d+i2

   

   LET f=f+i3

   

   LET h=h+i4

   

   LET j=j+i5

   

   LET l=l+i6

   

   LET n=n+i7

   

   LET p=p+i8

   

80 SET AREA COLOR c1

   

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

   

   SET AREA COLOR c2

   

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

   

   SET AREA COLOR c3

   

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

   

   SET AREA COLOR c7

   

   DRAW disk WITH SCALE(8)*SHIFT(h,g)

   

   SET AREA COLOR c9

   

   DRAW disk WITH SCALE(8)*SHIFT(j,i)

   

   SET AREA COLOR c10

   

   DRAW disk WITH SCALE(8)*SHIFT(l,k)

   

   SET AREA COLOR c13

   

   DRAW disk WITH SCALE(8)*SHIFT(n,m)

   

   SET AREA COLOR c14

   

   DRAW disk WITH SCALE(8)*SHIFT(p,o)

   

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 LINE COLOR 27

   SET LINE WIDTH 5

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

   

   

   SET COLOR c4

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

   

   SET COLOR c5

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

   

   SET COLOR c6

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

   

   SET COLOR c8

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

   

   SET COLOR c11

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

   

   SET COLOR c12

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

   

   SET COLOR c15

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

   

   SET COLOR c16

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

   

   

   FOR ti=1 TO 100000

   NEXT ti

   

   IF 150+x<b+5 THEN GOTO 91  ELSE GOTO 92

91 IF 150+x>b-5 THEN GOTO 110

92 IF 150+x<d+5 THEN GOTO 93  ELSE GOTO 94

93 IF 150+x>d-5 THEN GOTO 120

94 IF 150+x<f+5 THEN GOTO 95  ELSE GOTO 96

95 IF 150+x>f-5 THEN GOTO 130

96 IF 150+x<h+5 THEN GOTO 97  ELSE GOTO 98

97 IF 150+x>h-5 THEN GOTO 140

98 IF 150+x<j+5 THEN GOTO 99  ELSE GOTO 100

99 IF 150+x>j-5 THEN GOTO 150

100 IF 150+x<l+5 THEN GOTO 101 ELSE GOTO 102

101 IF 150+x>l-5 THEN GOTO 200

102 IF 150+x<n+5 THEN GOTO 103 ELSE GOTO 104

103 IF 150+x>n-5 THEN GOTO 210

104 IF 150+x<p+5 THEN GOTO 105 ELSE GOTO 106

105 IF 150+x>p-5 THEN GOTO 220

    

106 GOTO 2160

    

110 IF 150+y<a+5 THEN GOTO 111 ELSE GOTO 2160

111 IF 150+y>a-5 THEN GOTO 1130

120 IF 150+y<c+5 THEN GOTO 121 ELSE GOTO 2160

121 IF 150+y>c-5 THEN GOTO 1140

130 IF 150+y<e+5 THEN GOTO 131 ELSE GOTO 2160

131 IF 150+y>e-5 THEN GOTO 1150

140 IF 150+y<g+5 THEN GOTO 141 ELSE GOTO 2160

141 IF 150+y>g-5 THEN GOTO 1180

150 IF 150+y<i+5 THEN GOTO 151 ELSE GOTO 2160

151 IF 150+y>i-5 THEN GOTO 1230

200 IF 150+y<k+5 THEN GOTO 201 ELSE GOTO 2160

201 IF 150+y>k-5 THEN GOTO 1240

210 IF 150+y<m+5 THEN GOTO 211 ELSE GOTO 2160

211 IF 150+y>m-5 THEN GOTO 1250

220 IF 150+y<o+5 THEN GOTO 221 ELSE GOTO 2160

221 IF 150+y>o-5 THEN GOTO 1260

    

    GOTO 2160

    

1130 LET c1=0

     LET c4=5

     LET d4=8

     GOTO 2160

     

1140 LET c2=0

     LET c5=13

     LET d5=8

     GOTO 2160

     

1150 LET c3=0

     LET c6=24

     LET d6=8

     GOTO 2160

     

1180 LET c7=0

     LET c8=43

     LET d8=8

     GOTO 2160

     

1230 LET c9=0

     LET c11=240

     LET d11=8

     GOTO 2160

     

1240 LET c10=0

     LET c12=52

     LET d12=8

     GOTO 2160

     

1250 LET c13=0

     LET c15=56

     LET d15=8

     GOTO 2160

     

1260 LET c14=0

     LET c16=206

     LET d16=8

     GOTO 2160

     

2160 IF b>300 THEN GOTO 2300

     

     IF d>300 THEN GOTO 2400

     

     IF f>300 THEN GOTO 2500

     

     IF h>300 THEN GOTO 2700

     

     IF j>300 THEN GOTO 2800

     

     IF l>300 THEN GOTO 2900

     

     IF n>300 THEN GOTO 21000

     

     IF p>300 THEN GOTO 21100

     

2270 GOTO 60

     

2300 RANDOMIZE

     

     LET i1=1+INT(4*RND)

     

     LET b=0

     LET a=INT(100*RND)

     

     GOTO 80

     

2400 RANDOMIZE

     

     LET i2=1+INT(4*RND)

     

     LET d=0

     LET c=INT(200*RND)

     

     GOTO 80

     

2500 RANDOMIZE

     

     LET i3=1+INT(4*RND)

     

     LET f=0

     LET e=INT(280*RND)

     

     GOTO 80

     

2700 RANDOMIZE

     

     LET i4=1+INT(4*RND)

     

     LET h=0

     LET g=INT(280*RND)

     

     GOTO 80

     

2800 RANDOMIZE

     

     LET i5=1+INT(4*RND)

     

     LET j=0

     LET i=INT(280*RND)

     

     GOTO 80

     

2900 RANDOMIZE

      

     LET i6=1+INT(4*RND)

     

     LET l=0

     LET k=INT(280*RND)

     

     GOTO 80

     

21000 RANDOMIZE

      

      LET i7=1+INT(4*RND)

      

      LET n=0

      LET m=INT(280*RND)

      

      GOTO 80

      

21100 RANDOMIZE

      

      LET i8=1+INT(4*RND)

      

      LET p=0

      LET o=INT(280*RND)

      

      GOTO 80

      

22600 SET TEXT COLOR 1

      PLOT TEXT,AT 200,200:"point"

      

      

      GOTO 60

      

      

      

      

      END

1531432033


ビッグバン

 

5 SET WINDOW 0,300,300,0

  

  LET t = 50

  LET count = 100

  LET num = 0

  DIM POSX(count)

  DIM POSY(count)

  DIM SCALE(count)

  DIM COLOR(count)

  

10 FOR i=1 TO count

   

      LET POSX(i) = INT(300*RND)

      LET POSY(i) = INT(300*RND)

      LET SCALE(i) = INT(5*RND+1)

      

   NEXT i

   

20 FOR i=1 TO 10000

   NEXT i

   

   SET AREA COLOR 0

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

   

30 FOR ti=1 TO count

   

40    IF POSX(ti) = 150 THEN

      

      ELSE

         IF POSX(ti) < 150 THEN

            LET POSX(ti) = POSX(ti) + (150 - POSX(ti)) / t

         ELSE

            LET POSX(ti) = POSX(ti) - (POSX(ti) - 150) / t

         END IF

      END IF

      

      

50    IF POSY(ti) = 150 THEN

      

      ELSE

         IF POSY(ti) < 150 THEN

            LET POSY(ti) = POSY(ti) + (150 - POSY(ti)) / t

         ELSE

            LET POSY(ti) = POSY(ti) - (POSY(ti) - 150) / t

         END IF

      END IF

      

       

60    SET AREA COLOR 1

      DRAW disk WITH SCALE(SCALE(ti))*SHIFT(POSX(ti),POSY(ti))

      

70    IF POSX(ti) > 149.5 AND POSX(ti) < 150.5 THEN

         IF POSY(ti) > 149.5 AND POSY(ti) < 150.5 THEN

            LET num = num + 1

         END IF

      END IF

      

80 NEXT ti

   

90 IF num = count THEN

      GOTO 110

   ELSE

      LET num = 0

   END IF

   

100 GOTO 20

    

110 FOR i=1 TO 1000000

    NEXT i

    

120 FOR i=1 TO count

    

       LET POSX(i) = INT(300*RND)

       LET POSY(i) = INT(300*RND)

       LET SCALE(i) = INT(5*RND+1)

       LET COLOR(i) = INT(14*RND+2)

       

    NEXT i

    

130 SET AREA COLOR 0

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

    

140 FOR ti=1 TO count

    

       SET AREA COLOR COLOR(ti)

       DRAW disk WITH SCALE(SCALE(ti))*SHIFT(POSX(ti),POSY(ti))

       

    NEXT ti

    

150 FOR i=1 TO 5000000

    NEXT i

    

160 LET num = 0

    GOTO 20

    

    END

1531431873

魔法陣


 

10 DECLARE EXTERNAL PICTURE tri

   

   OPTION ANGLE DEGREES

   

   

   SET WINDOW -1.5,1.5,1.5,-1.5

   

   SET AREA COLOR 1

   REM FOR r=0 TO 1

   SET AREA COLOR 1

   PLOT AREA:-1.5,1.5;1.5,1.5;1.5,-1.5;-1.5,-1.5

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.25)*SHIFT(0,0)

   

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.22)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.03)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.90)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET AREA COLOR 1

   DRAW circle WITH SCALE(1)*SHIFT(0,0)

   PLOT LINES:SIN (60),COS (60);SIN (180),COS(180);SIN(300),COS(300);sin(60),cos(60)

   

   

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET AREA COLOR 1

   DRAW circle WITH SCALE(1)*SHIFT(0,0)

   PLOT LINES:SIN (0),COS (0);SIN (120),COS(120);SIN(240),COS(240);sin(0),cos(0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   PLOT LINES:(SIN (30))/2,(COS (30))/2;(SIN (150))/2,(COS(150))/2;(SIN(270))/2,(COS(270))/2;(SIN(30))/2,(COS(30))/2

   plot LINES:(SIN (30))/2.2,(COS (30))/2.2;(SIN (150))/2.2,(COS(150))/2.2;(SIN(270))/2.2,(COS(270))/2.2;(SIN(30))/2.2,(COS(30))/2.2

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   PLOT LINES:(SIN (90))/2,(COS (90))/2;(SIN (210))/2,(COS(210))/2;(SIN(330))/2,(COS(330))/2;(sin(90))/2,(cos(90))/2

   PLOT LINES:(SIN (90))/2.2,(COS (90))/2.2;(SIN (210))/2.2,(COS(210))/2.2;(SIN(330))/2.2,(COS(330))/2.2;(SIN(90))/2.2,(COS(90))/2.2

   

   

   

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   

   

   

   

   

   SET LINE COLOR 5

   SET LINE STYLE 1

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

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.47)*SHIFT(0,0)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0,-0.67)

   DRAW circle WITH SCALE(0.145)*SHIFT(0,-0.67)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,-0.33)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,0.33)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0,0.67)

   DRAW circle WITH SCALE(0.145)*SHIFT(0,0.67)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   

   

   

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(-0.58,0.33)

   

   FOR ti=0 TO 1000000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,-0.33)

   

   FOR ti=0 TO 100000

   NEXT ti

   

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(-0.58,-0.33)

   

   FOR ti=0 TO 2000000

   NEXT ti

   

   

   FOR th=0 TO 360 STEP 30

   

      DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(th)+0.02,1.12*cos(th)+0.9)

      

   NEXT th

   

   

   FOR ti=0 TO 2000000

   NEXT ti

   

   

50 FOR rt=0 TO 360

   

      SET AREA COLOR 1

      

      PLOT AREA:-1.5,1.5;1.5,1.5;1.5,-1.5;-1.5,-1.5

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      

      DRAW circle WITH SCALE(1.25)*SHIFT(0,0)

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      

      DRAW circle WITH SCALE(1.22)*SHIFT(0,0)

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      

      DRAW circle WITH SCALE(1.03)*SHIFT(0,0)

      DRAW circle WITH SCALE(0.90)*SHIFT(0,0)

      

      

      SET AREA COLOR 1

      DRAW circle WITH SCALE(1)*SHIFT(0,0)

      

      PLOT LINES:SIN (60+rt),COS (60+rt);SIN (180+rt),COS(180+rt);SIN(300+rt),COS(300+rt);SIN(60+rt),COS(60+rt)

      

      PLOT LINES:(SIN (90+rt))/2,(COS (90+rt))/2;(SIN (210+rt))/2,(COS(210+rt))/2;(SIN(330+rt))/2,(COS(330+rt))/2;(sin(90+rt))/2,(cos(90+rt))/2

      PLOT LINES:(SIN (90+rt))/2.2,(COS (90+rt))/2.2;(SIN (210+rt))/2.2,(COS(210+rt))/2.2;(SIN(330+rt))/2.2,(COS(330+rt))/2.2;(SIN(90+rt))/2.2,(COS(90+rt))/2.2

      

      

      

      SET AREA COLOR 1

      DRAW circle WITH SCALE(1)*SHIFT(0,0)

      

      PLOT LINES:SIN (0+rt),COS (0+rt);SIN (120+rt),COS(120+rt);SIN(240+rt),COS(240+rt);SIN(0+rt),COS(0+rt)

      

      PLOT LINES:(SIN (30+rt))/2,(COS (30+rt))/2;(SIN (150+rt))/2,(COS(150+rt))/2;(SIN(270+rt))/2,(COS(270+rt))/2;(SIN(30+rt))/2,(COS(30+rt))/2

      plot LINES:(SIN (30+rt))/2.2,(COS (30+rt))/2.2;(SIN (150+rt))/2.2,(COS(150+rt))/2.2;(SIN(270+rt))/2.2,(COS(270+rt))/2.2;(SIN(30+rt))/2.2,(COS(30+rt))/2.2

      

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

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

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(0.47)*SHIFT(0,0)

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

55    REM DRAW circle WITH SCALE(0.165)*SHIFT(0,-0.67)

      

60    DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(240+rt) ,0.67*COS(240+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(240+rt) ,0.67*COS(240+rt))

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(300+rt),0.67*COS(300+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(300+rt),0.67*COS(300+rt))

      

      

       

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0,0.67)

      DRAW circle WITH SCALE(0.165)*SHIFT(-0.67*SIN(180+rt),-0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(-0.67*SIN(180+rt),-0.67*COS(180+rt))

      

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(420+rt),0.67*COS(420+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(420+rt),0.67*COS(420+rt))

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(480+rt),0.67*COS(480+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(480+rt),0.67*COS(480+rt))

      

      

      

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      

      

      FOR th=0 TO 0 STEP 30

      

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(180+rt)+0.02,1.12*cos(180+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(210+rt)+0.02,1.12*COS(210+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(240+rt)+0.02,1.12*COS(240+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(270+rt)+0.02,1.12*COS(270+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(300+rt)+0.02,1.12*COS(300+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(330+rt)+0.02,1.12*COS(330+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(360+rt)+0.02,1.12*cos(360+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(390+rt)+0.02,1.12*COS(390+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(420+rt)+0.02,1.12*COS(420+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(450+rt)+0.02,1.12*COS(450+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(480+rt)+0.02,1.12*COS(480+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(510+rt)+0.02,1.12*COS(510+rt)+0.9)

         

         

         

         

         

         

         

         

      NEXT th

      

      FOR ti=0 TO 200000

      NEXT ti

      

      

   NEXT rt

   

   END

100 EXTERNAL PICTURE tri(n)

    

    PLOT LINES: 0,-1.19;0.1,-1.05;-0.1,-1.05;0,-1.19;

    PLOT LINES: 0,-1.05;0.1,-1.19;-0.1,-1.19;0,-1.05;

    

    

    

    END PICTURE

   

    

1531431671

生き方さがし


 10 CLEAR

   SET AREA COLOR 24

   SET TEXT COLOR 25

   SET WINDOW 0 , 300 , 300 ,0

   SET TEXT FONT "MS ゴシック",15

   PLOT TEXT ,AT 60,100 :"?独り身でいる"

   PLOT TEXT ,AT 60,140 :"?女友達と遊ぶ"

   SET TEXT FONT "MS ゴシック",20

   PLOT TEXT ,AT 61,180 :"??イケメンとの出会いを探しにいく"

   SET TEXT FONT "MS ゴシック",10

   PLOT TEXT ,AT 200,220 :"Sキーで進む"

   

100 CHARACTER INPUT CLEAR: s$

    

    IF s$ = "s" THEN GOTO 200

    

200 CLEAR

300 RANDOMIZE

500 LET ikmn=INT(RND*14+1)

600 IF ikmn=1 THEN

       SET TEXT FONT "MS 明朝",35

       SET TEXT COLOR 16

       PLOT TEXT ,AT 120,150 :"イケメン"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 120,200 :"やったね!"

    ELSEIF ikmn=2 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 25

       PLOT TEXT ,AT 130,150 :"モブ顔"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 10

       PLOT TEXT ,AT 130,200 :"ぼちぼち"

    ELSEIF ikmn=3 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 38

       PLOT TEXT ,AT 110,150 :"犬顔男子"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 24

       PLOT TEXT ,AT 130,200 :"可愛い"

    ELSEIF ikmn=4 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 69

       PLOT TEXT ,AT 100,150 :"雰囲気イケメン"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 8

       PLOT TEXT ,AT 130,200 :"おしい…"

    ELSEIF ikmn=5 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 54

       PLOT TEXT ,AT 90,100 :"超どストライク"

       PLOT TEXT ,AT 135,140 :"イケメン"

       SET TEXT FONT "MS 明朝",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 100,190 :"神様ありがとう!"

    ELSEIF ikmn=6 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 70

       PLOT TEXT ,AT 130,150 :"キモオタ"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 13

       PLOT TEXT ,AT 90,200 :"デュフフじゃねえよ"

    ELSEIF ikmn=7 THEN

       SET TEXT FONT "MS 明朝",35

       SET TEXT COLOR 27

       PLOT TEXT ,AT 90,110 :"インテリ眼鏡"

       PLOT TEXT ,AT 100,150 :"(ブス)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 2

       PLOT TEXT ,AT 130,200 :"残念"

    ELSEIF ikmn=8 THEN

       SET TEXT FONT "MS 明朝",35

       SET TEXT COLOR 56

       PLOT TEXT ,AT 90,110 :"インテリ眼鏡"

       PLOT TEXT ,AT 100,150 :"(イケメン)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 130,200 :"最高!"

    ELSEIF ikmn=9 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 15

       PLOT TEXT ,AT 150,150 :"ハゲ"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 59

       PLOT TEXT ,AT 120,200 :"ザビエルwww"

    ELSEIF ikmn=10 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 72

       PLOT TEXT ,AT 100,110 :"ゴリマッチョ"

       PLOT TEXT ,AT 105,150 :"(イケメン)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 24

       PLOT TEXT ,AT 100,200 :"抱きしめられたい"

    ELSEIF ikmn=11 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 70

       PLOT TEXT ,AT 100,110 :"ゴリマッチョ"

       PLOT TEXT ,AT 120,150 :"(ゴリラ)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 1

       PLOT TEXT ,AT 90,200 :"バナナをあげよう"

    ELSEIF ikmn=12 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 80

       PLOT TEXT ,AT 130,110 :"塩顔男子"

       PLOT TEXT ,AT 115,150 :"(イケメン)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 17

       PLOT TEXT ,AT 110,200 :"カムサハムニダ"

    ELSEIF ikmn=13 THEN

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 72

       PLOT TEXT ,AT 110,110 :"塩顔男子"

       PLOT TEXT ,AT 115,150 :"(微妙)"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 72

       PLOT TEXT ,AT 120,200 :"うん。。。"

    ELSE

       SET TEXT FONT "MS ゴシック",35

       SET TEXT COLOR 12

       PLOT TEXT ,AT 120,130 :"ブサイク"

       SET TEXT FONT "MS ゴシック",30

       SET TEXT COLOR 1

       PLOT TEXT ,AT 120,180 :"ドンマイ"

       

    END IF

    

900 CHARACTER INPUT CLEAR: s$

    

    IF s$ = "s" THEN GOTO 10

    

1000 END

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