NCR GW-BASIC Betriebsanleitung Seite 380

GW-BASIC-BEFEHLE UND FUNKTIONEN
W INDOW
4-306
ein Zoom-Out erzeugt. Die in Zeile 143 gezeichne­
ten Kästchen sind für das Zoom-In geeignet. Für
das
Zoom -O ut versuchen Sie, diese Z eile zur
Zeile zu machen und REM aus Zeile 145 zu löschen.
5 X1=-160:Y1=-100:X2=159:Y2=99
10 SCREEN l:CLS:COLOR 0,0
20 WINDOW (X1,Y1KX2,Y2)
40 GOSUB 130
50 LOCATE l,l:INPUT;"Zoom/Pan in Position
x,y?"; X,Y
60 LOCATE l,l:INPUT;"Zoom-Faktor - Zoom-
Out:<l?
61 LOCATE „0
62 FOR S O 1 TO ZP STEP (ZP<=l)*ZP/30-
(ZP>l)*(ZP-l)/60
70 CLS
80 WINDOW
((X*SC+X1)/SC,(Y*SC+Y1)/SC)-
((X*SC+X2)/SC,(Y*SC+Y2)/SC)
100 GOSUB 130
102 NEXT SC
110 IF INKEY$="" THEN 110
120 STOP
125 REM ***** Achsen und Kästchen zeichnen
130 LINE (0,50M0,-50),1:LINE (-60,0X60,0),1
143 LINE (20,20X30,30),2,BF:LINE
(-20,-20X-5,-5),3,BF
145 REM LINE (20,20)-(60,60),2,BF:LINE
(-40,-40)-(-5,-5),3,BF
170 RETURN
";ZP
REM-
G
W-BASIC