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

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

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.

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)