'===========================================================================
' Subject: OSCAR REUTERSV„RD PICTURE II      Date: 01-07-99 (12:34)       
' Author:  Jacob Wieles                      Code: QB, QBasic, PDS, PB    
' Origin:  jacwls@worldonline.nl           Packet: GRAPHICS.ABC
'===========================================================================
'programma       : OSCAR-B2.BAS  (06-01-99)
'                  Playing with an OSCAR REUTERSVŽRT picture
'auteur          : J.Wieles
'basic           : PowerBASIC and Q(uick)BASIC

cls
defint a-z
iy=6
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("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("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("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
  PAINT(PX-1,PY+1),11,1
  PAINT(PX+1,PY+1),12,1
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-3*x2
py=240-15*y2
for i=0 to 47
  select case i
  case  0 to 9
    py=py+3*y2
    pset(px,py),1
    if i=0 then draw s9$
    if i=1 then draw s3$
    if i=2 then draw s5$
    if i=3 then draw s9$
    if i=4 or i=5 then draw s3$
    if i=6 then draw s6$
    if i=7 then draw s10$
    if i>7 then draw s3$
  case 10 to 16
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    if i=10 then draw s12$
    if i>10 then draw s4$
  case 17 to 22
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    if i=17 then draw s15$
    if i=18 then draw s2$
    if i=19 then draw s7$
    if i=20 then draw s15$
    if i>20 then draw s2$
  case 23
    px=px-3*x2:py=py-3*y2
    pset(px,py),1
    draw s16$
  case 24,25
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    draw s2$
  case 26 to 32
    py=py+3*y2
    pset(px,py)
    if i=26 then draw s9$
    if i>26 then draw s3$
  case 33,34
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    if i=33 then draw s12$
    if i=34 then draw s4$
  case 35
    px=px+3*x2:py=py-3*y2
    pset(px,py),1
    draw s12$
  case 36,37
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    draw s4$
  case 38
    px=px+3*x2:py=py-3*y2
    pset(px,py),1
    draw s13$
  case 39,40
    px=px+3*x1:py=py-3*y1
    pset(px,py),1
    draw s4$
  case >40
    px=px-3*x1:py=py-3*y1
    pset(px,py),1
    if i=41 then draw s15$
    if i>41 then draw s2$
  end select
  call PaintBoxes
NEXT I
RETURN

LinePict1:
px=320-3*x2
py=240-15*y2
pset(px-x2,py-y2),1
line-step(0,7*y2),1
draw"C1ND="+VARPTR$(y3)
line-step(-7*x1,-7*y1),1
line-step(-x2,y2),1
dx=9*x1:dy=9*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,23*y2),1
line-step(x2,y2),1
stx1=point(0):sty1=point(1)
line-step(7*x1,-7*y1),1
draw"NM+="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(0,7*y2),1
line-step(x2,y2),1
dx=0:dy=9*y2
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(23*x1,-23*y1),1
line-step(0,-y3),1
stx2=point(0):sty2=point(1)
line-step(-7*x1,-7*y1),1
draw"NM-="+VARPTR$(x2)+",-="+VARPTR$(y2)
line-step(7*x1,-7*y1),1
line-step(0,-y3),1
dx=9*x1:dy=9*y1
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-23*x1,-23*y1),1
line-step(-x2,y2),1
stx3=point(0):sty3=point(1)
'===============================>>> einde omtrek
pset(stx1,sty1),1
line-step(0,-21*y2),1
line-step(7*x1,7*y1),1
line-step(0,20*y1),1
dx=5*x1:dy=5*y1
draw"C1NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(x2,y2),1
dy=5*y3
draw"NU="+VARPTR$(dy)
stx4=point(0):sty4=point(1)
line-step(-7*x1,7*y1),1
line-step(0,-17*y2),1
'===================================
pset(stx2,sty2),1
line-step(-21*x1,21*y1),1
line-step(0,-14*y1),1
line-step(10*x1,-10*y1),1
dx=5*x1:dy=5*y1
draw"C1NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,-y3),1
dx=5*x2:dy=5*y2
draw"C1NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
stx5=point(0):sty5=point(1)
line-step(7*x1,7*y1),1
line-step(-17*x1,17*y1),1
'===================================
pset(stx3,sty3),1
line-step(21*x1,21*y1),1
line-step(-7*x1,7*y1),1
line-step(-10*x1,-10*y1),1
dy=10*y1
draw"C1NU="+VARPTR$(dy)
line-step(-x2,y2),1
dx=5*x2:dy=5*y2
draw"C1NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
stx6=point(0):sty6=point(1)
line-step(0,-14*y1),1
line-step(17*x1,17*y1),1
'==========================================
pset(stx4,sty4-5*y3),1
line-step(8*x1,8*y1),1
pset(stx5-5*x2,sty5+5*y2),1
line-step(0,-16*y1),1
pset(stx6+5*x2,sty6+5*y2),1
line-step(-8*x1,8*y1),1
'===========================================
xp=stx1:yp=sty1-y2
paint(stx1-x1,sty1-y2),11,1
paint(stx1+x1,sty1-y2),12,1
paint(stx1+8*x1,sty1),11,1
paint(stx1+25*x1,sty1-5*y3),11,1
paint(stx2-x1,sty2-16*y1),12,1
paint(stx1+14*x2,sty1-5*y3),10,1
paint(stx1,sty1-49*y1),10,1
paint(stx1+3*x1,sty1-9*y1),10,1
paint(stx3+3*x1,sty3+2*y3),12,1
return

LinePict2:
px=320-3*x2
py=240-15*y2
pset(px-x2,py-y2),1
line-step(0,7*y2),1
dd=28*y1
draw"C1ND="+VARPTR$(dd)
line-step(-7*x1,-7*y1),1
line-step(-x2,y2),1
dx=9*x1:dy=9*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,23*y2),1
line-step(x2,y2),1
stx1=point(0):sty1=point(1)
line-step(7*x1,-7*y1),1
dx=14*x1:dy=14*y1
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,7*y2),1
line-step(x2,y2),1
dx=0:dy=9*y2
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(23*x1,-23*y1),1
line-step(0,-y3),1
stx2=point(0):sty2=point(1)
line-step(-7*x1,-7*y1),1
dx=14*x1:dy=14*y1
draw"NM-="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(7*x1,-7*y1),1
line-step(0,-y3),1
dx=9*x1:dy=9*y1
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-23*x1,-23*y1),1
line-step(-x2,y2),1
stx3=point(0):sty3=point(1)
'===============================>>> einde omtrek
pset(px-x2,py-y2),1
line-step(21*x1,21*y1),1
line-step(-x2,y2),1
dx=5*x1:dy=5*y1
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-15*x1,-15*y1),1
dx=0:dy=15*y2
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(-x2,-y2),1
line-step(0,17*y2),1
dx=7*x1:dy=7*y1
draw"NM-="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(8*x1,-8*y1),1
line-step(-6*x1,-6*y1),1
pset(stx1,sty1),1
line-step(0,-21*y2),1
line-step(x2,y2),1
dx=5*x1:dy=5*y1
draw"NM+="+VARPTR$(dx)+",+="+VARPTR$(dy)
line-step(0,17*y2),1
line-step(17*x1,-17*y1),1
pset(stx2,sty2),1
line-step(-21*x1,21*y1),1
dx=0:dy=14*y1
draw"NM+="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(0,-y3),1
line-step(15*x1,-15*y1),1
dx=15*x1:dy=15*y1
draw"NM-="+VARPTR$(dx)+",-="+VARPTR$(dy)
line-step(x2,-y2),1
line-step(-17*x1,-17*y1),1
px1=stx3-x2:py1=sty3+14*y1
paint(px1,py1),10,1
paint(px1,py1+y3),11,1
paint(px1,py1+32*y1),10,1
paint(px1,py1+36*y1),12,1
px2=stx3+3*x2:py2=sty3+y3
paint(px2,py2),10,1
paint(px2,py2+y3),11,1
py2=py2+9*y2
paint(px2,py2),10,1
paint(px2,py2+y3),11,1
paint(px2-3*x1,py2+5*Y2),12,1
paint(px2-5*x1,py2+16*y2),11,1
paint(px2-3*x1,py2+16*y2),12,1
paint(stx2-2*x2,sty2-3*y3),12,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)
'========================================================================
  fb$="C1BU="+VARPTR$(y3)+"M+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  fb$=fb$+"D="+VARPTR$(y3)+"M-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  fb$=fb$+"M-="+VARPTR$(x2)+",-="+VARPTR$(y2)+"U="+VARPTR$(y3)+"
  fb$=fb$+"M+="+VARPTR$(x2)+",-="+VARPTR$(y2)+"BD="+VARPTR$(y3)
'==================
  fb$=fb$+"NM-="+VARPTR$(x2)+",+="+VARPTR$(y2)+"
  fb$=fb$+"NM+="+VARPTR$(x2)+",+="+VARPTR$(y2)+"NU="+VARPTR$(y3)
'========================================================================
RETURN