' LEAP%(2.0)  Check Year for Leap Value                09/30/1992-03/01/2002
' --------------------------------------------------------------------------

  $INCLUDE "LEAP"
  $LINK    "MODULE.PBL"

  DECLARE FUNCTION LEAP%(Year$)

  CLS
  PRINT "LEAP%(2.0)  Check Year for Leap Value  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(56,"-")
  PRINT

  PRINT "LEAP%(''    )="; _
         LEAP%(""    )
  PRINT "LEAP%('04'  )="; _
         LEAP%("04"  )
  PRINT "LEAP%('1988')="; _
         LEAP%("1988")
  PRINT "LEAP%('1989')="; _
         LEAP%("1989")
  PRINT "LEAP%('1900')="; _
         LEAP%("1900")
  PRINT "LEAP%('2000')="; _
         LEAP%("2000")
  PRINT "LEAP%('ABCD')="; _
         LEAP%("ABCD")

  PRINT
  PRINT "Execution completed - hit [Enter] to continue..."