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 >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
75 lines
1 poke53280,6:poke53281,6:print"[147]";:ifpeek(816)=165andpeek(817)=244then3
2 print" kill cartridge ! ":end
3 dima$(40):print"[158]";:fort=1to40:print" ";:next
4 print"";:fort=0to9:print" ";:next:print"scroll-protect-demo";:fort=1to11:print" ";:next
5 print"[158]";:fort=1to40:print" ";:next
6 :
7 :
10 poke770,131:poke771,164
20 poke88,0:poke89,192
30 poke90,0:poke91,192
40 poke781,33:poke782,0
50 sys41964
60 poke88,254:poke89,255
70 poke90,254:poke91,255
80 poke781,33:poke782,0
90 sys41964
100 poke59639,2
110 poke1,53
115 :
116 :
120 goto600
121 data"sicher hast du sie bereits oft gesehen -
122 [131]"programme, bei deinen der obere und/
123 data"oder untere bildschirmrand unbeweglich
124 [131]"stehen bleibt, waehrend der uebrige
125 data"screen-inhalt nach oben scrollt.
126 [131]"
127 data"so etwas in deinen eigenen proggis
128 [131]"auch zu zeigen, das ist fuer dich mit
129 data"der in diesem file enthaltenen
130 [131]"routine nun auch kein problem mehr.
131 data"
132 [131]"wie dies funktioniert, das wird dir
133 data"gleich anschliessend in der original-
134 [131]"anleitung mitgeteilt!
135 data"
136 [131]" viel spass beim ausprobieren !"
137 [131]"
138 data" tigercrew "
140 data"zeile 10 schaltet fastload aus."
150 data"
160 [131]"zeilen 20-50 bewegen basic vom rom zum ram darunter.
170 data"
180 [131]"zeilen 60-90 bewegen das kernal rom zum ram darunter.
190 data"
200 [131]"zeile 100 setzt die zahl der un- beweglichen zeilen am oberen
210 data"screen-rand (plus 1) z.b.: 2 bedeutet, dass 3 zeilen nicht
220 [131]"scrollen.
225 data"
230 [131]"zeile 110 verlegt basic und ker- nal im rom zu basic und kernal
240 data"im ram. - poke1,55 setzt wieder auf den normalzustand, und du
250 [131]"kannst beliebig mit poke 1,53 und 1,55 umschalten."
260 [131]"
270 data"auch die zeilen am unteren rand kannst du festhalten - durch"
280 data" poke 59652,n [146], wobei n=24 minus der zeilen, die nicht
290 [131]"scrollen sollen, ist.
295 data"
300 [131]" z.b.: eine zeile, die nicht scrollen soll: poke 59652,23"
310 [131]"ende
600 t=1
601 reada$(t):ifa$(t)="ende"thent=t-1:goto610
602 t=t+1:goto601
610 print"":fort=1to18:printa$(t):next
620 poke198,0:wait198,1:poke198,0
625 forx=1to10:print:next
630 fort=19to27:printspc(4)a$(t):next
635 forx=1to4:print:next
640 poke198,0:wait198,1:poke198,0
645 forx=1to10:print:next
650 fort=28to37:printspc(4)a$(t):next
655 forx=1to4:print:next
660 poke198,0:wait198,1:poke198,0:
665 forx=1to10:print:next
670 list6-116