Message[Type1].FieldLable[2] := ′Temperature Range′
Message[Type1].FieldType[3] := Integer
Message[Type1].FieldLabel[3] := ′Number of Samples′
Message[Type1].FieldType[4] := CharString
Message[Type1].FieldLabel[4] := ′Location′
Message[Type1].FieldType[5] := TimeOfDay
Message[Type1].FieldLabel[5] := ′Time of Measurement′
,
,
Messaae
20
While more message to read
Read a message header
Decode the message ID from the message header
If the message header is type 1 then
Print a type 1 message
Else if the message header is type 2 then
Print a type 2 message
.........
Else if the message header is type 19 then
Print a type 19 message
Else if the message header is type 20 then
Print a type 20 message
20
20
Print ′ Buoy Temperature Message′
Read a floating-point value
Print ′ Average Temperature′
Print the floating-point value
Read a floating-point value
Print ′ Temperature Range′
Print the floating-point value