![Geek :geek:](./images/smilies/icon_e_geek.gif)
http://www.youtube.com/watch?v=lRxG1HvzfQU
He he, very good indeed.
Code: Select all
10 CLS #0
20 OPEN #6, scr_20x202a276x0
30 PAPER #6,0:CLS #6
40 OPEN #7, scr_20x202a296x0
50 PAPER#7,0:CLS #7
60 OPEN #5, scr_20x202a256x0
70 PAPER #5,0:CLS #5
80 OPEN #8, scr_20x202a316x0
90 PAPER #8,0: CLS #8
100 OPEN #9, scr_20x202a336x0
110 PAPER #9,0: CLS #9
120 OPEN #10, scr_20x202a356x0
130 PAPER #10,0: CLS #10
140 OPEN #11, scr_20x202a376x0
150 PAPER #11,0: CLS #11
160 OPEN #12, scr_20x202a396x0
170 PAPER #12,0:CLS #12
180 OPEN #13, scr_20x202a416x0
190 PAPER #13,0: CLS #13
200 OPEN #14, scr_20x202a436x0
210 PAPER #14,0:CLS #14
220 OPEN #15, scr_20x202a456x0
230 PAPER #15,0:CLS #15
240 OPEN #16, scr_36x202a476x0:PAPER #16,0:CLS #16
250 DEFine PROCedure buchstabenausgabe (kanal, color, pixel)
260 INK#kanal,color
270 AT #kanal,RND(15),1
280 PRINT #kanal, CHR$(RND(60 TO 110))
290 SCROLL #kanal,pixel
300 END DEFine
310 buchstabenausgabe 5, 5, 2
320 buchstabenausgabe 6, 5, -3
330 buchstabenausgabe 7,5,1
340 buchstabenausgabe 8,5,2
350 buchstabenausgabe 9,7,-1
360 buchstabenausgabe 10,5,1
370 buchstabenausgabe 11,5,2
380 buchstabenausgabe 12,7,1
390 buchstabenausgabe 13,5,-2
400 buchstabenausgabe 14,5,5
410 buchstabenausgabe 15,5,1
420 GO TO 310
Nice video, can you make the Matrix demo do full screenQLvsJAGUAR wrote:Tomorrow the 4th Matrix movie "The Matrix Resurrections" premieres the cinemas in Europe.
This reminded me of thorsinclair's implementation of "The Matrix". I even did a short video yesterday:
https://youtu.be/SNN7TMb1FN0
It may be the right time to dig out my versions of "The Matrix" which I wrote in the early 2000s. IIRC I made one to demo SMSQ/E multitasking (multiple JOBS and SCR channels) and one with nice SCROLL.