%%HP: T(3)A(R)F(.);
@ by Joel Nevison
\<< ERASE 1 MIN\GS R\->C N\GS MAX\GS R\->C X 1 (0,0)
  \<< FUNCTION
  \>> Y 7 \->LIST 'PPAR' STO
  \<< \GSDAT X GET
  \>> STEQ DRAW 7 WAIT
\>>