1 DECLARE SUB chl (a$, b$)
\r
2 DECLARE SUB getline (a$)
\r
4 DIM SHARED byte AS STRING * 1
\r
10 OPEN COMMAND$ + ".src" FOR INPUT AS #1
\r
11 IF er = 0 THEN KILL COMMAND$ + ".5th"
\r
12 OPEN COMMAND$ + ".5th" FOR BINARY AS #2
\r
15 IF EOF(1) <> 0 THEN GOTO 2
\r
20 FOR b = 1 TO LEN(a$)
\r
21 d$ = RIGHT$(LEFT$(a$, b), 1)
\r
22 IF d$ = " " THEN chl e$, c$: c$ = c$ + CHR$(255): GOTO 3
\r
23 IF d$ = CHR$(9) THEN chl e$, c$: c$ = c$ + CHR$(253): GOTO 3
\r
29 FOR b = 1 TO LEN(c$)
\r
30 byte = RIGHT$(LEFT$(c$, b), 1)
\r
45 FOR c = 1 TO LEN(a$)
\r
46 d = ASC(RIGHT$(LEFT$(a$, c), 1))
\r
47 IF (d >= 48) AND (d <= 57) THEN d = d - 48: GOTO 4
\r
48 IF (d >= 65) AND (d <= 70) THEN d = d - 55: GOTO 4
\r
49 IF (d = 45) AND (c = 1) THEN GOTO 4
\r
62 IF COMMAND$ = "" THEN END
\r