home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug021.ark / DIAMONDS.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  688 b   |  40 lines
  1. 5 OUT 2,26
  2. 7 PRINT"                        ---- DIAMONDS ----":PRINT:PRINT:PRINT
  3. 10 PRINT "FOR A PRETTY DIAMOND PATTERN,"
  4. 20 PRINT "TYPE AN ODD # BETWEEN 5 & 31."
  5. 30 INPUT R
  6. 40 Q=INT(60/R)
  7. 50 FOR I=1TOQ
  8. 60 X=1
  9. 63 Y=R
  10. 67 Z=2
  11. 70 FOR N=X TO Y STEPZ
  12. 80 PRINT TAB((R-N)/2);
  13. 90 FOR J=1 TO Q
  14. 100 C=1
  15. 110 FOR K=1 TO N
  16. 120 IF C=1 THEN 260
  17. 130 IF C=2 THEN 300
  18. 140 IF C=3 THEN 440
  19. 200 PRINT "!";
  20. 210 GOTO 500
  21. 260 PRINT "D";
  22. 270 GOTO 470
  23. 300 PRINT "E";
  24. 310 GOTO 470
  25. 440 PRINT "C";
  26. 470 C=C+1
  27. 500 NEXT K
  28. 530 IF J=Q THEN 600
  29. 550 PRINT TAB(R*J+(R-N)/2);
  30. 560 NEXT J
  31. 600 PRINT
  32. 700 NEXT N
  33. 830 IF X<>1 THEN 950
  34. 850 X=R-2
  35. 860 Y=1
  36. 870 Z=-2
  37. 900 GOTO 70
  38. 950 NEXT I
  39. 999 END
  40.