home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / tools / install / pinstall / window.pow < prev   
Encoding:
Text File  |  1994-06-05  |  2.4 KB  |  38 lines
  1. rem **************************************************************************
  2. rem *                                                                        *
  3. rem *                     Script which creates a window                      *
  4. rem *                                                                        *
  5. rem * Uses PAUSE, CURTAIN, window functions, CLRSCR, CURSORXY and READ_KEY.  *
  6. rem *                                                                        *
  7. rem * Compile by running PINST.EXE                                           *
  8. rem *                                                                        *
  9. rem **************************************************************************
  10.  
  11. intvar  demowin                                       Variable for window handle
  12.  
  13. rem **************************************************************************
  14. rem *                                                                        *
  15. rem * Define window: 55 wide, 5 high                                         *
  16. rem *                At column 13, row 11                                    *
  17. rem *                Single line frame. Shadowed. Filled with ' '.           *
  18. rem *                White on Blue frame.                                    *
  19. rem *                Light white on Black window.                            *
  20. rem *                                                                        *
  21. rem **************************************************************************
  22.  
  23. demowin = define_win  55 5 12 10 1 yes ' ' white blue ltwhite black
  24.  
  25. win_puts demowin 16 2 "This is a demo window."         Put string in center
  26. win_puts demowin 2 4  "[ Hit any key ]"                Put String in frame
  27.  
  28. curtain                                                Put curtain over screen
  29. show_win demowin                                       Show the window
  30. read_key                                               Wait for keystroke
  31. close_win demowin                                      Free window. Remove.
  32. pause                                                  Delay 1/2 second
  33. clrscr                                                 Blank screen
  34. pause                                                  Delay 1/2 second
  35. cursorxy 0 0                                           Cursor in top left
  36.  
  37. exit 0                                                 Back to dos
  38.