10 open "YMZ.LST" FOR OUTPUT AS FILE #1

10 open "YMZ.LST" FOR OUTPUT AS FILE #1
20 READ R,L,B,ALF,LO
30 READ Y1,Y2,Y3,Y4,X1,X2,X3,X4,X5,X6
40 READ AO,BO,CO,QZ
45 READ J1,J2,J3,J4,J5,J6,J7
46 READ Y5,Y6,Y7,Y8,Y9,Y10,Y11
49 INPUT PSI,H,HO
50 FA=0
60 PRINT #1,TAB(50);"122mm LIU DAN PAO DA JIA FAN LI"
70 PRINT #1,TAB(45);"*^^*______________________________*^^*"
80 PRINT #1,TAB(10);"FU BIAO (T:)";TAB(100)"PSI=";PSI;TAB(110);"H=";H
90 PRINT #1,""
100 PRINT #1,TAB(7);"FA";TAB(16);"!";TAB(21);"T1";TAB(35);"T2";TAB(49);"S1" &
;TAB(63);"S2";TAB(77);"N1";TAB(91);"N2";TAB(105);"NL1";TAB(119);&
NL2
110 D=344.3+(36.1*COS(FA)-10.6)*COS(PSI)
120 E=(85*COS(FA)-24)*COS(PSI)+372.4
130 F=251.3-(85*COS(FA)-24)*SIN(PSI)
140 T1=R*COS(FA)*(F/LO*COS(PSI)+E/LO*SIN(PSI))
150 T2=R*COS(FA)*((1-F/LO)*COS(PSI)-E/LO*SIN(PSI))
160 S2=T2*TAN(ALF)
170 O1=2\NL1=(R*(E/L)*SIN(FA)-H/L*COS(FA)*COS(PSI)+QZ*D/L)/O1
180 NL2=NL1
190 S1=R*COS(FA)*SIN(PSI)+S2
200 QO=QZ*(1-D/L)/O1
210 N1=R*((1-F/LO-E/(2*L))*SIN(FA)+(H/(2*L)*COS(PSI)+H/LO*SIN(PSI)*COS(FA))+QO
220 N2=R*((1-F/LO-E/(2*L))*SIN(FA)+(H/(2*L)*COS(PSI)+H/LO*SIN(PSI)*COS(FA))+QO
230 IF X>.5 THEN 260
240 IF FA>.005 THEN 260
250 PRINT #1,"_____________________________________________________________";&
"_______________________________________________________________"

好象是BASIC语言