home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 June / 1989-06.d64 / feedback (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.0 KB  |  36 lines
  1. 10 fori=828to920:reada:pokei,a:x=x+a:next:ifx<>11720thenprint"[154]data error":stop
  2. 20 data 76,93,3,76,204,255
  3. 30 data 133,251,41,64,10,5
  4. 40 data 251,41,191,133,251,41
  5. 50 data 32,73,32,10,5,251
  6. 60 data 201,95,208,2,169,13
  7. 70 data 133,251,96,32,225,255
  8. 80 data 240,221,32,135,3,201
  9. 90 data 13,208,2,169,31,72
  10. 100 data 41,128,74,133,251,104
  11. 110 data 41,63,5,251,133,251
  12. 120 data 32,183,255,72,32,143
  13. 130 data 3,104,41,64,240,217
  14. 140 data 76,204,255,162,1,32
  15. 150 data 198,255,76,207,255,162
  16. 160 data 2,32,201,255,165,251
  17. 170 data 76,210,255
  18. 175 print"[147]":poke646,14:poke53281,6:poke53280,14
  19. 180 input"[201]nput file name";i$
  20. 190 input"[207]utput file name";o$
  21. 200 dv=8:sa=7
  22. 210 open15,8,15,"i0":rem remove ,"i0" if you've changed the drive's speed
  23. 220 open1,8,3,i$:input#15,en,em$:f$=i$:ifen=0then250
  24. 230 print"[196]isk error for ";f$:printem$
  25. 240 print"run[145][145][145]":close1:close2:close15:end
  26. 250 open2,dv,sa,"0:"+o$+",p,w":input#15,en,em$:f$=o$
  27. 260 ifen=0then320
  28. 270 ifen<>63then230
  29. 280 print"";o$;" exists... [210]eplace? [217][146]/[206][146]:"
  30. 290 geta$:ifa$<>"y"anda$<>"n"then290
  31. 300 ifa$="n"then240
  32. 310 print#15,"s0:"+o$:close2:goto250
  33. 320 sys828:if(peek(144)and191)=0thenprint"[196]one.":goto240
  34. 330 print"[201]/[207] [197]rror during conversion.":input#15,en,em$:ifen<>0then230
  35. 340 goto240
  36.