// Effectus auto-generated Mad Pascal source code listing
program valbciPrg;

uses
  Crt, StringUtils, SySutils, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// String to number conversion demo
// using ValB, ValC and ValI functions

procedure MAINProc;
var
  key : byte;  // key_byte_array
  B : byte;  // B_byte_array
  C : word;  // C_byte_array
  I : integer;  // I_byte_array
begin
  B := StrToInt('120');
  C := StrToInt('65000');
  I := StrToInt('-3400');
  eff_string := '';
  Write(B);  // Print 2
  Writeln;
  eff_string := '';
  Write(C);  // Print 2
  Writeln;
  eff_string := '';
  Write(I);  // Print 2
  Writeln;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
