; CurrentDate Example
; -------------------

; CurrentDate$ returns the system date as a string
; in the format DD MON YYYY, e.g. "10 DEC 2000".

today$=CurrentDate$()
Print "Today is "+today$
Print ""

; Handy for stamping save games and log files
Print "Save stamp: quest.sav ("+today$+" "+CurrentTime$()+")"
Print ""

; The fixed format makes the parts easy to slice out
Print "Day:   "+Left$(today$,2)
Print "Month: "+Mid$(today$,4,3)
Print "Year:  "+Right$(today$,4)

Print ""
Print "Press any key to close the example"
WaitKey

End