0 DEFINT A-Z
1 PRINT CHR$(26):WIDTH 80:PRINT TAB(33);"DIAMND":PRINT
2 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
3 PRINT:PRINT:PRINT
4 PRINT "FOR A PRETTY DIAMOND PATTERN,"
5 INPUT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 21";R:PRINT
6 Q=INT(78/R):LINE INPUT "ENTER TWO CAPITAL LETTERS: ";RESP$:

  A$=LEFT$(RESP$,2)
7 PRINT CHR$(26)
8 QQ=24/R+1:FOR L=1 TO QQ
10 X=1:Y=R:Z=2
20 FOR N=X TO Y STEP Z
25 PRINT TAB((R-N)/2+1);
28 FOR M=1 TO Q
29 C=1
30 FOR A=1 TO N
32 IF C>LEN(A$) THEN PRINT "!";:GOTO 50
34 PRINT MID$(A$,C,1);
36 C=C+1
50 NEXT A
53 IF M=Q THEN 60
55 PRINT TAB(R*M+(R-N)/2+1);
56 NEXT M
60 PRINT
70 NEXT N
83 IF X<>1 THEN 95
85 X=R-2:Y=1:Z=-2
90 GOTO 20
95 NEXT L
99 RUN "MENU"
(R*M+(R-N)/2+1);
56 NEXT M
60 PR