[Prev][Next][Index][Thread]
stripping disk dup+ image files
The previously posted qbasic program to strip the first 85 bits should
work, but the two files must be opened as binary files NOT as input and output.
So, the program would have to look something like...
' Program to convert an image file to a usable .hfv
files
input "Enter image filename: ",image$
input "Enter HFV filename: ",hfv$
x1&=1
a=0
cls
do
while ( x1& < 85 )
get #1,x1&,a
x1&=x1&+1
wend
x2&=x1&-84
get #1,x1&,a
put #2,x2&,a
locate 12,1:?"Bytes copied:";
print using "############";x2&
until ( eof(1))
close #1,#2
Hell, I don't have a quikbasic compiler... so, if someone DOES have one and
creates an executable -- post it somewhere? ;) Otherwise, just run this from
qbasic. :)