Created
December 28, 2010 13:51
-
-
Save laserlemon/757216 to your computer and use it in GitHub Desktop.
I was 11 years old.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' *This is the FIRST succesful "Bounce" program. This is THE original (other * | |
' *than the lines you're reading) so please make NO changes to the program.* | |
1 SCREEN 11 | |
2 CLS | |
5 FOR z = 0 TO 20 STEP 20 | |
10 CIRCLE (x, y), z | |
15 NEXT z | |
20 x = x + 4 | |
21 y = y + 4 | |
23 IF y > 432 THEN 32 | |
25 IF x > 588 THEN 122 | |
27 GOTO 2 | |
32 CLS | |
35 FOR z = 0 TO 20 STEP 20 | |
40 CIRCLE (x, y), z | |
45 NEXT z | |
50 x = x + 4 | |
51 y = y - 4 | |
53 IF y < 48 THEN 1 | |
55 IF x > 588 THEN 62 | |
57 GOTO 32 | |
62 CLS | |
65 FOR z = 0 TO 20 STEP 20 | |
70 CIRCLE (x, y), z | |
75 NEXT z | |
80 x = x - 4 | |
81 y = y - 4 | |
83 IF y < 48 THEN 92 | |
85 IF x < 48 THEN 32 | |
87 GOTO 62 | |
92 CLS | |
95 FOR z = 0 TO 20 STEP 20 | |
100 CIRCLE (x, y), z | |
105 NEXT z | |
110 x = x - 4 | |
111 y = y + 4 | |
113 IF x < 48 THEN 2 | |
115 IF y > 432 THEN 62 | |
117 GOTO 92 | |
122 CLS | |
125 FOR z = 0 TO 20 STEP 20 | |
130 CIRCLE (x, y), z | |
135 NEXT z | |
140 x = x - 4 | |
141 y = y + 4 | |
143 IF x < 48 THEN 1 | |
145 IF y > 432 THEN 62 | |
147 GOTO 122 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment