home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 391.lha / IsToday_v1.0 / SampleScript < prev   
Encoding:
Text File  |  1990-07-03  |  1.2 KB  |  68 lines
  1. ;  This is a sample script to show and test the IsToday program.
  2.  
  3. ;  Just put IsToday in the current or C: directory and
  4. ;  Execute "SampleScript"
  5.  
  6. ;  IsToday is Public domain!  V1.0 by David Czaya                                *
  7. ;                                    (PLink -Dave-)
  8. ;                                    (CIS   73445,407)
  9. ;  27-June-1990                      (GEnie DCzaya)
  10.  
  11. ;  Usage: IsToday [day]      where [day] is Sun, Monday, Tues...  
  12.  
  13.  
  14. FAILAT 21                               ; this is so we can continue
  15. IsToday BadArg                          ; no/bad arguments should yield FAIL
  16. IF FAIL
  17.     echo "Test error successfully caught!"
  18. ELSE
  19.     echo "Test error missed. Report this to author."
  20. ENDIF
  21.  
  22. echo "Today is " NOLINE
  23.  
  24. IsToday Sunday
  25. IF WARN
  26.     echo "Sunday"
  27.     QUIT
  28. ELSE
  29.  
  30. IsToday Monday
  31. IF WARN
  32.     echo "Monday"
  33.     QUIT
  34. ELSE
  35.  
  36. IsToday Tuesday
  37. IF WARN
  38.     echo "Tuesday"
  39.     QUIT
  40. ELSE
  41.  
  42. IsToday Wednesday
  43. IF WARN
  44.     echo "Humpday [Wednesday]"
  45.     QUIT
  46. ELSE
  47.  
  48. IsToday Thursday
  49. IF WARN
  50.     echo "Thursday"
  51.     QUIT
  52. ELSE
  53.  
  54. IsToday Friday
  55. IF WARN
  56.     echo "Payday [Friday]"
  57.     QUIT
  58. ELSE
  59.  
  60. IsToday Saturday
  61. IF WARN
  62.     echo "Saturday"
  63.     QUIT
  64. ENDIF
  65.  
  66. echo "oops! You shouldn't see this!"
  67.  
  68.