home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / datafiles / hardware / teletext / rexx / tt2.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-27  |  1KB  |  49 lines
  1. /* TT2.rexx
  2.    demonstrates some arexx functions
  3.    
  4.    This script requests 4 pages from TeleText in each
  5.    of the 4 catalogs, with checking the result
  6.  
  7.    Created: 13-12-1993
  8.    (c) Jan Leuverink
  9. */
  10. options results
  11. address "TeleText"
  12. /* set catalog to 1 */
  13. set_catalog 1
  14. say "Setting catalog to:" result 
  15. /* get page 100 */    
  16. get_page 100
  17. CALL show_result(result)
  18. set_catalog 2
  19. say "Setting catalog to:" result 
  20. /* get page 704 */    
  21. get_page 704
  22. CALL show_result(result)
  23. /* set catalog to 3 */
  24. set_catalog 3
  25. say "Setting catalog to:" result 
  26. /* get page 205 */    
  27. get_page 205
  28. CALL show_result(result)
  29. /* set catalog to 4 */
  30. set_catalog 4
  31. say "Setting catalog to:" result 
  32. /* get page 101 */    
  33. get_page 101
  34. CALL show_result(result)
  35.  
  36. exit
  37.  
  38. /* this procedure tells the user what the result of the get_page was */
  39. show_result: procedure
  40. ARG i
  41. say "Result of get_page:" i
  42. IF i==0 THEN say "Page request completed succesfully"
  43. IF i==1 THEN say "Page request error: invalid pagenumber"
  44. IF i==2 THEN say "Page request error: timeout occurred during search"
  45. IF i==3 THEN say "Page request error: user aborted the search"
  46. IF i==4 THEN say "Page request error: not enough memory"
  47. IF i==5 THEN say "Page request error: parallel port was not allocated"
  48. return 0
  49.