NCR GW-BASIC Betriebsanleitung Seite 71

ANZEIGE A M BILDSCHIRM
Kartesische oder SCREEN Koordinaten?
10 INPUT "k für kartesische";C$
Alle Zahlenvariablen ganzzahlig
20 DEFINT A-Z
WINDOWS für den Ursprung in der Ecke und im Zentrum
30 REM Xl=0:yl=0:X2=639:Y2=399
40 X1=320Y1=200:X2=319:Y2=199
Hohe Auflösung, Farbe aktiviert
50 SCREEN 4,0
WINDOW setzen, je nachdem ob es sich um kartesische oder nichtkarte­
sische Koordinaten handelt.
60 IF C $ 0 "k" THEN WINDOW SCREEN(X1,Y1)<X2,Y2):
ELSE WINDOW (X1,Y1)-(X2,Y2)
Am Anfang werden die Leuchtpunkte nicht gelöscht
70 ERON$-"N":EROFF$="Y '
Zeichenkette von 30 Leerzeichen, die zum Löschen von „Palette?" und
„Farbnummerß?" benützt werden
80 B$=STRING$(30," ")
Schwarzer Hintergrund, Palette 1, die anfangs aktive Zeichnungsfarbe ist
Magenta
90 COLOR 0,1:C0L=2
Der erste angesprochene Punkt ist der Ursprung
100 EXX0-0:WYE=0
Nach jeder Bewegung am Bildschirm bzw. Farbeinstellung kehrt GW-
BASIC hierher zurück.
110 GOSUB 330
120 IF K $-"x" THEN GOTO 510
130 IF K$="c" THEN GOSUB 370:GOTO 110
140 IF K$("l " OR K$)"9" THEN GOTO 110
150 IF ERON$="Y ' THEN PRESET (EXX,WYE)
GW-BASIC
3-11