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