1 DECLARE SUB getline (a$)
\r
3 DIM SHARED byte AS STRING * 1
\r
8 OPEN COMMAND$ + ".5th" FOR BINARY AS #1
\r
9 OPEN COMMAND$ + ".src" FOR OUTPUT AS #2
\r
13 IF endf = 1 THEN GOTO 2
\r
27 IF EOF(1) <> 0 THEN endf = 1: GOTO 4
\r
29 IF ASC(byte) <= 9 THEN
\r
30 byte = CHR$(48 + ASC(byte))
\r
32 IF ASC(byte) <= 15 THEN
\r
33 byte = CHR$(65 + ASC(byte) - 10)
\r
35 IF ASC(byte) = 255 THEN
\r
38 IF ASC(byte) = 253 THEN
\r
42 IF byte = CHR$(254) THEN GOTO 4
\r
51 IF COMMAND$ = "" THEN END
\r