home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / larp145.lha / LARP / LARP_test.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-07-20  |  895 b   |  37 lines
  1. /* rexx test file
  2.  */
  3.  
  4. ADDRESS 'LARP.01'
  5.  
  6. /* Usage: PUTS "<text here>" */
  7.  
  8. CALL ADDLIB('rexxsupport.library',0,-30,0)
  9. PLACE '0 15'
  10. SIZE '640 100'
  11. PUTS "<Seuss> alAUKKA: I need a little proggy. Would ya make it for me?"
  12. CALL DELAY(30)
  13. PUTS "<alAUKKA> Seuss: Yeah, what kind?"
  14. CALL DELAY(50)
  15. PUTS "<Seuss> alAUKKA: You know, one which uses Arexx(tm) and opens a little window."
  16. CALL DELAY(30)
  17. PUTS "<alAUKKA> Seuss: Hey, I got it. Shouldn't be too hard to make..."
  18. CALL DELAY(90)
  19. PUTS "<alAUKKA> Seuss: ... Guess I do it in three hours. :)"
  20.  
  21. /* Usage: PLACE '<x-coordinate> <y-coordinate>' */
  22.  
  23. CALL DELAY(50)
  24. PUTS "<alAUKKA> Wanna see our window moving?"
  25. CALL DELAY(50)
  26. PUTS "<Seuss> Yeah..."
  27. PLACE '0 100'
  28.  
  29. /* Usage: SIZE '<x-size> <y-size>' */
  30.  
  31. CALL DELAY(50)
  32. PUTS "<alAUKKA> I don't like this window - it's too small."
  33. CALL DELAY(50)
  34. PUTS "<Seuss> I think that too."
  35. PLACE '0 0'
  36. SIZE '640 200'
  37.