Category : Pascal Source Code
Archive   : ANSITP4.ZIP
Filename : ANSI.TPU

TPU0ÊHžæðØ5¢~^œ"ã¬
øR

åú
ÖáÊúÅ&
/¾A£ANSIZ@†
DOSZB\ÃCRTZD0+SYSTEMZFqSTR3R
@


FT
F
@STR6RB
@


FT
F2
@STR10Ro
@



FT
F_
@STR15Rœ
@


FT
FŒ
@STR255RÊ
@

ÿ
F
T
Fº
@PRINTT
Ê
@STRNGPRINTLNT
Ê
@STRNGNLNT COLRUœ
@$
FBACK$
FFORED
FBLINKITìPRTCOLRT$
FBACK$
FFORED
FBLINKITGOXYUo
@$
F
X$
F
YPRTGOXYT$
F
X$
F
YGORIGHTUo
@ 
$
FAMTGOLEFTUo
@$
$
FAMTÚ
GODOWNUo
@(
$
FAMTGOUPUo
@,
$
FAMT
PRTGORIGHTT0
$
FAMT PRTGOLEFTT4
$
FAMT PRTGODOWNT8
$
FAMTPRTGOUPT<
$
FAMTdCLSUB
@@PRTCLSTDpV0

•
À"/
¡T+
q< q< q< q< g< g< g< g< A$
!
ˆ
 (08@HPX`hpx€ANSI.PAS'#ÿÿ=OU`j1'P6
A!%+6ÿÿ:Tv˜Àú,
|

R)Y1K›`%h/kp/kx/k€/kˆ/a/a˜/a /a¦=«¯U‰å¸
šì
Ä~W¾ÿW¸ÿPšŠ†ÿˆ†êþ°
:†êþw7ˆ†ëþëþ†ëþŠ†ëþ0ä‹øŠƒÿ0䉆òþdžìþ¾ìþWšŠ†ëþ:†êþuωì]Ê



U‰å¸šìÄ~W¾ÿW¸ÿPš¾þW¾ÿWš¿Wš¿Wšè‰ì]ÊU‰å1Àš¿Wè‰ì]Ë

[;50;;3;4
mU‰å¸
šì
ÆFï€~vŠF0ä-ˆFÆFï
ŠFï0ä1ÒRP1ÀP~ãW¸PšŠF0ä‹øŠ…0ä1ÒRP1ÀP~çW¸PšŠF
0ä‹øŠ…0ä1ÒRP1ÀP~ëW¸Pš¾ãþW¿Wš¿Wš~ðW¸Pš€~t4¾ãþW~ðWš~ãWš¿Wš~ðW¸Pšë2¾ãþW~ðWš¿Wš~ãWš~ðW¸Pš¾ãþW~ðWš¿Wš~çWš¿Wš~ëWš¿Wš~ðW¸Pš~ðWÄ~ W¸Pš‰ì]ÊU‰å¸
šì
¾ÿWŠF
PŠFPŠFPèè‰ì]Ê

[
;
fU‰å¸
šì
ŠF0ä1ÒRP1ÀP~øW¸PšŠF0ä1ÒRP1ÀP~üW¸Pš¾øþW¿Wš¿Wš~øWš¿Wš~üWš¿WšÄ~
W¸
Pš‰ì]ÊU‰å¸
šì
¾ÿWŠFPŠFPèè‰ì]Ê

[
CU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿WšÄ~W¸
Pš‰ì]Ê

[
DU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿WšÄ~W¸
Pš‰ì]Ê

[
BU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿WšÄ~W¸
Pš‰ì]Ê

[
AU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿WšÄ~W¸
Pš‰ì]Ê

[
CU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿Wšè‰ì]Ê

[
DU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿Wšè‰ì]Ê

[
BU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿Wšè‰ì]Ê

[
AU‰å¸
šì
ŠF0ä1ÒRP1ÀP~üW¸Pš¾üþW¿Wš¿Wš~üWš¿Wšè‰ì]Ê[2J
U‰å¸
šì
¾ÿW¿Wš¿WšÄ~W¸Pš‰ì]ËU‰å¸
šì
¾ÿWèè‰ì]ˉå‰ìËF0ÐF00B0\F0ÐF00#F0,4@P9F0<>@PCF0<H@NF0Ð@P @F0ÐF0„
P@Ð]F0„
r@ÐF0„
”@PŸF0,¤@P©F0<®F00¼F0,ÒF0<Ü@PáF0<æF00ôF0,
@P
F0<
F0<
F00(
F0,8
@P
=
F0<B
F0<L
@P
Q
F0<V
F0<`
@Pe
F0<j
F00x
F00‹
F0Ð@#@'F0ÐF0„
-F0„
G@PRF0,W@P\F0<aF0<k@PpF0<uF0<@P„F0<‰F00—F0Ð@@#F0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<YF00gF0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<YF00gF0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<YF00gF0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<YF00gF0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<Y@_F0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<Y@_F0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<Y@_F0Ð
F0„
+@P6F0,;@P@F0<EF0<O@PTF0<Y@_F0Ð
@PF0,!@P&F0<+F009F0Ð@@@