[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM   ALTAIR DIAMOND PATTERN
3  REM  =======================
5  REM  ADAPTED FOR THE APPLE II, DEBUGGED, AND SLIGHTLY IMPROVED BY MOOSE O'MALLEY 6-MAR-2002
6  REM  ************************
7 TEXT : HOME
8 PRINT "FOR A 'PRETTY' DIAMOND PATTERN,"
10 PRINT "TYPE IN A NUMBER BETWEEN 5 AND 31 ";
12 INPUT R:PRINT
13 IF R < 5 OR R > 31 THEN PRINT : PRINT "NUMBER OUTSIDE THE RANGE 5-15 !" : PRINT : GOTO 8
14 Q=INT(40/R)
16 FOR L=1 TO Q
18 X=1:Y=R:Z=2
20 FOR N=X TO Y STEP Z
24 REM PRINT "T1:";INT((R-N)/2)+1; : REM DEBUGGING
25 PRINT TAB(INT((R-N)/2)+1);
28 FOR M=1 TO Q
29 C=1
30 FOR A=1 TO N
31 IF C=1 THEN 40
32 IF C=2 THEN 42
33 IF C=3 THEN 44
35 PRINT "'";:GOTO 50
40 PRINT "S";:GOTO 47
42 PRINT "U";:GOTO 47
44 PRINT "N";
47 C=C+1
50 NEXT A
53 IF M=Q THEN 60
54 REM PRINT "T2:";INT(R*M+(R-N)/2)+1; : REM DEBUGGING
55 PRINT TAB(INT(R*M+(R-N)/2)+1)
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