! 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