Inhaltsverzeichnis
Werbung
ERWEITERUNGEN
Merke:
Ð
Anweisung:
Format:
Bemerkung:
Beispiel:
92
ON. . .GOTO
und
ON. . .GOSUB. . .
GOTO
ON i
GOSUB
Die Anweisungen verzweigen das Programm zu der Zeilen-
nummer, die als i-te in der Liste steht. Im Fall ON . . .
GOSUB sind die Zeilennummern die Adresse der aufzuru-
fenden Unterprogramme. Die Zeilennummern werden von-
einander durch Kommata getrennt.
stets auf eine ganze Zahl abgerundet.
Ist i = « oder größer als die Anzahl der Listenelemente,
wird der Befehl ignoriert und die nächste Zeile ausgeführt.
Der gerundete Wert von i muß im Bereich von « bis 255
liegen.
PROGRAMM SCHERE-STEIN-PAPIER
1« RANDOMIZE
2« WINDOW0,31,0,39:COLOR7,1:CLS:WINDOW
3« A$="SCHERE":B$="STEIN":C$="PAPIER"
4« PRINT A$,B$,C$
5« PRINT:PRINT
6« PRINT"SPIELREGELN:":PRINT
7« PRINT"-SCHERE SCHNEIDET PAPIER":PRINT
8« PRINT"-STEIN SCHLEIFT SCHERE":PRINT
9« PRINT"-PAPIER WICKELT STEIN EIN":PRINT:PRINT
1«« INPUT"WAS WAEHLST DU?";S$
11« IF S$=A$ THEN S=3:PRINT
12« IF S$=B$ THEN S=6:PRINT
13« IF S$=C$ THEN S=9:PRINT
14« IF S=« THEN PRINT"FALSCHE EINGABE":GOTO1««
15« WINDOW15,18,«,39
16« COLOR«,5:CLS:PRINT"ICH WAEHLE";
Â
17« C=INT(3
RND(1))
18« ON C Í S GOTO2«,2«,19«,2««,21«,22«,23«,24«,25«,26«,
27«
19« PRINTA$:GOSUB46«:GOTO28«
Liste von Zeilennummern
17
Der Ausdruck i wird
Quicklinks ausblenden:
Werbung
Inhaltsverzeichnis
