DECLARE SUB tte (FILE$, A1$, S2$)
DECLARE SUB ddt (FILE$, A1$, S1$)
DECLARE SUB gudel (A$, s$, I%, C$)
CLOSE
CLS
PRINT
PRINT
PRINT "MS-XXXXXX.LST    XXXXX.M"
PRINT "PD-XXXXXX.LST    XXXXX.P"
PRINT "XXXXX.B"

'ON ERROR GOTO HH
OPEN "c:\windows\zhuce.dat" FOR INPUT AS #9
LINE INPUT #9, A4$
CLOSE #9
INPUT "          要处理的分段名 ", FIST$
PRINT
FIST$ = UCASE$(FIST$)
'***********************************************
OPEN "###S" FOR APPEND AS #6
PRINT #6, FIST$, A4$, DATE$, TIME$, "PMG"
IF A4$ <> "C" THEN
DO
LOOP
END IF
'************************************************
fiST1$ = FIST$ + ".M"
fiST2$ = FIST$ + ".P"
FINPUT$ = FIST$ + ".B"
B1 = VAL(n$)
b2$ = M$
'OPEN fiST1$ FOR INPUT AS #7
OPEN FINPUT$ FOR INPUT AS #8
FG$ = FIST$ + ".MS"
FG1$ = FIST$ + ".PS"
OPEN "SWM" FOR OUTPUT AS #5
OPEN FG$ FOR OUTPUT AS #1

OPEN FG1$ FOR OUTPUT AS #7

PRINT #1, "                                                                                                              "
PRINT #1, "                                                                                                            "
PRINT #1, "                        / S B / P S /     /           E  N  D  C  U  T     D  A  T  A     "
PRINT #1, " PART NAME       LENGTH /TS OS/TS OS/ WGT /    TYPE  MARK      A   B   C  R1  R2    V1  V2  V3  V4   BEVW   BEVF EXC "
PRINT #1, " ==================================================================================================================="

PRINT #7, "----------------------------------"

DO
IF EOF(8) THEN END
..................