home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / clitext.amos / clitext.amosSourceCode
AMOS Source Code  |  1993-01-08  |  562b  |  25 lines
  1. 'CLIText.AMOS
  2. '�1992 by Volker Stepprath 
  3. 'Writes any text in a CLI-Fenster
  4. 'Actual CLI-Window ... FENSTER$="*"+Chr$(0)  
  5. Amos To Back 
  6. '**** Textstyle **** 
  7. T$=Chr$($9B)+"0;3;4;7;32;43m"
  8. '**** Define variables ****
  9. T$=T$+"Moin! Moin!"+Chr$(10)+Chr$(0)
  10. FENSTER$="CON:0/0/640/200/AMOS & CLI"+Chr$(0)
  11. '**** Open window **** 
  12. Dreg(1)=Varptr(FENSTER$)
  13. Dreg(2)=1006
  14. HANDLE=Doscall(-30)
  15. '**** Write text ****
  16. Dreg(1)=HANDLE
  17. Dreg(2)=Varptr(T$)
  18. Dreg(3)=Len(T$)
  19. XWRITE=Doscall(-48)
  20. Wait 150
  21. '**** Close window ****
  22. Dreg(1)=HANDLE
  23. XCLOSE=Doscall(-36)
  24. Amos To Front 
  25. Edit