home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / rexx / netamiga.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-12-10  |  2.1 KB  |  85 lines
  1. /*
  2.  * netamiga.rexx
  3.  *
  4.  * USAGE: netamiga.rexx
  5.  *
  6.  * netamiga.rexx
  7.  *
  8.  * $(C): (1994, Rocco Coluccelli, Bologna)
  9.  * $VER: netamiga.rexx 0.02 (09.Dec.1994)
  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. CALL Print(s1)
  24. ''SAY '-m -s120 -p110' s1
  25. CALL Print(s2 s3 s4,)
  26. ''SAY '-m -s140 -p100' s2 s3 s4
  27.  
  28. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.prt"
  29. s1 = "The OLE System is composed of every kind of modules."
  30. s2 = "Most of these are dedicated to easly add new functions"
  31. s3 = "to programs provided of an ARexx port."
  32. s4 = "Others are employed to establish communications between"
  33. s5 = "different applications. Also running on different machines."
  34. CALL Print(s1)
  35. ''SAY '-m -s120 -p120' s1
  36. CALL Print(s2 s3 s4 s5,)
  37. ''SAY '-m -s150 -p100' s2 s3
  38. ''SAY '-m -s140 -p130' s4 s5
  39.  
  40. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.prt.modem"
  41. s1 = "The union of a network with NetRexx,"
  42. s2 = "the power and semplicity of the ARexx language"
  43. s3 = "(thanks to all its developers),"
  44. s4 = "the flexibility and the convenience of the OLE System"
  45. s5 = "drastically improves all features of my network that become"
  46. s6 = "the nervous system of a human body."
  47. CALL Print(s1 s2 s3 s4 s5 s6)
  48. ''SAY '-m -s140 -p110' s1 s2
  49. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.amiga"
  50. ''SAY '-m -s120 -p90' s3
  51. ''SAY '-m -s130 -p110' s4
  52. ''SAY '-m -s120 -p130' s5
  53. ''SAY '-m -s120 -p100' s6
  54. ADDRESS OLE_DISPLAY "OPEN NAME iff/TokenRing.OLE"
  55.  
  56. EXIT 0
  57.  
  58.  
  59. /*
  60.  *    procedure to split text onto lines of MAXLINE characters length
  61.  */
  62. Print: PROCEDURE EXPOSE MAXLINE
  63.  
  64.     DO i = 1 TO ARG()
  65.  
  66.         line = ARG(i)
  67.         DO FOREVER
  68.  
  69.             IF LENGTH(line) <= MAXLINE THEN DO
  70.                 ECHO line
  71.                 LEAVE
  72.                 END
  73.  
  74.             pos = MAX(LASTPOS(' ',line,MAXLINE),POS(' ',line))
  75.             IF pos = 0 THEN DO
  76.                 ECHO line
  77.                 LEAVE
  78.                 END
  79.  
  80.             ECHO LEFT(line,pos); line = SUBSTR(line,pos + 1)
  81.         END
  82.     END
  83.  
  84. RETURN
  85.