'-----------------------------------------------------------------------
' LOOP2.BAS
'
' CIS 120 Lecture Notes example
' Mike Huffman
' Portland Community College, Computer Information Systems
'
' Last update: 08 MAY 2002
'-----------------------------------------------------------------------

' add numbers until user says no
CLS
INPUT "Enter first number: ", sum!      ' get first number to get started

answer$ = "Y"                           ' assume user wants to continue
DO WHILE answer$ <> "N"                 ' loop until user answers no
    INPUT "Enter next number: "; n!     ' get next number
    sum! = sum! + n!                    ' add next number to sum
    PRINT "Sum = "; sum!                ' display the sum
    INPUT "Continue? "; answer$         ' add another number?
    answer$ = UCASE$(answer$)           ' convert to upper case so only
LOOP                                    '   one char is tested