home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 43
/
64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64
/
borderless.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
709b
|
27 lines
1 ifpeek(51000)<>120thenload"borderless",8,8
2 poke56,63:clr
3 sys65409:sys51000
4 poke53280,12:poke53281,11
5 v=5:n=172:j=1:k=2
10 poke53269,3:poke2040,11:poke2041,11
11 poke53288,0
12 fori=.to62:poke704+i,rnd(0)*256:next
13 print"[147]"tab(6)"[154]obere grenze textbildschirm
14 [153]""[163]6)"untere grenze textbildschirmdef
15 print" demo 'borderless': sprites im rahmen
16 [153]" nikolaus heusler, 1989 -- sh 64'er
17 print" wegen der sprites flackert es etwas...
18 [153]" sorry... ist halt nur basic
20 fory=.to255step5
22 poke53249,y
24 x=sin(a)*148+172
26 poke53264,x/256:poke53248,xand255
28 a=a+.05
30 poke53251,((cos(a*7)*17)+12)and255
32 poke53250,n
34 n=n+v:ifn<94orn>250thenv=-v
36 poke16383,2^k
38 k=(k+j)and7:w=w+1:ifw=20thenw=.:j=-j
40 next
50 goto20