home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / einsteig / chntst1a.bas next >
BASIC Source File  |  1990-05-14  |  648b  |  19 lines
  1.  5  '------------ chntst1a.bas
  2. 10  REM Datei 1 für die Benutzung des Befehls CHAIN
  3. 20  CLS
  4. 30  PRINT "Datei - 1 -  ist aktiv": PRINT
  5. 32  PRINT "Die Variable V$ hat beim Start oder nach dem
  6.     CHAIN den WERT: "; V$
  7. 40  INPUT "Bitte eine Eingabe tätigen: ", V$
  8. 50  PRINT "Die Variable V$ hat den WERT: "; V$
  9. 60  PRINT
  10. 70  PRINT "Ein Tastendruck lädt die Datei 2 mittels CHAIN
  11.     mit Variablenübergabe"
  12. 80  DUMMY$ = INPUT$(1)
  13. 90  COMMON V$
  14. 100 REM Die Datei chntst2a.bas muß sich im aktuellen
  15.     Verzeichnis befinden
  16. 105 REM oder vor den Dateinamen muß eine Laufwerks-
  17.     und/oder Pfadangabe gesetzt werden
  18. 110 CHAIN "CHNTST2A"
  19.