if ~exists(Droom) then do;transmit tx.107;droom=oroom;dhabi=ohabi;end
call open(room,droom,"R")
do n = 1 to 26;code.n=READLN(room);end
call close room
transmit "f1"
if u.38 >0 & u.54=1 & u.56~=1 then do;transmit "c7n1";if left(code.23,1)~="." then transmit code.23;if left(code.24,1)~="." then transmit code.24;if left(code.25,1)~="." then transmit code.25;Transmit "n1";end