Set of Apple II Hard Drive Images/hard.hdv/HARD/TWOLINERS/TL.XPLOT

Applesoft BASIC Source Code | 1992-02-02 | 209 b | 2 lines | [FC] Applesoft BASIC Program (0x0801)

0  REM DIVAN ROUS--COUNTRYSIDE,IL
1  HGR2 :P = 3.14:Q = 6.28: FOR T = 1 TO 3:L = P/40: HCOLOR=  INT( RND(1) *6) +1:R =  RND(1) *60:S = 90 -R:B =  RND(1) *Q -P: FOR A = 0 TO Q  STEP L:X =  INT( COS(A) *S *1.55) +140:Y =  INT( SIN(A) *S) +95:H =  INT( COS(A +B) *R): HPLOT X +H,Y +H TO X -H,Y -H: HPLOT X -H,Y +H TO X +H,Y -H: NEXT : NEXT : RUN