home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1989 / USER1189.MSA / TINYCOPY.BAS < prev    next >
BASIC Source File  |  1989-09-03  |  961b  |  40 lines
  1. REM Backup Cover Disc (81 track x 10 sectors)
  2. REM Compile with HiSoft Basic
  3. REM By R.A.Waddilove
  4. REM Last altered 10/8/89
  5.  
  6. LIBRARY "XBIOS"
  7.  
  8. DIM a%(110000)
  9. buffer& = VARPTR(a%(0))
  10.  
  11. ? "********** Copy disc **********"
  12. ?:INPUT "1 or 2 sides";sides%
  13. ?:INPUT "How many tracks";tracks%
  14.  
  15. FOR s%=0 TO sides%-1
  16.     CALL copy(s%,0,39)
  17.     CALL copy(s%,40,tracks%-1)
  18. NEXT
  19. GOTOXY 0,15: INPUT "All done.....hit Return";a$
  20. SYSTEM
  21.  
  22. SUB copy(side%,i%,j%)
  23. SHARED buffer&
  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% = i% TO j%
  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% = i% TO j%
  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.