NCR GW-BASIC Betriebsanleitung Seite 277

GW-BASIC
machen und lassen Sie GW-BASIC statt dessen
Zeile 70 ausführen. Sie werden feststellen, daß das
Zeichnen gestoppt wird, sobald die erste violette
Linie gezeichnet werden soll. Beachten Sie, daß das
Muster für das Überzeichnen in diesem Beispiel
aus der Zeichenfolgenvariablen PATT$ genommen
wurde. Dank der in Zeile 50 erzeugten Verzögerung
können Sie beobachten, was auf dem Bildschirm
geschieht.
10 SCREEN LCOLOR 0,1
20 PATT$=CHR$(&H55)+CHR$(&H55)+
CHR$(&HAA)+CHR$(&HAA)
30 DRAW "u90 r90 d90 190"
40 PAINT STEP (5,-5),2,3
50 FOR DLY%=1 TO 1000:NEXT DLY%
60 PAINT STEP (5,-5),PATT$,3,CHR$(&HAA)
70 REM PAINT STEP (5,-5),PATT$,3
GW-BASIC-BEFEHLE UND FUNKTIONEN
PAINT
4 -2 0 3