Forth rail bridge at night, bbc basic https://bbcmic.ro/

forth.bas

MODE2
VDU 23,3,16,32,0,0,0,0,0,0
GCOL32,0
FORX=0TO1280STEP RND(32)
Z=RND(500):MOVEX,440-Z:PLOT5,X,440+Z
NEXT
GCOL16,0
MOVE0,404
MOVE0,712:PLOT5,1080,460
FORZ=0TO6STEP0.2
C1=FNC(Z,1)+FNC(Z+.2,1)+FNC(Z,-1)+FNC(Z+.2,-1)+FNC(Z,1)
NEXT
GCOL0,7
Z=FNP(100)+FNP(622)+FNP(702)+FNP(930)+FNP(1E3)
END
DEFFNP(X)
PLOT69,X,404:PLOT1,8,8
GCOL64,0
FORY=20TO300STEP4
FORJ=1TO4
Z=(RND(1)-.5)*Y/4
MOVEX+Z,404-Y
PLOT-(RND(1)>Y/300),10,0
NEXT,
=0
END
DEFFNC(A,B):S=SIN((A*2-B-1.4)*PI/2):Y=(100*B+(170+40*B)*(S-1)*(S<0.6))/(A+.7)+60-10*A:PLOT5,(1205*A)/(A+.5),400-(Y>0)*Y:=0