SEQ2PRG

Boray · Post by **Boray** » Sat Jan 22, 2005 7:40 am

I had a problem to copy SEQ files to my Amiga, so
I made a little program:

5 printchr$(14);"SEQ to PRG - By Anders Persson 2004"
10 input"Input SEQ file";a$:ifa$="$"thendirectory:goto10
15 open2,8,2,"0:"+a$+",s,r"
20 input"Output PRG file";a$
25 open3,8,3,"0:"+a$+",p,w"
30 get#2,a$:ifst<>0thenclose2:close3:end
40 print#3,a$;:goto30

/Anders

carlsson · Post by **carlsson** » Sat Jan 22, 2005 12:35 pm

Single line version: OPEN 1,8,15,"C0:OUTPUT,P=INPUT,S"

BTW, the "directory" command either requires Basic 3.5 or higher or some kind of Basic expansion.

Mike · Post by **Mike** » Sat Jan 22, 2005 1:43 pm

Of course Boray's solution still makes sense, if I were about to extract certain parts of a file. But apart from Carlsson's one-liner for the whole-file copy, I'd also like to point out, that zero-valued bytes are read as empty strings by GET#!

Thus, line 40 should be replaced by:

40 PRINT#3,LEFT$(A$+N$,1);:GOTO30

with:

27 N$=CHR$(0)

Michael

tlr · Post by **tlr** » Sat Jan 22, 2005 4:46 pm

carlsson wrote:Single line version: OPEN 1,8,15,"C0:OUTPUT,P=INPUT,S"

Really nice tip there! I never saw any real use for the DOS copy stuff on single drives, but here it is perfect. Should be alot faster aswell, and it will not block the computer while doing it!

/Daniel

Boray · Post by **Boray** » Sun Jan 23, 2005 6:40 am

How cool! Thanks Anders! I had no idea that could be done.

And also thanks to Mike! I didn't know that either...

/Anders

carlsson · Post by **carlsson** » Mon Jan 24, 2005 3:36 am

Actually, the transfer program on the Amiga side should somehow be able to load SEQ files too, probably by specifying file type to the file name, but there may be other situations when you wish to copy or rename a file with a different file type.