PROGRAM untel; USES SysUtils; CONST Hex : String[16] = '0123456789ABCDEF'; MaxETT = 8; Entete : ARRAY[1..MaxETT] OF String = ('', '', '', '', '', '', ''); PROCEDURE Main; VAR X, Y, Z : Word; S : String; F : Text; BEGIN Assign(F, 'SET'+ParamStr(1)+'00-'+ParamStr(1)+'FF.htm'); Rewrite(F); IF (IOResult = 0) THEN BEGIN FOR X := 1 TO MaxETT DO WriteLN(F, Entete[X]); WriteLN(F, 'UNICODE Charset ', ParamStr(1), '00-', ParamStr(1), 'FF'); WriteLN(F, ''#13#10''); WriteLN(F, '

UNICODE Charset ', ParamStr(1), '00-', ParamStr(1), 'FF

'); WriteLN(F, '
'); FOR X := 1 TO 16 DO Write(F, ''+ParamStr(1)+Hex[X]); WriteLN(F, ''); FOR Y := 1 TO 16 DO BEGIN Write(F, '
', Hex[Y]); FOR X := 1 TO 16 DO BEGIN Z := StrToInt('$'+ParamStr(1)+Hex[X]+Hex[Y]); S := IntToStr(Z); WriteLN(F, '&#', S, ';
U'+ParamStr(1)+Hex[X]+Hex[Y]); END; END; WriteLN(F, '
'#13#10''#13#10''#13#10); Flush(F); Close(F); END ELSE WriteLN('Erreur en cr‚ation de fichier'); END; BEGIN IF (ParamStr(1) <> '') AND (Length(ParamStr(1)) = 2) AND (StrToIntDef(ParamStr(1), -1) IN [$0..$FF]) THEN Main ELSE WriteLN('Une valeur hexa comprise entre 00 et FF est requise.'); END.