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