home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
jpl.zip
/
ART.JPL
next >
Wrap
Text File
|
1989-03-21
|
786b
|
51 lines
{ JPL Executor ART program }
{ Copyright (C) 1988,89 Logiciels JPsoft Enr. }
{ Create two ariable of type integer }
DefInt ( _Y )
DefInt ( _X )
{ Show the window at constant _MAX (maximun size) }
ShowWindow ( _MAX )
{ initialise the variables }
#Y = 360
#X = -10
{ set the color of pen drawing to green }
SetColor ( 2 )
{ start the for loop, _I is use has variable for looping }
{ _I will bee incrimented when it hit Next() }
For ( 10 , 29)
{*** _X = _X + _I ***}
Add ( _X , _I )
{*** _Y = _Y - _I ***}
Sub ( _Y , _I )
{*** Draw the ellipse ***}
Ellipse ( #X , 10 , #Y , 250 )
{ _I = _I + 1 and loop }
Next ()
{ you need this to end the program }
End ()