Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement