( PACTEXTF - minimize text file size [HP71 FORTH])
( Tapani Tarvainen 85/10/27)
( extracted from TXTWORDS)
( ?FORGET from FLIB)
?FORGET PACTEXT HERE BASE @ DECIMAL
: PACTEXT ( str--)
  ( FINDF) 1 END$ " HTD(ADDR$(FORTH$))" BASICI
  ?DUP IF ( do nothing if not found)
  DUP
  ( PASTEOF)
    DUP 37 + SWAP
    ( FLEN)
      32 + @ 5- DUP >R
    IF
    ( FINDEOF)
      BEGIN DUP
      ( EOFTXT NOT) 4N@ [ HEX ] FFFF <>
      WHILE
      ( NEXTREC)
        DUP
        ( RECLEN)
          DUP 2- @ FF00 AND SWAP 2+ C@ OR
        ( UPTOEVEN) 1+ 2/ 2*
        2* +
        ( 4+) [ E09D0 , ]
      REPEAT
    ( 4+)  [ E0D90 , ]
    THEN 
  DUP ROT [ DECIMAL ] 37 +
  R> ( FLEN)
  + - ADJUSTF
  DROP THEN ;
BASE ! HERE SWAP - . .( nibs )