%%HP: T(3)A(D)F(.);
DIR
  BOOKMARK 872
  TXT1
"-- ZARATHUSTRA'S PROLOGUE --
         PART I
WHEN ZARATHUSTRA WAS THIRTY YEARS OLD, HE LEFT HIS HOME AND THE LAKE OF HIS HOME AND WENT INTO THE MOUNTAINS.
HERE HE HAD THE ENJOYMENT OF HIS SPIRIT AND HIS SOLITUDE AND HE DID NOT WEARY OF IT FOR TEN YEARS. BUT AT LAST HIS HEART TURNED - AND ONE MORNING HE ROSE WITH THE DAWN, STEPPED BEFORE THE SUN, AND SPOKE TO IT THUS:
GREAT STAR! WHAT WOULD YOUR HAPPINESS BE, IF YOU HAD NOT THOSE FOR WHOM YOU SHINE!
YOU HAVE COME UP HERE TO MY CAVE FOR TEN YEARS: YOU WOULD HAVE GROWN WEARY OF YOUR LIGHT AND THIS JOURNEY, WITHOUT ME, MY EAGLE AND MY SERPENT. 
BUT WE WAITED FOR YOU EVERY MORNING, TOOK FROM YOU YOUR SUPERFLUITYAND BLESSED FOR IT.
BEHOLD! I AM WEARY OF MY WISDOM, LIKE A BEE THAT HAS GATHERED TOO MUCH HONEY; i NEED HANDS OUTSTRETCHED TO TAKE IT.
I SHOULD LIKE TO GIVE IT AWAY AND DISTRIBUTE IT, UNTIL THE WISE AMONG MEN HAVE AGAIN BECOM HAPPY IN THEIR FOLLY AND THE POOR HAPPY IN THEIR WEALTH."
  TXT2
"THIS IS AN EXAMPLE OF A NUMBER OF WORDS TO BE DISPLAYED ON THE CALCULATOR SCREEN AS IF IT WAS A BOOK.THIS IS AN EXAMPLE OF A NUMBER OF WORDS TO BE DISPLAYED ON THE CALCULATOR SCREEN AS IF IT WAS A BOOK.THIS IS A GOOD EXAMPLE OF A NUMBER OF WORDS TO BE DISPLAYED ON THE CALCULATOR SCREEN AS IF IT WAS A BOOK.THIS IS AN EXAMPLE OF A NUMBER OF WORDS TO BE DISPLAYED ON THE CALCULATOR SCREEN AS IF IT WAS NOT  A BOOK.THIS IS AN EXAMPLE OF A NUMBER OF WORDS TO BE DISPLAYED ON THE CALCULATOR SCREEN AS IF IT WAS PERHAPS A BOOK."
  BOOKPOS 659
  READ
    \<< PGRAFX PICT
STO { # 0d # 0d }
PVIEW TXT1 SIZE
'TLEN' STO 1
'PAGENO' STO 0
'ENDFLAG' STO 1
'BOOKPOS' STO
      DO 1 NLIN
        FOR PGLIN
PICT TXT1 BOOKPOS
PGLIN 1 - NCHAR * +
DUP NCHAR 1 - + SUB
SCHAR \->GROB # 4d
# 1d PGLIN 1 -
LINHT * * # 4d + 2
\->LIST SWAP REPL
PICT BOOKPOS NLIN
NCHAR * / 1 + IP 1
\->GROB # 43d # 57d 2
\->LIST SWAP REPL
        NEXT 0 WAIT
IP 'KPR' STO
        CASE KPR 16
== KPR 26 == KPR 35
== OR OR
          THEN
BOOKPOS NLIN NCHAR
* + DUP
            IF TLEN
\>=
            THEN
DROP 1000 .1 BEEP
            ELSE
'BOOKPOS' STO
            END
          END KPR
14 ==
          THEN TXT1
"Text to find:" ""
INPUT POS
            CASE
DUP NLIN NCHAR * \<=
              THEN
1 'BOOKPOS' STO
              END
DUP TLEN NLIN NCHAR
* - \<=
              THEN
TLEN NLIN NCHAR * -
'BOOKPOS' STO
              END
NLIN NCHAR * 2 / IP
- 'BOOKPOS' STO
            END {
# 0d # 0d } PVIEW
          END KPR
15 ==
          THEN
BOOKPOS 'BOOKMARK'
STO 1600 .2 BEEP
          END KPR
25 ==
          THEN
BOOKPOS NLIN NCHAR
* - DUP
            IF 1 \<=
            THEN
DROP 1 DUP
'BOOKPOS' STO
            ELSE
'BOOKPOS' STO
            END
          END 1000
.5 BEEP
        END PGRAFX
PICT STO
      UNTIL ENDFLAG
1 ==
      END 0 WAIT
    \>>
  KPR 14
  PGRAFX
GROB 131 64 FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040100000000000000000000000000000004010000000000000000000000000000000401000000000000000000000000000000040FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFF100000000002000000100008000407644D91177000000ABB4300542358000207555D9AA41100000A095500D65558000207655E99B03000000A19650055733800C107555D98A61100000A094500545558004007644D98277000000A8B4300545558A2400FFFFF10000000000200000010000800300FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000
  PAGENO 1
  BOTMSG
GROB 81 6 7376609AE0EE602AB93000551110BA402AA06BAA0000737220F440EA60AAA93000151440DA402AA02AAA00001573309A402EA02ABABA000000000000000000000000
  BOTTXT
"PRESS NXT FOR MORE..."
  NCHAR 28
  SCHAR 1
  LINHT 6
  NLIN 8
  TLEN 948
  ENDFLAG 0
  PPAR {
(-6.5,-3.1)
(6.5,3.2) X 0 (0,0)
FUNCTION Y }
END
