Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2020/07/24 18:55:00

MixJuice GET URL : kidspod.club/mj/989

7777 SLOT !!!!

7777がでるまでファンクションキー[F5]を押してください。

  • 1
  • 1

SOURCE CODE

10 '7777 SLOT VER.6
20 VIDEO3:A=0:B=0:C=0:D=0:I=0:F=0:X=7
30 I=I+1
40 IF F=0 A=RND(10):B=RND(10):C=RND(10):D=RND(10)
50 IF F=1 B=RND(10):C=RND(10):D=RND(10)
60 IF F=2 C=RND(10):D=RND(10)
70 IF F=3 D=RND(10)
80 IF A=X F=1
90 IF A=X AND B=X F=2
100 IF A=X AND B=X AND C=X F=3
110 IF A=X AND B=X AND C=X AND D=X F=4
120 LET[0],A,B,C,D:?[0];[1];[2];[3]
130 IF F=4 ?"     !!!!":BEEP9,10:WAIT30:BEEP9,10:WAIT20:BEEP8,40:GOTO160 ELSE ?"":BEEP80
140 IF I>=16 GOTO160
150 WAIT8:CLS:GOTO30
160 END

COMMENT