mirror of
https://github.com/deater/tb1.git
synced 2024-06-16 02:29:28 +00:00
22 lines
482 B
ObjectPascal
22 lines
482 B
ObjectPascal
|
program developnewvmwtpu;
|
||
|
uses nvmwgraph,crt;
|
||
|
var error:byte;
|
||
|
ch:char;
|
||
|
i:integer;
|
||
|
begin
|
||
|
setmcga;
|
||
|
{for i:=0 to 39 do
|
||
|
horizontalline(0,319,i*5,i,vga);}
|
||
|
for i:=0 to 319 do
|
||
|
verticalline(0,199,i,i mod 215,vga);
|
||
|
|
||
|
error:=loadpicsuperpacked(0,0,vga,true,true,'t2tract.tb1');
|
||
|
{error:=savepicsuperpacked(0,0,239,50,256,vga,'t2tract.tb1');}
|
||
|
|
||
|
|
||
|
readln;
|
||
|
for i:=0 to 319 do
|
||
|
verticalline(0,199,i,i mod 215,vga);
|
||
|
readln;
|
||
|
settext;
|
||
|
end.
|