ズンドコキヨシの N88-BASIC 版を書きました。
10 DEFINT R,Z
20 RANDOMIZE (VAL(RIGHT$(TIME$,2)))
30 Z=0
40 R=CINT(RND)
50 IF R THEN PRINT "ズン " ;: Z=Z+1 ELSE PRINT "ドコ ";: IF Z>=4 THEN GOTO 70 ELSE Z=0
60 GOTO 40
70 PRINT "キ・ヨ・シ!"
More than 5 years have passed since last update.
ズンドコキヨシの N88-BASIC 版を書きました。
10 DEFINT R,Z
20 RANDOMIZE (VAL(RIGHT$(TIME$,2)))
30 Z=0
40 R=CINT(RND)
50 IF R THEN PRINT "ズン " ;: Z=Z+1 ELSE PRINT "ドコ ";: IF Z>=4 THEN GOTO 70 ELSE Z=0
60 GOTO 40
70 PRINT "キ・ヨ・シ!"
Register as a new user and use Qiita more conveniently