Christmas Diamonds
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.
[ back to the prod ]