g\set /def  ! Implicit clear
g\pen /def
!
! Colors
g\set box 2 15 2 20
g\set coor user
g\limit 0 1 23 0  ! 23 colors
g\set marker 6 3 .8
g\set font duplex
for i 0 to 23
  g\pen /col i
  g\draw reloc .1 i
  g\label "Pencil /Colour "'I'
  g\draw marker .8 i
next
!
! Dash
g\pen /def
g\set box 16 28 11 20
g\limit 0 1 8 1  ! 8 dash styles
for i 1 to 8
  g\pen /dash i
  g\draw text 0 i "Pencil /Dash "'i' 6
  g\draw reloc 0.5 i
  g\draw line 1 i
next
!
! Weight
g\pen /def
g\set box 16 28 2 8
g\limit 0 1 5 1  ! 5 weights
for i 1 to 5
  g\pen /weight i
  g\draw text 0 i "Pencil /Weight "'i' 6
  g\draw reloc 0.5 i
  g\draw line 1 i
next
!
g\pen /def
