pouët.net

Christmas Diamonds

Christmesh C64 67b

Author: Logiker
System: C64
Language: BASIC V2.0
Usage:
Use Vice or another emulator and run it.
Code:
0a$="{right}{right}{right}{right}{right}*":fori=-9to9:n=i-int(i/6)*6:printspc(6-n)a$a$a$"{return}{up}"spc(n)a$a$a$:next
Writes each line by line. A line consists of the "right" and "left" side of the diamonds. The distance is always the same and cursor {right} is used to move to the next diamond.