' CIRCLE-1.BAS
' This program demonstrates the CIRCLE statement.

CLS

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

DO
    LOCATE 21, 1
    INPUT "Please enter the column number:  ", colNum%
    INPUT "   Please enter the row number:  ", rowNum%
    INPUT "       Please enter the radius:  ", radius%
    CIRCLE (colNum%, rowNum%), radius%
    INPUT "Press Enter to continue or Q to quit: ", dummy$
    CLS
LOOP UNTIL UCASE$(dummy$) = "Q"


