Category : Pascal Source Code
Archive : DXFPAS.ZIP
Filename : DXFREAD.TPU

Output of file : DXFREAD.TPU contained in archive : DXFPAS.ZIP

TPU9ÒP$|ÌÌÔÔçúG
à&<~õÐc÷¥AÒYDXFREAD6ååYSYSTEMsSOPEN_DXF
ïS CLOSE_DXF¥
S GET_LAYER¯
ïåSGET_ENT ¹
Þï ï ïS GET_POINT(
ÆïÆïÆïÆïÆïdSGET_LINE0g
ÆïÆïÆïÆïÆïÆïÆïÆïSGET_ARC8î
ÆïÆïÆïÆïÆïÆïÆïÆïS
GET_CIRCLE@w
ÆïÆïÆïÆïÆïÆïS GET_PLINEHÞ
0ï0ï0ïðïðïÆïÆïÆïÆïS
GET_VERTEXP
ÆïÆïÆïÆïÆïÆïÆï~)TõùÐÒ?cã÷¥AÒ¾RDXFFILEïRDONE0ïR FILE_OPEN0ïRFIRST_LAYER0ïRFIRST_BLOCK0ïR FIRST_ENT0ïRDONE_ENT0ïRINSTRxÝ ï LïfÝRFILENAME"ÿ÷ ïéûÃRENTID&dÞïRENTTYPE&
d ïRLAYER&d ïÕRLAST_ENTÿÿd0ïD6URX&ÆïRY&ÆïRZ&Æï(RELEV&
ÆïRTHICK&ÆïËÜqRX1&"ÐÆïRY1&ÐÆïRZ1&ÐÆïRX2&ÐÆïRY2&ÐÆïRZ2&ÐÆïRELEV&
ÐÆï¼RTHICK&ÐÆïTe2RX&"ÆïRY&ÆïRZ&ÆïRRAD&ÆïøRANG1&Æï"RANG2&ÆïCRELEV&
ÆïRTHICK&Æï»ÌRX&cÆïRY&cÆïRZ&cÆïRRAD&cÆï«RELEV&
cÆïRTHICK&cÆïkURMESH&&¥0ïRMCLOSED&"¥0ïèRNCLOSED&¥0ïùRM&¥ðï
RN&¥ðï/RBEGIN_WIDTH&¥Æï=R END_WIDTH&¥Æï!RELEV&
¥ÆïRTHICK&¥Æï|RFLAGÿÿ¥Þïë©RX&õÆïRY&õÆïRZ&õÆïÅRBEGIN_WIDTH&õÆïÓR END_WIDTH&õÆï·RELEV&
õÆïRTHICK&õÆïÿÿÿÿ_ ($0$8@ H M@'0$p +DÐ±(±(¾¸àðþfð-&DXFREADSYSTEMWWÝDXFREAD.PAS÷ #,
A4

d_V2
33333
Ð$¢
33333333
$¾
33333333
cÛ
333333
¥ ö%3333(++
%(($õ
3333333
Uå¸ìÄ~W¾ÿW¸ÿP¿W¾ÿWÆÆÆÆì]ÊUå1À>t¿WÆ]ËLAYER 2ENDTABUå1À>t]Æ>t¿W¿WÆ¿W¿W¸P¿W¿WuÒÆ¿W¿W¸P¿W¿Wu$Æ¿W¿W¸Pë/¿W¿WuÆÆ¿WÆ>uéuÿ¿WÄ~W¸ÿP]ËENTITIES 0ENDSEC 8POINTLINE3DLINEARCCIRCLETRACESOLID3DFACEPOLYLINEVERTEXSEQENDUå¸ì>tbÆ>t¿W¿W¿W¿W¸P¿W¿WuÒÆÆ>u.¿W¿W¸P¿W¿WuÒÄ~&= t Ä~&=
u0¿W¿W¸P¿W¿WuÒë¾¿WÄ~
W¸ÿPÆFÿÆÄ~&ÆÄ~&ÆÿÄ~
W¿WuÆFÿÄ~
&Æ~ÿuK¿W¿W¸P¿W¿WuÒ¿WÄ~W¸ÿP~ÿt¿WÆÆÄ~
&=uÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&ÆÄ~
W¿WuÄ~&Æ Ä~
W¿WuÄ~&Æ
Ä~
W¿WuÄ~&Æì]Ê 10 20 30 38 39 0Uå1ÀÆÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~
&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇE¿W¿W¸P¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~
&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿WuÆÆ>ué¿þ]Ê 10 20 30 11 21 31 38 39 0Uå1ÀÆÄ~"&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~
&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇE¿W¿W¸P¿W¿Wu"¿WÄ~"&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~
&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿WuÆ>ué+þÆ]Ê 10 20 30 40 50 51 38 39 0Uå1ÀÆÄ~"&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~
&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇE¿W¿W¸P¿W¿Wu"¿WÄ~"&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~
&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿WuÆ>ué+þÆ]Ê 10 20 30 40 38 39 0Uå1ÀÆÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~
&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇE¿W¿W¸P¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~
&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿WuÆ>uéþÆ]Ê 38 39 40 41 70 71 72 0Uå¸ìÆÄ~&&ÆÄ~"&ÆÄ~&ÆÄ~1À&Ä~1À&ÆFÿÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~
&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇE¿W¿W¸P¿W¿Wu"¿WÄ~
&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu¿WFÿ¿W¿Wu¿WÄ~&¿W¿Wu¿WÄ~&¿W¿WuÆ>uéyþÆFÿÐèsÄ~"&ÆFÿ0äHFÿFÿ0äÑèÐèsFÿ0ä¹÷ñ Àu
Fÿ0äHHFÿFÿ0äÑèÑèÐèsFÿ0ä¹÷ñ ÀuFÿ0ä-FÿFÿ0ä±ÓèÐèsFÿ0ä¹÷ñ ÀuFÿ0ä-FÿFÿ0ä±ÓèÐès"Fÿ0ä¹÷ñ ÀuFÿ0ä-FÿÄ~&&ÆFÿ0ä±ÓèÐèsFÿ0ä¹ ÷ñ ÀuÄ~&Æì]Ê$ 10 20 30 38 39 40 41 0Uå1ÀÆÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇEÄ~
&Ç&ÇE&ÇEÄ~&Ç&ÇE&ÇE¿W¿W¸P¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~
&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿Wu"¿WÄ~&&]&U¿W¿WuÆ>ué^þÆ]Ê
0
0`$
0(/5:?D
0
0@
0"
0 $)/
0@4
09>
00C
0HNRW
0ð`
0e
0joPt
0y
0ð
0
0¢P§
0¬´¸½
0ðÆ
0Ë
0Ð×P
Ü
0áéîò
0@÷
0ü
0`
0 fov{
0@
0
00
0¤
0ð
0²
0·¼PÁ
0ÆÎÓØÞã
0ðì
0ñ
0öûP
0#
0ð,
01
06;P @
0EN
0ð\
0a
0fpP

0¤©
0ð²
0·
0¼ÁPÆ
0ËÒ
0ðà
0å
0êõ
0@ú
0ÿ
P#
0(P;
0@P#S
0XP*k
0pP.
0P5
0 P;³
0¸PAË
0ÐPHã
0èPQû
0PX
0
0 $
0ð
0
0¤©P ®
0³º
0À¿
0Ò
0×ÜP á
0æí
0Àò
0
0
P
0
0À%
08
0=BP G
0LS
0ÀX
0k
0puP z
0
0À
0
0£¨P
0²º¿Ä
0 *0ÔÙ
0ðâ
0ç
0ìñP(ö
0û
0À
0
0$P()
0.5
0À:
0M
0RWP(\
0ah
0Àm
0
0P(
0
0À
0³
0¸½P(Â
0ÇÎ
0ÀÓ
0æ
0ëðP(õ
0ú
0À
0
0#P((
0-4
0À9
0L
0QVP([
0`g
0Àl
0
0P(
0 ª
0 *0ÔÙ
0ðâ
0ç
0ìñP0ö
0û
0À
0
0$P0)
0.5
0À:
0M
0RWP0\
0ah
0Àm
0
0P0
0
0À
0³
0¸½P0Â
0ÇÎ
0ÀÓ
0æ
0ëðP0õ
0ú
0À
0
0#P0(
0-4
0À9
0L
0QVP0[
0`g
0Àl
0
0P0
0 ª
0 "(¤©
0ð²
0·
0¼ÁP8Æ
0ËÒ
0À×
0ê
0ïôP8ù
0þ
0À

0
0"'P8,
018
0À=
0P
0UZP8 _
0dk
0Àp
0
0P8
0
0À£
0¶
0»ÀP8Å
0ÊÑ
0ÀÖ
0é
0îóP8ø
0ý

0 '0²
0ð»
0À
0ÅÊP@Ï
0ÔÛ
0Àà
0ó
0øýP@
0
0À
0&
0+0P@5
0:A
0ÀF
0Y
0^cP@ h
0mt
0Ày
0
0P@
0 §
0ø¬
0´
0¹¾P@Ã
0ÈÏ
0øÔ
0ß
0äéP@î
0óú
0øÿ
0

0P@
0&+5
0 &,¼Á
0ðÊ
0Ï
0ÔÙPHÞ
0ãê
0Àï
0
0 PH
0
0À"
05
0:?PHD
0IP
0ÀU
0h
0mrPH w
0|
0À
0
0 ¥PHª
0¯¶
0À»
0Î
0ÓØPHÝ
0âé
0Àî
0
0PH
0
0À!
04
09>PHC
0HPU_

3 Responses to “Category : Pascal Source Code
Archive : DXFPAS.ZIP
Filename : DXFREAD.TPU
”

Daniel says:

January 27, 2013 at 3:59 pm

Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
Joshie says:

March 18, 2014 at 4:57 pm

This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
DiskingRound says:

January 14, 2015 at 10:57 pm

But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/

3 Responses to “Category : Pascal Source CodeArchive : DXFPAS.ZIPFilename : DXFREAD.TPU”

3 Responses to “Category : Pascal Source Code
Archive : DXFPAS.ZIP
Filename : DXFREAD.TPU
”