90 REM BRIAN2 
100 REM (C) BRIAN R SMITH 1980 
110 REM ROYAL COLLEGE OF ART, LONDON 
120 REM VERSION 1.0 / 16 NOV 81 
130 INPUT "NUMBER OF CYCLES e.g. 1 to 5 ",T 
140 INPUT "BACKGROUND SYMBOL e.g. + ",D$ 
150 INPUT "MOTIF (<20 CHR$.)",A$ 
160 INPUT "TEXT AFTER DESIGN", B$ 
170 CLS 
180 F=1 
190 READ A,G,S,C,D,N 
200 H=(D-C)/N 
210 X=0 
220 J=1 
230 X=X+S 
240 Y=SIN(X) 
250 Y1=1+INT((Y-C)/H+0.5) 
260 I=0 
270 I=I+1
280 IF I=Y1 THEN 310 
290 PRINT D$; 
300 GOTO 420 
310 Z=Z+F 
320 IF Z>0 THEN 350 
330 F=-F 
340 GOTO 450 
350 IF Z<=LEN(A$) THEN 390 
360 F=-F 
370 Z=Z-1 
380 GOTO 310 
390 S$=LEFT$(A$,Z) 
400 PRINT S$; 
410 I=I+Z 
420 IF I<40 THEN 270 
430 PRINT 
440 GOTO 230 
450 J=J+1 
460 IF J>T THEN 490 
470 Z=Z+1 
480 GOTO 310 
490 FOR K=1 TO 39 
500 PRINT D$; 
510 NEXT K 
520 PRINT 
530 PRINT B$ 
540 DATA 0,6.4,0.2,-1,1,20