home *** CD-ROM | disk | FTP | other *** search
/ Executor 2.0 / executorv2.0.iso / pc / dos / extra / docs / maillist / text / archive.96 / text4261.txt < prev    next >
Encoding:
Text File  |  1996-07-25  |  1.2 KB  |  42 lines
  1.     id m0u56Rh-0007rPa; Fri, 5 Apr 96 01:00 MST
  2. Sender: owner-executor
  3. Received: by ftp.ardi.com (Smail3.1.29.1 #3)
  4.     id m0u56Ed-0007rQC; Fri, 5 Apr 96 00:47 MST
  5. Received: from ac.central.edu by ftp.ardi.com with smtp
  6. Message-id: <960405014528.20417d05@central.edu>
  7. Subject: stripping disk dup+ image files
  8. To: executor@ardi.com
  9. From: Twerp <CAVANY@central.edu>
  10. Date: Fri, 5 Apr 1996 1:45:28 -0600 (CST)
  11. Sender: owner-executor@ardi.com
  12. Precedence: bulk
  13.  
  14. The previously posted qbasic program to strip the first 85 bits should
  15. work, but the two files must be opened as binary files NOT as input and output.
  16. So, the program would have to look something like...
  17.  
  18. ' Program to convert an image file to a usable .hfv
  19. files
  20. input "Enter image filename: ",image$
  21. input "Enter HFV filename:   ",hfv$
  22. x1&=1
  23. a=0
  24. cls
  25. do
  26.     while ( x1& < 85 )
  27.         get #1,x1&,a
  28.         x1&=x1&+1
  29.     wend
  30.     x2&=x1&-84
  31.     get #1,x1&,a
  32.     put #2,x2&,a
  33.     locate 12,1:?"Bytes copied:";
  34.     print  using "############";x2&
  35. until ( eof(1))
  36. close #1,#2
  37.  
  38. Hell, I don't have a quikbasic compiler... so, if someone DOES have one and
  39. creates an executable -- post it somewhere? ;)  Otherwise, just run this from
  40. qbasic. :)
  41.  
  42.