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