home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 April / Ahoy_Magazine_88-04_1988_Double_L.d64 / Time Machine (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  398 b   |  14 lines
  1. 0 print"[147]"tab(13)"time machine":print
  2. 1 rem =================================
  3. 2 rem    commodares problem #48-3 :
  4. 3 rem      time machine
  5. 4 rem    solution by
  6. 5 rem      john thelen
  7. 6 rem =================================
  8. 10 input"hrs.,min.,amt.";h,m,a:gosub 30
  9. 20 a=0-a: gosub 30: end
  10. 30 b=h*60+m+a: c=b/60
  11. 40 if int(c)<1 then c=12+c: goto 40
  12. 50 if int(c)>12 then c=c-12: goto 50
  13. 60 b=c-int(c): d=b/1.67: print int(c)":"int(100*d+.5): return
  14.