+ :  Diamond 3D - Een TURBO R listing X : ************************************  : NB: Met basic kun : _RUN ! werkt dit  :     programma ook redelijk snel op ̀ :     de MSX2 en 2+ !!  : ************************************  : 
  AQ: RZ  A$ [  T(,): X(),Y(),Z(),XX(),YY(),A(),B(),C() c : v(  12,29,256,80 ~2 : <  44.282,  0     ,123.301 F  19.282,  0     , 80 ՁP  44.282,  0     , 36.6988 Z  94.282,  0     , 36.6988 d 119.282,  0     , 80 ,n  94.282,  0     ,123.301 Fx  69.282, 22.9825,160 `   0    , 22.9825,120 z   0    , 22.9825, 40   69.282, 22.9825,  0  138.564, 22.9825, 40 Ȃ 138.564, 22.9825,120 ₴  69.282,102.983 , 80 ꂾ :   0,1,1,2,2,3,3,4,4,5,5,0 *  6,7,7,8,8,9,9,10,10,11,11,6 d  0,6,0,7,1,7,1,8,2,8,2,9,3,9,3,10,4,10,4,11,5,11,5,6   6,12,7,12,8,12,9,12,10,12,11,12  :   1,1,1,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,3,3,3,2,2,2,2,2,4,2,2,2,2,2,1,1,3,3,3,3,0 
: : # ,,:  @"P:Q: PAGE P,Q:,: t,(,,,):(,,,):(,,,):(,,,) 6RA   @XM:YM:ZM JU():T(,):T(,)(U):T(,)T(,):T(,)(U):T(,)T(,) TI%:J%:C(J%I%)J%:J%:I% ^: 'h N%,M%: OX,OY Kr I%  N%: X(I%),Y(I%),Z(I%) s|XMXMX(I%):YMYMY(I%):ZMZMZ(I%)  I%:XMXMI%:YMYMI:ZMZMI% օ I%  N:X(I%)X(I%)XM:Y(I%)Y(I%)YM:Z(I%)Z(I%)ZM:I%  I%  M: A(I%),B(I%):I%   :  :  A / A    :  Q A   T(,),T(,):  [AA k I%  N% XX(I%)T(C(A),C(A))Y(I%)T(C(A),C(A))Z(I%)T(C(A),C(A)) YX(I%)T(C(A),C(A))Y(I%)T(C(A),C(A))Z(I%)T(C(A),C(A)) @ZX(I%)T(C(A),C(A))Y(I%)T(C(A),C(A))Z(I%)T(C(A),C(A)) aX(I%)X:Y(I%)Y:Z(I%)Z: I%  I%  N%:W(Z(I%))X XX(I%)X(I%)RWOX:YY(I%)Y(I%)WOY & I% ͇0 PAGE P,Q:: P,Q ݇: I%  M% ;L((Z(A(I%)))(Z(B(I%)))(Z(A(I%))Z(B(I%)))) QD(XX(A(I%)),YY(A(I%)))(XX(B(I%)),YY(B(I%))),L,, ZN I% sO " "  ,,:: }X    