第１回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ

77 ：ナイコンさん：01/12/25 00:31.net

>>56をさらに勝手に改造

N88-BASIC
10 REM *** ｼﾞﾝｺｳﾑﾉｳ ｵﾏｴﾓﾅｰ ｼﾞﾄﾞｳ　ｼﾞｻﾞｸｼﾞｴﾝ v1.1 ***
20 CLS
30 DIM A$(5)
40 C=0
50 FOR I=1 TO 5
60 READ A$(I)
70 NEXT
80 INPUT B$
90 PRINT 1;" ﾅﾏｴ:ﾅｲｺﾝｻﾝ　ﾄｳｺｳﾋﾞ:";DATE$;" ";LEFT$(TIME$,5)
100 PRINT "　　　　";B$
110 FOR I=2 TO 1000
120 R=INT(RND(1)*5)+1:IF 1001-I=100-C THEN R=1
130 IF C=100 THEN R=INT(RND(1)*4)+2
140 PRINT I;" ﾅﾏｴ:ﾅｲｺﾝｻﾝ　ﾄｳｺｳﾋﾞ:";DATE$;" ";LEFT$(TIME$,5)
150 PRINT " >>";I-1
160 PRINT "　　　　";A$(R)
170 IF R=1 THEN C=C+1
180 NEXT
190 PRINT " 1001 ﾅﾏｴ:1001　ﾄｳｺｳﾋﾞ:Over 1000 Thread"
200 PRINT "　　　　ｺﾉｽﾚｯﾄﾞﾊ1000ｦｺｴﾏｼﾀ"
210 PRINT " ﾓｳｶｹﾅｲﾉﾃﾞ ｱﾀﾗｼｲｽﾚｯﾄﾞｦﾀﾃﾃｸﾀﾞｻｲ"
220 END
230 DATA "ｵﾏｴﾓﾅｰ","ｲｯﾃﾖｼ","ﾊｧﾊｧ","ﾊｹﾞｼｸﾄﾞｳｲ","ﾜﾗﾀ"

ちゃんと"ｵﾏｴﾓﾅｰ"は100回表示されるはず。