Category : Pascal Source Code
Archive : DOORDR30.ZIP
Filename : DDSCOTT.TPU
Output of file : DDSCOTT.TPU contained in archive : DOORDR30.ZIP
Û G . Â 0 ß 9 Þ ´ Õ z èç þúj E · Ý m ` Ô¡ '°N YDDSCOTT 0¿Õ ö YSYSTEM aéç YDOS ñö Õ YCRT Ê ç Q ADAPTERTYPEÍ Í Í PMDAÍ PCGAÍ PEGAMONOÍ PEGACOLORÍ QDATETYPEÍ æ ß ß Í RSCREEN ÄÍ æ ß ¶ ß ´Í RX Æ ß uRY ¢ Æ ß RCH ¤ ß R DOS_MAJOR ¦ Ö ß R DOS_MINOR ¨ Ö ß RHEXON ª þ ß SVA a
ß Æ ß SWVA
ß Ö ß SLVA
ß æ ß ö SRVA Ó
ß ¢ ß SSTU ù
ß ß SLOCASE
ß ß SSTL 7
ß ß SNAMESTR
ß ß ?SEXIST$ ]
þ ß ß S DELETE_FILE( :
ß SSETMODE, ¿
¶ ß aS
SET43LINES0 ñ
¸S
SET25LINES4
SISEGA8 '
þ ß ìSQUERYADAPTERTYPE< B
Í YSDETERMINEPOINTS@
Æ ß SCURSOROND ¤
S CURSOROFFH n
S CURSORBLOCKL ¿
¼S
SCREENADDRESSP Ú
Ö ß S
SAVESCREENT ä
ÐS
RESTORESCREENX
SDATE\ 8
Í ûSBITCHECK` µ
þ ß Ö ß ¶ ß SSETBITd ÷
Ö ß ¶ ß CSRESETBITh 9
Ö ß ¶ ß "SCOPYFILEl {
ß ß S GETHANDLEp o
Ö ß f ß SDOSVERt
Ö ß Ö ß SLOCKFILEx Æ
Ö ß Ö ß æ ß æ ß S
UNLOCKFILE| Q
Ö ß Ö ß æ ß æ ß S RETRYFILE Ü
Ö ß Ö ß Ö ß Ö ß SHEX Ö
ß ¶ ß 1SHEXFILT #
ß SHEXTODEC Û
ß ~ U
Û G .  0 ß 9 Þ ´B Õ z èç þúj E · Ý m ` Ô¡ '°N î ý RI è¶ ß àRSS ß RHIBYTEÿÿè¶ ß RLOBYTEþÿè¶ ß ±£ RS ß RS2 ÿ ß RS3 þ ß -RNUMST ý ß RRúü ¢ ß JRAøü Æ ß kRBöü Æ ß yREôü Æ ß ;RDðü æ ß YRC¨Í ÏÍ æ ß ¶ ß ¿Í ó RS . ß RSS ß RDüÿ.æ ß åRC Í . Í æ ß ¶ ß Í S D RFN ÿj ß RFþjf ß y RN 9Æ ß k RV ÿ9 ß RN YÖ ß RV ÿY ß Å RN zæ ß · RV ÿz ß ë RN ¢ ß Ý RV ÿ ß
RS ÿ¼ ß RAþþ¼Æ ß )
RC Ýß O
A
RS ÿ ß RAþþÆ ß
g
R FILE_NAMEþþG ß RFþýGn ß }
RBýýGþ ß ±
£
RS ÿ" ß RAþþ"Æ ß É
à
R
MODENUMBER ¶ ß RREGSìÿî û
RREGSìÿ¸î RREGSìÿÛî 1 RREGSêÿþî L ] RREGSêÿ î RCODEéÿ ¶ ß x RREGSìÿî RREGSêÿEî ® RREGSìÿmî É RREGSìÿ°î î þ RSC1 °¶ ß RSC2 ¸¶ ß ( RSC1 ¸¶ ß RSC2 °¶ ß ^ | RDþÿCÖ ß RMüÿCÖ ß P RYúÿCÖ ß B RDOWøÿCÖ ß RSðÿC© Í l RS2èÿC© Í æ ß ß Í Û Í é RN `Ö ß ¿ RB `¶ ß RAüÿ`Æ ß RCúÿ`Æ ß
+
RN Ö ß
RB ¶ ß RAþÿÆ ß RCüÿÆ ß _
Q
m
RN ´Ö ß C
RB ´¶ ß RAþÿ´Æ ß RCüÿ´Æ ß Ã
î
×
RF1 ÿß ß RF2 þß ß
RFI1ýßf ß
RFI2 ýßf ß £
RNUMREADþüßÖ ß R
NUMWRITTENüüßÖ ß ³
RBUFüôßÍ æ ß ß þ
Í SHILONG
Ö ß æ ß Z X SLOWLONG
Ö ß æ ß Z X Ð y RF
f ß RHANDLE~Í Ö ß ¤ ¶ RMINOR 1Ö ß RREGêÿ1î ?ãÐ1 RHANDLE UÖ ß R FILEPOSITION
Uæ ß R
FILELENGTH Uæ ß RREGêÿUî RHèÿUÖ ß #RLæÿUÖ ß üRMINORäÿUÖ ß Ên[¼ RHANDLE Ö ß R FILEPOSITION
æ ß R
FILELENGTH æ ß RREGêÿ î RHèÿ Ö ß ®RLæÿ Ö ß RMINORäÿ Ö ß
æ RHANDLE
·Ö ß RWAIT ·Ö ß ùRRETRY ·Ö ß RREGêÿ·î ( 0 8 @ H P ` X h p x ¨ ° ¸ À È Ð Ø à è ð ø & " 8 h 4P9 J ( P R ( ^ S ( m R ( | X ( z 4 ¨ y ¶ { 8 Ä ü H Õ + é _ ø _ ; 0 ) K T Z 6 p 0 C d X ¢ ] P ² uØ Á c Ø [ ç c ö ø 9 ) ; U ] o ¬ DDSCOTT SYSTEM DOS CRT ] DDSCOTT.PASè : C & I ("Y
! ;)Z#B* + =
. " p
3TTTTj #9 Y z ¤ ¼ #=Ý ³ » #<G Ä # " Ï
# D
Ý
¸ æ
Û ô
þ
"
E +
m ;
° E
Ô M ú Z
!!
e
!!
C o
..(.(` ( (´ (ß 7
» 1 Â
U Ï
ä
· ø
Uå¸ ìF0ä¹ ÷ùFÿF0ä¹ ÷ù¹ ÓàÐF0ä+ÂFþ¾þþWFÿ0ä@ø P ¾þýWFþ0ä@ø P Ä~W¸ÿ P ì]Ê
ÿ 0hUå¸ ì¾ðûWÄ~W ¿ W Ä~W¸ÿ P Æ ÿ Æ ý Ä~&0äîü¸ ;îü~éÜøüëÿøüøüÄ~ø&P¿ W t@¾îúW¾ ýW ¾îûWøüÄ~ø&P ¾ ýW¸ÿ P él¾ ý ué%¾ ýW¾öüW úüüüþüÿ¶þüÿ¶üüÿ¶úü1ÀP1ÀP¾ þW¸ÿ P ¾ þW¾öüW úüüüþüøüHôü1Àöüôü@ôüôüÄ~ø&P
u úüüüþü¹ ¾ (¿kn ré ¾öü téúüüüþü ðüòü¾îûWóüPè ¾îúWòüPè ¾îùWñüPè ¾îøWðüPè ¾ ýW¸ÿ P ¾ ý v ¾ý0u¾ ýW¸ P¸ P ëݾ ý týP¿ W u*¾îûW¿ W ¾ ýW ¾ ýW¸ÿ P ¾îûW¾ ýW ¿ W ¾ ýW¸ÿ P ¾îûW¾ ÿW ¾ ýW ¾ ÿW¸ÿ P Æ ý ¾îúW¾ ÿW ¾îûWøüÄ~ø&P ¾ ÿW¸ÿ P øü;îüté*ý¾ ÿW ÿ0äP¸ P ¾ ÿWÄ~W¸ÿ P ì]Ê ÿ 0Uå¸ ìÄ~&= uéñÄ~&0äÄ~ø&P
¾ ÿWè ¾ ÿWÄ~W¸ÿ P ì]Ê Uå¸ ì F1ÒRP1ÀP¾ ÿW¸ÿ P > t
¾ ÿWè ¾ ÿWÄ~W¸ÿ P ì]Ê Uå¸ ì ÿvÿv1ÀP¾ ÿW¸ÿ P > t
¾ ÿWè ¾ ÿWÄ~
W¸ÿ P ì]Ê Uå¸ ì ÿv
ÿvÿv1ÀP1ÀP¾ ÿW¸ÿ P > t
¾ ÿWè ¾ ÿWÄ~ W¸ÿ P ì]Ê Uå¸ ìÄ~W¾ ÿW¸ÿ P ÿ0äüþ¸ ;üþ*þþëÿþþ¾þþ ÿP ¾þþ ÿþþ;üþuܾ ÿWÄ~
W¸ÿ P ì]Ê Uå¸ ì~Ar~Zw F0ä FFFÿFÿì]Ê Uå¸ ìÄ~W¾ ÿW¸ÿ P ÿ0äüþ¸ ;üþ)þþëÿþþ¾þþ ÿPè ¾þþ ÿþþ;üþuݾ ÿWÄ~
W¸ÿ P ì]Ê Uå¸ ìÄ~W¾þþW¸ÿ P ¾þýW¾þþW ¾þýW ÀtÆýý ëÆýý¾ýý t¾þýW ýýFÿFÿì]Ê p Uå¸ ìÄ~W¾ ÿW¸ÿ P ¾þýW¾ ÿWè ¾ ÿW¸ÿ P ¾ ÿvyÿP ÿ ÿ0äüþ¸ ;üþXþþëÿþþ¾þþ ÿP¿ W t/ ÿ0äÐþþ@;Â} þþ@ø ÿP Ðþþ@ø ÿþþ;üþu®¾ ÿWÄ~
W¸ÿ P ì]Ê Uå¸ ìÆFí FFì°P~ìW ì]Ê Uå¸ ìÇFì1ÀFî°P~ìW ¸@ P¿ & и@ P¿ &ÇFì 1ÀFîÇFð °P~ìW ì]ËUå¸ ìÇFì1ÀFî°P~ìW ¸@ P¿ & и@ P¿ &ÇFì 1ÀFîÇFð °P~ìW ì]ËUå¸ ìÆFëÇFì °P~êW ~ìuÆFÿ ëÆFÿFÿì]ËUå¸ ìè Àt(ÆFëÇFì °P~êW ~í uÆFÿëÆFÿëA°P~êW Fê$00ä¹ ÓèFéFé<uÆFÿë<uÆFÿë<uÆFÿ ëÆFÿFÿì]ËUå¸ ìÇFì ÇFð °P~ìW ì]ËUå¸ ìè <uÇFþ ë0< uÇFþ ë%<t<u ÇFê01ÀFì°P~êW FîFþFþì]ËUå¸ ìÇFì è - Fñè HFð°P~ìW ì]ËUå¸ ìÇFì ÆFñè HFð°P~ìW ì]ËUå¸ ìè <uÇFþ ¸ë < uÇFþ °ë<uÇFþ °ë <uÇFþ ¸Fþì]ËUå1À è = °u¾ °Æ¿ W¿ W¸ P è = ¸u¾ ¸Æ¿ W¿ W¸ P 0ä£ 0ä£ ì]ËUå1À è = °u¿ W¾ °Æ¿ W¸ P è = ¸u¿ W¾ ¸Æ¿ W¸ P P P ì]Ë0Uå¸ ì~úW~üW~þW~øW Fú-lFú¾èþWÿvüè ~ðW¸ P ~ðu(¾èþW¿ W ~ðW ~ðW¸ P ¾èþWÿvþè ~èW¸ P ~èu(¾èþW¿ W ~èW ~èW¸ P ¾èþW~ðW ~èW ~ðW¸ P ¾èþWÿvúè ~èW¸ P ~èu(¾èþW¿ W ~èW ~èW¸ P ¾èþW~ðW ~èW ~ðW¸ P ~ðWÄ~W¸ P ì]ËUå¸ ìÇFü F0äFø¸ ;FøFúëÿFúFüÑàFüFú;FøuíF1ÒÈÚFü#Á#Ó ÐtÆFÿëÆFÿ Fÿì]Ê Uå¸ ìÇFþ F0äFú¸ ;FúFüëÿFüFþÑàFþFü;FúuíÄ~&1ÒÈÚFþ Á ÓÄ~&ì]Ê Uå¸ ìÇFþ F0äFú¸ ;FúFüëÿFüFþÑàFþFü;FúuíFþ÷ÐFþÄ~&1ÒÈÚFþ#Á#ÓÄ~&ì]Ê Uå¸ ì Ä~
W¾ ÿW¸ÿ P Ä~W¾ þW¸ÿ P ¾ýW¾ ÿW ¾ýW¸ P ¾ ýW¾ þW ¾ ýW¸ P ¾ýW¾üôW¸ P¾þüW ¾ ýW¾üôWÿ¶þü¾üüW ¾þü t
üü;þüt¯¾ýW ¾ ýW ì]Ê Uå¸ ìÄ~&FþFþì]Ê Uå¸ ìÇFê 0~êW Fê0äFþFë0äÄ~&Fþì]Ê Uå¸ ì > sÇFþ ë\ÇFê \FFìÿv ÿv
ZXFîÿv ÿv
ZXÐFðÿvÿvZXFôÿvÿvZXÐFö~êW Fü% ÀtFêFþë1ÀFþFþì]Ê
Uå¸ ì > sÇFþ ë\ÇFê\FFìÿv ÿv
ZXFîÿv ÿv
ZXÐFðÿvÿvZXFôÿvÿvZXÐFö~êW Fü% ÀtFêFþë1ÀFþFþì]Ê
Uå¸ ì> sÇFþ ë8ÇFê DF
FìFFîFFð~êW Fü% ÀtFêFþë1ÀFþFþì]Ê Uå¿ Wè £ Æ ì]Ë 0123456789ABCDEF 0123456789ABCDEF
0Ð Ð I
0H M Ð a
0H e
0< j
00 x
0Ð -
0, A P F
0< K
00 Y P
0`
0, ¯
0H Ç
0< Ì
00 Û
0è ù
0ä &
0è 7
0h m
0È Ì
0Ð ì
0< (
0< + <
0< ?
00 N
0T o P
0` P "
0,
0< ¤
00 ³
0, Ä P $ É
0< Î
00 Ý
0, î
0< ù
00
0,
0H 6
0< ;
00 J
0T m
00
0Ð )
0h O P c
0` h
0T P ¤
0, ©
0< ³
00 Á
0h Ö
0H Ü Ð á
0@ æ
0h
0H Ð
0@
0h *
0H 0 Ð 5
0@ :
0h T
0H Z Ð _
0@ d
0h ~
0H Ð
0@
0h ¨
0H ® Ð ³
0@ ¸
0h Ò
0H Ø Ð Ý
0@ â
0h ü
0H Ð
0@
0 *
0Ð
00
0$ 0
04 ;
0È @
0Ð
0 # ª) 6
00 H
0Ð
0 $ ª* 7
00 I
0Ð
0 # ª) 6
00 H
0Ð
0ä ) ª/ <
00 N
0Ð
00
0h J
00 p
0Ð
0Ð
00 K
00 o
0Ð
00
0 0
0 ;
0Ä @
0 b
0È g
0Ð '
00 ? Q
00 ^
0h o P`
0` £
0h Ç
00 ò
0Ð 0 !
0Ð 0 ! 0 W
0Ð 0 ! 0 W
0Ð 0
0Ð 8 0 ( 0 G
0Ð 0 !
0Ð < 0 C
0Ð @ @ 0 .
0Ð @ 0 (
0Ð <
0Ð P
0 ' P - ?
0 H 0 M T 0 W ¢^
0Ð P
0 ' P - 5
0 H M ¢Q 0 U
0Ð 0 & >
00 J PÈ [
0, `
0< j
00 x
00 PÈ ¤
0, ©
0< ³
00 Á
0, Ñ
0< Û
00 é ø
00 PÈ
0,
0< $
00 2
0, B
0< L
00 Z
00 m
0Ð
0Ð
0Ð
0Ð
00
00 3
0$ D
0( S
0È X
0$ i
0, x
0È }
0L
0È
0P ¸
0È ½
00 Ù
0È Þ
00 é
0È î
0Ð
0Ð 0
0Ð ¦ 0 ]
0Ð ¦ 0 ]
0Ð ¦ 0 9 ¨ t
¦
ª
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/