Programming Tutorials PrintTimestamp

rem PrintTimestamp.bas
rem
rem last revision on 05 Feb 2003
rem

rem For newer models (>= 3.02q) see also PrintTimestamp2.bas

rem  Keep in mind that the PRINT command can send only a
rem  restricted number of characters at once (100 chars).
rem  Timestamp + CR + LF = 20 chars

Customer_ID_Macro:
write "      Print Timestamp      "
END

Reset_Macro:
CONST MASTER_MODE = 0002
CONST ASCII_MODE = 0000
&CODE3 = ASCII_MODE
END

print_timestamp:
// format: MM/DD/YY    HH:MM:SS

if &MONTH < 10 then
        print "0" + &MONTH + "/"
else
        print &MONTH + "/"
endif
if &DATE < 10 then
        print "0" + &DATE + "/"
else
        print &DATE + "/"
endif
if &YEAR < 10 then
        print "0" + &YEAR + CHR(TAB)
else
        print &YEAR + CHR(TAB)
endif

if &HOURS < 10 then
        print "0" + &HOURS + ":"
else
        print &HOURS + ":"
endif
if &MINUTES < 10 then
        print "0" + &MINUTES + ":"
else
        print &MINUTES + ":"
endif
if &SECONDS < 10 then
        print "0" + &SECONDS + CHR(TAB)
else
        print &SECONDS + CHR(TAB)
endif
return

print_my_data:
// now print your data
// print ...

// print 'end of line'
print CHR(CR) + CHR(LF)
return

F1_Button_Macro:
&CODE3 = MASTER_MODE
gosub print_timestamp
gosub print_my_data
&CODE3 = ASCII_MODE
END