Universal Patterner

UNIVERSAL PATTERNER is for 16K users and produces patterns at random. Author W.S. Hearn states that more than two million designs can be printed on the screen.

Each pattern has a number and string length printed at the bottom, so can be recalled and adjusted using those numbers. Answer N for No when asked if a random pattern is required and then input the numbers.

  10 DIM A(33)
  15 SLOW
  20 PRINT "RANDOM PATTERN? (Y OR N)"
  30 INPUT A$
  40 CLS
  50 IF NOT  A$="Y" THEN GOTO 200
  60 LET L=INT (RND*33)+1
  70 LET X=INT (RND*65535)+1
  80 RAND X
  85 FAST
  90 FOR J=1 TO L
 100 LET A(J)=INT (RND*10)+1
 110 NEXT J
 120 FOR J=1 TO 660/L
 130 FOR K=1 TO L
 140 PRINT CHR$ A(K);
 150 NEXT K
 160 NEXT J
 170 PRINT X;"(";L;")"
 180 STOP
 200 PRINT "PATTERN NUMBER?"
 210 INPUT X
 220 CLS
 230 PRINT "STRING LENGTH?"
 240 INPUT L
 250 CLS
 260 GOTO 80