NCR GW-BASIC Betriebsanleitung Seite 312

GW-BASIC-BEFEHLE UND FUNKTIONEN
PUT (GRAFIK)
Hinweis:
4-238
1005 X%=0:X%=0
1010 FOR LOOL°/o=l TO 5
1020 K$=INKEY$
1030 X%=X°/o-4*(K$="9" OR K$="6" OR
K$="3") + 4*(K$="7" OR K$="4" OR
K$='T")
1040 Y°/<r=4*(K$="3" OR K$="2" OR
K$="l ") + 4*(K$="9" OR K$="8" OR
K$="7")
1050 NEXT LOOK%
1060 RETURN
1100 REM ******** Unterbrechung, wenn Ball
vom Bildschirm läuft
1110 IF ERR=5 THEN BEEP:RESUME 50
1120 ERROR GOTO 0
Ein Flackern des Bildschirms wird auf ein Mindest­
maß beschränkt, indem das neue Abbild unmittel­
bar nach dem Löschen des alten Abbildes angezeigt
wird (Zeile 180).
Der Hintergrund muß nicht unbedingt bewahrt
werden. Sie können auch eine einzelne Matrix, die
sowohl das neue Abbild als auch ausreichend Hin­
tergrundpunkte für das alte Abbild enthält, mit
PUT auf den Bildschirm setzen, wobei PSET als
"Abbild" benutzt wird. Auf diese Weise wird einer
der beiden PUT-Befehle beibehalten, die bei
Benutzung von XOR "Abbild" erforderlich sind.
Dies bedeutet jedoch auch, daß die Matrix entspre­
chend größer sein muß.
GW-BASIC