00001 OPEN "1.txt" FOR INPUT AS #1
00002
00003 OPEN "2.txt" FOR OUTPUT AS #2
00004
00005
00006
00007 'DIM Enr AS STRING * 77
00008
00009 CLS
00010
00011 FOR i% = 0 TO 172
00012
00013 'GET #1, i%, Enr
00014
00015 INPUT #1, A$
00016
00017 INPUT #1, B$
00018
00019
00020
00021 COLOR 12
00022
00023
00024
00025 'PRINT ">"; Enr; "<"
00026
00027
00028
00029 F$ = RIGHT$(LTRIM$(RTRIM$(A$)), 3)
00030
00031 G$ = LTRIM$(RTRIM$(B$))
00032
00033
00034
00035 IF G$ <> "" THEN
00036
00037
00038
00039 MID$(G$, 1, 2) = " "
00040
00041 MID$(G$, LEN(G$) - 2, 3) = " "
00042
00043 H$ = LTRIM$(RTRIM$(G$))
00044
00045 J$ = RIGHT$(H$, LEN(H$) - 8)
00046
00047 H$ = LTRIM$(RTRIM$(J$))
00048
00049
00050
00051 K$ = CHR$(34)
00052
00053 V% = VAL(F$)
00054
00055
00056
00057 IF V% < 100 THEN S$ = " "
00058
00059 IF V% < 10 THEN S$ = " "
00060
00061 C$ = "/*" + S$ + LTRIM$(STR$(V%)) + " */ " + K$ + H$ + K$ + ","
00062
00063
00064
00065 IF V% = i% THEN
00066
00067 PRINT #2, C$
00068
00069 ELSE
00070
00071 ' FOR J% = i% TO V% - 1
00072
00073 ' D$ = "/*" + S$ + LTRIM$(STR$(J%)) + " */ " + K$ + K$ + ","
00074
00075 ' PRINT #2, D$
00076
00077 ' NEXT
00078
00079 PRINT #2, C$
00080
00081 END IF
00082
00083
00084
00085 END IF
00086
00087 NEXT
00088
00089
00090
