home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / rexx / netserver.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-01-31  |  1.1 KB  |  62 lines
  1. /*
  2.  * netserver.rexx
  3.  *
  4.  * USAGE: netserver.rexx
  5.  *
  6.  * netserver.rexx
  7.  *
  8.  * $(C): (1994, Rocco Coluccelli, Bologna)
  9.  * $VER: netserver.rexx 1.00 (31.Jan.1995)
  10.  */
  11.  
  12. ADDRESS COMMAND
  13.  
  14. MAXLINE = 80
  15.  
  16. IF ~SHOW('P','OLE_DISPLAY') THEN
  17.     RUN '>NIL: Multiview iff/piano PORTNAME OLE_DISPLAY'
  18.  
  19. s1 = "Resume with another example."
  20. s2 = "Some networks, created for the Amiga, add an extension"
  21. s3 = "to the ARexx language for exchanging messages also between"
  22. s4 = "programs running on different machines."
  23. s5 = "This feature let me to adopt a new mode for printing."
  24. CALL Print(s1,)
  25. ''SAY '-m -s120 -p120' s1
  26. CALL Print(s2 s3 s4,)
  27. ''SAY '-m -s140 -p100' s2 s3 s4
  28. CALL Print(s5,)
  29. ''SAY '-m -s120 -p110' s5
  30.  
  31. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.server"
  32.  
  33. EXIT 0
  34.  
  35.  
  36. /*
  37.  *    procedure to split text onto lines of MAXLINE characters length
  38.  */
  39. Print: PROCEDURE EXPOSE MAXLINE
  40.  
  41.     DO i = 1 TO ARG()
  42.  
  43.         line = ARG(i)
  44.         DO FOREVER
  45.  
  46.             IF LENGTH(line) <= MAXLINE THEN DO
  47.                 ECHO line
  48.                 LEAVE
  49.                 END
  50.  
  51.             pos = MAX(LASTPOS(' ',line,MAXLINE),POS(' ',line))
  52.             IF pos = 0 THEN DO
  53.                 ECHO line
  54.                 LEAVE
  55.                 END
  56.  
  57.             ECHO LEFT(line,pos); line = SUBSTR(line,pos + 1)
  58.         END
  59.     END
  60.  
  61. RETURN
  62.