printing line numbers

[zzz000abc]


b$="inkey.bas"
b$=readf$(b$)
kk=lck(b$)
 for i=1 to kk
  c$=word$(b$,i,chr$(10))
     if trim$(c$)<>"" then j=j+1:print j,c$ 'skip empty lines
     'print i,c$  'dont skip empty lines
 next
function lck(st$)
  k=0
 while word$(st$,k+1,chr$(10))<>""
  k=k+1
 wend
   lck=k
end function
function readf$(fnam$)
  open fnam$for binary as #f1
  a$=""
while eof(#f1)=0
  a$=a$+input$(#f1,1)
wend
  'a$=a$+"EOF "+str$(eof(#f1)) 'print EOF value
  close #f1
  readf$=a$
end function


---

EDIT: [ code ] tags added

[tsh73]

Your program works. And that's a good thing.
But "readf" part could be made a bit simpler
function readf$(fnam$)
 open fnam$ for binary as #f1
   readf$=input$(#f1,lof(#f1))
 close #f1
end function


[zzz000abc]

Aug 20, 2018 20:30:08 GMT tsh73 said:

Your program works. And that's a good thing.
But "readf" part could be made a bit simpler
function readf$(fnam$)
 open fnam$ for binary as #f1
   readf$=input$(#f1,lof(#f1))
 close #f1
end functionthank you tsh for simpler function