{"id":206,"date":"2007-12-07T23:53:39","date_gmt":"2007-12-08T05:53:39","guid":{"rendered":"http:\/\/www.lastdragon.net\/?p=206"},"modified":"2007-12-07T23:53:39","modified_gmt":"2007-12-08T05:53:39","slug":"escribiendo-programas-windows-con-borland-pascal-en-dos","status":"publish","type":"post","link":"https:\/\/www.lastdragon.net\/?p=206","title":{"rendered":"Escribiendo programas Windows con Borland Pascal en DOS"},"content":{"rendered":"

Como se escrib\u00edan los programas para Windows a principio de los 90, cuando los hombres eran hombres y no mariconeaban con entornos visuales. =)
\nPascal es uno de los lenguajes m\u00e1s poderosos jam\u00e1s hecho, su versatilidad rivaliza con la de C, aunque en la pr\u00e1ctica se haya relegado solo al aprendizaje. Aunque aun es el protagonista en lenguajes como Delphi.<\/p>\n

Desde antes de 1992 se pod\u00edan escribir aplicaciones para Windows 3.1 y 3.0 usando el compilador de Borland Pascal para MS-DOS, estilo de programaci\u00f3n es tipo orientado a objetos.<\/p>\n

El siguiente programa, compilado con Borland Pascal, aun se ejecuta en un Windows Vista aunque al final termina con error.<\/p>\n

<\/embed><\/p>\n

El c\u00f3digo que hace posible este programa es:<\/p>\n

Program pascalwin;<\/p>\n

uses
\nwintypes, Winprocs, Owindows;<\/p>\n

Type
\nPlaventana = ^tlaventana;
\ntlaventana = object (twindow) procedure paint (paintdc: hdc;
\nvar paintinfo: tpaintstruct); virtual;
\nend;<\/p>\n

tlaaplicacion = object (tapplication) procedure initmainwindow; virtual;<\/p>\n

end;<\/p>\n

procedure tlaaplicacion.initmainwindow;
\nbegin
\nmainwindow := new (plaventana,init(nil,’Visita https:\/\/www.lastdragon.net’));
\nend;<\/p>\n

procedure tlaventana.paint;
\nbegin
\ntextout (paintdc,20,20,’Hola programa escrito en DOS, pero ejecutado en Windows a 16bits’,63);
\nlineto (paintdc,100,100);
\nend;<\/p>\n

var<\/p>\n

programa: tlaaplicacion;<\/p>\n

begin
\nprograma.init(”);
\nprograma.run;
\nprograma.done;
\nend.<\/p>\n","protected":false},"excerpt":{"rendered":"

Como se escrib\u00edan 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\u00e1s poderosos jam\u00e1s hecho, su versatilidad rivaliza con la de C, aunque en la pr\u00e1ctica se haya relegado solo al aprendizaje. Aunque aun es el…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3],"tags":[],"class_list":["post-206","post","type-post","status-publish","format-standard","hentry","category-programacion"],"_links":{"self":[{"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=\/wp\/v2\/posts\/206","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=206"}],"version-history":[{"count":0,"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=\/wp\/v2\/posts\/206\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=206"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=206"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.lastdragon.net\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=206"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}