home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / hamradio / loghp48.zip / LOGGER < prev    next >
Text File  |  1993-01-04  |  436b  |  33 lines
  1. %%HP: T(3)A(R)F(.);
  2. DIR
  3.   CST { NXT WRKD }
  4.   TEST
  5.     DIR
  6.     END
  7.   DATIM
  8.     \<< 4 FIX DATE
  9. 100 * IP TIME 100 *
  10. IP 10000 / +
  11.     \>>
  12.   WRKD
  13.     \<< DROP OBJ\-> DUP
  14. " " + DATIM \->STR
  15. SWAP +
  16. "ENTER REPORT" { \Ga
  17. } INPUT + SWAP STO
  18. NXT
  19.     \>>
  20.   NXT
  21.     \<< CLEAR "\->"
  22. "ENTER CALL" { \Ga }
  23. INPUT + DUP OBJ\->
  24. EVAL TYPE
  25.       IF 6 \=/
  26.       THEN
  27. "UR A DUP OM!"
  28.       ELSE
  29. "WORK EM!"
  30.       END
  31.     \>>
  32. END
  33.