mirror of
https://github.com/bradgrantham/apple2e.git
synced 2024-11-04 21:05:53 +00:00
11 lines
540 B
Plaintext
11 lines
540 B
Plaintext
|
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
|