home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / BASWIZ15.ZIP / ROSES.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-03-06  |  1.5 KB  |  44 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        BASWIZ  Copyright (c) 1990-1991  Thomas G. Hanlin III         |
  4. '   |                                                                      |
  5. '   |                      The BASIC Wizard's Library                      |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    DECLARE SUB G2Cls ()
  10.    DECLARE SUB G2Write (St$)
  11.    DECLARE SUB G2Locate (BYVAL Row%, BYVAL Column%)
  12.    DECLARE SUB G2Mode (BYVAL ModeNr%)
  13.    DECLARE SUB G2Plot (BYVAL X%, BYVAL Y%)
  14.  
  15.    ' Note: we don't use DEFINT because we need single precision!
  16.  
  17.    PI! = 3.141593
  18.    TotalRadius! = 40
  19.  
  20.    G2Mode 1                       ' 640x200 CGA
  21.  
  22.    DO
  23.       G2Cls
  24.       G2Write "How many petals would you like (1-9) ? "
  25.       DO
  26.          ky$ = INKEY$
  27.       LOOP UNTIL LEN(ky$)
  28.       IF ky$ > "0" AND ky$ <= "9" THEN
  29.          G2Write ky$
  30.          Petals! = VAL(ky$)
  31.          FOR Angle! = 0! TO PI * 2! STEP .01
  32.             R! = 20 * COS(Petals! * Angle!)
  33.             G2Plot CINT(R! * COS(Angle!) + 310), CINT(R! * SIN(Angle!) + 100)
  34.          NEXT
  35.          G2Locate 24, 1
  36.          G2Write "Like to try another? "
  37.          DO
  38.             ky$ = INKEY$
  39.          LOOP UNTIL LEN(ky$)
  40.       END IF
  41.    LOOP WHILE UCASE$(ky$) = "Y"
  42.    G2Mode 0
  43.  
  44.