home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / amigalibdisks / disk949 / bbbbs / bbbbs65.lha / rexx / BumpLevels.baud < prev    next >
Encoding:
Text File  |  1991-12-06  |  554 b   |  21 lines
  1. /* Bumplevels.baud */
  2.  
  3. oldlevel=GETCLIP('BBS_level')
  4. oldcom=GETCLIP('BBS_COMMAND')
  5. level=Request(100,100,"Enter new access level",oldlevel,,'CANCEL','BAUD')
  6. IF DATATYPE(level,'N') & level~=oldlevel THEN
  7.   DO
  8.     CALL SETCLIP('BBS_level',level)
  9.     CALL SETCLIP('BBS_COMMAND',oldcom'L')
  10.   END
  11. oldcom=oldcom'L'
  12.  
  13. oldratio=GETCLIP('BBS_ratio')
  14. ratio=Request(100,100,"Enter new ul:dl ratio",oldratio,,'CANCEL','BAUD')
  15. IF DATATYPE(ratio,'N') & ratio~=oldratio THEN
  16.   DO
  17.     CALL SETCLIP('BBS_ratio',ratio)
  18.     CALL SETCLIP('BBS_COMMAND',oldcom'R')
  19.   END
  20. EXIT;
  21.