***BUTTONS
;
$P1=*
^c^c
^B
^O
^G
^D
^E
^T

***ICON
**hat1
[Select Hatch Pattern]
[acad(ansi31)]ansi31
[acad(ansi32)]ansi32
[acad(ansi34)]ansi34
[acad(ansi35)]ansi35
[acad(ansi33)]ansi33
[acad(ansi36)]ansi36
[acad(ansi37)]ansi37
[acad(ansi38)]ansi38
[acad(box)]box
[acad(brass)]brass
[acad(brick)]brick
[acad(clay)]clay
[acad(cork)]cork
[acad(cross)]cross
[ Next]$i=hat2 $i=*
[ Exit]^c^c

**hat2
[Select Hatch Pattern]
[acad(dash)]dash
[acad(dolmit)]dolmit
[acad(dots)]dots
[acad(earth)]earth
[acad(escher)]escher
[acad(flex)]flex
[acad(grass)]grass
[acad(grate)]grate
[acad(hex)]hex
[acad(honey)]honey
[acad(hound)]hound
[acad(insul)]insul
[acad(line)]line
[acad(mudst)]mudst
[ Next]$i=hat3 $i=*
[ Exit]^c^c

**hat3
[Select Hatch Pattern]
[acad(net)]net
[acad(net3)]net3
[acad(plast)]plast
[acad(plasti)]plasti
[acad(sacncr)]sacncr
[acad(square)]square
[acad(stars)]stars
[acad(steel)]steel
[acad(swamp)]swamp
[acad(trans)]trans
[acad(triang)]triang
[acad(zigzag)]zigzag
[acad(angle)]angle
[ Beginning]$i=hat1 $i=*
[ Exit]^c^c

***SCREEN
[--------]
[H A T]
[--------]


[Select]S

[?]?