Apple II text files (again)

[<F0O@psuvm.psu.edu>]

   Thanks everyone for your help, but unfortunately my routine still isn't
working.  I'm using an apple IIe with Dos 3.3.  Below is a listing of
the relevant parts of my program:

10 ONERR GOTO 282
20 D$ = CHR$(4)
30 RT$ = CHR$(13)
32 T$ = CHR#(1)
87 LN$ = ""
90 HOME
100 INPUT "ENTER PRETEST DATE ";DT$
110 INPUT "ENTER NAME OF OUTPUT FILE ";OF$
130 PRINT D$;"OPEN ";FL$;",D1"
132 PRINT D$;"APPEND ";OF$;",D2"
140 PRINT D$;"READ ";FL$
160 GET CH$
170 LN$ = LN$ + CH$
180 IF CH$ <> RT$ THEN GOTO 160
210 PRINT D$;"WRITE ";OF$
220 PRINT LN$
222 GOTO 140
250 END
270 REM ERROR HANDLING ROUTINE
282 PRINT D$;"CLOSE ";OF$
284 PRINT D$;"CLOSE ";FL$
286 POKE 216,0
290 GOTO 87

   Ok, what happens is the print statements go out to the screen, instead
of the disk file.  So does the write statement in line 210.
So what I see is:
   WRITE filename
   Print statement output
   Print statement output

   If anyone has any idea what is wrong, please let me know.  This is
driving me up the wall!

                                                          [Tim]