kbd line pen Example10 DIM Sometext$[30]
20 CLEAR SCREEN
30 Pencolor=6
40 KBD LINE PEN Pencolor ! Sets the keyboard line pen color
50 PRINT "Input line is in Blue!"! Output in default ALPHA PEN color
60 INPUT "Input some text",Sometext$ ! Input should appear in Blue for Pencolor 6
70 PRINT Sometext$
80 PRINT "Output is in default color"! All output appears in default ALPHA PEN color
90 END
|