10 REM *************** 20 REM Grapher 30 REM By Mark Ray 40 REM *************** 50 REM NC100 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 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