bradgrantham-apple2e/QUADRADOODLE.A

11 lines
540 B
Plaintext
Raw Normal View History

2016-11-19 07:26:01 +00:00
10 HGR
11 GOTO 15
12 HPLOT 139,0 TO 139,191 TO 140,191 TO 140,0: HPLOT 0,95 TO 279,95 TO 279,96 TO 0,96
15 A = 70:B = 48
17 X = RND (1) * 139:Y = RND ( 1) * 95
20 HPLOT A,B TO X,Y: HPLOT - A + 280,B TO - X + 280,Y: HPLOT A, - B + 192 TO X, - Y + 192 : HPLOT - A + 280, - B + 192 TO - X + 280, - Y + 192
21 HCOLOR= 0: HPLOT A,B TO X,Y: HPLOT - A + 280,B TO - X + 280,Y: HPLOT A, - B + 192 TO X, - Y + 192: HPLOT - A + 280, - B + 192 TO - X + 280, - Y + 192
23 H = H + 1: IF H = 8 THEN H = 0
24 HCOLOR= 3
25 A = X:B = Y: GOTO 17