%%HP: T(3)A(D)F(.);
\<< 'v5.0' DROP 4 SF
-55 SF { { 6 SF } {
4 CF } { 6 6 FS? {
CF } { SF } IFTE }
{ HPCA } {
"JUMP TO PAGE!" " "
INPUT OBJ\-> 10 * 9 -
"'P'" OBJ\-> STO } {
"'P'" OBJ\-> -10 STO+
} { "'P'" OBJ\-> 10
STO+ } } { 11.1
12.1 13.1 14.1 15.1
16.1 } 1 \-> DC COM
KEYS P
  \<<
    DO { # 0h # 0h
} PVIEW ERASE P P 9
+
      FOR I PICT
# 0h I 1 - 10 MOD
R\->B 6 * 2 \->LIST DC
I
        IFERR GET
        THEN ""
        END 1 \->GROB
REPL
      NEXT COM KEYS
{ "EXIT" "+/-"
"HPCA" "JUMP"
"PGUP" "PGDN" }
TMENU 6 FS? -1 0
IFTE
      IFERR WAIT
      THEN 4 CF 0
      END POS 1 +
GET EVAL
    UNTIL 4 FC?
    END
  \>> 2 MENU
\>>
