I compile with: ppcross8086.exe ibmlogo.pas
I have two problems:
- Error: Identifier not found "SetUseACP"
- Error: Code segment "_TEXT" too large (exceeds 64k by 83965 bytes)
Code is:
uses
Crt,
classes, sysutils, strutils;
var
Line1 : string;
c : string;
Begin
SetUseACP(False);
TextColor(LightBlue);
c:=chr(219);
Line1:=' 77777777777777 7777777777777777777 777777777777 777777777777';
Line1 := StringReplace(Line1, '7', c, [ rfReplaceAll ]);
ClrScr;
writeln(Line1);
readln();
end.