• No registered tag exist.

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

Pagetop