x ,5@P I$z (H? DEFI PNE $ (NAM,SIZ,CNT p,LVL) < $$  A,NAM,\..WD,B,\. 0.BT,SIZ,CNT,LVL P >;end DEFINE $ p DEFINE $$. (NAM,SIZ,OB,OW,BT 0,WD,CNT) < $ P$$. A,NAM,OB,OW, pBT,WD,B,SIZ,CNT  >;end DEFINE 0$$. DEFINE $ P$$$ (NAM,BIT,SIZ, pWRD) < $$$$$  A,NAM,BIT,SIZ, 0B,WRD >;end D PEFINE $$$$ . p.WD==0 ..BT==-1  ..BT==-S6YP S6Z7P S6i9P S6zP a  D0LL ]` $SAVE Dh EMOVEI T3,B E(QQ==0 IFNB <D>, EH JU EhMPE T3,.+3+QQ F PUSHJ P,A F( JUMPF .RET FH PVALSV D Fh; ADD T1,T3 G; SUB T2,T3 G( PUSH P,T1 PUSH GH P,T2 PUSH P,T3 Gh PATGO POP P, HT3 POP P,T2 P H(OP P,T1 AOS T3 HH QQ==0 IFG C,< Hh QQ==2 CAILE T3 I,C $RET> CAM I(LE T3,T2 $RET IH JRST .-<15+QQ> RST .-<15+QQ> MoL0M^-1Qa!`a  *K ZZZ==ZZZ *0+1 ZZ==0 $SAVE *P PUS .H P,T1 MOVE .0 P-1,P PATG .PO INIT POP .pP,T1 JRST . /RETF IRP A /0< PAT. A /P > PATTG /p MOVE P,P-1 0 MOVE T3,T1 00 POP P,T1 S 0PUB T3,T1 AD 0pD T2,T3 JRST .RETT RSa!` 4K! PAT.. A  PAT.a!c@ 4PK% PATTG A B PATTGa${` 10K  PAT 1PGO. \ZZ,\ZZZ,A ZZ,\ZZZ,A a${g 2K IFB < 20C>,< PUSHJ P,. 2PPSTR2 >;END I 2pFB <C> IFNB <C 3>,< PUSHJ P,.PS 30TR3 >;END IFNB < 3PC> PUSHJ P,%APB J P,%Aa&I` 5K+ PAT 50TG. \ZZ,\ZZZ ZZ==ZZ+1 ZZZ ZZ=a&Ig 5pK/ %APB:  %APa ,p 60K5 PAT 6PGO $RET  $RET aF  AL CAI A0LE T3,1 JRS APT .RETF $SA ApVE BPUSHJ P,.PSTR0 B0 ILDB S1,P1 BP CAIE S1,"A" Bp JRST .RETF C MOVEI T3,1 C0 JRST .RETT RST .RETT a@ 9PKc $SA 9pVE : MOVE P3,T3 :0 SETZ T3, :PPUSHJ P,A :pJUMPF .RET ;CAMGE T3,P3 ;0 $RET PVAL ;PSV B ; ADD ;pT1,T3 ; SUB <T2,T3 PATGO <0 $RET  $RET af@ 7KI PAT 70GO QQ==. 7P SOS T2 7p JUMPLE T2,.RETF 8 AOS T1 80 IFDEF FTDEBUG < 8P SKIPG T1 8pHALT >;end 9IFDEF FTDEBUG JRST QQ-1 Ja? R8M5 $SAV RXE Rx IFNB <B>, MOVE P S83,T3 DMOVE P SX1,T1 IRP A,< Sx DMOVE T1,P1 T MOVE T3,P3 T8PUSHJ P,A IF TXNB <B>, Tx QQ==0 I UFNB <C>, JUMPF . UX+3+QQ PVALSV Ux C ; ADD T1, VT3 ; SUB T2,T V83 PATGO VX >;end IRP A JRST .RETF JaO` J(M ]x CAMLE JX T3,T2 JRST Jx.RETF $SAVE K PUSHJ P,.PS KXTR0 SETZ T4, Kx MOVE P2,A L HLRZ P3,P2 L8 HRLI P2,440700 LX PUSH P,P3 Lx PUSH P,P2 MQQ==0 M8 IFG B,< CAIL T MX4,B JRST .+ Mx10 QQ==2> N ILDB S1,P1 N8 MOVE P2,0(P) NX MOVE P3,-1(P) Nx ILDB S2,P2 O CAMN S1,S2 O8 AOJA T4,.-<5+Q OXQ> SOJG P3,.- Ox3 POP P,S1 P POP P,S1 SKIPE P8 T4 CAMGE T4 PX,T3 JRST .RE PxTF MOVE T3,T Q4 PVALSV C Q8 ; ADD T1,T3 QX ; SUB T2,T3 Qx PATGO JRST .RET  JRMpLN-1aO&  =0 MOVE P2,A =P HLRZ P3,P2 =p CAMLE T3,P3 > JRST .RETF >0 MOVE T4,P3 >P HRLI P2,440 >p700 PUSHJ P, ?.PSTR0 ILDB ?0S1,P1 ILDB ?PS2,P2 CAME ?pS1,S2 JRST @.RETF SOJG @0P3,.-4 MOVE @P T3,T4 JRST .RETT RSTaZ L{ WMA PVALS W8Z==2 IFNB < WXA>,< HRLM T3,A Wx HRRM T1,A X >;end IFNB <A> end IFNB <e0 )JM IRP A,< )0 ..RF==A >;end )P IRP A PURGE ..RF A PURGE ..e>0 XXMS DEFINE R Xx(N) < R'N== YN >;end DEFINE R Y8 ..==0 ;Co YXunter REPEAT 20 Yx,< R \.. ;gen Zerate register na Z8me ..==..+1 >;end REPEAT 20 eg/P +JY .SKP (E,A,B,C)  (E,g/p -Ji .SKP (G,A,B,C)  (G,g/y  -PJm .SKP (GE,A,B,C) (GEg/@ ,Ja .SKP (L,A,B,C)  (L,g/I  ,PJe .SKP (LE,A,B,C) (LEg/` +PJ] .SKP (N,A,B,C)  (N,mKc@ " 2BYTE (3)A"@WHO (9)AVER (6)AMIN (18)AEDT 0I ..TM= P=0 IFB <F>,< p IFB <B>,<  IFGE ..BT,< 0 ..WD==..WD+1 P ..BT==-1 p >;end IFN ..BT  ..TM==1 > 0;end IFB B >; Pend IFB F IF pE ..TM,< ..CT ==1 IFNB <G> 0,<..CT==G> . P.SZ=^D36 IFNB p <F>,<..SZ==F>  ..OB==..BT 0 ..OW==..WD P REPEAT ..CT,< p ..BT=..BT+..S Z IFG <..BT 0-^D35>,< P..WD=..WD+1 p ..BT=..SZ-1  >;end IFG <. 0.BT-^D35> P IFNB <B>,< p IFE ..TM,< $ $$$ B,\..BT,\..S 0Z,\..WD P..RX==10 p RADIX ^D10 DEF STR (A.B,A$B( 0D),\..BT,\..SZ) P RADIX .. pRX >;end IFE ..TM . 0.TM==..TM+1 P >;End IFNB B p IFNB <H>,<$ $$ H,\..OB,\..OW 0,\..BT,\..WD> P >;End Repeat ..C pT >;End IFE ..TM End IFE ..  0I' DEFI PNE $. (NAM,SIZ,CN pT) < $$. NAM ,SIZ,B,C,D,E, 0CNT >;end DEF PINE $. ..BT1 p==B ..WD1==C  ..WD1==C A $0J' A$B= $P=F DEFINE A% $pB<A$B(E)> B<A$B(E)> !` 0J ..TM1= P=0 IFB <H>,< p IFB <B>,<  ..WD1==..WD 01+1 IFG <. P.WD1-F>, ..BT1==0 P IFE <..WD p1-F>,< IFG <..BT1-E>,

 >;end IFE <.. 0WD1-F> .. PTM1==1 >;en pd IFB,<B> >; end IFB,<H> 0 IFE ..TM1,< P ..CT1==1 .. pSZ1==^D36 IF NB <I>,<..CT1== 0I> IFNB <H> P,<..SZ1==H> p REPEAT ..CT1,<  ..BT1==.. 0BT1+..SZ1 PIFG <..BT1-^D35>, p< ..WD1==..WD1+ 1 IFG <..WD1-F 0>, ..B T1==..SZ1-1 IFE 0 <..WD1-F>,< P IFG <..BT1-E>,< pPRINTX ?Sub level  overflows top bi 0ts for A.B> P>;end IFE <..WD1- pF> >;end  IFG <..BT1-^D35> 0 IFNB < PB>,< IFE ..TM1, p< $$$$ B,\.. !BT1,\..SZ1,\..WD1 !0 ..RX==10 !P RADIX ^D10 D !pEFSTR (A.B,A$ "B(G),\..BT1,\..S "0Z1) RADIX ..R "PX >;end IFE .. "pTM1 ..TM1==..TM #1+1 >;end #0 IFNB <B> #P >;end REPEAT ..C #pT1 >;end IFE ..TM1 nd IFE u1A  S@P &\zP$N^ %0J9 CAIA %PJRST e LOAD .S %pAC,C,D IFNB < &B>,< SKIPA B, &0.SAC >;end IFNB &P<B> IFB <B>,< &p SKIPA .SAC >; 'end IFB <B> e: IFB <B> e:N^ w 'PJE IRP A,< 'p DEFINE SKPA (A (C,Y,STR) < .SKP (0(A,AC,Y,STR) >; (Pend DEFINE SKPA >;end IRP A >}{woP