**The Matrix for different systems.**

**CP/M MBASIC** \\

<code>
10 DEFINT A-Z:DIM R(80)
20 PRINT CHR$(26);
30 FOR C=2 TO 78:R(C)=INT(RND(1)*24)+1:NEXT
40 FOR C=2 TO 78 STEP 2
50 R(C)=R(C)+1:IF R(C)>23 THEN R(C)=1
60 PRINT CHR$(27);"=";CHR$(31+R(C));CHR$(31+C);CHR$(33+INT(RND(1)*93));
70 Y=R(C)-6:IF Y<1 THEN Y=Y+23
80 PRINT CHR$(27);"=";CHR$(31+Y);CHR$(31+C);" ";
90 NEXT
100 GOTO 40
</code>

**IBM Cassete Basic** \\

<code></code>

**VAX OpenVMS Basic** \\

<code></code>