Proszę o dopisywanie się do listingu, wstawiania go w całości i stosowaniu tagu [ code ] [ / code ]
20000 ? "BACK TO THE FUTURE..."
20005 FOR I=0 TO 200:NEXT I: GRAPHICS 0
30000 GRAPHICS 0:POKE 752,1:FDA=256*PEEK(756)+16*8
30004 POKE 623,64
30005 FOR N=9 TO 0 STEP -1:Y=8
30010 FOR B=0 TO 7:FDB=PEEK(FDA+N*8+B):X=16:POSITION X,Y
30015 FOR BIT=0 TO 7:? CHR$(32+64*(FDB>=128));:FDB=(FDB-128*(FDB>=128))*2:NEXT BIT
30020 Y=Y+1:NEXT B
30025 FOR W=1 TO 500:NEXT W:NEXT N
32758 POKE 752,0: GRAPHICS 0
32759 END
32760 REM Prima Aprilis Compo 2026
32762 REM by Lizard, Mono, tbxx, dely