mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-21 23:00:43 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
28 lines
562 B
QBasic
28 lines
562 B
QBasic
1 PRINT TAB(33);"DIAMOND"
|
|
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(60/R):A$="CC"
|
|
8 FOR L=1 TO Q
|
|
10 X=1:Y=R:Z=2
|
|
20 FOR N=X TO Y STEP Z
|
|
25 PRINT TAB((R-N)/2);
|
|
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);
|
|
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 END
|