home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / CTLS.ZIP / AUTOOFF.CTL next >
Encoding:
Text File  |  1992-07-12  |  715 b   |  39 lines
  1. Seek(tagged.%NODE%)
  2. IfTrue(say(&10&%beep%%beep%You have files tagged for download!))
  3. say(&CR&&11&You have requested an auto-logoff.  This call will be terminated in 30 seconds.)
  4. say(&14&Hit (CTRL-K) to abort or (H) to hang up now.*)
  5. SetEqual(n=0)
  6.  
  7. *begin
  8. do
  9. jump(rkeytst)
  10. secpause(1)
  11. localkey(1)
  12. ifnottrue(goto (psa))
  13. If (%ARESP%)=(H) Then Goto (off)
  14. if (%ARESP%)=(h) then goto (off)
  15. If (%ARESP%)=( ) Then Goto (ex)
  16. *psa
  17. jump(rkeytst)
  18. inc(n)
  19. say(.*)
  20. If (&n)=(30) Then Goto (off)
  21. loop
  22.  
  23. *off
  24. log(<<,Downloaded file, Auto-logoff)
  25. Display(Display\goodbye)
  26. quitbbs
  27.         
  28. *ex
  29. selfarea(/:lastdown/)
  30. say()
  31. return
  32.  
  33. *rkeytst
  34. ifkey(H)
  35. iftrue(goto (off))
  36. ifkey( )
  37. iftrue(goto (ex))
  38. ret
  39.