Basic wklepujcie

[wegi]

To pierwszy program w basicu jaki mnie zadziwił - znalazłem na YT jak obok podał ktoś linka do zabawy z wymianą romów w C64

10 print chr$(147)
20 ca=1024:cp=54272:r=25:co=40
30 poke 53280,0:poke 53281,0
40 forw=3to50:fori=1to12:forj=0to12:k=i+j
50 c=j+j+j/(i+3)+i*w/12
60 k1=ca+i+(co*k):i1=ca+k+(co*i):c1=cp+k1:c2=cp+i1
70 k2=ca+(co-i)+(co*(r-k)):i2=ca+(co-k)+(co*(r-i)):c3=cp+k2:c4=cp+i2
80 k3=ca+(co-i)+(co*k):c5=cp+k3:i3=ca+k+(co*(r-i)):c6=cp+i3
90 k4=ca+(co-k)+(co*i):c7=cp+k4:i4=ca+i+(co*(r-k)):c8=cp+i4
100 poke k1,81:poke c1,c:poke i1,81:poke c2,c
110 poke k2,81:poke c3,c:poke i2,81:poke c4,c
120 poke k3,81:poke c5,c:poke i3,81:poke c6,c
130 poke k4,81:poke c7,c:poke i4,81:poke c8,c
140 nextj,i,w
150 goto 10

bawcie się - wystarczy skopiować tekst i wkleić do VICe. Mało tego gość przerobił to na assemblera i wcale nie wygląda to rewelacyjnie

[F7sus4]

[Dexter]

Dla tych co nie chce im się uruchamiać tego programu: http://www.youtube.com/watch?v=DiN2v4o6mEs

Tak ogólnie skąd to pobrałeś? Są jeszcze jakieś takie ciekawostki?

[wegi]

Dexter

Z dyskusji tu

http://www.youtube.com/watch?v=2mOywBhDr94


I z tej dyskusji wersja ASM

http://www.youtube.com/watch?v=cK0Jmgq6QDw

W sumie w basic nic szczególnego nie znalazłem - jest też kalejdoskop z C&A

http://www.filety.net/arty/strefa/cia/c&a-pd-45.rar

I chyba najlepszy z wszystkich kalejdoskop snerga od 1.15

http://www.youtube.com/watch?v=XSmX4bS3BfQ

[uka]

"mało tego gość przerobił to na assemblera i wcale nie wygląda to rewelacyjnie"

bo za szybko?

[Cobra of Samar]

Jaki szybki efekt

[wegi]

uka

Nie wiem dokładnie, może ma zły dobór kolejności zmiany kolorów, może zła kolejność manipulowania punktami ale coś mi to nie leży