home *** CD-ROM | disk | FTP | other *** search

---

/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / P.11.2.LINER..2 (.txt)

< prev

next >

Wrap

Applesoft BASIC Source Code  |  1992-02-02  |  154 b   |  3 rows  |  [FC] Applesoft BASIC Program (0x0801)

---

#	0 REM JERRY KRAMER-- PHILADELPHIA	PA
1	1  HOME : HGR2 : HCOLOR= 3: FOR A = 20 TO 170  STEP 7:B = 1.15 *( SQR(6400 -(A -95) ^2)): FOR C = 0 TO 6.4  STEP .2:X = B * COS(C) +139:Y = A -B * SIN(C)/5: IF C = 0  THEN  HPLOT X	Y: NEXT
2	2  HPLOT  TO X	Y: NEXT : NEXT