turbo pascal 3.0

By super_castle

Rookie (32)

super_castle's picture

01-04-2007, 10:09

hello , i'm not found für turbopascal "screen.inc" for this programm:

Program Circle;

Var rad :Integer;

{$I screen.inc }
{$I vdpcmd.inc }
{$I pset.inc }
{$I circle.inc }

Begin
Screen(7);
Rad := 1;
While Rad < 100 Do
Begin
Circle(255,105,Rad,0,15,0);
Rad := Rad + 5;
End;
Repeat Until KeyPressed;
Screen(0);
END.

can you help me?
mfg

Login or register to post comments

By HansO

Paladin (672)

HansO's picture

01-04-2007, 11:32

hello , i'm not found für turbopascal "screen.inc" for this programm:

Have a look at my MSX Info Pages - Pascal and MSX page, screen.inc is in the Kari Lammassaari development library.