NCR GW-BASIC Betriebsanleitung Seite 72

ANZEIGE A M BILDSCHIRM
160 IF C $ 0 "c" THEN ON VAL(K$) GOTO 180,190,200,210,
220,230,240,250,260
170 IF C$="c" THEN ON VAL(K$) GOTO 240,250,260,210,
220,230,180,190,200
180 EXX=EXX-1 :WYE=WYE+1 :GOTO 270
190 WYE=WYE+1 :GOTO 270
200 EXX=EXX+1 :WYE=WYE+1 :GOTO 270
210 EXX=EXX-1 :GOTO 270
220 GOTO 310
230 EXX=EXX+1 :GOTO 270
240 EXX=EXX-l:WYE=WYE-l:GOTO 270
250 WYE=WYE-l:GOTO 270
260 EXX=EXX+1 :WYE=WYE-1 :GOTO 270
270 IF EXX>X2 OR EXX<X1 OR WYE<Y2 OR WYE>Y1
THEN BEEP
280 PSET (EXX,WYE),COL
Greben Sie die augenblicklich angesprochenen Koordinaten aus imd keh­
ren Sie zur nächsten Eingabe auf der Tastatur zurück.
290 LOCATE 25,1:PRINT EXX;", ";WYE;
300 GOTO 110
GW-BASIC gelangt erst hierher, wenn Taste 5 betätigt wurde
310 SWAP ERON$,EROFF$
320 GOTO 110
Unterprogramme
330 REM***** Tastatur lesen
340 K$=INKEY$
350 IF K$="" THEN GOTO 340
360 RETURN
370 REM ***** SET COLOR
380 LOCATE 25,1
390 PRINT "Palette?";
400 GOSUB 330
410 IF K$<"0" OR K$>"1"THEN GOTO 380
420 PAl°/o=Val(K$)
430 LOCATE 25,1
440 PRINT "Farbnummer?";
450 GOSUB 330
460 IF K$<"1" OR K$>"3" THEN GOTO 430
470 COL°/o=VAL(K$)
3-12
GW-BASIC