home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 April
/
64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64
/
nervensaege
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
349b
|
19 lines
5 i=1:p=2
10 sid=54272:y=255
20 pokesid+24,15:pokesid+5,240:pokesid+6,255:pokesid,15:pokesid+14,15
60 pokesid+4,21
70 forq=0to255
75 y=y-p:o=q+(y*i)
77 ifo<0theno=0:i=i*-1
78 ifo>255theno=255:i=i*-1
80 pokesid+1,q:pokesid+15,o
90 next
100 forq=255to0step-1
110 y=y+p:o=q+(y*i)
120 ifo<0theno=0:i=i*-1
130 ifo>255theno=255:i=i*-1
140 pokesid+1,q:pokesid+15,o
150 next
160 p=p+2:ifp=10thenp=2
170 goto70