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