This code converts given numbers to words.

For usage run (sample):

InitTextVariables;numText := NumberToWords(1256,'');  // numText | Text | 100Message(numText);

NumberToWords(number : Integer;appendScale : Text) : TextnumString := '';IF number < 100 THEN  IF number < 20 THENnumString := OnesText[number]  ELSE BEGINnumString := TensText[number DIV 10];IF (number MOD 10) > 0 THEN  numString := numString + ' ' + OnesText[number MOD 10];  ENDELSE BEGIN  pow := 0;  powStr := '';  IF number < 1000 THEN BEGIN // number is between 100 and 1000pow := 100;powStr := ThousText[1];  END ELSE BEGIN // find the scale of the numberlog := number DIV 1000;pow := POWER(1000, log);powStr := ThousText[log + 1];  END;  numString := NumberToWords(number DIV pow, powStr) + ' ' + NumberToWords(number MOD pow,'');END;EXIT(numString + ' ' + appendScale);// local variables// numStringText// powInteger// powStrText// logIntegerInitTextVariables()OnesText[1] := 'one';OnesText[2] := 'two';OnesText[3] := 'three';OnesText[4] := 'four';OnesText[5] := 'five';OnesText[6] := 'six';OnesText[7] := 'seven';OnesText[8] := 'eight';OnesText[9] := 'nine';OnesText[10] := 'ten';OnesText[11] := 'eleven';OnesText[12] := 'twelve';OnesText[13] := 'thirteen';OnesText[14] := 'fourteen';OnesText[15] := 'fifteen';OnesText[16] := 'sixteen';OnesText[17] := 'seventeen';OnesText[18] := 'eighteen';OnesText[19] := 'nineteen';TensText[1] := '';TensText[2] := 'twenty';TensText[3] := 'thirty';TensText[4] := 'forty';TensText[5] := 'fivty';TensText[6] := 'sixty';TensText[7] := 'seventy';TensText[8] := 'eighty';TensText[9] := 'ninty';ThousText[1] := 'hundred';ThousText[2] := 'thousand';ThousText[3] := 'million';ThousText[4] := 'billion';ThousText[5] := 'trillion';// global variables// OnesTextText30 | Dim:20// TensTextText30 | Dim:10// ThousTextText30 | Dim:5