home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / TL.GROWIES (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  271 b   |  3 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM VERA & GEOFF WONG-VICTORIA,AUSTRALIA
  2. 1  HGR2 : HCOLOR= 1: FOR I = 0 TO 275  STEP 3: HPLOT I,191 TO I +1,191 -( RND(1) *15): HPLOT I +1,191 -( RND(0) *15) TO I +2,191: NEXT : FOR I = 1 TO 500: NEXT : GOTO 2
  3. 2 P = 3.14: FOR L = 1 TO 15:A =  RND(1) *219 +30:B =  RND(1) *131 +30: HCOLOR= 3: FOR Y = 191 TO B  STEP  -1: HPLOT A,Y: NEXT :S =  RND(1) *20 +10: FOR T = .5 *P TO 2.5 *P  STEP 2 *P/S:X = A + SIN(T) *S:Y = B - COS(T) *S: HPLOT A,B TO X,Y: NEXT T,L