home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / utilsm / notepad / npdrv / NPTEST.OPL < prev    next >
Text File  |  1992-12-10  |  490b  |  22 lines
  1. PROC Nptest:
  2. local dd&,tt&,m$(64)
  3. trap loadm "b:\opo\Npdriver.opo" Rem or wherever
  4. rem Change to load from your drive (M,A,B)
  5. if err
  6.  giprint"Driver not found..."
  7.  pause 30
  8.  return
  9. endif
  10. dd&=days(day,month,year)
  11. tt&=datetosecs(1970,1,1,hour,minute,0)
  12. dinit"Send a new Alarm"
  13. ddate dd&,"Date:",dd&,days(31,12,2049)
  14. dtime tt&,"Time:",0,0,datetosecs(1970,1,1,23,59,59)
  15. dedit m$,"Message:",16
  16. if dialog
  17.  Npdriver:(dd&,tt&,m$)
  18.  giprint"Message sent..."
  19.  pause 30
  20. endif
  21. Endp
  22.