6530 Programmer's Guide

Tandem NonStop Kernel Application Interface
6530 Programmer’s Guide 4-9
END;
EXIT1:
buffer^s ’:=’ [reset^color^conf] -> @e ;
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;
buffer^s ’:=’ [exit^prot] -> @e;
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;
CALL setmode( fnum , 8 , 0 , 0 ); -- Back to
conv mode
buffer^s ’:=’ ["Test is OK."] -> @e;
CALL write ( fnum , buffer , @e ’-’ @buffer^s ) ;
END ;