home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / alertsys.zip / alert_sysop.cmd next >
OS/2 REXX Batch file  |  1995-08-11  |  1KB  |  40 lines
  1. /* Alert sysop to presence of user */
  2.  
  3. ARG line
  4.  
  5. note.2=64
  6. note.3=128
  7. note.4=256
  8. note.5=512
  9. note.6=1024
  10. note.7=2048
  11. note.8=4096
  12. note.9=8192
  13. /*AdeptCls(line)*/
  14. do i=2 to 9
  15.   AdeptPrint(line, '\r\n{CS{FD╔════════════════════════════════════════════════╗')
  16.   AdeptPrint(line, '\r\n║                                                ║') 
  17.   AdeptPrint(line, '\r\n{FD║        {F'i'Alerting sysop to your presence.{FD        ║')
  18.   AdeptPrint(line, '\r\n║                                                ║') 
  19.   AdeptPrint(line, '\r\n{FD╚════════════════════════════════════════════════╝')
  20.   call beep note.i,60 
  21.   call beep note.i,50
  22. end
  23. note.2=8192
  24. note.3=4096
  25. note.4=2048
  26. note.5=1024
  27. note.6=512
  28. note.7=256
  29. note.8=128
  30. note.9=64
  31. do i=2 to 9
  32.   AdeptPrint(line, '\r\n{CS{FD╔════════════════════════════════════════════════╗')
  33.   AdeptPrint(line, '\r\n║                                                ║') 
  34.   AdeptPrint(line, '\r\n{FD║        {F'i'Alerting sysop to your presence.{FD        ║')
  35.   AdeptPrint(line, '\r\n║                                                ║') 
  36.   AdeptPrint(line, '\r\n{FD╚════════════════════════════════════════════════╝')
  37.   call beep note.i,50 
  38.   call beep note.i,60
  39. end
  40. AdeptPrint(line,'{PD{PD')