20 lines
318 B
Plaintext
Executable File
20 lines
318 B
Plaintext
Executable File
f1 = open("Help_En.dat", "r")
|
|
f2 = open("Help_En_Index.dat", "w")
|
|
|
|
while(instr(a$, "& infotext") = 0)
|
|
line input #f1 a$
|
|
wend
|
|
|
|
while(not eof(f1))
|
|
line input #f1 a$
|
|
print #f2 a$
|
|
print #f2 tell(#f1)
|
|
while(left$(a$,1)<>"&" or left$(a$,10)="&exverbatim")
|
|
line input #f1 a$
|
|
print a$
|
|
wend
|
|
wend
|
|
|
|
close(f2)
|
|
close(f1)
|