00001 DECLARE FUNCTION asdf$ (F$)
00002 DECLARE FUNCTION TRIM$ (S$)
00003 DIM SHARED Byte AS STRING * 1
00004 OPEN "e4.h" FOR INPUT AS #1
00005 OPEN "e5.h" FOR OUTPUT AS #2
00006 CLS
00007 DIM j AS LONG
00008
00009 DO UNTIL EOF(1)
00010 INPUT #1, A$
00011 F$ = TRIM$(A$)
00012 G$ = F$ + STRING$(31 - LEN(F$), " ") + " = __J2K__" + F$ + ","
00013 PRINT #2, G$
00014 j = j + 1
00015 IF (j MOD 20) = 0 THEN SLEEP
00016
00017
00018 LOOP
00019 CLOSE
00020
00021 FUNCTION asdf$ (F$)
00022 OPEN F$ FOR BINARY AS #2
00023 FOR j = 1 TO LOF(2)
00024 GET #2, j, Byte
00025 PRINT Byte;
00026 NEXT
00027
00028 END
00029
00030 CLOSE #2
00031
00032 asdf$ = F$
00033 END FUNCTION
00034
00035 FUNCTION TRIM$ (S$)
00036 TRIM$ = LTRIM$(RTRIM$(S$))
00037 END FUNCTION
00038
