PRINT STRVAR SSIEXT 0-:6;             !FIND CONTROLTYPE NAME FROM POINTER!
        NOT ACCEPTED
        FAULT CODE  26
        TEST COMMAND IS NOT PRECEEDED BY THE INITIATING COMMAND 'TEST'
        
        <TEST SYSTEM;
        EXECUTED
        
        <PRINT STRVAR SSIEXT 0-:6;             !FIND CONTROLTYPE NAME FROM POINTER!
                STRING VARIABLE ARRAY
        WO      INUK 36/NODE4/00 W19   AT-2       TIME 930107 1345  PAGE    8
                SSIEXT   STRVAR H'006
        H'0 0000:"INFO"
        H'0 0001:"VP1"
        H'0 0002:"VP2"
        H'0 0003:"VP3"
        H'0 0004:"NRANA"
        H'0 0005:"NRANAX"
        H'0 0006:"CALLDIS"
        H'0 0007:"CALLGAP"
        H'0 0008:"CHAR"
        H'0 0009:"DATE"
        H'0 000A:"DAYINW"
        H'0 000B:"DIGIT"
        H'0 000C:"JUMP"
        H'0 000D:"JUMPR"
        H'0 000E:"LOADNR"
        H'0 000F:"NPROT"
        H'0 0010:"NUMMOD"
        H'0 0011:"NXTCHAR"
        H'0 0012:"REGISTR"
        H'0 0013:"RESPONS"
        H'0 0014:"SCREEN"
        H'0 0015:"TIME"
        H'0 0016:"ULD"
        H'0 0017:"BRDIR"
        H'0 0018:"BRONIND"
        H'0 0019:"BRONINX"
        H'0 001A:"CHARCHK"
        H'0 001B:"CHSTATE"
        H'0 001C:"COMPNUM"
        H'0 001D:"COMPVAR"
        H'0 001E:"CREANUM"
        H'0 001F:"ENDLOOP"
        H'0 0020:"GOSUB"
        H'0 0021:"HANDOVR"
        H'0 0022:"LOADQD"
        H'0 0023:"LOOP"
        H'0 0024:"MODVAR"
        H'0 0025:"NUMVAR"
        H'0 0026:"ONGOING"
        H'0 0027:"PARTIN"
        H'0 0028:"PARTOUT"
        H'0 0029:"PRESENT"
        H'0 002A:"RESINT"
        H'0 002B:"RESLINT"
        H'0 002C:"RESNUM"
        H'0 002D:"RETSUB"
        H'0 002E:"TIMECHK"
        H'0 002F:"ULD2"
        H'0 0030:"VARNUM"
        H'0 0031:"VAR2NUM"
        H'0 0032:"JOIN"
        H'0 0033:"SPLIT"
        H'0 0034:"FREE"
        H'0 0035:"CREATE"
        H'0 0036:"EXMONIT"
        H'0 0037:"TIMETYP"
        H'0 0038:"ORG2"
        H'0 0039:"ROUTE"
        H'0 003A:"DAYTYPE"
        H'0 003B:"AREA"
        H'0 003C:"ORG3"
        H'0 003D:"RESTAB"
        H'0 003E:"CCPROC"
        H'0 003F:"CCTRAF"
        H'0 0040:"READDAT"
        H'0 0041:"WRITDAT"
        H'0 0042:"ASTAT"
        H'0 0043:"STARATT"
        WO      INUK 36/NODE4/00 W19   AT-2       TIME 930107 1345  PAGE    9
        H'0 0044:"STARTIM"
        H'0 0045:"TSTAT"
        H'0 0046:"ESTAT"
        H'0 0047:"MSTAT"
        H'0 0048:"SSTAT"
        H'0 0049:"REPORT"
        H'0 004A:"SREPORT"
        H'0 004B:"REPTYPE"
        H'0 004C:"ACLASS"
        H'0 004D:"QUEUE"
        H'0 004E:""
        H'0 004F:""
        H'0 0050:""
        H'0 0051:""
        H'0 0052:""
        H'0 0053:""
        H'0 0054:""
        H'0 0055:""
        H'0 0056:""
        H'0 0057:""
        H'0 0058:""
        H'0 0059:""
        H'0 005A:""
        H'0 005B:""
        H'0 005C:""
        H'0 005D:""
        H'0 005E:""
        H'0 005F:""
        H'0 0060:""
        H'0 0061:""
        H'0 0062:""
        H'0 0063:""
        H'0 0064:""
        H'0 0065:""
        H'0 0066:""
        H'0 0067:""
        H'0 0068:""
        H'0 0069:""
        H'0 006A:""
        H'0 006B:""
        H'0 006C:""
        H'0 006D:""
        H'0 006E:""
        H'0 006F:""
        H'0 0070:""
        H'0 0071:""
        H'0 0072:""
        H'0 0073:""
        H'0 0074:""
        H'0 0075:""
        H'0 0076:""
        H'0 0077:""
        H'0 0078:""
        H'0 0079:""
        H'0 007A:""
        H'0 007B:""
        H'0 007C:""
        H'0 007D:""
        H'0 007E:""
        H'0 007F:""
        END
        
        <ON IA SSI H'1A84;
        EXECUTED
        
        <ON IA DO:IF DR13=H'17;
        DO:CODE H'28, CODE H'1EA, CODE H'400F;
        DO:P VAR SSI 1:H'AA;
        DO:;
        WO      INUK 36/NODE4/00 W19   AT-2       TIME 930107 1346  PAGE   10
        EXECUTED
        
        <INIT;
        EXECUTED
        
        <
        

        WO      INUK 36/NODE4/00 W19   AT-2       TIME 930107 1346  PAGE    1
                
                PROGRAM TRACING   (1)
        
                ON IA
                SSI      VAR H'0 17D4:H'0AA=H'0006
        
                SSI      VAR H'0 17D5:H'0AA=H'00C2
        
                SSI      VAR H'0 17D6:H'0AA=H'00A7
        
        END