home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / arexx / ole1v10a.lha / OLE_System / rexx / punchMSDOS.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-01-31  |  2.1 KB  |  105 lines
  1. /*
  2.  * punchMSDOS.rexx
  3.  *
  4.  * USAGE: punchMSDOS.rexx
  5.  *
  6.  * punchMSDOS.rexx
  7.  *
  8.  * $(C): (1994, Rocco Coluccelli, Bologna)
  9.  * $VER: punchMSDOS.rexx 1.00 (09.Dec.1994)
  10.  */
  11.  
  12. ADDRESS COMMAND
  13.  
  14. MAXLINE = 80
  15.  
  16. RUN '>NIL: Multiview 8svx/frustata PORTNAME OLE_PLAY1'
  17. RUN '>NIL: Multiview 8svx/grido1 PORTNAME OLE_PLAY2'
  18. ADDRESS OLE_PLAY1 WINDOWTOBACK
  19. ADDRESS OLE_PLAY2 WINDOWTOBACK
  20.  
  21. s1 = "Well, dear Miss Dossmasher, do you like the OLE System?"
  22. s2 = "Great! It seems to be fine, but what can I do with this?"
  23. CALL Print(s1,)
  24. ''SAY '-m -s140 -p120' s1
  25. CALL Print(s2,)
  26. ''SAY '-f -s120 -p300' s2
  27.  
  28. s1 = "As everyone can see, you're like people thinking about a network as"
  29. s2 = "a thing good only for fishing!"
  30. s3 = "Come closer!"
  31. CALL Print(s1 s2)
  32. ''SAY '-m -s140 -p100' s1 s2
  33. CALL Print(s3,)
  34. ''SAY '-m -s100 -p120' s3
  35.  
  36. WAIT 1
  37. s1 = "Take this"
  38. s2 = "and this"
  39. s3 = "and this."
  40. CALL Print(s1 s2 s3,)
  41. ''SAY '-m -s160 -p140' s1
  42. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  43. WAIT 1
  44. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  45. ''SAY '-m -s160 -p140' s2
  46. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  47. WAIT 1
  48. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  49. ''SAY '-m -s160 -p140' s3
  50. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  51. WAIT 1
  52. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  53.  
  54. WAIT 1
  55. s1 = "Remember, I don't like your name!"
  56. CALL Print(s1,)
  57. ''SAY '-m -s80 -p140' s1
  58.  
  59. s1 = "Oh, boss,"
  60. s2 = "I like when you hurt me!"
  61. s3 = "Me too, darling,"
  62. s4 = "mee too!"
  63. CALL Print(s1 s2,)
  64. ''SAY '-f -s70 -p260' s1
  65. ''SAY '-f -s130 -p300' s2
  66. ADDRESS OLE_PLAY1 DOTRIGGERMETHOD 'PLAY'
  67. WAIT 1
  68. ADDRESS OLE_PLAY2 DOTRIGGERMETHOD 'PLAY'
  69. CALL Print(s3 s4,)
  70. ''SAY '-m -s140 -p70' s3
  71. ''SAY '-m -s100 -p80' s4
  72.  
  73. ADDRESS OLE_PLAY1 QUIT
  74. ADDRESS OLE_PLAY2 QUIT
  75.  
  76. EXIT 0
  77.  
  78.  
  79. /*
  80.  *    procedure to split text onto lines of MAXLINE characters length
  81.  */
  82. Print: PROCEDURE EXPOSE MAXLINE
  83.  
  84.     DO i = 1 TO ARG()
  85.  
  86.         line = ARG(i)
  87.         DO FOREVER
  88.  
  89.             IF LENGTH(line) <= MAXLINE THEN DO
  90.                 ECHO line
  91.                 LEAVE
  92.                 END
  93.  
  94.             pos = MAX(LASTPOS(' ',line,MAXLINE),POS(' ',line))
  95.             IF pos = 0 THEN DO
  96.                 ECHO line
  97.                 LEAVE
  98.                 END
  99.  
  100.             ECHO LEFT(line,pos); line = SUBSTR(line,pos + 1)
  101.         END
  102.     END
  103.  
  104. RETURN
  105.