home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / MEDIAPOINT3.DMS / in.adf / ARexx.lha / CreatePage.rexx next >
Encoding:
OS/2 REXX Batch file  |  1993-10-15  |  696 b   |  22 lines
  1. /* Create a simple MediaPoint page using Arexx*/
  2.  
  3. address command
  4. options results
  5. Window_text = 'Hello world'
  6.  
  7. say open('outfile','ram:doc','W')    
  8. say writeln('outfile','PAGETALK 1,0')
  9. say writeln('outfile','OBJECTSTART')
  10. say writeln('outfile','SCREEN 4,0,2,0')
  11. say writeln('outfile','PALETTE 1, "775588 000011 cccccc 999988 "')
  12. say writeln('outfile','WINDOW 0,0,640,400,-1,-1,-1,-1,1,1,1,0')
  13. say writeln('outfile','FORMAT 0,0,0,0,2,1,1,0,0,1,0,0')
  14. say writeln('outfile','STYLE mediapoint,20,0,2')
  15. say writech('outfile','TEXT "^fmediapoint^^s20^^c2^')
  16. say writech('outfile',Window_text) 
  17. say writeln('outfile','^lf^"')
  18. say writeln('outfile','TEXT "^lf^"')
  19. say writeln('outfile','OBJECTEND')
  20. exit
  21.  
  22.