由于字数超限，将源文件用两部分发出，希望高手指导一下怎样加入命令使结果显示在文件里


READ An, Ek
p0 = p1 + p2 + p3
A = Ek * An * (3 * p * (p + G) + G ^ 2) / 24 / H ^ 2 * COS(Raf) ^ 2 - H
B = Ek * An * p0 * (p0 + G) * COS(Raf) ^ 2 / 8 + G ^ 2 * Ek * An * COS(Raf) ^ 2 / 24
H0 = 0
100 IF H0 ^ 3 + A * H0 ^ 2 - B >= 0 THEN GOTO 130
110 H0 = H0 + .1
120 GOTO 100
130 H0 = H0: PRINT "主索安装张力T0="; (H0 ^ 2 + ((G + p) / 2) ^ 2) ^ .5; "KN"
f0 = G * L / 8 / H0 / COS(Raf) + p0 * L / 4 / H0: PRINT "相应跨中安装垂度f0="; f0; "m"
PRINT "安装拱箱时主索张力和垂度计算:"
READ A2, B2
190 READ x
IF x = 500 THEN GOTO 280
PRINT "******------******------******------******"
PRINT "跑马离永靖岸A塔架距离X="; x; "m"
C = x * (L - x) * Ek * An * p * (p + G) / 2 / L ^ 2 * COS(Raf) ^ 2 + G ^ 2 * Ek * An / 24 * COS(Raf) ^ 2
Hx = 0
200 IF Hx ^ 3 + A * Hx ^ 2 - C >= 0 THEN GOTO 230
210 Hx = Hx + .1
220 GOTO 200
230 Hx = Hx
fx = x * (L - x) / Hx * (q / 2000 + p / L): PRINT "相应垂度fx="; fx; "m"
J = ATN(fx / (L - x)) - ATN(Raf) - ATN(fx / x)
VA1 = (q * L ^ 2 / 2000 + p * (L - x)) / L
VB1 = G + p - VA1
TA1 = (VA1 ^ 2 + Hx ^ 2) ^ .5: TB1 = (VB1 ^ 2 + Hx ^ 2) ^ .5
PRINT "主索升角J="; J
PRINT "主索张力永靖岸TAx="; TA1; "KN"; ";"; " 积石山庙岸TBx="; TB1; "KN; "
HA2 = TA1 * COS(A2): HB2 = TB1 * COS(B2)
VA2 = TA1 * SIN(A2): VB2 = TB1 * SIN(B2)
PRINT "永靖岸主索向河心方向水平力HA1="; Hx; "KN"
PRINT "永靖岸主索向地锚方向水平力HA2="; HA2; "KN"
PRINT "主索对永靖岸塔架垂直力VA1+2="; VA1 + VA2; "KN"
PRINT "积石山岸主索向河心方向水平力HB1="; Hx; "KN"
PRINT "积石山岸主索向地锚方向水平力HB2="; HB2; "KN"
PRINT "主索对积石山岸塔架垂直力VB1+2="; VB1 + VB2; "KN"
GOTO 190
PRINT "温度改变对主索的影响计算(位于跨中):"
280 PRINT "******------******------******------******"
290 READ T
IF T = 500 THEN GOTO 390
PRINT "温差T="; T; "摄氏度"
d = A + .000012 * T * Ek * An
E = Ek * An * p * (p + G) / 8 + G ^ 2 * Ek * An / 24
Ht = 0
300 IF Ht ^ 3 + d * Ht ^ 2 - E >= 0 THEN GOTO 330
310 Ht = Ht + .1
320 GOTO 300
330 Ht = Ht: PRINT "主索张力Ht="; Ht; "KN"
ft = L * (G / 2 + p) / 4 / Ht: PRINT "相应跨中垂度ft="; ft; "m"
GOTO 290
PRINT "塔顶位移对主索的影响计算(位于跨中):"
390 READ U
IF U = 500 THEN GOTO 490
PRINT "两塔架向内位移u="; U; "m"
f = A + U * Ek * An / L
Hu = 0
400 IF Hu ^ 3 + f * Hu ^ 2 - E >= 0 THEN GOTO 430
410 Hu = Hu + .1
420 GOTO 400
430 Hu = Hu: PRINT "主索张力Hu="; Hu; "KN"
fu = L * (G / 2 + p) / 4 / Hu
PRINT "相应跨中垂度fu="; fu; "m"
GOTO 390
490 PRINT "主索应力计算:"
READ Nz, Dz, Dmins
Qw = Tmax / An + p / Nz * (Ek / Tmax / An) ^ .5
Qj = Tmax / An + 3 * Ek * Dz / Dmins / 8
K1 = 1.666 / Qw: K2 = 1.666 / Qj
PRINT "弯曲安全系数K1="; K1
PRINT "接触安全系数K2="; K2
PRINT "主索最大弯曲应力计算:"
B1 = ATN(fx / (L - x)) * 3.14159265# / 180
READ n1
T = TB1
V = T * (SIN(B1) + SIN(B2))
Qmaxw = T / An + V / n1 * (Ek / T / An) ^ .5: K3 = 1.666 / Qmaxw
PRINT "索鞍处弯曲应力安全系数K3="; K3
PRINT "起重索计算:"
READ N, Sd, Dn, Dz, U
Pqz = (p2 + p3 + p4) / 2
Aqz = Sd * N ^ Dn * N ^ Dz: Aqz1 = Sd * N ^ (Dn / 2) * N ^ Dz
Fqz = U * Pqz / (1 + Aqz): Fqz1 = U * Pqz / (1 + Aqz1)
PRINT "计算系数Aqz="; Aqz; "单向收紧"
PRINT "计算系数Aqz1="; Aqz1; "双向收紧"
PRINT "起重力Fqz="; Fqz; Dn;"门滑车穿";Sd; "线,单向收紧"
PRINT "起重力Fqz1="; Fqz1; Dn;"门滑车穿";Sd; "线,双向收紧"
READ Tqz
K4 = Tqz / Fqz: PRINT "起重绳安全系数K4="; K4
READ Aq, dqz, Dminqz
Qmaxqz = Fqz / Aq + 3 * Ek * dqz / Dminqz / 8
K5 = 1.666 / Qmaxqz: PRINT "考虑接触应力的起重绳安全系数K5="; K5
Rqz = N ^ 16 * Fqz: PRINT "起重绳固端锚固力Rqz="; Rqz; "KN"
PRINT "******------******------******------******"
PRINT "牵引索计算:"
READ fp
W1 = p * (fp * COS(J) + SIN(J))
PRINT "跑车运行阻力W1="; W1; "KN"
Aqy = 8 * N ^ 4 * N ^ 2
W2 = 2 * (1 - N ^ 13) * Pqz / Aqy: PRINT "跑车运行阻力W2="; W2; "KN"
READ Xpc, Fqy
W3 = q3 * Xpc ^ 2 / 8 / Fqy / 1000: PRINT "跑车运行阻力W3="; W3; "KN"
Wqy = W1 + W2 + W3: PRINT "总牵引力Wqy="; Wqy; "KN"
Fqy = Wqy / (N ^ 2 + N ^ 3 + N ^ 4 + N ^ 5 + N ^ 6 + N ^ 7 + N ^ 8 + N ^ 9)
PRINT "输出牵引拉力需Fqy="; Fqy; "KN"; "(4门滑车穿8线)"
READ Tqy
Kqy = Tqy / Fqy: PRINT "牵引拉力安全系数Kqy="; Kqy
READ Aqy1, dqy, Dminqy
Qqy = Fqy / Aqy1 + 3 * Ek * dqy / Dminqy / 8
Kqyj = 1.666 / Qqy: PRINT "考虑接触应力的安全系数Kqyj="; Kqyj
DATA 272, 651.151, 13.005, 78.028, 0, 37.202, 30.531, 18.206, 764.4, 2.5, 8840
DATA 0, 7068.42, 74.088, 0.535596, 0.535596, 20, 136, 206, 500
DATA 8, -8, 500, 0.4, 500, 24, 2.6, 350, 6, 0.96, 14, 7, 2, 1.2, 196.39, 141.16, 0.9
DATA 330, 0.012, 330, 20, 196.39, 141.16, 0.9, 300

希望热心的朋友们帮帮忙啊，急用，谢谢。

1. 在程序的第一行,加入
open "1tmp.txt" for output as #1

2. 按<ALT> + <S>,<C>查找替换
   把所有的 print 换成 print #1,

3. 完成后在程序的最后加两行
   close
   shell "edit 1tmp.txt"

谢谢moz朋友的帮忙，将打印结果写入文件的问题解决了，不过还想请教朋友一个问题：就是能否去掉结尾的四行data语句，改为人机交互式输入啊，该怎样修改命令语句呢？我想了很久，还是未成功。谢谢。

把所有的 READ 换成 INPUT 就可以了

不好意思，还是不行啊。