N88-BASIC でズンドコキヨシ

  • 1
    Like
  • 1
    Comment
More than 1 year has 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 "キ・ヨ・シ!"