1 REM Ins{nt av 2314
10 ; CHR$(12)CUR(0,2)"AREA AV ETT POLYGON"
20 ; 
30 DIM X(25),Y(25)
40 ; "ANTALET [NDPUNKTER";
50 INPUT N
60 IF N=0 THEN 230
70 FOR I=1 TO N
80 IF I>1 THEN 110
90 ; "KOORDINATER [NDPUNKT";I;
100 GOTO 120
110 ; "            [NDPUNKT";I;
120 INPUT X(I),Y(I)
130 NEXT I
140 X(N+1)=X(1)
150 Y(N+1)=Y(1)
160 A=0
170 FOR I=1 TO N
180 A=A+(X(I)+X(I+1))*(Y(I)-Y(I+1))
190 NEXT I
200 ; "YTAN=";ABS(A)/2
210 ; : ; : ; "TRYCK 'RET N[R DU [R KLAR" : GET B$ : ; CHR$(12)
220 GOTO 10
230 REM 
240 END