00001 DECLARE FUNCTION asdf$ (F$)
00002 DECLARE FUNCTION TRIM$ (S$)
00003 DIM SHARED Byte AS STRING * 1
00004 OPEN "list" FOR INPUT AS #1
00005 OPEN "list4" FOR OUTPUT AS #2
00006 CLS
00007 DIM j AS LONG
00008
00009 DO UNTIL EOF(1)
00010 INPUT #1, A$
00011 ' F$ = TRIM$(LEFT$(LTRIM$(A$), 9)) + ".hpp"
00012 b$ = TRIM$(A$)
00013 C$ = LEFT$(A$, LEN(A$) - 4)
00014 'F$ = "#include <j2k/lang/Error/" + B$ + ">"
00015 S$ = CHR$(34)
00016 D$ = LCASE$(LEFT$(C$, 1)) + RIGHT$(C$, LEN(C$) - 1)
00017 'F$ = C$ + "* " + D$ + "1 = new " + C$ + "();"
00018 'G$ = C$ + "* " + D$ + "2 = new " + C$ + "( new String(" + S$ + C$ + S$ + "));"
00019
00020 F$ = "delete " + D$ + "1;"
00021 G$ = "delete " + D$ + "2;"
00022
00023
00024 PRINT F$
00025 PRINT G$
00026 PRINT #2, F$
00027 PRINT #2, G$
00028
00029 LOOP
00030 CLOSE
00031
00032 FUNCTION asdf$ (F$)
00033 OPEN F$ FOR BINARY AS #2
00034 FOR j = 1 TO LOF(2)
00035 GET #2, j, Byte
00036 PRINT Byte;
00037 NEXT
00038
00039 END
00040
00041 CLOSE #2
00042
00043 asdf$ = F$
00044 END FUNCTION
00045
00046 FUNCTION TRIM$ (S$)
00047 TRIM$ = LTRIM$(RTRIM$(S$))
00048 END FUNCTION
00049
