0 gosub 2
1 end
2 '
3 uaCmdLine$ = dir$
4 dumperSleep% = 0.003
5 printArrLen% = 0
6 if len(argv$(1)) then dumperSleep% = val(argv$(1))
7 if len(argv$(2)) then printFileName$ = argv$(2) : gosub 31 : return
8 gosub 12
9 gosub 42
10 gosub 52
11 return
12 '
13 delimiter$ = " "
14 piaArrLen% = 0
15 gosub 17
16 return
17 '
18 tstr$ = ""
19 for piaIdx% = 1 to len(uaCmdLine$)
20 if mid$(uaCmdLine$, piaIdx%, 1) = delimiter$ then goto 25
21 tstr$ = tstr$ + mid$(uaCmdLine$, piaIdx%, 1)
22 if piaIdx% = len(uaCmdLine$) then goto 25
23 next piaIdx%
24 return
25 '
26 if len(tstr$) = 0 then goto 23
27 piaArrLen% = piaArrLen% + 1
28 piaArr$(piaArrLen%) = tstr$
29 tstr$ = ""
30 goto 23
31 '
32 if len(printFileName$) = 0 then print "%glob: file not found" : return
33 if pos(" " + dir$ + " ", " " + printFileName$ + " ") = 0 then print "%glob: file not found" : return
34 open printFileName$, as #1
35 '
36 if eof(1) = -1 then goto 39
37 input# 1, a$: print a$: sleep dumperSleep%
38 goto 35
39 '
40 close #1
41 return
42 '
43 for i% = 1 to piaArrLen%
44 if not pos("exe gam .a2 .c8 .vt ", right$(piaArr$(i%), 3) + " ") then gosub 47
45 next
46 return
47 '
48 print "%dumper '" + piaArr$(i%) "'"
49 input "? ", inputText$
50 if inputText$ = "" then printArr$(printArrLen%) = piaArr$(i%) : printArrLen% = printArrLen% + 1
51 return
52 '
53 for i% = 1 to printArrLen% - 1
54 printFileName$ = printArr$(i%)
55 print "[dumper ";printFileName$;"]" : sleep 0
56 gosub 31
57 print "%print complete ";printFileName$ : sleep 0
58 print : sleep 0
59 sleep 1
60 next
61 return
62
renumber
save _dumper.bas
q