REM --------------------------------------------------------------------
REM if2.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 --------------------------------------------------------------------

SYS( "command.com /c cls" )                 REM Chipmunk BASIC clear screen
INPUT "What is your total order? "; order   REM what did customer spend?

IF order < 100 THEN discount = order * .1
IF order >= 100 AND order < 500 THEN discount = order * .15                  
IF order >= 500 THEN discount = order * .2   REM big spender gets big discount

PRINT "Your discount is $"; discount        REM display results
EXIT                                        REM return to operating system