home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_2.iso
/
files
/
652b.lha
/
TLog_2.01
/
Test.tlog
< prev
next >
Wrap
Text File
|
1992-04-26
|
1KB
|
63 lines
/* simple AREXX test for TLog that prints the first and last records */
options results
address 'TLOG'
'opendb'
'firstrec'
say "First Record"
say result
/* After the date, the fields in a record are delineated by spaces */
parse var result '"' dbdate '"' dbheart dbdist dbtime dbweight dbtemp dbkey
say "First Record fields "
say "date " dbdate
say "heart " dbheart
say "dist " dbdist
say "time " dbtime
say "weight" dbweight
say "temp " dbtemp
say "key " dbkey
currenttime
say "time in seconds" result
say " "
'lastrec'
say "Last Record"
say result
/* the fields in a record are delineated with verticle bars '|' */
parse var result dbdate '|' dbheart '|' dbdist '|' dbtime '|' dbweight '|' dbtemp '|' dbkey
say "Last Record fields "
say "date " dbdate
say "heart " dbheart
say "dist " dbdist
say "time " dbtime
say "weight" dbweight
say "temp " dbtemp
say "key " dbkey
currenttime
say "time in seconds" result
say " "
getdateformat
oldformat = result
say "The various date Formats"
say "The original format " oldformat
do i = 1 to 7
dateformat i
currentdate
say result
end
dateformat oldformat