%%HP: T(3)A(R)F(,);
@
@ TRIAL (generated by hp48pack at 21.12.90)
@
@$NAME     TRIAL
@$DATE     21.12.90
@$VERSION  2.18
@
@
@ UserTrial      2.02 11.12.90
@ CodeTrial      1.00 21.12.90
@ Install        2.00 21.12.90
@ TRIAL          2.00 21.12.90
@
@
\<< CLLCD
  "----------------------" DUP 1 DISP
  "TRIAL    2.18 21.12.90" 2 DISP
   DUP 3 DISP
   " Factoring by a Wheel" 4 DISP
   "    by Klaus Kalb" 5 DISP
   6 DISP
\<<
@ $NAME    UserTrial
@ $DATE    11.12.90
@ $VERSION 2.02

\<<
   \-> n b
   \<<
     IFERR
       IF n TYPE DUP 0 \=/ SWAP 10 \=/ AND THEN 514 DOERR END
       IF b TYPE DUP 0 \=/ SWAP 10 \=/ AND THEN 514 DOERR END
       IF n #0d + DUP #7FFFFFFFFFFFFFFFh > SWAP #0d == OR THEN 515 DOERR END
       IF b #0d + #FFFFFh > THEN 515 DOERR END
     THEN
       IF -55 FC? THEN n b END
       ERRN DOERR
     END
     n #0d +
     b #0d +
     CodeTrial
     SWAP
     #18DBFh SYSEVAL    @ Short to Real
     \-> r k
     \<<
       IF k THEN
         1 k START
           #18DBFh SYSEVAL 
           k ROLL
         NEXT
       END
       k \->LIST

       IF r #1d > THEN
         r
         IF
           DUP DUP B\->R R\->B ==
           THEN
             B\->R
           END
           +
         END
       IF b #1d + DUP * r > THEN "+" \->TAG END
     \>>
   \>>
\>>

@ $END UserTrial

 'UserTrial' STO


@ $NAME    CodeTrial
@ $DATE    21.12.90
@ $VERSION 1.00
@ $COMMAND ASC\->

"CCD20B61008F77F3510110AAF210810B2081B58082444000C213665702424626
42466264264684242486462462664246264242A2A021224011BD2BF6BF6BF6BF
6BF6BF61088F2D7608F735608FB97601112F8DD6950AF015A097CB12081B5808
24C7FFFC21366EDF118C24A91081181129F2C8111118AF3AF19F262A76B779FE
7F81EA75A7F9F280B7AB7597F9E11A9F180AF910A97CD3AF4101113132AF2263
01A7A103208F2D7608F735608FB9760113130657F1606E3F2485"

@ $END CodeTrial

 ASC\->
 'CodeTrial' STO


@ $NAME    Install
@ $DATE    21.12.90
@ $VERSION 2.00
\<<
  'UserTrial' RCL
   #054AFh SYSEVAL  @ PRG\->
   #05459h SYSEVAL  @ \->LIST
   DUP 'CodeTrial' POS 
   SWAP SIZE
   SWAP - 2 + \-> n 
   \<<
      'UserTrial' RCL #054AFh SYSEVAL 
      n ROLL
      DROP 'CodeTrial' RCL
      n ROLLD   
   \>>
   #05445h SYSEVAL @ \->PRG
\>>
@ $END Install

 'Install' STO


@ $NAME    TRIAL
@ $DATE    21.12.90
@ $VERSION 2.00
@ $COMMAND EVAL

\<<
   Install
   { 'UserTrial' 'CodeTrial' 'Install' } PURGE
\>>
@ $END TRIAL

 EVAL
 'TRIAL' STO


\>>
  " unpack ?" 7 DISP
@
  { { "YES" \<< EVAL 
             " TRIAL installed." 7 DISP 3 FREEZE
             0 MENU \>> }
             "" "" "" "" 
    { "NO" \<< DROP 
             0 MENU \>> }
  } 3 FREEZE TMENU \>> 

@$END TRIAL

@ END END END END END END END END END END END END END END END END END END
