*DECK PPTEXT
          PROC PPTEXT;
           CONTROL STEXT; 
         XREF PROC INTERCEPTOR; 
         XREF FUNC PLTCHARACTER C(1); 
         XREF FUNC TOBIN; 
         XREF PROC DISPLAY; 
         XREF PROC CBLIST;
         XREF FUNC STACK; 
         XREF FUNC LINE;
         XREF FUNC COLUMN;
         XREF FUNC BOOLSTACK; 
         XREF FUNC TPOINTER;
         XREF FUNC TCODE; 
         XREF FUNC TSUBCODE;
         XREF FUNC PRIORITY;
         XREF FUNC ADDRESS; 
         XREF FUNC FORMULA; 
         XREF FUNC SUBJECT; 
         XREF FUNC OBJECT;
         XREF FUNC DEBUGELEMENT;
         XREF FUNC COMMONSTACK; 
         XREF PROC XSTACK;
         XREF PROC XLINE; 
         XREF PROC XCOLUMN; 
         XREF PROC XBOOLSTACK;
         XREF PROC XTPOINTER; 
         XREF PROC XTCODE;
         XREF PROC XTSUBCODE; 
         XREF PROC XPRIORITY; 
         XREF PROC XADDRESS;
         XREF PROC XFORMULA;
         XREF PROC XSUBJECT;
         XREF PROC XOBJECT; 
         XREF PROC XDBUGELEMENT;
         XREF PROC XCOMMONSTACK;
         XREF PROC PUSH$DSS$PKG;
         XREF PROC POP$DSS$PKG; 
         XREF PROC PUSH$SRCHALL;
         XREF PROC POP$SRCHALL; 
         XREF PROC RTEMP; 
         XREF FUNC GTX; 
         XREF PROC NG;
         XREF FUNC DEC C(10); 
         XREF FUNC GETGT; 
         XREF PROC SETGT; 
         XREF FUNC BYTE;
         XREF PROC COPYD4;
         XREF PROC CMM$FGR; 
         XREF FUNC CMM$AGR; 
         XREF PROC CMM$GLV; 
         XREF FUNC CMM$ALV; 
XREF PROC XPP1; 
DEF ERROR(A,B,C,D) #BEGIN BADNEWS = B;
                    XPP1(A,BADNEWS,C,D); END CONTROL LIST#; 
ITEM BADNEWS; 
         XREF PROC XPP2;     DEF VD           #XPP2#; 
         XREF FUNC XPP3;     DEF NEXTLAT      #XPP3#; 
         XREF FUNC XPP4;     DEF NEXTPNAT     #XPP4#; 
         XREF FUNC XPP5;     DEF NEXTDNAT     #XPP5#; 
         XREF FUNC XPP6;     DEF NEXTAUX      #XPP6#; 
         XREF FUNC XPP7;     DEF NEXTTEMP     #XPP7#; 
         XREF FUNC XPP8;     DEF CREATELDL    #XPP8#; 
         XREF PROC XPP9;     DEF LOCALTEMP    #XPP9#; 
         XREF PROC XPP10;    DEF GLOBALTEMP   #XPP10#;
         XREF FUNC XPP11;    DEF REMOVE       #XPP11#;
         XREF FUNC XPP12;    DEF RETRIEVE     #XPP12#;
         XREF PROC XPP14;    DEF UNSTACK      #XPP14#;
         XREF PROC XPP15;    DEF OPERANDTEST  #XPP15#;
         XREF PROC XPP16;    DEF RESULTTEST   #XPP16#;
         XREF PROC XPP17;    DEF NONZEROLIT   #XPP17#;
         XREF FUNC XPP18;    DEF GETAUX       #XPP18#;
         XREF FUNC XPP19;    DEF FINDAUX      #XPP19#;
         XREF FUNC XPP20;    DEF ATTACHAUX    #XPP20#;
         XREF FUNC XPP22;    DEF TCONTROL     #XPP22#;
         XREF PROC XPP24;    DEF LITERALDNAT  #XPP24#;
         XREF PROC XPP25;    DEF MOVEREFINDEX #XPP25#;
         XREF PROC XPP26;    DEF CALCMOVEINDX #XPP26#;
         XREF FUNC XPP27;    DEF BRTABLEDNAT  #XPP27#;
         XREF FUNC XPP28;    DEF NONNUMID     #XPP28#;
         XREF FUNC XPP29;    DEF NONNUMLIT    #XPP29#;
         XREF PROC XPP30;    DEF TEMPSPACE    #XPP30#;
         XREF FUNC XPP31;    DEF MOVESKEY     #XPP31#;
         XREF FUNC XPP32;    DEF MOVERKEY     #XPP32#;
         XREF PROC XPP33;    DEF NGSTACK      #XPP33#;
         XREF PROC XPP34;    DEF NGDATAREF    #XPP34#;
         XREF PROC XPP35;    DEF NGLITREF     #XPP35#;
         XREF PROC XPP36;    DEF NGPROCREF    #XPP36#;
         XREF PROC XPP37;    DEF NGLABELREF   #XPP37#;
         XREF PROC XPP38;    DEF NGLABELDEF   #XPP38#;
         XREF PROC XPP39;    DEF NGMOVE       #XPP39#;
         XREF PROC XPP40;    DEF NGGOTO       #XPP40#;
         XREF PROC XPP41;    DEF NGGTX        #XPP41#;
         CONTROL EJECT; 
         DEF   GDATAREF      #O"1"#;
         DEF   GFILEREF      #O"2"#;
         DEF   GLABELREF      #O"3"#; 
         DEF   GLITREF       #O"4"#;
         DEF   GPROCREF      #O"5"#;
         DEF   GSUBATOM      #O"6"#;
         DEF   GSUBVERB      #O"7"#;
         DEF   GSYSREF       #O"10"#; 
         DEF   GVERB         #O"11"#; 
         DEF   GABORT         #1#;
         DEF   GLABEL        #40#;
         DEF   GPROC         #65#;
         DEF   GSUBSCAL      #89#;
         DEF   GSUBSFET      #104#; 
         DEF   GSUBSUM       #105#; 
         DEF   GTRUE         #2#; 
         DEF   GFALSE        #1#; 
         DEF   GPARAM        #55#;
         DEF   GFPARAM       #101#; 
         DEF   GVERBDES      #95#;
         DEF   GCOUNT        #5#; 
         DEF   GREFLCP       #116#; 
         DEF   GREFLEN       #117#; 
         DEF   GREFCHK       #118#; 
         DEF   GSUBSREF      #119#; 
         DEF   GSUBLIT       #124#; 
         DEF   GRELSUB       #125#; 
#GTEXT VERB ATOMS#
         DEF   $ABORT        #O"11 00000 001"#; 
         DEF   $ACCEPT       #O"11 00000 002"#; 
         DEF   $ACCEPTMESS   #O"11 00000 003"#; 
         DEF   $ADD          #O"11 00000 004"#; 
         DEF   $ADDROUND     #O"11 00000 005"#; 
         DEF   $ALPHABETIC   #O"11 00000 006"#; 
         DEF   $ALTER        #O"11 00000 007"#; 
         DEF   $ATEND        #O"11 00000 010"#; 
         DEF   $CALL         #O"11 00000 011"#; 
         DEF   $CANCEL       #O"11 00000 012"#; 
         DEF   $CLOSE        #O"11 00000 013"#; 
         DEF   $CLOSEREEL    #O"11 00000 014"#; 
         DEF   $COMPARE      #O"11 00000 015"#; 
         DEF   $CORREND      #O"11 00000 016"#; 
         DEF   $DELETE       #O"11 00000 017"#; 
         DEF   $DELIMITEDBY  #O"11 00000 020"#; 
         DEF   $DISABLE      #O"11 00000 021"#; 
         DEF   $DISPLAY      #O"11 00000 022"#; 
         DEF   $DIVIDE       #O"11 00000 023"#; 
         DEF   $DIVIDEROUND  #O"11 00000 024"#; 
         DEF   $REMAINDER    #O"11 00000 025"#; 
         DEF   $DIVREMROUND  #O"11 00000 026"#; 
         DEF   $ENABLE       #O"11 00000 027"#; 
         DEF   $END$         #O"11 00000 030"#; 
         DEF   $ENTER        #O"11 00000 031"#; 
         DEF   $EQUAL        #O"11 00000 032"#; 
         DEF   $EXAMINE      #O"11 00000 033"#; 
         DEF   $EXIT         #O"11 00000 034"#; 
         DEF   $EXITPROGRAM  #O"11 00000 035"#; 
         DEF   $EXPONENT     #O"11 00000 036"#; 
         DEF   $GOTO         #O"11 00000 037"#; 
         DEF   $GODEPENDING  #O"11 00000 040"#; 
         DEF   $GREATER      #O"11 00000 041"#; 
         DEF   $INSPECT      #O"11 00000 042"#; 
  
         DEF   $INTO         #O"11 00000 044"#; 
         DEF   $INVALIDKEY   #O"11 00000 045"#; 
         DEF   $IOSUCCESS    #O"11 00000 046"#; 
         DEF   $KEYPOINT     #O"11 00000 047"#; 
         DEF   $LESS         #O"11 00000 051"#; 
         DEF   $MERGE        #O"11 00000 052"#; 
         DEF   $MOVE         #O"11 00000 053"#; 
         DEF   $MOVEROUND    #O"11 00000 054"#; 
         DEF   $MULTIPLY     #O"11 00000 055"#; 
         DEF   $MULTROUND    #O"11 00000 056"#; 
         DEF   $NOTALPHAB    #O"11 00000 057"#; 
         DEF   $NOTEQ        #O"11 00000 060"#; 
         DEF   $NOTGT        #O"11 00000 061"#; 
         DEF   $NOTLT        #O"11 00000 062"#; 
         DEF   $NOTNUMERIC   #O"11 00000 063"#; 
         DEF   $NOOP         #O"11 00000 064"#; 
         DEF   $OPEN         #O"11 00000 065"#; 
         DEF   $OVERFLOW     #O"11 00000 066"#; 
         DEF   $PARAMETER    #O"11 00000 067"#; 
         DEF   $PERFORM      #O"11 00000 070"#; 
         DEF   $PERFORMACT   #O"11 00000 071"#; 
         DEF   $PCOMPLEX     #O"11 00000 072"#; 
         DEF   $PERFORMEND   #O"11 00000 073"#; 
         DEF   $PERFORMIO    #O"11 00000 074"#; 
         DEF   $PERFORMIP    #O"11 00000 075"#; 
         DEF   $PERFORMOP    #O"11 00000 076"#; 
         DEF   $PERFORMOM    #O"11 00000 077"#; 
         DEF   $PERFORMTM    #O"11 00000 100"#; 
         DEF   $READKEY      #O"11 00000 102"#; 
         DEF   $READNEXT     #O"11 00000 103"#; 
         DEF   $READSTART    #O"11 00000 104"#; 
         DEF   $RECEIVE      #O"11 00000 105"#; 
         DEF   $RELEASE      #O"11 00000 106"#; 
         DEF   $REPLACE      #O"11 00000 107"#; 
         DEF   $RETURN       #O"11 00000 110"#; 
         DEF   $RETURNATEND  #O"11 00000 111"#; 
         DEF   $REWRITE      #O"11 00000 112"#; 
         DEF   $SEND         #O"11 00000 113"#; 
         DEF   $SEPARATOR    #O"11 00000 114"#; 
         DEF   $SET          #O"11 00000 115"#; 
         DEF   $SETSWITCH    #O"11 00000 116"#; 
         DEF   $SETALPHABET  #O"11 00000 117"#; 
         DEF   $SIZEEND      #O"11 00000 120"#; 
         DEF   $SIZEERROR    #O"11 00000 121"#; 
         DEF   $SIZEERRORIR  #O"11 00000 122"#; 
         DEF   $SORT         #O"11 00000 123"#; 
         DEF   $START        #O"11 00000 124"#; 
         DEF   $STOP         #O"11 00000 125"#; 
         DEF   $STRING       #O"11 00000 126"#; 
         DEF   $SDELIMITED   #O"11 00000 127"#; 
         DEF   $SOPERATOR    #O"11 00000 130"#; 
         DEF   $SUBTRACT     #O"11 00000 132"#; 
         DEF   $SUBTRACTRND  #O"11 00000 133"#; 
         DEF   $TALLY        #O"11 00000 134"#; 
         DEF   $TASKTIMER    #O"11 00000 135"#; 
         DEF   $UNSTRING     #O"11 00000 136"#; 
         DEF   $WRITE        #O"11 00000 140"#; 
         DEF   $WRITEKEY     #O"11 00000 141"#; 
         DEF   $NUMERIC      #O"11 00000 142"#; 
         DEF   $PURGE        #O"11 00000 143"#; 
         DEF   $ENTRY        #O"11 00000 144"#; 
         DEF   $FORMALPARAM  #O"11 00000 145"#; 
         DEF   $SWITCH       #O"11 00000 146"#; 
         DEF   $NOTSWITCH    #O"11 00000 147"#; 
         DEF   $POSITVE      #O"11 00000 152"#; 
         DEF   $NEGATVE      #O"11 00000 153"#; 
         DEF   $NOTPOS       #O"11 00000 154"#; 
         DEF   $NOTNEG       #O"11 00000 155"#; 
         DEF   $MOVERECORD   #O"11 00000 156"#; 
         DEF   $EOP          #O"11 00000 157"#; 
         DEF   $SIZEOFF      #O"11 00000 160"#; 
         DEF   $MOVEASIS     #O"11 00000 161"#; 
         DEF   $NOOVERFLOW   #O"11 00000 162"#; 
         DEF   $RANGE        #O"11 00000 163"#; 
         DEF   $BOOLEANAND   #O"11 00000 170"#; 
         DEF   $BOOLEANOR    #O"11 00000 171"#; 
         DEF   $BOOLEANEXOR  #O"11 00000 172"#; 
         DEF   $BOOLEANNOT   #O"11 00000 173"#; 
#GTEXT SUBVERB ATOMS# 
         DEF   $AFTER        #O"07 00000 001"#; 
         DEF   $ALL          #O"07 00000 002"#; 
         DEF   $BEFORE       #O"07 00000 003"#; 
         DEF   $CHARACTERS   #O"07 00000 004"#; 
         DEF   $COUNT        #O"07 00000 005"#; 
         DEF   $DATE         #O"07 00000 006"#; 
         DEF   $DAY          #O"07 00000 007"#; 
         DEF   $DAYOFWEEK    #O"07 00000 010"#; 
         DEF   $EGI          #O"07 00000 011"#; 
         DEF   $EMI          #O"07 00000 012"#; 
         DEF   $ESI          #O"07 00000 013"#; 
         DEF   $EXCEPTION    #O"07 00000 014"#; 
         DEF   $EXTEND       #O"07 00000 015"#; 
         DEF   $FIRST        #O"07 00000 016"#; 
         DEF   $INPUT        #O"07 00000 017"#; 
         DEF   $IO           #O"07 00000 020"#; 
         DEF   $KEYEQ        #O"07 00000 021"#; 
         DEF   $KEYGR        #O"07 00000 022"#; 
         DEF   $KEYNOTLESS   #O"07 00000 023"#; 
         DEF   $LEADING      #O"07 00000 024"#; 
         DEF   $LOCK         #O"07 00000 025"#; 
         DEF   $MESSAGE      #O"07 00000 026"#; 
         DEF   $NODATA       #O"07 00000 027"#; 
         DEF   $NOREWIND      #O"07 00000 030"#;
         DEF   $NULL         #O"07 00000 031"#; 
         DEF   $OUTPUT       #O"07 00000 032"#; 
         DEF   $PAGE         #O"07 00000 033"#; 
         DEF   $REMOVE       #O"07 00000 034"#; 
         DEF   $REPLACING    #O"07 00000 035"#; 
         DEF   $REVERSED     #O"07 00000 036"#; 
         DEF   $RUN          #O"07 00000 037"#; 
         DEF   $SEGMENT      #O"07 00000 040"#; 
         DEF   $SIZE         #O"07 00000 041"#; 
         DEF   $TALLYING     #O"07 00000 042"#; 
         DEF   $TERMINAL     #O"07 00000 043"#; 
         DEF   $TIME         #O"07 00000 044"#; 
         DEF   $UNTIL        #O"07 00000 045"#; 
         DEF   $DEBUGSW      #O"07 00000 046"#; 
         DEF   $SETTO        #O"07 00000 047"#; 
         DEF   $SETUPBY      #O"07 00000 050"#; 
         DEF   $SETDOWNBY    #O"07 00000 051"#; 
         DEF   $SETSORT      #O"07 00000 052"#; 
         DEF   $SETMERGE     #O"07 00000 053"#; 
         DEF   $SETSM        #O"07 00000 054"#; 
         DEF   $SETPROGRAM   #O"07 00000 055"#; 
         DEF   $SETCODESET   #O"07 00000 056"#; 
         DEF   $SETON        #O"07 00000 057"#; 
         DEF   $SETOFF       #O"07 00000 060"#; 
         DEF   $SATEND       #O"07 00000 061"#; 
         DEF   $SINVALIDKEY  #O"07 00000 062"#; 
         DEF   $STROVRFLW    #O"07 00000 063"#; 
         DEF   $UNSTROVRFLW  #O"07 00000 064"#; 
         DEF   $FORTRANR     #O"07 00000 065"#; 
         DEF   $FORTRANX     #O"07 00000 066"#; 
         DEF   $NOADVANCING  #O"07 00000 067"#; 
         DEF   $DUPLICATES   #O"07 00000 070"#; 
          DEF    $DFILE        #O"07 00000 071"#; 
         DEF   $FTN5         #O"07 00000 072"#; 
         DEF   DEBUGITEM     #2#; 
         DEF   DEBUGLINE     #3#; 
         DEF   DEBUGNAME     #5#; 
         DEF   DEBUGSUB1     #7#; 
         DEF   DEBUGSUB2     #9#; 
         DEF   DEBUGSUB3     #11#;
         DEF   DEBUGCONTS    #13#;
         DEF   DEBUGNUMCON    #14#; 
  
          DEF   PLTPROGNAME                #1#; 
          DEF   PLTSTARTPROG               #2#; 
          DEF   PLTFALLTHRU                #3#; 
          DEF   PLTUSEPROC                 #4#; 
          DEF   PLTPERFLOOP                #5#; 
          DEF   PLTSORTINPUT               #6#; 
          DEF   PLTSORTOUT                 #7#; 
          DEF   PLTMERGEOUT                #8#; 
  
  
         DEF   SUBMARKER     #O"77777 77777"#;
         DEF   NS            #1#; 
         DEF   ON            #1#; 
         DEF   OFF           #0#; 
         DEF   PROPAGATED    #3#; 
         DEF   SEVERE        #2#; 
         DEF   ADVISORY      #4#; 
         DEF   TRIVIAL       #5#; 
         DEF   JOD           #6#; 
  
  
         XREF FUNC VIRTUAL U; 
         DEF GET(X1,X2,X3)  #X1[VIRTUAL(X2,X3)]#; 
         DEF SET(X1,X2,X3,X4)  #X1[VIRTUAL(X2,X3)] = X4 #;
*CALL TABLNAMES 
*CALL AUXT1 
*CALL FNAT1 
*CALL GTEXT1
*CALL INT1
*CALL LAT1
*CALL PLT1
*CALL PNAT1 
          BEGIN 
          END 
          TERM
