Listing of file='28' on disk='vmedia/glbr_22.wvd.zip'
# Sector 251, program filename = '28' 0011 S=0 0012 PRINT "N,X,Y" 0015 INPUT N,X0,Y0 0016 X=X0 : Y=Y0 0020 FOR I=1TO N-1 0022 PRINT "X";I;",Y";I 0025 INPUT X1,Y1 0030 S=S+(X+X1)*(Y-Y1) 0035 X=X1 0040 Y=Y1 0045 NEXT I 0050 PRINT "A=";(S+(X+X0)*(Y+Y0))/2 0055 PRINT "MORE INPUT (1=YES,0=NO)" 0060 INPUT I 0065 IF I=1THEN 11 0070 END