' CIRCLE-2.BAS
' This program demonstrates how to create arcs with the CIRCLE statement.

CLS

INPUT "Please enter a screen mode (0-13):  ", modeNum%
SCREEN modeNum%

DO
    CLS
    PSET (150, 30): PSET (150, 125)   ' draw top and bottom points
    PSET (95, 78): PSET (205, 78)     ' draw left and right points
    LOCATE 2, 18: PRINT "1.57"        ' label for top point
    LOCATE 10, 7: PRINT "3.14"        ' label for left point
    LOCATE 18, 18: PRINT "4.71"       ' label for bottom point
    LOCATE 10, 28: PRINT "0 or 6.28"  ' label for right point
   
    LOCATE 20, 1
    PRINT "Enter values between 0 and 6.28"
    PRINT "(A negative value draws a radius.)"
    INPUT "Please enter starting point:  ", starting!
    INPUT "Please enter ending point:  ", ending!
    CIRCLE (150, 78), 50, , starting!, ending!    ' no color value
    INPUT "Press Enter to continue or Q to quit: ", dummy$

LOOP UNTIL UCASE$(dummy$) = "Q"

