Christmas Diamonds

Author: dragonet80
Category: Christmas Challenge
System:   MSX2
Language: BASIC
Len source code: 88 (size from disk-manager) 120 (size from text-file)
Len exe file:    <# bytes>
Len code only:   <# bytes> (valid for assembler only; length of executable without BASIC stub)
Instructions:
Go to: webmsx.org, click on floppy A icon (down-left). Select "load disk images", select "dskimage.dsk",
in Basic type load"source.bas", then type cls:run
Description:
The program consists of 3 loops. One draws a square or diamond, the second draws the next two squares/diamonds and the third repeats for two more rows.
I used a gosub call to try to reduce program lenght.
Comments: