home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / FLASHING.CURSOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  40 lines
  1. 1  REM  **********************
  2. 2  REM  *  FLASHING.CURSOR   *
  3. 3  REM  * BY CECIL FRETWELL  *
  4. 4  REM  * COPYRIGHT (C) 1984 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10 S = 0
  9. 20  FOR I = 1 TO 152
  10. 30  READ C:S = S +C
  11. 40  NEXT I
  12. 50  IF S = 0  THEN 80
  13. 60  PRINT "DATA STATEMENTS ARE WRONG"
  14. 70  END 
  15. 80  RESTORE 
  16. 90  INPUT "ADDRESS FOR FLASHING CURSOR? ";AD%
  17. 100  FOR I = 0 TO 150
  18. 110  READ C: POKE I +AD%,C
  19. 120  NEXT I
  20. 130 H% = AD%/256
  21. 140 L% = AD% -H% *256
  22. 150  POKE 40634,76: POKE 40635,L%: POKE 40636,H%
  23. 160  PRINT "FLASHING CURSOR IS INSTALLED"
  24. 170  END 
  25. 180  DATA  8,120,44,21,192,8,141,7,192,133,252,104
  26. 190  DATA  168,104,72,42,42,42,42,133,253,152
  27. 200  DATA  72,165,252,72,138,72,165,252,164
  28. 210  DATA  36,145,40,173,31,192,16,9,172,123,5
  29. 220  DATA  184,32,6,207,133,252,169,223,164
  30. 230  DATA  36,44,31,192,16,3,172,123,5,44,88
  31. 240  DATA  255,32,6,207,36,253,32,198,194
  32. 250  DATA  176,47,165,252,44,30,192,48,17,164,50
  33. 260  DATA  192,127,208,11,201,64,144,7,201
  34. 270  DATA  128,176,3,24,105,64,164,36,44,31,192
  35. 280  DATA  16,3,172,123,5,44,88,255,32,6,207
  36. 290  DATA  36,253,32,198,194,144,184,165,252
  37. 300  DATA  164,36,44,31,192,16,3,172,123,5
  38. 310  DATA  44,88,255,32,6,207,104,170,104,40
  39. 320  DATA  48,3,141,6,192,40,108,56,0
  40. 330  DATA  -16049