BCX Console Demonstration Program S30.bas

 DIM a$
 
 a$ = DATE$
 
 ? "Today is ", a$