10       a$=HEX$(DATE(0))
20        PRINT   a$
30       ptr_=a$                        /* set the pointer position
40       y$=PTR$(4)                     /* copy 4 characters
50       ptr_=ptr_+4                    /* re-set the pointer position
60       m$=PTR$(2)
70       ptr_=ptr_+2
80       d$=PTR$(2)
90        PRINT   y$ m$ d$
RUN

 20081117                               /* a$ 
 2008 11 17                             /* y$ m$ d$