Category : Pascal Source Code
Archive   : TPTSR.ZIP
Filename : CRTPLUS.TPU

 
Output of file : CRTPLUS.TPU contained in archive : TPTSR.ZIP
TPU6Â@À.¬/„1Œ1”1³1Æ17›0 &¼~3e
Ñ
‰
­
‹± ç ù à ÂJð}´Z’ ~ÐëÏò6 ì˜Q% þ¥¦ [ «pX? s
]
 
ñ
UEZk¯v 7]V 'õ
YCRTPLUSÃÕöYSYSTEMaéçYDOSñöÕÂYCRTʞçPESCßPCRß
PTABß PBACKSPßPSPACEß PDELCHßPCTRLAßPCTRLBßPCTRLCßPCTRLDßPCTRLEßPCTRLFßPCTRLGßPCTRLHßPCTRLIß PCTRLJß
PCTRLKß PCTRLLß PCTRLMß
PCTRLNßPCTRLOßPCTRLPßPCTRLQßPCTRLRßPCTRLSßPCTRLTßPCTRLUßPCTRLVßPCTRLWßPCTRLXßPCTRLYßPCTRLZßBPENHKEYßàPALTAßÕPALTBß0PALTCß.PALTDß PALTEßçPALTFß!PALTGß"PALTHß#öPALTIßCPALTJß$PALTKß%PALTLß&PALTMß2PALTNß1PALTOßPALTPß1PALTQßPALTRßPALTSßePALTTßvPALTU߇PALTVß/˜PALTWß©PALTXß-ºPALTYßËPALTZß,¡PHOMEßG¹PUPARRßHÜPPGUPßI!PLARRßKPRARRßMþPENDKEYßOqPDNARRßPÑPPGDNßQPINSKEYßRòPDELKEYßSPCTRLHOMEßwáPCTRLPGUP߄1PCTRLLARRßs‘PCTRLRARRßtáPCTRLENDßuyPCTRLPGDNßvPALT1ßxPALT2ßyPALT3ßzPALT4ß{PALT5ß|PALT6ß}"PALT7ß~PALT8ßÜPALT9߀UPALT0߁µP ALTHYPHEN߂P ALTEQUALS߃gP CTRLPRTSCßr€PSHIFTTABß¡PF1ß;1PSHIFTF1ßT±PCTRLF1ß^@PALTF1ßh±PF2ß<APSHIFTF2ßUÁPCTRLF2ß_PPALTF2ßiÁPF3ß=QPSHIFTF3ßVÑPCTRLF3ß``PALTF3ßjºPF4ß>aPSHIFTF4ßWPCTRLF4ßapPALTF4ßkíPF5ß?4PSHIFTF5ßXñPCTRLF5ßbPALTF5ßl"PF6ß@PSHIFTF6ßYPCTRLF6ßcPALTF6ßmPF7ßA‘PSHIFTF7ßZPCTRLF7ßdPALTF7ßn PF8ßBãPSHIFTF8ß[PCTRLF8ßePALTF8ßo1PF9ßC'PSHIFTF9ß\ñPCTRLF9ßfTPALTF9ßpPF10ßDPSHIFTF10ß]žPCTRLF10ßg†PALTF10ßqEPF11߅¡PSHIFTF11߇âPCTRLF11߉—PALTF11ߋPF12߆APSHIFTF12߈&PCTRLF12ߊ¨PALTF12ߌP INSERTSTATEæ߀ìPCAPSLOCKæß@0PNUMLOCKæß $ P
SCROLLLOCKæßàP
ALTPRESSEDæßdP CTRLPRESSEDæß5PLEFTSHIFTPRESSEDæßuPRIGHTSHIFTPRESSEDæß6
P SHIFTPRESSEDæßyP
SYSREQPRESSEDæ߀ú PCAPSLOCKPRESSEDæß@aPNUMLOCKPRESSEDæß œPSCOLLLOCKPRESSEDæß× PRIGHTALTPRESSEDæßóPRIGHTCTRLPRESSEDæßZPLEFTALTPRESSEDæßHPLEFTCTRLPRESSEDæ߉
PTMR300æßPTMR267æßÅ PTMR240æßÙ
PTMR218æßSPTMR200æß
PTMR185æßÊPTMR171æß
PTMR160æßë PTMR150æßE PTMR133æß Ç PTMR120æß
ÛPTMR109æß PTMR100æß ý PTMR092æß
! PTMR086æßÉPTMR080æßýPTMR075æßPTMR067æßW PTMR060æߍ PTMR055æß} PTMR050æß
PTMR046æßi PTMR043æß¼
PTMR040æßA
PTMR037æß
PTMR033æß{ PTMR030æß3 PTMR027æßS
PTMR025æß/
PTMR023æß›
PTMR021æß PTMR020æß PTMD250æ߉PTMD500æß{PTMD750æßæ PTMD1000æßQTEXTFRAMECHARSfÍ
fÍ fÍj PVfÍw
PHfÍž PLTfÍG PRTfÍJ
PRBfÍÙ PLBfÍ
PMLfÍ=PMTfÍV PMRfÍÏPMBfÍ jPMMfÍ
¬ Q TEXTFRAME'Í ßfÍã
RSVSH'ͽRSVDH 'ÍDRDVSH'ÍqRDVDH$'Í¿
Q CURSORSHAPEŠÍž¨ÿÿÿÿw]Ññ²R ORIGSHAPE¾ÖߨR PREVSHAPEÔÖßSINITŠ{ñ
¾SGETSHAPEŠ–
ÖßSPUTSHAPE ŠÁ8
ÖßS DEFAULTSHAPEŠþ]
ÖßÔSOFFŠdy
SONŠ˜”
8SBLOCKŠË²
ySNORMAL Š Ñ
ñSRESTORE$Š ñ
”SDONE(Š7 
ÞQ TEXTIMAGEÍ3=ÿÿÿÿR²=RIMAGEMINRÖßRIMAGEMAXgÖßRIMAGEyÍ
ÖßSINIT,R ²
¶ß¶ß¶ß¶ßgSDONE0Ê 
®Q TURBOWINDOWâÍ öÿÿÿÿÏ(•PxRWINDMINÖßRWINDMAX(ÖßRTEXTATTR=¶ßRWHEREXP¶ßRWHEREYc¶ßRCURSHAPExÖßcSSAVE4â¨+•
=SRESTORE8âÃ+
PQ
TEXTWINDOWÇÍÛåÿÿÿÿµå@øRSHADOWøÍRPREVWIND
âÍSWINDOW<ÇÞ+@
¶ß¶ß¶ß¶ß
SDONE@ÇE,
+Q
TEXTSCREENo̓ÿÿÿÿ]
j9ÔRORIGMODE¢ÖßRDIM²ÖßRVSEGÃÖߍRVPORTÕÖß²R PREVTEXTATTRî¶ßRSTATE ÇÍîR CHECKSNOWþߢR DIRECTVIDEO.þßÃRVMODE@ÆßRFORCEMONOCHROME\þßSINITDoö y
@SSAVEHom!–
ÕSRESTORELoˆ!¶
.STEXTMODEPo£!Ü
ÆßyS VIDEOMODEToÏ!þ
Æß\S
ISTEXTMODEXoú!!
þߖS ISCOLORMODE\o"E
þßÜS
COLORATTRS`o0"h
þßES REVERSEVIDEOdoK"
hSSETVIDEOho¿"¸
¶ß¶ß!S
BLINKVIDEOloü"Û
¶S UNBLINKVIDEOpo*#
S RESTOREVIDEOtoY#%
SRVIDEOxoˆ#I
¶ß¶ßþSSVIDEO|o
$r
¶ß¶ß¶ß%SBVIDEO€oJ$–
¶ß¶ßrSUBVIDEO„o‰$»
¶ß¶ß¸SLVIDEOˆoÉ$ß
¶ß¶ß»SHVIDEOŒo
%
¶ß¶ßÛSGETTEXToJ%(
Í–SPUTTEXT”o%&M
ÍISSCRX˜o'j
¶ßßSSCRYœo'‡
¶ß(SSCRWRITE o6'Á
¶ß¶ß¶ß¶ß†ßMSSCRFILL¤o#(ú
¶ß¶ß¶ß¶ßßÁS SCRHORZLN¨o )5
¶ß¶ß¶ß¶ßßS SCRVERTLN¬oz)p
¶ß¶ß¶ß¶ß߇SSCRBOX°oö)­
¶ß¶ß¶ß¶ß¶ß'ÍúS WINDWRITE´om*Ô
†ßpS WINDLIGHTBAR¸oÇ*

¶ß¶ß¶ß¶ß­S WINDCOLOR¼o2+9
¶ß¶ß5SDONEÀo}+
¿QFRAMEDTEXTWINDOWnÍ‚ŒÇÍÿÿÿÿVçSWINDOWÄn`,¿
¶ß¶ß¶ß¶ßŒSFRAMEÈn·,ç
¶ß'Í¿S TITLEFOOTERÌnñ,
þ߶߆ßS SCROLLBARÐnp-
þ߶ß'ͶßÆßÆßµQSHADOWTEXTWINDOWr͆ÇÍÿÿÿÿZÐSWINDOWÔr .Ã
¶ß¶ß¶ß¶ßSTITLEØrc.
¶ß†ßRCURSORŠÍfRTXTSCRoÍÕ R ASCIISCAN$Öߟ SREADKEY
ß0ä͉$ÍÍS
KEYPRESSEDÜÅ
þß S READSHIFT 
Öß´Í0äŒSENHSETTYPEMATICàó
¶ß¶ßwS ENHWRITEKEY
´‹$ÍͲ S
ENHREADKEY
ߴ͉$ÍúS
ENHKEYPRESSEDä4
þßÐS ENHREADSHIFT
Öß´ÍÝSCLRKEYèb
~3e
Ñ
‰
­
‹± ç ù ¨ÂJðŠ}´Z’ ~Ð>ÏòWì˜Q% þ¥¦ o«pX? s
]
 
ñ
UEZk¯v 7]V 'õ
ëP
CURSOROFFMASKæß 6 P CURSORONMASKæßÿß[ PBLOCKCURSORMASKæßÿPDEFAULTCOLORCURSORæßà PDEFAULTMONOCURSORæß
ãÏPZEROFLAGæß@RRGSêÿZî$ýRTMRATE«¶ßRTMDELAY«¶ßRRGSìÿ«îR>PZEROFLAGæß@RRGSêÿJîlRCHÿÿß…RSELFԊͱ RSELFñŠÍRRGSêÿñîËîÝRSHAPE
ÖßRSELFŠÍRRGSìÿîT7RSELF8ŠÍPDEFAULTCOLORCURSORæßPDEFAULTMONOCURSORæß
RRGSêÿ8înRSELF]ŠÍP
CURSOROFFMASKæß ¢³RSELFyŠÍP CURSORONMASKæßÿßæRSELF”ŠÍÕPBLOCKCURSORMASKæßÿ RSELF²ŠÍ& RSELFÑŠÍA RSELFñŠÍz ‰ © ¹ RX1¶ßRY1¶ßk RX2 ¶ßRY2
¶ßRSELF͘ RTMPÿÿ¶ß\ RSIZEüÿÖßÔ å RSELF²ÍRSIZEþÿ²Öß6!]!H!RSELF\oÍPMASEGæß°!PMASTATUSæߺ!PCGASEGæ߸"!P CGASTATUSæßÚRRGSìÿ\îw!RSELFyoÍ’!RSELF–oÍ­!¾!RMODE
¶ÆßRSELF¶oÍê!Ù!RSELFÜoÍRRGSêÿÜî"RSELFþoÍ"RSELF!oÍ:"RSELFEoÍf"ª"RSELFhoÍU"P FOREGRDMASKæßP BACKGRDMASKæßp}"P
INTENSMASKæß”"P BLINKMASKæ߀ë"Ú"RFGRD ¶ßÉ"RBGRD
¶ßRSELFoÍ#RSELF¸oÍ#PBLINKONæ߀4#E#RSELFÛoÍPBLINKOFFæßt#c#RSELFoÍRTMPATTRÿÿ¶ß´#ø#RATTR
%¶ßRSELF%oÍ£#P FOREGRDMASKæß’#P BACKGRDMASKæßpË#P
INTENSMASKæßâ#P BLINKMASKæ߀9$($RFGRD I¶ß$RBGRD
I¶ßRSELFIoÍv$T$RATTR
r¶ßRSELFroÍe$PBLINKONæ߀¤$µ$RATTR
–¶ßRSELF–o͓$PBLINKOFFæßä$õ$RATTR
»¶ßRSELF»oÍÓ$P INTENSOFFæß6%%RATTR
߶ßRSELFßoÍ%%PINTENSONæß¿%&®%&RTI
ÍRSELFoÍRRÿÿ¶ßc%RCþÿ¶ßRVPüÿÖßT%RVSúÿÖ߂%RVOFSøÿÖߐ%RISEGöÿÖßt%RIOFSôÿÖߟ%RLLENòÿÖßÐ%RNLOFSðÿÖßá%RROWSîÿÖßò%RRGSÚÿîš&ð&‰&ß&RTI
(ÍRSELF(oÍRRÿÿ(¶ß>&RCþÿ(¶ßRVPüÿ(Öß/&RVSúÿ(Öß]&RVOFSøÿ(Ößk&RISEGöÿ(ÖßO&RIOFSôÿ(Ößz&RLLENòÿ(Öß«&RNLOFSðÿ(Öß¼&RROWSîÿ(ÖßÍ&RRGSÚÿ(î
'RSELFMoÍ%'RSELFjoÍã'((Ã'RX‡¶ßRY‡¶ß@'RMAXLEN‡¶ß\'RATTR‡¶ßRSTR
‡†ß€'RSELF‡oÍN'RCHATTRþÿ‡Öß¡'RVPüÿ‡Ößo'RVSúÿ‡Öߐ'RVOFSøÿ‡Öß´'RI÷ÿ‡¶ßRXTMPöÿ‡¶ßÒ'RYTMPõÿ‡¶ßñ'RRGSàÿ‡îé(ü(Ø(É(RXÁ¶ßRYÁ¶ß;(RLENÁ¶ß-(RATTR Á¶ßRCH
ÁßRSELFÁoÍj(RXTMPÿÿÁ¶ßy(RYTMPþÿÁ¶ßI(RIýÿÁ¶ß¬(RVPúÿÁÖßY(RVSøÿÁÖߛ(RVOFSöÿÁÖߺ(RCHATTRôÿÁÖߊ(RRGSàÿÁîZ)i)I)RLEFTú¶ßRROWú¶ß')RRIGHTú¶ß)RATTR ú¶ß7)RCH
úßRSELFúoÍè)È)×)·)RCOL5¶ßRTOP5¶ß„)RBOTTOM5¶ß¤)RATTR 5¶ßRCH
5ßRSELF5o͔)RIÿÿ5¶ßM*-*\*<*RX1p¶ßRY1p¶ß*RX2p¶ßRY2p¶ß*RATTRp¶ß*RTF
p'ÍRSELFpo͹*‡*«*RSTR
­†ßw*RSELF­oÍRMAXLENÿÿ­¶ß˜*RXþÿ­¶ßRYýÿ­¶ßí*++RXÔ¶ßRYÔ¶ßß*RLEN Ô¶ßÑ*RATTR
Ô¶ßRSELFÔoÍý*RMAXLENÿÿÔ¶ßo+^+M+RFGRD
¶ß<+RBGRD

¶ßRSELF
oÍRYÿÿ
¶ß˜+‡+RSELF9oÍRRGSìÿ9î²+RSELFxâÍÍ+RSELF•âÍ,,5,è+RX1
¶ßRY1
¶ß÷+RX2
¶ßRY2

¶ßRSELF
ÇÍ$,RTMPÿÿ
¶ßO,RSELF@Ç͈,—,¦,j,RX1Œ¶ßRY1Œ¶ßy,RX2 Œ¶ßRY2
Œ¶ßRSELFŒnÍÒ,à,Á,RATTR¿¶ßRF
¿'ÍRSELF¿nÍ?-`-.-
-RTITLEçþßRATTRç¶ßRSTRÿç†ß-RSELFçnÍRLENÿþç¶ßû,RMOFSþþç¶ßO-RROWýþç¶ßí--û-½-RVERTþßRFATTR¶ßz-RF'ÍRPATTR¶ßRP Æß«-RMAXP
ÆßË-RSELFn͋-RIþÿÆßÜ-RSLENüÿÆß4.C.R..RX1¶ßRY1¶ß%.RX2 ¶ßRY2
¶ßRSELFrÍŸ.¯.Ž.m.RATTRößRSTRÿÆß~.RSELFÃrÍRLENÿþößRMOFSþþößÐ (08@HPX`hpx€ˆ˜€ˆ˜ ¨°¸ÀÈÐØàèðø (08@HPX`hpx  ¨°¸ÀÈ@2@!'2/@3N<^;n&€&&š#§ ´Á<XÎw÷w(R8"Y04J8G?YCiMz8‹O8›0­" »" É.×Læ-ö*ÿ070†*Ú*çÖHô¶pC9ÒNß*HíjHl0j0$p(3U@ER8WoPh4({¤ ŠZ  ¯HÍ@2@" @0&DOSCRTPLUSSYSTEMCRTíK½ CRTPLUS.PASZ 
«
J 
*
Ô0
ñ7
 @
8L
 ]X
y_
”f
²k
Ñp
ñu
|     '
²ž6

\­ 
 

y¿
!

–É



¶Õ





Üà

þè  !ñ ) Eú h

5

¸

Û!

)

%55 I= rD –K »R ßY cE 


($!

(®J 


($!

Mú jÿ ‡ E
!

 


ÁT…$
!









úÜ
)5ã$pê

''&& ­÷ Ô 

!9 
x


•)



3 

@>

ŒF  5 .¿U =ç^# $,2x1 4
 ,4
 +­ 5 ,.1ÃÁ# K#+;Ö U‰å¸šƒìÇFê°P~êWš‹F꣋Fü%@Àt°ë°ˆFÿŠFÿ‰ì]ËU‰å¸šƒìÇFìŠFˆFîŠFˆFï°P~ìWš‰ì]ÊU‰å¸šƒìÇFê°P~êWš‹F꣋Fü%@Àt°ë°ˆFÿŠFÿ‰ì]ËU‰å¸šƒìèÀt
0ä͉ˆFÿëë‰ì]ËU‰å1ÀšÄ~WèÄ~&‰Ä~WèÄ~&‰E‰ì]ÊU‰å¸šƒìÇFêÆFí°P~êWš‹Fî‰Fþ‹Fþ‰ì]ÊU‰å¸šƒìÄ~WèÄ~&‰EÇFì‹F
‰Fð°P~ìWš‰ì]ÊU‰å¸šƒìÇFê°P~êWš€~êuÇFþ
ëÇFþ‹Fþ‰ì]ÊU‰å1ÀšÄ~Wè
PÄ~Wè‰ì]ÊU‰å1ÀšÄ~Wè%ÿßPÄ~Wè‰ì]ÊU‰å1ÀšÄ~Wè%ÿPÄ~Wè‰ì]ÊU‰å1ÀšÄ~WèPÄ~Wè‰ì]ÊU‰å1ÀšÄ~&ÿuÄ~Wè‰ì]ÊU‰å1ÀšÄ~&ÿ5Ä~Wè‰ì]ÊU‰å¸šƒì€~vþN€~vþN€~ vþN €~
vþN
ŠF:F vŠFˆFÿŠF ˆFŠFÿˆF ŠF:F
vŠFˆFÿŠF
ˆFŠFÿˆF
ŠF:v ˆFŠF :v ˆF ŠF:v ˆFŠF
:v ˆF
ŠF0ä¹Óà‹ÐŠF0äÂÄ~&‰ŠF
0ä¹Óà‹ÐŠF 0äÂÄ~&‰EŠF0ä‹ÐŠF
0ä+Â@‹ÈŠF0ä‹ÐŠF 0ä+Â@÷áÑà‰Füš‹È‹Ú‹Fü1Ò;Ó|;ÁsÿvüšÄ~&‰E&‰Uë
Ä~1À&‰E&‰E‰ì]Ê U‰å¸šƒìÄ~&ŠE0ä‹ÐÄ~&ŠE0ä+Â@‹ÈÄ~&Š0ä‹ÐÄ~&ŠE0ä+Â@÷áÑà‰FþÄ~&‹E& EtÄ~&ÿu&ÿuÿvþšÄ~1À&‰E&‰E‰ì]ÊU‰å¸šƒì¡Ä~&‰ÇFì°P~ìWš€~ìuÄ~&ÇE°Ä~&ÇEºëÄ~&ÇE¸Ä~&ÇEÚ¡Ä~&‰E Ä~&ˆEÄ~&ÆE‰ì]ÊU‰å1ÀšÄ~WèÀt5°P°P 0ä@P 0ä@PÄ~Ç Wè Ä~&ˆE Ä~&ˆE‰ì]ÊU‰å1ÀšÄ~&€}vÄ~&‹EPšë Ä~&ÿušÄ~&ŠE¢Ä~&ŠE¢Ä~Ç Wè‰ì]ÊU‰å1Àš Ä~&ˆE Ä~&ˆEÿv
šÄ~&ŠE¢Ä~&ŠE¢¡Ä~&‰E‰ì]ÊU‰å¸šƒìÇFê°P~êWšŠFê0äÄ~&‰EÄ~&‹E‰Fþ‹Fþ‰ì]ÊU‰å¸šƒìÄ~Wè=t=t=t
=t=uÆFÿëÆFÿŠFÿ‰ì]ÊU‰å¸šƒìÄ~Wè=t=t=t=t=t
=t=uÆFÿëÆFÿŠFÿ‰ì]ÊU‰å¸šƒìÄ~WèÀtÄ~&€}uÆFÿëÆFÿŠFÿ‰ì]ÊU‰å1Àš Ä~&ˆE $p0ä¹Óè‹Ø $0ä‹Ð $0ä¹Óà  ËР$€0ä ¢‰ì]ÊU‰å1Àš Ä~&ˆEŠF
0ä¹Óà‹ÐŠF 0䢉ì]ÊU‰å1Àš Ä~&ˆE  €¢‰ì]ÊU‰å1Àš Ä~&ˆE $¢‰ì]ÊU‰å¸šƒì ˆFÿÄ~&ŠE¢ŠFÿÄ~&ˆE‰ì]ÊU‰å¸šƒìŠF
$€0ä‹ØŠF
$p0ä¹Óè‹ÐŠF
$0ä¹Óà  ËЊF
$0ä ˆFÿŠFÿ‰ì]ÊU‰å¸šƒìŠF
0ä¹Óà‹ÐŠF 0äˆFÿŠFÿ‰ì]ÊU‰å¸šƒìŠF
€ˆFÿŠFÿ‰ì]ÊU‰å¸šƒìŠF
$ˆFÿŠFÿ‰ì]ÊU‰å¸šƒìŠF
$ˆFÿŠFÿ‰ì]ÊU‰å¸šƒìŠF
ˆFÿŠFÿ‰ì]ÊU‰å¸,šƒì,Ä~
‰~֌FØÄ~Ö&‹E& EuéÒÄ~Ö&Ä}ŒÀ‰FöÄ~Ö&Ä}‰ø‰Fô€>uéÄ~Ö&Š0ä‹ÐÄ~Ö&ŠE0ä+Â@Ñà‰FòÄ~&ŠE0ä@Ñà‰FðÄ~Ö&Š0äÑà‹ÈÄ~Ö&ŠE0ä÷fðÁ‰Fø€>tg‹Fò)FðÄ~&‹E‰FüÄ~&‹E‰FúÄ~Ö&ŠE0ä‹ÐÄ~Ö&ŠE0ä+Â@‰Fîü‹VüŽ^ú‹vøŽFö‹~ô‹NîQ‹NòÑéìÐèrûúìÐèsû­û«âðvðYâäë`Ä~Ö&ŠE0ä‹ÐÄ~Ö&ŠE0ä+ˆFÕ°:FÕw@ˆFÿëþFÿ‹FøÄ~&‹U‰ÇŽÂW‹Fô‹Vö‰ÇŽÂWÿvòš‹FðFø‹FòFôŠFÿ:FÕuÅé˜Ä~Ö&ŠEˆFÕÄ~Ö&ŠE:FÕvéˆFÿëþFÿÄ~Ö&ŠEˆFÔÄ~Ö&Š:FÔwZˆFþëþFþÆFÛÆF݊FÿˆFáŠFþˆFà°P~ÚWšÆFÛÆFÝ°P~ÚWš‹NڋFô‹Vö‰ÇŽÂ&‰
ƒFôŠFþ:FÔu«ŠFÿ:FÕu†‰ì]ÊU‰å¸,šƒì,Ä~
‰~֌FØÄ~Ö&‹E& EuéîÄ~Ö&Ä}ŒÀ‰FöÄ~Ö&Ä}‰ø‰Fô€>uéÄ~Ö&Š0ä‹ÐÄ~Ö&ŠE0ä+Â@Ñà‰FòÄ~&ŠE0ä@Ñà‰FðÄ~Ö&Š0äÑà‹ÈÄ~Ö&ŠE0ä÷fðÁ‰Fø€>tj‹Fò)FðÄ~&‹E‰FüÄ~&‹E‰FúÄ~Ö&ŠE0ä‹ÐÄ~Ö&ŠE0ä+Â@‰Fîü‹VüŽFú‹~øŽ^ö‹vô‹NîQ‹NòÑ魋ØìÐèrûúìÐèsû“«ûâí~ðYâáë`Ä~Ö&ŠE0ä‹ÐÄ~Ö&ŠE0ä+ˆFÕ°:FÕw@ˆFÿëþFÿ‹Fô‹Vö‰ÇŽÂW‹FøÄ~&‹U‰ÇŽÂWÿvòš‹FðFø‹FòFôŠFÿ:FÕuÅé±Ä~Ö&ŠEˆFÕÄ~Ö&ŠE:FÕv阈FÿëþFÿÄ~Ö&ŠEˆFÔÄ~Ö&Š:FÔwpˆFþëþFþÆFÛÆF݊FÿˆFáŠFþˆFà°P~ÚWšÆFÛ ‹Fô‹Vö‰ÇŽÂ&ŠˆFÚÆF݋Fô‹Vö‰ÇŽÂ&ŠEˆFÜÇFÞ°P~ÚWšƒFôŠFþ:FÔu•ŠFÿ:FÕtémÿ‰ì]ÊU‰å¸šƒìš0ä‹Ð 0äˆFÿŠFÿ‰ì]ÊU‰å¸šƒìš0ä‹Ð 0äˆFÿŠFÿ‰ì]ÊU‰å¸"šƒì"þNþNŠF0ä‹ÐÄ~&ŠE0ä+Â@‹ÐŠF0ä;Â~ŠF0ä‹ÐÄ~&ŠE0ä+Â@ˆFŠFÄ~
&:v Ä~
&ŠˆF€~uék€>uéӊF0ä‹ÈŠF0ä‹ÐÄ~&ŠE0ä@÷âÁÑà‰Fø€>tIÄ~&‹E‰FüÄ~&‹E‰Fúü‹–üÿŽ†úÿ‹¾øÿŶ
FŠŽ0튾Šç¬ŠØìÐèrûúìÐèsû“«ûâíë_ŠFˆFß°:FßwRˆF÷ëþF÷ŠF0ä¹Óà‹ÐŠF÷0äÄ~
ø&Š0ä‰Fþ~þW‹FøÄ~&‹U‰ÇŽÂW¸PšƒFøŠF÷:Fßu³éŽšˆFöšˆFõŠFˆFß°:FßwdˆF÷ëþF÷ÆFáÆFãŠFˆFçŠFˆFæ°P~àWšÆFá ŠF÷0äÄ~
ø&ŠˆFàÆFãŠFˆFâÇFä°P~àWšþFŠF÷:Fßu¡ŠFöPŠFõPš‰ì]ÊU‰å¸"šƒì"þNþN€~tŠF0ä‹ÐÄ~&ŠE0ä+Â@‹ÐŠF0ä;Â~ŠF0ä‹ÐÄ~&ŠE0ä+Â@ˆF€>ué…ŠF0ä‹ÈŠF0ä‹ÐÄ~&ŠE0ä@÷âÁÑà‰Fö€>ué†Ä~&‹E‰FúÄ~&‹E‰Fø€~
u?ü‹VúŽFø‹~öŽ^ø‹vöŠN0튾 ŠçìÐèrûúìÐèsû“­ûŠØìÐèrûúìÐèsû“«ûâàë*ü‹VúŽFø‹~öŠN0튾 ŠçŠ^
ìÐèrûúìÐèsû“«ûâíéр~
uvŠFˆFß°:FßwgˆFýëþFý‹FöÄ~&‹U‰ÇŽÂW~ôW¸PšŠF 0ä¹Óà‹Ð‹Fô%ÿ ‰Fô~ôW‹FöÄ~&‹U‰ÇŽÂW¸PšƒFöŠFý:FßužëUŠFˆFß°:FßwHˆFýëþFýŠF 0ä¹Óà‹ÐŠF
0ä ‰Fô~ôW‹FöÄ~&‹U‰ÇŽÂW¸PšƒFöŠFý:Fßu½éӚˆFÿšˆFþ€~
uf€~v^ÆFáÆFãŠFˆFçŠFˆFæ°P~àWšÆFáÆFã°P~àWšÆFá ÆFãŠF ˆFâÇFä°P~àWšþNþFëœëJÆFáÆFãŠFˆFçŠFˆFæ°P~àWšÆFá ŠF
ˆFàÆFãŠF ˆFâŠF0ä‰Fä°P~àWšŠFÿPŠFþPš‰ì]ÊU‰å1ÀšŠFPŠFPŠF0ä‹ÐŠF0ä+Â@PŠF PŠF
PÄ~Wè‰ì]ÊU‰å¸šƒìŠFˆFþŠF:Fþw,ˆFÿëþFÿŠFPŠFÿP°PŠF PŠF
PÄ~WèŠFÿ:Fþuىì]ÊU‰å1ÀšŠF0ä@PŠFPŠF0äHPŠFPÄ~
&ŠEPÄ~WèŠF0ä@PŠFPŠF0äHPŠFPÄ~
&ŠEPÄ~WèŠFPŠF0ä@PŠF0äHPŠFPÄ~
&ŠPÄ~WèŠFPŠF0ä@PŠF0äHPŠFPÄ~
&ŠPÄ~WèŠFPŠFP°PŠFPÄ~
&ŠEPÄ~WèŠFPŠFP°PŠFPÄ~
&ŠEPÄ~WèŠFPŠFP°PŠFPÄ~
&ŠEPÄ~WèŠFPŠFP°PŠFPÄ~
&ŠEPÄ~Wè‰ì]ÊU‰å¸šƒìšˆFþšˆFýŠFþ0ä‹È 0ä‹Ð 0ä+Â@+Á@ˆFÿ Fþ FýŠFþPŠFýPŠFÿP PÄ~
WÄ~Wè‰ì]ÊU‰å¸šƒìŠF0ä‹È 0ä‹Ð 0ä+Â@+Á@ˆFÿ€~ tŠF :FÿvŠFÿˆF  F FŠFPŠFPŠF PŠF
P°PÄ~Wè‰ì]Ê U‰å¸šƒìŠF
0ä¹Óà‹ÐŠF 0䢠0ä‹Ð 0ä+Â@ˆFþ°:Fþw'ˆFÿëþFÿ°PŠFÿP°P PÄ~WèŠFÿ:Fþuމì]ʏU‰å¸šƒìÄ~&ŠP¿WštÄ~&ÿ5Ä~WèëÄ~&Š0ä‰Fì°P~ìWš‰ì]ÊU‰å1Àš¡Ä~&‰¡Ä~&‰E Ä~&ˆEšÄ~&ˆEšÄ~&ˆE¿WèÄ~&‰E‰ì]ÊU‰å1ÀšÄ~&‹£Ä~&‹E£Ä~&ŠE¢Ä~&ŠEPÄ~&ŠEPšÄ~&ÿu¿Wè‰ì]ÊU‰å¸šƒìÄ~ÇWèŠFPŠFPŠF PŠF
PÄ~WèÄ~W¿WèÄ~&‹£Ä~&‹E£°P°Pš¿Wè‰ì]Ê U‰å1ÀšÄ~W¿WèÄ~WèÄ~ÇWè‰ì]ÊU‰å¸šƒìŠFPŠFPŠF PŠF
PÄ~WèÄ~‰~üŒFþÄ~ü&Š0ä‹ÐÄ~ü&ŠE0ä+Â=|Ä~ü&ŠE0ä‹ÐÄ~ü&ŠE0ä+Â=} Ä~Wèë.Ä~ü&Š0äPÄ~ü&ŠE0äPÄ~ü&ŠEPÄ~ü&ŠEPš‰ì]Ê U‰å¸šƒìÄ~‰~üŒFþÄ~ü&Š0ä@PÄ~ü&ŠE0ä@PÄ~ü&ŠE0ä@PÄ~ü&ŠE0ä@PŠFPÄ~
W¿Wè‰ì]Ê
U‰å¸šìÄ~
W¾ÿW¸ÿPšÄ~‰¾øþŒ†úþŠ†ÿˆ†ÿþľøþ&Š0ä‹Ðľøþ&ŠE0ä+Â@‹ÐŠ†ÿþ0ä;Â~#ľøþ&Š0ä‹Ðľøþ&ŠE0ä+Â@ˆ†ÿþƆþþë,Š†ÿþ0ä‹Èľøþ&Š0ä‹Ðľøþ&ŠE0ä+Â@+Á™¹÷ùˆ†þþ€~tľøþ&ŠE0ä@ˆ†ýþëľøþ&ŠE0ä@ˆ†ýþŠ†þþ0ä‹Ðľøþ&Š0ä@ÂPŠ†ýþPŠ†ÿþPŠFP¾ÿW¿Wè‰ì]Ê U‰å¸šƒì‹F
Ày÷؉F
‹F Ày÷؉F ƒ~ }ÇF ë‹F ;F
~‹F
‰F €~uéäÄ~&ŠE0ä@PÄ~&ŠE0äPÄ~&ŠEPŠFPÄ~&ŠP¿WèÄ~&ŠE0ä‹ÐÄ~&ŠE0ä+ÂH‰Fü‹Fü÷n ™÷~
‰Fþƒ~þ}ÇFþë‹Fþ;Fü~‹Fü‰Fþƒ~ uÇFþë2ƒ~þu ƒ~ü~ÿFþë!‹F ;F
u‹Fü‰Fþë‹Fþ;Füu ƒ~ü~ÿNþÄ~&ŠE0ä@PÄ~&ŠE0äFþ@P°PŠFP°P¿WèéßÄ~&Š0äPÄ~&ŠE0ä@PÄ~&ŠEPŠFPÄ~&ŠEP¿WèÄ~&Š0ä‹ÐÄ~&ŠE0ä+ÂH‰Fü‹Fü÷n ™÷~
‰Fþƒ~þ}ÇFþë‹Fþ;Fü~‹Fü‰Fþƒ~ uÇFþë2ƒ~þu ƒ~ü~ÿFþë!‹F ;F
u‹Fü‰Fþë‹Fþ;Füu ƒ~ü~ÿNþÄ~&Š0äFþ@PÄ~&ŠE0ä@P°PŠFP°P¿Wè‰ì]ÊU‰å¸šƒìŠFPŠFPŠF PŠF
PÄ~WèÄ~‰~üŒFþÄ~ü&Š0ä‹ÐÄ~ü&ŠE0ä+Â=|Ä~ü&ŠE0ä‹ÐÄ~ü&ŠE0ä+Â=} Ä~Wèë,Ä~ü&Š0ä@PÄ~ü&ŠE0ä@PÄ~ü&ŠEP°P° P¿WèÄ~ü&Š0ä@PÄ~ü&ŠE0äPÄ~ü&ŠEP°P° P¿WèÄ~ü&Š0äPÄ~ü&ŠE0äPÄ~ü&ŠE0ä@PÄ~ü&ŠEPš‰ì]Ê U‰å¸šìÄ~
W¾ÿW¸ÿPšÄ~‰¾úþŒ†üþľúþ&Š0äPľúþ&ŠE0ä@Pľúþ&Š0ä‹Ðľúþ&ŠE0ä+ÂPŠFP¿WèP° P¿W芆ÿˆ†ÿþľúþ&Š0ä‹Ðľúþ&ŠE0ä+‹Њ†ÿþ0ä;Â~"ľúþ&Š0ä‹Ðľúþ&ŠE0ä+ˆ†ÿþƆþþë+Š†ÿþ0ä‹Èľúþ&Š0ä‹Ðľúþ&ŠE0ä+Â+Á™¹÷ùˆ†þþŠ†þþ0ä‹Ðľúþ&Š0äÂPľúþ&ŠE0ä@PŠ†ÿþPŠFP¾ÿW¿Wè‰ì]Ê
U‰å¿Wè¿Wè‰ì]˳ÄÚ¿ÙÀôÁųÍÕ¸¾ÔÆѵÏغÄÖ·½ÓÇÒ¶Ð׺ÍÉ»¼ÈÌ˹ÊÎ0Ð0$$0Ð0(0Ð0$$0Ðܐ$0Ð 0Ð0 0Ð020Ð00Ð 0Ð 0Ð 0Ð 0Ð 0Ð 0Аkpz‰Ž˜0œý0ˆ0Ð0Œ`0А0%
V`0ÐX%<69C0Ð0 0.:D@Q0А 0".8
;0Ð00ÐT0ÐT0Ð\0А #,>G0А (0А 0А 0А0Ð0Ð0Ð0Ð0Ð0Ð0АA’0€F0¼0Ñ0АA’0€I0¿0ú0Ð00Ð0  0Аg’0€/0C0 K0„0´0Ì0АP{0€>0€s0€Ê0Þ0 æ00+0K0v0Ÿ0¬0Ф10Ф>0Ш/¨V¬|¬¢¤Â¤â¤¤"0Ð00 &
-; AS b0А
? E¤d0А" % ,P¸Z0Ð'Px60`;PN0f0А 
0(0 4@F0А
%08D J0Ð4,2:@I
S0\a g0А”08,0Ð<%@l0š0АL°R0Ð00ù ÿ0Аv¬|#¤)Z¨`¤ 0Ð<%@l”¨šÂ¬È0÷0Ð00dxjq¤w$ *

D

  3 Responses to “Category : Pascal Source Code
Archive   : TPTSR.ZIP
Filename : CRTPLUS.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/