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

2020/10/25 21:41:13

MixJuice GET URL : kidspod.club/mj/1031

スロット

なかなかそろわん。
RNDだもん。

  • No registered tag exist.

SOURCE CODE

1 'スロット
10 CLS:E=0
20 PRINT"00000"
30 IFBTN()=0 GOTO30
35 IFBTN()=1 GOTO35
40 CLS:A=RND(9):B=RND(9):C=RND(9):D=RND(9):F=RND(9):E=0
50 ?CHR$(A+48):LOCATE1,0:?CHR$(B+48):LOCATE2,0:?CHR$(C+48):LOCATE3,0:?CHR$(D+48):LOCATE4,0:?CHR$(F+48):BEEP10,5:WAIT3
60 IFBTN()=0:GOTO40
70 CLS:A=RND(9):B=RND(9):C=RND(9):D=RND(9):F=RND(9)
80 ?CHR$(A+48):LOCATE1,0:?CHR$(B+48):LOCATE2,0:?CHR$(C+48):LOCATE3,0:?CHR$(D+48):LOCATE4,0:?CHR$(F+48):BEEP10,5:WAITE
85 E=E+RND(7)
90 IFE<RND(30)+40:GOTO70
100 BEEP10,10:WAIT10
110 BEEP9,10:WAIT10
130 IFBTN()=0 GOTO30
140 IFBTN()=1 GOTO40

COMMENT