%%HP: T(3)A(D)F(.);
DIR
  SAMP.HLP {
    \<<
"Using HELPMENU
\[] To go forward a page
  press \>> , NXT or +
\[] To go back a page
  press \<< , PREV or -
\[] Press a #, goto Page
\[] ENTER or [ON] quits"
1 DISP
"  Welcome to
   HELPMENU

   \169 1994 by
  Matt Willis"
      IF 1 FS?
      THEN DROP
      ELSE 1 SF
MSGBOX
      END
    \>>
GROB 127 54 00723170770679EE2D910000000000000025511051015B4269400000000000000027317057015F4EE9800000000000000025511051015D42A901000000000000002537707106794E29C000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000003049E6E6ACEAB4000000000000000000204B4AAAA24AA5000000000000000000204F46AAA24AA7000000000000000000204D4AAAA24AA600000000000000000071494AE6EC4AB40000000000000000000000000000000000000000000000000070C9C4C1CD18D5ABB47602BA99B471004084554045044D298521098AAA852200708CD4C14D144D39B722098A99B7220010845540450445398624098AAA8622007184DCD1C508D529B42302BBAAB4210000000000000000000000000000000000704429A4E0AEA60E2A405717075C910040C655A510AAAA0A2A50511501544000704573A7D04AA60AAA707717075C9000404455A6904AAA0A6B60511101540100714459A4E04EEA0E2A40577101DDD0000000000000000000000000000000000050C88560777D52300000000000000000504554105525DA00000000000000000070CC94105725D31000000000000000004045151051255320000000000000000041C4D460712D5A10000000000000000000000000000000000000000000000000708C4942BB18BBBE2910000000000000104555DA8828A29A650000000000000070C55DDB8B28A39AE9000000000000004045945B8828A09AA110000000000000714D8452BB18B09E2D0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000759146020E64EA2382217700000000002550410501AAAAA086BA010000000000279042070D6EEEA08AAB6700000000002511440509AA2AA082AA41000000000025D043050EAA2A2382A2770000000000000000000000000000000000000000
"  You can create your
own help files! 
  Every help file is a
list, displayed by
HELPMENU. You can show
both text and graphics
in a help file."
"  The most basic help
file is a list of
strings. Each can be
up to 8 lines long.

  See VANILLA.HLP for
a simpler file"
"Advanced options...
\[] If you include a 
graphic in the list,
it will be displayed.

\[] Programs in the list
will be executed."
"Thank you for trying
HELPMENU. I hope you
find it useful.

"
}
  VANILLA.HLP {
"THIS IS PAGE 1

PRESS A KEY"
"Hello from page 2

E = m * c ^ 2

(EQ. 1)"
"BYE!" }
  HELPMENU
    \<< STD DUP SIZE
RCLMENU RCLF \-> L S
OM FL
      \<< { -40 64 }
CF 1 'Ctr' STO
CLLCD
        WHILE CLLCD
'L(Ctr)' EVAL
          CASE DUP
TYPE 11 ==
            THEN
\->LCD
            END DUP
TYPE 8 ==
            THEN
EVAL
            END 1
DISP
          END # 21d
# 8d BLANK DUP {
# 0d # 2d } "P" Ctr
+ "/" + S + 1 \->GROB
GOR SWAP DUP DUP
GROB 21 8 000000FFFFF1FFDDF1FFCCF1F74CF1FFCCF1FFDDF1FFFFF1
GROB 21 8 000000FFFFF1F77FF1F76EF1F74CF1F76EF1F77FF1FFFFF1
6 \->LIST TMENU
          IFERR
            IF 64
FC?C
            THEN -1
WAIT
            END
          THEN OM
MENU FL STOF
          END DUP 0
>
        REPEAT
          CASE DUP
16.1 == OVER 95.1
== 3 PICK 26.1 ==
OR OR
            THEN
'Ctr' INCR DROP
            END DUP
15.1 == OVER 26.2
== 3 PICK 85.1 ==
OR OR
            THEN
'Ctr' DECR DROP
            END DUP
51.1 ==
            THEN
DROP OM MENU 'Ctr'
PURGE FL STOF KILL
            END DUP
92.1 ==
            THEN 0
'Ctr' STO
            END DUP
82.1 ==
            THEN 1
'Ctr' STO
            END DUP
83.1 ==
            THEN 2
'Ctr' STO
            END DUP
84.1 ==
            THEN 3
'Ctr' STO
            END DUP
72.1 ==
            THEN 4
'Ctr' STO
            END DUP
73.1 ==
            THEN 5
'Ctr' STO
            END DUP
74.1 ==
            THEN 6
'Ctr' STO
            END DUP
62.1 ==
            THEN 7
'Ctr' STO
            END DUP
63.1 ==
            THEN 8
'Ctr' STO
            END DUP
64.1 ==
            THEN 9
'Ctr' STO
            END
          END DROP
          IF Ctr 0
\<=
          THEN S
'Ctr' STO
          END
          IF Ctr S
>
          THEN 1
'Ctr' STO
          END
        END DROP
'Ctr' PURGE
      \>>
    \>>
  LSPLIT
    \<< \->STR { } SWAP
      DO \-> S
        \<< S 10 CHR
POS DUP
          \<< \-> P
            \<< S 1 P
1 - SUB + S P 1 + S
SIZE SUB 0
            \>>
          \>>
          \<< S 1
          \>> IFTE
        \>>
      UNTIL
      END SWAP DROP
+
    \>>
  L\->G
    \<< 1
      \<<
        IF DUP ""
==
        THEN " " +
        END 1 \->GROB
      \>> DOSUBS
    \>>
  GSTIT
    \<< DUP DUP 1
      \<< SIZE DROP
      \>> DOSUBS
      \<< DUP2
        IF >
        THEN DROP
        ELSE SWAP
DROP
        END
      \>> STREAM SWAP
1
      \<< SIZE SWAP
DROP
      \>> DOSUBS
\GSLIST BLANK SWAP
# 0d SWAP 1
      \<< \-> Y G
        \<< # 0d Y 2
\->LIST G GOR Y G
SIZE SWAP DROP +
        \>>
      \>> DOSUBS DROP
    \>>
  LOOK
    \<< DUP \->LCD 1
FREEZE
    \>>
  HELP.DRV
    \<< 'HELPDIR' DUP
      IF VTYPE 15
==
      THEN EVAL ""
5 TVARS 1
        IF CHOOSE
        THEN RCL
UPDIR HELPMENU
        ELSE UPDIR
        END
      ELSE DROP
"HELP.DRV needs the subdir HELPDIR"
MSGBOX
      END
    \>>
END
