home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / BBSING / BBS / DBBS50.LBR / LIST-IT.CZD / LIST-IT.CMD
OS/2 REXX Batch file  |  2000-06-30  |  896b  |  43 lines
  1. * LIST-IT.CMD
  2. * 02-02-85
  3. * List the caller LOG
  4.  
  5. USE LOG
  6. GO BOTT
  7. * Check if log is empty...
  8. IF #=1
  9.    ? 'Sorry -- the caller log is empty.'
  10.    RETURN
  11. ENDIF
  12.  
  13. ? 'Press <SPACEBAR> to abort!'
  14. ?
  15. DISP CAL:NMBR,NAME OFF
  16. * Do while not space-bar is pressed and RN is not equal to 1
  17. DO WHILE PEEK(337)#32 .AND. ##2
  18.    SKIP-1
  19.    DISP CAL:NMBR,NAME,BAUD OFF
  20. ENDDO
  21.  
  22. IF MLEVEL=9 .AND. FULL:NAME='SYSOP'
  23.    ?
  24.    ? 'Delete the LOG?'
  25.    SET CONS OFF
  26.    WAIT TO CONFIRM
  27.    SET CONS ON
  28.    IF !(CONFIRM)='Y' .AND. FULL:NAME='SYSOP'
  29.       DELE ALL
  30.       * Don't delete the first record
  31.       GO 1
  32.       RECALL
  33.       PACK
  34.    ENDIF
  35.    IF !(CONFIRM)='Y' .AND. FULL:NAME#'SYSOP'
  36.       ? 'Can not delete log file yet'
  37.    ENDIF
  38. ENDIF
  39. ?
  40. * Re-select the HEADER database
  41. RELE CONFIRM
  42.  
  43.