call open(room,droom,"R")
do n = 1 to 18;code.n=READLN(room);end
call close room
transmit "f1c7n1"
if u.56=1 then transmit "c1r1 YOU ARE BLIND! r0"
if u.54=1 & u.56~=1 then do;if left(code.13,1)~="." then transmit code.13;if left(code.14,1)~="." then transmit code.14;if left(code.15,1)~="." then transmit code.15;end