mirror of
https://github.com/deater/tb1.git
synced 2025-01-04 20:31:37 +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. |