home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / arug23.dms / arug23.adf / Calculations / DrawCircle (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-12-02  |  389b  |  21 lines
  1. ' DrawCircle
  2. ' Test program to draw circles or ellipses
  3. ' A C Hewat    23rd March 1989
  4.  
  5. ' Refere to page 8-32 of Basic Manual
  6.  
  7. Loop:
  8.  
  9. CLS
  10. 'INPUT "start"; begin
  11. 'INPUT "end"; finish
  12. 'INPUT "aspect"; asp
  13.  
  14. radius = 55
  15. aspect = 0.1
  16. WHILE aspect < 20
  17.   CIRCLE (160,60),radius,,,,aspect
  18.   aspect = aspect*1.4
  19. WEND
  20.  
  21.