home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 80 / basic / math / time.80 < prev   
Encoding:
Text File  |  2001-07-01  |  1.0 KB  |  41 lines
  1. Time conversion
  2. -----------------------------------------------------------------------------
  3. Version: 1.0, 980215
  4. Creator: Daniel Bergman.
  5. Descriprion: The programs makes hours, minutes and seconds into decimals
  6.              and vice versa. If an intergrer is being inputed as a hour, 
  7.              the calculator asks for minutes and seconds. If you input a
  8.              number with decimals, it's converted into hour, min, sec.
  9. Comments: "->" is the "STO>"-button, no DISP needed in the last row.
  10. Known bugs: None.
  11. Storlek: 155 bytes.
  12.  
  13. For more games and programs, please visit http://ti80.burtrask.net.
  14.  
  15. PROGRAM:TIME
  16. INPUT "HOUR?",A
  17. IF FPART A=0
  18. GOTO 2
  19. DISP "HOUR:"
  20. IF A<1
  21. THEN
  22. DISP 0
  23. ELSE
  24. IPART A->T
  25. FPART A->A
  26. DISP T
  27. END
  28. IPART (60A->T
  29. DISP "MIN:",T
  30. (FPART (60A)x60->A
  31. DISP "SEC:",A
  32. STOP
  33. LBL 2
  34. INPUT "MIN?",M
  35. INPUT "SEK?",S
  36. DISP "HOUR:"
  37. A+M/60+S/3600
  38.  
  39. --------------------------------------------------------------------
  40. Copyright (C) 1998 by Daniel Bergman & Mattias MorΘn
  41. http://ti80.burtrask.net