HyperTerminal 1.0 -- HyperTerminal data file Please do not attempt to modify this file directly. mEPSON CC-600PXHdANSI(K,^eVڑ&<H>G^e$t(K,*|,F^e*5(K,4|^e(K,&d]e*5"<lr SVbN#$dAQBCDu!ZFGHCOM1QR F:\MyFreeSoft\svy325jp"(F:\My Downloads\CAPTURE.TXT)*2Κ490 GOTO *PRINT 990 FB=MDF (FA*(1/1.4)):' V ------ 1000 LB=MDF ((FB-F0)/QQ):' L0 510 R=WA/WP:' 1010 REM mN 1020 REM 1030 REM 550 *CA 1040 REM Q 1050 REM -------- ---------- 640 PRINT " X=";N: 1060 CLS 1070 USING "##,###.###"' m 1080 BEEP 1 6 1090 LOCATE 0,0:PRINT " Bt=";MDF BT;" m Bc+0.100"I=((N*V/R^(2/3))^2)*1000:' /ETURN 1100 LOCATE 0,1:PRINT " Be=";MDF BE;" m " 680 USING "#######.###":RE 1110 LOCATE 0,2:PRINT " Ce=";MDF CE;" m ":RETURN 610 CL 1120 WAIT 1180 LOCATE 0,0:PRINT " p =";MDF P1;" > 1.000 t/m2"RN 670 LOCATE 0,1:PRIN 1190 LOCATE 0,1:PRINT " p =";MDF P;" t/m2 "N DH 1200 LOCATE 0,2:PRINT " q =";MDF Q;" t/m2 w+p" 730 REM 740 REM 750 *CL 1210 WAIT 1220 LOCATE 0,3:PRINT " Mr=";MDF MR;" tm " LOCATE 0,3:PRINT " " 1230 WAIT 0:CLS 1240 LOCATE 0,0:PRINT " M =";MDF M;" tm "REE :WAIT :PRIN 770 RETURNEAR :F=4 1250 USING "##,## 1320 WAIT 0:CLS " [ X:STA2 C:S 1330 USING "##,###.##" 1340 IF G3>0THEN 1370 70 INPUT A$ 1350 LOCATE 0,0:PRINT " Ha= *********";" m "160 J=DX+0.5/TEN F*SGN DX:K=DY+0.5/TEN F*SGN DY780 LPRINT 1360 GOTO 1380 1370 LOCATE 0,0:PRINT " Ha=";MDF HA;" m " 170 N=X+0.5/TEN F*SGN X:M=Y+0.5/TEN F 1380 LOCATE 0,1:PRINT " F0=";MDF F0;" t "ETURN 990 GOSU 190 AZ=Z0+OA50:X=X+DX 1390 USING "##,###.####" 200 GOSUB 31 1010 GOSUB 1450 USING "##,###.##" 1460 LOCATE 0,0:PRINT " Fr=";MDF FR;" t " 260 DX=O-Q:DY=P-WCLEAR :F=2T " 1470 LOCATE 0,1:PRINT " La=";MDF LA;" m " 330 Z=AZ0 "G":DE 340 RETURN 2:WAIT :P 1480 LOCATE 0,2:PRINT " Fa=";MDF FB;" t "URN":KI$ 1490 WAIT-DH:GOSUB 1500 LOCATE 0,3:PRINT " Lb=";MDF LB;" m "70 GOSUB 530=";FH,"*IH="; 380 INPU 1510 BEEP 1F S1>=0INPU 1520 GOTO *INPUT  10 AUTOGOTO *DEF880 IF L<0 GOTO 1 20 ' 110 H1=3.57:' m 450 EL=GH+DH:RETUR 120 D=1.2:' mU L1)I 500 IF 130 L=0.25:' m 119 140 CO=10:' 10kg/cm2 520 RETURNSUB 1520 150 AR=2:' 1.5 ~ 2.5BS RLB=";LB:B=DEG B:LB=DEG LB 160 Q=1:' ********** 170 REM 180 REM 54 190 *DEF:DEFDBL2: 200 *INPUT:' ----- ------NPUT " L=";L0:L=L0 210 WAIT 100 :CLS T 260 LOCATE 0,1:PRINT " d=";D;" m "T "DY=";KNT "TAL=";SS$:Z=U:GOSUB 220:IF 270 LOCATE 0,2:PRINT " H=";H;" m "";N:PRINT " Y=";M 1300 IF 280 LOCATE 0,3:PRINT "h1=";H1;" m " 690 USING "######.####":RETURN0 290 LOCATE 17,0:INPUT B 700 PRINT "AZ= ";S 300 LOCATE 17,1:INPUT D 710 ON F 310 LOCATE 17,2:INPUT HS$;")=";SS$:INPUT C3290 320 LOCATE 17,3:INPUT H1 330 WAIT 0:CLS 720 PRINT " 340 LOCATE 0,0:PRINT " L=";L;" m " 730 PRINT " H=";H+0.5/TEN F*SGN H:RETURN 350 LOCATE 0,1:PRINT " r=";G;" t/m3 430 REM 440 REM 450 *CAL:' ----------- -----------00 RETURN "D.CAL":C 460 USING "#######,###.####" 820 V=DEG V0:IF V>0 470 KP=MDF ((TAN (45+PA/2))^2):' 00 890 GOSUB 480:GOSUB 190:GOSUB 220:GOSUB 11 480 USING "#########,###.###" 90 490 R1=MDF (G*(H^2)*KP/2):' 1:GOSUB 620OSUB 770:GOSUB 670:PR 500 R2=MDF (2*C*H*(SQR KP)):' 2 910 BEEP 510 R3=MDF (G*H1*H*KP):' 580 P2=MDF ((G*H2+Q)*KP+2*C*SQR KP) 590 ME=((L*100)^2)/6*(2*(P3/10)+(P2/10))*(B*100):' 60:GOSUB 700:GOSUB 630:GOSUB 760:BEEP 1:GOTO 940X":DEGREE :WAIT :PRINT 600 REM -------- ---------- 610 CLS :BEEP 1 620 USING "#########,###.####" 960 "D":DEGREE :WAIT :BEEP 630 LOCATE 0,0:PRINT " kp=";MDF KP;" " 1620 13660 GOSU 97 640 USING "#########,###.##" 1020 "F":DEGREE :WAI 650 LOCATE 0,1:PRINT " R =";MDF R;" t " 1030 GOSUB 500174 660 USING " 920 PR 1760 P2 7 740 USING "##########,###":GOSUB 130:GOSUB 120:GOSUB 750 LOCATE 0,2:PRINT " Mr=";MDF MR;" kgcm " 1090 GOSUB 750:GOTO 1060 PAU 760 WAIT:GOSUB 6 770 LOCATE 0,3:PRINT " Me=";MDF ME;" kgcm "H":DEGREE :WAIT :PRINT "V.LEN":CLEAR :F=3:ON F GOSUB 780 BEEP 1 790 GOTO *INPUT 1 10 AUTOGOTO *DEF 310 20 ' 0:GOSUB 720:BEEP 1 30 REM 40 REM 100 GOTO 20 110 L3=2.305:' m 1210 T=B+L 120 REM --- ---0 130 L4=1:' m=U:GOSUB 220:IF T<360LET S$="-"00: R 140 L5=1.4:' m 150 L6=2.305:' m 1230 PRINT " E=";S$+SS$:V2=B 160 REM --- --- 170 KN=0.6:' %00-V: RETURN 2210 180 KS=0.5:' %SUB 5300 32 190 KL=0.35:' % IF T>=0 INPUT "TM="; 340 GOSUB 500 230 JL=0.8:' % 400 H 1340 S$=STR$ UO 14510 240 REM --- 1m ---"L(";S$;")=";SS$:INPUT C500 PRIN 250 QN=0.385:' 1m kl/m 1360 C=C/TEN 3+INT B:A=A+ 260 QS=0.4:' 1m kl/m 1370 NEXT U 270 QL=0.4:' 1m kl/mGH)*0.003+1.7+(TM-30)*0.085:D=J*L/TENT 280 REM --- 1m --- 290 VBN=7:' 1m min/mT " 1450 INPUT "D0=" 300 VBS=9:' 1m min/mSUB 500:GOSUB 530 310 VBL=19:' 1m min/mCOS V:GOSUB 430:AH=(GH+EL)/2 320 REM --- ---90 GOSUB 6504740 PRINT #1 330 VC=2:' 1m min/m7/TEN 4:L=D+DD";Z 410 WAIT 100 :CLSRINT "* 420 PRINT " " 14780 LOCATE ,1 430 WAIT 0:CLS 710 440 USING "####,###.###"00 SGN L: RETURN 450 LOCATE 0,0:PRINT "************* ***************"0:GOSUB 190 9110 IN 460 LOCATE 0,2:PRINT " A=";A;" m2 "UB 110:GOSUB 160:GOSUB 640V0: IF V>0 RETURNO Q+SUM * 470 LOCATE 20,2:INPUT A 480 WAIT 0:CLS 163 490 USING "###.###" 500 LOCATE 0,0:PRINT "************* ***************" 14870 1760 IF L=0 BEEP 2:GO 560 LOCATE 17,3:INPUT L3 1770 GOSUB 11 570 WAIT 0:CLS 580 LOCATE 0,0:PRINT "************* **************" GOSUB 520: GOSUB 130: GOSUB 590 LOCATE 0,1:PRINT "L4=";L4;" m " 1800 GOSUB 640:BEEP 1:GOTO 1750 600 LOCATE 0,2:PRINT "L5=";L5;" m "0:GR 60 PRINT " [ X:STA2 C:STA3 ,:INT _:REV 610 LOCATE 0,3:PRINT "L6=";L6;" m 1070 GOSU 70 INPUT A$ 1090 "H": GRAD : WAIT : P 670 LOCATE 0,1:PRINT "KN=";KN;" (%) ":F= 140 L0= ABS L0:L= AB 680 LOCATE 0,2:PRINT "KS=";KS;" (%) "150 DX=L* SIN AZ:DY=L* COS AZ: RETURNR (S*(S-S1) 690 LOCATE 0,3:PRINT "KL=";KL;" (%) "K=DY+0.5/ TEN F* SGN DY:K=W: GOSUB 570:B=O:L=PND SL=0PR 700 LOCATE 15,1:INPUT KN 710 LOCATE 15,2:INPUT KS 170 N=X+0.5/ TEN F* S 720 LOCATE 15,3:INPUT KL 1110 INPUT " 730 WAIT 0:CLSSQR ( SQU DX+ 740 LOCATE 0,0:PRINT "************** ****************" 1200 T=B+LB:U= ABS (400-T):Z=T: GOS 790 LOCATE 15,2:INPUT JS700: RETURN 800 LOCATE 15,3:INPUT JL 15540 GOTO 155 810 WAIT 0:CLS 330 DH=-DH 820 LOCATE 0,0:PRINT "************* 1m *********" 340 GOSUB 500;A:B=A:SS$= S 350 I 830 LOCATE 0,1:PRINT "QN=";QN;" kl/m 1m " 38 10010 PRINT 360 GOSUB 800:S 840 LOCATE 0,2:PRINT "QS=";QS;" kl/m 1m " 1330 S$= STR$ U 370 GO 850 LOCATE 0,3:PRINT "QL=";QL;" kl/m 0 L= TEN 2*S* SQU COS V 1640 1000 LOCATE 0,2:PRINT "QQ=";QQ;" kl/min 1min "L: RETURN 1650 GO 1010 LOCATE 0,3:PRINT "T =";T;" min/ ".5/ TEN F* SGN H: RETURN 1020 LOCATE 18,1:INPUT VC 730 PRINT " 1030 LOCATE 18,2:INPUT QQETURN :F=3 1040 LOCATE 18,3:INPUT T 740 GOSUB 700 1050 *CAL:' ----------- ----------F* SGN DHB 550 1060 USING "######,###.###""EL=";EL+0.5/ TEN F* SGN EL 1070 REM ********* ******** 1720 PAUSE 820 V= ABS 1080 V1=MDF (A*L1):' 173 1090 V2=MDF (A*L2):' 830 RETURN1740 A=X3: 1100 V3=MDF (A*L3):' 850 RETURN 1110 TV=MDF (V1+V2+V3):' 1180 TL1=MDF (L1+L2+L3):' 900 BEEP 1: GOTO 88 1190 TL2=MDF (L4+L5+L6):': WAIT : PRINT "TRAVERSE 2 (GRAD)": 1200 REM *** 1m Q1 ** 40 PRIN 1210 Q1=MDF ((QN*L1+QS*L2+QL*L3)/TL1) 1220 REM ** 1day Q ** 930 GOSUB 5 1230 USING "######,###.##"OSUB 800: 1240 VB=MDF ((VBN*L4+VBS*L5+VBL*L6)/TL2):' 1m : GOSUB 280,L,&1 1290 D=MDF (TQ/Q):' INT "CROSS SECTION 1 (GRAD)": 1300 REM -------- ---------- 1310 CLS :BEEP 1 1320 USING "######,###.###" 1020 GOSUB 470 1330 LOCATE 0,0:PRINT " V1=";MDF V1;" m3 " :PRINT "*** ***":G 1340 LOCATE 0,1:PRINT " V2=";MDF V2;" m3 "0: BEEP 1: GOTO 1030 OTO 1350 LOCATE 0,2:PRINT " V3=";MDF V3;" m3 "R :F=3:ON F GOSUB 65 1360 WAIT 1370 LOCATE 0,3:PRINT " TV=";MDF TV;" m3 R$ &H0C)THE 1400 LOCATE 0,1:PRINT " V5=";MDF V5;" kl "120 FOR I=2 TO 390 PRINT #2,A$; 1410 LOCATE 0,2:PRINT " V6=";MDF V6;" kl " 310 "LD" 320 PRINT " 1420 WAIT 114 1430 LOCATE 0,3:PRINT " TQ=";MDF TQ;" kl "EP 2:INPU 1160 AZ=W-V: GOSUB 280:L= RE 1440 WAIT 0:CLS 1450 USING "######,###.###"RINT " E=";S$;Z:V2=B-LB: IF 1460 LOCATE 0,0:PRINT " L4=";MDF L4;" m " 1230 Z=V2 1470 LOCATE 0,1:PRINT " L5=";MDF L5;" m " 1240 V1=V2/2:Z=V1: GOSUB 220)=[D]":BEEP 1 1480 LOCATE 0,2:PRINT " L6=";MDF L6;" m "S (100-V1):Z=V: GOSUB 220: IF V1>100 LE 1490 WAIT 1350 C= 1570 USING "####,###.##" 1580 LOCATE 0,3:PRINT " VB=";MDF VB;" min/m 1m " 1370 L=A/10:J=((L* SIN V)/2+GH)*0.003+1.7+(TM-30)*0.085:D=J* 1590 WAIT 0:CLS,S" 1600 LOCATE 0,0:PRINT " N=";MDF N;" /d 1 " 230 OPEN "E:PROG."FOR OUTPUT 1610 USING "####,###.###"=";A 1450 GO 1660 LOCATE 0,3:PRINT " ---------------------------------------" 1460 D=L0* COS V: GOSUB 400:AH=(GH+EL)/2HEN "END" 1670 BEEP 1 1680 GOTO *INPUT DD=-AH*D/637/ T  10 ' [ ] 1480 F=3:ON F G 20 DEFDBL60,670,68 30 *MAIN:' --------- ---------T "AH=CHR$ 34+"E:PROG."+CHR$ 34+CHR$ 13 40 S1$="E:" 50 S2$="F:" 60 S3$="X:" 70 S4$="CAS:" 80 SD$=".DAT" ";AH+0.00 90 FN$="" 100 CLS0 F=4:O 110 ON ERROR GOTO *ERR80: GOSUB 730: PRINT " 120 WAIT 0:PRINT " [ : 200 ]" 130 WAIT 0 190 REMOSUB 78 200 *LOAD:' -------- --------- 210 SL=0OSUB 110 220 S=1:INPUT " [ 1:E 2:F 3:X 4:CAS 5: ] ";S 1620 BEEP 1: GOTO 1600 1630 "C": 230 IF S>=5THEN *MAIN PRINT "STADIA 3 REVE 240 PRINT " [ ] ";" { ";FN$;SD$;" }" 1640 INPUT " 250 LOCATE 9,3:INPUT FN$ 260 IF FN$="C"THEN *MAIN 270 ERASE A,BSUB 740: GOTO 280 DIM A(201),B(201) 1670 ", 290 IF S=4OPEN S4$+FN$+SD$ FOR INPUT AS #1:GOTO 330R :F=3 300 IF S=3OPEN S3$+FN$+SD$ FOR INPUT AS #1:GOTO 680: GOSUB 340 INPUT #1,TA,A(*),B(*)1730 AZ=AZ+100: GOSUB 280 350 CLOSE #1 360 GOTO *KEISAN=0: INPUT "L(-L: 370 REM 380 REM 390 REM 400 *INPUT:' -------- -------- 1760 GOSUB 110 410 CLS170 420 PRINT 430 PRINT L>0 PAUS 440 PRINT " NO. "80 IF L<0 PAUSE "L:" 1790 GOSU 450 ERASE A,B GOTO 1740 460 DIM A(201),B(201)   10 AUT 470 FOR I=1TO 200 20 ' 480 USING "###":PRINT I;30 REM ------------ 490 LOCATE 4,3:INPUT " ";A(I) 40 G 500 IF A(I)<=0LET I=200:GOTO 600/m 510 K=3:GOSUB *HYOUJI 600 NEXT I 610 GOTO *KEISAN R=0.325:' 620 REM 630 REM 640 REM 650 *LIST:' -------- --------- t/m 660 WAIT 0140 F=1.2: 670 CLS 680 PRINT 1 690 PRINT 160 R 700 PRINT " NO. " 200 *DEF:DEFDBL 210 *INPUT:' ----- 710 PRINT ----- 720 FOR I=1TO 200 730 IF A(I)=0LET I=200:GOTO 860 230 USING "###,###.###" 740 AA=A(I)*B(I) 240 PRINT " 750 USING "###" 760 LOCATE 0,3:PRINT I 260 *CAL:' ----- 850 PRINT0 PRINT " 860 NEXT I" t/m2 870 WAIT" 880 PRINT " -------------------------------------- " p=";MDF P;" t/m2 " 890 REM 900 *KEISAN:' --------- ---------" 910 CLSAIT 920 WAIT 0INT " K="; 930 TA=0 940 FOR I=1TO 200 950 IF A(I)=0LET I=200:GOTO 980 GOTO *INPUT 960 AA=INT (A(I)*B(I)) 10 ' 970 TA=TA+AA 20 REM 980 NEXT I- - 990 WAIT 0 1000 USING "############,###"30 VU=0.25:' 1010 PRINT " Total = ";TA 50 YO=0.1:' 6 1020 PRINT 1110 WAIT 150 WA 1120 Y=1:INPUT " [ 1: 2: 3: 4:]";YOCATE 2,2:INPUT "=";GH/ "2"T "Y 1130 IF Y>4THEN *SAVE2:PRINT "=";M 1140 IF Y=4THEN *LIST0 LOCATE 0,3:PRINT " 1150 IF Y=3THEN *DELETE"=";EL 1160 IF Y=2THEN *INSERT 190 LOCATE 22,2:PRINT 1170 J=0:INPUT " NO. ";J 1180 IF J<=0THEN *KEISAN 210 DH=GH-EL-VU-T 1190 WAIT 0220 KH=GH-E 1200 PRINT " NO. "#"220 LOCATE 20,2:INPUT I " ( 240 LOCATE 0,3:PRI 1210 PRINT=" 1220 USING 1300 GOTO 1170TPUT AS #10 LP 1310 REM 1320 REM 1330 REM K 310 1340 REM 1350 *INSERT:' -------- ---------0 ' 1360 J=0:INPUT " NO. ";J 50 REM ------------ - 1370 IF J<=0THEN *KEISAN0 PRINT " n=";MDF N;" ] 1380 WAIT 0 1390 PRINT " NO. ":' 1400 PRINT0:' 1410 USING "###" t/m2,1:PRINT " 1420 LOCATE 0,3:PRINT J 90 G=1.8:' 1430 USING "####,###.###" 380 LOCATE 0 1440 LOCATE 3,3:PRINT A(J) m" "CL( 1450 USING "#####,###":' 150 1500 FOR I=J TO 200 U 10 1510 A=A(I):B=B(I) 160 KA=1:' 1520 A(I)=A1:B(I)=B1 170 CO=13 1530 A1=A:B1=B 1540 IF A(I)=0LET I=200 kg/cm2 3 1550 NEXT I 1560 GOTO *INSERT 50 REM -- 1570 REM80 A=0.2 1580 REM 1590 REM 17610 G 1600 *DELETE:' -------- --------- t 1610 J=0:INPUT " NO. ";JDBL ----- 210 REM 1620 IF J<=0THEN *KEISANEM 120 240 REM :CLSGO 1630 WAIT 0' ----- 1640 PRINT " NO. " 260 WAIT 100:CLS 270 USING "####.# 1650 PRINT630 A1$=ST 1660 USING "###" "W 1670 LOCATE 0,3:PRINT J 290 WAIT 0 1680 USING "####,###.###"C=";BC;" m 1690 LOCATE 3,3:PRIN 1810 WAIT 0 P1= 380 CL 1820 SL=190 LOCATE 1830 S=1:INPUT " [ 1:E 2:F 3:X 4:CAS 5:]";S 17880 400 1840 IF S>=5THEN *KEISAN" m 1850 PRINT " [ ] ";" { ";FN$;SD$;" }"410 LOCATE 0,2:PRINT " r=";G;" t/m3 1860 LOCATE 9,3:INPUT FN$ 1870 IF FN$="C"THEN *KEISANINT "PA=";PA;" 1970 REM 1980 REM 1990 REM 2000 *ERR:' --------- --------- 2010 BEEP 2 2020 WAIT 0 2030 IF ERN =72AND SL=0PRINT "I/O error":RESUME 220 2040 IF ERN =72AND SL=1PRINT "I/O error":RESUME 1830 2050 IF ERN =75AND SL=0PRINT "Bad drive name":RESUME 220 2060 IF ERN =75AND SL=1PRINT "Bad drive name":RESUME 1830 2070 IF ERN =76AND SL=1PRINT "File write protected":RESUME 1830 2080 IF ERN =77PRINT "Disk full":RESUME 1830 2090 IF ERN =94PRINT "File not found":RESUME 220 2100 RESUME *LIST 2110 REM 2120 REM 2130 REM 2140 REM 2150 *HYOUJI:' 2160 WAIT 0:LOCATE 0,K:PRINT " ":LOCATE 0 ,K 2170 RETURN  56 dd      "B#W$%&'0< lr SVbN½w$]e@A