yReservedVariablesz |
|
yStringsz |
|
yUSEz |
ptr_
|
ptr_=a$ |
yFORMATz |
yFUNCTIONz |
ptr_
|
|
yEXPLANATIONz |
|
|
|
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$ |
|
|
[LASTMODIFY]2011-05-27 14:51:05 |
[CREATEDATE]2009-01-23 15:59:39 |
|
|
|
|