home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / int / txl / int1test.txl < prev    next >
Encoding:
Text File  |  1990-06-20  |  1.3 KB  |  38 lines

  1. 10  merke Testprogramm zum Testen der Basisbefehle des Interpreters
  2. 20  merke ========================================================
  3. 30  merke |(c) 1990 Michael Beising & TOOLBOX                    |
  4. 40  merke --------------------------------------------------------
  5. 50  setze a = 2;
  6. 60  drucke "Testen des Ausgabebefehls ''Drucke''... ";
  7. 70  drucke ;
  8. 80  drucke "Inhalt der Variablen a : ";
  9. 90  drucke a;
  10. 100 merke ** Test des ''gehezu''-Befehls
  11. 110 merke ** Vorwärtssprung nach Zeile 160
  12. 120 gehezu 160
  13. 130 merke ** Hier sollte ''gehezu'' nie vorbeikommen
  14. 140 drucke "Fehler beim Vorwärtssprung! ";
  15. 150 drucke ;
  16. 160 drucke "Hier Ziel des Sprungbefehls: Zeile 160";
  17. 170 drucke ;
  18. 180 wenn a = 2;
  19. 190   gehezu 220
  20. 200   drucke "Der Sonst-Zweig von ''wenn''... ";
  21. 210 drucke ;
  22. 220 drucke "Sprung ausgeführt, Ziel erreicht: Zeile 220";
  23. 230 drucke ;
  24. 240 drucke "Test des ''gehezu'' beim Rückwärtsspringen:"
  25. 245 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 a < 3;
  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
  38.