home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / dos_txl / beispiel / editor.txl < prev    next >
Encoding:
Text File  |  1991-02-16  |  739 b   |  31 lines
  1. 005 setfkey 11 100
  2. 010 openwindow 1 3 60 20 36 33 66 33
  3. 011 initeditor 1 "editor.txl"
  4. 012 openwindow 10 3 70 20 21 41 21 41 
  5. 013 initeditor 2 "test2.txl"
  6. 014 openwindow 20 3 80 20 11 33 11 33
  7. 015 initeditor 3 "block.txl"
  8. 019 merke schleife zum Editorwechseln
  9. 020 winreadstring "Editornummer (0 für Ende): " nr 10
  10. 025 strtoi nr nummer
  11. 026 wenn nummer<1 
  12. 027 gehezu 540
  13. 028 wenn nummer>3
  14. 029 gehezu 540
  15. 030 merke else ...
  16. 031 newfirstwindow nummer
  17. 035 editorproc nummer
  18. 040 gehezu 20
  19. 100 blockbegin 
  20. 110 getedword nummer word
  21. 120 insertstring nummer word
  22. 130 movewindow 1 0
  23. 200 blockend 
  24. 500 merke ** Beenden
  25. 540 closewindow
  26. 550 closewindow
  27. 560 closewindow
  28. 570 closeeditor 3
  29. 580 closeeditor 2
  30. 590 closeeditor 1
  31.