Great example code from Simon Ferré

Blog reader and Wee Basic programmer extraordinaire Simon Ferré has a very impressive program for the festive season creating this message:

All done with graphics. No cheating with images here!

And the code to prove it:

for x=8 to 16
line 1 x,8,x,64,x
line 1 x,8,x+20,40,x
line 1 x+20,40,x+40,8,x
line 1 x+40,8,x+40,64,x
line 1 x+56,8,x+56,64,x
line 1 x+56,x,96,x,x
line 1 x+56,x+24,88,x+24,x
line 1 x+56,x+48,96,x+48,x
line 1 x+96,8,x+96,64,x
line 1 x+96,x,136-(x/2),x,x
line 1 136-(x/2),x,144-x,
8+(x/2),x
line 1 144-x,8+(x/2),
144-x,40-(x/2),x
line 1 144-x,40-(x/2),
136-(x/2),48-x,x
line 1 136-(x/2),48-x,
112,48-x,x
line 1 112+x,41, 120+x,64,x
line 1 x+136,8,x+136,64,x
line 1 x+136,x,176-(x/2),x,x
line 1 176-(x/2),x,
184-x,8+(x/2),x
line 1 184-x,8+(x/2),
184-x,40-(x/2),x
line 1 184-x,40-(x/2),
176-(x/2),48-x,x
line 1 176-(x/2),48-x,
152,48-x,x
line 1 152+x,41,160+x,64,x
line 1 176+x,8,192+x,40,x
line 1 192+x,40,192+x,64,x
line 1 192+x,40,208+x,8,x
line 1 x,100, x+40, 164,x
line 1 x,164, x+40, 100,x
line 1 x+56,100, x+56,164, x
line 1 x+56,100, x+80,140, x
line 1 x+80,140, x+104,100,x
line 1 x+104,100,x+104,164,x
line 1 x+120,164,x+144,100,x
line 1 x+144,100,x+168,164,x
line 1 153-(x/2),124+x,
159+(x/2),124+x,x
line 1 208,92+x,248,92+x,x
line 1 208,92+x,192+x,108,x
line 1 192+x,108,
192+x,144-x,x
line 1 192+x,144-x,
232+x,144-x,x
line 1 232+x,144-x,
232+x,156,x
line 1 232+x,156,
240,148+x,x
line 1 200,148+x,240,148+x,x
next

let k=0
while k=0
let k=key()
wend
end

Thanks Simon from everyone here… which is…me

NB Readers should take care copying the code into their own programs because html from the webpage can screw up some of the characters – even if they look the same.

Advertisement