**hatch1
[Select Hatch Pattern]
[ Previous/User]^c^c^p(if (not C:htch)(load "htch"));htch
[acad(ansi31)]^c^c^p(setq pat "ansi31") (if (not C:htch)(load "htch"));htch
[acad(ansi32)]^c^c^p(setq pat "ansi32") (if (not C:htch)(load "htch"));htch
[acad(ansi34)]^c^c^p(setq pat "ansi34") (if (not C:htch)(load "htch"));htch
[acad(ansi35)]^c^c^p(setq pat "ansi35") (if (not C:htch)(load "htch"));htch
[acad(ansi33)]^c^c^p(setq pat "ansi33") (if (not C:htch)(load "htch"));htch
[acad(ansi36)]^c^c^p(setq pat "ansi36") (if (not C:htch)(load "htch"));htch
[acad(ansi37)]^c^c^p(setq pat "ansi37") (if (not C:htch)(load "htch"));htch
[acad(ansi38)]^c^c^p(setq pat "ansi38") (if (not C:htch)(load "htch"));htch
[acad(box)]^c^c^p(setq pat "box") (if (not C:htch)(load "htch"));htch
[acad(brass)]^c^c^p(setq pat "brass") (if (not C:htch)(load "htch"));htch
[acad(brick)]^c^c^p(setq pat "brick") (if (not C:htch)(load "htch"));htch
[acad(clay)]^c^c^p(setq pat "clay") (if (not C:htch)(load "htch"));htch
[acad(cork)]^c^c^p(setq pat "cork") (if (not C:htch)(load "htch"));htch
[ Next]$i=hatch2 $i=*
[ Exit]^c^c

**hatch2
[Select Hatch Pattern]
[acad(cross)]^c^c^p(setq pat "cross") (if (not C:htch)(load "htch"));htch
[acad(dash)]^c^c^p(setq pat "dash") (if (not C:htch)(load "htch"));htch
[acad(dolmit)]^c^c^p(setq pat "dolmit") (if (not C:htch)(load "htch"));htch
[acad(dots)]^c^c^p(setq pat "dots") (if (not C:htch)(load "htch"));htch
[acad(earth)]^c^c^p(setq pat "earth") (if (not C:htch)(load "htch"));htch
[acad(escher)]^c^c^p(setq pat "escher") (if (not C:htch)(load "htch"));htch
[acad(flex)]^c^c^p(setq pat "flex") (if (not C:htch)(load "htch"));htch
[acad(grass)]^c^c^p(setq pat "grass") (if (not C:htch)(load "htch"));htch
[acad(grate)]^c^c^p(setq pat "grate") (if (not C:htch)(load "htch"));htch
[acad(hex)]^c^c^p(setq pat "hex") (if (not C:htch)(load "htch"));htch
[acad(honey)]^c^c^p(setq pat "honey") (if (not C:htch)(load "htch"));htch
[acad(hound)]^c^c^p(setq pat "hound") (if (not C:htch)(load "htch"));htch
[acad(insul)]^c^c^p(setq pat "insul") (if (not C:htch)(load "htch"));htch
[acad(line)]^c^c^p(setq pat "line") (if (not C:htch)(load "htch"));htch
[ Next]$i=hatch3 $i=*
[ Exit]^c^c

**hatch3
[Select Hatch Pattern]
[acad(mudst)]^c^c^p(setq pat "mudst") (if (not C:htch)(load "htch"));htch
[acad(net)]^c^c^p(setq pat "net") (if (not C:htch)(load "htch"));htch
[acad(net3)]^c^c^p(setq pat "net3") (if (not C:htch)(load "htch"));htch
[acad(plast)]^c^c^p(setq pat "plast") (if (not C:htch)(load "htch"));htch
[acad(plasti)]^c^c^p(setq pat "plasti") (if (not C:htch)(load "htch"));htch
[acad(sacncr)]^c^c^p(setq pat "sacncr") (if (not C:htch)(load "htch"));htch
[acad(square)]^c^c^p(setq pat "square") (if (not C:htch)(load "htch"));htch
[acad(stars)]^c^c^p(setq pat "stars") (if (not C:htch)(load "htch"));htch
[acad(steel)]^c^c^p(setq pat "steel") (if (not C:htch)(load "htch"));htch
[acad(swamp)]^c^c^p(setq pat "swamp") (if (not C:htch)(load "htch"));htch
[acad(trans)]^c^c^p(setq pat "trans") (if (not C:htch)(load "htch"));htch
[acad(triang)]^c^c^p(setq pat "triang") (if (not C:htch)(load "htch"));htch
[acad(zigzag)]^c^c^p(setq pat "zigzag") (if (not C:htch)(load "htch"));htch
[acad(angle)]^c^c^p(setq pat "angle") (if (not C:htch)(load "htch"));htch
[ Beginning]$i=hatch1 $i=*
[ Exit]^c^c