home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1989 / USER1189.MSA / APB.BAS next >
BASIC Source File  |  1989-09-03  |  640b  |  29 lines
  1. REM Make APB disc
  2.  
  3. LIBRARY "XBIOS"
  4.  
  5. a$=STRING$(185000,0)
  6. buffer& = (SADD(a$)+1) AND &HFFFFFFFE
  7.  
  8. BLOAD "apb1",buffer&
  9. ?"Put a blank formatted disc"
  10. INPUT"in drive A then press Return";a$
  11. ?:?"Creating APB disc"
  12. CALL writetracks(0,39)
  13. ?:INPUT "Insert Cover Disc, then press Return";a$
  14. BLOAD "apb2",buffer&
  15. ?:INPUT "Insert APB disc, then press Return";a$:?
  16. CALL writetracks(40,79)
  17. ?:INPUT "Press RESET button";a$
  18. SYSTEM
  19.  
  20. SUB writetracks(start%,finish%)
  21. SHARED buffer&
  22. buf&=buffer&
  23. IF FEXISTS("APB1") THEN STOP
  24. FOR track% = start% TO finish%
  25.     IF FNflopwr%(buf&,0,1,track%,0,9) THEN STOP
  26.     buf&=buf&+512*9
  27. NEXT
  28. END SUB
  29.