NCR GW-BASIC Betriebsanleitung Seite 285

GW-BASIC
muster mit Leerzeichen, während die Leertaste
betätigt wird (Zeilen 40 bis 60).
Mit Zeile 30 wird festgelegt, daß sich GW-BASIC ab
Zeile 160 zu der Subroutine verzweigt, wenn die
Anzahl von noch zu spielenden Noten für die Hin­
tergrundmusik von 1 auf 0 geht. Mit der Subroutine
wird GW-BASIC angewiesen, den Hintergrundton
(erneut) zu spielen. Mit Zeile 40 wird die Pro­
grammverzweigung aktiviert. Zeile 50 spielt den
Hintergrundton mit dem Befehl PLAY. Ohne die­
sen Befehl würde die Bedingung für eine Pro­
grammverzweigung bei Musik, die in Zeile 30 ange­
geben wird, niemals erfüllt, und es würde keine
Musik gespielt.
10 SCREEN 0:WIDTH 80
20 KEY OFF
30 ON PLAY (1) GOSUB 160
40 PLAY ON
50 GOSUB 160
60 CLS
70 IF INKEY$="" THEN GOTO 70
80 COLOR INT(32*RND)
90 LI%=INT(25*RND+ 1)
100 PO%=INT(80*RND+1)
110 IF LI°/o>25 THEN LI%=24
120 IF PO°/a>80 THEN PO%=80
130 LOCATE LP/
140 PRINT CHR$(219);
150 GOTO 70
160 REM *********
170 PLAY "o2 mb tl40 f aa c aa"
180 RETURN
GW-BASIC-BEFEHLE UND FUNKTIONEN
,PO%
q
PLAY
4-211