Text Tiles

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

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Text Tiles

Source Code

   5 REM TEXT(ILES)
  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);
 100 GOTO 20
 110 SAVE "1013%0"
 120 RUN 

People

No people associated with this content.

Scroll to Top