home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
SIMTEL
/
CPMUG
/
CPMUG021.ARK
/
DIAMONDS.ASC
< prev
next >
Wrap
Text File
|
1984-04-29
|
688b
|
40 lines
5 OUT 2,26
7 PRINT" ---- DIAMONDS ----":PRINT:PRINT:PRINT
10 PRINT "FOR A PRETTY DIAMOND PATTERN,"
20 PRINT "TYPE AN ODD # BETWEEN 5 & 31."
30 INPUT R
40 Q=INT(60/R)
50 FOR I=1TOQ
60 X=1
63 Y=R
67 Z=2
70 FOR N=X TO Y STEPZ
80 PRINT TAB((R-N)/2);
90 FOR J=1 TO Q
100 C=1
110 FOR K=1 TO N
120 IF C=1 THEN 260
130 IF C=2 THEN 300
140 IF C=3 THEN 440
200 PRINT "!";
210 GOTO 500
260 PRINT "D";
270 GOTO 470
300 PRINT "E";
310 GOTO 470
440 PRINT "C";
470 C=C+1
500 NEXT K
530 IF J=Q THEN 600
550 PRINT TAB(R*J+(R-N)/2);
560 NEXT J
600 PRINT
700 NEXT N
830 IF X<>1 THEN 950
850 X=R-2
860 Y=1
870 Z=-2
900 GOTO 70
950 NEXT I
999 END