open fileName$ for input as #pjtTntNam n=0 : redim pjtTntNam$(99) while not (eof(#pjtTntNam)) n = n+1 input #pjtTntNam, pjtTntNam$(n) wend close #pjtTntNam sort pjtTntNam$(),1,n open fileName$ for output as #pjtTntNam for n = 1 to n print pjtTntNam$(n) next close #pjtTntNam
|
for n = 1 to 1
for n = 1 to 0 next print n