home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 132 / Tiger_Disk_132_20xx_Tiger-Crew-Disk_de_Side_B.d64 / get-cursor-routi (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  35 lines
  1. 1 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]       [221]         non-destruct          [221]       [221]    blinking cursor routine    [221]       [221]              by               [221]
  2. 2 [143]"(NULL)        stephen casey          (NULL)       /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp                                                                                 .
  3. 3 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]       [221]           variables           [221]       [221]cl = cursor location           [221]       [221]cc = character under cursor    [221]
  4. 4 [143]"(NULL)cm = color memory              (NULL)       (NULL)cv = color value               (NULL)       (NULL)bf = blink flag                (NULL)       (NULL)bt = blink timing              (NULL)
  5. 5 rem"[221]  change bv to a value between [221]       [221]  80 & 100 for compiled basic  [221]       [221]  programs.                    [221]       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] .
  6. 20 [153]"load":[151]53280,0:[151]53281,0:[151]646,14:[153]"sysende mit 'aufhoeren' !"
  7. 25 aa$[178]"":[153]"contdein wunsch ?"
  8. 30 [141]40:[153]a$;:[151]212,0:[151]216,0:a[178][198](a$):[139]a[179][177]13[167][139]a[178]20[167][141]900:[137]30
  9. 31 [139]a[179][177]13[167][139]a[179]65[176]a[177]90[167]30: [143]      nur buchstaben in string aufnehmen
  10. 33 [139]a[179][177]13[167]aa$[178]aa$[170]a$:[137]30 : [143]      bildung des strings (aa$)
  11. 34 [139]aa$[178]"aufhoeren"[167][153]"load":[155][171]5
  12. 35 [137]25
  13. 36 [143]      ******************
  14. 37 [143]      get-cursor-routine
  15. 38 [143]      ******************
  16. 39 [143]
  17. 40 bv[178]28:bt[178]0:cl[178]1024[170][194](214)[172]40[170][194](211)[170]([194](211)[177]39)[172]40:cc[178][194](cl)
  18. 50 cm[178]54272[170]cl:cv[178][194](cm)
  19. 60 [151]cl,((cc[170]128)[175]255):[151]cm,[194](646):[137]80
  20. 70 [151]cl,cc:[151]cm,cv
  21. 80 bt[178]bt[170]2
  22. 90 [161]a$:[139]a$[179][177]""[167]110
  23. 100 [137]120
  24. 110 [151]cl,cc:[151]cm,cv:[142]
  25. 120 [139]bf[178]0[167][139]bt[177]bv[167]bt[178]0:bf[178]1:[137]70
  26. 130 [139]bf[178]1[167][139]bt[177]bv[167]bt[178]0:bf[178]0:[137]60
  27. 140 [137]80
  28. 800 [143]
  29. 810 [143]     ******************
  30. 820 [143]     *ende der routine*
  31. 830 [143]     ******************
  32. 840 [143]
  33. 900 la[178][195](aa$):aa$[178][200](aa$,la[171]1):[142]
  34. 910 [143] - zeile 900 = string 'aa$' bei      'del' um 1 zeichen kuerzen
  35.