@@ 1: 0,1"@ 0,1:1,2:4,1-@(14)^@""@" ԠŠŠ & "@"" A#"HIS PROGRAM ACCEPTS DATA IN PAIRED , FORMAT AND IDENTIFIES THE";/A(" BEST LINEAR OR CURVE FIT."^A)"HEN THE PROGRAM CAN CALCULATE UNKNOWN"|A*" VALUES FROM INPUTS.A+"INALY THE PROGRAM CAN DRAW A GRAPH OF"A,"THE EQUATION (TO SEND THE GRAPH TO THE"B-"PRINTER YOU MUST HAVE A ACTIVATED")B."I-ES SCREEN DUMP IN PLACE)SB1" X IS THE NDEPENDENT VARIABLE"zB2" IS THE EPENDENT VARIABLEB7"  RESS NY EY "B< A$BA"O YOU WANT A PRINTOUT (Y/N) ?":FO0BF A$: A$"N" 120CK A$"Y" 70HCP"HAT IS TODAY'S DATE :";TD$:"HAT IS THE DATA'S NAME :";NM$QCUFO1]CZ 4,4,7C_ J1 80:BD$BD$"":AS$AS$"*": J:4,BD$:4Cd4,(14);"IRST EGREE URVE ITTING & RAPH";(15)Di4,"ATE OF PRINTOUT :";TD$;" FOR ";(14);NM$;(15)*Dn4,AS$:4,(14);"NPUT ATA";(15)QDs4,"ET O. -VALUE -VALUE"Dx"NTER THE NUMBER OF  , DATA SETS:":PD}XY(30),XX(P),YY(P),X(P),Y(P)D"NTER , PAIRS":I1P:"SET NO.";I;:XX(I),YY(I):IE" <<<< NPUT DATA >>>> ">>"N"NTER :";XNX0 565N  M 545,550,555,560 O"F =";X;" HEN =";Y;""4O FO1 4,"F =";X;" HEN =";Y>O 515RO!YA(1)B(1)X:lO&Y((A(2))B(2)X):O+YA(3)B(3)(X):O0YA(4)(XB(4)):O5 ** --GRAPH ROUTINE-- **O: FO1 4,AS$O?"RAW THE RAPH OF THE QUATION (Y/N) ?"PD A$PI A$"N" 845+PN A$"Y" 580JPSV$"VALUE OF X":P$"Y VAL"sPX"  SETUP THE SCALE VALUES"P]"WHAT IS X-LOW , X-HIGH ";XL,XHPbIX(XHXL)800:FX800(XHXL)Pg"WHAT IS Y-LOW , Y-HIGH ";YL,YHQlIY(YHYL)800:FY800(YHYL)5Qq" O OUTPUT THE RAPH TO THE PRINTER WAIT"bQv"UNTIL THE INPUT POINTS ARE PLOTTED ."Q{"HEN ACTIVATE THE I-ES SCREEN DUMP"Q" FTER THE PRINTER IS FINISHED WITH"Q"THE RAPH PRESS ANY KEY TO RESUME THE"Q"PROGRAM ."!R"  RESS NY EY "+R A$7R1,1:1bR 1,100,800 1000,800,200,0 200,850zRYH$(YH):YL$(YL)R 1,0,1,YH$: 1,0,18,YL$RXH$(XH):XL$(XL)R 1,8,20,XL$: 1,35,20,XH$R 1,1,9,P$: 1,20,21,V$S 1,20((NM$)2),23,NM$2S 1,0,900 1000,900,0,915 1000,915ZS 1,0,0 1000,0,0,4 1000,4: TOPS 1,0,1016 1000,1016,0,1022 1000,1022: BOTS 1,0,0 0,1022,4,0 4,1022: LEFTS 1,999,0 999,1022,1000,0 1000,1022: RIGHTT K200 1000 80.T 1,K,0 K,810: 1,K40,790 K40,8106T KLT K 0 800 80{T 1,190,K 1000,K: 1,190,K40 210,K40T KT 200,800T M 775,780,785,790:795TY(Z)A(1)B(1)Z:T Y(Z)((A(2))B(2)Z):UY(Z)A(3)B(3)(Z):UY(Z)A(4)(ZB(4)):6UZXL: X200 1000VU  1 X,800((Y(Z)YL)FY)eU%ZZIX: XsU* I1 PU/X200((XX(I)XL)FX):Y800((YY(I)YL)FY)U4 1,X,Y,2: 1,X,Y,10U9 IU> A$UC 0,1: (14)UH FO1 4,BD$: 4VM"NOTHER NALYSIS (Y/N) ?"%VR A$9VW A$"Y" 65MV\ A$"N" 850XVa"":