SNOW
Author: jtn//4d
Category: Christmas Challenge
System: ZX Spectrum
Language: BASIC
Len source code: 61 bytes = 55 (source) + 6 variable
Len exe file: 86 bytes of tap file
Len code only: 61 bytes
Instructions: LOAD "" (or drag-n-drop on the any ZX Spectrum emulator like ZX Spin, Fuse, SpecEMU etc)
Description: Used SIN function and two FOR's cycles. Sine amplitude constant 2.72 was selected experimentally.
Comments: S variable already inited (saved with basic file) and program will be 3 bytes longer if the variable is defined in the program (with LET S=VAL "18").
2 FOR i=-s TO s: FOR j=PI TO s STEP EXP SQR PI: PRINT AT j+VAL "2.7*SIN(i*PI/6)",i;"*": NEXT j: NEXT i
CLEAR: LET s=18: SAVE "snow" LINE 1