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
\n9998 SAVE "TAPESTR%Y"
\n9999 RUN
