%%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
Ö>>