REM --------------------------------------------------------------------
REM loop2.bas
REM
REM CIS 120/121 Lecture Notes example: Chipmunk BASIC interpreter
REM Mike Huffman
REM Portland Community College, Computer Information Systems
REM
REM Last update: 08 MAY 2002
REM --------------------------------------------------------------------

REM add numbers until user says no

SYS( "command.com /c cls" )         REM Chipmunk BASIC clear screen
INPUT "Enter first number: "; sum   REM get first number to get started

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