! ADDEM.BAS - ADDS UP A COLUMN OF NUMBERS
! 9/15/81 DONATED TO AMUS BY SKE

SIGNIFICANCE 11

THE'TOP:
	TOTAL = 0
	NUMBER = 0

	? TAB(-1,0)
	? TAB(1,24) "ADD A COLUMN OF NUMBERS"
	? TAB(2,20) "HIT AN EXTRA RETURN FOR THE TOTAL"

MAIN'LOOP:
	INPUT "-> ", NUMBER
	IF NUMBER <> 0 &
	    THEN &
		TOTAL = TOTAL + NUMBER :&
		NUMBER = 0 :&
		GOTO MAIN'LOOP

THAT'S'ALL:
	?
	? "TOTAL ="; TOTAL

WHERE'TO'NOW:
	INPUT LINE "HIT RETURN FOR ANOTHER ROUND, ^C TO STOP --> ", DUMMY
	GOTO THE'TOP