Pascal - Revision history

Stefan Haubenthal: /* Turbo Pasc'99 */ manual

2024-02-26T10:56:12Z

Turbo Pasc'99: manual

← Older revision		Revision as of 10:56, 26 February 2024
Line 88:		Line 88:

	== Turbo Pasc'99 ==		== Turbo Pasc'99 ==
			[[File:TPV3_Manual_Cover.jpg\|right]]
	Turbo Pasc '99 originated in Germany and initial release to the English world was a German version. It was supplied on disk and did NOT require the P-code card.		Turbo Pasc '99 originated in Germany and initial release to the English world was a German version. It was supplied on disk and did NOT require the P-code card.

2020-08-18T11:59:47Z

Comparison with ISO Pascal: typo

← Older revision		Revision as of 11:59, 18 August 2020
Line 98:		Line 98:

	===Comparison with ISO Pascal===		===Comparison with ISO Pascal===
	ISO ~~Pasca1~~ items NOT supported are:		ISO Pascal items NOT supported are:

	file, in, packed, record, set, type, with, char, ord, pred, round, sqr, succ, trunc,odd, reset, rewrite, dispose, new, pack, unpack.		file, in, packed, record, set, type, with, char, ord, pred, round, sqr, succ, trunc,odd, reset, rewrite, dispose, new, pack, unpack.

2015-06-10T15:09:18Z

A sample of USCD Pascal coding: fixed

← Older revision		Revision as of 15:09, 10 June 2015
Line 25:		Line 25:
	{$L PRINTER: }		{$L PRINTER: }
	program fastback;		program fastback;

	buffer:array[1..5120] of integer;		buffer:array[1..5120] of integer;
	inunit,outunit:integer;		inunit,outunit:integer;
	blkbase,blklimit:integer;		blkbase,blklimit:integer;
	ch:string[9];		ch:string[9];

	procedure getfrom;		procedure getfrom;
	begin		begin
Line 48:		Line 49:
	blklimit:=(blkbase div 10) - 1;		blklimit:=(blkbase div 10) - 1;
	end;		end;

	procedure getto;		procedure getto;
	begin		begin
Line 58:		Line 60:
	end		end
	end;		end;

	beqin		beqin
	writeln('FASTBACK [V1,0]');		writeln('FASTBACK [V1,0]');
	qetfrom;		qetfrom;
	getto;		getto;
	writeln('insert disks-- to start');		writeln('insert disks--<cr> to start');
	readln(ch);		readln(ch);
	for blkbase:=0 to blklimit do		for blkbase:=0 to blklimit do
Line 69:		Line 72:
	beqin		beqin
	write( ' Insert MASTER disk--press		write( ' Insert MASTER disk--press
	when ready');		<cr> when ready');
	readln(ch)		readln(ch)
	end;		end;
Line 76:		Line 79:
	begin		begin
	write('Insert COPY disk--Press		write('Insert COPY disk--Press
	when ready');		<cr> when ready');
	readln(ch)		readln(ch)
	end;		end;
	unitwrite(outunit,buffer,5120,blkbase*10)		unitwrite(outunit,buffer,5120,blkbase*10)
	end;		end;
	~~write1~~('Copy Complete.')		writeln('Copy Complete.')
	end.		end.


	== Turbo Pasc'99 ==		== Turbo Pasc'99 ==

2014-10-19T14:23:48Z

Turbo Pasc'99: add how to start it, and name of claimed originator (from Atariage)

← Older revision		Revision as of 14:23, 19 October 2014
Line 89:		Line 89:
	Turbo Pasc '99 originated in Germany and initial release to the English world was a German version. It was supplied on disk and did NOT require the P-code card.		Turbo Pasc '99 originated in Germany and initial release to the English world was a German version. It was supplied on disk and did NOT require the P-code card.

	The specific origin is ~~murky and anyone with knowledge~~ is ~~asked to edit this article please~~.		The specific origin is not known but the name Wiposoft is associated. In the English speaking world Texaments was the leading supplier.

	This language is not to be confused with that other Turbo Pascal from Borland. This is closer to ISO Pascal.		This language is not to be confused with that other Turbo Pascal from Borland. This is closer to ISO Pascal.

			Started by running the Editor Assembler #EA5 program image DSK1.TP99A

	===Comparison with ISO Pascal===		===Comparison with ISO Pascal===

2014-10-19T12:36:41Z

Turbo Pasc'99: add note that Turbo Pask '99 did not need the P-Code card

← Older revision		Revision as of 12:36, 19 October 2014
Line 87:		Line 87:
	== Turbo Pasc'99 ==		== Turbo Pasc'99 ==

	Turbo Pasc '99 originated in Germany and initial release to the English world was a German version.		Turbo Pasc '99 originated in Germany and initial release to the English world was a German version. It was supplied on disk and did NOT require the P-code card.

	The specific origin is murky and anyone with knowledge is asked to edit this article please.		The specific origin is murky and anyone with knowledge is asked to edit this article please.

2014-10-19T12:35:49Z

Sample Turbo Pasc '99 code: add example of writing to disk with Turbo Pasc '99

← Older revision		Revision as of 12:35, 19 October 2014
Line 108:		Line 108:
	REAL must be specified as 4, 6 or 8 bytes- if you select 8 you have normal Ex Bas, precision.		REAL must be specified as 4, 6 or 8 bytes- if you select 8 you have normal Ex Bas, precision.

	===~~Sample~~ Turbo Pasc '99 code===		===Samples Turbo Pasc '99 code===

			====Integer Math loop====
	PROGRAM intmath;		PROGRAM intmath;
	VAR t,		VAR t,
Line 128:		Line 130:
	END.		END.

			====Writing to disk====
			PROGRAM store;
			VAR i : INTEGER;
			f : STREAM[80];
			BEGIN
			writeln("START");
			open(f,"DSK2.TEXT",output);
			FOR i := 1 TO 1000
			putln(f,"1234567890qwertyuiop");
			close(f);
			writeln("*****");
			END.

2014-10-19T12:34:14Z

Sample Turbo Pasc '99 code: minor layout change

2014-10-19T12:33:45Z

Turbo Pasc'99: add sample Turbo Pasc 99 code

@@ Line 93: / Line 93: @@
 This language is not to be confused with that other Turbo Pascal from Borland. This is closer to ISO Pascal.
 ISO Pasca1 items NOT supported are:
@@ Line 106: / Line 107: @@
 REAL must be specified as 4, 6 or 8 bytes- if you select 8 you have normal Ex Bas, precision.
 [[Category:Programming language]]

2014-10-19T12:31:26Z

add category

← Older revision		Revision as of 12:31, 19 October 2014
Line 106:		Line 106:

	REAL must be specified as 4, 6 or 8 bytes- if you select 8 you have normal Ex Bas, precision.		REAL must be specified as 4, 6 or 8 bytes- if you select 8 you have normal Ex Bas, precision.

			[[Category:Programming language]]

2014-10-19T12:30:50Z

Turbo Pasc'99: start with a few notes relative to ISO Pascal (more to come)

← Older revision		Revision as of 12:30, 19 October 2014
Line 87:		Line 87:
	== Turbo Pasc'99 ==		== Turbo Pasc'99 ==

	~~add~~ text		Turbo Pasc '99 originated in Germany and initial release to the English world was a German version.

			The specific origin is murky and anyone with knowledge is asked to edit this article please.

			This language is not to be confused with that other Turbo Pascal from Borland. This is closer to ISO Pascal.

			ISO Pasca1 items NOT supported are:

			file, in, packed, record, set, type, with, char, ord, pred, round, sqr, succ, trunc,odd, reset, rewrite, dispose, new, pack, unpack.

			Items included but not in ISO PASCAL (some replacing items above):

			Block, Module, Relative, Stream, String, Open, Seek, Append, Close, Asc, Cursor, Key, Screen, minint, pi, graphics, text, putln, cls, cir, cis, cri, crs, csi, csr, len, int, rnd, seg, tan, randomize.

			Variations on ISO Pascal are:

			Strings are within double quotes "string" instead of 'string'

			REAL must be specified as 4, 6 or 8 bytes- if you select 8 you have normal Ex Bas, precision.