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