Category : Pascal Source Code
Archive   : TPWINST.ZIP
Filename : WARCHIV.TPU

 
Output of file : WARCHIV.TPU contained in archive : TPWINST.ZIP
TPU9ÒPbšÚââ3 ’² T~8:øÓØk6ƒÇ† &+4½tå½[ìQïò¡£Q  ÖK g`Ótá ŽYWARCHIVeå
YSYSTEM•ç÷YSTRINGS åYWINDOS„÷P ARCREATEDIRSïPARREADARCCOMMENTSï÷PARREADFILECOMMENTSïP ARSTRIPPATHïP
ARCOMPRESSINGïP
ARDELETINGïoPARREADEXTRAFIELDï€RDEFARCHIVEOPTIONSïRBADARCHIVEOPTIONSïPETFATALïP
ETNONFATALïP ETWARNINGïŸP ETMESSAGEïP ETNOERRORïPEPFATALïP
EPNONFATALï' P EPWARNINGï NP EPMESSAGEï0uˆPECOKïµPECFILENOTFOUNDïPECPATHNOTFOUNDïòPECTOOMANYFILESïKPECACCESSDENIEDïÑPECINVALIDHANDLEïP
ECOUTOFMEMORYïPECINVALIDDRIVEïP
ECNOMOREFILESïP
ECDISKREADïdP
ECDISKFULLïe
P
ECNOTASSIGNEDïfžP ECNOTOPENïgPECNOTOPENINPUTïhÒPECNOTOPENOUTPUTïiPECINVALIDFORMATïjPECWRITEPROTECTEDï–P
ECUNKNOWNUNITï—PECDRIVENOTREADYï˜PECUNKNOWNCOMMANDï™P
ECCRCERRORPECBADSTRUCTLENï›P ECSEEKERRORïœPECUNKNOWNMEDIAïPECSECTORNOTFOUNDïžP ECOUTOFPAPERïŸuP
ECDEVICEWRITEï P ECDEVICEREADï¡PECHARDWAREFAILUREï¢íR AROUTPATHÈÝ Pï Qpï¶ÝR DOSDELIMSETQîÝ pïQ STRINGPTR Ý
 ï†QFILEMASKNODEPTR*Ý
HÝ6Q FILEMASKNODEHÝR\o ÐRDIRPTRo ÝRNAME ’Ý  ï
pï€ÝREXTÐÂÝ ï pï°Ý\RNEXT*ÝQ FILEMASKLISTõÝÿ RHEAD*Ý RTAIL*ÝR
ARCHIVESTATUSï@SINITFILEMASKLIST"ü 
õÝÈSDONEFILEMASKLIST"Ó
õÝmSAPPENDFILENAME"f

0ï ïõÝRSAPPENDFILEMASK" =

0ï ïõÝES
MATCHFILEMASK"(‹
0ï ïõÝSSORTFILEMASKLIST"0

õÝÕSEXPANDFILEMASKLIST"8ª
õÝõݳS AROPTIONSON"@k
ï
S AROPTIONSOFF"H
ï4SAROPTIONSAREON"P¯
0ïïS
SETOUTPUTPATH"XÑ
 ïSCREATEOUTPUTFILE"`ì
xï ïS MAKELONGINT
ïïïXZ~8:øÓØ[ ³ 4
ƒÇ† &+4×
½tå
“
ìQïò¡ £Q  ÖK g`Ótá ŽS STRINGTOHEAP"h_

 Ý ïi
…
RS"úþ4
 ïRLøþ4
ïw
RPôþ4
–ï[S
DISPOSESTRING"p¿

 ÝÉ
RP"“
ÝSPADCH"x 
 ï ïpïÞï,  J RS"þþ×
 ïRCH"×
pïRLEN"×
Þï ROþý×
 ï< RSLEN ÝÞïkS JUSTPATHNAME"€† 
 ï ï¥  RPATHNAME"þþ[  ïRIüþ[ ï6S ADDBACKSLASH"ˆÞ 
 ï ïè RDIRNAME"þþ³  ï RFML&EõÝSAPPENDFILEMASKPRIM"Q 
0ï ïõÝ0ïð ÿ 
á RFM"ýþ  ïRFML& õÝREXPAND" 0ï[ RFMNPùþ *Ýz RFMNßþ HÝj RIÞþ Þïž RASTERISKÝþ Þï® RDIRÝý  ïRP1Ýü /
ÝÑ RP2Ýû /
ݍ RP3Ýú /
ݼ RP4Ýù /
Ý ÿïpï
ÝV
G
RFM"ýþÕ ïRFML&ÕõÝ
p
RFM"ýþ£ ïRFML&£õݽSMATCHFILEMASKPRIM"˜Ä

0ï ïHÝ>M\/RFNAME&

 ïÎ
RFMN&
HÝRDIRýþ
 ïRNAMEýý
 ïà
REXTýü
 ïð
RIüü
ÞïRP1üû
}Ý!RP2üú
}ÝRP3üù
}ÝRP4üø
}Ý ÿïpïkÝÅ´RFM"ýþ ïRFML&õݕRFMNPùþ*ݤRIøþÞïþíRFML&tõÝRFMNPúÿt*ÝÝRNPöÿt*Ýr†™_RFML&8õÝRCURHEADúÿ8*ÝRNODEöÿ8*ÝRLOWESTòÿ8*ÝRLOWDIRòþ8 ïLRLOWNAMEòý8 ï'RLOWEXTòü8 ï;RTEMPØü8HÝ´,=RFML&
gõÝR EXPANDEDFML&gõÝÄP
ANYFILEBUTDIRï/RNODEúÿg*ÝRSAVEDIRúþg ïõRFNAMEúýg ïÜRSRECÏýgRPÏüg]Ý ÿïpïKÝuR OPTIONFLAGS"ï—R OPTIONFLAGS"Çï¹R OPTIONFLAGS"òïÛRPATH"þþ  ï2Q@RF&
K xïRFNAME"þþK  ïRIüþK ïRPüýK  ïöRNüüK  ï$RPLEN)ÝÞïRDONEûüK 0ïÿÿÿÿ"("X"@"8"P"`"h"p"x"€"ˆ"""""" "0"HŒ )¦("X7|@Y"iäÐw=À=Í#€Ú €4 K©à|ºÈ#ÖC ã‚ÀðrSYSTEMWARCHIVSTRINGSWINDOSh2 WARCHIV.PAS4
 
 

“
­×
·  )[ Ç 
! ))'³ â)Eë
 ú?  
  

 

Õ=
£D

P/  !&&  
… *

t¡

 
8º&  €„   gì4  
= #
   #Ç*ò1
 7K C@, 

EU‰åì
Ä~W¾úþW¸ÿPšŠ†úþ0ä@‰†øþš‹È‹Ú‹†øþ1Ò;Ó|;Áv
1À‰Fú‰Füë4ÿ¶øþš‰†ôþ‰–öþ¾úþWľôþWÿ¶øþš‹†ôþ‹–öþ‰Fú‰Vü‹Fú‹Vü‰ì]MÊEU‰å‹F FtÿvÿvÄ~&Š0ä@Pš‰ì]MÊEU‰åìÄ~
W¾þþW¸ÿPšŠ†þþ:Fr¾þþWÄ~W¸ÿPšëcŠFˆ†þý¾ÿþW¾ÿýWŠ†þþ0äPš€¾þþÿs)Š†þþþÀ0ä‹ø»þýWŠ†þþ0ä‹ÐŠF0ä+ÂPŠFPš¾þýWÄ~W¸ÿPš‰ì]MÊEU‰åìÄ~W¾þþW¸ÿPšŠ†þþ0ä@‰†üþÿŽüþ‹¾üþŠƒþþP¿Wšuƒ¾üþuàƒ¾üþu
Ä~
&Æ鼃¾üþu!¾üýWŠ†ÿþPšÄ~
W¸ÿPšé”‹¾üþ€»þþ\ub‹†üþH‹ø€»þþ:u)¾üýW¾þþW¸Pÿ¶üþšÄ~
W¸ÿPšë)¾üýW¾þþW¸P‹†üþHPšÄ~
W¸ÿPšë'¾üýW¾þþW¸Pÿ¶üþšÄ~
W¸ÿPš‰ì]MÊEU‰åìÄ~W¾þþW¸ÿPšŠ†þþ0ä‹øŠƒþþP¿Wšt¾þþWÄ~
W¸ÿPšë)¾þýW¾þþWš¿WšÄ~
W¸ÿPš‰ì]MÊEU‰åÄ~1À&‰&‰E1À&‰E&‰E‰ì]MÊEU‰åì"Ä~ W¾ýþW¸ÿPšŠ†ýþˆ†Üù°:†Üùw0ˆ†Þþëþ†ÞþŠ†Þþ0ä‹ø€»ýþ/u
Š†Þþ0ä‹øƃýþ\Š†Þþ:†Üùu֍¾ÝüW¾ýþWš¾ÝüWš¾ÝüW¾ÝûW¾ÝúW¾ÝùWš¾ÝøW¾ÝûWš¾ÝýW¸ÿPš¾ÝøW¾ÝúWš¾ãþW¸ Pš¾ÝøW¾ÝùWš¾ðþW¸Pš¾ÝýWš‰†ßþ‰–áþ‹†ßþ †áþu Çé¾€~uéò€¾ãþu¿W¾ãþW¸ Pš€¾ðþu¿W¾ðþW¸Pšë,¾ðþW¿WšuƆðþ덾ðþW¸P¸Pš¿W¾ãþWšˆ†Ýþ€¾Ýþt+Š†Ýþ<wˆ†Þþëþ†ÞþŠ†Þþ0ä‹øƃãþ?€¾ÞþuèƆãþ¿W¾ðþWšˆ†Ýþ€¾Ýþt+Š†Ýþ<wˆ†Þþëþ†ÞþŠ†Þþ0ä‹øƃðþ?€¾ÞþuèƆðþ뀾ðþt¾ðþW¸P¸Pš1À‰†õþ‰†÷þ¸Pš‰†ùþ‰–ûþ‹†ùþ †ûþuÆFýë~Ä~‰¾ÙùŒ†Ûù¾ßþWľùþW¸PšÄ¾Ùù&‹& Eu!‹†ùþ‹–ûþ&‰&‰U‹†ùþ‹–ûþ&‰E&‰Uë,‹†ùþ‹–ûþľÙù&Ä}&‰E&‰U‹†ùþ‹–ûþľÙù&‰E&‰UÆFýŠFý‰ì]MÊ
EU‰åìÄ~
W¾ýþW¸ÿPš¾ýþWÄ~W°PšˆFýŠFý‰ì]MÊEU‰åìÄ~
W¾ýþW¸ÿPš¾ýþWÄ~W°PšˆFýŠFý‰ì]MÊEU‰åìÆFý¾üûWÄ~
Wš¾üûW¾üúW¾üùW¾üøWš¾ü÷W¾üúWš¾ýþW¸ÿPš¾ü÷W¾üùWš¾ýýW¸ÿPš¾ü÷W¾üøWš¾ýüW¸ÿPš¾ýüW¿WšuƆýü뀾ýüt¾ýüW¸P¸PšŠ†ýýÄ~&:Ew
Š†ýü&:Evé2Ä~&Ä=&€=tÄ~&Ä=W¾ýþWšt鍾ü÷W¾ýýW°P°Pš¾ýýW¸ÿPšÆ†ýý¾ü÷W¾ýüW°P°Pš¾ýüW¸ÿPšÆ†ýüÄ~&ŠEˆ†ûø°:†ûøwGˆ†üüëþ†üüŠ†üü0äÄ~ø&€}?t!Š†üü0äÄ~ø&ŠUŠ†üü0ä‹øŠƒýý:ÂtëhŠ†üü:†ûøu¿Ä~&ŠEˆ†ûø°:†ûøwGˆ†üüëþ†üüŠ†üü0äÄ~ø&€}?t!Š†üü0äÄ~ø&ŠUŠ†üü0ä‹øŠƒýü:Ât늆üü:†ûøu¿ÆFýŠFý‰ì]MÊEU‰åì
Ä~
W¾ýþW¸ÿPšÆFýÄ~&‹& Euéъ†ýþˆ†÷þ°:†÷þw0ˆ†øþëþ†øþŠ†øþ0ä‹ø€»ýþ/u
Š†øþ0ä‹øƃýþ\Š†øþ:†÷þu֊†ýþˆ†÷þ°:†÷þw4ˆ†øþëþ†øþŠ†øþ0ä‹øŠƒýþPšŠÐŠ†øþ0ä‹øˆ“ýþŠ†øþ:†÷þuÒÄ~&‹&‹U‰†ùþ‰–ûþ‹†ùþ †ûþt-¾ýþWľùþWšÀtëľùþ&‹E&‹U‰†ùþ‰–ûþëÉÆFýŠFý‰ì]MÊEU‰åƒì Ä~‰~òŒFô&‹&‹U‰Fú‰Vü‹Fú Füt=Ä~ú&‹E&‹U‰Fö‰VøÄ~ú&ÿu&ÿ5šÿvüÿvú¸Pš‹Fö‹Vø‰Fú‰Vüë»Ä~ò1À&‰&‰E1À&‰E&‰E‰ì]MÊEU‰åì&Ä~&‹&‹U‰Fú‰Vü1À‰Fò‰Fô¿W¾òþW¸ÿPš¿W¾òýW¸ÿPš¿W¾òüW¸ÿPš‹Fú‹Vü‰Fö‰VøÄ~ö&Ä=W¾òþWšroÄ~ö&Ä=W¾òþWšuÄ~öÇW¾òýWšrDÄ~ö&Ä=W¾òþWštéÄ~öÇW¾òýWšuiÄ~öÇW¾òüWšsSÄ~ö&Ä=W¾òþW¸ÿPšÄ~öÇW¾òýW¸ÿPšÄ~öÇW¾òüW¸ÿPš‹Fö‹Vø‰Fò‰VôÄ~ö&‹E&‹U‰Fö‰Vø‹Fö Føté
ÿÄ~úW¾ØüW¸PšÄ~ò&‹&‹UÄ~ú&‰&‰UÄ~òÇWÄ~úÇW¸ PšÄ~òÇWÄ~úÇW¸Pš‹†Øü‹–ÚüÄ~ò&‰&‰U¾ÜüWÄ~òÇW¸ Pš¾éüWÄ~òÇW¸PšÄ~ú&‹E&‹U‰Fú‰Vü‹Fú Fütéþ‰ì]MÊEU‰åì41À£Ä~
&‹&‹U‰Fú‰Vü‹Fú FüuéyÄ~ú‰¾ËüŒ†Íü&Ä=&€=t5°P¾úþW¸ÿPš¾ËûWľËü&Ä=Wššš£ëƆúþƒ>téò¾ËûWľËüÇWš¿WšÄ¾ËüÇWš¾úýW¸ÿPš¾ÏüW¾úýWš¾ÏüW¸/P¾ÏýWšƒ>t$Ç€¾úþt¾úþWšš Àt铃>u]¾ËûW¾íýW¸
PšÄ~WšÀu-ÇÄ~Wš€¾úþt¾úþWšš Àtë<¾ÏýWšëœ€¾úþt¾úþWšš ÀtÄ~ú&‹E&‹U‰Fú‰Vüé|þ‰ì]MÊEU‰å¡÷Ð#F £‰ì]MÊEU‰å¡÷Ð#F÷Ð#£‰ì]MÊEU‰åƒì¡#F;F°u@ˆFýŠFý‰ì]MÊEU‰åìÄ~W¾þþW¸ÿPš¾þýW¾þþWš¿W¸PPš‰ì]MÊEU‰åìÄ~W¾þþW¸ÿPšÆ†ûüƆüý¾þþW¾üüW¸ÿPšÄ~
W¾þþWšÄ~
W¸Pšš£ƒ>u
¸PšÀuƆûüéó¿W¾üüWš‰†üþƒ¾üþuƆûüéƍ¾ûûW¾üýWš¾ûúW¾üüW¸P‹†üþHPšš¾üýW¸ÿPš¾üüW¸Pÿ¶üþš€¾üýtŠ†üý0ä‹ø€»üý:u,¾ûûW¾üýWš¿Wš¾üýW¸ÿPšë11À‰†üþ¾üýWšš£ƒ>tƒ>u°ë°ˆ†ûüƒ¾üþté
ÿ€¾ûüuéÁþ‰ì]MÊ\???????????.*.ÿ.\0`08)0P0m00`0`60W0à‡0`›0` ÐQ60À;0l0`z0p¯0`½0pÚ0`è0p0`0` ÐQ+0À00`F0XY Ð^0xc0`q0`08j0ˆu0В0˜£0`²0˜Ã0`Ò0˜ã0`ò 0hý  Ð-0`< Ð H0`W Ð
d0ˆi0¨… Њ0€• ÐÐ0€Û0¨-0@0 x0` 0,0` 0,080Ð60˜G0`V0˜g0`v0˜‡0`– Ð ¡0ˆ¦0¨É0ˆ 0x0`- 0xI0`X0`0И 0˜Ý 0pB0Q Ð("0`1 Ð(60`E Ð(J0`Y0ˆx0ˆ0ˆ£0ˆ¸0ˆÑ0ˆç0`0`0`00l0`›0`¶0`à0`ø  0(K 0€_00d0ˆi n y0X’ Ð0—0xœ0x«0`º08Ë0àæ í00ÿ0ˆ0˜' 01 ; 0E00W0ˆ\0˜m000ˆ† Ð Ð Ð Ð Ð Ð Ð 0` 0ˆ* Ð/0`80`0`80HH0XV0ˆ[ ` d 0Pn Ð80€Š 0ˆ®0pÉ0xÎ0`Ý0¨ð0X Ð80x!0`008C0ˆH M Q X

  3 Responses to “Category : Pascal Source Code
Archive   : TPWINST.ZIP
Filename : WARCHIV.TPU

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

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

  3. 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/