NCR GW-BASIC Betriebsanleitung Seite 126

G
W-BASIC-BEFEHLEUND FUNKTIONEN
COLOR
Hinweis:
4-52
90 TIME$= "00:00:00"
100 COLOR 0,0
110 INPUT 1$
120 T$=RIGHT$(TIME$,2)
130 SLOW$=RIGHT$(TIME$,4)
140 CLS
150 IF I$()X$ THEN GOTO 220
160 COLOR 23,0
170 PRINT X$:PRINT:PRINT
180 PRINT " GUT GEMACHT"
190 IF ASC(SL0W$)O48 THEN PRINT "Sie
haben aber mindestens eine Minute
gebraucht": GOTO 260
200 PRINT "Sie brauchten ";T$" Sekunden":-
PRINT
210 GOTO 260
220 COLOR 7,0
230 PRINT "Nicht ganz richtig..." :PRINT
240 PRINT "Sie hätten eingeben sollen:":
PRINT X$:PRINT
250 PRINT „...das haben Sie geschrieben:":
PRINT 1$
260 COLOR 7,0
270 IF INKEY$="" THEN GOTO 270
280 CLS
290 END
Die abschließende Angabe in einem COLOR-
Befehl sollte kein Komma sein.
Ein Wert der sich außerhalb des erlaubten Bereichs
befindet, kann zu einem unerlaubten Funktionsauf­
ruf ("illegal function call" error) fuhren.
Die Art der Anzeige (Textmodus, niedrige, mittlere
oder hohe Graphikauflösung) kann durch den
SCREEN-Befehl bestimmt werden.
GW-BASIC