util/5th2src.bas

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