home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / einsteig / chntst2a.bas < prev    next >
BASIC Source File  |  1990-05-14  |  804b  |  21 lines
  1.  5  '------------- chntst2a.bas
  2. 10  REM Datei 2 für die Benutzung des Befehls CHAIN
  3. 11  REM Die aufgerufene Datei muß in GWBASIC nur dann einen
  4. 12  REM eigenen COMMON-Befehl besitzen, wenn die aufgerufene
  5. 13  REM Datei ihrerseits eine Datei nachladen will mit
  6. 14  REM Variablenübergabe
  7. 15  REM Die Entgegennahme geschieht in GWBASIC im Gegensatz
  8. 16  REM zu QUICKBASIC durch Verwendung der gleichen
  9. 17  REM Variablennamen
  10. 20  CLS
  11. 30  PRINT "Datei - 2 -  ist aktiv": PRINT
  12. 31  PRINT "Die Variable V$ hat nach dem Aufruf den Wert: ";
  13.     v$
  14. 40  INPUT "Bitte eine neue Eingabe vornehmen: ", v$
  15. 50  PRINT "Die Variable V$ hat jetzt den WERT: "; v$
  16. 60  PRINT
  17. 70  PRINT "Ein Tastendruck lädt die Datei 3 mittels CHAIN
  18.     ohne Variablenübergabe"
  19. 80  DUMMY$ = INPUT$(1)
  20. 100 CHAIN "CHNTST3A"
  21.