REM Reminder Timer
      REM by R.G. Weston 07.02.02
      MODE0
      @%=&20209 :REM Print Format
      PRINTTAB(33)"Reminder Timer"'
      PRINTTAB(15)"Type your 'Reminder Message' and then Press 'Enter'"'
      INPUT"Message : "message$
      INPUT'"In how many minutes from now? : "mins
      OFF
      PRINTTAB(10,12)"(You can minimise this window and unclutter your deskstop)"
      T=60*100*mins
      TIME=0
      REPEAT
        pause=INKEY(100):REM frees the processor for multi-tasking
        REM see Help : pausing a program
        elapsed=TIME/(60*100)
        timeleft= mins - elapsed
        PRINTTAB(30,20)"Time left : ";timeleft;" mins"
      UNTIL TIME>T
      CLS
      FOR n=1 TO 10:PRINT'TAB(n)message$:NEXT
      PRINTTAB(8,30)"You can stop the alarm by closing the window using the cross symbol!"
      SOUND0,-15,0,-1 :REM You can hardly ignore this.....
      REM If it grates, try to  play a MIDI file instead!
      END