OPEN "text.txt" FOR OUTPUT AS #1
s$ = ""
DO
  INPUT s$
  WRITE #1, s$
LOOP UNTIL s$ = "bye"
CLOSE
OPEN "text.txt" FOR INPUT AS #1
s$ = ""
DO
  INPUT #1, s$
  IF s$ = "bye" THEN EXIT DO
  PRINT s$
LOOP
END