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