home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / einsteig / chntst3a.bas < prev    next >
BASIC Source File  |  1990-05-14  |  824b  |  22 lines
  1.  5  '------------ chntst3a.bas
  2. 10  REM Datei 3 für die Benutzung des Befehls CHAIN
  3. 11  REM hier ist wieder ein COMMON-Befehl erforderlich,
  4. 12  REM weil an chntst1a die Variable V$ übergeben werden
  5. 13  REM soll.
  6. 14  REM Im Gegensatz zu QUICKBASIC kann hier die COMMON -
  7. 15  REM Anweisung unmittelbar vor dem CHAIN-Kommando stehen
  8. 20  CLS
  9. 30  PRINT "Datei - 3 -  ist aktiv": PRINT
  10. 31  PRINT "Die Variable V$ hat nach dem Aufruf den Wert: ";
  11.     V$
  12. 40  INPUT "Bitte eine Eingabe machen: ", V$
  13. 50  PRINT "Die Variable V$ hat jetzt den WERT: "; V$
  14. 60  PRINT
  15. 70  PRINT "[ W ] für Weiter lädt wieder die Datei 1 mittels
  16.     CHAIN mit Variablenübergabe"
  17. 75  PRINT "Jede andere Taste beendet den CHAIN-Test"
  18. 80  DUMMY$ = INPUT$(1)
  19. 85  COMMON V$
  20. 90  IF DUMMY$ = "w" OR DUMMY$ = "W" THEN CHAIN "CHNTST1A"
  21. 100 END
  22.