BCX Console Demonstration Program s142.bas

?  "Printing TIME$   "; TIME$
?  "-----------------"
?  "Printing HOUR    "; TIME$(1)
?  "Printing MINUTE  "; TIME$(2)
?  "Printing SECOND  "; TIME$(3)
?  "Printing AMPM    "; TIME$(4)
?  "-----------------"
?  "Printing YEAR    "; TIME$(5)
?  "Printing MONTH   "; TIME$(6)
?  "Printing DAY     "; TIME$(7)
?  "-----------------"
?  "Printing DAYNAME "; TIME$(8)
?  "Printing WEEKDAY "; TIME$(9)
?  "Printing YEARDAY "; TIME$(10)
?  "Printing WEEK    "; TIME$(11)

Result:

Printing TIME$   21:38:58
-----------------
Printing HOUR    21
Printing MINUTE  38
Printing SECOND  58
Printing AMPM    PM
-----------------
Printing YEAR    2022
Printing MONTH   02
Printing DAY     10
-----------------
Printing DAYNAME Thursday
Printing WEEKDAY 4
Printing YEARDAY 041
Printing WEEK    06