home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / TL.OP.IMAGES (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  199 b   |  3 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM  MORTEN OLSEN, DENMARK
  2. 1  TEXT : HOME : PRINT "(TRY 30, 60, 90, 120 AND 150 AS INPUT.)": PRINT :: INPUT "DIFFERENCE IN DEGREES:";D:D = D/57.29578: NORMAL : HGR2 : HCOLOR= 3: HPLOT 140,96: ONERR  GOTO 1
  3. 2  FOR R = 0 TO 200  STEP D:X = 140 +R * COS(R):Y = 96 +0.7 *(R * SIN(R)): HPLOT  TO X,Y: NEXT