Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.sys.apple2.programmer > #5794 > unrolled thread

Complete Pascal not working on IIgs

Back to article view | Back to comp.sys.apple2.programmer

Contents

  Complete Pascal not working on IIgs free bijsss <fra.bel211@gmail.com> - 2021-04-24 11:50 +0000
    Re: Complete Pascal not working on IIgs David Schmenk <dschmenk@gmail.com> - 2021-05-26 21:54 -0700

#5794 — Complete Pascal not working on IIgs

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

[toc] | [next] | [standalone]

#5823

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.

[toc] | [prev] | [standalone]

Back to top | Article view | comp.sys.apple2.programmer

csiph-web