Divisible

Author: issalig
Category: Christmas Challenge
System:   Amstrad CPC
Language: Locomotive BASIC
Len source code: 115
Len exe file:    139
Len code only:
Instructions:
Install RetroVirtualMachine or WinAPE
Insert disk vc3.dsk
Then in BASIC type: RUN "VC3
Description:
It draws a gift box. It uses a function to get the character from a set
of 4 "+-! ". a=32-10*((i mod 9)=0)-((j mod 9)=0):a=a-(a=42)*3
Comments:
I tried to make it small but readable. Enjoy it!