XMAS
Author: Red Zebra
Category: Christmas Challenge
System: ZX Spectrum
Language: BASIC
Len source code: 231
Len exe file: 281
Instructions:
1.Install and run FUSE emulator
2.From the File menu select Open
3.Find and select the xmas.tap file.
4.From the BASIC prompt enter: LOAD ""
5.Once the tape image has loaded enter: RUN
(There is a keyboard reference image in the Help menu if you need to find the key-tokens)
Description:
The code builds the image in the fixed-length string p$ then prints it out 19 columns at a time at the end.
The string v$ contains a lookup of the distance between asterisks to build a 3rd of the image.
Each character value is converted to an integer value using VAL and added to the running offset into p$.
The lookup-offset loops (modulus 31) until the end of p$ is reached.
Comments:
Hello!