ASM

RESOURCES

Get international resources

DIM 15 DayID$(7),15 MonthID$(12):' the day/month names we can use (Jan to Dec)'
'
Hndl& = FN GETRESOURCE(_"itl1",0):' handle to month/day names
LONG IF Hndl&:' make sure we read something in
  OSErr=FN HLOCK(Hndl&):' lock down the handle
  BLOCKMOVE [Hndl&],@DayID$(1),112:' copy out the days of the week
  BLOCKMOVE [Hndl&]+112,@MonthID$(1),192:' copy out the month names
  OSErr=FN HUNLOCK(Hndl&):' then unlock the handle
  CALL RELEASERESOURCE(Hndl&):' and clear it out of memory
XELSE
  DayID$(1)="Sunday"
  DayID$(2)="Monday"
  DayID$(3)="Tuesday"
  DayID$(4)="Wednesday"
  DayID$(5)="Thursday"
  DayID$(6)="Friday"
  DayID$(7)="Saturday"
  MonthID$(1)="January"
  MonthID$(2)="February"
  MonthID$(3)="March"
  MonthID$(4)="April"
  MonthID$(5)="May"
  MonthID$(6)="June"
  MonthID$(7)="July"
  MonthID$(8)="August"
  MonthID$(9)="September"
  MonthID$(10)="October"
  MonthID$(11)="November"
  MonthID$(12)="December"
END IF