home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / datafiles / hardware / teletext / rexx / tt3.rexx < prev   
OS/2 REXX Batch file  |  1995-02-27  |  1KB  |  59 lines
  1. /* TT3.rexx
  2.    demonstrates some arexx functions
  3.  
  4.    load a page from disk and get's some information about it   
  5.  
  6.    Created: 13-12-1993
  7.    (c) Jan Leuverink
  8. */
  9.  
  10. options results
  11. address "TeleText"
  12. file = "Examples/100.tt"
  13.  
  14. /* set catalog to 1 */
  15. set_catalog 2
  16. SAY "Setting catalog to:" result 
  17.  
  18. /*load file */
  19. loadpage file
  20.  
  21. /* if no errors then continue */
  22. IF result==0 THEN
  23. DO
  24.   /* what's the first subpage ? */
  25.   get_minsub
  26.   min=result
  27.   SAY "The first subpage is:" min
  28.   
  29.   /* what's the last subpage ? */
  30.   get_maxsub
  31.   max=result
  32.   SAY "The last subpage is:" max
  33.   
  34.   /* go through all subpages */
  35.   DO i=min to max
  36.   
  37.    /* select subpage */
  38.    set_subpage i
  39.    
  40.    /* what's the number ? */
  41.    get_cursub
  42.    SAY "Current subpage:" result
  43.    
  44.    /* is it valid ? */
  45.    get_subvalid
  46.    IF result==0 THEN SAY "The subpage is valid"
  47.   END i
  48.   
  49.   /* what's the current catalog ? */
  50.   get_curcat
  51.   SAY "Current catalog is:" result
  52.   
  53.   /* what's the current page ? */
  54.   get_curpage
  55.   SAY "Current page is:" result
  56. END
  57. ELSE
  58.   SAY "Could not load page"
  59.