home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1995 August / 64er_Magazin_95-08_1995_Markt__Technik_de_Side_B.d64 / strich-cursor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  383b  |  21 lines
  1. 10 poke56334,peek(56334)and254
  2. 20 poke1,peek(1)and251
  3. 30 fora=53248to57343
  4. 40 pokea-40960,peek(a)
  5. 50 nexta
  6. 60 poke1,peek(1)or4
  7. 70 poke56334,peek(56344)or1
  8. 80 poke53272,peek(53272)and240or13
  9. 90 fora=12288+4096/4to12288+4092/2
  10. 100 pokea,peek(a-4096/4)
  11. 110 nexta
  12. 120 fora=12288+4096/4+7to12288+4096/2step8
  13. 130 pokea,255
  14. 140 nexta
  15. 150 fora=12288+(3/4)*4096to12288+4096
  16. 160 pokea,peek(a-4096/4)
  17. 170 nexta
  18. 180 fora=12288+(3/4)*4096+7to12288+4096step8
  19. 190 pokea,255
  20. 200 nexta
  21.