Category : Pascal Source Code
Archive   : TSPA3370.ZIP
Filename : TSUNTF.TPU

TPUQâ`>®<^ddêX`~âõ

(
‡
T
ü
Ä
STSUNTFúõ
SSystem
Ä

SDos'ç
õ
SCrtâÕ

REDRDLN

ºÿºÿREDREADLN

ºÿºÿºÿREDREABLN

ºÿºÿ*
ÿºÿr
ÿREDRDEFLN
 
ºÿºÿºÿºÿREDRDEBLN
(
ºÿºÿºÿ*
ÿºÿr
ÿÿÿÿÿ@2H4P4X?`? (08&(ÿÿLÿÿDÿÿY@ÿÿ³`ÿÿª`ÿÿa ÿÿ‹0ÿÿ*°
ÿÿFÐÿÿ‘øÿÿ¤ÿÿí0ÿÿSystemDosCrtTSUNTF v4C:\PASOHJ\TSUNT\TSUNTF.PAS`U‰å1Àš¿W°P1ÀPššš]ÃU‰å¸šƒì~ìW¸P°PšÆFíÆFï°P~ìWšŠFñÄ~&ˆŠFðÄ~&ˆ‰ì]ÂU‰å¸šƒì~ìW¸P°PšÆFí
ŠF$߈FñŠFˆFð°P~ìWš‰ì]ÂU‰å¸
šì
¾ÿW¸
P° PšŠFˆ†ÿ°
PšPš¿W¾ÿW1ÀPššš‰ì]ÂU‰å¸
šì
ŒÓŽÃŒÛü¾ÿÅv¬ª‘0íó¤ŽÛÄ~&Šˆ†ÿþÄ~&‹;F~`Ä~WÄ~&‹+FP¸
Pšÿv è°
PšPš¿W¾ÿW1ÀPšÄ~W1ÀPšššÄ~&‹H&‰Ä~&ŠPšPš‰ì]ÂU‰å¸
šì
ŒÓŽÃŒÛü¾ÿÅv¬ª‘0íó¤ŽÛÄ~&Šˆ†ÿþÄ~&‹;F|WÄ~WÄ~&‹+F@P¸
Pšÿv è°
PšPš¿W¾ÿW1ÀPšÄ~W1ÀPšššÄ~&ŠPšPš‰ì]ÂU‰å¸šìŒÓŽÃŒÛü¾ÿÅv¬ª‘0íó¤ŽÛ¾þWŠF
Pš¾ÿW¸ÿPÿvš¾ÿWÄ~ W¸ÿPš‰ì]ÂU‰å¸šìŒÓŽÃŒÛü¾ÿÅv¬ª‘0íó¤ŽÛŠ†ÿ0ä;F}6¾ýW¾ÿWš¾þWŠF
Pšš¾ÿW¸ÿPšë
ŠF
‹~ˆƒÿ¾ÿWÄ~ W¸ÿPš‰ì]Â1Out of range error during EDRDLN, Prompt too longU‰å¸šìŒÓŽÃŒÛü¾ÿÅv
¬ª‘0íó¤ŽÛdžþþ
ƆüþƆüýŠ†ÿ0ä@‰†úýƒ¾úýO~&¿W¿W1ÀPšššè1ÀšŠ†þþPšPš¿W¾ÿW1ÀPššš‹†úý‰†þþšÀt÷Š†þþPšPššˆ†ýþŠ†ýþ<téåšÀué֚ˆ†ýþŠ†ýþ uƆüþ
éà<uR¸OPè°
PšPš¿W¾ÿW1ÀPššš‹†úý‰†þþŠ†þþPšPšÆ†üýéŠ< sé€<þw|¸O+†úý‹ÐŠ†üý0ä;Â~èëb‹†þþ@‰†þþ¾úüWŠ†ýþP‹†þþ+†úýP¾üýW荾üýW¸ÿPšŠ†úýPšPš¿W¾üýW1ÀPšššë耾üþuéÝý¿Wšš¾üýWÄ~W¸ÿPš‰ì]Ê3Out of range error during EDREADLN, Prompt too longU‰å¸
šì
ŒÓŽÃŒÛü¾ÿÅv¬ª‘0í󤍾þÅv
¬ª‘0íó¤ŽÛdžþý
ƆüýƆüüŠ†ÿ0ä@‰†úüƒ¾úüO~&¿W¿W1ÀPšššè1Àš¾ùûW¾øûWè°PŠ†øûPèƆ÷û
Š†þýPšPš¿W¾ÿW1ÀPššš‹†úü‰†þýšÀt÷Š†þýPšPššˆ†ýýŠ†ýý<téû
šÀuéì
šˆ†ýýŠ†ýý °PŠ†øûPèë
Š†ùûPŠ†øûPèë; uƆüý
é•
<un€¾úût¾üüW¾þW¸ÿPš¸OPè°
PšPš¿W¾ÿW1ÀPššš‹†úü‰†þýŠ†þýPšPšÆ†üüé#
< sé
<þvé
¸O+†úü‹ÐŠ†üü0ä;Â~èé÷€¾÷ûty‹†þý@‰†þý¾öúWŠ†ýýP‹†þý+†úüP¾üüW荾üüW¸ÿPš¾üüW¾úûW¸ÿPšŠ†úüPšPš¿W¾üüW1ÀPšššëw‹†þý@‰†þý¾öúWŠ†ýýP‹†þý+†úüP¾üüW荾üüW¸ÿPš¾üüW¾úûW¸ÿPšŠ†úüPšPš¿W¾üüW1ÀPšššë耾üýuéýû¿Wšš¾üüWÄ~W¸ÿPšŠ†ùûPŠ†øûPè‰ì]Ê 3Out of range error during EDREABLN, Prompt too longU‰å¸
šì
ŒÓŽÃŒÛü¾ÿÅv¬ª‘0í󤍾þÅv¬ª‘0íó¤ŽÛ ˆ†öûÆdžþý
ƆüýÄ~&ÆƆüüƆúûŠ†ÿ0ä@‰†úü‹†úü;F~&¿W¿W1ÀPšššè1Àš¾ùûW¾øûWè°PŠ†øûPèƆ÷û
Š†þýPšPš¿W¾ÿW1ÀPššš‹†úü‰†þýšÀt÷Š†þýPšPššˆ†ýýŠ†ýý<téû
šÀuéì
šˆ†ýýŠ†ýý °PŠ†øûPèë
Š†ùûPŠ†øûPèë: &ÆÄ~&Æ
Š†ùûPŠ†øûP芆öû¢ééØ
<u4¾ÿWÿ¶úüÿv¾þýW¾üüW荾üüW¾úûW¸ÿPšé 
<
uƆüý
é”
<um€¾úût¾üüW¾þW¸ÿPšÿvè°
PšPš¿W¾ÿW1ÀPššš‹†úü‰†þýŠ†þýPšPšÆ†üüé#
< sé
<þvé
‹F+†úü‹ÐŠ†üü0ä;Â~èé÷€¾÷ûty‹†þý@‰†þý¾öúWŠ†ýýP‹†þý+†úüP¾üüW荾üüW¸ÿPš¾üüW¾úûW¸ÿPšŠ†úüPšPš¿W¾üüW1ÀPšššëw‹†þý@‰†þý¾öúWŠ†ýýP‹†þý+†úüP¾üüW荾üüW¸ÿPš¾üüW¾úûW¸ÿPšŠ†úüPšPš¿W¾üüW1ÀPšššë耾üýuéÓû¿Wšš¾üüWÄ~
W¸ÿPšŠ†ùûPŠ†øûP芆öû¢‰ì]Ê>Out of range error during EDREADLN, Prompt + pre-fill too longU‰å¸
šì
ŒÓŽÃŒÛü¾ÿÅv¬ª‘0í󤍾þÅv¬ª‘0í󤍾ýÅv
¬ª‘0íó¤ŽÛdžþü
Ɔüü¾ýW¾üûW¸ÿPšŠ†ÿ0ä@‰†úûŠ†üû0ä†úû=O~&¿W¿W1ÀPšššè1Àš¾ùúW¾øúWè°PŠ†øúPèƆ÷ú
Š†þüPšPš¿W¾ÿW1ÀPššš¿W¾üûW1ÀPššš‹†úû‰†þüŠ†þüPšPššÀt÷Š†þüPšPššˆ†ýüŠ†ýü<téû
šÀuéì
šˆ†ýüŠ†ýü °PŠ†øúPèë
Š†ùúPŠ†øúPèë; uƆüü
é•
<un€¾úút¾üûW¾þW¸ÿPš¸OPè°
PšPš¿W¾ÿW1ÀPššš‹†úû‰†þüŠ†þüPšPšÆ†üûé#
< sé
<þvé
¸O+†úû‹ÐŠ†üû0ä;Â~èé÷€¾÷úty‹†þü@‰†þü¾öùWŠ†ýüP‹†þü+†úûP¾üûW荾üûW¸ÿPš¾üûW¾úúW¸ÿPšŠ†úûPšPš¿W¾üûW1ÀPšššëw‹†þü@‰†þü¾öùWŠ†ýüP‹†þü+†úûP¾üûW荾üûW¸ÿPš¾üûW¾úúW¸ÿPšŠ†úûPšPš¿W¾üûW1ÀPšššë耾üüuéýû¿Wšš¾üûWÄ~W¸ÿPšŠ†ùúPŠ†øúPè‰ì]Ê>Out of range error during EDREABLN, Prompt + pre-fill too longU‰å¸
šì
ŒÓŽÃŒÛü¾ÿÅv¬ª‘0í󤍾þÅv¬ª‘0í󤍾ýÅv¬ª‘0íó¤ŽÛ ˆ†öúÆdžþü
ƆüüÄ~&ƍ¾ýW¾üûW¸ÿPšÆ†úúŠ†ÿ0ä@‰†úûŠ†üû0ä†úû;F~&¿W¿W1ÀPšššè1Àš¾ùúW¾øúWè°PŠ†øúPèƆ÷ú
Š†þüPšPš¿W¾ÿW1ÀPššš¿W¾üûW1ÀPššš‹†úû‰†þüŠ†þüPšPššÀt÷Š†þüPšPššˆ†ýüŠ†ýü<téû
šÀuéì
šˆ†ýüŠ†ýü °PŠ†øúPèë
Š†ùúPŠ†øúPèë: &ÆÄ~&Æ
Š†ùúPŠ†øúP芆öú¢ééØ
<u4¾ÿWÿ¶úûÿv¾þüW¾üûW荾üûW¾úúW¸ÿPšé 
<
uƆüü
é”
<um€¾úút¾üûW¾þW¸ÿPšÿvè°
PšPš¿W¾ÿW1ÀPššš‹†úû‰†þüŠ†þüPšPšÆ†üûé#
< sé
<þvé
‹F+†úû‹ÐŠ†üû0ä;Â~èé÷€¾÷úty‹†þü@‰†þü¾öùWŠ†ýüP‹†þü+†úûP¾üûW荾üûW¸ÿPš¾üûW¾úúW¸ÿPšŠ†úûPšPš¿W¾üûW1ÀPšššëw‹†þü@‰†þü¾öùWŠ†ýüP‹†þü+†úûP¾üûW荾üûW¸ÿPš¾üûW¾úúW¸ÿPšŠ†úûPšPš¿W¾üûW1ÀPšššë耾üüuéÓû¿Wšš¾üûWÄ~
W¸ÿPšŠ†ùúPŠ†øúP芆öú¢‰ì]Ê0 

0È
0Ø
0
0 
0à000 
0à0:0 
0à0@,002
70°
E0Ø
J0
O0 
0¨OHW0@]00c
h0°
v0°
ƒ0Ø
ˆ0
0@£00©0 
0¨PHX0@^00d
i0°
w0°
„0Ø
‰0
Ž0@š00 0 
010 C0`W0 
0X>0M0xR0`a0`0 
9
{P@€0°
ˆ0Ð
0
’0—0œ0@¦00¬
±0°
¿0Ø
Ä0
É0Ö0@ä00ê0ï0
0
0@-
003
0@R
00X
0@|
00‚
0@²
00¸
XÝ
0â
PH 0@&00,
10°
?0Ø
D0
I0@[00a0Œ`´0`Á0@Ë00ѐ
Ö0°
ä0Ø
é0
î0õ
0Ð
0
0` 0 
;
‹PH0°
˜0Ð
0
¢0§0¬8½@È0@Õ00ې
à0°
î0Ø
ó0
ø0
0@
00
0
02
0>
0@\
00b
H
0@…
00‹


0°
ž
0Ø
£
0
¨
0@º
00À
0pÞ
0`í

ò
0°
0Ø
0

0@"00(0/0@L00R0@v00|0@­00³@Û@êX
0` 0'PK0`^0`H–0@œ00¢
§0°
µ0Ø
º0
¿0@Ñ00×0`50`B0`W0@a00g
l0°
z0Ø
0
„h®0`»0`Ð0@Ú00à
å0°
ó0Ø
ø0
ý0
0Ð
0
0`/@>0 
;iq
¥PPª0°
²0Ð
·0
¼0Á0Æ8×@â0@ï00õ
ú0°

0Ø


0

0
0@-
003
08
0L
0X
0@v
00|
H˜
0@ž
00¤

©
0°
·
0Ø
¼
0
Á
0@Ó
00Ù
0p÷
0`
0°
0Ø
0
#0@;00A0H0@e00k0@00•0@È00Î@ö@X'0`:0A@cjP0`£0`ÒHÚ0@à00æ
ë0°
ù0Ø
þ0
0@000I`y0`†0`›0@¥00«
°0°
¾0Ø
Ã0
Èhò0`ÿ0`0@00$
)0°
70Ø
<0
A0H
U0Ð
Z0
_0`s@‚‰0 
F0`
¼PXÁ0°
É0Ð
Î0
Ó0Ø0Ý8î@ù0@
00


0°

0Ø
$
0
)

.
0°
<
0Ø
A
0
F
0@X
00^
0c
0@q
00w
0|
0
0œ
0@º
00À
HÝ
0@ã
00é

î
0°
ü
0Ø

0
0@000p<0`K
P0°
^0Ø
c0
h0@€00†00@ª00°0@Ô00Ú0@00@9@HXk0`~0…P©0`¼0`ëHô0@ú00
0°
0Ø
0
0@/0050c`“0` 0`µ0@¿00Ő
Ê0°
Ø0Ø
Ý0
âh 0`0`.0@800>
C0°
Q0Ø
V0
[0b
o0Ð
t0
y0`@œ0 
F‚Š0`°
ÔP`Ù0°
á0Ð
æ0
ë0ð0õ8
@
0@
00$

)
0°
7
0Ø
<
0
A

F
0°
T
0Ø
Y
0
^
0@p
00v
0{
0@‰
00
0”
0¨
0´
0@Ò
00Ø
Hô
0@ú
00
0°
0Ø
0
0@/0050pS0`b
g0°
u0Ø
z0
0@—000¤0@Á00Ç0@ë00ñ0@$00*@R@aXƒ0`–0@¿ÆPì0`ÿ0`.H60@<00B
G0°
U0Ø
Z0
_0@q00w0¥`Õ0`â0`÷0@
00
0°
0Ø
0
$hN0`[0`p0@z00€
…0°
“0Ø
˜0
0¤
±0Ð
¶0
»0`Ï@ސå