home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / txl / neu.txl < prev    next >
Text File  |  1990-06-19  |  1KB  |  37 lines
  1.  
  2. 010 merke Testprogramm zum Testen der Basisbefehle des Interpreters
  3. 020 merke ========================================================
  4. 030 merke |(c) 1990 Michael Beising & TOOLBOX                    |
  5. 040 merke --------------------------------------------------------
  6. 050 setze a = 2;
  7. 060 drucke "Testen des Ausgabebefehls ''Drucke''... ";
  8. 070 drucke ;
  9. 080 drucke "Inhalt der Variablen a : ";
  10. 090 drucke a;
  11. 100 merke ** Test des ''gehezu''-Befehls
  12. 110 merke ** Vorwärtssprung nach Zeile 160
  13. 120 gehezu 160
  14. 130 merke ** Hier sollte ''gehezu'' nie vorbeikommen
  15. 140 drucke "Fehler beim Vorwärtssprung! ";
  16. 150 drucke ;
  17. 160 drucke "Hier Ziel des Sprungbefehls: Zeile 160";
  18. 170 drucke ;
  19. 180 wenn a = 2;
  20. 190 gehezu 220
  21. 200 drucke "Der Sonst-Zweig von ''wenn''... ";
  22. 210 drucke ;
  23. 220 drucke "Sprung ausgeführt, Ziel erreicht: Zeile 220";
  24. 230 drucke ;
  25. 240 drucke ;
  26. 250 setze a = a + 1;
  27. 260 drucke "Diese Zeile muß zweimal angezeigt werden."
  28. 270 drucke ;
  29. 280 merke wenn a < 3, dann wird zur Zeile 250 gesprungen.
  30. 290 wenn 3 >= a;
  31. 300 gehezu 250
  32. 310 drucke "Die Variable a hat nun den Wert ";
  33. 320 drucke a;
  34. 325 drucke ". ";
  35. 330 drucke ;
  36. 340 drucke "Das war's dann, das Testprogramm ist abgelaufen. ";
  37. 350 ende