899;R;; :z7?  l @<l:.[;?Fy\q\  l)0I7ŀBIAʼn)ҮA~ I,I I I 0 0IH  0IH  0 0IH 0IH 0 0IH 0IxH 0 0IHu 0IHk 0b 0IH W 0IH L 0C 0IH9 0IHAH II' NOTABSTABSNODEBUGDEBUGNOPURGEPURGENOTRUNCTRUNCNOFLIPFLIPNOBREAKBREAK)7ÏXI 7 qAyA9AÉA A 0F ? 7ÏĆ%57AêAÈA IA @'IĀyAň yP, ?X+P+ A).H).  FILE ERROR: q0) 0A ,'3 0'IA Aŀ )ۮ IA  ĀIAIAMX,A).X LNE)G  ) ) IA H)GA).)@a iai)G)G a;) ) IAH)G)GA).A))IAA).@)ҮGH@)Үp) )ɮ @)@ @ )A@ ) ) )ɮ) 0')G 0')G 0')G ,)() G! )H! )H! )H, q$q%q)G ) )ɮ Gp) )ɮ @  0 I@A)) )ɮ 0" I@A)) 0 I@A))$! %$  $I%qAdh)@y 0'@ )@ )@)@)@)@@ )@)ҮpA) )ɮ INPUTOUTPUTERRORPARAMETER ERROR, KERMIT ABORTEDTandem KERMIT server - Version 1.0Use CTRL/Y to exit P,X+ 0'P+ ).H#Y 0'P+ ).H#N(x%Y%IA q0A@@H@ 0'7@A@* )@ X AH@f 0'P YP NP+X,P+X,*AA7yAyA*A7AIqAA*A).GP7*X,X AH@ 0'*)AAH(@'H(@&@(o@)ɟo q>)@pq`))@q) )ҮAxIA,A(@&x(AyA@' @ ) )). d)ɮ0  A ). #P YP NP+ ?P,YX P+X,P,P+@&x(X ). QĆ1ŀNAì7! AY 7 7!A9 Q% %YY$$%% H [H % %H    IAÈA).H 0  0').Command not implementedL H'. ). ). C.  0  0').Command not implementedBSFDZ6~@IH@ ).*~I@IA> 0'.@I.I'@@ AAI 0 A0)ҮG*.Y7%%NyY7%%y7YQ%%N @ Q%Q%QQYQQ@ YQ7Yy*)IA@A0AA A).*IIAQ7yy7Y@ Q%I7Iyʁ*SZBFA0P I0IA% YY@).). ). ). $*$.X *I*. ). X *@*FZDA0P I0IA6. ). >AA).X *I@)ҮGH*P,P+$X *. ). *. ). X *@*")0 P I0 IA"AA).GI@)ҮGH. ). @`6~@IH@ ).*~I @IA@IA0)ҮG*I 0'II@ I*LNDA A*A*IYyQ7 AyyAAyIyy*A~AI*II I I 7Y Q %NI Q Y Q  Q @ Y I @ Q % Q %%NQ %I A A A I A A*@ 7)=AA Yy %q0IA %IA %IA %Iq 0IyA yA y*8kq))q0q*0),p.$ SS ).$! ). P Y 0  0'). YY@). 0 AA).P Y 0  0').~A}A$)) IAIAI jAA).AIIIA#AxA).P Y 0  0').2AV@)ҮGHu 0').P Yh 0 m 0').<(] 0').P YP 0 U 0').\HGave up waiting for ACKLNFGave up waiting for ACKGave up waiting for ACKLNZGave up waiting for ACKLNBGave up waiting for ACKSIRGCNYE. IAI. H&). 0P I0IH&A+.G9 YY@).I0...I+.)('&2 0 8 0').@@)ҮGH)ɮUnexpected Packet ReceivedYBνλ?ΟW`CΧZZZ-- _ a a  W 6DRDR>>@<1 #IN <1 JUNK <1 #TERM ~% @-#Y1~ AWAITIO CHECK^FILE CLOSE CLOSE^FILE CONTROLDEBUGDELAYFILEINFO  FNAMEEXPAND INITIALIZERNUMOUT OPEN  OPEN^FILE READ^FILESETMODESET^FILE SHIFTSTRINGSTOP WRITE WRITEREAD WRITE^FILE  }w!+)-) ? QJ1*% EkX@d CHECKSUMMER3F COMMAND^PROC " ERROR^PACKET L FINISH^AND^SHIP#y FORMAT^ACK  FORMAT^NAK   GENERIC^PROC 6 GET^PACKET ,0 GIVE^IT^UP 8q  INITIALIZE [  KERMIT^SERVER| gOPEN^INPUT^FILE+OPEN^OUTPUT^FILE IPROCESS^SEND^INITi\ RECEIVE^PROC  SEND^PROCo START^PROC 2WRITE^OUTPUT^FILE\*  t F 4 nY  ]f9'a u z /i<*%5$ m / M (" o89 77.[4( (&PARAMS:BUFSIZ tL:TIMOUT t8NPAD t<PAD^CHAR t6EOL t0> QUOTE^CHAR( tn<t EIGHT^BIT0 t>& CHECK^TYPE8 t> REPEAT^CHAR@ t&NRESERVEDH t*PARAMS L0n\SYSTEMTCG KERMITS9.S.[((,(#GLOBAL> VERSTRING*&"Tandem KERMIT server - Version 1.0" jFCBSIZE<Z ALLOCATE^CBSB>INT . #1 [ 0:65 ] := [ 62 , 1 , 27 * [ 0 ] , 62 , 32 * [ 0 ]Z ALLOCATE^FCBB>INT . #1 [ 0:FCBSIZE - 1 ] := [ FCBSIZE , %000061 , -1 , %10$ F FCBSIZE^D00P^#ALLOCATE^CBS^D00B>INT . #1 [ 0:65 ] := [ 62 , 1 , 27 * [ 0 ] , 62 , 32 * [ 0 ]^ALLOCATE^FCB^D00B>INT . #1 [ 0:FCBSIZE^D00 - 1 ] := [ FCBSIZE^D00 , %000061 , *READWRITE^ACCESS$ READ^ACCESS& WRITE^ACCESSSHARE"! EXCLUSIVE" PROTECTED> ABORT^OPENERR&!%B0000000000000000000000000001D>Z ABORT^XFERERR&!%B0000000000000000000000000010D> PRINT^ERR^MSG&!%B0000000000000000000000000100D<N AUTO^CREATE&!%B0000000000000000000000001000D:R MUSTBENEW&!%B0000000000000000000000010000D< D PURGE^DATA&!%B0000000000000000000000100000D:AUTO^TOF&!%B0000000000000000000001000000D8NOWAIT&!%B0000000000000000000010000000D8BLOCKED&!%B0000000000000000000100000000D< VAR^FORMAT&!%B0000000000000000001000000000D: READ^TRIM&!%B0000000000000000010000000000D< WRITE^TRIM&!%B0000000000000000100000000000D< WRITE^FOLD&!%B0000000000000001000000000000D: WRITE^PAD&!%B0000000000000010000000000000D< CRLF^BREAK&!%B0000000000000100000000000000D<'8 OLD^RECEIVE&!%B0000000000001000000000000000DD LEVEL3^SPOOL^ENABLE&!%B0000000000010000000000000000D& INIT^FILEFCB("ASSIGN^FILENAME0ASSIGN^LOGICALFILENAME*ASSIGN^OPENACCESS.ASSIGN^OPENEXCLUSION, ASSIGN^RECORDLENGTH*NASSIGN^RECORDLEN(ASSIGN^FILECODE2ASSIGN^PRIMARYEXTENTSIZE& ASSIGN^PRIEXT4ASSIGN^SECONDARYEXTENTSIZE& ASSIGN^SECEXT,"ASSIGN^BLOCKLENGTH ,ASSIGN^BLOCKBUFLEN $ SET^DUPFILE ,SET^SYSTEMMESSAGES (SET^OPENERSPID .SET^RCVUSEROPENREPLY (SET^RCVOPENCNT$ SET^RCVEOF& SET^USERFLAG*SET^ABORT^XFERERR*SET^PRINT^ERR^MSG& SET^READ^TRIM(SET^WRITE^TRIM(SET^WRITE^FOLD& SET^WRITE^PAD(SET^CRLF^BREAK$ SET^PROMPT& SET^ERRORFILE& SET^PHYSIOOUT& SET^LOGIOOUT*SET^COUNTXFERRED" j SET^ERROR& SET^BREAKHIT& SET^TRACEBACK0'SET^EDITREAD^REPOSITION ,FILE^FILENAME^ADDR!2FILE^LOGICALFILENAME^ADDR"(FILE^FNUM^ADDR#( "FILE^ERROR^ADDR$,FILE^USERFLAG^ADDR%*FILE^SEQNUM^ADDR&& FILE^FILEINFO'& FILE^CREATED(" FILE^FNUM)$ FILE^SEQNUM**FILE^ASSIGNMASK1+*FILE^ASSIGNMASK2,(FILE^FWDLINKFCB-(FILE^BWDLINKFCB.& SET^CHECKSUM/.FILE^OPENERSPID^ADDR00SET^SYSTEMMESSAGESMANY1&& FILE^FCB^ADDR2,SET^OPENERSPHANDLE3*INIT^FILEFCB^D0042FILE^OPENERSPHANDLE^ADDR5. FILE^LEVEL3^SPOOLING6& MAX^OPERATION6& FILE^FILENAME.FILE^LOGICALFILENAME( FILE^OPENACCESS,FILE^OPENEXCLUSION(FILE^RECORDLEN& FILE^FILECODE$ FILE^PRIEXT$ FILE^SECEXT*zFILE^BLOCKBUFLEN & FILE^DUPFILE ,FILE^SYSTEMMESSAGES (FILE^OPENERSPID ,xFILE^OPENERSPHANDLE3.FILE^RCVUSEROPENREPLY (FILE^RCVOPENCNT$ FILE^RCVEOF& FILE^USERFLAG,FILE^ABORT^XFERERR,FILE^PRINT^ERR^MSG( FILE^READ^TRIM(FILE^WRITE^TRIM(FILE^WRITE^FOLD(FILE^WRITE^PAD(FILE^CRLF^BREAK$ FILE^PROMPT(FILE^ERRORFILE(FILE^PHYSIOOUT&\ FILE^LOGIOOUT* FILE^COUNTXFERRED$ FILE^ERROR& FILE^BREAKHIT(FILE^TRACEBACK&v FILE^CHECKSUM/0FILE^SYSTEMMESSAGESMANY1,SIOERR^INVALIDPARAM0SIOERR^MISSINGFILENAME0SIOERR^DEVNOTSUPPORTED.SIOERR^INVALIDACCESS.SIOERR^INVALIDBUFADDR0SIOERR^INVALIDFILECODE,SIOERR^BUFTOOSMALL0SIOERR^INVALIDBLKLENGTH0SIOERR^INVALIDRECLENGTH0SIOERR^INVALIDEDITFILE 0SIOERR^FILEALREADYOPEN ,SIOERR^EDITREADERR ,SIOERR^FILENOTOPEN 0SIOERR^ACCESSVIOLATION ,SIOERR^NOSTACKSPACE,SIOERR^BLOCKINGREQD0SIOERR^EDITDIROVERFLOW0SIOERR^INVALIDEDITWRITE0SIOERR^INVALIDRECVWRITE,SIOERR^CANTOPENRECV,SIOERR^IORESTARTED(SIOERR^INTERNAL,SIOERR^CHECKSUMCOMM(SIOERR^CHECKSUM*SIOERR^OLDCOMMFCB.SIOERR^EDITLINEOFLOWSOHETXTAB $>CR LF #:CTRL^YTRUE6FALSE\LEGAL^PACKETS^DB>STRING LEGAL^PACKETS ='P' := [ #1,0]; STRING .POINTER; INT NZ CHECK^LEGAL^DB>SCAN LEGAL^PACKETS UNTIL PACKET^TYPE -> @POINTER; N := @POINB BAD^PACKET^D*&BEGIN PACKET^TYPE := -1; RETURN; ENDZ 2 CLOSE^FILE^DB>BEGIN IF FILE^OPEN^FLAG THEN BEGIN CALL CLOSE^FILE( #1); FIL\ERROR^MESSAGE^DB>BEGIN IN^BUF^S ':=' #1 & 0; CALL ERROR^PACKET(,IN^BUF^S); EF NOT^IMPL^D0,ERROR^MESSAGE^D("Command not implemented"),NO^PROCPROC #1; BEGIN ENDm> I^NO^PROC*&INT PROC #1; BEGIN RETURN TRUE; END$CHAR(( #1) + " ") &UNCHAR(( #1) - " ") $CTL(( #1) XOR %100)<CHKSUM*%((( #1) + (( #1) '>>' 6)) LAND %77)y(SIX^BIT(( #1) LAND %77)MARK SOH#B :IN^BUF^SDZ FILE^BUF^SD( OUT^PACKET c0&SAVE^SUM08OUT^PACKET^LENGTH@8IN^PACKET^LENGTHP.zIN^BUF`0FILE^BUFp2 J DEBUG^FLAG2! REPEAT^FLAG6MAX^DATA^CHARS0 TABS^FLAG0 FLIP^FLAG2 INIT^FAILED2 TRUNC^FLAG2. PURGE^FLAG2 BREAK^FLAG6FILE^OPEN^FLAGB OLD^BREAK >SBUF0*BUF@$ OUT^BLKLEN>RUCBPADb COMMON^FCB`;@IN^FCBp;BFILE^FCB;@ ERR^FCB;Df DEFAULT^VOL0 FILE^NAME0 TERM^NAME0ERR^NAME.TERMNUM.FILENUM2 PACKET^TYPE@DEFAUL HMY^PARAM^STRING  J tHIS^PARAM^STRING0 B MY^PARAMS @(nD HIS^PARAMS P(n4 WAIT^FOREVER`2 MAX^RETRIESp2 NUM^RETRIES0TIME^OUT4~ PACKET^NUMBER:INPUT^PACKET^NUMBERPARAMS%v .&#Z :V $% %R2 #xRf%& L6 (Z"6(4 %" P&h $"F Vp6b("HrN  VVP t|$~~ !n $N D&! b"fT$. n2D,' !>,'l"l# \SYSTEMTCG KERMITS9.S.[0L(|(&START^MSG^DEF:MSGCODE LVOLUME LSUBVOL@ JbDEFAULTTLTVOLUME LSUBVOL@ JDNAME JINFILED6L6VOLUME DLSUBVOL@ DJDNAME DJOUTFILEPbJPARAMT 0 START^MSG^DEFL D\SYSTEMTCG KERMITS9.S.[4D (6lʐ` H0$(08p:X>XF@H L r v z    (NRVhlp      $h,80 7 ?N START^PROC ,Nz,RUCB0PASSTHRU.MESLEN,zMATCH@MESSAGELL,pDONE.MATCHED ,MES^S0,TEMP@VMATCH^ITB>BEGIN IF MES^S = "NO" AND MES^S[2] = #1 THEN BEGIN MATCHED  START^MSG^DEFND\SYSTEMTCG KERMITS9.S.[,( O`vpzX("4hJPTP\8`L CHECKSUMMER  Lz.POINTER.LENGTH(N,TEMP ,TEMP10zL\SYSTEMTCG KERMITS9.S.[<P(  pX ($, 4>D@FINISH^AND^SHIP @n.LENGTH.RETRIES@n\SYSTEMTCG KERMITS9.S.[,(hMH*Q0:U>\D`Rd\pp`x@f|(nv> ERROR^PACKET  >j,ERROR.MESSAGE.LENGTHD FILE^ERROR j>\SYSTEMTCG KERMITS9.S.[( `.02\6DHRDOPEN^INPUT^FILE  ,ERRORD\SYSTEMTCG KERMITS9.S.[Rf(X "2@ 8\(`(ld)r+37FOPEN^OUTPUT^FILE  ,ERROR,FLAGS Fr\SYSTEMTCG KERMITS9.S.[ d(O^bbfjp&LWRITE^OUTPUT^FILE  L.LENGTH,LERRORz\SYSTEMTCG KERMITS9.S.[( .<@`R`VHd0n66 GIVE^IT^UP 6.HANG^UP\SYSTEMTCG KERMITS9.S.[(1pX&@6(FVf~ 8 "-19x=`=`E0M PT0\:`Ldp`hXrp(twhh8 `(H20D0FH0 INITIALIZE ,FLAG,ERROR \0\SYSTEMTCG KERMITS9.S.[Z(݈pX@(&0 FORMAT^ACK \SYSTEMTCG KERMITS9.S.[P( P 8   "0 FORMAT^NAK \SYSTEMTCG KERMITS9.S.[^4 (J 3x P 8   , 0 4 HN 0X h l p v   P 8    ! ! % % -x 1` 90 90 A H  H P T$ Xp* \X0 `@H oX o\ sb f Pn 8 8      ` `    ͠ ш X     h 8 8   #, 'x0 +`4 ;8 ;@ >B >F NN RpR<PAD^CHAR <4N :LENGTH 6 GET^PACKET R.RETRIESD NON^FATALS,COUNT,ERROR 2 MODEM^TRIES0: PAD^PACKET0 < VALID^MESSAGE2w2 p~R<\SYSTEMTCG KERMITS9.S.[,@( ^(    ` H 2 8 < F øX ˈ^ pf @n v | h P 8          HPPROCESS^SEND^INIT  HB IN^PARAMS ,TYPE.LENGTH( ND OUT^PARAMS  2 SAVE^REPEAT0PARAMSH\SYSTEMTCG KERMITS9.S.[xF( -0 -0 1(2 COMMAND^PROC \SYSTEMTCG KERMITS9.S.[(  @ H Lp  PX  T@ YT Z  Z" \& \D _NB GENERIC^PROC  \SYSTEMTCG KERMITS9.S.[ t |(u* k   p @$ (0 4 : B PD R l p x `z ` #H + / 2 6 : N@ V m qh y8 }       H: 0D R \ ` f j Pv 8 8`H!048<H@L(W@h   H#"&$&(&,*0.47P87::pB:pFJhiPviPm8x|x``H000X@($ހ(8 xHLPX \ ` l$p(r,x8X|<@@(DKW> NAME^LENGTH *>> IN^POINTER *@ REPEAT^COUNT R LEGAL^PACKETS :POINTER H4N R LEGAL^PACKETSp :POINTER 4HN B RECEIVE^PROC   F| LEGAL^PACKETS.POINTER(N 0 OUT^COUNT0.LF^WAIT@4 WRITE^IT^OUTP.CHRSAV`*CHRp& MAX^BUF^SIZE:PARSE^FILE^HEADERl d6 GET^NEXT^CHARoBo BPROCESS^OUTPUT^DATA= <RECEIVE^FILE^HEADERI 6 RECEIVE^DATA:Y7 <J|*d~>x\SYSTEMTCG KERMITS9.S.[ |F :(8 & H*08":*H:(T>XI`Qnirlvptx|pX(ΘҀP  $0@4(8";&C*K0O@WPD_ JfPjXv\HX@(İ̀h8 xH$JN&XP&XT.(V2b5j=p=v==I]`hhhhpx`0"&X.(2<>BFhJ N RZdjxHHH<F/L:POINTER :@ LOCAL^POINTER z8<CHR1 :REPEAT <. SEND^PROC =.,:ERRORD COUNT^READ 0 OUT^COUNT00L MAX^COUNT@0 SHIP^FLAGP4 OUT^OF^INPUT`,DONEp4 REPEAT^COUNT0 EIGHT^BIT4 CONTROL^CHAR2 NEED^QUOTE2 TOTAL^COUNT*CHR2 IN^POINTER2 OUT^POINTERHECHO^FILE^NAME'B TEMP^NAME'8ECHO^NAME^LENGTH 6REMAINING^CHARS00IN^COUNT@\CHECK^PACKET^DB>IF PACKET^TYPE <> "Y" THEN BEGIN ERROR^MESSAGE^D("Gave up wa@PARSE^FILE^HEADER9 4 SET^UP^DATA99 @ GET^REPEATM3M<< FILL^IN^DATA zNvDFz,\SYSTEMTCG KERMITS9.S.[,B(7O8 S bbbfj"nx(nx4r`@vHD~HNZ`dpjt2 KERMIT^SERVER  F LEGAL^PACKETS.POINTER(N 0DONT^NAK02x\SYSTEMTCG KERMITS9.S "6r6r \CYCR.$SYSTEM.TCG.KERMITS9"\CYCR.$SYSTEM.SYSTEM.GPLDEFS"\CYCR.$SYSTEM.SYSTEM.EXTDECShh<F/B 2T9250D20&PARAMS6Z <F/B 2T9250D20,#GLOBAL.#GLOBAL #!܀ f *  v 4 4h 2 "$%p<F/B 2T9250D20-0&START^MSG^DEF j Z<F/B 2T9250D20-.#GLOBAL ,FXtPrr START^PROC   L  H~  CHECKSUMMER LFINISH^AND^SHIP  Jt  ERROR^PACKET 0 OPEN^INPUT^FILE2 OPEN^OUTPUT^FILE @ F WRITE^OUTPUT^FILE :  GIVE^IT^UP ,b  INITIALIZE ,f  FORMAT^ACK ,z  FORMAT^NAK :z  GET^PACKET \PPROCESS^SEND^INIT  .!: COMMAND^PROC ."   GENERIC^PROC .#  RECEIVE^PROC *( SEND^PROC.. KERMIT^SERVER(b!:f" . #zzP~ Ft~d(B 2T9250D204d START^PROC #GLOBAL  m`I <  &START^MSG^DEF  ZV SHIFTSTRING  rf B 2T9250D20F9 f CHECKSUMMER&"#GLOBAL&%\F B 2T9250D20y;pFpFINISH^AND^SHIPb^#GLOBAL+,'+H CHECKSUMMER  : GET^PACKET  !f 8B 2T9250D20 = ERROR^PACKET D@#GLOBAL<*A,H LFINISH^AND^SHIP  F`NUMOUT    ( PV B 2T9250D20?&&V&OPEN^INPUT^FILENJ#GLOBAL   ^J ERROR^PACKET  (hSET^FILE      OPEN^FILE           L &B 2T9250D20@LOPEN^OUTPUT^FILE lh#GLOBAL 1! "29jJ ERROR^PACKET  FtSET^FILE     7> OPEN^FILE           ,* B 2T9250D20\A>*>WRITE^OUTPUT^FILE&"#GLOBALJ ERROR^PACKET   WRITE^FILE         p B 2T9250D20qC8p8 GIVE^IT^UP #GLOBAL "   $+H CLOSE^FILE   BCLOSE  OPEN           tSETMODE     (`CONTROL    1STOP        6, RB 2T9250D20DH INITIALIZE `\#GLOBAL;  %$$%!$ zyskjbUTSMLFE?3-+#  )4r START^PROC   L  6tSET^FILE     h!1 OPEN^FILE           wBCLOSE  OPEN           !SETMODE      STOP         INITIALIZER    =p CHECK^FILE     DKR,DEBUG#xWRITE     X.B 2T9250D20G. FORMAT^ACK XT#GLOBAL +, +LH CHECKSUMMER  *6B 2T9250D20G* FORMAT^NAK D@#GLOBAL + LH CHECKSUMMER  X`B 2T9250D200HpX GET^PACKET #GLOBALE!&,,+,+  '()(&('(,tnl[R,Q+O,M+J G >=;:7 64-*)( %% & +$(( H CHECKSUMMER  @ GIVE^IT^UP  `CONTROL    ~ WRITEREAD      nAWAITIO     FILEINFO                          4DELAY B 2T9250D20\N"  PROCESS^SEND^INIT"&PARAMS #GLOBALgP N%bH B%@%?$<$4%J $! !&/%K%cxH CHECKSUMMER  f, FORMAT^ACK FDB 2T9250D20QBD COMMAND^PROC &"#GLOBALNJ ERROR^PACKET  tlB 2T9250D20Ql GENERIC^PROC D@#GLOBAL '#: GET^PACKET  J ERROR^PACKET  &: GIVE^IT^UP   2 FORMAT^ACK 2:B 2T9250D20R  RECEIVE^PROC LH#GLOBAL9| m g+c\ZU > "   % %% %%w%t%rgfdaUPMLE =86)%" %f, t^ GET^PACKET  yLs J ERROR^PACKET  2OPEN^OUTPUT^FILE LWRITE^OUTPUT^FILE  RN CLOSE^FILE   `J FORMAT^ACK Iv p\PROCESS^SEND^INIT  V FNAMEEXPAND   iB 2T9250D20=]~ Z Z SEND^PROCVR#GLOBAL:   yif VSPK;8 2!1$+$%%% %%%% %H D;320-*   %^FINISH^AND^SHIP   e: GET^PACKET  7n ERROR^PACKET  |N"0OPEN^INPUT^FILE (H CLOSE^FILE   bPROCESS^SEND^INIT  0UV FNAMEEXPAND   5 READ^FILE         B 2T9250D20 gibb KERMIT^SERVERvr#GLOBAL `:*' &!&Jbi: GET^PACKET  J ERROR^PACKET  MH CLOSE^FILE   fSTOP        m, INITIALIZE , FORMAT^NAK \PROCESS^SEND^INIT  ,. COMMAND^PROC 5. GENERIC^PROC 2. RECEIVE^PROC $* SEND^PROC0