FUNCTION BINARYTOTEXT(binary:STRING) RETURNS STRING DECLARE Result:INTEGER DECLARE ReturnString:STRING ReturnString ← "" FOR Count ← 1 TO LENGTH(binary) STEP 8 Result ← 0 FOR I ← 7 TO 0 STEP -1 IF MID(binary,(Count+7-I),1) = "1" THEN Result ← Result + (2^I) ENDIF NEXT I ReturnString ← ReturnString & CHR(Result) NEXT Count RETURN ReturnString ENDFUNCTION