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 / CPMUG054.ARK / DIAMND.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  598b  |  32 lines
  1. 1 REM *** WRITTEN BY DAVID AHL, DIGITAL
  2. 3 PRINT "FOR A PRETTY DIAMOND PATTERN,"
  3. 4 PRINT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 31."
  4. 5 INPUT R:PRINT
  5. 6 Q=INT(60/R)
  6. 8 FOR L=1 TO Q
  7. 10 X=1:Y=R:Z=2
  8. 20 FOR N=X TO Y STEP Z
  9. 25 PRINT TAB((R-N)/2);
  10. 28 FOR M=1 TO Q
  11. 29 C=1
  12. 30 FOR A=1 TO N
  13. 31 IF C=1 THEN 40
  14. 32 IF C=2 THEN 42
  15. 33 IF C=3 THEN 44
  16. 35 PRINT "!";:GOTO 50
  17. 40 PRINT "D";:GOTO 47
  18. 42 PRINT "E";:GOTO 47
  19. 44 PRINT "C";
  20. 47 C=C+1
  21. 50 NEXT A
  22. 53 IF M=Q THEN 60
  23. 55 PRINT TAB(R*M+(R-N)/2);
  24. 56 NEXT M
  25. 60 PRINT
  26. 70 NEXT N
  27. 83 IF X<>1 THEN 95
  28. 85 X=R-2:Y=1:Z=-2
  29. 90 GOTO 20
  30. 95 NEXT L
  31. 99 END
  32.