home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / tools / install / pinstall / stack.pow < prev    next >
Encoding:
Text File  |  1994-06-05  |  1.5 KB  |  28 lines
  1. rem **************************************************************************
  2. rem *                                                                        *
  3. rem * This script causes a stack overflow by GOSUBing in an endless loop.    *
  4. rem *                                                                        *
  5. rem * Remember GOSUB pushs the current position on an internal stack so that *
  6. rem * RETURN can resume where GOSUB left off. The internal stack is 500      *
  7. rem * layers deep.                                                           *
  8. rem *                                                                        *
  9. rem * This basically shows how an internal error is handled by PowerInstall. *
  10. rem * Internal errors are things like stack overflows or out of memory.      *
  11. rem * PowerInstall shows a descriptive error window and exits gracefully.    *
  12. rem *                                                                        *
  13. rem * Compile by running PINST.EXE                                           *
  14. rem *                                                                        *
  15. rem **************************************************************************
  16.  
  17. intvar  win
  18. win = define_win 32 3 24 2 1 yes ' ' black white blue white
  19. win_puts win 1 1 " Welcome to PowerInstall v1.0 "
  20. curtain
  21.  
  22. label loop
  23.  
  24. show_win win                                           Show window
  25. hide_win win                                           Hide window
  26.  
  27. gosub loop                                              Don't do this.
  28.