home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsm / np52 / DAILY.OPL < prev    next >
Text File  |  1995-06-20  |  640b  |  22 lines
  1. Proc daily:
  2. local name$(12),z$(1),sspid%,messtyp%
  3. local ch%,front%
  4.  
  5. z$=chr$(0)
  6. messtyp%=1
  7. trap delete "M:\Npmess.000"
  8. create "M:\Npmess.000",a,mess$,typ$,front$
  9.  
  10. a.typ$="O"
  11. a.mess$="B:\note\expand\Daily.exp"      REM  Change this to your file.
  12. a.front$="1"                            REM  Don't forget to change the drive
  13. append :close                           REM  letter too. (if needed)
  14.  
  15. name$="notepad.*"+z$
  16. sspid%=call($0188,addr(name$)+1,0,0,0,0)
  17. if call($8c8d,sspid%)>=0
  18.     call($92,sspid%,2,0,addr(messtyp%),$28)   rem ProcCopyToById
  19.     call($0986,sspid%)                        rem IoSignalByPid
  20. endif
  21. Endp
  22.