x ,5!@P C2GET OWN SPACE P>8ORTAL GETCLR ; [>X234] 16-GET OWN S>xPACE - ZEROED P?ORTAL MONIT ; [2?834] 17-MONITOR ?XPORTAL MONIT0 ; ?x[234] 20-MONITOR @WITH BREAK PORT@8AL RDOCT ; [234]@X 21-READ OCTAL WO@xRD PORTAL PROCTA ; [234] 22-PRINA8T OCTAL HALFWORD AX PORTAL INBYTE Ax; [234] 23-INPUT BBYTE PORTAL OUBB8YTE ; [234] 24-OBXUTPUT BYTE PORTBxAL NXTBYT ; [234C] 25-NEXT INPUT BC8YTE (LOOK AHEAD) CX PORTAL BRKBYT Cx; [234] 26-BREAK DOUTPUT PORTAL ID8NCHAR ; [234] 27DX-READ CHARACTER Dx PORTAL OUCHAR ;E [234] 30-OUTPUT E8CHARACTER PORTAEXL BRKCHR ; [234]Ex 31-BREAKCHARACTEFR PORTAL READ. F8 ; [234] 32-READ FX PORTAL PRINT. Fx; [234] 33-PRINT G PORTAL SELIN ;G8 [234] 34-SELECT GXINPUT PORTAL SEGxLOUT ; [234] 35-HSELECT OUTPUT PH8ORTAL INPT ; [23HX4] 36-INPUT PORHxTAL OUTPT ; [234I] 37-OUTPUT PORI8TAL RELESE ; [23IX4] 40-RELEASE PIxORTAL OPFILE ; [J234] 41-OPEN FILEJ8 PORTAL CLFILE JX ; [234] 42-CLOSEJx FILE PORTAL XFKILE ; [234] 43-TK8RANSFER FILE POKXRTAL BSPACE ; [2Kx34] 44-BACKSPACE L PORTAL ENFILE L8; [234] 45-ENDFILLXE PORTAL REWND.Lx ; [234] 46-REWIMND PORTAL STRASM8S ; [234] 47-STRMXING ASSIGNMENT MxPORTAL FUNCT ; [N234] 50-OVERLAY HN8ANDLER PORTAL TNXRLPRT ; [234] 51Nx-PRINT TRACE LISTO PORTAL TRLAB O8; [234] 52-TRACE OXLABEL ENTRY POROxTAL TRSTD ; [234P] 53-TRACE STANDAP8RD FUNCTION PORPXTAL STRDEC ; [23Px4] 54-DECLARE STRQINGS PORTAL DDDQ8UMP ; [234] 55-DQXDT DUMP ROUTINE. Qx PORTAL INCHR0 R; [234] [E145] 56R8-READ CHARACTER WRXITH EOF LEGAL H EOF LEGAL CK  %&%ALGDR+4E2\)3 V@%4%ALGDR+116%ALGDR+11E2\[R W%8%ALGDR+12:%ALGDR+12EJ\.: ]%h%ALGDR+26j%ALGDR+26EJ\: ^@%t%ALGDR+31v%ALGDR+31EOr d& %ALGDR+44"%ALGDR+44G"\Y %*%ALGDR+6G25 c&%ALGDR+42%ALGDR+42G>n9 %,%ALGDR+7GCLY X%@%ALGDR+14B%ALGDR+14GCN= W@%<%ALGDR+13>%ALGDR+13I&[8 h@&D%ALGDR+55F%ALGDR+55K:5 d@&$%ALGDR+45&%ALGDR+45Kc%H1 3X# IRP A,A,MVt= f&0%ALGDR+502%ALGDR+50O$; Y%H%ALGDR+16J%ALGDR+16O%}w X@%D%ALGDR+15F%ALGDR+15O>d@ %$%ALGDR+3S: [@%\%ALGDR+23^%ALGDR+23S:9 ]@%l%ALGDR+27n%ALGDR+27S: H i&H%ALGDR+56J%ALGDR+56S:NJ0 &P%ALGDR+0S;@ a&%ALGDR+36 %ALGDR+36Y[ #%AL*|Y&[Z *"u ENTRY %)8AL IFNDEF %ALG*8DR,< EXTERNAL %*XALGDR SALL %S*xUBTTL(ALGLIB,ALGO+L LIBRARY) > d+8: Z ZZZ==1 +X IRPC B, XWD ,ZZZ SIX,8BIT\B*\ IFE <<,XZZZ/6>*6-ZZZ>,< ,x Z > IFNB -<C>, < XWD DL,-8C B: LA-XBEL(A): JSP AX,P-xAR0> IFB <C>, .< B: LABEL.8(A): JSP AX,PARA.XM> EXP d PURGE B  P[>u Y@%L%ALGDR+17N%ALGDR+17[>u Z%P%ALGDR+20R%ALGDR+20]c$.: \@%d%ALGDR+25f%ALGDR+25_(< %(%ALGDR+5_B5 b@&%ALGDR+41%ALGDR+41_V \%`%ALGDR+24b%ALGDR+24_V9 ^%p%ALGDR+30r%ALGDR+30_W&  a@& %ALGDR+37%ALGDR+37a %"%ALGDR+2a  % %ALGDR+1a NI  V%0%ALGDR+102%ALGDR+10aJMm _@%|%ALGDR+33~%ALGDR+33aJ|= [%X%ALGDR+22Z%ALGDR+22b@ d 4#!DEFINE B <%ALGDR+A>B e|= Z@%T%ALGDR+21V%ALGDR+21e C@ _%x%ALGDR+32z%ALGDR+32ed\r b&%ALGDR+40%ALGDR+40e=i e&(%ALGDR+46*%ALGDR+46ge@ `&%ALGDR+34%ALGDR+34ge}: `@&%ALGDR+35%ALGDR+35gR$[Z /# ENTRY %/8AL IFNDEF %A/XLGDR,< EXTERNAL/x %ALGDR SALL 0%SUBTTL(ALGLIB,AL08GOL LIBRARY) > 0X c: Z ZZZ=0x=1 IRPC B, XWD ,ZZZ SI1XXBIT\B*\ IFE <1x*6-ZZZ>,< 2 Z > B: 28 LABEL(A): 2X PUSHJ SP,TRST2xD EXP c PURGE B c PURGgSy e@&,%ALGDR+47.%ALGDR+47gSI1 h&@%ALGDR+54B%ALGDR+54iJd@ g&8%ALGDR+52:%ALGDR+52iJf Z f@&4%ALGDR+516%ALGDR+51iKI g@&<%ALGDR+53>%ALGDR+53qMI  c@&%ALGDR+43%ALGDR+43 tHA, VuR @ JUNIVERSAL `A - B, 1.2(310) , EUROPEAN SOFTWA RE ENGINEERING, SEP-74 ERING, SS@P $;SP >}{woP