Category : Pascal Source Code
Archive   : INTRFC61.ZIP
Filename : TEST1.PAS
interface
type
type1 = array[1..5] of byte;
type2 = record
b1 : byte;
b2 : byte;
end;
type3 = object
b1 : byte;
b2 : byte;
constructor c(a1,a2:byte);
destructor d;
procedure m;
procedure v; virtual;
private
pb1 : byte;
procedure pm;
procedure pv; virtual;
end;
type4 = file of byte;
type5 = text;
type6 = function : byte;
type7 = set of byte;
type8 = ^byte;
type9 = string;
type10 = comp;
type11 = real;
type12 = 1..6;
type13 = boolean;
type14 = char;
type15 = (red, green, blue);
var
v : byte;
a : word absolute v;
const
tc : byte = 1;
{ These constants should all be printable }
i = 1;
b = true;
s = 'This is a string';
f = 1.23;
c = 'A';
procedure proc(v : byte; var r : byte);
function fun(v : byte; var r : byte) : byte;
implementation
constructor type3.c; begin write('1') end;
destructor type3.d; begin write('12') end;
procedure type3.m; begin write('123') end;
procedure type3.v; begin end;
procedure type3.pm; begin end;
procedure type3.pv; begin end;
procedure proc;
var
a : word absolute v;
begin end;
{$i test1.inc}
end.
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/