tools/5th2src.bas

   1 DECLARE SUB getline (a$)
   2 DECLARE SUB start ()
   3 DIM SHARED byte AS STRING * 1
   4 DIM SHARED endf
   5
   6 start
   7
   8 OPEN COMMAND$ + ".5th" FOR BINARY AS #1
   9 OPEN COMMAND$ + ".src" FOR OUTPUT AS #2
  10
  11 1
  12 getline a$
  13 IF endf = 1 THEN GOTO 2
  14 PRINT #2, a$
  15 GOTO 1
  16 2
  17
  18 CLOSE #2
  19 CLOSE #1
  20
  21 SYSTEM
  22
  23 SUB getline (a$)
  24
  25 a$ = ""
  26 3
  27 IF EOF(1) <> 0 THEN endf = 1: GOTO 4
  28 GET #1, , byte
  29 IF ASC(byte) <= 9 THEN
  30   byte = CHR$(48 + ASC(byte))
  31 END IF
  32 IF ASC(byte) <= 15 THEN
  33   byte = CHR$(65 + ASC(byte) - 10)
  34 END IF
  35 IF ASC(byte) = 255 THEN
  36   byte = " "
  37 END IF
  38 IF ASC(byte) = 253 THEN
  39   byte = CHR$(9)
  40 END IF
  41
  42 IF byte = CHR$(254) THEN GOTO 4
  43 a$ = a$ + byte
  44 GOTO 3
  45 4
  46
  47 END SUB
  48
  49 SUB start
  50 endf = 0
  51 IF COMMAND$ = "" THEN END
  52 END SUB
  53