home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / cliread.amos / cliread.amosSourceCode
AMOS Source Code  |  1993-01-08  |  713b  |  32 lines
  1. 'CLIRead.AMOS  
  2. '�1992 by Volker Stepprath 
  3. 'Reads datas which was given in a CLI-Window in a buffer   
  4. Amos To Back 
  5. _READ
  6. Amos To Front 
  7. Print "You feel: ";T$
  8. End 
  9. Procedure _READ
  10.   '**** Define variables ****
  11.   Shared T$
  12.   T$="How do you feel: "+Chr$(0)
  13.   FENSTER$="CON:0/0/640/200/Moin, Moin !"+Chr$(0)
  14.   '**** Open window **** 
  15.   Dreg(1)=Varptr(FENSTER$)
  16.   Dreg(2)=1006
  17.   HANDLE=Doscall(-30)
  18.   '**** Write text ****
  19.   Dreg(1)=HANDLE
  20.   Dreg(2)=Varptr(T$)
  21.   Dreg(3)=Len(T$)
  22.   XWRITE=Doscall(-48)
  23.   '**** Read text from keyboard **** 
  24.   T$=Space$(80)+Chr$(0)
  25.   Dreg(1)=HANDLE
  26.   Dreg(2)=Varptr(T$)
  27.   Dreg(3)=Len(T$)
  28.   XREAD=Doscall(-42)
  29.   '**** Close window ****
  30.   Dreg(1)=HANDLE
  31.   XCLOSE=Doscall(-36)
  32. End Proc