home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l078 / 1.img / WY4.BAS < prev   
Encoding:
BASIC Source File  |  1980-01-01  |  1.1 KB  |  38 lines
  1.    M=0
  2.    N=0
  3.    DIM X(10),Y(10),DI(20)
  4. 6 PRINT "PLEASE ENTER DISTANCE NUMBER :(MAX VAL IS 11)"
  5.   INPUT NN   :NN=NN+1
  6. 10 ON ERROR GOTO 1000
  7. 20 OPEN"com1:300,n,8,2,ds0,cs0,rs"AS#1
  8.    A$=INPUT$(13,#1)
  9.    FOR I=1 TO 13
  10.      C=ASC(MID$(A$,I,1))
  11.      IF C>127 THEN C=C-128
  12.     C$=C$+CHR$(C)
  13.    NEXT I
  14.    N=N+1
  15.    X(N)=VAL(MID$(C$,M+2,6))/1000.000:Y(N)=VAL(MID$(C$,M+8,6))/1000.000
  16.    PRINT"x(";N;")=";using "##.###";X(N);:print"      y(";N;")=";using "##.###";Y(N)
  17.    M=M+13
  18.   IF N<2 THEN : CLOSE:GOTO 20
  19.     D=(X(N)-X(N-1))^2+(Y(N)-Y(N-1))^2:DI(N-1)=SQR(D)
  20.    PRINT "                                               distance  : "using "##.####";DI(N-1)
  21.   IF N<NN THEN CLOSE:GOTO 20
  22.     PRINT "DO YOU NEED CALCULATE AVERAGE DISTANCE ENTER (Y/N)?"
  23.      B$=INPUT$(1)
  24.    IF B$="n" THEN CLS:GOTO 300
  25.     FOR K=1 TO NN
  26.      T=T+DI(K)
  27.     NEXT K
  28.    TT=T/(NN-1)
  29.    PRINT "AVERAGE DISTANCE=";USING "##.####";TT
  30.     FOR J=1 TO NN-1
  31.      DI(J)=DI(J)-TT
  32.     NEXT J
  33.     FOR F=1 TO NN-1
  34.      PRINT" DI(";F;")=";USING "##.####";DI(F)
  35.     NEXT F
  36. 300 CLEAR:GOTO 6
  37. 1000 PRINT ERR,ERL:RESUME 20
  38.