home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / WB_ARexx_v1.1 / marquis.rexx < prev    next >
OS/2 REXX Batch file  |  1988-04-28  |  1KB  |  36 lines
  1. /* A sample ARexx program to create a "marquis"                */
  2. /* Execute it by entering "rx :rexx/marquis your name"         */
  3. /* For best results, run using the "ConMan" console handler    */
  4.  
  5. trace off
  6. parse arg YourName                     /* the critic's name    */
  7.  
  8. /* Open our "marquis" window                                   */
  9. call open out,"con://640/60/Matinee Today  Shows at 2:30 and 4:30/ds"
  10. if ~result then do
  11.    say "Open failure ... sorry"
  12.    exit 10
  13.    end
  14.  
  15. header = 'Now Playing on an Amiga near you!'
  16. call writech out,'9B'x || '1;22H' || header
  17.  
  18. /* Print out the critical acclaim                              */
  19. call writech out,"9b"x || "5;10HTasty! ... T. Rex"
  20.  
  21. if YourName = '' then YourName = '(YOUR NAME HERE)'
  22. call writech out,"9b"x || "5;40HEntertaining! ..." YourName
  23.  
  24. call writech out,'9B302070'x           /* invisible cursor     */
  25. /* Cycle the message for a few times                           */
  26. message = "ARexx ... the interactive language for you!    "
  27. do for 5
  28.    do i=1 to length(message)
  29.       NewChar = '9B33 3B37 3548'x || substr(message,i,1)
  30.       call writech out,'9B 333B 3548 9B50'x || NewChar
  31.       end
  32.    end
  33.  
  34. /* No need to close the output file ... happens automagically  */
  35. exit
  36.