Re: copying BIOS to a file

"Auric__" <not.my.real@[EMAIL PROTECTED]
> wrote in message 
news:fk93cr$p38$1@[EMAIL PROTECTED]
> On Tue, 18 Dec 2007 18:28:57 GMT, Tom Lake wrote:

>> It looks like I was missing something!  I believe you're right.
>>
>> DEF SEG = &HC000
>> OPEN "BIOS.BIN" FOR OUTPUT AS #1
>> FOR I=0 TO &HFFFF
>> PRINT #1, CHR$(PEEK(I));
>> NEXT
>> DEF SEG=&HD000
>> FOR I=0 TO &HFFFF
>> PRINT #1, CHR$(PEEK(I));
>> NEXT
>> DEF SEG=&HE000
>> FOR I=0 TO &HFFFF
>> PRINT #1, CHR$(PEEK(I));
>> NEXT
>> DEF SEG=&HF000
>> FOR I=0 TO &HFFFF
>> PRINT #1, CHR$(PEEK(I));
>> NEXT
>> CLOSE #1
>>
>> Tom Lake
>
> How about:
> OPEN "BIOS.BIN" FOR OUTPUT AS 1
> FOR J = &HC0000 TO &HF0000 STEP &h10000
> DEF SEG J
> FOR I = 0 TO &hFFFF
> PRINT #1, CHR$(PEEK(I));
> NEXT I
> NEXT J
> CLOSE 1

How about that!

Would you believe I was going for clarity rather than brevity?
Would you believe I just didn't think of it?  8^)

Tom Lake