home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
hamradio
/
loghp48.zip
/
LOGGER
< prev
next >
Wrap
Text File
|
1993-01-04
|
436b
|
33 lines
%%HP: T(3)A(R)F(.);
DIR
CST { NXT WRKD }
TEST
DIR
END
DATIM
\<< 4 FIX DATE
100 * IP TIME 100 *
IP 10000 / +
\>>
WRKD
\<< DROP OBJ\-> DUP
" " + DATIM \->STR
SWAP +
"ENTER REPORT" { \Ga
} INPUT + SWAP STO
NXT
\>>
NXT
\<< CLEAR "\->"
"ENTER CALL" { \Ga }
INPUT + DUP OBJ\->
EVAL TYPE
IF 6 \=/
THEN
"UR A DUP OM!"
ELSE
"WORK EM!"
END
\>>
END