Go to the source code of this file.
Functions | |
DECLARE FUNCTION | asdf (F$) DECLARE FUNCTION TRIM$(S$) DIM SHARED Byte AS STRING *1 OPEN"e3.h"FOR INPUT AS#1 OPEN"e4.h"FOR OUTPUT AS#2 CLS DIM j AS LONG DO UNTIL EOF(1) INPUT#1, A$F$=LTRIM$(MID$(A$, 16, 32)) PRINT#2, F$PRINT G$j=j+1 IF(j MOD 20)=0THEN SLEEP LOOP CLOSE FUNCTION asdf$(F$) OPEN F$FOR BINARY AS#2 FOR j=1 TO LOF(2) GET#2, j, Byte PRINT Byte |
|
|