Programming Tutorials PrintTimestamp2

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

rem works only with newer models (>= 3.02q)

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 2      "
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"
endif
print &MONTH + "/"
if &DATE < 10 then
        print "0"
endif
print &DATE + "/"
if &YEAR < 10 then
        print "0"
endif
print &YEAR + CHR(TAB)

if &HOURS < 10 then
        print "0"
endif
print &HOURS + ":"
if &MINUTES < 10 then
        print "0"
endif
print &MINUTES + ":"
if &SECONDS < 10 then
        print "0"
endif
print &SECONDS + CHR(TAB)
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