5 CLEAR : LPRINT TAB(3);"陡坡水面線計算 DP-3(1993.9)GD" 7 LPRINT " - - - - - - - - -": 14 OPEN"I",#1,"DP-3.DAT" 100 INPUT#1,B0,N0,A,N,M,T 110 DIM M(N),J(N),L(N,M),B(N,M),HC(N,M) 120 FOR I=1 TO N:INPUT#1,J(I): NEXT I 125 FOR I=1 TO N:INPUT#1,M(I): NEXT I 128 IF T=1 THEN 132 130 FOR I=1 TO N: FOR I1=1 TO M(I):INPUT#1, L(I,I1),B(I,I1): NEXT I1: NEXT I: GOTO 135 132 FOR I=1 TO N: FOR I1=1 TO M(I):INPUT#1, L(I,I1):B(I,I1)=B0: NEXT I1: NEXT I 134 CLOSE#1
5 LPRINT " 天然河道水面線計算 HD-5(1993.8) GD"6 LPRINT " - - - - - - - - - - - - - - - - - "8 OPEN"I",#1,"HD-5.DAT"10 INPUT#1,T,N,MN,A,C1,C212 DIM L(N),M(N),Z(N,MN),W(N,MN),B(N,MN),H(MN),F(MN),G(MN),ZC(N),K(N,MN),H0(MN)15 FOR I=0 TO N: INPUT#1,M(I): NEXT I18 FOR I=1 TO N: INPUT#1,L(I): NEXT I20 ON T GOTO 25,2121 INPUT#1,M1: DIM N1(M1),N0(M1): FOR J=1 TO M1: INPUT#1,N1(J),N0(J): NEXT J22 IF N1(M1)<>N THEN PRINT "N1(";M1;")<>";N23 INPUT#1,M2: DI