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

  #INCLUDE "LEAP"

  FUNCTION PBMAIN

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

  PRINT "LEAP%(''    )="; _
         LEAP%(""    );" - Leap characteristic of the CURRENT year"
  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");" - Leap characteristic of the CURRENT year"

  END FUNCTION