:program to find printer port numberK SEG@ J  PORT(K)(J)(J)( "LPT";K;"= ";PORT(K)-KK2 J