home *** CD-ROM | disk | FTP | other *** search
/ The Weather Channel - Everything Weather / TheWeatherChannel-EverythingWeather-Win31.iso / twcia / calndr1 / calndr1.dxr / 00023_Mon.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  557 b   |  28 lines
  1. on mouseDown
  2.   global thisMonth
  3.   set y to the mouseLine
  4.   set z to the mouseV
  5.   if (y = 1) and (z > 109) then
  6.     set y to 2
  7.   end if
  8.   if (y = 2) and (z > 152) then
  9.     set y to 3
  10.   end if
  11.   if (y = 3) and (z > 195) then
  12.     set y to 4
  13.   end if
  14.   if (y = 4) and (z > 238) then
  15.     set y to 5
  16.   end if
  17.   if (y = 5) and (z > 281) then
  18.     set y to 6
  19.   end if
  20.   if (line y of field "mon" = " ") or (line y of field "mon" = EMPTY) then
  21.     exit
  22.   end if
  23.   reminderTest()
  24.   cursor(4)
  25.   set x to "Monday" && thisMonth && line y of field "mon"
  26.   makeFile(x)
  27. end
  28.