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