***********************************************************************
**
**        Program: CLiPCAL.PRG
**
**         System: CLiPCAL
**         Author: Michael H. Shepos
**      Copyright (c) 1990, Michael H. Shepos
**  Last modified: 05/15/90     12:19pm
**
**          Calls: POPCAL
**
**      Documented 05/15/90 at 12:30pm              SNAP!  version 4.02
***********************************************************************
EXTERNAL popcal
SET Cursor OFF
SAVE SCREEN
CLEAR
@ 1,0,18,36 BOX REPLICATE(CHR(176),9)
@ 2,7 SAY ' C L i P C A L '
@ 6,11 CLEAR TO 12,25
@ 7,13 SAY 'Application'
@ 9,13 SAY 'Enhancement'
@ 11,16 SAY 'Tools'
@ 15,9 SAY ' by Michael Shepos '
@ 19,0 SAY ' Hit any key for Calendar Esc to end '
DO WHILE INKEY(0) <> 27
    mdate = popcal(.F.,'','N/W')
    @ 17,14 SAY ' '+mdate+' '
ENDDO
RESTORE SCREEN
SET Cursor ON
@ 23,0 SAY ''
QUIT

*: EOF: CLiPCAL.PRG