Category : Pascal Source Code
Archive   : TVGR70.ZIP
Filename : GOBJECTS.TPU

 
Output of file : GOBJECTS.TPU contained in archive : TVGR70.ZIP
TPUQâ`#"'"+Â+Ê+Ê+í+,,,B!.P8`2~ϱRšœ"Ï!!Ü%âá4"å!ÞŸçÆL!¿Ž¼"¸!½ú ÷ "i"úDÖ"4¦N"ò";Ó‚"Zý L]
i%SGObjects¼÷
SSystem
Ä
SMemoryc÷OGVersionºG1.01OgRegBaseR`êPTObjectMatchErrProcbî
GPStr80‘î PR QpÎ}îR ObjectMatch
r®®RDummyMatchErrProc
QObjectMatchErrProcbî
OstCreateR<O
stOpenReadR=¡O stOpenWriteR= OstOpenR=OstOkROstErrorRÿÿÿÿO stInitErrorRþÿÿÿGO stReadErrorRýÿÿÿO stWriteErrorRüÿÿÿO
stGetErrorRûÿÿÿO
stPutErrorRúÿÿÿOMaxCollectionSizeRü?O coIndexErrorRÿÿÿÿO
coOverflowRþÿÿÿPWordRecbîSnxx‰QLob‰QHibPLongRec©îšµ¿¿ÐQLo©Ð>QHi©>PPtrRecïîáûQOfsï>QSegï>òPPString8î
)ºPPCharQî
DÎP
PByteArrayoî
]¡îsP
TByteArray¡î ÿR€{îP
PWordArrayÃî
±õîÒP
TWordArrayõî ÿ?R€Ï>áîPPObjectî
/îPTObject/î Ug ÿÿg§‡RInit1/
‡RFree /
§RDoneQ(/
P
PStreamRecÙî
Ç÷îÄP
TStreamRec÷îå
L#`QObjType÷#>
QVmtLink÷9>QLoad÷L®9QStore÷`®QNext ÷>PPStream‚î
sîJPTStreamîŽÃÕ/î,ÿÿ/æ|»QStatusê*Q ErrorInfo*RCopyFrom0
0îRêRError8 
[**0RFlush@
|[RGet‘H
›îRGetPosP
½R›RGetSizeX
àRÕRPut‘`
îRReadh
.‚>àRReadStrp
Q8î.RResetx
r½RSeek€ 
—RQRTruncateˆ$
»—RWrite(
æ‚>rRWriteStr˜
8îPFNameStr3 î OR P Î î3P
PDosStreamU î
C s î=P
TDosStreams îa ™ « î,ÿÿO
ê y
Â
QHandles À >RInit± s 
ê 3 î>RDoneѨs 


RGetPos‘°s 
,
R

RGetSize‘¸s 
O
RÀ RRead‘Às 
y
‚>,
RSeek‘Ès 

R« RTruncate‘Ðs $

ž
RWrite‘Øs (
‚>ÿP
PBufStreamÿ
î

 îP
TBufStream î C U s î, ÿÿs _ j Ù ‰ ù Ò QBuffer j ®QBufSize  € >QBufPtr • >QBufEnd ª >RInit1à 
Ù 3 î>>RDoneQè 
ù € RFlush‘ð 
 U RGetPos‘ø 
< R RGetSize‘ 
_ Rª RRead‘ 
‰ ‚>< RSeek‘ 
® R• RTruncate $
Ò ® RWrite‘  (
‚>P
PEmsStream
î
ý -
îP
TEmsStream-
î
S
e
î,(ÿÿ Kæ
u¥
¾’
QHandle-
z
>Q PageCount-
’
>QSize
-
¥
Rz
QPosition-
¼
RRInit±(-


RRRDoneÑ0-

RGetPos‘8-

(RRGetSize‘@-

KR¼
RRead‘H-

u‚>(RSeek‘P-

šRe
RTruncate‘X-
$
¾šRWrite‘`-
(
‚>P PItemListúî
é+îP TItemList+î û?Rðÿ®îP PCollectionNî
;mîP TCollectionmî Z“¥/î(0ÿÿ-
€*×Wá’ºQItemsm¹úîQCountmÍ*QLimitmá*¥QDelta
mõ*RInit1hm
**¹RLoad1pm
DîÍRDoneQxm
dRAt‘€m
‡®*õRAtDelete‘ˆm
°*RAtFreem
×*DRAtInsert‘˜m
*®°RAtPut‘ m
0*®áRDelete¨m
W®dR DeleteAll°m
|0RError¸m 
§**‡R FirstThat‘Àm
Ñ®®RForEach‘Èm
ù®RFreeÐm
®RFreeAllØm
AÑRFreeItemàm
j®§RGetItemèm
’®îùRIndexOf‘ðm
º*®RInsertøm
á®|RLastThat‘m

®®WRPack‘m
*ARPutItemm 
Wî®
RSetLimitm$
€*jRStore m
îPPUnSortedStringCollectionÇî
¦ôîéPTUnSortedStringCollectionôî Ó,mî(8ÿÿmU}RFreeItem(ô
U®RGetItem0ô
}®î,RPutItem8ô 
î®a PPSortedCollectionÃî
ªèîPTSortedCollectionèî
Ï mî4@ÿÿô,Ú9‹³Q
Duplicates è9r RLoad1@è
^îRCompareHè(
‹*®®RIndexOfPè
³*®RInsertXè
Ú®RKeyOf‘`è,
®®^RSearchhè0
,r®*RStorepè
î­PPStringCollectionkî
RîPTStringCollectionî
w¶Èèî4HÿÿèsFRCompare‘x(
õ*®®RFreeItem€
®ÈRGetItemˆ
F®îõRPutItem 
sî®RSearch˜0
r®*PPResourceCollectionºî
ŸáîsPTResourceCollectionáî
Ɛî4PÿÿBRFreeItem á
B®RGetItem¨á
j®îRKeyOf‘°á,
®®jRPutItem¸á 
î®P
PResourceFileÒî
½óîSP
TResourceFileóîÞ+/î XÿÿáW)¼Óœx¦QStreamó@‚îQModifiedóWrRInit1Àó
|‚îRDoneQÈó
œRCountÐó
½*RDeleteØó
亽RFlushàó
äRGetèó
)îº@RKeyAtðó
Oº*+RPutøó
xîºRSwitchToó
¦‚î‚îrOÑBasePosó¼R|ÑIndexPos óÓRÑIndexóáîaP TStrIndexRecûîç#7QKeyû#>QCountû7>QOffsetû>C P PStrIndex]î
LŽîªP TStrIndexŽî 'R`êiûîzî P PStringList±î
žÐîpP TStringListÐî½ö/î `ÿÿóœ´MÈRLoad1Ð
-îRDoneQÐ
MRGet‘Ð
qº>ÑStreamІ‚îqÑBasePosÐœR-Ñ IndexSize
д*ÑIndex ÐÈ]î†ÒReadStr Ð
º>>P
PStrListMakerî
ú0îÇP
TStrListMaker0îVh/î hÿÿÐÛYq—²…RInit1(0
’>>RDoneQ00
²RPut80
Û>ºhRStore@0
îÑStrPos0>ÑStrSize0,>ÑStrings0Boî’ÑIndexPos
0Y>BÑ IndexSize 0q>,ÑIndex0…]îÑCur0—ûîÒ CloseCurrentH0
žPTPointÍî¿óÿÿÿÿÿÿ0QXÍ*QYÍ*{PTRect2î%XjÿÿÿÿÿÿÍ9 zÙ  c ² ‰ QA2zÍîQB2ŠÍîRAssign‘P2
À****ŠRCopy‘X2
å2îRMove‘`2
 **åRGrow‘h2
9 **jR Intersect‘p2
c 2îRUnion‘x2
‰ 2îÀRContains‘€2
² rÍîREquals‘ˆ2
Ù r2îREmpty2
rRNewStr˜
8îºwR
DisposeStr 
8îRLongMul
R**ZX֐RLongDiv

*R*YXZ÷ùR RegisterType¨
÷î!RAbstract°
)RRegisterObjects¸
½Q StreamErrorp®í
Q EmsCurHandlep>Q
EmsCurPagep> Q RCollectionx÷î QRStringCollectionx÷î–Q RStringListx÷îƒQ
RStrListMaker*x÷îåQRUnSortedStringCollection8x÷îÿÿÿÿøð8@HPX`hpx€ˆ˜ ¨°¸ÀÈÐØàðø (0HPX`hpx€˜ ¨°¸ÀÈÐØàèðø (08@PX`hpx€ˆ˜ ¨°¸ÀÈÐØàèðø (8@HPX`hx€p˜ ¨°¸ÀÈÐØà(è 0è8@ˆH0ˆ
ÿÿ1ÿÿÿÿÿÿ
ÿÿ4ÿÿÿÿlÿÿ'ÿÿÿÿQÿÿÿÿÿÿ[ÿÿ ÿÿwÿÿÿÿ ÿÿ ÿÿ ÿÿ?ÿÿaÿÿ(ÿÿ+ÿÿCÿÿ?ÿÿ*ÿÿ$ÿÿ4ÿÿPÿÿdÿÿ7 ÿÿÿÿ&ÿÿÿÿŒÿÿFÿÿÿÿcÿÿ= ÿÿ"ÿÿ©8ÿÿ(ÿÿÿÿÿÿzÿÿÿÿLÿÿ› ÿÿ ÿÿ9ÿÿ¥ÿÿ%ÿÿ2ÿÿCÿÿ;ÿÿrÿÿ5ÿÿ"ÿÿÿÿÿÿ;ÿÿ,ÿÿ'ÿÿPÿÿÿÿ!ÿÿ=ÿÿÿÿCÿÿ9ÿÿÿÿ»ÿÿ%ÿÿ0ÿÿÿÿ!ÿÿÿÿ>ÿÿÿÿ†ÿÿOÿÿ
ÿÿ©ÿÿ-ÿÿ-ÿÿÿÿ!ÿÿÿÿ©ÿÿÿÿ³ÿÿÿÿ$ÿÿË0ÿÿ;ÿÿÿÿcÿÿêÿÿ›ÿÿ/ÿÿ:(ÿÿ~ÿÿÞ ÿÿÌÿÿ+ÿÿ<ÿÿjÿÿa ÿÿ?ÿÿDÿÿ”ÿÿÿÿÿÿÿÿÿÿÿÿÿÿ/ÿÿ,ÿÿ*ÿÿÿÿ/ÿÿuÿÿ$ÿÿ 0ÿÿÿÿKÿÿ /,H,Hs ,H ,H-
(@m(@ô4Xè4X4Xá ó Ð 0FhGObjectsSystemMemory ¨F GOBJECTS.PAS–
U‰å¸Óš]ËU‰å1ÿštÄ~ÇWÄ~&‹=‹HHP°PšÄFŒÂ]ÊU‰å°PÄ~W&‹=ÿ]]ÊU‰å1ÿš]ÊU‰å¸Ôš]ËU‰åŒØ;Fu‹v‹ Àt ‹>‰| ë ê;t÷‹} ÿuõ‰6]ÊWRPW&‹=ÿ] _ËU‰åìƒ~ |Wƒ~
vQƒ~  |~
vÇFþë‹F
‰Fþ¾þûWÿvþÄ~W&‹=ÿ]¾þûWÿvþÄ~W&‹=ÿ](‹Fþ1Ò)F
V 롉ì]Ê U‰å‹F Ä~&‰E‹F
&‰E¡ tWÿ]ÊU‰å]ÊU‰åP‰àP¸PÄ~W&‹=ÿ]X Àt‹ë;t‹_ ÛuõÄ~ºûÿš1À‰ÂëÄ~Wÿw1ÀPPÿ_]ÊU‰åƒìè‹Fü‹Vþ‰ì]ÊU‰åƒìè‹Fü‹Vþ‰ì]ÊU‰åÄ~
ŒÁ ùt$&‹‹ë;Gt‹_ ÛuôÄ~ºúÿšë)‹SQ‰àP¸PÄ~W&‹=ÿ](Y[ãÄ~Wÿv ÿv
ÿ_]ÊU‰åè]Ê
U‰åƒì
~ûW¸PÄ~W&‹=ÿ]€~ûvCŠFû0ä@Pš‰Fö‰VøŠFûÄ~ö&ˆÄ~öÇWŠFû0äPÄ~W&‹=ÿ]‹Fö‹Vø‰Fü‰Vþë1À‰Fü‰Fþ‹Fü‹Vþ‰ì]ÊU‰åÄ~1À&‰E1À&‰E]ÊU‰åè]ÊU‰åè]ÊU‰åè]Ê
U‰å‹F
F tÄ~
WÄ~
&Š0ä@PÄ~W&‹=ÿ](ë¿W¸PÄ~W&‹=ÿ](]ÊU‰åƒìP1ÿštG1ÀPÄ~WšÅv~°‰úü¬Í!1ÀPWš1ÿš]ÊU‰åÄ~1Ò&;Uu‰Ñ&‹]¸BÍ!s ºÿÿš¸ÿÿ™]ÊU‰åÄ~1Ò&;Uu-‰Ñ&‹]¸BÍ!RP1҉ѸBÍ!^YRP‰ò¸BÍ!XZs ºÿÿš¸ÿÿ™]ÊU‰åÄ~&ƒ}u#ÅV ‹N
&‹]´?Í!ºÿÿr 9Èt1ÀºýÿšÄ~ ‹N
0Àüóª]Ê
U‰åÄ~&ƒ}u‹V
‹N &‹]¸BÍ!sºÿÿš]ÊU‰åÄ~1É&;Mu&‹]´@Í!sºÿÿš]ÊU‰åÄ~&ƒ}u#ÅV ‹N
&‹]´@Í!ºÿÿr 9Èt
1Àºüÿš]Ê
&‹M&+MtE&‹]w<t;‰Ê¹ÿÿ¸BÍ!ë!<t+&ÅU´@Í!ºÿÿr 9Èt
1Àºüÿš1À&‰E&‰E&;EËU‰åƒìPŒÓŽÃŒÛü~°Åv¬ ‹F &‰E ÄFŒÂ‰ì]ÊU‰åÄ~Wè1ÀPÄ~WèÄ~&ÿu
&ÿu&ÿu š1ÿš]ÊU‰åÄ~&ƒ}u°š]ÊU‰åÄ~Wš ÒxÄ~&+EƒÚ&EƒÒ]ÊU‰åÄ~WWšš]ÊU‰åÄ~&ƒ}up°šug1ۋN
)ÙtiÄ~&‹E&+Ew)QS&ÅU&‹M &‹]´?Í![Yºÿÿr1&ÇE&‰E Àt 9Ár‰Á&Åu&u&MÄ~ ßËüó¤룺ýÿšÄ~ ‹N
0Àüóª]Ê
U‰åÄ~Wš Òx1Ä~+F
V u Àt&‹U)Âr&‰Uëÿv ÿv
WWšš]ÊU‰åÄ~WèÄ~Wè]ÊU‰åÄ~&ƒ}uR°šuI1ҋN
)Ñt@Ä~&‹E &+EwQR°šZYu&&‹E 9Ár‰Á&‹E&M&Ä}ÇÅv ÖÊüó¤ë¹]Ê
&‹E&‹U¹@÷ñ)щÖ&‹U;u;t‰Ã¸DÍgˆà%ÿtºÿÿ뉉ˀ>@s¸„ë&‹U‰Ã´QÍgˆà%ÿu&‰]ËU‰å1ÿšué‘1ÀPÄ~Wš¸g5Í!¹¾¿
üó¦Ä~¸ÿÿuV´AÍg‰´FÍg¢¹@‹F‹Vÿ?ƒÒ÷ñ‰Ã€>@s"P‹F ‹Vÿ?ƒÒ÷ñ‰Á´BÍgX9Ër‰Ë9Ãw‰Ã´CÍgˆà%ÿt
ºþÿšºÿÿ1Û&‰U&‰]ÄFŒÂ]ÊU‰åÄ~&‹Uƒúÿt´EÍg1ÀPWš1ÿš]ÊU‰åÄ~&ƒ}u
&‹E&‹Uë¸ÿÿ™]ÊU‰åÄ~&ƒ}u
&‹E
&‹U ë¸ÿÿ™]ÊU‰åÄ~1Û&;]u%&‹E&‹UF
Ú&;U wrN&;E
vH1ÀºýÿšÄ~ ‹N
0Àüóªë6Sš[uå‹F
)Ø9Ár‰Á&M&ƒUWÄ~ ßˎüó¤_;^
rÊ]Ê
U‰åÄ~‹F
‹V Òy1À™&‰E&‰U]ÊU‰åÄ~1Û&9]u:€>@r#&‹E&‹Uÿ?Ú¹@÷ñšt
ºÿÿšë&‹E&‹U&‰E
&‰U ]ÊU‰åÄ~1Û&;]té†&‹E&‹UF
Úÿ?Ú¹@÷ñ&;EvFSš[t=ºüÿšëVSš[uí‹F
)Ø9Ár‰Á&M&ƒUW‰÷ŽÅv ÞËüó¤_;^
rÈ&‹E&‹U&;U rw&;E
v&‰E
&‰U ]Ê
PSW&‹=ÿ] ËU‰å1ÿšt$1ÀPÄ~WèÿvÄ~W&‹=ÿ]$‹F Ä~&‰E
ÄFŒÂ]Ê
U‰åƒì1ÿšuéˆÄ~ÇW¸PÄ~ W&‹=ÿ]Ä~&‹E‰Fþ1À&‰EÿvþW&‹=ÿ]$Ä~&‹EH‰Fü1À;FüC‰FþëÿFþšÀt ‹FþÄ~&‰Eë&ÿvþÄ~ WÄ~W&‹=ÿ]RPÄ~Wè‹Fþ;FüuÂÄFŒÂ‰ì]Ê
U‰åÄ~Wè1ÀPÄ~W&‹=ÿ]$1ÿš]ÊU‰åÄ~‹^
Û|&;]}&Ä}ÑãÑã&ÄŒÂë ¸ÿÿš1À‰Â]ÊU‰åÄ~‹^
Û|*&;]}$&ÿM&‹M)Ùt ü&Ä}ÑãÑãߍuÑáó¥ë¸ÿÿš]ÊU‰åƒìÿv
Ä~Wè‰Fü‰Vþÿv
Ä~WèÿvþÿvüÄ~W&‹=ÿ]‰ì]ÊU‰åÄ~‹^ Û|R&‹M9ËJ&;MuQS&M
QW&‹=ÿ]$[YÄ~&;Mt/&ÿEý&Ä}ÑáÏÏGGÑã)Ùt uüó¥‹F «‹F
«ë¸ÿÿë¸þÿ‰Ëš]Ê
U䌀F
ŒÂÄ~‹^ Û|&;]}&Ä}ÑãÑã&‰&‰Që¸ÿÿš]Ê
U‰åÿv ÿv
Ä~W&‹=ÿ]PÄ~Wè]ÊU‰åÄ~1À&‰E]ÊU‰å¸Ô+F š]ÊU‰åÄ~&‹Mã &Ä}WQ&ÿu&ÿ5ÿvÿ^
Y_Àu ƒÇâä1À‰Âë&ÄŒÂ]ÊU‰åÄ~&‹Mã&Ä}WQ&ÿu&ÿ5ÿvÿ^
Y_ƒÇâè]ÊU‰åÿv ÿv
Ä~Wèÿv ÿv
Ä~W&‹=ÿ]]ÊU‰åƒìÄ~&‹EH‰Fü1À;Fü)‰FþëÿFþÿvþÄ~WèRPÄ~W&‹=ÿ]‹Fþ;FüuÜÄ~1À&‰E‰ì]ÊU‰å‹F
F t°PÄ~
W&‹=ÿ]]ÊU‰åƒìÄ~
Wè‰Fü‰Vþ‹Fü‹Vþ‰ì]ÊU‰åÄF
ŒÂÄ~&‹Mã%&Ä}‰ûÑáüò¯ã÷Átö’¯’àñu ‰ø)ØÑèÑèHë¸ÿÿ]ÊU‰åÄ~&ÿuÿv ÿv
Wè]ÊU‰åÄ~&‹Mã(&Ä}‰ÈÑàÑàǃïWQ&ÿu&ÿ5ÿvÿ^
Y_Àuâä1À‰Âë&ÄŒÂ]ÊU‰åÄ~&‹Mã)&Ä}‰þü­’­‰Ã Ót’«’«âñÄ^&+ÑïÑï&‰]ÊU‰åÿv ÿv
Ä~Wè]Ê U‰åƒì‹F
Ä~&;E}&‹E‰F
~
ü?~ÇF
ü?‹F
Ä~&;Eu遃~
u
1À‰Fü‰Fþë9‹F
ÑàÑàPš‰Fü‰VþÄ~&ƒ}t&Ä}WÄ~üWÄ~&‹EÑàÑàPšÄ~&ƒ}t&ÿu&ÿu&‹EÑàÑàPš‹Fü‹VþÄ~&‰E&‰U‹F
&‰E‰ì]ÊU‰å‹~6Ä}
Wÿv
ÿv‹~6Ä}W&‹=ÿ] ]ÊU‰åÄ~ÇW¸PÄ~
W&‹=ÿ](¿¸PWÄ~Wè]ÊU‰åÿv ÿv
è]ÊU‰åƒìÄ~
Wè‰Fü‰Vþ‹Fü‹Vþ‰ì]ÊU‰åÿv ÿv
Ä~Wè]Ê U‰å1ÿšt)Ä~ W1ÀPÄ~WèÄ~Ç W¸PÄ~ W&‹=ÿ]ÄFŒÂ]Ê
U‰åƒìè‹Fþ‰ì]Ê U‰åƒìÇFþÿÿÿv ÿv
Ä~W&‹=ÿ],RP~üWÄ~W&‹=ÿ]0ÀtKÄ~&€} t/‹FüÄ~&;E}#‹FüÑàÑà&Ä}ø&‹&‹U;V u;F
tÿFüëыFüÄ~&;E}‹Fü‰Fþ‹Fþ‰ì]ÊU‰åƒìÿv ÿv
Ä~W&‹=ÿ],RP~þWÄ~W&‹=ÿ]0Àt
Ä~&€} tÿvþÿv ÿv
Ä~Wè‰ì]ÊU‰å‹F
‹V ]ÊU‰åƒì
ÆFÿ1À‰FüÄ~&‹EH‰Fú‹Fü;Fúu‹FüFúÑè‰Fø‹FøÑàÑàÄ~&Ä}ø&ÿu&ÿ5Ä~W&‹=ÿ],RPÿvÿvÄ~W&‹=ÿ](‰Föƒ~ö} ‹Fø@‰Füë!‹FøH‰Fúƒ~öuÆFÿÄ~&€} u‹Fø‰Fü냋FüÄ~
&‰ŠFÿ‰ì]Ê U‰åÄ~
WÄ~WèÄ~Ç W¸PÄ~
W&‹=ÿ](]ÊU‰åüÅvÄ~
¬&Š%GˆÁ8ávˆá0íó¦tŠDÿ&Šeÿ(à˜]Ê U‰åÿv ÿv
è]ÊU‰åƒìÄ~
Wè‰Fü‰Vþ‹Fü‹Vþ‰ì]ÊU‰åÿv ÿv
Ä~Wè]Ê U‰åƒì1ÀŒ^ú»Åv‹TJ9Ót‰ÙÑÑéQüÅvÅtÑáÑáÎÅ4RVÄ~W&‹=Ž^úÿ],ŽÚ‰ÆZÄ~¬&Š%GˆÁ8ávˆá0íó¦tŠDÿ&Šeÿ(à˜Y}‰ËC¸ë‰ÊJ À¸u¸PÅvŠD ÀXu‰Ë눉^üˆFÿ‹FüÄ~
&‰ŠFÿ‰ì]Ê U‰åÿv ÿv
Ä~
&ŠE0ä Pš]ÊU‰åƒì~øW¸PÄ~
W&‹=ÿ]~ôW¸PÄ~
W&‹=ÿ]~óW¸PÄ~
W&‹=ÿ]ŠFó0ä Pš‰Fî‰Vð‹Fø‹VúÄ~î&‰&‰U‹Fô‹VöÄ~î&‰E&‰UŠFóÄ~î&ˆEÄ~îÇ WŠFó0äPÄ~
W&‹=ÿ]‹Fî‹Vð‰Fü‰Vþ‹Fü‹Vþ‰ì]ÊU‰å‹F
‹V ]ÊU‰åÄ~
WÄ~
&ŠE0ä PÄ~W&‹=ÿ](]Ê U‰åƒì
1ÿšué®1ÀPÄ~Wè‹F ‹VÄ~&‰E&‰U&Ä}W&‹=ÿ]Ä~&‰E&‰U ÆFÿÆFþÄ~&Ä}W&‹=ÿ]-ƒÚÄ~&;U }é¤&;Esé›Ä~&ÿu &ÿu&Ä}W&‹=ÿ] ~öW¸PÄ~&Ä}W&‹=ÿ]‹Fö=MZu7‹Fø1Ò÷Ò÷؃Úÿ%ÿâRPÿvú¸PZX÷êY[+ÁÓÄ~&E&U ÆFþë-=FBu(~øPRuÆFÿë‹Fú‹VüƒÒÄ~&E&U ÆFþ€~þué,ÿ€~ÿtxÄ~&‹E&‹U ƒÒRP&Ä}W&‹=ÿ] Ä~Ç W¸PÄ~&Ä}W&‹=ÿ]Ä~&‹E&‹U &E &U
RP&Ä}W&‹=ÿ] Ä~&Ä}W¸PÄ~ÇWèë$Ä~&ÇE &ÇE
1ÀP¸P¸PÇWèÄFŒÂ‰ì]Ê
U‰åÄ~Wè1ÀPÄ~ÇW&‹=ÿ]°PÄ~&Ä}W&‹=ÿ]1ÿš]ÊU‰åƒìÄ~&‹E‰Fþ‹Fþ‰ì]ÊU‰åìŒÓŽÃŒÛü¾ÿÅv
¬ª‘0íó¤ŽÛ¾ÿW¾þþWÄ~ÇW&‹=ÿ]0Àt ÿ¶þþÄ~ÇWèRPÄ~ÇWè‰ì]ÊU‰åƒìÄ~&€}uéÑ&‹E&‹U &E &U
RP&Ä}W&‹=ÿ] Ä~&Ä}WÄ~ÇWèÄ~&Ä}W&‹=ÿ]Ä~&+E&U -ƒÚ‰Fü‰Vþ&ÿu &ÿu&Ä}W&‹=ÿ] ¿W¸PÄ~&Ä}W&‹=ÿ](~üW¸PÄ~&Ä}W&‹=ÿ](Ä~Ç W¸PÄ~&Ä}W&‹=ÿ](Ä~&Ä}W&‹=ÿ]Ä~&ÆE‰ì]ÊU‰åìŒÓŽÃŒÛü¾üþÅv
¬ª‘0íó¤ŽÛ¾üþW¾úþWÄ~ÇW&‹=ÿ]0Àu
1À‰Fü‰FþëHÿ¶úþÄ~ÇWè‰ÇŽÂ&‹&‹UÄ~&E&U RP&Ä}W&‹=ÿ] Ä~&Ä}Wè‰Fü‰Vþ‹Fü‹Vþ‰ì]ÊU‰åÿv
Ä~ÇWè‰ÇŽÂÇWÄ~ W¸ÿPš]ÊU‰åìŒÓŽÃŒÛü¾ÿÅv
¬ª‘0íó¤ŽÛ¾ÿW¾þþWÄ~ÇW&‹=ÿ]0Àtÿ¶þþÄ~ÇW艆úþ‰–üþëIŠ†ÿ0ä Pš‰†úþ‰–üþ¾ÿWľúþÇW¸ÿPšÿ¶þþÿ¶üþÿ¶úþÄ~ÇWèÄ~&‹E &‹U
ľúþ&‰&‰UÄ~&‹E&‹U &E &U
RP&Ä}W&‹=ÿ] ÿvÿvÄ~&Ä}WèÄ~&Ä}W&‹=ÿ]Ä~&+E&U &‰E &‰U
&‹E &‹U
ľúþ&+&Uľúþ&‰E&‰UÄ~&ÆE‰ì]Ê U‰å‹~6Ä}&‹E&‹U Ä~&&URP‹~6Ä}&Ä}W&‹=ÿ] ‹~6Ä} W&‹=ÿ]‹~6+Eø6UúÄ~&‰&‰U‹~6Ä}&Ä}WÄ~&ÿu&ÿu‹~6Ä} Wè]ÊU‰åƒìÄ~&‹E&‹U‰Fü‰VþÄ~ W&‹=ÿ]‰Fø‰Vú€~
tL‹Fø‹VúƒÒRPÄ~ W&‹=ÿ] ¿¸PWÄ~ÇWèÄ~ W&‹=ÿ]+FøVúÄ~&‰E &‰U
ë4Ä~&ÿu &ÿu&Ä}W&‹=ÿ] Ä~&Ä}WÄ~&ÿu
&ÿu Ä~ Wè‹F ‹VÄ~&‰E&‰U&ÆE‹Fø‹Vú&‰E&‰U ‹Fü‹Vþ‰ì]Ê
U‰åƒì1ÿšué¯Ä~ ‰øŒÂÄ~&‰E&‰U~þW¸PÄ~ W&‹=ÿ]Ä~ W&‹=ÿ]Ä~&‰E&‰U‹Fþ1Ò&E&URPÄ~ W&‹=ÿ] Ä~Ç
W¸PÄ~ W&‹=ÿ]Ä~&‹E
Ñà‹ðÑàðPšÄ~&‰E &‰U&Ä} WÄ~&‹E
Ñà‹ðÑàðPÄ~ W&‹=ÿ]ÄFŒÂ‰ì]Ê
U‰åÄ~&ÿu&ÿu &‹E
Ñà‹ðÑàðPš1ÿš]ÊU‰åÅvÄ~ ü‹L
ã‹^
Åt ‰Ú­)­9­râó0ÀªëWPRÄ~Wš]ÊU‰å‹F 1ÒÄ~&E&URP&Ä}W&‹=ÿ] ÿF
Ä~W¸PÄ~&Ä}W&‹=ÿ]Ä~ÇWÄ~&Š0äPÄ~&Ä}W&‹=ÿ]ÿN
ƒ~
u¾]Ê U‰å1ÿštL1ÀPÄ~Wè‹FÄ~&‰E‹F &‰E ÿvšÄ~&‰E&‰U‹F Ñà‹ðÑàðPšÄ~&‰E&‰UÄFŒÂ]Ê
U‰åÄ~&ÿu&ÿu&‹E Ñà‹ðÑàðPšÄ~&ÿu&ÿu&ÿuš1ÿš]ÊU‰åÄ~&ƒ}t3ÇWÄ~&‹E
Ñà‹ðÑàð&Ä}øW¸PšÄ~&ÿE
1À&‰E]ÊU‰åìŒÓŽÃŒÛü¾ÿÅv
¬ª‘0íó¤ŽÛÄ~&ƒ}t
&‹E&E;Ft Ä~WèÄ~&ƒ}u‹F&‰E&‹E&‰EÄ~&ÿE¾ÿWÄ~&‹E&Ä}øWŠ†ÿ0ä@PšŠ†ÿ0ä@Ä~&E‰ì]Ê
U‰åÄ~WèÄ~ÇW¸PÄ~
W&‹=ÿ](Ä~&Ä}WÄ~&ÿuÄ~
W&‹=ÿ](Ä~Ç
W¸PÄ~
W&‹=ÿ](Ä~&Ä}WÄ~&‹E
Ñà‹ðÑàðPÄ~
W&‹=ÿ](]Ê&‹&;E}
&‹E&;E|ü1À««««ËU‰åÄ~ü‹F«‹F«‹F «‹F
«]Ê U‰åÅv
Ä~ü¥¥¥¥]ÊU‰åÄ~‹F &&E‹F
&E&E]ÊU‰åÄ~‹F &)&E‹F
&)E&E]ÊU‰åÅv
Ä~ü­¯~OO«­¯~OO«­¯}OO«­¯}OO«ƒï]ÊU‰åÅv
Ä~ü­¯}OO«­¯}OO«­¯~OO«­¯~OO«]ÊU‰åÄ~°‹V
&;|&;U‹V &;U|&;U@]ÊU‰åÅv
Ä~¹üó§°u@]ÊU‰åƒìÄ~&‹&;E
&‹E&;E~ÆFÿëÆFÿŠFÿ‰ì]ÊU‰åìŒÓŽÃŒÛü¾üþÅv¬ª‘0íó¤ŽÛ€¾üþu 1À‰†øþ‰†úþë*Š†üþ0ä@Pš‰†øþ‰–úþ¾üþWľøþW¸ÿPš‹†øþ‹–úþ‰Fü‰Vþ‹Fü‹Vþ‰ì]ÊU‰å‹F FtÿvÿvÄ~&Š0ä@Pš]ÊU‰å¿Wè¿Wè¿Wè]ËU‰å]ËU‰åƒì‹F
‹V ‰Fú‰VüÆFÿ‹F
F t ‹F FtÄ~ú&‹ŒÚ;Vu ;FuÆFÿëÿŠFÿ‰ì]Êþÿúÿøÿîÿîÿ ôÿ ôÿ
óÿ
óÿ
óÿäÿðÿèÿÿÿÿÿ2344“êEMMXXXX0FBPR
0
00
0à$
08
0Ѐ0ÀЀ.ÐpÐpÐp!Ѐ0È4°°Ѐ0È(°
0(°°°Ј(
00 00ÈH0(
08 0È0È70È,0È"0È0È,0È=
00% =
0Cð
¨
0(
08/0Ð0° 0ð 0¸0Ð0Èy0° 0ð90È>ð
Ð0Ð0Ð1ÐpÐpÐp6Ðp:
000А%;BY0ȏ0(
08 0È/0ØBi0à(0È20à00È;0ØCe
00
00 0(` Ø

080è&0è;€ˆ"0èj0è-ˆ
0
¨€*H
˜`
0M
0y
0™ð ðÈ*  p
˜
00p°˜G   p
˜
0
0L
00 ÐPŠ@˜ÐP³h¾à

083€LÐ[pEИ‚€VH‡€
0`'€L
0c
0`„˜Ÿ`é0xøH øKÈZ0¬
00
0‘
0
08#0 4
00
0-
0I
0
00
087
0 /H<
0|H

0:
0`W
0Ðx¨
Ðx
¨Ðx8¨Ð@00(08 0@0P0X0h0€ 0ˆ$0(0(0¨0°0¸0À0È 0Ð$0Ø(08 0@0è0ð0ø000 0$0 (08 00080@0H0P 0X$0`(08 0@0x0¸ 0à0è0ð0ø0 0$0(0008 0x0¸ 0ð0ø0$0H(0P0X0`,0h00x0¸ 0à0è0 0$0x(0€0ˆ0 0˜00P0X0`,0x0¸ 0$0 0¨0°,0¸ 0x(0˜00P0X0x0¸ 0$0È000Ð00p0 ÐH0@0pÐ`0 Ðh,0@2Ð8:0p<0 @

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