'************************************************
'*                 CLIText.AMOS                 *
'*          ©1992 by Volker Stepprath           *
'*       Writes any text in a CLI-Fenster       *
'*  Actual CLI-Window ... FENSTER$="*"+Chr$(0)  *
'************************************************
'
Amos To Back 
'
'**** Textstyle **** 
'
T$=Chr$($9B)+"0;3;4;7;32;43m"
'
'**** Define variables ****
'
T$=T$+"Moin! Moin!"+Chr$(10)+Chr$(0)
FENSTER$="CON:0/0/640/200/AMOS & CLI"+Chr$(0)
'
'**** Open window **** 
'
Dreg(1)=Varptr(FENSTER$)
Dreg(2)=1006
HANDLE=Doscall(-30)
'
'**** Write text ****
'
Dreg(1)=HANDLE
Dreg(2)=Varptr(T$)
Dreg(3)=Len(T$)
XWRITE=Doscall(-48)
'
Wait 150
'
'**** Close window ****
'
Dreg(1)=HANDLE
XCLOSE=Doscall(-36)
'
Amos To Front 
Edit