Escribiendo programas Windows con Borland Pascal en DOS

Como se escribían los programas para Windows a principio de los 90, cuando los hombres eran hombres y no mariconeaban con entornos visuales. =)
Pascal es uno de los lenguajes más poderosos jamás hecho, su versatilidad rivaliza con la de C, aunque en la práctica se haya relegado solo al aprendizaje. Aunque aun es el protagonista en lenguajes como Delphi.

Desde antes de 1992 se podían escribir aplicaciones para Windows 3.1 y 3.0 usando el compilador de Borland Pascal para MS-DOS, estilo de programación es tipo orientado a objetos.

El siguiente programa, compilado con Borland Pascal, aun se ejecuta en un Windows Vista aunque al final termina con error.

El código que hace posible este programa es:

Program pascalwin;

uses
wintypes, Winprocs, Owindows;

Type
Plaventana = ^tlaventana;
tlaventana = object (twindow) procedure paint (paintdc: hdc;
var paintinfo: tpaintstruct); virtual;
end;

tlaaplicacion = object (tapplication) procedure initmainwindow; virtual;

end;

procedure tlaaplicacion.initmainwindow;
begin
mainwindow := new (plaventana,init(nil,’Visita https://www.lastdragon.net’));
end;

procedure tlaventana.paint;
begin
textout (paintdc,20,20,’Hola programa escrito en DOS, pero ejecutado en Windows a 16bits’,63);
lineto (paintdc,100,100);
end;

var

programa: tlaaplicacion;

begin
programa.init(”);
programa.run;
programa.done;
end.

16 Comments

Add a Comment

Comment spam protected by SpamBam