REM > Teacher's Pet
      REM > Calculate Percentage Marks
      REM > rounded to nearest 1% > RG Weston 2002/02/21
      MODE0
      INPUT"Maximum mark :"T
      PRINT
      REPEAT
        INPUT"Achieved mark :"m
        PRINTTAB(20, VPOS-1)"percentage: ";INT(((m/T)*100)+.5);"%"
      UNTIL FALSE