10 ' DATE PROGRAM
20 '   Use with DATER.BAS to pull date from low 
30 ' memory. Revised from Portable Companion by
40 ' Jim Ryan.
50 '
60 D=PEEK(80):M=PEEK(81):Y=PEEK(91):DT$=""
70 IF (D<1 OR D>31) OR (M<1 OR M>31) OR (Y<82 OR Y>85) THEN 120
80 FOR I=1 TO 9:A$=CHR$(PEEK(81+I)):IF A$=" " THEN 90 ELSE DT$=DT$+A$:NEXT I
90 D$=RIGHT$(STR$(D),2):M$=RIGHT$(STR$(M),2):Y$=RIGHT$(STR$(Y),2)
100 PRINT CHR$(26);"Today's date is..... ";DT$;" ";D$;", 19";Y$:PRINT
110 GOTO 130
120 RUN "DATER"
130 SYSTEM 'this can be anything you want
;"Today's date is..... ";DT$;" ";D$;", 19";Y$:PRINT
110 GOTO 130
120 RUN "DATER"
130 SYSTEM 'this