文件的输入和输出的实验.mb

mabasic 经典使用案例。主要关于菜单建立

 PRINT JX
END IF
END SUB 

SUB zy
Close All Interactive        '关闭所有窗口
dim p(10) as float 
dim l as float
dialog
title "请您选择"
width 150
height 60
control radiogroup
title "徐州；邳州 "
value L 
into p(1)
id 2
position 10,32 
END SUB

SUB zn
Close All Interactive       '关闭所有窗口

END SUB

SUB tj
Close All Interactive      '关闭所有窗口
dialog
title"请您选择单站分析对象" 
control listbox
title "列表选择框;125850沂河 沟上集;51132250老沭河 口头;51228900大运河 窑湾;51228950大运河 皂河闸;大运河 宿迁闸;51132100老沭河 新安;51228200大运河 滩上集;51228250大运河 运河;51235150废黄河 徐州;51125900新沂河 华沂;51228750房亭河 庙山集;51228850房亭河 土山;51227650文河 四户;51226400不牢河 蔺家坝"
width 100 height 190
position 5,5
control okbutton
title "确定"
position 50,200
control cancelbutton
title "取消"
position 120,200
END SUB
sub a2                  '建立表结构
   CREATE TABLE 逐日降水量表    '建立逐日降水量表
   (日期 CHAR(4),       '表格字段
   一月 DECIMAL(6,1),
   二月 DECIMAL(5,1),
   三月 DECIMAL(5,1),
   四月 DECIMAL(5,1),
   五月 DECIMAL(5,1),
   六月 DECIMAL(5,1),
   七月 DECIMAL(5,1),
   八月 DECIMAL(5,1),
   九月 DECIMAL(5,1),
   十月 DECIMAL(5,1),
   十一月 DECIMAL(5,1),
   十二月 DECIMAL(5,1))
   FILE"C:\MAPBASIC\逐日降水量表.TAB"   '指定存入目录
   CREATE TABLE 年统计表    '建立年统计表
   (年份 DECIMAL(6,0),
   年降水总量 DECIMAL(6,1),  '表格个字段
   年降水日数 DECIMAL(6,0),
   _1_5月 DECIMAL(6,1),
   汛期6_9 DECIMAL(6,1),
   最大1日 DECIMAL(6,1),
   开始月日 DECIMAL(7,2),
   最大3日 DECIMAL(6,1),
   开始月日 DECIMAL(7,2),
   最大7日 DECIMAL(6,1),
   开始月日 DECIMAL(7,2),
   最大15日 DECIMAL(6,1),
   开始月日 DECIMAL(7,2),
   最大30日 DECIMAL(6,1),
   开始月日 DECIMAL(7,2),
   最长无雨 DECIMAL(6,0),
   开始月日 DECIMAL(7,2))
   FILE"C:\MAPBASIC\年统计表.TAB"   '指定存入目录
   CREATE TABLE 当前雨情分析原始表    '建立当前雨情分析原始表格
   (年份 DECIMAL(6,0),
   降水总量 DECIMAL(6,1),  '表格个字段
   降水日数 DECIMAL(6,0),
   最大日降水量 DECIMAL(6,1),
   月份 DECIMAL(6,0),
   日期 DECIMAL(6,0),
   有效降水 DECIMAL(6,1))
   FILE"C:\MAPBASIC\当前雨情分析原始表.TAB"   '指定存入目录
   CREATE TABLE 当前雨情分析_从小到大排序    '建立当前雨情分析(从小到大排序)表格
  (年份 DECIMAL(6,0),
   降水总量 DECIMAL(6,1),  '表格个字段
   降水日数 DECIMAL(6,0),
   最大日降水量 DECIMAL(6,1),
   月份 DECIMAL(3,0),
   日期 DECIMAL(3,0),
   有效降水 DECIMAL(6,1),
   频率 DECIMAL(4,1))
   FILE"C:\MAPBASIC\当前雨情分析_从小到大排序.TAB"   '指定存入目录
   CREATE TABLE dqtj2    '建立dqtj2表格
   (序号 char(4),
   开始月日 DECIMAL(4,2),  '表格个字段
   结束月日 DECIMAL(4,2),
   降水天数 DECIMAL(4,0),
   时段降水量 DECIMAL(5,1),
   重排序 DECIMAL(5,1),
   开始月日 DECIMAL(4,2),
   结束月日 DECIMAL(4,2),
   降水天数 DECIMAL(4,0),
   时段降水量 DECIMAL(5,1),
   日平均 DECIMAL(5,1))
   FILE"C:\MAPBASIC\dqtj2.TAB"   '指定存入目录
   CREATE TABLE 当前雨情分析_逐月对照    '建立当前雨情_逐月对照表格
   (月份 char(4),
   多年平均 DECIMAL(6,1),  '表格个字段
   多年最大 DECIMAL(6,0),
   多年最小 DECIMAL(6,1),
   离差系数Cv DECIMAL(2,6),
   离势系数Cs DECIMAL(2,6),
   本年降水 DECIMAL(6,2),
   距平值 DECIMAL(6,1),
   频率 DECIMAL(2,6),
   重现期 DECIMAL(6,1), 
   丰枯评价 char(6))
   FILE"C:\MAPBASIC\当前雨情分析_逐月对照.TAB"   '指定存入目录

ENd sub 
 '以下片段放在“以下应接程序最后”
 'PRINT "现将上一年度与本年度以及多年平均值列如下表:": PRINT
  'SLEEP: a = n - 1: b = n + 5: GOSUB f0
  'PRINT "    从以上表中可以明显看出,本年度所选时段内降水量"; : ll = (l(n, 1) - l(n - 1, 1)) / l(n - 1, 1) * 100
  'IF l(n, 1) > l(n - 1, 1) THEN PRINT "大于去年同期降水量的"; USING "###.##"; ll; : PRINT "%": GOTO 82
  'PRINT "小于去年同期降水量的"; USING "###.##"; (l(n - 1, 1) - l(n, 1)) / l(n - 1, 1) * 100; : PRINT "% 。"
  'll = (l(n, 1) - l(n + 1, 1)) / l(n + 1, 1) * 100
  'IF l(n, 1) > l(n + 1, 1) THEN PRINT "大于多年平均值"; USING "###.##"; ll; : PRINT "% ，": SLEEP: GOTO 85
  'PRINT "小于多年平均值的"; USING "###.##"; (l(n + 1, 1) - l(n, 1)) / l(n + 1, 1) * 100; : PRINT "%。": SLEEP
  'cd = 14: GOSUB 3500
  'INPUT "是否需要显示全系列分析结果?  是/y  否/n"; a0$: IF a0$ = "y" THEN GOSUB 445
  'SLEEP: GOSUB 320: FOR c = 1 TO n: GOSUB 3470: FOR j = 1 TO 12: l(c, j) = p(32, j): l(c, 0) = l: NEXT j, c
  'GOSUB 500: PRINT "历史各月统计值与本年降水量统计如下:"
  'FOR j = 0 TO 12: FOR i = 0 TO 12: m(i, j) = 0: NEXT i, j: FOR j = 1 TO y1
  'FOR c = 1 TO n - 1: m(j, 1) = m(j, 1) + l(c, j): NEXT: m(j, 1) = m(j, 1) / (n - 1): NEXT
  'FOR j = 1 TO y1: m(j, 6) = l(n, j): m(j, 2) = l(n + 2, j): m(j, 3) = l(n + 4, j)
  'm(j, 7) = m(j, 6) - m(j, 1): NEXT: GOSUB 540: FOR j = 1 TO y1: m(j, 4) = l(n + 6, j): m(j, 5) = l(n + 7, j)
  'm(j, 8) = l(n, j): IF m(j, 8) < 50 THEN m(j, 9) = (1 / m(j, 8)) * 100: GOTO 94
  'm(j, 9) = 1 / (1 - m(j, 8) / 100)
  'NEXT
'PRINT TAB(7); l$; a1; "─"; a2 - 1; "年多年逐月降水统计值与"; l; "年对照表'"
'   PRINT "┏━┯━━━━━━━━━━━━━━━━━━━┯━━━┯━━━┯━━┯━━┯━━┓"
'   PRINT "┃  │    多      年     统     计     值   │"; l; "│  距  │    │ 重 │    ┃"
'   PRINT "┃月├───┬───┬───┬───┬───┤  年  │  平  │ 频 │ 现 │丰枯┃"
'   PRINT "┃  │ 平 均│ 最 大│ 最 小│ 离差 │ 离势 │降水量│  值  │ 率 │ 期 │    ┃"
'   PRINT "┃  │降水量│降水量│降水量│ 系数 │ 系数 │      │      │    │    │评价┃"
'   PRINT "┃份│(毫米)│(毫米)│(毫米)│  Cv  │  Cs  │(毫米)│(毫米)│ (%)│(年)│    ┃"
'   PRINT "┠─┼───┼───┼───┼───┼───┼───┼───┼──┼──┼──┨"
'   FOR j = 1 TO y1 - 1
'   PRINT "┃"; : PRINT USING "##"; j; : PRINT "│"; : PRINT USING "####.#"; m(j, 1); : PRINT "│";
'   PRINT USING "####.#"; m(j, 2); : PRINT "│"; : PRINT USING "####.#"; m(j, 3);
'   PRINT "│"; : PRINT USING "#.####"; m(j, 4); : PRINT "│"; : PRINT USING "#.####"; m(j, 5);
'   PRINT "│"; : PRINT USING "####.#"; m(j, 6); : PRINT "│"; : PRINT USING "####.#"; m(j, 7);

'   PRINT "│"; : PRINT USING "##.#"; m(j, 8); : PRINT "│"; : PRINT USING "##.#"; m(j, 9);
'   PRINT "│"; : jp = m(j, 1): js = m(j, 6): IF js = 0 OR jp = 0 THEN PRINT "    ┃": GOTO 96
'   GOSUB 454: PRINT z0$; "┃"
'96 NEXT: PRINT "┗━┷━━━┷━━━┷━━━┷━━━┷━━━┷━━━┷━━━┷━━┷━━┷━━┛"
'   PRINT "    从上表中可以看出，"; : S = 0: FOR j = 1 TO y1 - 1
'   IF m(j, 7) < 0 THEN PRINT j; "、"; : S = S + m(j, 7)
'   NEXT: PRINT "月份均小于多年平均值，共少"; : PRINT USING "###.#"; ABS(S); : PRINT hm$;
'   s1 = 0: FOR j = 1 TO y1: IF m(j, 7) > 0 THEN PRINT j; : PRINT "、"; : s1 = s1 + m(j, 7)
'   NEXT: PRINT "月份大于多年平均值，共多"; : PRINT USING "###.#"; s1; : PRINT hm$;
'   PRINT "差值为"; USING "####.#"; S + s1; : PRINT "。": SLEEP

'100 b$ = "年内连续降雨统计": COLOR 27, 4: PRINT : COLOR 10, 5
'    WV = 0: GOSUB 320: FOR c = 1 TO n: GOSUB 3470: IF l <> l2 THEN 108
'    l(c, 0) = l: ss = 0: FOR b = 1 TO 12: ss = ss + y(b): r(b) = ss: NEXT
'    s0 = 0: FOR j = 1 TO y1: FOR i = 1 TO y(j): s0 = s0 + 1: S(s0) = p(i, j): NEXT: NEXT
'    s2 = 1: s1 = 0
'102 FOR j = 1 TO s0: GOSUB 110: s2 = j1 + 1: IF S(384) = 0 THEN 104
'    GOSUB 124
'104 NEXT j
'106 GOSUB 126: GOSUB 120
'108 NEXT c: GOTO 140
'110 S(384) = 0: S(385) = 0: S(367) = 0: FOR i = s2 TO s0
'    IF S(i) > WV THEN S(384) = S(384) + 1: S(367) = S(367) + S(i): IF S(384) = 1 THEN j2 = i: ' j2为开始时间序号
'    IF i = s0 THEN j0 = i: GOSUB 116: GOSUB 124: GOTO 106
'    IF S(i) = WV THEN j1 = i: j0 = j1 - 1: GOTO 114
'    NEXT i
'114 IF S(384) = 0 OR j2 = s0 THEN RETURN
'116 IF j2 <= r(1) THEN S(386) = j2: S(385) = 1: GOTO 118
'    FOR w = 1 TO 12: IF j2 = r(w - 1) THEN S(386) = y(w - 1): S(385) = w - 1: RETURN
'    IF j2 <= r(w) THEN S(386) = j2 - r(w - 1): S(385) = w: GOTO 118
'    NEXT w
'118 IF j0 <= r(1) THEN S(388) = j0: S(387) = 1: RETURN
'    FOR w = 1 TO 12: IF j0 = r(w - 1) THEN S(388) = y(w - 1): S(387) = w - 1: RETURN
'    IF j0 <= r(w) THEN S(388) = j0 - r(w - 1): S(387) = w: RETURN
'    NEXT w: RETURN
'120 PRINT TAB(23); l$; l; b$
'    PRINT "┏━┯━━━┯━━━┯━┯━━━┯━┯━━━┯━━━┯━┯━━━┯━━━┓"
'    PRINT "┃序│开  始│结  束│天│时  段│重│开  始│结  束│天│时  段│日平均┃"
'    PRINT "┃  ├─┬─┼─┬─┤  │降水量│排├─┬─┼─┬─┤  │降水量│降水量┃"
'    PRINT "┃号│月│日│月│日│数│(毫米)│序│月│日│月│日│数│(毫米)│(毫米)┃"
'    PRINT "┠─┼─┼─┼─┼─┼─┼───┼─┼─┼─┼─┼─┼─┼───┼───┨"
'    FOR j1 = 1 TO s1
'    PRINT "┃"; USING "##"; l(j1, 0); : FOR b = 1 TO 5: PRINT "│"; USING "##"; l(j1, b);
'    NEXT: PRINT "│"; USING "####.#"; l(j1, 6); : FOR b = 7 TO 12
'    PRINT "│"; USING "##"; l(j1, b); : NEXT: PRINT "│"; USING "####.#"; l(j1, 13);
'    PRINT "│"; USING "####.#"; l(j1, 13) / l(j1, 12); : PRINT "┃"
'    SLEEP: NEXT: PRINT "┗━┷━┷━┷━┷━┷━┷━━━┷━┷━┷━┷━┷━┷━┷━━━┷━━━┛"
'    SLEEP: RETURN
'124 s1 = s1 + 1: l(s1, 0) = s1: l(s1, 1) = S(385): l(s1, 2) = S(386)
 '   l(s1, 3) = S(387): l(s1, 4) = S(388): l(s1, 5) = S(384): l(s1, 6) = S(367)
 '   RETURN
'126 IF l(s1, 5) = 0 OR l(s1, 5) = 0 THEN s1 = s1 - 1
'    FOR i = 1 TO s1: FOR w = 0 TO 6: l(i, w + 7) = l(i, w): NEXT: NEXT
'    FOR i = 1 TO s1 - 1: FOR w = i + 1 TO s1: IF l(i, 13) > l(w, 13) THEN 130
'    SWAP l(i, 7), l(w, 7): SWAP l(i, 8), l(w, 8): SWAP l(i, 9), l(w, 9): SWAP l(i, 10), l(w, 10)
'    SWAP l(i, 11), l(w, 11): SWAP l(i, 12), l(w, 12): SWAP l(i, 13), l(w, 13)
'130 NEXT w, i: FOR j4 = 1 TO s1: IF l(j4, 13) < cy THEN 132
'    NEXT
'132 FOR b = 1 TO j4 - 1: FOR b1 = 1 TO 6: d(b, b1) = l(b, b1 + 7): NEXT b1, b
'    PRINT "    年初到今天, 共发生"; s1; "次降水过程, 其中大于"; cy; hm$; "的共有"; j4 - 1;
'    PRINT "次, 最大"; "次降水为:"; d(1, 1); "月"; d(1, 2); : IF d(1, 2) = d(1, 4) THEN PRINT "日"; : GOTO 134
'    PRINT "日到"; d(1, 2); "月"; d(1, 3); "日";
'134 PRINT d(1, 4); "天内降水总量为"; d(1, 6); hm$; "其余从大到小排序分别为:"
'    FOR b = 2 TO j4 - 1: PRINT USING "###"; d(b, 1); : PRINT "月"; : PRINT USING "###"; d(b, 2);
'    PRINT "日到"; : PRINT USING "##"; d(b, 3); : PRINT "月"; : PRINT USING "###"; d(b, 4); : PRINT "日";
'    PRINT USING "##"; d(b, 5); : PRINT "天内降水总量为"; USING "####.#"; d(b, 6); : PRINT hm$: NEXT b
'    INPUT "您是否想了解更详细的次降水情况  是/y  否/n "; a0$
'    IF a0$ = "y" THEN RETURN
'140 c$ = "天同期" + js$ + c$(99): GOSUB 268
'    b$ = "年内持续无雨天数统计如下:": cy = 10: COLOR 27, 4: PRINT b$: COLOR 10, 5
'    WV = 5: GOSUB 320: FOR c = 1 TO n: GOSUB 3470: IF l <> l2 THEN 180
'    l(c, 0) = l: ss = 0: FOR b = 1 TO 12: ss = ss + y(b): r(b) = ss: NEXT
'    s0 = 0: FOR j = 1 TO y1: FOR i = 1 TO y(j): s0 = s0 + 1: S(s0) = p(i, j): NEXT: NEXT
'    s2 = 1: s1 = 0
'150 FOR j = 1 TO s0: GOSUB 190: s2 = j1 + 1: IF S(384) = 0 THEN 160
'    GOSUB 280
'160 NEXT j
'170 GOSUB 300: GOSUB 250: GOSUB 230: GOSUB 240
'180 NEXT c: GOTO 262
'190 S(384) = 0: S(385) = 0: FOR i = s2 TO s0
'    IF S(i) < WV THEN S(384) = S(384) + 1: IF S(384) = 1 THEN j2 = i: ' j2为开始时间序号
'    IF i = s0 THEN j0 = i: GOSUB 210: GOSUB 280: GOTO 170
'    IF S(i) > WV THEN j1 = i: j0 = j1 - 1: GOTO 200
'    NEXT i
'200 IF S(384) = 0 OR j2 = s0 THEN RETURN
'210 IF j2 <= r(1) THEN S(386) = j2: S(385) = 1: GOTO 220
'    FOR w = 1 TO 12: IF j2 = r(w - 1) THEN S(386) = y(w - 1): S(385) = w - 1: RETURN
'    IF j2 <= r(w) THEN S(386) = j2 - r(w - 1): S(385) = w: GOTO 220
'    NEXT w
'220 IF j0 <= r(1) THEN S(388) = j0: S(387) = 1: RETURN
'    FOR w = 1 TO 12: IF j0 = r(w - 1) THEN S(388) = y(w - 1): S(387) = w - 1: RETURN
'    IF j0 <= r(w) THEN S(388) = j0 - r(w - 1): S(387) = w: RETURN
'    NEXT w: RETURN
'230 PRINT TAB(18); l$; l; b$
'    PRINT "┏━┯━━━┯━━━┯━━┯━┯━━━┯━━━┯━━┯━━━━━━┓"
'    PRINT "┃序│ 开 始│ 结 束│持续│重│ 开 始│ 结 束│持续│            ┃"
'    PRINT "┃  ├─┬─┼─┬─┤    │排├─┬─┼─┬─┤    │            ┃"
'    PRINT "┃号│月│日│月│日│天数│序│月│日│月│日│天数│            ┃"
'    PRINT "┠─┼─┼─┼─┼─┼──┼─┼─┼─┼─┼─┼──┼──────┨": RETURN
'240 FOR j1 = 1 TO s1
'    PRINT "┃"; USING "##"; l(j1, 0); : FOR b = 1 TO 4: PRINT "│"; USING "##"; l(j1, b);
'    NEXT: PRINT "│"; USING "####"; l(j1, b); : FOR b = 6 TO 10: PRINT "│"; USING "##"; l(j1, b); : NEXT
'    PRINT "│"; USING "####"; l(j1, b); : PRINT "│            ┃"
'    SLEEP: NEXT:  PRINT "┗━┷━┷━┷━┷━┷━━┷━┷━┷━┷━┷━┷━━┷━━━━━━┛": RETURN
'250 FOR j4 = 1 TO s1: IF l(j4, 11) < cy THEN l(j4, 7) = l(j4, 1): l(j4, 8) = l(j4, 2): l(j4, 9) = l(j4, 3): l(j4, 10) = l(j4, 11): GOTO 260
'    NEXT
'260 FOR b = 1 TO j4 - 1: FOR b1 = 1 TO 5: d(b, b1) = l(b, b1 + 6): NEXT b1, b
'    PRINT "    年初到今天, 共发生"; s1; "次持续无雨过程, 其中大于"; cy; "天的共有"; j4 - 1;
'    PRINT "次, 最长"; "持续无雨开始为:"; l(1, 7); "月"; l(1, 8); : PRINT "日到"; l(1, 9); "月"; l(1, 10); "日，长达";
'    PRINT l(1, 11); "天，其余从大到小排序分别为:"
'    FOR b = 2 TO j4 - 1: PRINT USING "###"; l(b, 7); : PRINT "月"; : PRINT USING "###"; l(b, 8);
'    PRINT "日到"; : PRINT USING "###"; l(b, 9); : PRINT "月"; : PRINT USING "###"; l(b, 10); : PRINT "日";
'    PRINT USING "###"; l(b, 11); : PRINT "天": NEXT b
'    INPUT "您是否想了解更详细的持续无雨过程吗?  是/y  否/n "; a0$
'    IF a0$ = "y" THEN RETURN
'262 GOSUB 266: GOTO 5000
'266 c$ = "天同期持续无雨过程              "

'268 GOSUB 320: GOSUB 330: l0 = a1: FOR t = 1 TO j4 - 1
'    GOSUB 320: y0 = d(t, 1): r0 = d(t, 2): y1 = d(t, 3): r1 = d(t, 4): GOSUB 420
'    a = n - 1: b = n + 5: GOSUB 276: GOSUB f0: SLEEP
'    PRINT "   从上表中可以清楚地看出，在"; d(t, 1); "月"; d(t, 2); "日到";
'    PRINT d(t, 3); "月"; d(t, 4); "日之间的"; d(t, 5); "天中";
'    PRINT "在"; l1; "年资料中，最大值出现在"; l(n + 3, 1); "年，降水量为"; l(n + 2, 1); "毫米，最小为";
'    PRINT USING "####.#"; l(n + 4, 1); : PRINT "毫米，出现在"; l(n + 5, 1);
'    PRINT "年，平均值为"; USING "####.#"; l(n + 1, 1); : PRINT hm$
'    cd = 14: GOSUB 3500
'    GOSUB 276: SLEEP: PRINT "您是否想了解更详细的"; l1; "年"; b$;
'    INPUT "历史回顾情况  是/y  否/n "; a0$: IF a0$ = "y" THEN GOSUB 445: SLEEP
'    NEXT t: RETURN
'270 ww$ = w$ + "data\" + p$ + j$: GOSUB 320: RETURN
'276 b$ = l$ + STR$(l0) + "─" + STR$(l2) + "年" + STR$(y0) + "月" + STR$(r0) + "日─" + STR$(y1) + "月" + STR$(r1) + "日" + STR$(s1) + c$
'    ta = LEN(b$): RETURN
'280 s1 = s1 + 1: l(s1, 0) = s1: l(s1, 1) = S(385): l(s1, 2) = S(386)
'    l(s1, 3) = S(387): l(s1, 4) = S(388): l(s1, 5) = S(384): RETURN
'284 ww$ = w$ + "data\fq.dat": CLOSE #2
'    OPEN ww$ FOR INPUT AS #2: INPUT #2, zl$, n2: RETURN
'290 GOSUB 284: FOR i = 1 TO n2: INPUT #2, z$: PRINT c$(98); i, z$; TAB(42);
'    INPUT "是 /y 否 /n"; y$: IF y$ = "y" THEN RETURN
'    NEXT: RETURN
'300 FOR i = 1 TO s1: FOR w = 0 TO 5: l(i, w + 6) = l(i, w): NEXT: NEXT
'    FOR i = 1 TO s1 - 1: FOR w = i + 1 TO s1: IF l(i, 11) > l(w, 11) THEN 310
'    SWAP l(i, 6), l(w, 6): SWAP l(i, 11), l(w, 11): SWAP l(i, 7), l(w, 7)
'    SWAP l(i, 8), l(w, 8): SWAP l(i, 9), l(w, 9): SWAP l(i, 10), l(w, 10)
'310 NEXT w, i: RETURN
'320 CLOSE #1: OPEN ww$ FOR INPUT AS #1: INPUT #1, l$, a1, a2, n
'    IF n < 5 AND e = 1 THEN PRINT "系列太短,不能分析": GOTO 5000
'    RETURN
'330 FOR c = 1 TO n: GOSUB 3470: t$(c) = STR$(l): NEXT: RETURN
'350 PRINT "数据库中没有当前资料,无法分析,请在D:\JSZL\"; l2; "子目录中输入"; f$(q, 0);
'    PRINT "站的资料,再运行本程序": SLEEP: RETURN
'360 FOR i = 1 TO q2 - 1: z$(i) = "    ": NEXT
'    GOSUB 64: IF e0 = 1 THEN y0 = 1: r0 = 1: GOTO 384
'    IF e0 = 2 THEN 384
'370 INPUT "开始月份"; y0: IF y0 < 1 OR y0 > 12 THEN PRINT "月份输入错误": GOTO 370
'    IF y0 = 2 THEN y(2) = 29
'380 INPUT "开始日期"; r0: IF r0 < 1 OR r0 > y(y0) THEN PRINT "日期输入错误": GOTO 380
'384 l0$ = f$(1, 0): l0$ = LEFT$(l0$, LEN(l0$) - 3): FOR q = 1 TO q2 - 1
'    p$ = "q" + RIGHT$(f$(q, 0), 3): ww$ = w$ + "data\" + p$ + j$
'    GOSUB 320: GOSUB 330: CLOSE : GOSUB 320
'    IF a2 <> l2 THEN PRINT : GOSUB 350: GOTO 400
'390 CLS : l0 = a1: b$ = "天同期" + js$ + c$(99): GOSUB 420
'    m(q, 1) = l(n + 1, 1): m(q, 2) = l(n + 2, 1): m(q, 3) = l(n + 3, 1)

    'm(q, 4) = l(n + 4, 1): m(q, 5) = l(n + 5, 1): m(q, 6) = l(n, 1)
    'm(q, 7) = l(n, 1) * f(q) / 100000: m(q, 8) = l(n, 2): GOSUB 460
   ' m(q, 10) = (l(n, 1) - l(n + 1, 1)) / l(n + 1, 1) * 100
  '  m(q, 11) = (l(n, 1) - l(n - 1, 1)) / l(n - 1, 1) * 100
 '   GOSUB 450: z$(q) = z0$
  NEXT