Category : Communication (modem) tools and utilities
Archive   : PRCMSCRP.ZIP
Filename : TIMLOG.ASP

; Stephen Decarie GEmail = S.Decarie
; 62 Beacham Way NW
; Calgary
; Alberta T3K 1R8
;
; I'd be interest in comments re potential additonal ideas for this script
;
;
; This script just writes the current time to the file TIME.LOG
; If you set it up as a METAKEY it can be then be used to save the time
; when a particular event occurs.
;
proc main
; current time in 24 format to a file
string timvar
string data
integer lifd = 10
string lefd
integer itvar,count,lent
itvar = 0
count = 0
fopen 0 "time.log" "at"
while itvar = 0
fread 0 data 80 lent
; fatsay count 3 41 " count %d" count
count = count + 1
eof 0 itvar
if itvar = 1
; message "eof reached"
endif

endwhile
key2ascii lifd lefd
fputs 0 lefd
time timvar 1 ; military time 24 hr format
fputs 0 timvar
fclose 0
endproc