home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 22 / Tiger_Disk_022_19xx_Tiger-Crew-Disk_de_Side_A.d64 / zeilenmarker (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  3KB  |  71 lines
  1. 100 poke53280,0:poke646,15
  2. 110 rem
  3. 120 rem   zeilenmarker
  4. 130 rem       by
  5. 140 rem    alexander
  6. 150 rem      piel
  7. 160 rem
  8. 170 fori=49156to49266:reada:pokei,a:next
  9. 180 goto391
  10. 190 data 120,169, 35,141, 20,  3,169
  11. 200 data 192,141, 21,  3,173, 17,208
  12. 210 data  41,127,141, 17,208,169,  0
  13. 220 data 141, 18,208,169,129,141, 26
  14. 230 data 208, 88, 96,173, 25,208,141
  15. 240 data  25,208, 48,  7,173, 13,220
  16. 250 data  88, 76, 49,234,165,214,197
  17. 260 data   2,240, 21,133,  2,165,214
  18. 270 data 141,  0,192, 24, 42, 42, 42
  19. 280 data 105, 49,141,  0,192,105,  9
  20. 290 data 141,  1,192,173, 18,208,205
  21. 300 data   1,192,176, 15,173,  2,192
  22. 310 data 141, 33,208,173,  1,192,141
  23. 320 data  18,208, 76,112,192,173,  3
  24. 330 data 192,141, 33,208,173,  0,192
  25. 340 data 141, 18,208, 76,188,254
  26. 360 rem         demo
  27. 370 poke49154,1:poke49155,0 : rem           balkenfarbe/hintergrundfarbe
  28. 380 sys49156   : rem einschalten
  29. 390 return
  30. 391 print"[147]   eigentlich (nehmen wir mal an.....)"
  31. 392 print"   ist diese routine wohl dazu gedacht,"
  32. 393 print"   das arbeiten an einem basic-listing"
  33. 394 print" 'etwas' zu vereinfachen, da jede zeile"
  34. 395 print"           'markiert' wird."
  35. 396 print"  aber wir sind mal wieder der meinung,"
  36. 397 print"  dass du damit auch noch etwas anderes"
  37. 398 print"  anfangen kannst. - was, das sagen wir"
  38. 399 print"           sofort nach tastendruck!":poke109,0:wait198,1:poke198,0
  39. 400 print"[147]mit diesem kleinen programm, das du":print"leicht in deine eigenen pro";
  40. 410 print"gramme ein-  binden kannst, kannst du abfragen etc."
  41. 420 print"mit farbbalken unterlegen:":fort=1to5000:next:gosub360
  42. 430 input"bitte return druecken ";ta$
  43. 440 print"das programm beginnt mit der zeile 170,"
  44. 450 print"wobei du die sprungadressen etc. natuer-lich deinem programm anpassen";
  45. 460 print" kannst,":print"und endet mit der zeile 340."
  46. 470 print"der balken erscheint stets an der       aktuellen cursor-position:"
  47. 480 print"bitte eine taste druecken!"
  48. 490 print"[145][145]":poke198,0:wait198,1:poke198,0
  49. 500 print"[147]der balken verschwindet, wenn du die    balkenfarbe auf die hinter";
  50. 510 print"grundfarbe":print"setzt.":fort=1to5000:next:poke49154,0
  51. 520 fort=1to2000:next:print"bitte eine taste druecken!"
  52. 530 print"[145][145]":poke49154,7:poke198,0:wait198,1:poke198,0:poke49154,6
  53. 540 print"[147]":print"bitte waehlen sie mittels cursor/return"
  54. 550 print"      1   sofortiges ende (reset)
  55. 560 [153]"      2   einfaches ende ('ready')"
  56. 570 [153]"      3   programm listen":n[178]10
  57. 580 [139]n[177]12[167]n[178]10
  58. 590 [139]n[179]10[167]n[178]12
  59. 600 [151]781,n:[151]782,6:[151]204,0:[158]65520
  60. 610 [161]ei$:[139]ei$[178]""[167]610
  61. 620 ei[178][198](ei$):[139]ei[179][177]13[175]ei[179][177]17[175]ei[179][177]145[167]610
  62. 630 [139]ei[178]17[167]n[178]n[170]1:[137]580
  63. 640 [139]ei[178]145[167]n[178]n[171]1:[137]580
  64. 650 [139]ei[178]13[167][145]n[171]9[137]660,670,680
  65. 660 [158]64760
  66. 670 [153]"":[128]
  67. 680 [151]204,128:[153]"load":[129]t[178]1[164]10:[153]"":[129]tt[178]1[164]100:[130]:[130]
  68. 690 [129]t[178]1[164]2000:[130]:[153]"wie's geht steht in den programmzeilen"
  69. 700 [153]"             370  und  380 !":[153]"onon"
  70. 710 [129]t[178]1[164]3000:[130]:[151]49154,0:[155]170[171]340
  71.