home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 50
/
64er_Magazin_Sonderheft_50_19xx_Markt__Technik_de_Side_A.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
956b
|
35 lines
100 rem *******************************
110 rem * *
120 rem * d e m o *
130 rem * *
140 rem * heimo ponnath hamburg *
150 rem * *
160 rem *******************************
170 :
180 rem +++++++ hauptprogramm +++++++
190 :
191 poke53280,15:poke53281,15:print"[147]"
200 print chr$(147):poke211,7:poke214,10:sys58640
210 print "so sieht ein rom-bereich aus:":for i=55296 to 56295:poke i,0:next i
220 j=1:w=128:gosub370:fori=40960 to 40960+1023:poke i,peek (i):next i
230 get a$:ifa$=""then230
240 :
250 j=3:w=48:gosub370:printchr$(147):poke211,0:poke214,10:sys58640
260 print"das ist der vom computer reservierte ram"
270 fori=55296to56295:pokei,0:nexti
280 j=3:w=0:gosub370
290 get a$:ifa$=""then290
300 :
310 poke56576,151:poke56578,63:poke53272,21:poke648,4
320 end : rem ++ programmende ++
330 :
340 :
350 rem ++ up.bildschirm verschieben ++
360 :
370 poke56576,(peek(56576)and252)or j
380 poke56578,peek(56578)or 3
390 poke53272,(peek(53272)and15)or w
400 p=(w/16*1024+16384*(3-j))/256
410 poke648,p
420 return