;*$USEFUNCS
declare procedure ReadUNxxx()
STRING messi, name, oper, city, stat,UNxxxloc
integer offs, PAGER, chan, UNchan
boolean mw

procedure ReadUNxxx()

    UNchan = fnext()
     if (UNchan = -1) then
        Println "@X0CNo free channel available"
        end
    endif

    offs = (32+(189*(PCBNODE() - 1)))
    UNxxxloc = READLINE(PCBDAT(),41)
      fopen UNchan, UNxxxloc,O_RD,S_DN
        FSEEK UNchan,(offs),SEEK_SET
        FREAD UNchan,Stat,1
        FREAD UNchan,MW,1
        FREAD UNchan,PAGER,2
        FREAD UNchan,name,26
        FREAD UNchan,CITY,25
        FREAD UNchan,oper,49
        fread UNchan,messi,80
        fread UNchan,chan,1
      Fclose 1
endproc