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

98 ：MZ-1500：01/12/28 12:05.net

10 CLS
20 DIM C$(9)
30 FOR I=0 TO 16:READ C$(I):NEXT I
40 MN=0
50 CC=INT(RND(1)*7)+1:CR=INT(RND(1)*17)
60 COLOR CC,0:PRINT C$(CR);
70 IF CR=0 THEN MN=MN+1
80 IF MN<100 THEN 50
90 END
100 DATA "ｵﾏｴﾓﾅｰ ","ｲｯﾃﾖｼ ","ﾏﾀｰﾘ ","ｻﾗｼage ","（ﾜﾗ ","（・ｗ・）V "
110 DATA ">>1ｻｰﾝ! ","ﾔﾒﾚ ","ｳﾌﾟ ｷﾎﾞﾝﾇ ","ｱﾎﾞｰﾝ ","（＞ω＜)Σｶﾞｰﾝ "
120 DATA "(・∀・）ｲｲ ","ﾜｼｮｰｲ ","(ﾌﾟ ","2ﾁｬﾝﾈﾗ ","DO-YO! ","ｻｲｺｰ "


:FOR I=1 TO 100:PRINT"ｵﾏｴﾓﾅｰ";:NEXT I:END


1行プログラム