home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 132 / Tiger_Disk_132_20xx_Tiger-Crew-Disk_de_Side_B.d64 / scroll-protect (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  75 lines
  1. 1 poke53280,6:poke53281,6:print"[147]";:ifpeek(816)=165andpeek(817)=244then3
  2. 2 print" kill cartridge ! ":end
  3. 3 dima$(40):print"[158]";:fort=1to40:print" ";:next
  4. 4 print"";:fort=0to9:print" ";:next:print"scroll-protect-demo";:fort=1to11:print" ";:next
  5. 5 print"[158]";:fort=1to40:print" ";:next
  6. 6 :
  7. 7 :
  8. 10 poke770,131:poke771,164
  9. 20 poke88,0:poke89,192
  10. 30 poke90,0:poke91,192
  11. 40 poke781,33:poke782,0
  12. 50 sys41964
  13. 60 poke88,254:poke89,255
  14. 70 poke90,254:poke91,255
  15. 80 poke781,33:poke782,0
  16. 90 sys41964
  17. 100 poke59639,2
  18. 110 poke1,53
  19. 115 :
  20. 116 :
  21. 120 goto600
  22. 121 data"sicher hast du sie bereits oft gesehen -
  23. 122 [131]"programme, bei deinen der obere und/
  24. 123 data"oder untere bildschirmrand unbeweglich
  25. 124 [131]"stehen bleibt, waehrend der uebrige
  26. 125 data"screen-inhalt nach oben scrollt.
  27. 126 [131]"
  28. 127 data"so etwas in deinen eigenen proggis
  29. 128 [131]"auch zu zeigen, das ist fuer dich mit
  30. 129 data"der in diesem file enthaltenen
  31. 130 [131]"routine nun auch kein problem mehr.
  32. 131 data"
  33. 132 [131]"wie dies funktioniert, das wird dir
  34. 133 data"gleich anschliessend in der original-
  35. 134 [131]"anleitung mitgeteilt!
  36. 135 data"
  37. 136 [131]"   viel spass beim ausprobieren !"
  38. 137 [131]"
  39. 138 data"              tigercrew                "
  40. 140 data"zeile  10 schaltet fastload aus."
  41. 150 data"
  42. 160 [131]"zeilen 20-50 bewegen basic vom          rom zum ram darunter.
  43. 170 data"
  44. 180 [131]"zeilen 60-90 bewegen das kernal         rom zum ram darunter.
  45. 190 data"
  46. 200 [131]"zeile 100 setzt die zahl der un-        beweglichen zeilen am oberen
  47. 210 data"screen-rand (plus 1) z.b.: 2            bedeutet, dass 3 zeilen nicht
  48. 220 [131]"scrollen.
  49. 225 data"
  50. 230 [131]"zeile 110 verlegt basic und ker-        nal im rom zu basic und kernal
  51. 240 data"im ram. - poke1,55 setzt wieder         auf den normalzustand, und du
  52. 250 [131]"kannst beliebig mit poke 1,53           und 1,55 umschalten."
  53. 260 [131]"
  54. 270 data"auch die zeilen am unteren rand         kannst du festhalten - durch"
  55. 280 data" poke 59652,n [146], wobei n=24 minus        der zeilen, die nicht
  56. 290 [131]"scrollen sollen, ist.
  57. 295 data"
  58. 300 [131]" z.b.: eine zeile, die nicht             scrollen soll: poke 59652,23"
  59. 310 [131]"ende
  60. 600 t=1
  61. 601 reada$(t):ifa$(t)="ende"thent=t-1:goto610
  62. 602 t=t+1:goto601
  63. 610 print"":fort=1to18:printa$(t):next
  64. 620 poke198,0:wait198,1:poke198,0
  65. 625 forx=1to10:print:next
  66. 630 fort=19to27:printspc(4)a$(t):next
  67. 635 forx=1to4:print:next
  68. 640 poke198,0:wait198,1:poke198,0
  69. 645 forx=1to10:print:next
  70. 650 fort=28to37:printspc(4)a$(t):next
  71. 655 forx=1to4:print:next
  72. 660 poke198,0:wait198,1:poke198,0:
  73. 665 forx=1to10:print:next
  74. 670 list6-116
  75.