@ @ 2,1@ 0&@ 4,1:0,1:1,6R@"";8);""x@8);"****** THE PLOTTER ******"@(8);""@2"";18);"MENU"@<"";8);"A. POLOR COORDINATES"AF"";8);"B. CARTESIAN COORDINATES"AP A$DAZ A$"A" CO$"P":N$"POLOR COORDINATES": 730|Ad A$"B" CO$"C":N$"CARTESIAN COORDINATES": 730An 80Ax*****************A*** DRAW GRID ***A*****************A DRAW GRAPHA 2,1,20B 1,19,0,"THE PLOTTER" B1,6#B1,100,10 300,10;B1,300,10 300,146SB1,301,10 301,146lB1,300,146 100,146B1,99,146 99,10B1,100,146 100,10B1,200,10 200,146B1,201,10 201,146B1,100,78 300,78B X100 300 CX C1,X,76 X,80C X)C Y10 146 CF>C1,197,Y 203,YFC" Y]C,*****************xC6 1,1,6," COMMANDS ",1C@ 1,1,8,"ESC = EXIT"CJ 1,1,10,"P = PAUSE"CT 1,1,12,"S = STEP"C^ A(X)(X):F$"COS(X)":CO$"P"Dh"EQUATION",Dr(40(F$))25);F$;""CD| CO$"P" 1310NDXA100bD IX1 X2 SDY78(CF(A(I))): IX1YC(Y)D " X VALUE = ####.## Y VALUE = ####.##";I,A(I)D"";D E$: E$(27) 0,1: 20E S1 470E E$(80) :S1:E Z$: Z$(80) S0: 500QE Z$(83) 500[E 470bEE Y11 YC11 YC11: 515E Y145 YC 145 YC145: 515E Y11 YC11 TC11: 520E Y145 YC145 TC145: 520 F Y11 Y145 540FTC(Y)BF1,XA,YC XA,TC:1,XA1,YC XA1,TCWF IX1 YC(Y)cF&XAXA1kF0 IuF: A$FD A$ (27) 0,1: 20FN 570FX 1170Fb"";13);"SET PARAMETERS"Fl13);""Gv"";5);"TO SET THE PARAMETERS ENTER THE"DG5);"RANGE YOU WISH THE GRAPH TO COVER."oG"";5);"EXAMPLE: WITH A RANGE OF 10"G5);"THE GRAPH WILL GO FROM -5 TO 5"G"ENTER RANGE (0-20) ";:1,0,1:1,RA:1G RA 0 RA 20 670HX1(RA2):X2RA2HS(X2X1)200+HCF68X2:CX100X25H 150WH"";12);"DEFINE EQUATION"tH12);""{H:H CO$"C" H"";5);"EXAMPLE: [ Y=2*X+SQR(X/34.5) ]"H 5);"WHERE X IS ANY REAL NUMBER"I"";13);"+ = ADD"I 13);"- = SUBTRACT"3I*13);"* = MULTIPLY"JI413);"/ = DIVIDE"mI>12);"^X = TO THE POWER OF X"IH8);"SQR(X) = SQUARE ROOT OF X"IR"Y=";:1,0,1:1,A$I\If CO$"P" Jp"";5);"EXAMPLE: [ R=COS(X)+SIN(X) ]"/Jz5);"WHERE X IS THE ANGLE BETWEEN THE"YJ5);"POSITIVE X AXIS AND THE RADIUS"J5);"VECTOR. (COUNTER CLOCKWISE)"J5);"X IS MEASURED IN DEGREES"J"";13);"+ = ADDITION"J13);"- = SUBTRACTION"J13);"* = MULTIPLY"K13);"/ = DIVIDE"3K12);"^X = TO THE POWER OF X"XK8);"SQR(X) = SQUARE ROOT OF X"K"R=";:1,0,1:1,A$KK1K"";3);"DO YOU WISH TO MAKE ANY CHANGES ?"K"";16);"(Y/N)"; L D$: D$"" 1040!L D$"N" 10806L$ D$"Y" 730AL. 1040QL8"";(147)LB:"350 DEF FNA(X)=";A$;":F$="(34);A$;(34)":CO$="(34);CO$;(34)LL"RUN600"LV (19);L` B0 1Lj842B,13Lt BL~208,2LM******* ERROR TRAP ROUTINE ****'M ER14 Y0: 540?M ER20 Y0: 540PM ER11 YM0,1M"YOU HAVE MADE A TYPING ERROR"M"IN ENTERING YOUR EQUATION."M"PLEASE RE-ENTER YOUR EQUATION" N"PRESS  RETURN TO CONTINUE"N A$*N A$(13) 7305N 1260