Patterns

Gallery

Source Code

   5 REM %P%A%T%T%E%R%N%S
  10 DIM G$(9)
  20 FOR I=1 TO 9
  30 LET G$(I)=CHR$ (INT (RND*11)+(RND>.5)*128)
  40 NEXT I
  50 PRINT AT 0,0;
  60 FOR I=1 TO 78
  70 PRINT G$;
  80 NEXT I
  90 PRINT G$( TO 2);
  95 PAUSE 120
 100 GOTO 20
 200 SAVE "1006%5"
 210 RUN