pouët.net

Christmesh CPC 84b

Author: Logiker
System: CPC
Language: Locomotive BASIC V1.0
Usage:
Use Caprice or another emulator and run it.
Code:
1for i=0 to 18:for x=3 to 21:?chr$(32-10*(abs(x mod 6-3)=abs(i mod 6-3)));:next:?:next
Simply calculates for each x/y position if a star has to be drawn or not.

[ html | dos 80*25 | dos 80*50 | rez's ascii | amiga medres | amiga hires ]