expandcode.pro

function expandcode,code
;expands string CODE

case strupcase(code) of

'BU': a='BOSTON UNIVERSITY'


'PG': a='PANGNIRTUNG'


'CD': a='CAPE DORSET'


'CH': a='CORAL HARBOUR'


'RB': a='REPULSE BAY'


'CY': a='CLYDE RIVER'


'IG': a='IGLOOLIK'


'PB': a='PELLY BAY'


'GH': a='GJOA HAVEN'


'RE': a='RESOLUTE BAY'


'CB': a='CAMBRIDGE BAY'


'BL': a='BAKER LAKE'


'IQ': a='IQALUIT'


'BA': a='BACK'


'GI': a='GILLAM'


'CC': a='CHURCHILL'


'ES': a='ESKIMO POINT'


'RN': a='RANKIN INLET'


'IS': a='ISLAND LAKE'


'PI': a='PINAWA'


'SM': a='FORT SMITH'


'CO': a='CONTWOYTO LAKE'


'RL': a='RABBIT LAKE'


'DA': a='DAWSON CREEK'


'SI': a='FORT SIMPSON'


'MC': a='FORT MCMURRAY'


'TA': a='TALOYAK'


'AM': a='AMK'


'GW': a='GREAT WHALE RIVER'


'PD': a='GREAT WHALE RIVER'


'TH': a='THULE'


'GD': a='GODHAVEN'


'NA': a='NAIN'

; 'NA': a='NARSARSUAQ'

'MG': a='MAGIC GISP'


'MN': a='MAGIC NORTH'


'ME': a='MAGIC EAST'


'MW': a='MAGIC WEST'


'NE': a='NEWPORT'


'RP': a='RAPID CITY'


'CS': a='CAMP DOUGLAS'


'ML': a='MOUNT CLEMENS'


'SU': a='SUDBURY'


'LO': a='LOMPOC'


'TP': a='TAMPA'

else: begin


a='unknown '

; message, 'Unknown station code'+': '+code

end

endcase
return,a
end