UTIL c@UTIL 6.DIV .DIO..IIO..DTA..STOP .GOTO EXEC CLRIOIAND RMPARASCEBNCOMPFNAME PKNUM INTR FILL MOVER `F%,hk`B'[ `AH6I`A6I`A2I`A-2I`A=2I`AM2I`AY2I`Ao2I`Be~I<`nIa@@@@a@@@@a@@@@a@@@@a@@@@a@@@@a@@@@a@@@@a@@@@a@@@@a@@@@`JC a@@@@`B @@A@<`nN B@[@C@P@}@M@]@\@N@k@`@K@a@@@@@@@@@@@D@E@F@~@G@H@I@@@@@@@@@@@@@@@@@`M%;@@@@@@@@@@J@L@O@`A @@ `Gg'DFFOSCLRLFNFAP<`g 5&,&dDD,,C,d C2d &T d `D= /`F"dDDHt;l `B adt;`c{(dDtD|,"7I$|I dt@I$,D,VdD,R,K<`_.Kd Q,dDtQ,9dD  DtdtdDDHtdE<`]Xpj,y,n,ydQD,,v,dt,dDDHtdQ,K,,Kd|:`c)D,,,dDt,y $R $< & d,,d ;`k&!dt,"C  $B - S $ ' q$ ) I$  $I;`jHo$$I&I$I$$I4Qd,(,,;`hMdt I$d,,,~$6, #I$0  +I;`eE'$$3I&d,,9,dtCI$d,,I,%lQ;`k L$, [I$  cI$k$I0sI$dM,<`gw,y,dt$I&d,,,$$, $I$ <`e\$I&d,,,dtI$d,,,$6I,;`fyÄ I$ $I&d,,,dtI$d,,<``C?鰓,$~4Qd,,,d~DD,,dt,d~DmDt;`b_ d$&d,,,dDQD,#,&dt,$0;`bX+$d,,6C,d O6HdDDtdDDtd \`FIOdDDHt;l `B'Madt;`_"UdDtD|,OdI$|I dtdDDHQtd,,r,d|m<`^tD,z,~,~dDt,fd ,6dDDHQtd,,,d;`_ DDDHtdQ,~,,~dDtI$d[,,,-d;`^ۚDDtd,,¢d x,dDD,,+dDDtd;`Yg϶dDDtddDDʶtddDDtdDDtdDDt:`c脓~$d,,,dDDtdt$4Qd,;`a  , ,dDDʰt$d[,,,dDtD,+& ;`cj,$3&d,,9,dDDtG$~&d,L,ndt<`bǙO$Td,,Z,dDDth~$d,q,n,qdt,;``ĂqdtdtdDDtdDDt$~萉&d,,,'a;`aaD$6dDDZ,,d[DDtdtdDDt$;`a\Kd,,,$d[,,,ͶdDtD,dt$<`b4Qd,,dt,$$d[,,,d dDDt<`d%dDDtdDDt $6, I$4Q d,(,<`\y,dtdDDtdDD,.,+,.dt,8dDtD,;`f5dt, B$ssss$BX J$I0RI$d[,,X,-dt;`i>[$bI&d,,h,r$$, $|I$  $R2I;`e& I$dD,R,,Rd~DDtI$,R I$I;`d&d,,,dtI$d,,,$, I8I;`eK$  $I&d,,,dtI$d,,,%l;`i͗$, I$ dDDt  $I&  I$I"I;`dk&d,,#,dt-I$d,,3,$;&,A3a`H?&,d XW`FIdDDt;l `B!Gadt<`dOdDtDQ,I,e(" FILE "3A2," CREATED") d,k,,d rq,e("<`ls THE FILE IS ON AN AVAILABLE PZACK") ,d ,(" THE FILE IS TEMPORARY IN WORK ARE;`c)VA") dDDtd,d dDDt,(" THE FILE IS ON PACK# "I<`kB6)d 0,(" THE FILE LENGTH IS"I6," RECPORDS")d ,(" THE RECOR;`h),D LENGTH IS"I6," WORDS")d &  dDDt, (" THE SECURITY CODE IS"I6) d*`]͏    2, ,(" THE USER STATUS WORD ZIS"I6),d  C B`F 4dDDt;l `B 2adt0`^ :dDtDQ, 4, R(" FILE "2A2,A1," DES TROYED"),d  i h`F ZdDDt;l `B2 Xadt<`d `dDtDQ, Z, w(" FILE "2A2,A1," OPEPNED") d, }, , d r L, <`g d  , d & dDDѰtd  2, (" THE RECORD # IS"I6)!`RJ\ d   dDDt2А,d  `F; dDDt;l `B adt;`f%5 ŶdDtDQ, , (" FILE "2A2,A1," CLOPSED") d   ,, $ `J $ ' d   `Fs dDDt;l `B adt;`f dDtDQ, , (" FILE "2A2,A1," STABTUS")  $ b  b b$ ' b d~DmD<`b #, h, h, 6d[, -, D, Ud  : 9dDDt2, C(" FOR PACK # "I6), d:`c@ E  K J, T(" FOR WORK AREA")B, d  :6 adDDt[, d[, h, u, |;`cf[ hd  tdDDt2А, d  {, d  dDDt2 ;`^) $ % I 6 dDDttdDDtdDDtddDD;`iP= B  ttd  Q, (" STARTING TRACK # ISP "I6) d  a<`eJG Ҡ, (" STARTING SECTOR # IS "I6)d  dDDt2d & dDDmt<`e 2d &  dDDtd   dDDt, $(" HIGHEST RECORD # <`i ACCESSED IZS "I6),d  , +, 5(" FILE IS OPEN") B,d  =2 <, H(" FILE IS NOT O<`c8 EZPEN") ,d   Ud~DDtdDDZ, ^, ^, nd  e d, m(" COD;`f hE CHECKS")B,d  u2 t, (" CODE DOES NOT CHECK")B,d  6 d~DDtm<`h , (" # OF AVAILABLE SECTORS ISZ "I6) ,d  dDDt, (" FILE # "I6" I<`cLe N THE DIRE CTORY") ,dtdDD, ,d  ֶdDDt2, (" P<`d ACK # "I6" IS AVAILAZBLE") dDtD, ´Q,d, ,, d &P , ("( A;`hQ LL PACKS AVAILABLE REPACKED") B,d  6 dDDtQ, &(" PACK "I6" REPACKED"`G %) ,d 'D = <`F .dDDt;l `B ,adt;`a 4dDtDQ, ., I(" FILE "3A2" COPIED") dDDZ, R, ], ddDD;`aM UtdDD, dd  c,d  pdDDt2А,d  `F xdDDt;l `BP vadt.`]:- ~dDtDQ, x, (" FILE "2A2,A1," OLD FILE") d  `F dDDt;l `BL adt;`cY dDtDQ, , (" FILE "2A2,A1," NEW FILE") d DD, , , d ;`c. Ƅr , ޢd  і, d & dDDѰtd   dDDt;`j+ 閉,d &P , (" ALL FILES POSTED") , I$  I$ &aI<`ef $d[,, ,dt 'I$d,, -, 7$6Id;`c) 8[,, =,dDDtdQ, OB, Od x2 N, U$$ ]`M [&d,, c,d  z`F jdDDt;l `BB hadt<`\d pdDtD, jdtdDDtdDDtddDtd`GY Dtd 'D `FN dDDt;l `B adt;`dc dDtD[, dDQD,, $, | $ I$  2aI;`e $ I$d,, ,dt I$d[,, ,- `Q $dt I&d 'D`F dDDHt;l `B adt<``[ dDtD, dDDHQtd,,"$IdD,E,.<`_W,.dDt, d~DDHtdQ,,.,6$d,,`F0dDDt;l `B!.adt;`cy6dDtDQ,0,L(" FILE "2A2,A1," RESET")dDD,U,\C,cd r<`fXY2[,od b,od odDDt2d & w,{>HH8`Is  `Dek@@@`Ap `D a@@ `Bp`Cq `Aq`Cr `Bq+: :FILL c@FILL N.ENTR+`W;Dt,p< , $FNAME c@ FNAME iw.MPY .ENTRFILL EBASC;`^~, ,,۬dDDtd,+,!Q,+d<`[ %,,(d۬DDtd,6,(dDDmtd;`b@Q,FP,Md,8,MdDt\$d$;`]b&dD[,n,ndtdtdDDtdDD6;`ZpD,,dDDtd[DDD۬dDtdDDtdDmD3`W"tdDDD[,,dDtdDt,r`Bm@@`C@Hk@ `D) `Bb  `Aa NCOMP c@-NCOMP  8.DIV .ENTR;``, t=d=t?D?t>d=D@D At?d>D@D 0`W?%%"AD?t `Da[ " !ASCEB c@ASCEB N.ENTR<`] , tSdStUDUtTdSDVDtXdWX,=,dSDVDtX;`[g0#dYX,+,+,=dSDVDtXd[XtZdTDVDtXdZDVDXE,CdT+`S9>DVDtXd\XDS,K,O,Od]DStS, `Bd$Vm `A|7Y@]`C[@@ 1NZONE c@"NZONE  .MPY .DIV .ENTR<`_, DjDtidi,,-Q,-dkDi,4,,4dlQ,*(,$<`^ 5#,*DjDtndmndodmDi,4,ZdqDiC qDpdp;`]=mA[,F,,,,dp,N,,,,DjDtnqDin,,dldo`J ^,,,d,,drti,N `D<j @`@ `E@o@ )INTR c@INTR 8.MPY .ITOI.ENTRERR0 A1DEC<`^^, ,,Q,d,,,d,ddd<`\f$,*,*,6DDt䢋d,9,,9d۬DDtd<`\@[,K,E,Kdtd,MdtDDtdQ,Z(,id<`\Q\,b,f,fd,O,mdDDQtd,,y:`^s6xQ,,,6,6d,mDDtd,,<`^S4Q,,ddttddDDt&B䶋,6<`^h,d[,,ddﶋDtdDQtdD,,,6d`LҶDDtd,,E,6 `EH@@`Af`@`Ck@@ `DaB  )PKNUM c@+PKNUM   >.ENTRINTR <`b, ,,$[,,,,%,,/d:$`Pk(,,,,d;d:[,,,,-`Cd:m