スーパー数当てゲーム

スーパー数当てゲーム

• BASICリスト(MSX BASIC1.0以降)

10 CLS:C=0:S=0
20 L=7
30 N=1:DIM D$(5):RESTORE 280:FOR I=1 TO 5:READ D$(I):NEXT I
40 PRINT "*** ｽｰﾊﾟｰ ｶｽﾞｱﾃ ｹﾞｰﾑ ***":PRINT
50 K=1:C=C+1:R=INT(RND(-TIME)*100)
60 A=0:INPUT "ｲｸﾂ ﾀﾞﾄ ｵﾓｳ? (0-99)";A
70 IF A=R THEN 120
80 PRINT "ﾁｶﾞｳﾜ! ﾓｯﾄ ";
90 IF A<R THEN PRINT"ｳｴ ﾖ!" ELSE PRINT "ｼﾀ ﾖ!"
100 K=K+1:PRINT
110 GOTO 60
120 PRINT:PRINT "ｱﾀﾘ!":PRINT
130 PRINT K;"ｶｲﾃﾞ ｱﾃﾀﾜ":PRINT:S=S+K
140 IF K>L THEN PRINT"ｻﾞﾝﾈﾝ ﾀﾞｹﾄﾞ ｺﾞﾎｳﾋﾞ ﾊ ｵｱｽﾞｹ ﾈ":PRINT:GOTO 220
150 PRINT L;"ｶｲ ｲﾅｲﾃﾞ ｱﾃﾀｶﾗ ";:IF N>2 THEN PRINT "ﾊｽﾞｶｼｲｹﾄﾞ ";
160 PRINT D$(N);" ｦ ﾇｸﾞﾜﾈ":PRINT
170 N=N+1:IF N<6 THEN 220
180 PRINT "ﾓｳ ﾇｸﾞﾓﾉｶﾞ ﾅｲﾜ"
190 PRINT "ｱﾅﾀ ﾅｶﾅｶ ﾔﾙﾜﾈ"
200 PRINT "ｱｧ ｽﾃｷﾖ...":PRINT
210 GOTO 250
220 INPUT "ﾓｯﾄ ｽﾙ? (Y/N)";A$:PRINT
230 IF A$="Y" OR A$="y" THEN 50
240 PRINT "ｱﾅﾀ ｲｸｼﾞﾅｼﾈ":PRINT
250 PRINT "ｾｲｶｲ ﾏﾃﾞﾉ ﾍｲｷﾝ ｶｲｽｳﾊ";S/C;"ｶｲ ﾃﾞｼﾀ"
260 PRINT "ﾊﾞｲﾊﾞｲ!"
270 END
280 DATA "ｸﾂｼﾀ","ｳﾜｷﾞ","ｽｶｰﾄ","ﾌﾞﾗｼﾞｬｰ","ﾊﾟﾝﾃｨ"

---