' *** DATE_PRT.LST *** 2nd GFA-Manual, page 3-10 > PROCEDURE date_print(print.date$) ' ' *** Print date as: "day number month year" (e.g. "Friday 8 January 1988") ' *** The date is printed at the current cursor-position ' *** Format of print.date$ must be: "dd.mm.yyyy" ' *** Function Day_of_week is used to find the day of the week ' ' *** Function: Day_of_week ' LOCAL day,year$,month$,i day=VAL(LEFT$(print.date$,2)) year$=RIGHT$(print.date$,4) RESTORE months FOR i=1 TO VAL(MID$(print.date$,INSTR(print.date$,".")+1,2)) READ month$ NEXT i PRINT @day_of_week$(print.date$);" ";day;" ";month$;" ";year$; ' months: DATA January,February,March,April,May,June,July DATA August,September,October,November,December RETURN ' ********* '