TOBAKU

  1. M=1000:T=0
  2. Lbl 1
  3. T=T+1
  4. Lbl 0
  5. {B}
  6. M:"YOU HAVE":Pause 2
  7. B:"BET"
  8. B=Int B
  9. B>M[then]Goto 0:[else]B<1[then]Goto 0[eoi][eoi]
  10. Lbl 2
  11. {Y}
  12. Y"WHICH(1-6)"
  13. Y=Int Y
  14. Y<1[then]Goto ":[else]Y>6[then]Goto 2[eoi][eoi]
  15. S=Int(Ran#×6+1)
  16. Y[noteq]S[then]M=M-B:S:"LOSE・・・":Pause 3:[else]M=M+B×5:S:"WIN!":Pause 3[eoi]
  17. M>0[then]Goto 1[eoi]
  18. Lbl 2
  19. T:"GAME OVER"

←戻る