home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / flash (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  803b  |  24 lines
  1. 0 rem the transactor volume 6 issue 02        bits & pieces section
  2. 10 rem* data loader for "flash" *
  3. 20 cs=0
  4. 30 for i=49152 to 49245:read a:poke i,a
  5. 40 cs=cs+a:next i
  6. 50 :
  7. 60 if cs<>12150 then print"!! data error": end
  8. 65 poke 49152+19,5: rem flash colour=5 (green)
  9. 70 sys 49152
  10. 80 end
  11. 100 :
  12. 1000 data 173,  21, 192, 141,  22, 192, 120, 169
  13. 1010 data  24, 141,  20,   3, 169, 192, 141,  21
  14. 1020 data   3,  88,  96,   5,   0,  20,   0,   0
  15. 1030 data 206,  22, 192, 208,  61, 173,  21, 192
  16. 1040 data 141,  22, 192, 173,  33, 208,  41,  15
  17. 1050 data 141,  20, 192, 160,   0, 132, 251, 169
  18. 1060 data 216, 133, 252, 238,  23, 192, 173,  23
  19. 1070 data 192,  41,   1, 170, 177, 251,  41,  15
  20. 1080 data 205,  19, 192, 240,   5, 205,  20, 192
  21. 1090 data 208,   5, 189,  19, 192, 145, 251, 200
  22. 1100 data 208, 234, 230, 252, 165, 252, 201, 220
  23. 1110 data 208, 226,  76,  49, 234, 252
  24.