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