N88-BASIC でズンドコキヨシ

  • 1
    いいね
  • 1
    コメント
この記事は最終更新日から1年以上が経過しています。

ズンドコキヨシの 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 "キ・ヨ・シ!"