home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_23_1988_Transactor_Publishing.d64 / video.ldr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  39 lines
  1. 100 rem video mover
  2. 110 sa=51456:rem start address
  3. 120 ck=0
  4. 130 for m=0 to 203:readd
  5. 140 poke sa+m,d
  6. 150 ck=ck+d:next
  7. 160 if ck<>28129 then print"data error!":end
  8. 170 print"video mover installed":print sa "to" sa+203:print
  9. 180 print"to store video:"
  10. 190 print"sys" sa ",section # (0-4), screen org":print
  11. 200 print"to retrieve video:"
  12. 210 print"sys" sa+4 ",section # (0-4), screen org"
  13. 3000 data160,255,208,2,160,0,132,195
  14. 3010 data32,241,183,224,5,176,17,169
  15. 3020 data224,202,48,7,24,105,6,176
  16. 3030 data7,208,246,168,105,5,144,3
  17. 3040 data76,72,178,132,21,173,136,2
  18. 3050 data133,175,169,0,133,174,133,20
  19. 3060 data32,241,183,138,240,23,173,0
  20. 3070 data221,106,106,106,73,255,41,192
  21. 3080 data133,196,173,24,208,106,106,41
  22. 3090 data60,5,196,133,175,120,165,1
  23. 3100 data72,41,253,133,1,162,0,164
  24. 3110 data195,240,57,200,177,174,145,20
  25. 3120 data200,208,249,230,21,230,175,232
  26. 3130 data224,4,144,240,169,216,133,175
  27. 3140 data177,174,10,10,10,10,133,195
  28. 3150 data230,175,177,174,41,15,5,195
  29. 3160 data198,175,145,20,200,208,233,232
  30. 3170 data224,6,240,58,230,21,230,175
  31. 3180 data230,175,208,220,177,20,145,174
  32. 3190 data200,208,249,230,21,230,175,232
  33. 3200 data224,4,144,240,169,217,133,175
  34. 3210 data177,20,145,174,74,74,74,74
  35. 3220 data198,175,145,174,230,175,200,208
  36. 3230 data239,232,224,6,240,8,230,21
  37. 3240 data230,175,230,175,208,226,104,133
  38. 3250 data1,88,96,0
  39.