REM >Infuse
REM -----------------------------
REM by Rudolf Cardinal, 28-Apr-98
REM Infusion timer
REM

infuse = 125
diffuse = 60

MODE 8
REPEAT
  CLS
  PRINT"Infusion timer."
  PRINT"Press <Esc> to end."
  PRINT
  PRINT"Press a key to start infusion..."
  IFGET
  PRINT"-- Infusing (";infuse;"s)...";
  t%=TIME:REPEAT UNTIL TIME=t%+(infuse*100)
  VDU7:VDU7
  PRINT'"-- Waiting (";diffuse;"s)...";
  t%=TIME:REPEAT UNTIL TIME=t%+(diffuse*100)
  VDU7:VDU7
UNTIL FALSE