home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / datafiles / hardware / teletext / rexx / tt1.rexx next >
OS/2 REXX Batch file  |  1995-02-27  |  1KB  |  49 lines
  1. /* TT1.rexx
  2.    demonstrates some arexx functions
  3.    
  4.    Loads a page called 100.tt in catalog 1
  5.    saves it to ram: in all available formats (iff & ansi only subpage 1)
  6.    Then it turns on the ViewScreen, pops it to front and shows the
  7.    subpages
  8.    
  9.    Call it from the directory TeleText/rexx
  10.  
  11.    Created: 13-12-1993
  12.    (c) Jan Leuverink
  13. */
  14. options results
  15. address "TeleText"
  16. /* get version string */
  17. version
  18. say result
  19. /* set catalog to 1 */
  20. set_catalog 1
  21. say result 
  22. /* get page called 100.tt from current directory */    
  23. loadpage   "Examples/100.tt"
  24. say result
  25. /* save to ansi */
  26. save_ansi  "ram:100.ansi"
  27. say result
  28. /* save to tt */
  29. save_tt    "ram:100.tt"
  30. say result
  31. /* save to iff */
  32. save_iff   "ram:100.iff"
  33. say result
  34. /* save to ascii */
  35. save_ascii "ram:100.ascii"
  36. say result
  37. /* turn on ViewScreen, subpage 1 is displayed automatically */
  38. view_on
  39. say result
  40. /* ViewScreen to front */
  41. view_to_front
  42. /* display subpage 2 */
  43. set_subpage 2
  44. say result
  45. /* display subpage 3 */
  46. set_subpage 3
  47. say result
  48. exit
  49.