home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 July / Software of the Month - Ultimate Collection Shareware 263.iso / mac / Business / Y2K Assistant / action.Dxr / 00028.ls < prev    next >
Encoding:
Text File  |  1999-03-02  |  1.4 KB  |  52 lines
  1. on spec1999
  2.   if the long date contains "Jan" then
  3.     spec0199()
  4.   else
  5.     if the long date contains "Feb" then
  6.       spec0299()
  7.     else
  8.       if the long date contains "Mar" then
  9.         spec0399()
  10.       else
  11.         if the long date contains "Apr" then
  12.           spec0499()
  13.         else
  14.           if the long date contains "May" then
  15.             spec0599()
  16.           else
  17.             if the long date contains "Jun" then
  18.               spec0699()
  19.             else
  20.               if the long date contains "Jul" then
  21.                 spec0799()
  22.               else
  23.                 if the long date contains "Aug" then
  24.                   spec0899()
  25.                 else
  26.                   if the long date contains "Sep" then
  27.                     spec0999()
  28.                   else
  29.                     if the long date contains "Oct" then
  30.                       spec1099()
  31.                     else
  32.                       if the long date contains "Nov" then
  33.                         spec1199()
  34.                       else
  35.                         if the long date contains "Dec" then
  36.                           spec1299()
  37.                         else
  38.                           go(77)
  39.                         end if
  40.                       end if
  41.                     end if
  42.                   end if
  43.                 end if
  44.               end if
  45.             end if
  46.           end if
  47.         end if
  48.       end if
  49.     end if
  50.   end if
  51. end
  52.