Show Quoted Text

Here is what I came up with. Here is what I came up with. Theobject is to
create the data as a DXF from an RS-274-X file.

rem %AMTHERMAL80

*7,0,0,0.080,0.055,0.0125,45* %

XC# = 0#
YC# = 1#
OD# = .08#
ID# = .055#
CT# = .0125#
RO# = 45#
ROTATION# = RO#
XINSERT# = XC#
YINSERT# = YC#
REM FIRST SEGMENT
X1# = SQR((OD#

/ 2#) ^ 2# - (CT# / 2#) ^ 2#)
Y1# = CT#

/ 2#
X2# = CT# / 2#
Y2# = SQR((OD#

/ 2#) ^ 2# - (CT# / 2#) ^ 2#)
X3# = (CT#

/ 2#)
Y3# = SQR((ID# / 2#) ^ 2# - (CT#

/ 2#) ^ 2#)
X4# = SQR((ID# / 2#) ^ 2# - (CT#

/ 2#) ^ 2#)
Y4# = (CT# / 2#)
X5# = SQR(((OD#

/ 2#) ^ 2#) / 2#)
Y5# = SQR(((OD#

/ 2#) ^ 2#) / 2#)
X6# = X2# + ((X1# - X2#)

/ 2#)
Y6# = Y2# + ((Y1# - Y2#) / 2#)
C1# = SQR((X1# - X2#) ^ 2# + (Y1# - Y2#) ^ 2#)
C2# = SQR((X6# - X5#) ^ 2# + (Y6# - Y5#) ^ 2#)
B1# = 2# * (C2#

/ C1#)
X7# = SQR(((ID# / 2#) ^ 2#)

/ 2#)
Y7# = SQR(((ID# / 2#) ^ 2#)

/ 2#)
X8# = X4# + ((X3# - X4#) / 2#)
Y8# = Y4# + ((Y3# - Y4#)

/ 2#)
C3# = SQR((X3# - X4#) ^ 2# + (Y3# - Y4#) ^ 2#)
C4# = SQR((X8# - X7#) ^ 2# + (Y8# - Y7#) ^ 2#)
B2# = 2# * (C4# / C3#)
B2#=-B2#
REM SECOND SEGMENT
X5#=-X1#
Y5#=Y1#
X6#=-X2#
Y6#=Y2#
X7#=-X3#
Y7#=Y3#
X8#=-X4#
Y8#=Y4#
B3#=-B1#
B4#=-B2#
REM THIRD SEGMENT
X9#=-X1#
Y9#=-Y1#
X10#=-X2#
Y10#=-Y2#
X11#=-X3#
Y11#=-Y3#
X12#=-X4#
Y12#=-Y4#
B5#=B1#
B6#=B2#
REM FOURTH SEGMENT
X13#=X1#
Y13#=-Y1#
X14#=X2#
Y14#=-Y2#
X15#=X3#
Y15#=-Y3#
X16#=X4#
Y16#=-Y4#
B7#=-B1#
B8#=-B2#
REM ROTATE

CLS
PRINT USING "##.######## "; X1#,X5#
PRINT USING "##.######## "; Y1#,Y5#
PRINT USING "##.######## "; X2#,X6#
PRINT USING "##.######## "; Y2#,Y6#
PRINT USING "##.######## "; X3#,X7#
PRINT USING "##.######## "; Y3#,Y7#
PRINT USING "##.######## "; X4#,X8#
PRINT USING "##.######## "; Y4#,Y8#
PRINT USING "##.######## "; B1#,B3#
PRINT USING "##.######## "; B2#,B4#

BLOCKNAME$ = "THERMAL80"
LINETYPE$ = "CONTINUOUS"
LAYERNAME$ = "0"
XINSERT# = XC#
YINSERT# = YC#
ZINSERT# = 0#
ELEVATION# = 0#
THICKNESS# = 0#
COLOR$ = "0"
BLOCKTYPE$ = "0"

OUTFILE$ = "THERMAL.DXF"
OPEN "O", 1, OUTFILE$

REM HEADER
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "HEADER"
PRINT #1, " 9"
PRINT #1, "$INSBASE"
PRINT #1, " 10"
PRINT #1, "0.0"
PRINT #1, " 20"
PRINT #1, "0.0"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM CLASSES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "CLASSES"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM TABLES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "TABLES"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM BLOCKS
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "BLOCKS"
PRINT #1, " 0"
PRINT #1, "BLOCK"
PRINT #1, " 2"
PRINT #1, BLOCKNAME$
PRINT #1, " 6"
PRINT #1, LINETYPE$
PRINT #1, " 8"
PRINT #1, LAYERNAME$
PRINT #1, " 10"
PRINT #1, USING "##.###############"; 0#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; 0#
PRINT #1, " 30"
PRINT #1, USING "##.###############"; 0#
PRINT #1, " 38"
PRINT #1, USING "##.###############"; ELEVATION#
PRINT #1, " 39"
PRINT #1, USING "##.###############"; THICKNESS#
PRINT #1, " 62"
PRINT #1, COLOR$
PRINT #1, " 70"
PRINT #1, BLOCKTYPE$
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B1#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X2#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y2#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X3#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y3#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B2#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X4#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y4#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X1#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y1#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X5#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y5#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B3#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X6#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y6#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X7#
PRINT #1, " 20
PRINT #1, USING "##.###############"; Y7#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B4#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X8#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y8#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X5#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y5#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X9#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y9#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B5#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X10#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y10#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X11#
PRINT #1, " 20
PRINT #1, USING "##.###############"; Y11#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B6#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X12#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y12#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X9#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y9#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "POLYLINE"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 66"
PRINT #1, "1"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X13#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y13#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B7#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X14#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y14#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X15#
PRINT #1, " 20
PRINT #1, USING "##.###############"; Y15#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, USING "##.###############"; B8#
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X16#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y16#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, "0"
PRINT #1, "VERTEX"
PRINT #1, " 6"
PRINT #1, "0"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 10"
PRINT #1, USING "##.###############"; X13#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; Y13#
PRINT #1, " 38"
PRINT #1, "0"
PRINT #1, " 39"
PRINT #1, "0"
PRINT #1, " 40"
PRINT #1, "0"
PRINT #1, " 41"
PRINT #1, "0"
PRINT #1, " 42"
PRINT #1, "0"
PRINT #1, " 50"
PRINT #1, "0"
PRINT #1, " 62"
PRINT #1, "0"
PRINT #1, " 70"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "SEQEND"
PRINT #1, " 8"
PRINT #1, "0"
PRINT #1, " 0"
PRINT #1, "ENDBLK"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM ENTITIES
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "ENTITIES"
PRINT #1, " 0"
PRINT #1, "INSERT"
PRINT #1, " 2"
PRINT #1, BLOCKNAME$
PRINT #1, " 6"
PRINT #1, LINETYPE$
PRINT #1, " 8"
PRINT #1, LAYERNAME$
PRINT #1, " 10"
PRINT #1, USING "##.###############"; XINSERT#
PRINT #1, " 20"
PRINT #1, USING "##.###############"; YINSERT#
PRINT #1, "30"
PRINT #1, USING "##.###############"; ZINSERT#
PRINT #1, " 50"
PRINT #1, ROTATION#
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM OBJECTS
PRINT #1, " 0"
PRINT #1, "SECTION"
PRINT #1, " 2"
PRINT #1, "OBJECTS"
PRINT #1, " 0"
PRINT #1, "ENDSEC"
REM END OF FILE
PRINT #1, " 0"
PRINT #1, "EOF"
REM END
CLOSE #1
END

Bob