home *** CD-ROM | disk | FTP | other *** search
- 10 merke Testprogramm zum Testen der Basisbefehle des Interpreters
- 20 merke ========================================================
- 30 merke |(c) 1990 Michael Beising & TOOLBOX |
- 40 merke --------------------------------------------------------
- 50 setze a = 2;
- 60 drucke "Testen des Ausgabebefehls ''Drucke''... ";
- 70 drucke ;
- 80 drucke "Inhalt der Variablen a : ";
- 90 drucke a;
- 100 merke ** Test des ''gehezu''-Befehls
- 110 merke ** Vorwärtssprung nach Zeile 160
- 120 gehezu 160
- 130 merke ** Hier sollte ''gehezu'' nie vorbeikommen
- 140 drucke "Fehler beim Vorwärtssprung! ";
- 150 drucke ;
- 160 drucke "Hier Ziel des Sprungbefehls: Zeile 160";
- 170 drucke ;
- 180 wenn a = 2;
- 190 gehezu 220
- 200 drucke "Der Sonst-Zweig von ''wenn''... ";
- 210 drucke ;
- 220 drucke "Sprung ausgeführt, Ziel erreicht: Zeile 220";
- 230 drucke ;
- 240 drucke "Test des ''gehezu'' beim Rückwärtsspringen:"
- 245 drucke ;
- 250 setze a = a + 1;
- 260 drucke "Diese Zeile muß zweimal angezeigt werden."
- 270 drucke ;
- 280 merke wenn a < 3, dann wird zur Zeile 250 gesprungen.
- 290 wenn a < 3;
- 300 gehezu 250
- 310 drucke "Die Variable a hat nun den Wert ";
- 320 drucke a;
- 325 drucke ". ";
- 330 drucke ;
- 340 drucke "Das war's dann, das Testprogramm ist abgelaufen. ";
- 350 ende
-