add all BASIC source files and folders

32 Diamond/README.md

@@ -0,0 +1,7 @@
+### Diamond
+
+As published in Basic Computer Games (1978)
+https://www.atariarchives.org/basicgames/showpage.php?page=55
+
+Downloaded from Vintage Basic at
+http://www.vintage-basic.net/games.html

32 Diamond/diamond.bas

@@ -0,0 +1,27 @@
+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