lNT3R.NET

User Tools

Site Tools

Trace:
matrix

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Next revision		Previous revision
matrix [2026/09/15 23:20] – created adminmatrix [2026/09/15 23:22] (current) – admin
Line 8: Line 8:
 30 FOR C=2 TO 78:R(C)=INT(RND(1)*24)+1:NEXT 30 FOR C=2 TO 78:R(C)=INT(RND(1)*24)+1:NEXT
 40 FOR C=2 TO 78 STEP 2 40 FOR C=2 TO 78 STEP 2
-50 R(C)=R(C)+1:IF R(C)>24 THEN R(C)=1+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)); 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+70 Y=R(C)-6:IF Y<1 THEN Y=Y+23
 80 PRINT CHR$(27);"=";CHR$(31+Y);CHR$(31+C);" "; 80 PRINT CHR$(27);"=";CHR$(31+Y);CHR$(31+C);" ";
 90 NEXT 90 NEXT
Line 20: Line 20:
 <code></code> <code></code>
  
-** VAX OpenVMS Basic** \\+**VAX OpenVMS Basic** \\
  
 <code></code> <code></code>
  
  
matrix.1789514452.txt.gz · Last modified: by admin