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"
←戻る