home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / bbs / dbbs50.lbr / SYSOP.CZD / SYSOP.CMD
OS/2 REXX Batch file  |  1988-03-31  |  2KB  |  132 lines
  1. * SYSOP.CMD
  2.  
  3. SET INTE ON
  4. SET ESCA ON
  5. * Re-enable the ESCAPE command (for Ver. 2.41z)
  6. *POKE 14920,254
  7. *POKE 14921,27
  8.  
  9. ERASE
  10. @  1, 2 SAY "                               SYSOP UTILITIES"
  11. *
  12. @  2, 0 SAY "--------------------------------------------------"
  13. @  2,50 SAY "------------------------------"
  14. @  4, 4 SAY "NAME"
  15. @  4,50 SAY "LEVEL"
  16. @  5, 2 SAY "ACCT #"
  17. @  6,47 SAY "PASSWORD"
  18. @  7, 4 SAY "CITY"
  19. @  7,28 SAY "STATE"
  20. @  8,48 SAY "LAST ON"
  21. @  9, 3 SAY "PHONE"
  22. @ 10, 4 SAY "LIST"
  23. @ 10,47 SAY "LAST MSG"
  24. @ 12, 0 SAY "COMPUTER"
  25. @ 13, 0 SAY "--------------------------------------------------"
  26. @ 13,50 SAY "------------------------------"
  27. @ 14, 8 SAY "[C]PM                 [E]dit User(s)       [M]essa"
  28. @ 14,58 SAY "ge System"
  29. @ 16, 8 SAY "[D]BASE II            [L]og                [P]ack"
  30. @ 16,58 SAY "Databases"
  31. @ 18, 8 SAY "[Q]uit to BYE         [K]ill A User"
  32.  
  33. DO WHILE T
  34.  
  35. CLEAR GETS
  36. * Default
  37. STORE 'M' TO SEL
  38.  
  39. @ 21,26 SAY "CHOOSE" GET SEL PICTURE '!'
  40. READ
  41.  
  42. DO CASE
  43. CASE SEL='C'
  44.    SET CONS OFF
  45.    QUIT
  46. CASE SEL='D'
  47.    CANCEL
  48. CASE SEL='K'
  49.    ?? CHR(7)
  50.    DELE
  51. CASE SEL='L'
  52.    DO A:LIST-IT
  53. CASE SEL='M'
  54.    RELE TEMP:NAME,SEL
  55.    ERASE
  56.    RETURN
  57. CASE SEL='Q'
  58.    ERASE
  59.    SET CONS OFF
  60.    QUIT TO 'BYE'
  61. CASE SEL='P' .AND. FULL:NAME='SYSOP'
  62.    USE USERS INDEX USERS
  63.    PACK
  64.    USE HEADER
  65.    PACK
  66.    USE MSGFIL   
  67.    PACK
  68.    USE MSGFIL01
  69.    PACK
  70.    USE MSGFIL02
  71.    PACK
  72.    USE MSGFIL03
  73.    PACK
  74.    USE MSGFIL04
  75.    PACK
  76.    USE MSGFIL05
  77.    PACK
  78.    USE MSGFIL06
  79.    PACK
  80.    USE MSGFIL07
  81.    PACK
  82.    USE MSGFIL08
  83.    PACK
  84.    USE MSGFIL09
  85.    PACK
  86.    USE MSGFIL10
  87.    PACK
  88.    USE MSGFIL11
  89.    PACK
  90.    USE MSGFIL12
  91.    PACK
  92.    USE MSGFIL13
  93.    PACK
  94.    USE MSGFIL14
  95.    PACK
  96.    USE MSGFIL15
  97.    PACK
  98.    USE MSG-TEMP
  99.    PACK
  100.    USE TITLES
  101.    PACK
  102.    * Don't need to pack LOG.DBF
  103.  
  104. CASE SEL='E'
  105.    STORE '                         ' TO TEMP:NAME
  106.    @  4, 8 GET TEMP:NAME
  107.    STORE !(TEMP:NAME) TO TEMP:NAME
  108.    READ
  109.  
  110.    * Open USERS.DBF
  111.    USE USERS INDEX USERS
  112.  
  113.    LOCATE ALL FOR NAME=TEMP:NAME
  114.    IF EOF
  115.       LOOP
  116.    ENDIF
  117.  
  118.    @  5, 8 SAY ACCT
  119.    @  7, 8 GET CITY
  120.    @  7,33 GET STATE
  121.    @  9, 8 GET PHONE PICTURE '###-###-####'
  122.    @ 10, 8 GET LIST:PHONE
  123.    @ 12, 8 GET COMPUTER
  124.    @  4,55 GET LEVEL
  125.    @  6,55 GET PASS
  126.    @  8,55 GET LAST:ON
  127.    @ 10,55 GET LAST:MSG
  128.    READ
  129.  
  130. ENDCASE
  131. ENDDO
  132.