TIME
  1. R=0:H=0
  2. Lbl 1
  3. {T}
  4. T"TIME"
  5. T=0[then]Goto 2[end
  6. A=Int(T/100)
  7. R=R-A×40+T
  8. Goto 1
  9. Lbl 2
  10. R≦59[then]Goto 3[end
  11. R=R-60:H=H+1
  12. Goto 2
  13. Lbl 3
  14. H×100+R:"TOTAL"
←戻る