home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sys / hp48 / 6680 < prev    next >
Encoding:
Text File  |  1993-01-05  |  1.1 KB  |  54 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!mcsun!news.funet.fi!hydra!klaava!cc.helsinki.fi!sinenmaa
  3. From: sinenmaa@cc.helsinki.fi
  4. Subject: a fixed object for the tyko
  5. Message-ID: <1993Jan5.112909.1@cc.helsinki.fi>
  6. Lines: 43
  7. Sender: news@klaava.Helsinki.FI (Uutis Ankka)
  8. Organization: University of Helsinki
  9. Date: Tue, 5 Jan 1993 09:29:09 GMT
  10.  
  11.  
  12.  
  13. Sorry, but there is a bug in my program Tyko (v3.0 -- 3.1).
  14. ( a minor time error when calculating ancient times )
  15. So, if anybody are using it here (below)  was a fixed object
  16. is called CADA inside Tyko-program.
  17.  
  18. You can purge the old CADA or edit it to the same as this one is.
  19. Note that this program requires Tyko-environment to run, so this
  20. is useless alone.
  21.  
  22. regards, kati
  23.  
  24. <<===>> cut about here <<===>>
  25.  
  26. %%HP: T(3)A(D)F(.);
  27. \<< STD 0 RND \-> J
  28.   \<<
  29.     IF J 4479.5 <
  30.     THEN
  31. "Distant date"
  32. DOERR
  33.     END J 1 + 7 /
  34. FP 7 * 0 RND 1 +
  35. DAMO SWAP GET
  36.     IF JG SIZE 10
  37. ==
  38.     THEN J 4479.5 -
  39. 36524.25 / IP .75 *
  40. 5 + IP 37 - J +
  41.     ELSE J
  42.     END DUP 59.25 -
  43. 365.25 MOD IP DUP
  44. 5 + 30.6 / IP 2 +
  45. 12 MOD 9 + DAMO
  46. SWAP GET SWAP .5 +
  47. 30.6 MOD IP 1 + "."
  48. + ROT 365.25 / IP 
  49. 4712 - \->STR + + + 
  50. STD
  51.   \>>
  52. \>>
  53.  
  54.