Program to reformat dumped data
Posted: Mon Aug 28, 2017 11:55 pm
The following code did not work on my new computer but did on the old. They are both DELLs. The OPEN command gave errors.
Code: Select all
n$ = "dump.txt"
next$ = "12/45/7890"
OPEN n$ FOR INPUT AS #1
'
' locate first line of Merrill data
key$= mid$(next$,7,4)
do until key$ = "2017"
input #1, next$
key$= mid$(next$,7,4)
loop
merill$ = next$ + " ~ "
'
' read and combine data until first footer line
do until next$="Icon legend"
input #1, next$
key$ = "NO"
do until key$="2017"
input #1, next$
if next$ = "Pending" or next$ = "show details" then input #1, next$ 'skip extra comments
merill$ = merill$ + next$ + " ~ "
key$ = mid$(next$,7,4)
loop
print line$
merill$ = next$ + " ~ "
loop