home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / showproc.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  3.2 KB  |  104 lines
  1. ***************************************************************************
  2. *     S H O W P R O C . S C R  ---  Show script procedure facility        *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  ShowProc.Scr                                                *
  6. *                                                                         *
  7. *    Purpose: Show how to use internal script procedures.                 *
  8. *                                                                         *
  9. *    Invocation:                                                          *
  10. *                                                                         *
  11. *       Execute "ShowProc"                                                *
  12. *                                                                         *
  13. ***************************************************************************
  14. *                                                                         *
  15. *           ---- NOTE:  VERY IMPORTANT to declare global variables        *
  16. *                       BEFORE procedure definitions!                     *
  17. *                                                                         *
  18. ***************************************************************************
  19. *
  20. Declare A String
  21. Declare B Integer
  22. Declare S String
  23. *
  24. PROCEDURE Sub1 Mya String, MyB Integer
  25. *
  26.    Declare MyC String
  27. *
  28.    PROCEDURE Sub1a Mya String
  29.       Message "Entered procedure Sub1a"
  30.       Set MyC = CONCAT( CONCAT( 'Value of A = <', MyA ), '>' )
  31.       Message MyC
  32.       Set MyA = 'BOGUS A!!!!!'
  33.    ENDPROC
  34. *
  35.    PROCEDURE Sub1b MyB Integer
  36.       Set MyC = CONCAT( 'Value of B = ', String( MyB ) )
  37.       Message MyC
  38.    ENDPROC
  39. *
  40.    Call Sub1a Mya
  41.    Call Sub1b Myb
  42. *
  43. *
  44. ENDPROC
  45. *
  46. PROCEDURE Sub2 MyB Integer
  47. *
  48.    Declare MyC String
  49. *
  50.    Message "Entered script Sub2"
  51.    Set MyC = CONCAT( 'Value of B = ', String( MyB ) )
  52.    Message MyC
  53. *
  54.    Set MyB = 10
  55. *
  56. ENDPROC
  57. *
  58. PROCEDURE Sub3 MyA String
  59. *
  60.    Declare MyC String
  61. *
  62.    Message "Entered script Sub3"
  63.    Set MyC = CONCAT( CONCAT( 'Value of A = <', MyA ), '>' )
  64.    Message MyC
  65. *
  66. ENDPROC
  67. **************************************************************************
  68. *                                                                        *
  69. *                      Main Procedure of script                          *
  70. *                                                                        *
  71. **************************************************************************
  72. Set A = 'Here is parameter A'
  73. Set B = 50
  74. *
  75. Set S = CONCAT( CONCAT( 'A:<' , A ), '>' )
  76. Message S
  77. *
  78. Set S = CONCAT( CONCAT( 'B:<' , STRING( B ) ), '>' )
  79. Message S
  80. *
  81. Message A
  82. Message "Calling procedure Sub1 ..."
  83. *
  84. Call sub1 A B
  85. *
  86. Message "Back to main"
  87. Set S = CONCAT( CONCAT( 'New value of A is <', A ), '>' )
  88. Message S
  89. *
  90. Message "Calling procedure Sub2 ..."
  91. *
  92. Call sub2 B
  93. *
  94. Message "Back to main"
  95. Set S = CONCAT( 'New value of B is ', String( B ) )
  96. Message S
  97. *
  98. Message "Calling procedure Sub3 ..."
  99. *
  100. Call sub3 A
  101. *
  102. Message "Back to main"
  103. *
  104.