On Saturday, 24 April 2021 at 04:50:22 UTC-7, free bijsss wrote:
> Hi there!
>
> Here I am with another problem! Crying or Very sad
>
>
> I have installed both Complete Pascal and TML Pascal 2.0, but when I create
> even a small listing I don't see anything on the screen when I compile it
> and it doesn't tell me there are errors!
> Ex:
>
> Program HalloWorld;
> BEGIN
>
> Writeln ('Hallo World');
>
> END.
>
> Does anyone know this kind of problem?
>
> Thank you !
> I have installed both Complete Pascal and TML Pascal 2.0, but when I create
> even a small listing I don't see anything on the screen when I compile it
> and it doesn't tell me there are errors!
> Ex:
>
> Program HalloWorld;
> BEGIN
>
> Writeln ('Hallo World');
>
> END.
>
> Does anyone know this kind of problem?
>
> Thank you ! Crying or Very sad

Here is a sample Complete Pascal program I wrote a long time ago to print to the text screen. Hope it helps:

program Test;

uses Types, QuickDraw,TextTool;

var
inchar : integer;

procedure Text;
begin
GrafOff;
TextStartUp;
SetInGlobals(255, 128);
SetOutGlobals(255, 128);
SetErrGlobals(255, 128);
SetInputDevice(1, 3); { BASIC driver, slot #3 }
SetOutputDevice(1, 3);
SetErrorDevice(1, 3);
InitTextDev(0); { Init Input }
InitTextDev(1); { Init Output }
InitTextDev(2) { Init Error }
end;

procedure Home(clear : boolean);
begin
if clear then
WriteChar(12)
else
WriteChar(25)
end;

procedure WriteCR;
begin
WriteChar(10);
WriteChar(13)
end;
procedure Inverse;
begin
WriteChar(15)
end;
procedure Normal;
begin
WriteChar(14)
end;

procedure MouseText(enable : boolean);
begin
if enable then
WriteChar(27)
else
WriteChar(18)
end;

procedure GotoXY(x, y : integer);
begin
WriteChar(30);
WriteChar(x+32);
WriteChar(y+32)
end;

begin
Text;
Home(true);
GotoXY(32,4);
WriteString('Hello, World.');
GotoXY(0, 10);
WriteLine('Normal Characters:');
for inchar := 32 to 127 do
WriteChar(inchar);
WriteCR;
WriteCR;
WriteLine('Inverse Characters:');
Inverse;
for inchar := 32 to 127 do
WriteChar(inchar);
Normal;
WriteCR;
WriteCR;
WriteLine('MouseText Characters:');
MouseText(true);
Inverse;
for inchar := 32 to 127 do
WriteChar(inchar);
inchar := ReadChar(0);
end.