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

---

/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / TL.APPLE.3D (.txt)

< prev

next >

Wrap

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

---

#	0 REM MIKE NUZZO--WESTFIELD	NJ
1	1  HGR2 : HCOLOR= 3:J = 0:CX = 140:CY = 80:A1 = 260:A2 = 14:PI = 3.14159:X1 = 72:Y1 = 13:X2 = 46:Y2 = 69: FOR I = 0 TO PI *2  STEP PI/A1:X5 =  SIN(I) *X1:Y5 =  COS(I) *Y1: GOSUB 2:X7 =  INT((X5 +X6)/2):Y7 =  INT((Y5 +Y6)/2): HPLOT X7 +CX	Y7 +CY: NEXT : END
2	2 J = J +PI/A2:X6 =  SIN(J) *X2:Y6 =  COS(J) *Y2: RETURN