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