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

Both sides previous revisionPrevious revision
matrix [2026/09/15 23:21] – 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
matrix.1789514465.txt.gz · Last modified: by admin