home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 147
/
Tiger_Disk_147_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
basicplasma
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
947b
|
43 lines
1 dim a,c,y,x,f,a,ct(31),si(63)
100 rem ----------------------------
110 rem
120 rem 64er plasma-kurs teil#1
130 rem
140 rem ----------------------------
199 :
200 rem initialisieren
210 for i=0 to 30:read a:poke 1024+i,a
220 next:sys 1024
230 poke 53280,0 :poke 56576,0
240 poke 53272,128:poke 53265,59
250 for i=0 to 31:read ct(i):next
260 fa=8
270 for i=0 to 63
280 si(i)=(sin(i/16*(NULL))+1)*fa:next
299 :
300 rem ---- berechnen ----
310 for y=0 to 24:for x=0 to 39
320 a=si(x+si(y))+si(y+si(x))
330 for f=0 to 7
340 c=ct((a+f*4)and 31)
350 poke 57344+f*1024+y*40+x,c
360 next f,x,y
399 :
400 rem ---- animation ----
410 for k=0 to 7
420 poke 53272,k*16+128
430 for i=0 to 30:next
440 next:goto410
999 :
1000 rem ---- fuellroutine ----
1010 data 120,41,0,133,1,133,254,168
1020 data 9,160,133,255,169,170,145,254
1030 data 73,255,200,208,249,230,255
1040 data 208,243,169,55,133,1,88,96
1099 :
1100 rem ---- farbtabelle ----
1110 data 102,230,238,227,51,55,119,23
1120 data 17,17,29,221,223,255,250,170
1130 data 162,34,41,153,9,0,0,11,187
1140 data 188,204,194,34,36,68,70