10 dim cf$(255) : dim ct$(255) 20 dim eb(255) : dim bu(255) 30 open "SFGetFile" for input as #3 40 t$ = errorstatus$ 50 input #3,a$ 60 print a$ 70 input #3,a$ 80 print a$ 90 hl = val(a$) 100 if hl = 0 then hl = val(mid$(a$,2,1)) 110 print hl 120 input #3,a$ 130 print a$ 140 fa = val(a$) 150 if fa = 0 then gosub 490 160 print fa 170 for i = 1 to fa 180 input #3,cf$(i) : print cf$(i),"filename" 190 input #3,bu(i) : print bu(i),"filesize" 200 input #3,ct$(i) : print ct$(i),"filetype" 210 input #3,eb(i) : print eb(i),"bytes end block" 220 next i 230 close #3 240 x$ = inputbox("just click on 'OK' or 'CANCEL'"," dissolve lynx17 files "," yes ",0)'" 250 if len(x$) = 0 then stop 260 x$ = inputbox("file name wanted here ","COMMODORE DIRECTORY INFO ","original_directory_info",0)'" 270 if len(x$) = 0 then goto 330 280 open (x$)for output as #4 290 for i = 1 to fa 300 print #4,cf$(i);" ";ct$(i);" ";bu(i) 310 next i 320 close #4 330 open (t$)for input as #3 335 for i = 1 to (hl*254) 340 a = fgetbyte #3 341 next i 350 rem 360 for i = 1 to fa 365 print "working on ";cf$(i) 370 open (cf$(i))for output as #4 375 j = bu(i)-1 376 j = j*254 377 j = j+eb(i) 380 for d = 1 to (j-1) 390 a = fgetbyte #3 400 fputbyte (a),#4 410 next d 420 close #4 425 if eof(3) then goto 470 430 for d = 1 to (255-eb(i)) 440 a = fgetbyte #3 450 next d 460 next i 470 close #3 475 print "FINISHED" 480 end 490 rem 500 fa = val(mid$(a$,2)) 510 if fa > 0 then return 520 fa = val(mid$(a$,3)) 530 return