39 BRIAN This program prints a ‘path in the grass’. It is a fine example of a ‘non-structured’ use of BASIC; you might like to try and ‘structure’ it. 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( 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 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 430 PRINT 440 GOTO 230 450 J=J+1 460 IF J>T THEN 490 470 Z=Z+1