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