home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / orionful.zip / Menus / Atstart.Cmd next >
OS/2 REXX Batch file  |  1997-09-16  |  220b  |  13 lines
  1. /* AdeptBBS Sample Rexx Script */
  2.  
  3. ARG line
  4.  
  5. UserFlag = AdeptGetVar(line, 44)
  6. HasAnsi = AdeptCheckBit(line, 1, UserFlag)
  7.  
  8. if HasAnsi = 1 then do
  9.   AdeptPrint(line, "\r\n")
  10. end
  11.  
  12. AdeptMenuType(line,42,,,0)
  13.