1 DECLARE SUB bytew (fi&, d&, addr&)
2 DECLARE SUB byter (fi&, addr&, d&)
3 DECLARE SUB dwordw (fi&, b&, a&)
6 DECLARE SUB savepath ()
7 DECLARE SUB getson (a$)
10 DIM SHARED mitus, sona$(1 TO 50)
11 DIM SHARED byte AS STRING * 1
17 OPEN "..\disk.raw" FOR BINARY AS #1
20 OPEN srcfile$ FOR BINARY AS #2
22 IF EOF(2) <> 0 THEN GOTO 1
29 dwordw 1, length - 1, 2000000
34 SUB byter (fi, addr, d)
40 SUB bytew (fi, d, addr)
52 f = f + d * 65536 + c * 256 + b
58 c = c - (d * 16777216)
78 c$ = RIGHT$(LEFT$(a$, b), 1)
87 sona$(mitus) = sona$(mitus) + c$
99 c$ = RIGHT$(LEFT$(a$, b), 1)
100 IF c$ = "." THEN m = 1: GOTO 3
102 IF ext$ = "" THEN ext$ = "list"
103 4 IF LEN(ext$) < 4 THEN ext$ = ext$ + "_": GOTO 4
104 t$ = t$ + ext$ + f$ + "\"
109 IF m = 0 THEN f$ = f$ + c$ ELSE ext$ = ext$ + c$
112 t$ = LEFT$(t$, LEN(t$) - 1)
128 IF COMMAND$ = "" THEN END