home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 April / Ahoy_Magazine_88-04_1988_Double_L.d64 / messenger64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  53 lines
  1. 100 rem *** messenger64 loader ***
  2. 110 ms=51200:rem will relocate
  3. 120 ck=0
  4. 130 readd:ck=ck+d:ifd=999then150
  5. 140 goto130
  6. 150 ifck<>26712thenprint"error in data":end
  7. 160 restore
  8. 170 sa=ms
  9. 180 readd:ifd=999then230
  10. 190 ifd=>0thenpokesa,d:goto220
  11. 200 ad=ms+abs(d):h=ad/256:l=ad-int(ad/256)*256
  12. 210 pokesa,l:sa=sa+1:pokesa,h
  13. 220 sa=sa+1:goto180
  14. 230 ad=ms+63:h=ad/256:l=ad-int(ad/256)*256
  15. 240 pokems+38,l:pokems+52,l
  16. 250 pokems+42,h:pokems+54,h
  17. 260 print"messenger installed"ms"to"ms+254
  18. 270 print"sys"ms"to enable"
  19. 280 print"sys"ms+3"to set up"
  20. 290 end
  21. 300 data 184,80,27,76,-143,0,0
  22. 310 data 0,0,0,0,0,0,0,0
  23. 320 data 0,0,0,0,0,0,0,0
  24. 330 data 0,0,0,0,0,0,120,173
  25. 340 data 20,3,172,21,3,201,63,208
  26. 350 data 4,192,200,240,16,141,-141
  27. 360 data 140,-142,169,63,160,200,141
  28. 370 data 20,3,140,21,3,88,96,162
  29. 380 data 3,181,251,72,202,16,250,162
  30. 390 data 4,202,48,55,188,-26,16
  31. 400 data 5,169,0,157,-26,152,41
  32. 410 data 15,240,238,138,168,10,170,189
  33. 420 data -6,133,251,189,-7,133
  34. 430 data 252,189,-14,133,253,189,-15
  35. 440 data 133,254,152,170,188,-22
  36. 450 data 177,251,145,253,136,192,255,144
  37. 460 data 247,240,198,232,104,149,251,232
  38. 470 data 224,4,208,248,76,255,255,32
  39. 480 data 121,0,240,83,32,241,183,138
  40. 490 data 41,124,240,3,76,72,178,134
  41. 500 data 174,32,121,0,240,78,32,253
  42. 510 data 174,32,138,173,32,247,183,132
  43. 520 data 195,133,196,32,253,174,32,235
  44. 530 data 183,134,175,165,174,41,3,168
  45. 540 data 10,170,120,165,195,157,-6
  46. 550 data 165,196,157,-7,165,20,157
  47. 560 data -14,165,21,157,-15,152
  48. 570 data 170,165,175,157,-22,165,174
  49. 580 data 5,15,157,-26,88,96,169
  50. 590 data 0,162,3,120,157,-26,202
  51. 600 data 16,250,88,96,165,174,41,3
  52. 610 data 170,120,169,0,240,228,999
  53.