home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / remote.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  47 lines
  1. 0 rem the transactor volume 6 issue 02        page 42
  2. 10 rem* data loader for "remote" *
  3. 20 cs=0
  4. 30 for i=49152 to 49434:read a:poke i,a
  5. 40 cs=cs+a:next i
  6. 50 :
  7. 60 if cs<>33357 then print"***** data error *****": end
  8. 70 rem sys 49152 to activate
  9. 80 end
  10. 100 :
  11. 1000 data  76,   5, 192,   6,  16, 162,  27, 160
  12. 1010 data 193,  56,  32, 141, 255,  32, 231, 255
  13. 1020 data  32, 157, 192, 120, 169, 185, 141,  40
  14. 1030 data   3, 169, 192, 141,  41,   3, 169, 200
  15. 1040 data 141,  48,   3, 169, 192, 141,  49,   3
  16. 1050 data 169, 209, 141,  50,   3, 169, 192, 141
  17. 1060 data  51,   3, 169,  22, 141,  44,   3, 169
  18. 1070 data 193, 141,  45,   3, 120, 169,  83, 141
  19. 1080 data  38,   3, 169, 192, 141,  39,   3, 169
  20. 1090 data 113, 141,  20,   3, 169, 192, 141,  21
  21. 1100 data   3,  88,  96, 120, 133, 251, 138,  72
  22. 1110 data 152,  72, 165, 251,  32,  22, 231, 162
  23. 1120 data 100,  32, 201, 255, 165, 251,  32, 202
  24. 1130 data 241, 104, 168, 104, 170, 165, 251,  88
  25. 1140 data  96, 162, 100,  32, 198, 255,  32, 228
  26. 1150 data 255, 201,   0, 240,  24, 201,   3, 208
  27. 1160 data   8, 169, 127, 141, 184, 192,  76, 149
  28. 1170 data 192, 162,   0, 142, 184, 192, 166, 198
  29. 1180 data 157, 119,   2, 230, 198, 162,   0,  32
  30. 1190 data 198, 255, 108,  27, 193, 162,   3, 160
  31. 1200 data 192, 169,   2,  32, 189, 255, 169, 100
  32. 1210 data 162,   2, 160,   2,  32, 186, 255,  32
  33. 1220 data 192, 255, 162, 100,  32, 201, 255,  96
  34. 1230 data   0, 173, 184, 192, 240,   7, 133, 145
  35. 1240 data 169,   0, 141, 184, 192, 108,  47, 193
  36. 1250 data   8,  72, 138,  72, 162,   0,  76, 215
  37. 1260 data 192,   8,  72, 138,  72, 162,   2, 152
  38. 1270 data  72, 173,  27, 193, 141,  20,   3, 173
  39. 1280 data  28, 193, 141,  21,   3, 173,  45, 193
  40. 1290 data 141,  38,   3, 173,  46, 193, 141,  39
  41. 1300 data   3, 189,  55, 193, 141,   4, 193, 189
  42. 1310 data  56, 193, 141,   5, 193, 104, 168, 104
  43. 1320 data 170, 104,  40,  32,   0,   0,   8,  72
  44. 1330 data 138,  72, 152,  72,  32,  60, 192, 104
  45. 1340 data 168, 104, 170, 104,  40,  96, 169,   1
  46. 1350 data  76,  49, 243
  47.