Halraj

eljárás halraj :méret :szint :db
hal :méret Megcsináljuk a nagyhalat!
ha :szint>1 Ha a szint az nagyobb, mint 1
[ism :db [j 360/:db 360-at annyival osztjuk a
tf e :méret*1.5 tl forgásnál ahány db!
halraj :méret/3 :szint-1 :db forgás nyomás
tf h :méret*1.5 tl ] előre kisebb hal,
] aztán vissza
vége