10 REM ****************
   20 REM    FNfull_date
   30 REM By Peter Hopkins
   40 REM ****************
   50 REM NC100/200 Version : 10/8/00
   60 REM Downloaded from Tim's Amstrad NC Users' Site
   70 REM http:\\www.ncus.org.uk
   80 :
   90 date$=FNdate
  100 PRINTdate$
  110 END
  120 :
  130 DEFFNdate
  140 RESTORE280:FORJ%=1TO13:READinfo$:IF MID$(TIME$,8,3)=LEFT$(info$,3)THEN month$=info$
  150 NEXT
  160 RESTORE310:FORJ%=1TO8:READ info$:IF LEFT$(TIME$,3)=LEFT$(info$,3) THEN day$=info$
  170 NEXT
  180 day=VAL(MID$(TIME$,6,1)):day1=VAL(MID$(TIME$,5,2))
  190 IF day=0 OR day>3 abb$="th"
  200 IF day=1 abb$="st"
  210 IF day=2 abb$="nd"
  220 IF day=3 abb$="rd"
  230 IF day1=10 OR day1=11 OR day1=12 OR day1=13 abb$="th"
  240 date$=day$+" "+STR$(day1)+abb$+" "+month$+" "+MID$(TIME$,12,4)
  250 name$="K.70 "+date$
  260 OSCLI(name$)
  270 X=OPENOUT"Date$.Dat":PRINT# X,date$:CLOSE# X
  280 DATAJanuary,February,March,April
  290 DATAMay,June,July,August,September
  300 DATAOctober,November,December,End
  310 DATAMonday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,End
  320 =date$