home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1989 / USER1189.MSA / COPYDISC.BAS < prev    next >
BASIC Source File  |  1989-09-03  |  959b  |  40 lines
  1. REM Backup Cover Disc
  2. REM (Double sided 81 track x 10 sectors)
  3. REM Compile with HiSoft Basic
  4. REM By R.A.Waddilove
  5. REM Last altered 10/8/89
  6.  
  7. LIBRARY "XBIOS"
  8.  
  9. DIM a%(220000)
  10. buffer& = VARPTR(a%(0))
  11.  
  12. ? "********** Copy disc **********"
  13. ?:INPUT "1 or 2 sides";sides%
  14. ?:INPUT "How many tracks";tracks%
  15.  
  16. FOR s%=0 TO sides%-1
  17.     CALL copy(s%)
  18. NEXT
  19. GOTOXY 0,15: INPUT "All done.....hit Return";a$
  20. SYSTEM
  21.  
  22. SUB copy(side%)
  23. SHARED buffer&,tracks%
  24. GOTOXY 0,6 : ? "Copying side";side%
  25. GOTOXY 0,8 : INPUT "Insert source disc, then press Return";a$
  26. buf&=buffer&
  27. FOR track% = 0 TO tracks%-1
  28.     GOTOXY 0,9 : ? "Reading track"track%;
  29.     buf&=buf&+512*10
  30.     IF FNfloprd%(buf&,0,1,track%,side%,10) THEN SYSTEM
  31. NEXT
  32. GOTOXY 0,11 : INPUT "Insert destination disc, then press Return";a$
  33. buf&=buffer&
  34. FOR track% = 0 TO tracks%-1
  35.     GOTOXY 0,12 : ? "Writing track";track%;
  36.     buf&=buf&+512*10
  37.     IF FNflopwr%(buf&,0,1,track%,side%,10) THEN SYSTEM
  38. NEXT
  39. END SUB
  40.