Dialog 4 lettering program

So i spent some time over the weekend transcribing a program i had in hard copy.
Had it on a disc, but that is gone years back.
Works using peramiters to size and space the lettering.
Each letter is a sub routien.

Sorry no numbers.
All was entered MDI , so could be errors, be sure to test all programs before you run it!!!!!!!!!!!!!!!!!!!

DECKEL DIALOG4 LETTERING PROGRAM

P1 =2.31 This is the size setting for the letters...bigger value= larger letters...all capitols.
P2 =4*P1
P3 =3*P1
P4 =P3:2
P5 =1*P1
P6 =(COS(ATAN(P2:P4))*P5)
P7 =P3-P6
P8 =1.5*P1
P9 =P2:2
P10 =P3+P5
P11 =(2.5+1)*P1
P12 =2.33137085*P1
P13 =1.2*P1
P14 =2.8*P1
P15 = .8*P1
P16 =3.2*P1
P17 =1.13137085*P1
P18 =.4*P1
P19 =(2.33137085+1)*P1
P20 =1.6*P1
P21 =2.6*P1
P22 =3.6*P1
P23 =1.8*P1
P24 =1.3*P1
P25 =2.492307692*P1
P26 =2*P1
P27 =4.2*P1
P28 =1.3*P1
P29 =2.7*P1
P30 =1.1*P1
P31 =2.2*P1
P32 =3.3*P1
P33 =4.4*P1
P34 =5.4*P1
P9999 =.6 DEPTH CALL, alter the value to change lettering depth, .6 is just an example.


%1111*1("A)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=-P9999
N4 X= P4 Y=P2
N5 X= P3 Y0
N6 G0 Z2
N7 G0 X= P7 Y= P5
N8 Z=- P9999
N9 X= P6
N10 G0 Z2
N11 G55 X= P10



%1111*2("B)
N1 G0 Z2
N2 G0 X= P8 Y= P9
N3 Z=- P9999
N4 X0
N5 Y= P2
N6 X= P8
N7 G2 X= P8 Y= P9 I0 J=- P5
N8 G2 X= P8 Y0 I0 J=- P5
N9 X0
N10 Y= P9
N11 G0 Z2
N12 G55 X= P11



%1111*3("C)
N1 G0 Z2
N2 G0 X= P12 Y= P15
N3 Z=- P9999
N4 G2 X0 Y= P13 I=- P17 J= P18
N5 Y= P14
N6 G2 X= P12 Y= P16 I= P13 J0
N7 G0 Z2
N8 G55 X= P19



%1111*4("D)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 X= P20
N6 G2 X= P21 Y= P3 I0 J=- P5
N7 Y= P5
N8 G2 X= P20 Y0 I=-P5 J0
N9 X0
N10 G0 Z2
N11 G55 X=P22



%1111*5("E)
N1 G0 Z2
N2 G0 X=P21 Y0
N3 Z=- P9999
N4 X0
N5 Y=P2
N6 X= P21
N7 G0 Z2
N8 G0 X= P23 Y= P9
N9 Z=-P9999
N10 X0
N11 G0 Z2
N12 G55 X= P22



%1111*6("F)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 X=P21
N6 G0 Z2
N7 G0 Y= P9
N8 Z=- P9999
N9 X= P23
N10 G0 Z2
N11 G55 X= P22



%1111*7("G)
N1 G0 Z2
N2 G0 X= P24 Y= P9
N3 Z=- P9999
N4 X= P21
N5 Y= P24
N6 G2 X0 Y= P24 I=- P24 J0
N7 Y= P14
N8 G2 X= P12 Y= P16 I= P13 J0
N9 G0 Z2
N10 G55 X= P22



%1111*8("H)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 G0 Z2
N6 G0 X0 Y= P9
N7 Z=-P9999
N8 X= P21
N9 G0 Z2
N10 G0 Y0
N11 Z=- P9999
N12 Y= P2
N13 G0 Z2
N14 G55 X= P22



%1111*9("I)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 G0 Z2
N6 G55 X= P5



%1111*10("J)
N1 G0 Z2
N2 G0 X0 Y= P15
N3 Z=- P9999
N4 G3 X= P12 Y= P13 I= P17 J= P18
M5 Y= P2
N6 G0 Z2
N7 G55 X= P19



%1111*11("K)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 G0 Z2
N6 G0 X0 Y= P13
N7 Z=- P9999
N8 X= P21 Y= P2
N9 G0 Z2
N10 G0 X= P13 Y= P25
N11 Z=-P9999
N12 X= P21 Y0
N13 G0 Z2
N14 G55 X= P22



%1111*12("L)
N1 G0 Z2
N2 G0 X= P26 Y0
N3 Z=- P9999
N4 X0
N5 Y= P2
N6 G0 Z2
N7 G55 X= P3



%1111*13("M)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 X= P20 Y= P5
N6 X= P16 Y= P2
N7 Y0
N8 G0 Z2
N9 G55 X= P27



%1111*14("N)
N2 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 X= P21 Y0
N6 Y=P2
N7 G0 Z2
N8 G55 X= P22



%1111*15("O)
N1 G0 Z2
N2 G0 X0 Y= P28
N3Z=- P9999
N4 Y= P29
N5 G2 X=P21 Y= P29 I= P28 J0
N6 Y= P28
N7 G2 X0 Y= P28 I=- P28 J0
N8 G0 Z2
N9 G55 X= P22



%1111*16("P)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=-P9999
N4 Y= P2
N5 X= P20
N6 G2 X= P20 Y= P9 I0 J=- P5
N7 X0
N8 G0 Z2
N9 G55 X- P22



%1111*17("Q)
N1 G0 Z2
N2 G0 X0 Y= P28
N3 Z=- P9999
N4 Y= P29
N5 G2 X= P21 Y= P29 I= P28 J0
N6 Y= P28
N7 G2 X0 Y= P28 I=- P28 J0
N8 G0 Z2
N9 G0 X= P14 Y0
N10 Z=- P9999
N11 W= P23 Y= P15
N12 G0 Z2
N13 G55 X= P22



%1111*18("R)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 Y= P2
N5 X= P20
N6 G2 X= P20 Y= P9 I0 J=-P5
N7 X0
N8 G0 Z2
N9 G0 X= P20 Y= P9
N10 Z=- P9999
N11 X= P21 Y0
N12 G0 Z2
N13 G55 X= P22



%1111*19("S)
N1 G0 Z2
N2 G0 X0 Y= P5
N3 G64 Z=- P9999
N4 G3 X= P5 Y0 I= P5 J0
N5 X= P20
N6 G3 X= P20 Y= P9 I0 J= P5
N7 X= P5
N8 G2 X= P5 Y= P2 I0 J= P5
N9 X= P20
N10 G2 X= P21 Y= P3 I0 J=- P5
N11 G0 Z2
N12 G60
N13 G55 X= P22



%1111*20("T)
N1 G0 Z2
N2 G0 X= P5 Y0
N3 Z=- P9999
N4 Y= P2
N5 G0 Z2
N6 G0 X0 Y= P2
N7 Z=- P9999
N8 X= P26
N9 G0 Z2
N10 G55 X= P3



%1111*21("U)
N1 G0 Z2
N2 G0 X0 Y= P2
N3 Z=- P9999
N4 Y= P28
N5 G3 X= P21 Y= P28 I= P28 J0
N6 Y= P2
N7 G0 Z2
N8 G55 X= P22



%1111*22("V)
N1 G0 Z2
N2 G0 X0 Y= P2
N3 Z=- P9999
N4 Z= P28 Y0
N5 X= P21 Y= P2
N6 G0 Z2
N7 G55 X= P22



%1111*23("W)
N1 G0 Z2
N2 G0 X0 Y= P2
N3 Z=- P9999
N4 X= P30 Y0
N5 X= P31 Y= P2
N6 X= P32 Y0
N7 X= P33 Y= P2
N8 G0 Z2
N9 G55 X= P34



%1111*24("X)
N1 G0 Z2
N2 G0 X0 Y0
N3 Z=- P9999
N4 X= P21 Y= P2
N5 G0 Z2
N6 G0 X0
N7 Z=- P9999
N8 X= P21 Y0
N9 G0 Z2
N10 G55 X= P22



%1111*25("Y)
N1 G0 Z2
N2 G0 X= P28 Y0
N3 Z=- P9999
N4 Y= P9
N5 X0 Y= P2
N6 G0 Z2
N7 G0 X= P21
N8 Z=- P9999
N9 X= P28 Y= P9
N10 G0 Z2
N11 G55 X= P22



%1111*26("Z)
N1 G0 Z2
N2 G0 X0 Y= P2
N3 Z=- P9999
N4 X= P21
N5 X0 Y0
N6 X= P21
N7 G0 Z2
N8 G55 X= P22



51111*98(POINT)
N1 G0 Z2
N2 G0 X-0.2 Y0
N3 Z=- P9999
N4 G2 I0.2 J0
N5 G0 Z2
N6 G55 X= P22



51111*99("EX)
N1 G0 Z2
N2 G0 X0.2 Y0
N3 Z=- P9999
N4 G2 I0.2 J0
N5 G0 Z2
N6 G0 X0 Y= P20
N7 Z=- P9999
N8 Y= P2
N9 G0 Z2
N10 G55 X= P22



%1111*100("SPACE)
N1 G55 X= P22


?
0000


Cheers Ross