# this is a comment # this is an indented comment # that was a blank line # The first state is called 1. # The final state, 3, prints out all captured data. # # A normal sequence is defined in SEQ, but ain't necessarily what the user # is going to go through. # # The corresponding state->html file and state -> perl-file mappings are # also defined here. # # ignore GLOBALERR, ERRORVEC, and HELPTXT -- they're holdovers from a # more extensive version of this system. store (control) { scalar STATE 1 scalar NEXT 2 scalar TERM 3 scalar GLOBALERR hash ERRORVEC 1 1 hash HELPTXT 1 1 array SEQ 1 2 3 hash ST_HTML 1 1 2 2 3 3 hash ST_PERL 1 1 2 2 3 3 }