'*********************************** '* CLIWindow.AMOS * '* ©1992 by Volker Stepprath * '* Opens and closes a DOS-Window * '*********************************** ' Amos To Back ' '**** Define DOS-Window **** ' FENSTER$="CON:10/10/600/180/DOS-Window"+Chr$(0) ' '**** Open DOS-Window **** ' Dreg(1)=Varptr(FENSTER$) Dreg(2)=1006 HANDLE=Doscall(-30) ' Wait 200 ' '**** Close DOS-Window **** ' Dreg(1)=HANDLE XCLOSE=Doscall(-36) ' Amos To Front Edit