home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / einsteig / gosubdmq.bas < prev    next >
BASIC Source File  |  1990-05-14  |  792b  |  45 lines
  1. '------------ gosubdmq.bas
  2. 'Demonstrationsbeispiel für GOSUB
  3. :
  4. 'Beginn des Hauptprogramms
  5. :
  6. PRINT "Das HAUPTPROGRAMM ist aktiv"
  7. GOSUB WARTEN
  8. GOSUB UP1
  9. PRINT "Das HAUPTPROGRAMM ist wieder aktiv"
  10. GOSUB WARTEN
  11. GOSUB UP2
  12. PRINT "Das HAUPTPROGRAMM ist wieder aktiv"
  13. GOSUB WARTEN
  14. END
  15. :
  16. 'Ende des Hauptprogramms
  17. 'Beginn des Unterprogramms UP1
  18. :
  19. UP1:
  20. :
  21. PRINT "Das UNTERPROGRAMM - UP1 - ist aktiv"
  22. GOSUB WARTEN
  23. RETURN
  24. :
  25. 'Ende des Unterprogramms UP1
  26. 'Beginn des Unterprogramms UP2
  27. :
  28. UP2:
  29. :
  30. PRINT "Das UNTERPROGRAMM - UP2 - ist aktiv"
  31. GOSUB WARTEN
  32. RETURN
  33. :
  34. 'Ende des Unterprogramms UP2
  35. 'Beginn des Unterprogramms WARTEN
  36. :
  37. WARTEN:
  38. :
  39. PRINT : PRINT "UP-Warten:  WEITER mit einer Taste ";
  40. dummy$ = INPUT$(1)
  41. PRINT : PRINT
  42. RETURN
  43. :
  44. 'Ende des Unterprogramms WARTEN
  45.