10 REM ***************
   20 REM     Grapher
   30 REM   By Mark Ray
   40 REM ***************
   50 REM NC200 Version
   60 REM Downloaded from Tim's Amstrad NC User's Site
   70 REM http://www.ncus.org.uk
   80 REM Originally from the Amstrad Notepad Users' Web
   90 CLS:INPUT "x:MIN,MAX";LX,UX:INPUT "y:MIN,MAX";LY,UY:CLS:VDU29,0;64;
  100 SX=250/(UX-LX):YAX=450-UX*SX:MOVE YAX,0:DRAW YAX,64
  110 SY=64/(UY-LY):XAX=64-UY*SY:MOVE 450,XAX:DRAW 200,XAX
  120 REPEAT:INPUT "Y="F$:FOR N=0TO250
  130     X=LX+(N/SX):Y=EVAL(F$)*SY+XAX:DRAW (N+200),Y:NEXT
  140   A=GET:MOVE 200,XAX:UNTIL A=13:RUN