NCR GW-BASIC Betriebsanleitung Seite 311

GW-BASIC
Mit Zeile 50 wird ein roter Kreis gezeichnet. Mit
Zeile 55 wird dieser Kreis grün ausgefüllt. Da der
Durchmesser des Kreises 20 Bildschirmpunkte
beträgt, wird ein Bereich von 20 x 20 Bildschirm­
punkten von dem GET-Befehl (Zeile 70) gespei­
chert, nachdem die obere linke Ecke dieses
Bereichs er-mittelt wurde (Zeile 60). Mit Zeile 150
wird der grüne Ball wieder auf dem Bildschirm
angezeigt. Zeile 160 ruft eine Subroutine auf, die X°/o
und Y% je nach der betätigten Zifferntasten ver­
schobene Werte zuweisen. ("7" führt zu einem
Minus in der x- und y-Richtung; "9" führt zu einem
Plus in der x-Richtung und einem Minus in der y-
Richtung usw). In Zeile 170 wird das Abbild des
Balls wieder mit XOR in die alte Position gesetzt.
Auf diese Weise wird das Abbild gelöscht und der
Ball sofort in der nächsten Position angezeigt, wobei
die in X°/ound Y% enthaltenen verschobenen Werte
benutzt werden.
Mit der Fehleninterbrechungsroutine wird die Feh­
lermeldung "Illegal function call" (Unzulässiger
Funktionsaufruf) ausgegeben, wenn versucht wird,
ein Abbild in einen Bereich außerhalb des Bild­
schirms zu setzen.
5 ON ERROR GOTO 1100
10 D M BALL%(64)
20 PI=3.141593
30 SCREEN 1:CLS
40 COLOR 0,0
50 CIRCLE (160,100),10,2
55 PAINT STEP (0,0),1,2
60 PRESET STEP (-10,-10)
70 GET
(POINT(0),POINT(l))-STEP(20,20),BALL0 /o
100 CLS
150 PUT STEP(X%Y%),BALL°AXOR
160 GOSUB 1000
170 PUT STEP(0,0),BALL^XOR
180 GOTO 150
500 REM
1000 REM ******** Betrachten Sie die Tastatur
1001 IF INKEY$="" THEN GOTO 1001
GW-BASIC-BEFEHLE UND FUNKTIONEN
PUT (GRAFIK)
4-237