Tapestry

Date: February 1983
Type: Program
Platform(s): TS 1000

Appears on

Cassette to accompany the February 1983 issue of Synchro-Sette.

Source Code

   1 LET A=0
   2 LET B=21
   3 LET D=0
   4 LET E=31
   5 LET Z$=CHR$ (INT (RND*11+128*(RND<0.5)))
  50 FOR C=A TO B
  60 PRINT AT C,D;Z$
  70 NEXT C
  80 FOR C=D TO E
  90 PRINT AT B,C;Z$
 100 NEXT C
 110 FOR C=B TO A STEP -1
 120 PRINT AT C,E;Z$
 130 NEXT C
 140 LET B=B-1
 150 LET D=D+1
 160 LET E=E-1
 170 FOR C=E TO D STEP -1
 180 PRINT AT A,C;Z$
 190 NEXT C
 200 LET A=A+1
 210 IF D>=E THEN GOTO 230
 220 GOTO 5
 230 FOR C=10 TO 2 STEP -1
 240 LET Z$=CHR$ (INT (RND*11+128*(RND<0.5)))
 250 FOR A=0 TO 360 STEP 10
 260 LET B=A*PI/180
 270 PRINT AT 10+C*COS B,15+C*SIN B;Z$
 280 NEXT A
 290 NEXT C
 300 PAUSE 200
 310 CLS 
 320 RUN 
9998 SAVE "TAPESTR%Y"
9999 RUN 

People

No people associated with this content.

Scroll to Top