Commodore 64 Bedienungshandbuch Seite 67

80 PRINTCHR$(144);: GOTO 10
90 PRINTCHR$(156);: GOTO 10
100 PRINTCHR$(158);: GOTO 10
110 PRINTCHR$(159);: GOTO 10
120 PRINTCHR$(129);: GOTO 10
130 PRINTCHR$(149);: GOTO 10
140 PRINTCHR$(150);: GOTO 10
150 PRINTCHR$(151);: GOTO 10
160 PRINTCHR$(152);: GOTO 10
170 PRINTCHR$(153);: GOTO 10
180 PRINTCHR$(154);: GOTO 10
190 PRINTCHR$(155);: GOTO 10
Nach dem Eintippen der Zeilen 1 bis 40 sollte Ihr Bildschirm wie folgt
aussehen:
1 REM AUTOMATISCHE FARBBALKEN
5 PRINTCHR$(147) : REM CHR$(147) = CLR/HOME
10 PRINT CHR$(18); "
20 CL = INT (16*RND(1))+1
30 ON CL GOTO 40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190
40 PRINTCHR$(5);: GOTO 10
T T
EDIERHINWEISE
Bewegen Sie zuerst den Cursor mit Hilfe der Cursor-Steuertasten auf die
"4" der Zeilennummer 40. Tippen Sie nun eine "5", so daß die
Zeilennummer 50 entsteht. Steuern Sie nun den Cursor zwischen die
Klammern der
<INST/DEL> schaffen Sie dort Platz für eine zweistellige Zahl und tippen
dann die "28" ein. Nach dem Drücken der <RETURN>-Taste sollte der
Bildschirm wie folgt aussehen.
1 REM AUTOMATISCHE FARBBALKEN
5 PRINTCHR$(147) : REM CHR$(147) = CLR/HOME
10 PRINT CHR$(18); "
20 CL = INT (16*RND(1))+1
30 ON CL GOTO 40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190
50 PRINTCHR$(28);: GOTO 10
T T
Wenn Sie sich das Programm neu auflisten lassen, werden Sie
feststellen, daß die Zeile 40 weiterhin existiert. Wenn Sie jetzt in der
neuen Zeile 50 in gleicher Weise Zeilennummer und CHR$-Code
verändern, können Sie eine weitere Zeile erzeugen, und auf diese Weise
das Programm mit geringem Aufwand fertigstellen. Vergleichen Sie zum
Schluß noch einmal den gesamten Programmtext und starten Sie es
dann.
"; : REM REVERSER BALKEN
CHR$-Funktion.
"; : REM REVERSER BALKEN
Durch Drücken
59
von <SHIFT>