%externalintegerfnspec display print queue(%string(31) queue name, %string(*)%name info) %begin %string(255) info = "??" %integer status status = display print queue("PRINT$BLOCK_OP", info) printstring("Status: "); phex(status); newline printstring(info); newline status = display print queue("PRINT$LP", info) printstring("Status: "); phex(status); newline printstring(info); newline %end %of %program