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 / ADD-MSG.CZD / ADD-MSG.CMD
OS/2 REXX Batch file  |  2000-06-30  |  1KB  |  56 lines
  1. ? "Begin entering message. Use '/EX' to exit (without the quotes)."
  2. ?
  3.  
  4. STORE '  |----------------64 characters per line------------------------|';
  5.      TO SHOW
  6.  
  7. * LENGTH is maximum number of characters per line
  8. STORE 64 TO LENGTH
  9. * MAX is maximum number of lines per message
  10.  
  11. ?
  12. ? SHOW
  13. * Print the old text
  14. IF CHANGE
  15.    ? ' :'+TEXT
  16. ENDIF
  17.  
  18. STORE T TO NOT:DONE
  19. * Loop while still entering msg and while we still have room
  20. DO WHILE NOT:DONE .AND. NUM<MAX
  21.  
  22.    RELE LINE
  23.    ACCEPT ' ' TO LINE
  24.  
  25. * Check to see if line is too long
  26.    IF LEN(LINE)>LENGTH
  27.       ? CHR(7)+'Too long -- more than 64 characters!'
  28.       ? $((LINE),1,64)
  29.       ? $((LINE),65,64)
  30.       STORE $((LINE),1,64) TO LINE
  31.    ENDIF
  32.  
  33.  
  34. * Check to see if through entering message (?)
  35.   IF !(LINE)='/EX'
  36.       RELE LINE
  37.       STORE NUM-1 TO NUM
  38.       STORE F TO NOT:DONE
  39.       LOOP
  40.    ENDIF
  41.    IF CHANGE
  42.       STORE F TO NOT:DONE
  43.    ELSE
  44.       STORE NUM+1 TO NUM
  45.    ENDIF
  46.  
  47. IF .NOT. CHANGE  
  48.    APPEND BLANK
  49.    REPLACE NO WITH MSG:NMBR,TEXT WITH LINE
  50. ELSE
  51.    REPLACE TEXT WITH LINE
  52. ENDIF
  53. ENDDO while not:done .and. num<max
  54.  
  55. RELE LENGTH,SHOW,DNUM,CNUM   
  56.