1 NOEXPAND
10 PRINT "FOR A PRETTY DIAMOND PATTERN, TYPE ANY ODD NUMBER BETWEEN 5 AND 31"
20 INPUT R:PRINT
30 Q=INT(80/R)
40 FOR L=1 TO Q
50 X=1:Y=R:Z=2
60 FOR N=X TO Y STEP Z
70 PRINT TAB((R-N)/2);
80 M=1
100 C=1
110 FOR A=1 TO N
120 IF C=1 THEN 160
130 IF C=2 THEN 170
140 IF C=3 THEN 180
150 PRINT "!";:GOTO 200
160 PRINT "C";:GOTO 190
170 PRINT "C";:GOTO 190
180 PRINT "C";
190 C=C+1
200 NEXT A
210 IF M=Q THEN 240
220 PRINT TAB(R*M+(R-N)/2);
230 M=M+1
235 GOTO 100
240 PRINT
250 NEXT N
260 IF X<>1 THEN 290
270 X=R-2:Y=1:Z=-2
280 GOTO 60
290 NEXT L
300 PRINT:PRINT:PRINT:PRINT:PRINT TAB(2);
305 PRINT TAB(10);
310 PRINT " C H R I S T E N S E N   C O M P U T E R   C O M P A N Y"
320 PRINT:PRINT:PRINT:PRINT
330 END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.