home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 March / 1986-03.d64 / clavier (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  53 lines
  1. 10 print"[147]...please wait":fori=1to61:readh,l:poke49664+i,h:poke49920+i,l:nexti
  2. 20 ck=0:fori=49152to49252:reada:pokei,a:ck=ck+a:next
  3. 30 ifck<>11601thenprint"error in data statements.":stop
  4. 40 print"machine code loaded"
  5. 50 data 4,48, 4,113, 4,180, 4,252, 5,72, 5,152, 5,237, 6,71, 6,167, 7,12
  6. 60 data 7,119, 7,233, 8,97, 8,225, 9,104, 9,247, 10,143, 11,48, 11,218, 12,143
  7. 70 data 13,78, 14,24, 14,239, 15,210, 16,195, 17,194, 18,208, 19,239, 21,30
  8. 80 data22,96, 23,180, 25,29, 26,156, 28,49, 29,222, 31,164, 33,134, 35,133
  9. 90 data 37,161, 39,222, 42,61, 44,192, 47,105, 50,59, 53,55, 56,97, 59,188
  10. 100 data 63,73, 67,13, 71,9, 75,66, 79,188, 84,122, 89,127, 94,21, 100,117
  11. 110 data 106,111, 112,195, 119,119, 126,146, 134,24
  12. 115 rem ml code
  13. 120 data 162,0,189,0,193,32,25,192,162
  14. 130 data 7,189,0,193,32,25,192,162,14,189
  15. 140 data 0,193,32,25,192,96,41,128,201
  16. 150 data128,240,25,189,0,193,41,63,168
  17. 160 data 185,0,195,157,0,212,185,0,194
  18. 170 data 157,1,212,189,113,192,157,4,212
  19. 180 data 96,189,112,192,157,4,212,96,162
  20. 190 data0,189,0,193,32,88,192,162,7
  21. 200 data 189,0,193,32,88,192,162,14,189
  22. 210 data 0,193,32,88,192,96,41,64,201,64
  23. 220 data 240,6,189,114,192,157,4,212,96
  24. 230 s=54272:fori=0to24:pokes+i,0:next
  25. 240 pokes+5,35:pokes+6,196:pokes+12,35:pokes+13,196:pokes+19,35:pokes+20,196
  26. 250 pokes+3,8:pokes+2,0:pokes+10,8:pokes+9,0:pokes+17,8:pokes+16,0
  27. 260 pokes+24,15
  28. 270 w1=64:w2=64:w3=64: poke49264,w1+8:poke49265,w1+1:poke49266,w1
  29. 280 poke49271,w2+8:poke49272,w2+1:poke49273,w2
  30. 290 poke49278,w3+8:poke49279,w3+1:poke49280,w3
  31. 300 v=100
  32. 310 readn1,n2,n3:poke49408,n1:poke49415,n2:poke49422,n3:ifn1=0then340
  33. 320 sys49152
  34. 330 fort=0tov:next:sys49215:fort=0to50:next:goto310
  35. 340 pokes+4,w1:pokes+11,w2:pokes+18,w3:fort=0to50:next:pokes+24,0:end
  36. 350 data102,98,81
  37. 360 data102,98,17
  38. 370 data102,98,192
  39. 380 data39,36,192
  40. 390 data100,97,69
  41. 400 data100,97,5
  42. 410 data36,97,192
  43. 420 data34,33,192
  44. 430 data98,98,74
  45. 440 data98,98,74
  46. 450 data98,98,74
  47. 460 data98,98,74
  48. 470 data98,98,74
  49. 480 data98,98,74
  50. 490 data98,98,74
  51. 500 data34,34,10
  52. 1000 data0,0,0
  53.