'************************************************************* 
'*                       CLIRead.AMOS                        * 
'*                 ©1992 by Volker Stepprath                 * 
'*  Reads datas which was given in a CLI-Window in a buffer  * 
'************************************************************* 
'
Amos To Back 
_READ
'
Amos To Front 
Print "You feel: ";T$
'
End 
'
Procedure _READ
  '
  '**** Define variables ****
  '
  Shared T$
  T$="How do you feel: "+Chr$(0)
  FENSTER$="CON:0/0/640/200/Moin, Moin !"+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)
  '
  '**** Read text from keyboard **** 
  '
  T$=Space$(80)+Chr$(0)
  Dreg(1)=HANDLE
  Dreg(2)=Varptr(T$)
  Dreg(3)=Len(T$)
  XREAD=Doscall(-42)
  '
  '**** Close window ****
  '
  Dreg(1)=HANDLE
  XCLOSE=Doscall(-36)
  '
End Proc