home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 January / Ahoy_Magazine_85-01_1985_Double_L.d64 / vic-tape_disk (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  3KB  |  19 lines
  1. 100 fori=7600to7600+66:reada:pokei,a:next
  2. 110 print"[147]      tape to disk transfer program "
  3. 120 print:print"insert and rewind tape to be copied"
  4. 130 print:print"insert disk into disk drive"
  5. 140 print:print"does the disk need to be formatted? y/n"
  6. 150 geta$:ifa$=""then150
  7. 160 ifa$><"y"thensys7600
  8. 170 input"name of disk";a$
  9. 180 input"disk id";b$
  10. 190 print"[147]"
  11. 200 print"open15,8,15"
  12. 210 print"p[210]15,"chr$(34)"n0:"a$","b$chr$(34)
  13. 220 print"sys7600":print"[145][145][145][145][145][145][145][145][145][145]"
  14. 230 poke631,13:poke632,13:poke633,13:poke198,3:end
  15. 910 data169,1,162,1,160,1,32,186,255,169,0,162,65,160,3,32,189,255,169,0
  16. 920 data32,213,255,169,8,162,8,160,255,32,186,255,169,20,162,65,160,3,32
  17. 930 data189,255,173,61,3,141,251,0,173,62,3,141,252,0,169,251,174,63,3,172
  18. 940 data64,3,32,216,255,76,176,29
  19.