Category : Pascal Source Code
Archive   : PULLDW40.ZIP
Filename : PULLDOWN.TPU

TPU0ÊH´<€Ž$ ç®~ O2ü&
¹JÝwqè•
ýÊÂ
õµVðð
åíÔÚSÂÖÊb›o}‹™§ÃÑß]PULLDOWNZ@W:CRTZB0+DOSZD\ÃSYSTEMZFqVIDSEGSÿ@4
FNOCURSORQ
F PLAINCURSORSÿ@4
FCHS@T
FOLDTEXTATTRS
@
FSTR80R…
@

P
FQT
Fu
@STR30R²
@


FT
F¢
@ANYSTRRà
@

ÿ
F
T
FÐ
@ WINDCOORDRŒ@y=fWXS
FWYS
FWWIDS
FWHEIGHTS
FWCOLORS
F+LASTXS

FRLASTYS 
F
FKEYSR©@

©@?
UPKEYQ©@DOWNKEYQ©@
LEFTKEYQ©@ðRIGHTKEYQ©@CRQ©@HOMEKEYQ©@ENDKEYQ©@PGUPKEYQ©@PGDNKEYQ©@ESCKEYQ©@ F1Q©@
F2Q©@F3Q©@ F4Q©@
F5Q©@%F6Q©@F7Q©@þF8Q©@œF9Q©@F10Q©@NOFKEYQ©@µTABKEYQ©@SAVEDWINDOWRC@

Ð
F
Ð$
F3@STRPTRRa@
¤FO
FKEYSETR€@©@WINDS@²@




F
ŒŒ@¢@FKEYS@©@CHOICES@
FCHOICE2S’@
FSAVEDWINS”@?@



F
C@SAVEDWINDOW
#@@ SETCURSORT
4
F NEWCURSOR MOVETOSCREENT
dF
SOURCEdF
DEST
FLENGTHMOVEFROMSCREENT
dF
SOURCEdF
DEST
FLENGTHh
READ_KEYTT
F
CH©@
KEY
FIELD_STRT 
F
X
F
Y
F
L$
F ATTRIBUTE…
@
S
GET_FIELD_STRT

F
X
F
Y
F
L…
@

S
FIELD_ATTRT
F
X
F
Y
FLEN
FATTR
MAKEWINDOWT 
FNUM
F
X
F
Y
FWID
FHEIGHT
FCOLOR…
@TITLECLOSEWINDOWT$

FNUM7 PULLDOWNMENUT(à
@
TXT1
FDEFAULT
F
SUBDEFAULT
F
CHOICE
F
SUBCHOICEF/ ^XÄ0Ç.< ª0&µ$ Y
f$B
H@
6(qØ®'˜
þ‘~"><€ (08X`p@HP h
x PULLDOWN.PAS[.4ÿÿ<Bhÿÿÿÿÿÿ)u
ÿÿÿÿ&.ÿÿÿÿÿÿX
ÿÿÿÿ&.ÿÿÿÿÿÿR™-;QÿÿU]`mz‡”¡®ÿÿµ·ÿÿ¾È"*@Sbgÿÿo~ÿÿƒÿÿ‹˜›ÿÿ«Áö%4JOÿÿWknpy

 6
$ÿÿ8ÿÿJÿÿPcjÿÿÿÿl“ÿÿ¤?
ÿÿ49ÿÿRhu›§ÿÿ¯W
ÿÿ1kÿÿ†ÿÿ¡¸ÓÿÿÛö4
S
t
ÿÿ#ÿÿ9K^ÿÿds‚ÿÿ›ÿÿÿÿÿÿÿÿºÑÿÿ÷ÿÿ


(
2
ÿÿÿÿ<
 
"ÿÿ.GLÿÿqŠ—ÁÑÿÿÙîþ
Í

7ÿÿ>FMÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿP“ÿÿÿÿÿÿÿÿ½ÃØÿÿÞí



ÿÿÿÿ)
/
J
ÿÿÿÿz
–
¹
Ô
ÿÿ=MQU‚— ¤Ñçíð
7ADHu}€‡•ÿÿ›Ÿ»ÿÿÍú ÿÿÿÿÿÿÿÿ6ZaÿÿkF?ÿÿGLÿÿ`eÿÿkz™œ®ÿÿµÍÿÿÿÿ

ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$
ÿÿ<
ÿÿÿÿÿÿc
w
ÿÿ{
ÿÿÿÿÿÿÿÿ„

§
ÿÿä
í
ÿÿö
ÿÿû
:Yrÿÿ‚ÿÿ¾ÁÅ*037vˆ£¦ÿÿÃÈÌÞàëò,ÿÿBGKÿÿNZ^¦©­ìô÷þ
ÿÿ-ÿÿC‚‹­²ÿÿÿÿÿÿÿÿñ!Î
#+3EM_gow‡à

/;U‰å¸šƒìÆFí°P~ìWš€~ìu°ë°
ˆFë€~ëtǸëÇ°‰ì]ÃU‰å¸šƒìÆFí
ÆFï‹F‰Fð°P~ìWš‰ì]ÊU‰å1Àš>°uÄ~ WÄ~Wÿvšë2‹FÑè‰FUºÚŶ ľ‹Žü­‰Å´ ìÐØrûúì àtû‰è«ûâê]‰ì]Ê
U‰å1Àš>°uÄ~ WÄ~Wÿvšë,‹FÑè‰FUºÚŶ ľ‹ŽüìÐØrûúìÐØsû­û«âð]‰ì]Ê
U‰å¸
šƒì
šÄ~
&ˆÄ~
&Š<
u
Ä~&Æé‘< u
Ä~&Æéƒ<ušÀuÄ~&Æ ëm<ubšˆFÿŠFÿ Pš‹F«‹‰†ÿ‰–ÿÇF©
‹F©;F ‹~©ŠC¯‹~©Ñ爃ÿÿF©ëä‹F­;F }‹F­@‹øÑçƃÿ ÿF­ëæ‹F­;F ~‹F ‰F­¾ÿWľÿW‹F­ÑàPè‰ì]Ê U‰å¸«šì«‹FHÑà‹Ø‹F H¹ ÷éÉFü‹Fü‹‰†Uÿ‰–WÿľUÿW¾YÿW‹F
ÑàPèÇFú
‹Fú;F
‹~úÑ犓Wÿ‹FúÄ~ø&ˆÿFúëߊF
Ä~&ˆ‰ì]Ê
U‰å¸QšƒìQÿv ÿv
ÿv~¯Wèÿv ÿv
ÿvŠFP~¯Wè‰ì]Ê
|U‰å¸
šì
Ä~&€=vÄ~&€}
|uÄ~W¸
P¸
PšëÙ¿WÄ~Wš‰Füƒ~üuÄ~WÄ~W¸ÿPšÄ~&Æë8¾üþWÄ~W¸
P‹FüHPšÄ~W¸ÿPšÄ~W¸
Pÿvüš‰ì]ÂU‰å¸_šƒì_‹F@‹Ð‹F@÷êÑà‰Fô‹~ ÑçÑçÇWÿvôšÇFú
‹FF‰F¡‹F;F¡e‰FüëÿFü‹F
HÑà‹Ø‹FüH¹ ÷éÉFþ‹Fþ‹‰Fö‰VøÄ~öW‹Fú‹~ ÑçÑçĽøÇÿÿW‹F@ÑàPè‹F@ÑàFú‰Fú‹Fü;F¡u ‰ì]Â

Ú
Ä
¿
³
À
ÙU‰å¸šƒìÿv ÿv
¸
PŠFP¿Wè‹F FH‰Fü‹F @;Fü'‰FþëÿFþÿvþÿv
¸
PŠFP¿Wè‹Fþ;FüuދF FPÿv
¸
PŠFP¿Wè‹F
FH‰Fü‹F
@;FüB‰FþëÿFþÿv ÿvþ¸
PŠFP¿Wè‹F FPÿvþ¸
PŠFP¿Wè‹Fþ;FüuÃÿv ‹F
FP¸
PŠFP¿Wè‹F FH‰Fü‹F @;Fü+‰FþëÿFþÿvþ‹F
FP¸
PŠFP¿Wè‹Fþ;FüuڋF FP‹F
FP¸
PŠFP¿Wè‰ì]Â

U‰å¸dšƒìdÄ~W~¯W¸PPš‹Fº÷â‹ø‹…;Fué
ÿvÿvÿvÿvÿv èÿvÿvÿvÿv ÿ6è€~¯v7ŠF¯0ä‹Ð‹F+‰F«‹F«™¹÷ùF‰F­ÿv­ÿvŠF¯0äP P~¯Wè‹F@P‹F@P‹FFHP‹FF HPš‹F H‰Fž¸
;Fž.‰F©ëÿF©‹F@P‹FF©P‹FHPŠF
P¿Wè‹F©;Fžu׋Fº÷â‹øÇ‰~œŒ^ž‹FÄ~œ&‰‹FÄ~œ&‰E‹FÄ~œ&‰E‹F Ä~œ&‰E‹F
Ä~œ&‰E‰ì]ÊU‰å¸šƒì‹Fº÷â‹øÇ‰~ðŒ^òÄ~ð&ƒ=ué«Ä~ð&‹E@‹ÐÄ~ð&‹E@÷êÑà‰FôÇFú
Ä~ð&‹EÄ~ð&E‰FîÄ~ð&‹E;Fîp‰FüëÿFüÄ~ð&‹HÑà‹Ø‹FüH¹ ÷éÉFþ‹Fþ‹‰Fö‰Vø‹Fú‹~ÑçÑçĽøÇÿÿWÄ~öWÄ~ð&‹E@ÑàPèÄ~ð&‹E@ÑàFú‰Fú‹Fü;Fîu•‹~ÑçÑçÇWÿvôš‹Fº÷â‹ø1À‰…°
P°
P°PP°Pš‰ì]ÊU‰å¸|šì|Ä~W¾¯þW¸ÿPšÄ~W~¯W¸PPš€¾¯þ
uÄ~1À&‰Ä~&Æé€>t<¾„èWš°Pš°Pš°Pš° Pš¾¤èW¸Pšë*¾„èWš°Pš° Pš¾¤èW¸Pš1À‰†«þ¾¯þW¾§üW¸ÿPšÇ†©þ
¾§üW¾§ýW荾§ýW‹¾©þ±Ó獻§çW¸ÿPšÿ†©þ¾§üW¿Wšu¾‹†©þH‰†«þ1À‰†­þ‹†«þ‰†¢è¸
;†¢è:‰†©þëÿ†©þ‹¾©þ±Ó犃§ç0ä;†­þ~‹¾©þ±Ó犃§ç0䉆­þ‹†©þ;†¢èűF†­þ=P~
¸P+†­þ-‰Fÿvÿvÿv‹†­þP‹†«þ@Pÿv~¯W苆«þ‰†¢è¸
;†¢è=‰†©þëÿ†©þ‹F@P‹F†©þP‹†­þ@PŠFP‹¾©þ±Ó獻§çW苆©þ;†¢èuɋF Ä~&‰‹F@P‹FÄ~&P‹†­þ@P PÄ~&‹=±Ó獻§çW荾§þW¾¨þW芆¨þ<uK‹F@P‹FÄ~&P‹†­þ@PŠFPÄ~&‹=±Ó獻§çWèÄ~&ƒ=
u ‹†«þÄ~&‰ëÄ~&ÿ
é–
<
uL‹F@P‹FÄ~&P‹†­þ@PŠFPÄ~&‹=±Ó獻§çWèÄ~&‹;†«þu
Ä~&Ç
ëÄ~&ÿéF
< u€>uÄ~1À&‰é0
<u:‹F@P‹FÄ~&P‹†­þ@PŠFPÄ~&‹=±Ó獻§çW苆«þÄ~&‰éò<u8‹F@P‹FÄ~&P‹†­þ@PŠFPÄ~&‹=±Ó獻§çWèÄ~&Ç
é¶<t鯊†§þPšˆ†§þ1À‰†©þÿ†©þ‹¾©þ±Ó犃¨ç:†§þt
‹†©þ;†«þuà‹¾©þ±Ó犃¨ç:†§þui‹F@P‹FÄ~&P‹†­þ@PŠFPÄ~&‹=±Ó獻§çW苆©þÄ~&‰Ɔ¨þ‹F@P‹FÄ~&P‹†­þ@P PÄ~&‹=±Ó獻§çW芆¨þP¾„èW¾¤èW¸Pššué¶ýÿv芆¨þÄ~&ˆ‰ì]Â
U‰å¸šì¾qûWš°Pš° Pš¾ýW¸Pš¸ Pè1À‰FüÄ~W¾øýW¸ÿPšÇFú
džý
¾øýW¾øþW荾øþW‹Fúº÷â‹ø»ýW¸PšÿFú¾øýW¿Wšu½‹FúH‰Fü‹Fü‰†û¸;†û>‰FúëÿFú‹FúHº÷â‹øŠƒý0ä‹Ð‹FúH‹øÑ狃ý‹~úÑ牃ý‹Fú;†ûuÇÄ~W¾¾üW¸PPšÄ~&Š0ä@‰†”û‹Fü‰†û¸
;†ûP‰FúëÿFúŒØP‹†”û™‹È‹ÚÄ~‰ø1ÒÁÓZ‹~úÑçÑ牃’ü‰“”ü‹~úÑçÑçÄ»’ü&Š0ä
†”ûÿ†”û‹Fú;†ûuµ°
P°
Pš‹Fü‰†û¸
;†ûE‰FúëÿFú¿W‹Fúº÷â‹ø»ýW1ÀPš¿W1ÀPššš‹Fú;†ûuÀ‹FÄ~
&‰‹FÄ~&‰Æ
Ä~
&‹=Ñçÿ³ý¸
PÄ~
&‹º÷â‹øŠƒý0äP PÄ~
&‹º÷â‹ø»ýWèÄ~
&‹=ÑçÑçÄ»’üW¾–ûW¸ÿPš¾–ûW¿Wšt€>u~øW~ùWèë<¸
PÄ~
&‹=Ñçÿ³ý¸Pÿ6¿W¾–ûWÄ~
&‹=ÑçÿµÄ~W~ùWèŠFù<unÄ~
&‹=Ñçÿ³ý¸
PÄ~
&‹º÷â‹øŠƒý0äP PÄ~
&‹º÷â‹ø»ýWèÄ~&‹Ä~
&‹=Ñ牅Ä~
&ƒ=
u‹FüÄ~
&䑀~
&ÿ
é¾<uoÄ~
&‹=Ñçÿ³ý¸
PÄ~
&‹º÷â‹øŠƒý0äP PÄ~
&‹º÷â‹ø»ýWèÄ~&‹Ä~
&‹=Ñ牅Ä~
&‹;Füu
Ä~
&Ç
ëÄ~
&ÿéK< uA€>t/¾–ûW¿WštÆÆFùÄ~&‹Ä~
&‹=Ñ牅ëÄ~
1À&‰é<u_ <
u6¾–ûW¿WštÄ~&‹Ä~
&‹=Ñ牅ëÄ~
&‹=ÑçDž
ë<u¾–ûW¿Wšt Æ
ÆFùé£
<
uÆ
é—
<uKÄ~
&‹=Ñçÿ³ý¸
PÄ~
&‹º÷â‹øŠƒý0äP PÄ~
&‹º÷â‹ø»ýWè‹FüÄ~
&‰éH
<uJÄ~
&‹=Ñçÿ³ý¸
PÄ~
&‹º÷â‹øŠƒý0äP PÄ~
&‹º÷â‹ø»ýWèÄ~
&Ç
éú<téóŠFøPšˆFø1À‰FúÿFú‹Fúº÷â‹øŠƒý:Føt‹Fú;Füuâ‹Fúº÷â‹øŠƒý:Føté®Ä~
&‹=Ñçÿ³ý¸
PÄ~
&‹º÷â‹øŠƒý0äP PÄ~
&‹º÷â‹ø»ýWè‹FúÄ~
&‰Ä~
&‹=ÑçÑçÄ»’üW¿WšuÆFùëÆ
Ä~
&‹=Ñçÿ³ý¸
PÄ~
&‹º÷â‹øŠƒý0äP PÄ~
&‹º÷â‹ø»ýWèŠFùP¾qûW¾ýW¸PššuéçûÆÿ6è‰ì]ÊU‰å1Àš¿W¸ŒP°Pš°Pš°
Pš 0䣁>¸u
°
Pšë°Pš>¸u
°Pšë°Pš 0䣰Pš°Pš 0䣠¢‰ì]Éå 0ä£è>°uÇ è¿W¸ŒP°PšÇ
Ç
‰ìËF0ÐD0@Ð6@Ð>F0ÐD0%F0Ð@Ð F0€
F0Ð@Ð F0€
F0ÐB0 B0@B0 VF0ÐF00F0p
O@ÐX@¿F0Ð@Ð*@ HF0Ð@@4F0Ð F0T2@P9F0@CF00_F08F00F0T F0Ð@(F0ˆ0@Ðm@†@ ™F0Ð@P)@/@P[@a@P~@„@P°@¶@PË@Ñ@Pî@ô@P$
@*
@P
K
@Q
F0Ð F00@õÿ/@4I@¬Y@8\@¬@™B0¶@Pç@í@õÿ
F0Ð@õÿ@Џ@£@¿@âF0Œê@õÿüB0
F0ÐF00 F003@ÐRF0 ^F0¤fF0¤nF0¤vF0¤~F0\F0 šF0¤¢F0¤ªF0\¹F00Ô@0ëF00
@P
F0D
@ ·
@û
@ª&@;@K@€@Ï@Ðö@5@sF0h
@ø@ª@4F0XLF0`Q@$_F0Ð
F0 F0¤$F0¤,F0\;@EF00\@0xF00•@P£F0D¨F00
B0‹
F
¨
F0ØÀ
@P
Å
F0ØÍ
F0ìÒ
F0È×
@Ðø
@ª @8F00U@P`F0De@Ðm@~@¨˜@P›@Я@<¼@¨ê@@Ð@¨\@t@І@Ь@P¸F0D½@ÐÅ@ÐÜ@Ðð@PýF0D@Ð@Ð&@P7F0D<@ÐD@ÐT@¨ƒ@›@¨Ò@êF0h
@¨h@€@PœF0D¡@Я@ª×@ïF0XF0`@Ð@Ð@F0Ð@F0p
B04B08'B,@¨1@Ð5B04?B04I@ÐOB08YB08cBh@ªmB04sB08{B€@¬…@¨ˆB‹B@
@,@Ð@Ð@@@F0p
+@1@’7°