home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
1990
/
08
/
einsteig
/
gosubdma.bas
< prev
next >
Wrap
BASIC Source File
|
1990-05-14
|
1KB
|
39 lines
5 '------------ gosubdma.bas
10 'Demonstrationsbeispiel für GOSUB
20 :
30 'Beginn des Hauptprogramms
40 :
50 PRINT "Das HAUPTPROGRAMM ist aktiv"
60 GOSUB 2000 'Unterprogramm Warten aufrufen
70 GOSUB 1000 'Unterprogramm UP1 aufrufen
80 PRINT "Das HAUPTPROGRAMM ist wieder aktiv"
90 GOSUB 2000 'Unterprogramm Warten aufrufen
100 GOSUB 1500 'Unterprogramm UP2 aufrufen
110 PRINT "Das HAUPTPROGRAMM ist wieder aktiv"
120 GOSUB 2000 'Unterprogramm Warten aufrufen
130 END
140 :
150 'Ende des Hauptprogramms
1000 'Beginn des Unterprogramms UP1
1010 :
1040 PRINT "Das UNTERPROGRAMM - UP1 - ist aktiv"
1050 GOSUB 2000 'Unterprogramm Warten aufrufen
1060 RETURN
1070 :
1080 'Ende des Unterprogramms UP1
1450 'Beginn des Unterprogramms UP2
1460 :
1500 PRINT "Das UNTERPROGRAMM - UP2 - ist aktiv"
1510 GOSUB 2000 'Unterprogramm Warten aufrufen
1520 RETURN
1530 :
1540 'Ende des Unterprogramms UP2
1950 'Beginn des Unterprogramms WARTEN
1960 :
2000 PRINT : PRINT "UP-Warten: WEITER mit einer Taste ";
2010 dummy$ = INPUT$(1)
2020 PRINT : PRINT
2030 RETURN
2540 :
2550 'Ende des Unterprogramms WARTEN