10 extend 1000 on error go to 19000 & \ print 'Input file '; & \ input line infile$ & \ open edit$(infile$,4%) for input as file #1 & \ print 'Output file '; & \ input line outfile$ & \ open edit$(outfile$,4%) for output as file #2, & organization virtual & \ dim #2, idx$(127%) = 16%, txt$(32767%) = 64% & \ idx$(i%) = space$(16%) for i% = 0% to 127% & \ idx$(0%) = 'JUNK 0000000000' & \ fr% = ( 16%*128% ) / 64% & \ fr% = 0% & \ nx% = 0% & 1020 while -1% & \ input line #1,l$ & \ l$ = edit$(l$,4%) & \ if left(l$,1%) = '1' & then & idx$(idx%) = left(idx$(idx%),11%)+fnc$(lc%) & \ idx% = idx%+1% & \ l$ = edit$(right(l$,2%),255%) & \ idx$(idx%) = left(l$+space$(6%),6%)+fnc$(fr%) & \ idx$(idx%+1%)='................' & \ lc% = 0% & \ go to 2000 & 1040 txt$(nx%) = l$ & \ lc% = lc% + 1% & \ fr% = fr% + 1% & \ nx% = nx% + 1% & 2000 next & 3000 def fnc$(i%) & \ fnc$ = space$( 5%-len(num1$(i%)) )+num1$(i%) & \ fnend & 19000 print erl,err,ert$(err) & \ close #1,#2 & \ resume 32767 32767 end