Patterns

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Related Products

Related Articles

Related Content

Image Gallery

Patterns

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

People

No people associated with this content.

Scroll to Top