.ENABLE SUBSTITUTION .; .; TEST PROGRAM "TISTAT". .; .SETN Z 0 .IFNINS ...TIS INS SY:TISTAT/TASK=...TIS TISTAT .SETN TISTAT .; .; CHECK FOR SUCCESSFUL COMPLETION. .; .IF Z EQ TISTAT&1 .GOTO 50 .IF Z EQ TISTAT&6 .GOTO 100 .50: ; ; Execution failed -- too bad. ; .STOP 4 .100: .; .; CHECK FOR SPAWNED OPERATION. .; .IF Z NE TISTAT&2000 .GOTO 200 ; ; The installed version of AT. does not support spawning. ; It therefore does not receive an exit status from tasks ; run by it. TISTAT is useless. Oh, well. ; .STOP 4 .200: .; .; PRINT OUT THE FEATURES OF THIS TERMINAL. .; .SETN TERM TISTAT/4000 ; ; You are currently running on TT'TERM':. ; .IF Z EQ TISTAT&10 ; TT'TERM': is not privileged. .IF Z NE TISTAT&10 ; TT'TERM': is privileged. .IF Z EQ TISTAT&20 ; TT'TERM': is not a CRT terminal. .IF Z NE TISTAT&20 ; TT'TERM': is a CRT terminal. .IF Z EQ TISTAT&40 ; TT'TERM': does not support lower case. .IF Z NE TISTAT&40 ; TT'TERM': supports lower case. .IF Z EQ TISTAT&100 ; TT'TERM': is not set SLAVE. .IF Z NE TISTAT&100 ; TT'TERM': is set SLAVE. .IF Z EQ TISTAT&200 ; TT'TERM': does not have hardware form-feed. .IF Z NE TISTAT&200 ; TT'TERM': has hardware form-feed. .IF Z EQ TISTAT&400 ; TT'TERM': is less than 81 characters wide. .IF Z NE TISTAT&400 ; TT'TERM': is more than 80 characters wide. ;