font "",12
Fname = "ファイル名.txt"
LineTop = 0
LineEnd = 11
dim AAData,65535
dim LineData,1024

exist Fname
FileSize = strsize
if FileSize>0 {
  bload Fname,AAData,FileSize
  notesel AAData
  notemax LineMax
  repeat LineEnd,LineTop
    if cnt>LineMax : break
    noteget LineData,cnt
    mes LineData
  loop
}
stop