home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / showexe1.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  967 b   |  24 lines
  1. ***************************************************************************
  2. *        S H O W E X E 1 . S C R  ---  Show script execution facility     *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  ShowExe1.Scr                                                *
  6. *                                                                         *
  7. *    Purpose: Invoked by SHOWEXEC.SCR.                                    *
  8. *                                                                         *
  9. ***************************************************************************
  10. *
  11. Import  MyA String
  12. Import  MyB Integer
  13. *
  14. Declare MyC String
  15. *
  16. Message "Entered script ShowExe1"
  17. Set MyC = CONCAT( CONCAT( 'Value of A = <', MyA ), '>' )
  18. Message MyC
  19. Set MyC = CONCAT( 'Value of B = ', String( MyB ) )
  20. Message MyC
  21. *
  22. Set MyA = 'BOGUS A!!!!!'
  23. *
  24.