REM Simple Adding Machine
      MODE0
      PRINT"ADDING MACHINE"
      PRINT"Enter a zero to start afresh"'
      PRINT"Press 'Enter' after each entry"TAB(40)"Use a minus sign for subtraction"
      PRINT'TAB(15)"entry"TAB(35)"TOTAL"'
      REPEAT :y=VPOS
        INPUTTAB(15)entry
        total=total + entry
        PRINTTAB(30,y)total
      UNTIL entry=0
      RUN