home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 2 / sauce-n-code-02.adf / ASCII_Source / IntWind.asc < prev    next >
Text File  |  1995-07-02  |  485b  |  34 lines
  1. '*********************************** 
  2. '*          CLIWindow.AMOS         * 
  3. '*    ©1992 by Volker Stepprath    * 
  4. '*  Opens and closes a DOS-Window  * 
  5. '*********************************** 
  6. '
  7. Amos To Back 
  8. '
  9. '**** Define DOS-Window **** 
  10. '
  11. FENSTER$="CON:10/10/600/180/DOS-Window"+Chr$(0)
  12. '
  13. '**** Open DOS-Window **** 
  14. '
  15. Dreg(1)=Varptr(FENSTER$)
  16. Dreg(2)=1006
  17. HANDLE=Doscall(-30)
  18. '
  19. Wait 200
  20. '
  21. '**** Close DOS-Window ****
  22. '
  23. Dreg(1)=HANDLE
  24. XCLOSE=Doscall(-36)
  25. '
  26. Amos To Front 
  27. Edit 
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.