   10 PRINT "Size: (ex. 4) ";
   20 INPUT S
   30 X=S*2:Y=S*2
   40 CLS
   50 FOR J=0 TO S
   60   FOR I=-S-J TO S+J
   70     PRINT TAB(X+I,Y-J);"*"
   80     PRINT TAB(X+I,Y+J);"*"
   90     PRINT TAB(X-J,Y+I);"*"
  100     PRINT TAB(X+J,Y+I);"*"
  110   NEXT
  120 NEXT
  130 GOTO 20
