home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / DOOR / CATLST41.ZIP / CATLIST.ZIP / CLIST.PPS < prev   
Text File  |  1993-05-24  |  2KB  |  36 lines
  1. ;*******************************************************************
  2. ;*                           CLIST.PPE V1.0                        *
  3. ;*                   CatList/PCBoard v15 Interface                 *
  4. ;*                                                                 *
  5. ;*                      Written : Dennis Maidon                    *
  6. ;*         Written in the PCBoard Programming Language (PPL)       *
  7. ;*                          PAROLE Software                        *
  8. ;*       Copyright 1993, PAROLE Software - all rights reserved     *
  9. ;*                        The Parole Board BBS                     *
  10. ;*                                                                 *
  11. ;*   (919) 965-4696 -> Wildcat! ─┐                                 *
  12. ;*                               ├ US Robotics Dual Standards      *
  13. ;*   (919) 965-9885 -> PCBoard  ─┘                                 *
  14. ;*                                                                 *
  15. ;*******************************************************************
  16.  
  17. ;*************************************
  18. ;    Define variables
  19. ;*************************************
  20.  
  21. STRING File_a
  22.  
  23.  
  24. GETUSER                       ;Get User's information
  25.  
  26. File_a = U_RECNUM(U_Name())   ;Assign the correct filename
  27.  
  28. IF (EXIST(PPEPATH() + (File_a))) THEN     ;check to see if the file exists
  29.      DISPFILE PPEPATH() + File_a, LANG + SEC + GRAPH   ;send it
  30.      LOG "* CatList Notice Sent!",0     ;LOG the send notice
  31.      DELETE PPEPATH() + File_a          ;Delete the file
  32.      WAIT
  33. ENDIF
  34.  
  35. END
  36.