Hi,everyone.
Today I have one big problem .
I need program one old CMM LK with CMES software.
My first problem is because I can't find manuals for this software.
Then I need program from section CMES (**).
This is one very old program similar to qbasic and ms-dos.
Some people know about this programation?
I need help about some very basic sections only,like save comands from cmes or open program from cmes.
WHAT DO YOU NEED TO KNOW, I CAN SEND YOU A PROGRAM, AND THE EDITOR WE USE TO WRITE THE PROGRAM.
THIS IS A PROGRAM FOR CHECKING A SPHERE IN Z AND
IP,'ENTER THE M-ORDER NUMBER .',(SO)\IP,'ENTER 1ST SERIAL NUMBER',I99
\ \ THIS PROGRAM CHECKS THE 424-7946 12" BALL SOCKET. \ \
USE PROBE COMBINATION RZLABCZ, RZKABCZ, OR RZMABCZ. TYPE TI,8 TO REQUALIFY
\ PLACE THE BALL CAP ON THE TABLE WITH THE OPEN FACE UP & THE GROOVES TOWARD
THE OPERATORS END OF THE TABLE. PLACE AGAINST A PARALLEL SO A REPETITIVE SET
UP CAN BE CREATED.
:M\ \ TYPE TI,12 TO SET UP THE FIRST PART\ \ TYPE TI,19 TO RUN ANOTHER PART.\ET
RE\N\Y\Y\Y\Y\RD,RZLABCZ.DAT,RES
! RESET 1 \UR,1,PH\&PH000000\UG,101,5\RQ\SR,1,PH
! RESET 1 \UR,1,PH\&PH000000\UG,101,5\RQ\SR,1,PH
WD,RZLABCZ.DAT,RES\$W\TI,4
UR,1,PH\ TAKE 3 PTS ON THE TOP SURFACE OF THE PART. \SG,1,3\UG,1,3\AX+,Z
TAKE 6 PTS INSIDE THE SPHERE, 4 NEAR TOP, 2 DOWN IN. \SG,7,6\UG,7,6\IS,Z\SP,4
TAKE 2 PTS ON THE FRONT, LEFT FIRST THEN RIGHT. \SG,5,2
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD\UG,7,6\IS,Z\SP,4
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UP,4\DF,X,Y,Z\PI\MD\SA,1\WD,BC7946.DAT,AXE
CLEAR THE PH9 AND PRESS THE BLUE BUTTON TO CONTINUE. \RC\PT
RD,BC7946.DAT,AXE\UR,1,PH\RA,1\
#MC\3.75\8.5\-.2\#PT,Z\.1\SP,1
#MC\-6.55\0\-.2\#PT,Z\.1\SP,2\#MC\3.75\-8.5\-.2\#PT,Z\0\SP,3
#ID,Z,8,65,295\0\0\.4\12.5\SP,-8,20,8
#ID,Z,6,295,65\0\0\4.36\8.67\SP,-6,28,6\
RA,1\PO\#MC,Y,Y\0\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,34\RC\#MC,X,Y\0\1.5
RA,1\RX,Z\090\PO\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,35\RC\#MC,X,Y\0\1.5
RA,1\RX,Z\180\PO\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,36\RC\#MC,X,Y\0\1.5
RA,1\RX,Z\270\PO\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,37
RA,1\RC\UG,20,18\IS,Z\SP,4\#MC,Z\-1
#MC\5.5\7.37\-.4\#MC,Z\.5\#PT,X\5.4\SP,5\#MS\.8
#MC\5.5\-7.2\-.5\#MC,Z\.5\#PT,X\5.4\SP,6\#MS\.8
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD\UG,20,18\IS,Z\SP,4
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UP,4\DF,X,Y,Z\PI\MD\SA,1\WD,BC1642.DAT,AXE
#MC\3.828\-5.1\-.4\#ID,X,6,175,5\3.828\0\0\11\SP,-6,38,6
#MC\3.828\5.3\.4\#PT,X\4\SP,101\#PT,X\3.6\SP,102\R1=X101+P+.002
#MC\3.828\5\.4\#ID,X,6,5,175\3.375\0\0\10.375\SP,-6,44,6\R2=(D40/2)+.05
ES\#ID,X,6,175,5\%R1\0\0\10.375\SP,-6,50,6
#MC\3\4.9\.4\#MC,Y\%R2\#PT,X\3.1\SP,103\#MS\1
#MC,X,Y\0\0\#ID,X,8,170,10\0\0\0\12.5\SP,-8,110,8
#MC,Y\0\#ID,Y,8,175,65\0\0\0\12.5\SP,-8,120,8\#MS\8
#MC,X,Y\-9.948\-7.29\#MC,Z\6.6\#PT,Z\6.88\SP,500\#MS\8
$PROGRAM=424-7946 12" BALL CAP $
PA,PART_RUN.LOG,EXIST\OP,(PROGRAM),' ',TD,' ',(SO),' W',I99\EP\GO,ON
I99=I99-1
:ON\PA,LP:\PA\SL,3\ZD,10,11
LeTOURNEAU,INC. CMM QUALITY CONTROL
=========================================================================
OP,' NAME: 12" BALL SOCKET PART NO: 424-7946-04 S/N: W',I99
DT
OP,' INSP. BY: ',(IN),' M-ORDER: ',(SO)
REMARKS:
=========================================================================
DIA. & T.P. OF THE 12.501 SPHERE\UD,12
UG,20,18\IS,Z///\0\0\12.501,.005,-.005\.005\.001\ZD,12\HD,OF
DIA & POSITION OF 11 GROOVE.\SL,1
UG,38,6\ID,X///\0\0\11.000,.012,-.000\.010
DIA & POS 10.376 INSIDE GROOVE.
UG,44,6\ID,X///\0\0\10.376,.01,-.010\.010
DIA & POS 10.624 OUTSIDE GROOVE.
UG,50,6\ID,X///\0\0\10.624,.01,-.010\.010\SL
5.250 LENGTH.\UP,5\PP-,X/\5.25,.01\ 3.240 LENGTH. \UP,103\PP+,X/\3.24,.005
.562 WIDTH. \UP,102,101\LI,X/\.562,.015\ .125 LENGTH. \UP,2\PP+,Z/\.125,.002
6.88 LENGTH.\UP,1,500\AF,LE,Z/\6.88,.030
DT\OP,PG\EP\PA\ \ TYPE TI,46 TO GET A SECOND PRINTOUT WITHOUT HOLE DATA.
\\ TI,69 TO RUN HOLES\TI,19
WHAT DO YOU NEED TO KNOW, I CAN SEND YOU A PROGRAM, AND THE EDITOR WE USE TO WRITE THE PROGRAM.
THIS IS A PROGRAM FOR CHECKING A SPHERE IN Z AND
IP,'ENTER THE M-ORDER NUMBER .',(SO)\IP,'ENTER 1ST SERIAL NUMBER',I99
\ \ THIS PROGRAM CHECKS THE 424-7946 12" BALL SOCKET. \ \
USE PROBE COMBINATION RZLABCZ, RZKABCZ, OR RZMABCZ. TYPE TI,8 TO REQUALIFY
\ PLACE THE BALL CAP ON THE TABLE WITH THE OPEN FACE UP & THE GROOVES TOWARD
THE OPERATORS END OF THE TABLE. PLACE AGAINST A PARALLEL SO A REPETITIVE SET
UP CAN BE CREATED.
:M\ \ TYPE TI,12 TO SET UP THE FIRST PART\ \ TYPE TI,19 TO RUN ANOTHER PART.\ET
RE\N\Y\Y\Y\Y\RD,RZLABCZ.DAT,RES
! RESET 1 \UR,1,PH\&PH000000\UG,101,5\RQ\SR,1,PH
! RESET 1 \UR,1,PH\&PH000000\UG,101,5\RQ\SR,1,PH
WD,RZLABCZ.DAT,RES\$W\TI,4
UR,1,PH\ TAKE 3 PTS ON THE TOP SURFACE OF THE PART. \SG,1,3\UG,1,3\AX+,Z
TAKE 6 PTS INSIDE THE SPHERE, 4 NEAR TOP, 2 DOWN IN. \SG,7,6\UG,7,6\IS,Z\SP,4
TAKE 2 PTS ON THE FRONT, LEFT FIRST THEN RIGHT. \SG,5,2
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD\UG,7,6\IS,Z\SP,4
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UP,4\DF,X,Y,Z\PI\MD\SA,1\WD,BC7946.DAT,AXE
CLEAR THE PH9 AND PRESS THE BLUE BUTTON TO CONTINUE. \RC\PT
RD,BC7946.DAT,AXE\UR,1,PH\RA,1\
#MC\3.75\8.5\-.2\#PT,Z\.1\SP,1
#MC\-6.55\0\-.2\#PT,Z\.1\SP,2\#MC\3.75\-8.5\-.2\#PT,Z\0\SP,3
#ID,Z,8,65,295\0\0\.4\12.5\SP,-8,20,8
#ID,Z,6,295,65\0\0\4.36\8.67\SP,-6,28,6\
RA,1\PO\#MC,Y,Y\0\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,34\RC\#MC,X,Y\0\1.5
RA,1\RX,Z\090\PO\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,35\RC\#MC,X,Y\0\1.5
RA,1\RX,Z\180\PO\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,36\RC\#MC,X,Y\0\1.5
RA,1\RX,Z\270\PO\#MC,Y\5.7\70\#PT,Y\6.2\70\SP,37
RA,1\RC\UG,20,18\IS,Z\SP,4\#MC,Z\-1
#MC\5.5\7.37\-.4\#MC,Z\.5\#PT,X\5.4\SP,5\#MS\.8
#MC\5.5\-7.2\-.5\#MC,Z\.5\#PT,X\5.4\SP,6\#MS\.8
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD\UG,20,18\IS,Z\SP,4
UG,1,3\AX+,Z\UP,6,5\N1,X,Z\UP,4\N2,Y,X,Z\PI\MD
UP,4\DF,X,Y,Z\PI\MD\SA,1\WD,BC1642.DAT,AXE
#MC\3.828\-5.1\-.4\#ID,X,6,175,5\3.828\0\0\11\SP,-6,38,6
#MC\3.828\5.3\.4\#PT,X\4\SP,101\#PT,X\3.6\SP,102\R1=X101+P+.002
#MC\3.828\5\.4\#ID,X,6,5,175\3.375\0\0\10.375\SP,-6,44,6\R2=(D40/2)+.05
ES\#ID,X,6,175,5\%R1\0\0\10.375\SP,-6,50,6
#MC\3\4.9\.4\#MC,Y\%R2\#PT,X\3.1\SP,103\#MS\1
#MC,X,Y\0\0\#ID,X,8,170,10\0\0\0\12.5\SP,-8,110,8
#MC,Y\0\#ID,Y,8,175,65\0\0\0\12.5\SP,-8,120,8\#MS\8
#MC,X,Y\-9.948\-7.29\#MC,Z\6.6\#PT,Z\6.88\SP,500\#MS\8
$PROGRAM=424-7946 12" BALL CAP $
PA,PART_RUN.LOG,EXIST\OP,(PROGRAM),' ',TD,' ',(SO),' W',I99\EP\GO,ON
I99=I99-1
:ON\PA,LP:\PA\SL,3\ZD,10,11
LeTOURNEAU,INC. CMM QUALITY CONTROL
=========================================================================
OP,' NAME: 12" BALL SOCKET PART NO: 424-7946-04 S/N: W',I99
DT
OP,' INSP. BY: ',(IN),' M-ORDER: ',(SO)
REMARKS:
=========================================================================
DIA. & T.P. OF THE 12.501 SPHERE\UD,12
UG,20,18\IS,Z///\0\0\12.501,.005,-.005\.005\.001\ZD,12\HD,OF
DIA & POSITION OF 11 GROOVE.\SL,1
UG,38,6\ID,X///\0\0\11.000,.012,-.000\.010
DIA & POS 10.376 INSIDE GROOVE.
UG,44,6\ID,X///\0\0\10.376,.01,-.010\.010
DIA & POS 10.624 OUTSIDE GROOVE.
UG,50,6\ID,X///\0\0\10.624,.01,-.010\.010\SL
5.250 LENGTH.\UP,5\PP-,X/\5.25,.01\ 3.240 LENGTH. \UP,103\PP+,X/\3.24,.005
.562 WIDTH. \UP,102,101\LI,X/\.562,.015\ .125 LENGTH. \UP,2\PP+,Z/\.125,.002
6.88 LENGTH.\UP,1,500\AF,LE,Z/\6.88,.030
DT\OP,PG\EP\PA\ \ TYPE TI,46 TO GET A SECOND PRINTOUT WITHOUT HOLE DATA.
\\ TI,69 TO RUN HOLES\TI,19