65274 stop
65275 clear 59999
65276 load "code_t" code 60000
65277 let a$="":let l=1:for i=60000 to 120000:let q=peek(i)
65278 if q=10 or q=13 then keyin a$:print at 1,1;"lines:";str$(l):let l=l+1:let a$="":else let a$=a$+chr$(q)
65279 next i

