%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:313
File Name:POLIG
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 1,1,"Area de um poligono"
\Locate 1,2,"DEFINIDO POR 3 PON-"
\Locate 1,3,"TOS E A RECTA DOS XX"
\Locate 1,7,"<EXE PARA CONTINUAR>"
\Do
\Getkey\->B
\LpWhile B\<>31
\ClrText
"X1"?\->A:"Y1"?\->B
"X2"?\->C:"Y2"?\->D
"X3"?\->E:"Y3"?\->F
(B+D)*(C-A)/2\->S
S+(D+F)*(E-C)/2\->S
\ClrText
\Locate 1,1,"\aster PONTOS:"
\Locate 2,2,A
\Locate 6,2,B
\Locate 2,3,C
\Locate 6,3,D
\Locate 2,4,E
\Locate 6,4,F
\Locate 1,5,"\aster AREA:"
\Locate 9,5,S

%End