1 ' Utility to convert given file from special FSCII encoding to ASCII encoding.
3 DECLARE SUB getline (line$)
4 DECLARE SUB initializeProgram ()
5 DIM SHARED byte AS STRING * 1
10 OPEN COMMAND$ + ".5th" FOR BINARY AS #1
11 OPEN COMMAND$ + ".src" FOR OUTPUT AS #2
13 ' Start reading lines from the file
16 IF endOfFile = 1 THEN GOTO 2
32 ' Start reading bytes from the file
34 IF EOF(1) <> 0 THEN endOfFile = 1: GOTO 4
37 ' Convert non-printable characters to printable ones
38 IF ASC(byte) <= 9 THEN
39 byte = CHR$(48 + ASC(byte))
41 IF ASC(byte) <= 15 THEN
42 byte = CHR$(65 + ASC(byte) - 10)
44 IF ASC(byte) = 255 THEN
47 IF ASC(byte) = 253 THEN
51 ' Check for end of line character
52 IF byte = CHR$(254) THEN GOTO 4
65 ' Check if the command-line argument is empty
66 IF COMMAND$ = "" THEN END