Author: Art-top
Category: Christmas Challenge
System: ZX Spectrum
Language: Basic
Len source code: 94 bytes (spectrum basic inner text)
Len exe file: 119 bytes (image of tape record: 25 bytes of header + 94 bytes of code)
Len code only: 94 bytes
Instructions:
Install fuse (or some other zx spectrum emulator), drag and drop the vc24b.tap onto fuse.exe (or into running fuse window) for load, then press R (RUN) and then Enter for run programm.
Description:
At the beginning "gift bow" characters are printed.
In the main block of the program there are two loops: an outer one - for the Y counter
and an inner one - for the X counter. The current counters determine which character
should be printed.
Conditional expanded text of the program without optimizations and with comments:
PRINT TAB 8;"\O/": // print "gift bow"
LET a$=" |-+": // set of characters in string $s
FOR y=-9 TO 9: // vertical cycle
FOR x=-9 TO 9: // horizontal cycle
PRINT a$(1+(NOT SIN (ABS x *PI/9)+2*(NOT SIN (ABS y*PI/9));:
// calculates which character in order of character set to output and prints it on the screen
NEXT x: // next x
PRINT: // print line feed
NEXT y // next y
