home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 May / 1984-05.d64 / convert64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  63 lines
  1. 100 print"[147]  [211]peed[211]cript [198]ile [195]onversion [208]rogram   "
  2. 110 gosub410
  3. 120 input"[201]nput file name";i$
  4. 130 ifi$=""then120
  5. 140 input"[207]utput file name";o$
  6. 150 print"[196][146]isk, [211][146]creen, [208][146]rinter, [207][146]ther"
  7. 160 geta$:ifa$=""then160
  8. 170 dv=-(a$="t")-3*(a$="s")-4*(a$="p")-8*(a$="d"):sa=7
  9. 180 ifdv=0theninput"[196]evice number";dv:input"[211]econdary address";sa
  10. 190 print"[215]hich conversion:"
  11. 200 print"1) [211]peed[211]cript to [195]ommodore [193][211][195][201][201]"
  12. 210 print"2) [211]peed[211]cript to [212]rue [193][211][195][201][201]"
  13. 220 print"3) [195]ommodore [193][211][195][201][201] to [211]peed[211]cript"
  14. 230 getp$:ifp$<"1"orp$>"3"then230
  15. 240 adr=828+val(p$)*3-3
  16. 250 open15,8,15,"i0":rem remove ,"i0" if you've changed the drive's speed
  17. 260 open1,8,3,i$:input#15,en,em$:f$=i$:ifen=0then290
  18. 270 print"[196]isk error for ";f$:printem$
  19. 280 print"run[145][145][145]":close1:close2:close15:end
  20. 290 ifdv<>8thenopen2,dv,sa,o$:goto380
  21. 300 ex$=",s,w":ifp$="3"thenex$=",p,w"
  22. 310 open2,dv,sa,"0:"+o$+ex$:input#15,en,em$:f$=o$
  23. 320 ifen=0then380
  24. 330 ifen<>63then270
  25. 340 ifen=63thenprint"";o$;" exists... [210]eplace? [217][146]/[206][146]:"
  26. 350 geta$:ifa$<>"y"anda$<>"n"then350
  27. 360 ifa$="n"then270
  28. 370 print#15,"s0:"+o$:close2:goto310
  29. 380 sys(adr):if(peek(144)and64)thenprint"[196]one.":goto280
  30. 390 print"[201]/[207] [197]rror during conversion.":input#15,en,em$:ifen<>0then270
  31. 400 goto280
  32. 410 fori=828to1001:reada:pokei,a:ck=ck+a:next:ifck=21584thenreturn
  33. 420 print"error in data statements.":end
  34. 430 data 076,069,003,076,122,003
  35. 440 data 076,174,003,032,225,255
  36. 450 data 240,018,032,216,003,032
  37. 460 data 095,003,032,183,255,072
  38. 470 data 032,224,003,104,041,064
  39. 480 data 240,233,076,204,255,133
  40. 490 data 251,041,064,010,005,251
  41. 500 data 041,191,133,251,041,032
  42. 510 data 073,032,010,005,251,201
  43. 520 data 095,208,002,169,013,133
  44. 530 data 251,096,032,225,255,240
  45. 540 data 221,032,216,003,032,095
  46. 550 data 003,041,127,201,065,144
  47. 560 data 018,201,091,176,014,170
  48. 570 data 165,251,041,128,073,128
  49. 580 data 074,074,133,251,138,005
  50. 590 data 251,133,251,032,183,255
  51. 600 data 072,032,224,003,104,041
  52. 610 data 064,240,207,076,204,255
  53. 620 data 032,225,255,240,169,032
  54. 630 data 216,003,201,013,208,002
  55. 640 data 169,031,072,041,128,074
  56. 650 data 133,251,104,041,063,005
  57. 660 data 251,133,251,032,183,255
  58. 670 data 072,032,224,003,104,041
  59. 680 data 064,240,217,076,204,255
  60. 690 data 162,001,032,198,255,076
  61. 700 data 207,255,162,002,032,201
  62. 710 data 255,165,251,076,210,255
  63.