home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 January / Ahoy_Magazine_88-01_1988_Double_L.d64 / Clone-a-Matic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.8 KB  |  48 lines
  1. 10 rem *** clone-a-matic *** buck childress ***
  2. 20 rem *** p.o. box 13575, salem, or  97309 ***
  3. 30 print"[147]loading data...":forj=53000to53182:reada:pokej,a:x=x+a:nextj
  4. 40 ifx<>28499thenprint"error in data...":end
  5. 50 poke808,234:poke52,32:poke56,32
  6. 60 clr:print"[147]insert source disk";:gosub250
  7. 70 print"name of file (press $ for"
  8. 80 input"the directory)";n$
  9. 90 ifn$="$"thensys53087:goto70
  10. 100 iflen(n$)<1orlen(n$)>16thenprint"1 to 16 characters...":goto70
  11. 110 input"type of file - prg/seq/usr (p/s/u)";t$
  12. 120 ift$<>"p"andt$<>"s"andt$<>"u"then110
  13. 130 gosub290:ifer=1then220
  14. 140 open5,8,5,n$+","+t$+",r":gosub300:ifer=1then220
  15. 150 print"reading...":sys53000:gosub300:close5:close15:ifer=1then220
  16. 160 ifpeek(252)>206thenprint"file too long to copy...":goto220
  17. 170 print"insert backup disk";:poke198,0:gosub250
  18. 180 gosub290:ifer=1then220
  19. 190 open5,8,5,n$+","+t$+",w":gosub300:ifer=1then220
  20. 200 print"writing...":sys53043:gosub300:close5:close15:ifer=1then220
  21. 210 print"copy complete..."
  22. 220 input"copy another file (y/n)";f$
  23. 230 iff$="y"then60
  24. 240 goto280
  25. 250 print", then press return.":print"press q to quit."
  26. 260 geta$:ifa$=chr$(13)thenreturn
  27. 270 ifa$<>"q"then260
  28. 280 poke52,160:poke56,160:clr:poke808,237:end
  29. 290 open15,8,15:print#15,"i"
  30. 300 input#15,en$,em$,et$,es$:ifen$="00"thenreturn
  31. 310 print""en$","em$","et$","es$:close5:close15:er=1:return
  32. 320 data169,0,162,32,133,251,133,253,134,252,134,254
  33. 330 data162,5,32,198,255,32,207,255,160,0,145,251
  34. 340 data165,144,208,12,230,251,208,241,230,252,165,252
  35. 350 data201,207,144,233,76,204,255,169,54,133,1,162
  36. 360 data5,32,201,255,160,0,177,253,32,210,255,165
  37. 370 data253,197,251,208,13,165,254,197,252,208,7,169
  38. 380 data55,133,1,76,204,255,230,253,208,226,230,254
  39. 390 data76,60,207:rem end copy routine...begin directory
  40. 400 data169,147,32,210,255,169,36,133,251,169,5,162
  41. 410 data8,160,0,32,186,255,169,1,162,251,160,0
  42. 420 data32,189,255,32,192,255,162,5,32,198,255,32
  43. 430 data207,255,32,207,255,32,207,255,32,207,255,32
  44. 440 data207,255,72,32,207,255,168,104,170,165,144,240
  45. 450 data8,32,204,255,169,5,76,195,255,152,32,205
  46. 460 data189,169,32,32,210,255,32,225,255,240,234,32
  47. 470 data207,255,208,243,169,13,32,210,255,184,80,201
  48.