home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / einsteig / gosubdma.bas < prev    next >
BASIC Source File  |  1990-05-14  |  1KB  |  39 lines
  1. 5    '------------ gosubdma.bas
  2. 10   'Demonstrationsbeispiel für GOSUB
  3. 20   :
  4. 30   'Beginn des Hauptprogramms
  5. 40   :
  6. 50   PRINT "Das HAUPTPROGRAMM ist aktiv"
  7. 60   GOSUB 2000    'Unterprogramm Warten aufrufen
  8. 70   GOSUB 1000   'Unterprogramm UP1 aufrufen
  9. 80   PRINT "Das HAUPTPROGRAMM ist wieder aktiv"
  10. 90   GOSUB 2000    'Unterprogramm Warten aufrufen
  11. 100  GOSUB 1500   'Unterprogramm UP2 aufrufen
  12. 110  PRINT "Das HAUPTPROGRAMM ist wieder aktiv"
  13. 120  GOSUB 2000    'Unterprogramm Warten aufrufen
  14. 130  END
  15. 140  :
  16. 150  'Ende des Hauptprogramms
  17. 1000 'Beginn des Unterprogramms UP1
  18. 1010 :
  19. 1040 PRINT "Das UNTERPROGRAMM - UP1 - ist aktiv"
  20. 1050 GOSUB 2000    'Unterprogramm Warten aufrufen
  21. 1060 RETURN
  22. 1070 :
  23. 1080 'Ende des Unterprogramms UP1
  24. 1450 'Beginn des Unterprogramms UP2
  25. 1460 :
  26. 1500 PRINT "Das UNTERPROGRAMM - UP2 - ist aktiv"
  27. 1510 GOSUB 2000    'Unterprogramm Warten aufrufen
  28. 1520 RETURN
  29. 1530 :
  30. 1540 'Ende des Unterprogramms UP2
  31. 1950 'Beginn des Unterprogramms WARTEN
  32. 1960 :
  33. 2000 PRINT : PRINT "UP-Warten:  WEITER mit einer Taste ";
  34. 2010 dummy$ = INPUT$(1)
  35. 2020 PRINT : PRINT
  36. 2030 RETURN
  37. 2540 :
  38. 2550 'Ende des Unterprogramms WARTEN
  39.