CLASS cREV 780913 FOR RTE-III/IV @0CLASS p3.MPY .DIV .DST ..MAP.DIO..IIO..IAY..DTA.EXEC CLRIORMPARIXGETGETCLPARSE CODE WHOGT`Ik `Ac,`a`l `CE `Ac<`aCpsv6,dT,,~dt,dD,tdDtdDtt&T:`aAZ,,dDtdDt,6dT-,,d, %`[(/"/CLASS: CLASS TABLE IS AT "K6" WITH"I3" ENTRIES!") `F0d, <`n(/"/CLASS: FOLLOWING COMMANDS ARE ACCEPTED:"/," DISPLAY,N1,N2,LU - DISPLAY STATUS OF CLAS<`nњ0S TABLE FOR",/," CLASS NUMBERS N1 THROUGH N2",/," LIST,LU -<`n=^ LIST CONTENTS OF CLASS TABLE ON LU",/," CLEAR,N - CLEAR OUT PENDING CLASS BUFF<`nERS",/," ON CLASS NUMBER 'N'",/," ?? - HELP"/" END `K - END") `F1d, `Jv(/"/CLASS: TASK: _")<`dIh10 d 6t 1& dT ,,d T ,ݶ,dT :`^,,dT ,,d T ,,dT ,,)dT Z,, `F2ed, `L("/CLASS: INPUT ERROR!");`]W`,dT,d,tdZTtdD4,dtdD,",&d,`W#tdtdDtdDZ,2,;d, :&`\W("/CLASS: ONLY CLASS NUMBERS 'TWEEN 0 AND"I3" PLEASE!") `I:, =dH C`Q|(/,29X,"GET PROG OR BUFFER PRAMS")`NCIH0 KdH Q'`]AP(" CLASS POSSIBLE OWNERS SECU #RQ SIZE OPT1 OPT2"/) :`^QWH6dtdt¶dtdtdtdtdDtiTZ,o,`Jo qdH &%y`MJ%(I5,2X," ** AVAILABLE **")<`aqyH6,PtdD,,t,tdtdD˶td;`_dDtD,d  t¶dtDDt6tdDtȀ;`bR&T,,dDϰtѠ T,ΠB, $tdǶDt<`cVE4 $tͶdDt4 $tͶdDt64d<`]DtdDt¢dDtdD,,d¶tdT,,;&`YA}dDt"&E $dH 240 0E`LS2(2X,I3,2X,9A2,K3,4X,3A2);`c\4:H6,dtödDtD6tdD,K,c MdH >\ ;`cWbH6,dDtȄitd۶DtpȶtdDt&wt z`UMzdH > 0ƀ`P5>(2X,I3,2X,9A2,K3,I5,I5,2(2X,K6));`as(H0tɢdD,,dDtȄtd۶DtȶtdD+`ZttƶdDt6t dH N0ƀ`IN(35X,I3,2(2X,K6)) <``k&ʄH6,dDt D,Yd-,,,dDtޢdDtd:`^ZD4,,dDt6tdD,, &tdD,,d5`` 4t$1&dDtȄT, , d, W(0%`[^"W("/CLASS: CLASS"I3" NOW HAS NO OUTSTANDING BUFFERS!") $`S(,d,tdTZ,3dt 5dH r;`S)r(/,5X,"CLASS ADDRESS CONTENTS"/) .`]R;AH6dtdDtItɆ LdH &X0`J(6X,I3,5X,K6,5X,K6) 6``:X^H4PdD,e,dtʶdDtm6t pdH x0 `D$(34X,K6):`ax~H6dDtD,j6t,^dDtD,C,d, &`Iy("/CLASS: DONE!"/)`Q$,- `Bc`Ci!+`Ag `G1ENEX/E??DILICL`Ad`Ad`Ad `B.  `A`H @ `De;`CK  `Ad7qp WHOGT fc@:WHOGT  3;.ENTRIXGET<`_BWtVdXdYDZDt[dX[dUDZDt[d\[6Vt]d^T]<`^vH,"d_D]t`(`Z,.,2d_DVtV,daD]t`8`dYDZDt[/`V>=dbD]t`C6`[dUDZDt[dcD]t`&N`d4e[`A`U `DuW**`A\* `B`^ `Ea   "GETCL c@'GETCL "$CLAS.ENTR`N\&dZ, ,