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 - - 7 - - 8 - - 9 -