.ABANDON OUTPUT ABANDONOUTPUTIO$FLUSH.        4                 4 1   . P BASE NAMEBASENAMEEXPANDP#SMOVEP#SRESP#SPMOVEN   & D  U%        N  (  a   N     e 4     a        N ! CALLER IDCALLERID # $ % ' ) *   + -(CHECKIO$CHECKP#SIGNAL( / 1 3 & D U  5  %        6 B   7( 9*SETCLI1CLIPARAMSETCLI1* ; < = > A F H I J K L  @c   W# x  M N @ ? P * R T  V* W CLOSE INPUT CLOSEINPUT Y Z [ ] ^  2    _  `  a 0 b c  e CONSTRUCTIO$CONSP#SMOVE f g i M k l m n  W"  o  . N    Ba  p h W"  ^ q @  e 0 5 r . s    t u A  Ac @  E 5  v   w   Ba Bm  x  y W-   z   Aa Am  ɕ (  {  B   u  |  }   Ca Cm  e 0 K ~     Aa Am    E e 0 ɐ    @a @m  ȕ ) u    e    Ba    Ba  < CLOSE OUTPUT CLOSEOUTPUTIO$FLUSHIO$DIRFN<   4      /               4 1 < &DEVICE FUNCTIONIO$DEVFN$PONOFF&   8 _  6 ߗ  7 _ : _ <  6  & D DIR FUNCTIONSIO$DIRFN$PONOFFD  & D U   8 @   6 ߗ  7 e  _ :   <  6    8   D  END OF INPUT ENDOFINPUT IO$GOTSYM     XEXISTSEXISTSIO$PARSEIO$DIRFNP#SPMOVEX  & D   e      a    -    4     a           X 4EXIT$EXIT IMP$STOP1$PON4  & D U  ߗ  6 ߗ  7   8  <  6      4 EXPANDEXPAND"$EXPANDIO$PARSEIO$CONSP#SMOVE.EVENTP#SCONCP#SIGNALP#SPMOVE|    " & D  e         a      a   B     |  C a n n o t p a r s e f i l e s p e c : Z  |              |  & D        B    | FLUSHOUT TERMINATEIO$FLUSHIO$DIRFNP#SIGNALIO$DEVFN IO$SETEOTIO$FLUSH              !     " " #   $  %     &      '  (     ) *  8        + ,     - /    .  8        /   A  0 1   0  2  4 5  6  7FSYSFSYS 9 : ; = ? A   B DGOTSYM IO$GOTSYM$PONOFFIO$DEVFNIO$DIRFN F G H I K M N  I O   \ P W  C R 0,   L S /    3 U   V   6 W ߗ  7 X   8 Y   : Z ×   < [  6  \ ]    ^  8 _ /   `   a   b    c  d   e     f g h i  0  j  g p  k l  0   m  n 0  o p q sIDID u v w y { |   } IN FILE INFILENAMEIO$CONSP#SMOVE          B    INITIALISE IOIO$INITP#SMOVE                  ߗ    . T T"                  2     D a t a :T         p   p    ߗ                    4       IN STREAMINSTREAM        2  INT CHARINTCHAR        0  JIMPSTOP1 IMP$STOP1 SELECTOUTPUTNEWLINE ABANDONOUTPUT CLOSEOUTPUTJ       & D U        0,     4              %      J  MONITOR EVENT MONITOREVENT SELECTOUTPUT PRINTSTRING.EVENTWRITENEWLINEP#SMOVEP#SCONC|     & D    2    |  E v e n t :   |        S u b e v e n t : $          E x t r a : 8          L ߋ       M e s s a g e : V  B         n          | ^ MOVE STRINGIO$MOSIO$CHECK SELECTOUTPUT CLOSEOUTPUT^      & D U           -     2           p     1         ^ l SHARE START&P#START #STACKBASE PROG$INIT%GO$EXIT& " # $ %& & ( *  +  ,  -  .  /   0 & 2 4& 68 & D > ? E t   F   G I    K  & D L t   M    N O    P    &\ R  S   U   DPl& Vj NO ROUTINE$NORTN OCTALTOSTRINGP#SMOVE.EVENTP#SCONCP#CONSIG: X & D U% ] ^ _ a   b: . R o u t i n e n o t i n s h a r e d l i b r a r y ; c a l l e d a t P C :   e   B   :          d  f: gb NEXT SYMBOL NEXTSYMBOL IO$GOTSYM INFILENAMEP#SMOVE.EVENTP#SCONCP#CONSIGD i j k l n p & D q r         sD  E O F i n N E X T S Y M B O L i n f i l e :   B   D        t   uD xOPENIO$OPEN #NSTREAMSP#SMOVEP#SIGNAL IO$SETEOTIO$PARSEP#SCONC z { | }  & D U  e          @     4      -      N o f r e e s t r e a m s f o r O P E N                p  g          S ~          p  g e    m         q      q   -    A            & D  e &       " 4 $ 4  *    " 4 $ 4 *       a   =    #     t &  4 (  m " 4           - &         ( %        4          a <      * m "       C a n n o t p a r s e f i l e s p e c                      OPEN INPUT OPENINPUT& $XOPENINPUT IO$CHECKIO$OPEN SELECTINPUTIO$DIRFN$EXPANDP#SMOVEP#SCONCP#SIGNALP#SPMOVE      & & D  e      2                             4   <  /   /    1        #          a    F i l e  n o t f o u n d      a                ,             & D       a        n OPEN OUTPUT OPENOUTPUT& $XOPENOUTPUT IO$CHECK SELECTOUTPUT CLOSEOUTPUTIO$OPEN$EXPANDP#SMOVEP#SCONCP#SIGNALP#SPMOVER     & & D  e        4                         4   j /   f   t   L W  t   R /   N     2   F 2   B   t   m    m  p   4    %      0    1              a  R O u t p u t f i l e _ a l r e a d y o p e n  R     a   _             %      0         R  & D       a       R OUT FILE OUTFILENAMEIO$CONSP#SMOVE           B  ! #OUT TYPEOUTTYPE % & ' ) + ,     -   . 0hP#READCHP#READCH IO$GOTSYM INFILENAMEP#SMOVE.EVENTP#SCONCP#CONSIGJ 2 3 4 5 7 9 & D : H  I     J      K LJ  E O F i n R E A D S Y M B O L i n f i l e :"   B   J        M   NJ PPARSEhIO$PARSE@DISPLAY.EVENTP#SMOVE         @  @c 5"        B   h & D      e         0     0,       p   E p   % A  % Z   p   p        % 0  ,  e         |  4     @` 4    9  f   -  . ?  X ^  4    L  -  N T     w        .   0    0      4]             0          <    w X   4       t         p `      -  .         4     ?  ?        <         4     9     m  0       B        4                         (   (    7  4  4          P t             -  )   4            8        0   0    0          w       PROMPTPROMPTP#SJAM1P#SPMOVE     & D            ( PRINT SYMBOL PRINTSYMBOLIO$FLUSH(            x        W  0,       ( PROGRAM INITIAL$TRAPTO PROG$INIT$EXIT SELECTOUTPUT PRINTSTRING MONITOREVENT$TRAPTO$GETIDIO$INITP#SMOVEP#SCONCNEWLINESETCLI1 SETSTREAMS SELECTINPUTP#SIGNALL          " #LL TTLN PLLP 2TLR 3TLT L %bb Lc Ld Le Lf L ( )m n Lp Lr Lt Lv Lx L + L L L L L L / 5 & D U 6 7  *   $ F 8  %      9  x  ; <      =   >  * * *@     ?       @ '  '     B   D F   G   H   I  J  H  K   L  M  1 L N   b O  %  Q    R  S  1 n  T    0 U  %  V   X Z   [  E r r o r i n i t i a l i s i n g s t r e a m s :    B     \ ]   _ a b   c   d  e   g i   L k l m s  t  v L w: RESET INPUT RESETINPUTIO$DIRFN: y z { | } ~       ,          0       0          : & RESET OUTPUT RESETOUTPUT IO$SETEOT&          /     0        0   &  SELECT INPUT SELECTINPUTIO$CHECK       & D U     2         SELECT OUTPUT SELECTOUTPUTIO$CHECK           4      &SET EOT IO$SETEOT&    M  e  u  @ e   e       @-    & ` SETSTREAMS SETSTREAMS $XOPENINPUT $XOPENOUTPUT.EVENTP#SMOVEP#SCONCP#SIGNALB    & D  e    B      4  4  4  4 C ( 4  4    -  ,  -  /  -   -  :  -  S       D h       a U       E        a U     -   -   -  :     -  /   -    F  C a n n o t p a r s e f i l e s p e c   F                     _  4             a `     -   m    t   w B  SKIPSYMBOL SKIPSYMBOLP#READCH  & D         TT NOTTNO          UNITUNIT          vUSE TTVERSIONUSETTP#SIGNAL SELECTOUTPUTIO$FLUSH\      # & D U $  4  %  %       &   '     (   )  *  +  ,   -   \ / 0\  V 1 . 1 ( 0 ) 1 3 / 0 8 / 8 2 1 8 . 3 3 . 1 0  \ 1\ 3EMTS$SWAB$WAIT $TIME $SETPRIORITY$POP,$PUSH< $MAPPSECTF$MAPHWRL$LINKINR$ALARMX$GETID^$MAPABS$MAPVIRT $FMAPVIRT$PONOFF$POFF$PON.EVENTP#SMOVEP#CONSIG 4 5 6 7 8 9 : ; < = > ? @ A B C D E G I C J  K  L  M  N  P  S U f V @ W  X  Y  Z P [ P \  ]  _  a f C g  h  i  j  k  l  m  n  o  p c q # s  t v B w A x @ y z B |  } ~  B  A  @  U            M a p V i r t f a i l s          ^   @  B  A  A  A  A  A  E       e @  Bc  E            X      R  @     L  @    F  @     <  @          ,    @                     @                      @                     B