lNT3R.NET

This is an old revision of the document!

---

The Matrix for different systems.

CP/M MBASIC

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)>24 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+24
80 PRINT CHR$(27);"=";CHR$(31+Y);CHR$(31+C);" ";
90 NEXT
100 GOTO 40

IBM Cassete Basic

** VAX OpenVMS Basic**