home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tug__002 / teststac.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-08  |  3.0 KB  |  93 lines
  1. {TUG PDS CERT 1.01 (Pascal)
  2.  
  3. ==========================================================================
  4.  
  5.                   TUG PUBLIC DOMAIN SOFTWARE CERTIFICATION
  6.  
  7. The Turbo User Group (TUG) is recognized by Borland International as the
  8. official support organization for Turbo languages.  This file has been
  9. compiled and verified by the TUG library staff.  We are reasonably certain
  10. that the information contained in this file is public domain material, but
  11. it is also subject to any restrictions applied by its author.
  12.  
  13. This diskette contains PROGRAMS and/or DATA determined to be in the PUBLIC
  14. DOMAIN, provided as a service of TUG for the use of its members.  The
  15. Turbo User Group will not be liable for any damages, including any lost
  16. profits, lost savings or other incidental or consequential damages arising
  17. out of the use of or inability to use the contents, even if TUG has been
  18. advised of the possibility of such damages, or for any claim by any
  19. other party.
  20.  
  21. To the best of our knowledge, the routines in this file compile and function
  22. properly in accordance with the information described below.
  23.  
  24. If you discover an error in this file, we would appreciate it if you would
  25. report it to us.  To report bugs, or to request information on membership
  26. in TUG, please contact us at:
  27.  
  28.              Turbo User Group
  29.              PO Box 1510
  30.              Poulsbo, Washington USA  98370
  31.  
  32. --------------------------------------------------------------------------
  33.                        F i l e    I n f o r m a t i o n
  34.  
  35. * DESCRIPTION
  36. A simple program to test StackUse. Uses a few string because strings are
  37. rather hard on the stack.
  38.  
  39. * ASSOCIATED FILES
  40. STACKUSE.PAS
  41. TESTSTAC.PAS
  42.  
  43. * CHECKED BY
  44. DRM 08/08/88
  45.  
  46. * KEYWORDS
  47. TURBO PASCAL V4.0
  48.  
  49. ==========================================================================
  50. }
  51.  
  52. {**********************************************************
  53.  
  54.   A simple program to test the public domain unit
  55.   StackUse.  Uses a few strings because strings are
  56.   rather hard on the stack.
  57.  
  58.   version 1.0
  59.   7/17/88
  60.   by Richard S. Sadowsky
  61.   released to the public domain
  62.  
  63. **********************************************************}
  64.  
  65. {$M 4096,0,0} { allocate a 4k stack.  This is 1/4 the default stack }
  66.               { size.  NOTE: this program uses over half of the 4K  }
  67.               { stack we give it! }
  68.  
  69. program TestStackUsage;
  70.  
  71. uses StackUse;
  72. { NOTE: all we do is Use StackUse, and it takes care of everything! }
  73.  
  74.  
  75. function UseStrings(S1,S2,S3,S4,S5,S6 : String) : String;
  76.  
  77. { this function is designed to use some stack }
  78.  
  79. begin
  80.   UseStrings := S1 + S2 + S3 + S4 + S5 + S6;
  81. end;
  82.  
  83. begin
  84.  
  85.   WriteLn('UseStrings = ',UseStrings('string #1 ',
  86.                                      'string #2 ',
  87.                                      'string #3 ',
  88.                                      'string #4 ',
  89.                                      'string #5 ',
  90.                                      'string #6'));
  91.   WriteLn
  92. end.
  93.