Main Page   Packages   Namespace List   Class Hierarchy   Alphabetical List   Compound List   File List   Compound Members   File Members   Search  

C:/temp/src/j2k/Deprecated/Error.old/1.BAS

Go to the documentation of this file.
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 

Generated on Sun Oct 14 18:46:19 2001 for Standard J2K Library by doxygen1.2.11.1 written by Dimitri van Heesch, © 1997-2001