Permalink
Cannot retrieve contributors at this time
| SCREEN 13 | |
| RANDOMIZE TIMER | |
| PRINT "font8" | |
| FOR P = 0 TO 10 STEP 1 | |
| FOR Y = 0 TO 8 | |
| FOR X = 0 TO 8 * 5 | |
| IF POINT(X, Y) <> 0 THEN | |
| XX = X * 7 + 30 + RND * 3 | |
| YY = Y * 10 + 30 + RND * 3 | |
| ZZ = RND * (RND * 5 + 8 - P) + 2 | |
| CC = P + 20 | |
| CIRCLE (XX, YY), ZZ, CC | |
| PAINT (XX, YY), CC, CC | |
| END IF | |
| NEXT X, Y, P | |
| DIM A(50, 319) | |
| FOR I = 1 TO 319 | |
| GET (I, 15)-(I, 110), A(1, I) | |
| NEXT I | |
| CLS | |
| DO WHILE INKEY$ = "" | |
| FOR I = 1 TO 319 | |
| PUT (I, COS((I + Y) / 30) * 20 + 40), A(1, I), PSET | |
| NEXT I | |
| Y = Y + COS(P / 100) + 1.5 | |
| P = P + 1 | |
| LOOP | |