CATLIST.ZIP.x/CLIST.PPS

;*******************************************************************
;*                           CLIST.PPE V1.0                        *
;*                   CatList/PCBoard v15 Interface                 *
;*                                                                 *
;*                      Written : Dennis Maidon                    *
;*         Written in the PCBoard Programming Language (PPL)       *
;*                          PAROLE Software                        *
;*       Copyright 1993, PAROLE Software - all rights reserved     *
;*                        The Parole Board BBS                     *
;*                                                                 *
;*   (919) 965-4696 -> Wildcat! ─┐                                 *
;*                               ├ US Robotics Dual Standards      *
;*   (919) 965-9885 -> PCBoard  ─┘                                 *
;*                                                                 *
;*******************************************************************

;*************************************
;    Define variables
;*************************************

STRING File_a


GETUSER                       ;Get User's information

File_a = U_RECNUM(U_Name())   ;Assign the correct filename

IF (EXIST(PPEPATH() + (File_a))) THEN     ;check to see if the file exists
     DISPFILE PPEPATH() + File_a, LANG + SEC + GRAPH   ;send it
     LOG "* CatList Notice Sent!",0     ;LOG the send notice
     DELETE PPEPATH() + File_a          ;Delete the file
     WAIT
ENDIF

END