home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_23_1988_Transactor_Publishing.d64 / disklightflash (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  867b  |  26 lines
  1. 100 rem  flash disk drive led on 1541
  2. 110 ck=0
  3. 120 for x=49152 to 49290: read z: ck=ck+z
  4. 130 poke x,z: next
  5. 140 if ck<>18154 then print"error": end
  6. 150 sys 49152
  7. 160 :
  8. 170 data 160, 62, 169, 8, 32, 177, 255, 169
  9. 180 data 111, 32, 147, 255, 169, 77, 32, 168
  10. 190 data 255, 169, 45, 32, 168, 255, 169, 87
  11. 200 data  32, 168, 255, 152, 32, 168, 255, 169
  12. 210 data   5, 32, 168, 255, 169, 1, 32, 168
  13. 220 data 255, 185, 77, 192, 32, 168, 255, 32
  14. 230 data 174, 255, 136, 16, 205, 169, 8, 32
  15. 240 data 177, 255, 169, 111, 32, 147, 255, 169
  16. 250 data  85, 32, 168, 255, 169, 51, 32, 168
  17. 260 data 255, 32, 174, 255, 96, 120, 41, 0
  18. 270 data 141, 0, 24, 169, 254, 170, 32, 38
  19. 280 data   5, 32, 38, 5, 202, 224, 1, 208
  20. 290 data 248, 32, 38, 5, 32, 38, 5, 232
  21. 300 data 224, 255, 208, 248, 173, 0, 24, 240
  22. 310 data 232, 88, 96, 138, 72, 73, 255, 168
  23. 320 data 169, 248, 141, 0, 28, 202, 208, 248
  24. 330 data 169, 240, 141, 0, 28, 136, 208, 248
  25. 340 data 104, 170, 96
  26.