Nie udało mi się zdążyć przed północą, ale mam propozycję innej muzyki zamiast Boulder Dasha - oto:
5 GRAPHICS 7
10 ? "(') 2017 - PRIMUS INTER PARENTHESIS"
20 GOTO 110
30 COLOR RND(0)*4:DRAWTO H01,V01:H01=RND(0)*159:V01=RND(0)*95:RETURN
110 RESTORE 1000
120 DIM TA(7):FOR I=0 TO 7:READ V:TA(I)=V:NEXT I
130 DIM TB(31):FOR I=0 TO 31:READ V:TB(I)=V:NEXT I
140 DIM TC(7):FOR I=0 TO 6:READ V:TC(I)=V:NEXT I
150 DIM TD(31):FOR I=0 TO 31:READ V:TD(I)=V:NEXT I
160 DIM TE(127):FOR I=0 TO 127:READ V:TE(I)=V:NEXT I
170 A=0:B=0:C=0:D=0:Z0=0:Z1=1:Z7=7:Z32=32:Z128=128:VOL=0
180 F1=53760:F2=F1+2:F3=F2+2:F4=F3+2:C1=F1+1:C2=C1+2:C3=C2+2:C4=C3+2:CTL=C4+1
190 POKE CTL,2
200 POKE F1,TD(A):IF TD(C)<>Z0 THEN POKE C1,TA(C)
210 IF C<Z7 THEN 240
220 C=Z0:POKE C2,Z0:A=A+Z1:B=B+Z1:IF B=Z128 THEN B=Z0
230 IF A=Z32 THEN A=Z0:IF D=Z0 THEN B=Z0:D=D+Z1:VOL=164
240 C=C+Z1:V=TE(B):POKE F4,V:POKE F2,V+Z1:POKE C2,VOL:POKE C4,VOL
250 V=TB(A):POKE F3,V:IF V<>Z0 THEN POKE C3,TC(C)
260 GOSUB 30:GOTO 200
1000 DATA 175,175,172,170,168,165,162,160,10,0,0,0,1,0,0,0,10,0,0,0,1,0,1,0,10,0,0,0,1,0,0,0
1001 DATA 10,1,10,1,1,1,1,1,12,12,10,8,6,4,0,243,243,96,96,121,121,162,162,144,144,96,96,121,121,144,144,182
1002 DATA 182,91,91,121,121,144,144,162,162,81,81,108,108,128,128,81,0,81,0,81,0,81,0,96,0,96,0,96,0,96,0,91
1003 DATA 0,91,0,96,0,91,0,108,108,108,108,108,108,108,0,121,121,121,0,121,121,121,0,144,144,144,0,144,144,144,0,182
1004 DATA 182,182,0,182,182,182,0,162,162,162,162,162,162,162,0,162,0,162,0,162,0,162,0,144,0,144,0,144,0,144,0,121
1005 DATA 0,121,0,121,0,121,0,108,108,108,108,108,108,108,0,96,0,96,0,96,0,96,0,144,0,144,0,144,0,144,0,91
1006 DATA 91,91,0,91,91,91,0,128,128,128,128,128,128,128,0