Ogni volta che si lancia questo programma crea un paesaggio diverso e casuale.
1060 graphic 3,1: color 5,2: color 3,15
1070 color 2,8:color 0,1: color 4,1
1080 sound 1,0,0:sound 2,0,0:sound 3,0,0:vol 0
1100 print chr$(142)
1110 for a=1 to 8
1120 sprite a,0:next a
1140 for a=1 to 20
1150 draw 1,rnd(1)*159,rnd(1)*80
1160 next a
1170 k=5:n=2
1180 dim l(20)
1190 dim h(20)
1200 print chr$(142)
1210 for a=1 to 8
1220 sprite a,0:next a
1230 for a=1 to 20
1240 l(a)=((2+int(rnd(1)*3))*4)
1250 h(a)=(k+int(rnd(1)*(2+k)))*8+int((rnd(1)*k)-1)
1260 next a
1270 x=0
1280 for a=1 to 20
1290 x=x+l(a)
1300 if x<160 then gosub 1400
1310 if x>159 then 1330
1320 next a
1330 l(a)=159-(x-l(a))
1340 x=159
1350 gosub 1400
1360 if k=2 then 1390
1370 k=2:n=3
1380 goto 1230
1390 sleep 10:graphic 0,1:end
1400 for y=0 to h(a) step 2
1410 draw n,x-l(a),191-y to x-1,191-y
1420 draw 0,x-l(a),190-y to x-1,190-y
1430 next y
1440 draw n,x-l(a),191 to x-l(a),192-h(a)
1450 draw n,x-1,191 to x-1,192-h(a)
1460 return