'===========================================================================
' Subject: OSCAR REUTERSV„RD PICTURE III     Date: 01-07-99 (12:34)       
' Author:  Jacob Wieles                      Code: QB, QBasic, PDS, PB    
' Origin:  jacwls@worldonline.nl           Packet: GRAPHICS.ABC
'===========================================================================
'programma        : OSCAR-B3.BAS   (06-01-99)
'                   Playing with a lookalike Oscar Reutersv„rd picture.
'which basic      : PowerBASIC  and Q(uick)BASIC
'auteur           : Jacob Wieles

cls
defint a-z
iy=5
ix=2*iy
x1=ix:x2=2*ix
y1=iy:y2=2*iy:y3=4*iy
gosub initdrawstrings
screen 12
color 10
line(320-240,0)-(320+240,479),15,bf
gosub drawboxes
call hitkey("UpSideDn")
gosub upsidedown
call hitkey("Rotation")
gosub rotation
call hitkey("UpSideDn")
gosub upsidedown
call hitkey("Lft-Rght")
gosub LeftSideRight
call hitkey("LinePic1")
for i=0 to 479
  line(320-240,i)-(320+240,i),15
next i
gosub LinePict1
call hitkey("UpSideDn")
gosub upsidedown
call hitkey("Rotation")
gosub rotation
call hitkey("UpSideDn")
gosub upsidedown
call hitkey("Lft-Rght")
gosub LeftSideRight
call hitkey("LinePic2")
for i=0 to 479
  line(320-240,i)-(320+240,i),15
next i
gosub LinePict2
call hitkey("UpSideDn")
gosub upsidedown
call hitkey("Rotation")
gosub rotation
call hitkey("UpSideDn")
gosub upsidedown
call hitkey("Lft-Rght")
gosub LeftSideRight
call hitkey("End.")
cls
screen 0
print"Thank you for running this program. Hit a key for the source."
end
'======================================================================

sub PaintBoxes
  shared PX,PY,i
  PAINT(PX,PY-2),10,1      'top
  PAINT(PX-1,PY+1),11,1    'left
  PAINT(PX+1,PY+1),12,1    'right
end sub

sub HitKey(HK$)
  while inkey$<>"":wend
  locate 1,1
  print"Hit Key"
  locate 3,1
  print"for"
  locate 5,1
  print HK$;
  hit$=input$(1)
  locate 1,1
  print"       "
  locate 3,1
  print"   "
  locate 5,1
  print space$(len(hk$))
end sub

'=======================================================================
drawboxes:
px=320+5*x2
py=240
for i=0 to 67
  select case i
  case 0 to 3
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    if i=0 then draw s15$
    if i>0 then draw s2$
  case 4 to 7
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    if i=4 then draw s7$
    if i=5 then draw s15$
    if i>5 then draw s2$
  case 8 to 10
    py=py+3*y2
    pset(px,py)
    if i=8 then draw s9$
    if i>8 then draw s3$
  case 11 to 15
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    if i=11 then draw s12$
    if i=12 or i=15 then draw s4$
    if i=13 then draw s7$
    if i=14 then draw s13$
  case 16 to 22
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    if i=16 then draw s15$
    if i>16 then draw s2$
  case 23 to 36
    py=py+3*y2
    pset(px,py)
    if i=23 then draw s9$
    if i>23 then draw s3$
  case 37 to 43
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    if i= 37 then draw s12$
    if i>37 then draw s4$
  case 44 to 48
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    if i=44 then draw s15$
    if i=45 then draw s7$
    if i=46 then draw s15$
    if i>46 then draw s2$
  case 49 to 51
    py=py+3*y2
    pset(px,py)
    if i=49 then draw s9$
    if i>49 then draw s3$
  case 52 to 58
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    if i=52 then draw s12$
    if i=53 or i>55 then draw s4$
    if i=54 then draw s7$
    if i=55 then draw s13$
  case 59 to 62
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    if i=59 then draw s7$
    if i=60 then draw s13$
    if i>60 then draw s4$
  case 63 to 65
    py=py+3*y2
    pset(px,py)
    if i=63 then draw s10$
    if i>63 then draw s3$
  case >65
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    if i=66 then draw s16$
    if i>66 then draw s2$
  end select
  call PaintBoxes
NEXT I
RETURN

LinePict1:
px=320+5*x2
py=240
pset(px,py-y3),1
line-step(-11*x1,-11*y1),1
draw"C1NM-="+VARPTR$(X2)+",-="+VARPTR$(Y2)
line-step(2*x2,-2*y2),1
px1=point(0):py1=point(1)
line-step(0,-y3),1
dx=3*x2:dy=3*y2
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-23*x1,-23*y1),1
line-step(-x2,y2),1
stx0=point(0):sty0=point(1)
line-step(0,22*y3),1
line-step(x2,y2),1
line-step(23*x1,-23*y1),1
line-step(0,-y3),1
'stx1=point(0):sty1=point(1)
line-step(-2*x2,-2*y2),1
draw"NM-="+VARPTR$(X2)+",-="+VARPTR$(Y2)
line-step(11*x1,-11*y1),1
px2=point(0):py2=point(1)
draw"NU="+VARPTR$(Y3)
line-step(9*x1,9*y1),1
stx2=point(0):sty2=point(1)
line-step(x2,-y2),1
line-step(0,-11*y2),1
dx=9*x1:dy=9*y1
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-x2,-y2),1
line-step(-9*x1,9*y1),1
'===========================================
pset(stx0,sty0),1
line-step(21*x1,21*y1),1
line-step(-2*x2,2*y2),1
line-step(-9*x1,-9*y1),1
line-step(-x2,y2),1
dx=9*x1:dy=9*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,11*y2),1
line-step(x2,y2),1
dy=9*y2
draw"NU="+VARPTR$(dy)
line-step(9*x1,-9*y1),1
stx3=point(0):sty3=point(1)
line-step(0,-y3),1
dx=13*x1:dy=13*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-7*x1,7*y1),1
line-step(0,-5*y2),1
draw"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(3*x1,3*y1),1
draw"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(-3*x1,3*y1),1
pset(stx3,sty3)
line-step(11*x1,11*y1),1
draw"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(-11*x1,11*y1),1
line-step(-9*x1,-9*y1),1
line-step(-x2,y2),1
dx=9*x1:dy=9*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,11*y2),1
line-step(x2,y2),1
dy=9*y2
draw"NU="+VARPTR$(dy)
line-step(9*x1,-9*y1),1
stx4=point(0):sty4=point(1)
line-step(0,-y3),1
dx=4*x1:dy=4*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-7*x1,7*y1),1
line-step(0,-5*y2),1
draw"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(3*x1,3*y1),1
draw"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(-3*x1,3*y1),1
pset(stx4,sty4)
line-step(x2,y2),1
draw"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(-15*x1,15*y1),1
line-step(0,y3),1
dx=21*x1:dy=21*y1
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,-19*y3),1
dx=15*x1:dy=15*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-x2,-y2),1
line-step(0,21*y3),1
pset(stx2,sty2),1
line-step(0,-9*y2),1
line-step(-5*x1,5*y1),1
draw"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(3*x1,3*y1),1
dy=3*y2
draw"NU="+VARPTR$(dy)
line-step(0,y3),1
line-step(-7*x1,-7*y1),1
line-step(-13*x1,13*y1),1
paint(stx0+x1,sty0),10,1
paint(stx0+x1,sty0+y3),11,1
paint(stx0+3*x1,sty0+2*y3),12,1
paint(stx0+7*x1,sty3),11,1
paint(stx0+7*x1,sty4),11,1
paint(stx3-x1,sty3),12,1
paint(stx3+x1,sty3),11,1
paint(stx4-x1,sty4),12,1
paint(stx4+x1,sty4),11,1
paint(stx2-x1,sty2-y2),11,1
paint(stx2+x1,sty2-y2),12,1
paint(px1-x1,py1-y1),12,1
paint(px2-x1,py2-y1),12,1
return

LinePict2:
px=320+5*x2
py=240
pset(px,py-y3),1
line-step(-11*x1,-11*y1),1
dx=2*x2:dy=2*y2
draw"C1NM-="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(2*x2,-2*y2),1
line-step(0,-y3),1
dx=3*x2:dy=3*y2
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-23*x1,-23*y1),1
line-step(-x2,y2),1
stx0=point(0):sty0=point(1)
line-step(0,22*y3),1
line-step(x2,y2),1
du=21*y3
draw"NU="+VARPTR$(du)
line-step(23*x1,-23*y1),1
line-step(0,-y3),1
line-step(-2*x2,-2*y2),1
stx1=point(0):sty1=point(1)
line-step(11*x1,-11*y1),1
px2=point(0):py2=point(1)
line-step(9*x1,9*y1),1
stx2=point(0):sty2=point(1)
line-step(x2,-y2),1
line-step(0,-11*y2),1
dx=24*x1:dy=24*y1
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-x2,-y2),1
dx=24*x1:dy=24*y1
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-9*x1,9*y1),1
pset(stx0,sty0),1
line-step(21*x1,21*y1),1
line-step(-x2,y2),1
dx=17*x1:dy=17*y1
draw"NM-="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(-x2,y2),1
line-step(-9*x1,-9*y1),1
line-step(-x2,y2),1
dx=24*x1:dy=24*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,11*y2),1
line-step(x2,y2),1
dx=9*x1:dy=9*y1
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,-18*y1),1
line-step(x2,y2),1
dx=18*x1:dy=18*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,6*y1),1
dx=3*x1:dy=3*y1
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,y3),1
line-step(5*x1,-5*y1),1
pset(stx1,sty1)
line-step(-13*x1,-13*y1),1
line-step(-x2,y2),1
stx3=point(0):sty3=point(1)
line-step(15*x1,15*y1),1
line-step(-17*x1,17*y1),1
du=18*y3
draw"NU="+VARPTR$(du)
line-step(0,y3),1
line-step(21*x1,-21*y1),1
pset(stx3,sty3),1
line-step(0,11*y2),1
line-step(x2,y2),1
dx=9*x1:dy=9*y1
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,-9*y2),1
line-step(x2,y2),1
dx=9*x1:dy=9*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,6*y1),1
dx=3*x1:dy=3*y1
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,y3),1
line-step(5*x1,-5*y1),1
pset(stx2,sty2),1
line-step(0,-9*y2),1
line-step(-7*x1,7*y1),1
draw"NM-="+VARPTR$(x2)+",+="+VARPTR$(y2)
line-step(5*x1,5*y1),1
line-step(0,-y3),1
dx=3*x1:dy=3*y1
draw"NM-="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,-6*y1),1
px1=px-21*x1
py1=py-35*y1
paint(px1,py1),10,1
paint(px1,py1+y3),11,1
paint(px1,py1+3*y3),10,1
paint(px1,py1+4*y3),11,1
paint(px1,py1+6*y3),10,1
paint(px1,py1+7*y3),12,1
py2=py1+21*y2
paint(px1,py2),10,1
paint(px1,py2+y3),11,1
paint(px1,py2+3*y3),10,1
paint(px1,py2+4*y3),12,1
paint(px1,py2+7*y3),12,1
px2=px1+6*x2
py3=py1+8*y2
paint(px2,py3),12,1
paint(px2,py3+13*y2),10,1
paint(px2,py3+15*y2),12,1
px3=px+2*x2
paint(px3,py3+20*y1),10,1
paint(px3,py3+26*y1),11,1
return



UpsideDown:
dmhor=2+(480/8)*2
dim upline(dmhor-1),botline(dmhor-1)
for i=0 to 239
  get (80,i)-(559,0+i),upline
  get (80,479-i)-(559,479-i),botline
  put (80,i),botline,pset
  put (80,479-i),upline,pset
next i
erase upline,botline
return

LeftSideRight:
dmvert=2+1*2*(480)
dim leftline(dmvert-1),rightline(dmvert-1)
for i=0 to 239
  get (80+i,0)-(80+i,479),leftline
  get (559-i,0)-(559-i,479),rightline
  put (80+i,0),rightline,pset
  put (559-i,0),leftline,pset
next i
erase leftline,rightline
return

rotation:
for x=1 to 239
  for y=0 to 239
    colpix=point(320-x,240-y)
    pset(320-x,240-y),point(320+y,240-x)
    pset(320+y,240-x),point(320+x,240+y)
    pset(320+x,240+y),point(320-y,240+x)
    pset(320-y,240+x),colpix
  next y
next x
return


initdrawstrings:
'=======================================================================
  S1$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S1$=S1$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S1$=S1$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y3)+"
  S1$=S1$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'==================
  S1$=S1$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S1$=S1$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S2$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S2$=S2$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S2$=S2$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S2$=S2$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y3)+"
  S2$=S2$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'===================
  S2$=S2$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S2$=S2$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S3$="C1BU="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S3$=S3$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S3$=S3$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S3$=S3$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y3)+"
  S3$=S3$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S3$=S3$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"BD="+VARPTR$(y2)
'===================
  S3$=S3$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S3$=S3$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S4$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S4$=S4$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S4$=S4$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S4$=S4$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S4$=S4$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'===================
  S4$=S4$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S4$=S4$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S5$="C1BU="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S5$=S5$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S5$=S5$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S5$=S5$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S5$=S5$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y3)+"
  S5$=S5$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S5$=S5$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"BD="+VARPTR$(y2)
'===================
  S5$=S5$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S5$=S5$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S6$="C1BU="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S6$=S6$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S6$=S6$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S6$=S6$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S6$=S6$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S6$=S6$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S6$=S6$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"BD="+VARPTR$(y2)
'===================
  S6$=S6$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S6$=S6$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S7$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S7$=S7$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S7$=S7$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S7$=S7$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S7$=S7$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S7$=S7$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'===================
  S7$=S7$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S7$=S7$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S8$="C1BU="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S8$=S8$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S8$=S8$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S8$=S8$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S8$=S8$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S8$=S8$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S8$=S8$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S8$=S8$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"BD="+VARPTR$(y2)
'===================
  S8$=S8$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S8$=S8$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S9$="C1BU="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S9$=S9$+"D="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S9$=S9$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S9$=S9$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y3)+"
  S9$=S9$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S9$=S9$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"BD="+VARPTR$(y2)
'===================
  S9$=S9$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S9$=S9$+"NM+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"ND="+VARPTR$(y3)
'========================================================================
  S10$="C1BU="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S10$=S10$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S10$=S10$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S10$=S10$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y2)+"
  S10$=S10$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S10$=S10$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"BD="+VARPTR$(y2)
'===================
  S10$=S10$+"NM-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S10$=S10$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S11$="C1BU="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S11$=S11$+"D="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S11$=S11$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S11$=S11$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y2)+"
  S11$=S11$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S11$=S11$+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"BD="+VARPTR$(y2)
'===================
  S11$=S11$+"NM-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S11$=S11$+"NM+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"ND="+VARPTR$(y3)
'========================================================================
  S12$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S12$=S12$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S12$=S12$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S12$=S12$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S12$=S12$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S12$=S12$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"BD="+VARPTR$(y3)
'===================
  S12$=S12$+"NM-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S12$=S12$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y3)
'========================================================================
  S13$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S13$=S13$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S13$=S13$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S13$=S13$+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S13$=S13$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S13$=S13$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'===================
  S13$=S13$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S13$=S13$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y2)
'========================================================================
  S14$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S14$=S14$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S14$=S14$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S14$=S14$+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S14$=S14$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S14$=S14$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y2)+"
  S14$=S14$+"M+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"BD="+VARPTR$(y3)
'===================
  S14$=S14$+"NM-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S14$=S14$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y2)
'========================================================================
  S15$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  S15$=S15$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S15$=S15$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S15$=S15$+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S15$=S15$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y3)+"
  S15$=S15$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'===================
  S15$=S15$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S15$=S15$+"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"ND="+VARPTR$(y2)
'========================================================================
  S16$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S16$=S16$+"D="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S16$=S16$+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S16$=S16$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S16$=S16$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y3)+"
  S16$=S16$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'===================
  S16$=S16$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S16$=S16$+"NM+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"ND="+VARPTR$(y3)
'========================================================================
  S17$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S17$=S17$+"D="+VARPTR$(y2)+"M+="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S17$=S17$+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S17$=S17$+"D="+VARPTR$(y2)+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"
  S17$=S17$+"M-="+VARPTR$(x1)+",+="+VARPTR$(y1)+"
  S17$=S17$+"M-="+VARPTR$(x1)+",-="+VARPTR$(y1)+"U="+VARPTR$(y3)+"
  S17$=S17$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'===================
  S17$=S17$+"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"
  S17$=S17$+"NM+="+VARPTR$(x1)+",-="+VARPTR$(y1)+"ND="+VARPTR$(y2)
'========================================================================

RETURN