Chain Demo

Commodore 64  Demo written in BASIC v2

4 lines of code, 4 different effects.

Enjoy :)

Code:
=====

0pO53281,0:fOk=.to8:fOa=-3.5to3.5:?cH(13)sP12+aB(a))"QQQQ"sP7-aB(2*a))"QQQQ";

1nE:nE:z=648:w=99:u=677:k=59777:pOz,16:fOi=.tow:pO646,pE(162)or1:?:nE:pOz,4

2fOi=.tow:pOu,0:sYk:pO781,0:sY59888:pO172,192:pO780,135:sY59848:nE

3fOj=.to1:fori=.to25:pOu,25-i:sYk:nE:nE:fOj=.to25:?:nE:?cH(147):gO