gd.bas

来自「广州公交车查询程序」· BAS 代码 · 共 22 行

CLS
OPEN "GD.TXT" FOR INPUT AS #1
OPEN "GDout.TXT" FOR OUTPUT AS #2
DO
  INPUT #1, a$
  IF a$ = "" THEN GOTO labelnext
  IF RIGHT$(a$, 1) = ";" THEN a$ = MID$(a$, 1, LEN(a$) - 1)
  le = INSTR(1, a$, "-")
  IF le = 0 THEN
    PRINT #2, a$
  ELSE
    b$ = MID$(a$, 1, le - 1)
    PRINT #2, b$
    b$ = MID$(a$, le + 1)
    PRINT #2, b$
  END IF
labelnext:
LOOP UNTIL EOF(1)
CLOSE