1 REM Ins{nt av 2314
10 ; CHR$(12)"LINJ[R INTERPOLATION"
20 ; 
30 ; "X,Y F\R F\RSTA PUNKTEN";
40 INPUT X1,Y1
50 ; "X,Y F\R ANDRA PUNKTEN";
60 INPUT X2,Y2
70 ; "X-V[RDET=";
80 INPUT X
90 Y=Y1+(Y2-Y1)/(X2-X1)*(X-X1)
100 ; "Y=";INT(Y*1000+.5)/1000
110 ; 
120 ; "FLER V[RDEN(J/N)";
130 INPUT Z$
140 ; 
150 IF Z$<>"N" AND Z$<>"n" THEN 70
160 ; "NY LINJE(J/N)";
170 INPUT Z$
180 IF Z$<>"N" AND Z$<>"n" THEN 20
190 REM 
200 END