1 REM Created by "Level River St" on https://codegolf.stackexchange.com
2 CLS
3 MODE 2
4 FOR K=6 TO 185
5   REM Set S to true(-1) if K mod 9 = 5, otherwise set S to false(0)
6
7   S = K MOD 9=5
8
9   REM If K mod 18 = 15, send asc(space)=32 to the VDU controller,otherwise send 0.
10   REM This causes staggering every 2 lines.
11
12   VDU-32*(K MOD18=15)
13
14   REM Vdu 17 for colour. foreground colours start at 0, background colours at 128.
15   REM Rnd(6) to choose a bright color. Multiply by the horrible expression.
16   REM The horrible expression evaluates to 1 if the pixel is to be printed, 0 if not.
17   REM Picture data is stored in base 64 in the string.
18   REM MID$ extracts the characters in order.
19   REM The FOR loop starts at K=6 so that this will work properly.
20   REM Extracted character SHR ((K mod 6)) AND 1 to decide to
21   REM colour pixel or not. BBC basic does not have SHR operator.
22   REM so we divide by 2^(K mod 6) instead.
23
24   VDU 17,128+RND(6)*(ASC(MID$( "?OSUuLEMSS^H?=A_<A^tC|dGxEMh>W" ,K/6,1))/2^(K MOD 6)AND 1)
25
26   REM Print a space in the new background colour
27
28   VDU 32
29
30   REM Change background colour back to black
31
32   VDU 17,128
33
34   REM Print another space
35
36   VDU 32
37
38   REM If S is true (-1) print a carriage return and linefeed. otherwise two 0's
39
40   VDU -13*S,-10*S
41
42 NEXT