Time

.cversion

.month,day,year

.date 

.time

.am/pm 

ms@

.elapsed

ms

pause-seconds

?KeyPause 

WINPAUSE

\ time-buf   

 \ +0  year

 \ +2  month

 \ +4  day of week

 \ +6  day of month

 \ +8  hour

 \ +10 minute

 \ +12 second

 \ +14 milliseconds

: year$

  time-buf 0 + w@  0 <# # # # # #> 

  ;

: month$

  time-buf 2 + w@  0 <# # # #> 

  ;

: day$

  time-buf 6 + w@  0 <# # # #> 

  ;

: hour$

  time-buf 8 + w@  0 <# # # #> 

  ;

: minute$

  time-buf 10 + w@  0 <# # # #> 

  ;

: sec$

  time-buf 12 + w@  0 <# # # #> 

  ;

: milliseconds$

  time-buf 14 + w@  0 <# # # #> 

  ;

create filename 256 allot  

: get_filename

  get-local-time

  s" test"          filename place

  s" _"             filename +place

  year$             filename +place

  month$            filename +place

  day$              filename +place

  hour$             filename +place

  minute$           filename +place

  sec$              filename +place

  milliseconds$     filename +place

  s" .bmp"          filename +place

  ;