RE: Transfer a 8250 diskette

Hi all,

Good news, I transfered all the files. It took me all Saturday but it
worked. I used my small BASIC program with the addition of chr$(0).

I transfered all the files from the 8250lp to the Micro Power 2000. Then I
took those disks and put them into a 1541 and with Star Commander I put
them on a PC. Then with USB to my laptop. Then I transfered the 1541 files
to a 8250 with VICE.

The disks are for the Proxa 7000 expansion for the PET 700.
http://www.richardlagendijk.nl/cip/brochure/item/proxa_7000_01/en

Here are the disks:
http://www.richardlagendijk.nl/div/proxa7000.d82
http://www.richardlagendijk.nl/div/proxa7000+++.d82

Thank you all for helping me.
And maybe now we can get a Proxa 7000 up and running.

Richard





Op Za, 5 november, 2011 8:02 pm schreef Ed Johnson:
>

>
> To scratch an existing file before writing it use the "@S"
> open 3,9,3,"@S0:"+nm$+",p,w"
>
> Best regards,
> Ed Johnson
>
>
> "What ever you do, don't look back." - God
>
>
> -----Original Message-----
> From: owner-cbm-hackers@musoftware.de
> [mailto:owner-cbm-hackers@musoftware.de] On Behalf Of Spiro Trikaliotis
> Sent: Saturday, November 05, 2011 2:05 PM
> To: cbm-hackers@musoftware.de
> Subject: Re: Transfer a 8250 diskette
>
>
> Hello,
>
>
> just to add what Nicolas already wrote (chr$(0)::
>
> * On Sat, Nov 05, 2011 at 12:34:24PM +0100 r.lagendijk@hccnet.nl wrote:
>
>
>>
>> 10 nm$="8032-700-asc-ns"
>> 20 open 2,8,2,"1:"+nm$+",p,r"
>> 30 open 3,9,3,"0:"+nm$+",p,w"
>> 40 get#2,a$
>> 50 if st=64 then goto 80
>>
>
> IIRC, this is wrong. ST=64 is set when you just read the last byte.
> Thus, you end with a file that is one byte shorter than the original one.
>
>
> So, you have to "print#3,a$;" *before* doing the check in line 50.
>
>
> thus, change it to:
>
> 45 print#3,a$;
> 50 if st=64 then goto 80
> 60 goto 40
>
>
> Or, what is seen most often:
>
>
> 50 print#3,a$;
> 60 if st<>64 goto 80
>
>
>> 60 print#3,a$;:goto 40
>> 80 close 2:close 3
>> 90 end
>>
>
> And don't forget to add something like
>
>
> 42 if a$="" then a$=chr$(0)
>
>
> or similar logic.
>
> Regards,
> Spiro.
>
>
> --
> Spiro R. Trikaliotis                              http://opencbm.sf.net/
> http://www.trikaliotis.net/                     http://www.viceteam.org/
>
>
> Message was sent through the cbm-hackers mailing list
>
>
>
> Message was sent through the cbm-hackers mailing list
>
>


-- 

www.richardlagendijk.nl


       Message was sent through the cbm-hackers mailing list