Zeile 100 Elna zufillige Zahl zwischen 0 und 255 für die Farbe erzeugen

Zelle 110 : Zurück# ZLITI Hauptprogramm springen

2.

10 CLS

20 POKE 752,1

30 Do

40 A=STRIG(0)

50 IF A=0

60 EXEC FARBE_SETZEN

70 POKE 712,FARBE

80 ENDIF

90 LOOP

100 PR0C FARBE_SETZEN

110 FARBE=INT(RND*254)+1

120 ENDPROC

Beispiel 1 arbeitet auch unter Turbo Basic aber Beispiel 2 nicht unter ATARI BASIC. Die Zeilen 50, 60 und 70 können auch durch

50 IF A=0 THEN EXEC FARBE_SETZEN

60 POKE 712,FARBE

ersetzt werden.

Es fällt auf, das Beispiel 2 deutlicher und lesbarer als Beispiel 1 ist.

TEXT

Grafikinstruktion

Definition:Stellt Text in einen Grafikbildschirm dar. Versicn :ATARI BASIC Turbo BASIC Compiler

*** ***

Syntax :TEET x,y,ausdr

Arynerkung :x gibt die x-Koordinate auf einen Grafikbildschirm an (Spalte). y gibt die y-Koordinate auf einen Grafikbildschim an (Zeile). ausdr stellt einen Str inaausdruck dar, dar zwischen Anführungszeichen stehen muß Ein numer i scher Ausdruck ist auch erlaubt und wird ohne Anführungszeichen angegeben.

x und y stellen immer die Positicn des ersten auszugebenden Zeichens (linkscben) an. Die Positicn wird in Bildpunkten angegeben. Die TEXT-Instrukticn nucht von einigen sehr schnellen Algoritheen Geprauch, die viele nebeneinander liegebe Bildpunkte verhältnismäßig einfach berechnen.

Beispiel : 10 GRAPHICS 8

20 TEXT 50,90,"Turbo BASIC"

30 TEXT 70,95,1000

40 GDTO 40

Siehe auch das Beispiel unter FILLTO.