! 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