set pen Example
10 DATA .5,.5,.5 ! 8 = dark grey
20 DATA .75,.75,.75 ! 9 = light grey
30 DATA .5, 0, 0 ! 10 = dark red
40 DATA .5,.5, 0 ! 11 = dark yellow
50 DATA 0,.5, 0 ! 12 = dark green
60 DATA 0,.5,.5 ! 13 = dark cyan
70 DATA 0, 0,.5 ! 14 = dark blue
80 DATA .5, 0,.5 ! 15 = dark magenta
90 RESTORE
100 DIM Palette(8:15,1:3)
110 CLEAR SCREEN
120 PRINT "*** SET PEN TEST ****"
130 PLOTTER IS CRT,"INTERNAL";COLOR MAP
140 READ Palette(*)
150 SET PEN 8 INTENSITY Palette(*)
160 X=0
170 Y=85
180 FOR Loop=8 TO 15
190 MOVE X,Y
200 AREA PEN Loop
210 RECTANGLE 10,10,FILL,EDGE
220 WAIT 1
230 X=X+10
240 NEXT Loop
250 END
