home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol7n11.zip / LN711.ZIP / CIRCLE.BAS < prev    next >
BASIC Source File  |  1988-05-02  |  524b  |  15 lines
  1. DEFINT A-Z
  2. SCREEN 9
  3.  
  4. WHILE INKEY$ = ""               'continue until a key is pressed
  5.  
  6.    X = RND * 640                'random X center
  7.    Y = RND * 350                'random Y center
  8.    Radius = RND * 100           'random radius
  9.    C = (C MOD 14) + 1           'increment C from 1 to 14 then back to 1 again
  10.    CIRCLE (X, Y), Radius, 15    'draw circle in white
  11.    PAINT (X, Y), C, 15          'fill to boundaries of the circle in color C
  12.    CIRCLE (X, Y), Radius, C     'redraw the circle in color C
  13.  
  14. WEND
  15.