Thanks in advance

Code: Select all
'Choose a valid drawing screenmode.
'Screen 13 is 320 by 200 pixels and allows for 256 different colors to be displayed at the same time.
SCREEN 13
'Clear the screen.
CLS
'Initialize the ball's position on the screen by defining the 2 variables. I want it to start in the middle left side of the screen, so X value will be 0 and Y value will be about half way between 0 and 200.
X = 0
Y = 100
'Draw the ball using the X and Y values.
CIRCLE (X, Y), 5, 4
'Erase the ball using the same values and the LINE command to draw a filled in box.
LINE (X-5, Y-5)-(X+5, Y+5), 0, BF
'Change the ball's position. Move it to the right by increasing the X value.
X = X + 10
'Redraw the ball using the X and Y values again.
CIRCLE (X, Y), 5, 4
'Wait for the user to hit any key to continue to the next part of the code.
A$=INPUT$(1)
'Move the ball from the left side of the screen (0,100) to the right side of the screen (320,100).
'Initialize the ball's position.
X = 0
Y = 100
'Using a FOR NEXT loop to change the ball's X value, we can implement the commands above to animate the ball.
FOR X = 0 TO 320
CIRCLE (X, Y), 5, 4
LINE (X-5, Y-5)-(X+5, Y+5), 0, BF
NEXT X
Code: Select all
'Choose a valid drawing screenmode.
'Screen 13 is 320 by 200 pixels and allows for 256 different colors to be displayed at the same time.
SCREEN 13
'Clear the screen.
CLS
'Prepare the picture array. I used 1000 cuz I'm lazy and don't feel like calculating the exact size.
DIM ball (1000)
'Draw a circle and fill it to create the ball.
CIRCLE (20,20), 5, 4
PAINT (20,20), 4
'Capture the picture of the ball. I intentionally want to capture an extra border around the ball so when redraw the picture 1 pixel over, it automatically erases itself. No blinking.
GET (14,14)-(26,26), ball
'Clear the screen and begin the animation.
CLS
'Initialize the ball's position.
X = 0
Y = 90
'Animate the ball, moving it from left to right one pixel at a time.
FOR X = 0 TO 300
'When PUTing a picture on the screen, (X,Y) indicates where the picture's top left corner should start, as opposed to the CIRCLE command, in which (X,Y) indicates the center of the circle.
PUT (X,Y), ball, PSET
NEXT X
Why put paint? and what are the values for GET stand for?Stoves wrote:Draw a circle and fill it to create the ball.
CIRCLE (20,20), 5, 4
PAINT (20,20), 4
'Capture the picture of the ball. I intentionally want to capture an extra border around the ball so when redraw the picture 1 pixel over, it automatically erases itself. No blinking.
GET (14,14)-(26,26), ball
Code: Select all
GET (11, 11)-(26, 26)
Code: Select all
SCREEN 13
CLS
Code: Select all
CIRCLE (20,20), 5, 4
PAINT (20,20), 4
Code: Select all
GET (14,14)-(26,26), ball
Code: Select all
GET (20,20)-(30,30), ball
Code: Select all
GET (160,100)-(170,110), ball