0 home 1 h=0 2 onerr goto 200 10 print chr$(4);"open file" 20 print chr$(4);"read file" 30 input a$ 40 vtab h: print a$ 50 H=H+1:if h=20 then h=0:get a$ 60 goto 30 200 print chr$(4);"close" 210 print "got to end of file" 220 end in apple oasis, you can choose to print to a file... Instead of characters getting sent to your printer, they go into a TXT file on disk.