10 Open #0,name$,"input"
20 begin%=2:end%=6
30 POINT #0,begin%
40 for i%=begin% to end%
50 POINT #0,i%
60 INPUT #0,a%
70 S$=S$+CHR$(a%)
80 next i%
85 CLOSE #0
90 print S$
100 sl 5000