home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / flower.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-07-08  |  309 b   |  19 lines
  1. 10  SCREEN 1,1
  2. 20  COLOR 9,1
  3. 30  KEY OFF
  4. 40  VIEW (1,1)-(300,160),3,1
  5. 42  FOR I = 1 TO 10
  6. 45  FOR OUTER = 1 TO 2
  7. 50  FOR CT = 1  TO 9
  8. 60    IF OUTER = 1 THEN A$ = "U5" ELSE A$ = "D5"
  9. 70    DRAW "TA" + STR$((10*CT+ 36*I) MOD 360 )
  10. 80    DRAW A$
  11. 90  NEXT CT
  12. 95  NEXT OUTER
  13. 97  NEXT I
  14. 100  LOCATE 24,1
  15. 110  INPUT "PRESS ENTER TO QUIT-";ANS$
  16. 120  SCREEN 0
  17. 130  WIDTH 80
  18. 140  KEY ON
  19.