Category : Miscellaneous Language Source Code
Archive   : FORGE20.ZIP
Filename : FORGE2.000

U‹ìUéÐ
U‹Äÿvþ‹èUé‹^þ6¿ÿW¸
P¸PèJÀ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÿW‹^þ6¿ÿ軽¡3H—Š…=2äŠà°
P軾±PèÒ½YItÿ+é´ÿ‹^þ6¿üèù΋^þ6¿ÿ耽¸èLÒèŒÒèº×‹^þ6¿ÿW¸
P¸P蝿YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÿW‹^þ6¿ÿ轡3H—Š…
2äŠà°
Pè¾±Pè½YItÿ+é´ÿ‹^þ6¿üèA΋^þ6¿ÿèȼ¸è”ÑèÔÑè׋^þ6¿ÿW¸
P¸Pèå¾YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÿW‹^þ6¿ÿèK¼¡3H—Š…Ý 2äŠà°
PèK½±Pèb¼YItÿ+é´ÿ‹^þ6¿üè‰Í‹^þ6¿ÿ輸èÜÐèÑèJ֋^þ6¿ÿW¸
P¸Pè-¾YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÿW‹^þ6¿ÿ蓻¡3H—Š…­(2äŠà°
P蓼±P誻YItÿ+é´ÿ‹^þ6¿üèÑ̋^þ6¿ÿèX»¸è$ÐèdÐè’Õ‹^þ6¿ÿW¸
P¸Pèu½YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÿW‹^þ6¿ÿèÛº¡3H—Š…}02äŠà°
PèÛ»±PèòºYItÿ+é´ÿ‹^þ6¿üè̋^þ6¿ÿè º¸èlÏè¬ÏèÚԋ^þ6¿ÿW¸
P¸Pè½¼YItÿ-é\ÿ‹^þ6¿üè/Ëè¬Ôé‹å]ÃU‹Äÿvþ‹èUé¸
è²è¢ËèFÏ3Now enter the name (without an ext.) for this file.è%ÏèSԋ^þ6ŠG2ä=GtéFèQËèõÎ9An ".FMT" extension will automatically be attached to it.èÎÎèüÓ¸
‹^þ6‰‡Œý¸
èI±¸#P‹^þ6‹‡ŒýèίèªÊ‹^þ6À±èúÌè/ÍèÆӋ^þ6Àèu¹è»‹^þ6‰‡„ý¸¢Õ8¸F‹^þ6ˆ‡eû¹<è$Ӌ^þ6ÀèH¹±躹‹^þ6Š‡eû2äPèôö‹^þ6‹‡Œý
‹^þ6‰‡Œý Õ82ä4
uékÿ¸è´°èeÊèÎèMÓè\ÊèÎ5The .DTA file that appears on the disc contains all èÝÍèÓèÊè¾Í;the data that you entered while designing the screen - it'sè•ÍèÃÒèÒÉèvÍ6an important file as it will allow you to change your èRÍè€ÒèÉè3Í3screen later using the EDIT feature of this programèÍè@ҋ^þ6ŠG2ä=Gté³
‹^þ6³W‹^þ6ÀèÕ·èë·.FMTèݸ± èô·‹^þ6¿ÆüW‹^þ6³è°·è?Çèðы^þ6¿ÆüèÑÇèÖÑ=¸
t
H‹^þ6ˆ‡Xû‹^þ6Š‡Xû2ä4
ué‹^þ6¿ÆüèœÇè°Ñ¸
‹^þ6ˆ‡\ûé&
¸
è¯è-¬¸èè×°¸d虮èõ°¸P¸ èr­èÈ‹^þ6³è,·¸èøËè"Ì already existsèVѸP¸
è>­è[ÈèÿËdo you want to overwrite it?è&Ѹ*P¸è­è+ÈèÏË(Y or N)è
Ñ¿»èéNj^þ6¿bûèÈÉèôЋ^þ6Š‡bû2äP讹¸Y躹¸yè´¹¸N讹¸n訹èyºué¼ÿ‹^þ6Š‡bû2äP耹¸Y茹¸y膹èWºué‹^þ6¿ÆüèÆè•Ð¸
‹^þ6ˆ‡\û鸋^þ6ˆ‡\û‹^þ6ŠG2ä=Sté¸
‹^þ6ˆ‡\û‹^þ6Š‡\û2äÀué¼
‹^þ6³W‹^þ6Àèõµè¶.Dtaèý¶± 趋^þ6¿üW‹^þ6³èеè_ÅèЋ^þ6¿üèñÅèöÏ=¸
t
H‹^þ6ˆ‡Xû‹^þ6Š‡Xû2ä4
ué‹^þ6¿üè¼ÅèÐϸ
‹^þ6ˆ‡\ûé/
¸
è.­èMª¸èè÷®¸d蹬诸P¸ 蒫è¯Æ‹^þ6³èLµ¸èÊèBÊ already existsèvϸP¸
è^«è{ÆèÊdo you want to overwrite it?èFϸ*P¸è.«èKÆèïÉ(Y or N)è*Ï¿»è Ƌ^þ6¿bûèèÇèϋ^þ6Š‡bû2äPèη¸YèÚ·¸yèÔ·¸Nèη¸nèȷ虸ué¼ÿ‹^þ6Š‡bû2äPè ·¸Y謷¸y覷èw¸ué‹^þ6¿üè¡ÄèµÎ¸
‹^þ6ˆ‡\û鸋^þ6ˆ‡\û¸
è¬è'©é‹å]ÃU‹Äÿvþ‹èU鸢Õ8¸#P¸èbªèÅè#É èJθP¸è2ªèOÅèóÈ èθ#P¸
èªèÅèÃÈ èê͸P¸èÒ©èïÄè“È1You identified a GET field on your screen called:ètÈè¢Í¸#P¸芩è§Ä‹^þ6ÒèD³¸èÈèPÈè~͸P¸èf©èƒÄè'È(Do you want to change the name? (Y or N)èÈè?Í¿»èÄ¿¢8èÆè.Í ¢82äPèíµ¸Yèùµ¸yèóµ¸Nèíµ¸nèçµè¸¶uéÆÿ ¢82äPèĵ¸Yèе¸yèʵ蛶ué~¸P¸èШ¸è6ªèçÃè‹ÇWhat name do you prefer?è…Çè³Ì¸
誸#P¸
蕨èqË^þ6Ò±èÁÅèöÅèÌ‹^þ6Òè<²èͳ‹^þ6‰‡„ý¸
P¸ è_¨é ‹^þ6Òè²èª³‹^þ6‰‡„ý¸
P¸è<¨¸V‹^þ6ˆ‡eû¹<èÄˋ^þ6Òèè±±èZ²‹^þ6Š‡eû2äPè”ïé‹å]ÃU‹Äÿvþ‹èUé¡+-
P¸P‹^þ6¿‘ý±èíÉ¡--
P¸P‹^þ6¿Žý±èÔɋ^þ6¿ÆüèñÂè€Æ@ ‹^þ6¿Žýèr±¸è>Ƹ,P¸è¾Å‹^þ6¿‘ýèV±¸è"ÆèLÆ SAY ¸'P¸è™Åè€Ë¸‹^þ6ˆ‡^û¸
‹^þ6ˆ‡Yûé‹å]ÃU‹Äÿvþ‹èUé¡+-
P¸P‹^þ6¿‘ý±è<É¡--
P¸P‹^þ6¿Žý±è#ɋ^þ6¿Æüè@‹^þ6Š‡dû2äP¸èÅè˸‹^þ6ˆ‡^û¸
‹^þ6ˆ‡Yûé‹å]ÃU‹Äÿvþ‹èUé‹^þ6¿Æüè÷Á¸'P¸èÜÄè’ÅèÀʸ
‹^þ6ˆ‡^û¸‹^þ6ˆ‡Yûé‹å]Á즸
訸èñ§è$¥ŠF2ä=Sté<
è’Áè6Å:The screen that you were designing will now be saved in a èÅè<ÊèKÁèïÄ7.DTA file. Make sure there is a formatted disk in the èÊÄèøÉèÁè«Ädefault drive. è®ÄèÜɹèaÉè.õŠ†\û2ä=
tééÿ¸
è1§èP¤¸P¸ 褥¹è7ÉèÂéè¸Àè\ÄWriting ~ÀèM¯¸èÄèCÄ.DTAè‚ɸP¸èj¥è‡Àè+ÄPlease stand by...è\ɹèáÈèàð¹èØÈèééB
èVÀèúÃ9Now the screen that you designed will be converted into èÓÃè
ÉèÀè´ÃdBASE III .FMT file.è²ÃèàÈèï¿è©Ãè×Èèæ¿èŠÃ2The code will be written to a disk file, make sureèjÃè˜È觿èKÃ/there is a formatted disc in the default drive.è.Ãè\Èèk¿è%ÃèSȹèØÇè¥óŠ†\û2ä=
tééÿ¸
訥èÇ¢¸P¸ 褹è®Çè9èè/¿èÓÂWriting ~ÀèÄ­¸èÂèºÂ.DTAèùǸP¸èá£èþ¾è¢ÂPlease stand by...èÓǹèXÇèWï¹èOÇèè¸
è-¥èL¢¸‰†Šý¸ˆ†[û¸
P¸ÐY‘+È}é‚A£3Q¡3H—Š…}02äP¸DY‘;Á¸
t
HPŠ†[û2ä4
Y#ÁÀué
¸
ˆ†[ûé<¡3H—Š…}02äP¸DY‘;Á¸
u
HPŠ†[û2äY#ÁÀu鸈†[û‹†Šý
‰†ŠýYItÿ3é‚ÿ¾Æüè7¾èÆÁCLEARèÓÁè
Ǹ
P¸Y‘+È}ét
A£-Q¸
ˆ†]û¸ ˆ†dû¸ ˆ†cû¸ˆ†Yû¸
ˆ†^û¸£+¡+
£+¡--
¹P÷é+£3¡3H—Š…=2䈆dû¡3H—Š…}02äP¸DY‘;Áté¸ ˆ†dûŠ†dû2äP¸ Y‘;Á¸
u
HP¡+=P¸
t
HYÁÀuéŒÿŠ†dû2äP¸ Y‘;Áué ¹èÁÅèúŠ†Yû2äÀué ¹è«Åèºú¡+
‰†Œý‹†ŒýP¸PY‘+È}ézA£+Q¡--
¹P÷é+£3Š†dû2䈆cû¡3H—Š…=2䈆dû¡3H—Š…}02äP¸DY‘;Áté¸ ˆ†dû¡+=Pté ¹è-Åè·úé ¹è!Åè0úYItÿ+éŠÿYItÿ-éþŠ†Yû2äÀué ¹èõÄèú‹†Šý=éK¸ˆ†[û¸‰†Šý¸
P¸ÐY‘+È}é-A£3Q¡3H—Š…}02äP¸DY‘;Á¸
t
HPŠ†[û2ä4
Y#ÁÀué¸
ˆ†[û~ÒW¡3H—Š…=2äŠà°
P±èÔª¸
‰†ˆý¡3¹P™÷ù£-¡3¹P™÷ù’-
£+¾Æüèç»èv¿@ ¡-P¸èÞ¾¸,P¸è¼¾¡+P¸èʾèR¿ GET èÄér¡3H—Š…}02äP¸DY‘;Á¸
u
HPŠ†[û2äY#ÁÀué︈†[û‹†Šý
‰†Šý‹†ˆý‰†‚ý‹†ŠýP¸P¾žý±è4¸¢Õ8¸
蜡軞¸è¡¸
荡¹è Ãè†õ Õ82ä4
uéëÿ¾Æüè%»~Ò豩¸è}¾èîøèF¡¸
èT¡~ÉWè­©±轩¸P¸輟èÙºè}¾,Enter FUNCTION character(s)-press @è”ø
èì è\º~ɱ谼èå¼è|Í~Éè/©èE©èâ©ué~ÉW¸
@P~Éè©è#ª±è:©¸P¸è9Ÿ¸蟠èPºèô½/Enter PICTURE template characters-press èøP¸èðž¸èV ¸èd ‹†‚ý=m|鋆‚ý‰††ýé¸m‰††ý¸
P‹††ýY‘+È}é!A‰†ŒýQè̹¸ P¸èƼè­ÂYItÿ†Œýéäÿ¸P¸芞¾£þWèb¨±mèr¨¸
‰†Œý‹†Œý;††ý¸

H4
ué!
¿»èL¹¿¢8è0»è\ ¢82äP¸Y‘;ÁuéÝÿèY¹ ¢82äP¸èQ¼è8 ¢82äP¸
Y‘;Á¸
u
HP ¢82äP¸Y‘;Á¸
u
HY#ÁÀué.¾£þW¾£þ賧 ¢82äŠà°
P蹨±mèЧ‹†Œý
‰†Œý銠¢82äP¸
Y‘;Át鋆†ý
‰†Œý ¢82äP¸Y‘;Áté[‹†Œý=
t鍾£þWèh§±mèx§¸P¸èwé3‹†Œý-
‰†Œý¾£þW¾£þè#§¸
P¾£þè§è¨¨-
èc¨±mè8§éÊþ~Éèÿ¦è§è²§P¾£þèï¦è§è¢§Y#ÁÀuéH¾ÆüèC¸èÒ»
PICTURE '~ÉèÁ¦¸è»¸ P¸è
»¾£þ試¸èu»¸'P¸èõºèÜÀ~É菦襦èB§P¾£þè¦è•¦è,§Y#ÁÀué0¾ÆüèÓ·èb»
PICTURE '~ÉèQ¦¸è»¸'P¸èºè„À~Éè7¦èM¦èä¦P¾£þè'¦è=¦èÚ¦Y#ÁÀué1¾Æüè{·è
»
PICTURE '¾£þèø¥¸èĺ¸'P¸èDºè+À¸P¸èœ¸èy¸
臝è$·èȺ+Enter RANGE (,)-press è࿸P¸èț¸
è.èž¶¾bÿ±Pèñ¸è&¹è½¿¾bÿèo¥è…¥è"¦ué$¾ÆüèȶèWº RANGE ¾bÿèH¥¸èºè…¿¾Æü褶èIºèw¿éY¡3H—Š…}02äP¸DY‘;Á¸
t
HPŠ†[û2äY#ÁÀué/~ÒW~Òèø¤¡3H—Š…=2äŠà°
Pèø¥±è¥‹†ˆý
‰†ˆýYItÿ3é×ù¾Æü舵è¿é‹å]ÂU‹ìUé
U‹Äÿvþ‹èUé‹^þ6¿ÍûW¸
P¸PèJÀ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÍûW‹^þ6¿Íû軽¡3H—Š…=2äŠà°
P軾±PèÒ½YItÿ+é´ÿ‹^þ6¿Ùüèù΋^þ6¿Íû耽¸èLÒèŒÒèº×‹^þ6¿ÍûW¸
P¸P蝿YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÍûW‹^þ6¿Íû轡3H—Š…
2äŠà°
Pè¾±Pè½YItÿ+é´ÿ‹^þ6¿ÙüèA΋^þ6¿Íûèȼ¸è”ÑèÔÑè׋^þ6¿ÍûW¸
P¸Pèå¾YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÍûW‹^þ6¿ÍûèK¼¡3H—Š…Ý 2äŠà°
PèK½±Pèb¼YItÿ+é´ÿ‹^þ6¿Ùüè‰Í‹^þ6¿Íû輸èÜÐèÑèJ֋^þ6¿ÍûW¸
P¸Pè-¾YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÍûW‹^þ6¿Íû蓻¡3H—Š…­(2äŠà°
P蓼±P誻YItÿ+é´ÿ‹^þ6¿ÙüèÑ̋^þ6¿ÍûèX»¸è$ÐèdÐè’Õ‹^þ6¿ÍûW¸
P¸Pèu½YItÿ-é\ÿ¸
P¸Y‘+È}é¨A£-Q¸
P¸PY‘+È}éPA£+Q¡--
¹P÷é+£3‹^þ6¿ÍûW‹^þ6¿ÍûèÛº¡3H—Š…}02äŠà°
PèÛ»±PèòºYItÿ+é´ÿ‹^þ6¿Ùüè̋^þ6¿Íûè º¸èlÏè¬ÏèÚԋ^þ6¿ÍûW¸
P¸Pè½¼YItÿ-é\ÿ‹^þ6¿Ùüè/Ëè¬Ôé‹å]ÃU‹Äÿvþ‹èUé¸
è²è¢ËèFÏ3Now enter the name (without an ext.) for this file.è%ÏèSԋ^þ6ŠG2ä=GtéEèQËèõÎ8A ".PAS" extension will automatically be attached to it.èÏÎèýÓ¸
‹^þ6‰G«¸
èK±¸#P‹^þ6‹G«èѯè­Ê‹^þ6É±èýÌè2ÍèÉӋ^þ6Éèx¹è »‹^þ6‰G£¸¢Õ8¸F‹^þ6ˆ‡(ü¹<è(Ӌ^þ6ÉèL¹±è¾¹‹^þ6Š‡(ü2äPèøö‹^þ6‹G«
‹^þ6‰G« Õ82ä4
uéoÿ¸躰èkÊè%ÎèSÓèbÊèÎ5The .DTA file that appears on the disc contains all èãÍèÓè ÊèÄÍ;the data that you entered while designing the screen - it'sè›ÍèÉÒèØÉè|Í6an important file as it will allow you to change your èXÍè†Òè•Éè9Í3screen later using the EDIT feature of this programèÍèFҋ^þ6ŠG2ä=Gté­
‹^þ6¼W‹^þ6ÉèÛ·èñ·.Pasè㸱 èú·‹^þ6¿‰ýW‹^þ6¼趷èEÇèöы^þ6¿‰ýè×ÇèÜÑ=¸
t
H‹^þ6ˆ‡ü‹^þ6Š‡ü2ä4
ué‹^þ6¿‰ýè¢Çè¶Ñ¸
‹^þ6ˆ‡"üé
è9¬¸èèã°¸d襮è
±¸P¸ è~­è›È‹^þ6¼è8·¸èÌè.Ì already existsèbѸP¸
èJ­ègÈèÌdo you want to overwrite it?è2Ѹ*P¸è­è7ÈèÛË(Y or N)èÑ¿»èõNj^þ6¿'üèÔÉèы^þ6Š‡'ü2äP躹¸Yèƹ¸yèÀ¹¸N躹¸n费腺ué¼ÿ‹^þ6Š‡'ü2äP茹¸Y蘹¸y蒹ècºué‹^þ6¿‰ýèÆè¡Ð¸
‹^þ6ˆ‡"ü鸋^þ6ˆ‡"ü‹^þ6ŠG2ä=Sté¸
‹^þ6ˆ‡"ü‹^þ6Š‡"ü2äÀué³
‹^þ6¼W‹^þ6Éè
¶è¶.Dtaè ·± è ¶‹^þ6¿ÙüW‹^þ6¼èܵèkÅèЋ^þ6¿ÙüèýÅèÐ=¸
t
H‹^þ6ˆ‡ü‹^þ6Š‡ü2ä4
ué‹^þ6¿ÙüèÈÅèÜϸ
‹^þ6ˆ‡"üé&
è_ªè\ª¸è诸dèȬè$¯¸P¸ è¡«è¾Æ‹^þ6¼è[µ¸è'ÊèQÊ already existsè…ϸP¸
èm«èŠÆè.Êdo you want to overwrite it?èUϸ*P¸è=«èZÆèþÉ(Y or N)è9Ï¿»èƋ^þ6¿'üè÷Çè#ϋ^þ6Š‡'ü2äPèÝ·¸Yèé·¸yèã·¸NèÝ·¸nè׷訸ué¼ÿ‹^þ6Š‡'ü2äP请¸Yè»·¸y起膸ué‹^þ6¿Ùüè°ÄèÄθ
‹^þ6ˆ‡"ü鸋^þ6ˆ‡"üè<©é‹å]ÃU‹Äÿvþ‹èU鸢Õ8¸#P¸èwªè”Åè8É è_θP¸ èGªèdÅèÉ è/θ#P¸èªè4ÅèØÈ èÿ͸P¸èç©èÅè¨È2You identified a data field on your screen called:èˆÈè¶Í¸#P¸螩è»Ä‹^þ6ÒèX³¸è$ÈèdÈè’͸P¸
èz©è—Äè;È(Do you want to change the name? (Y or N)è%ÈèSÍ¿»è2Ä¿¢8èÆèBÍ ¢82äPè
¶¸Yè
¶¸y趸Nè
¶¸nèûµè̶uéÆÿ ¢82äPèص¸Yè䵸yè޵诶uéq¸P¸ èä¨è
Äè¥ÇWhat name do you prefer?èŸÇèÍ̸#P¸赨è‘Ë^þ6Ò±èáÅèÆè­Ì‹^þ6Òè\²èí³‹^þ6‰G£¸
P¸耨é‹^þ6Òè:²è˳‹^þ6‰G£¸
P¸ è^¨¸V‹^þ6ˆ‡(ü¹<èæˋ^þ6Òè
²±è|²‹^þ6Š‡(ü2äPè¶ïé‹å]ÃU‹Äÿvþ‹èUé  82äP¸NY‘;ÁtéV‹^þ6¿‰ýè3ÃèÂÆ TextColor(¡/P¸è Æè¨Æ); TextBackground(¡1P¸èÿÅè‡Æ);è—ÆèÅËé[‹^þ6¿‰ýèÝÂèlÆ TextColor(¡/P¸èÊÅèRÆ + Blink); TextBackground(¡1P¸è¡Åè)Æ);è9ÆègËé‹å]Áì1¸
èȨ¸讨è᥊F2ä=Sté$
èOÂèóÅ:The screen that you were designing will now be saved in a èËÅèùÊèÂè¬Å7.DTA file. Make sure there is a formatted disk in the è‡ÅèµÊèÄÁèhÅdefault drive. èkÅè™Ê¹èÊèëõŠ†"ü2ä=
tééÿ襸P¸ èg¦è„Áè(ÅWriting ~Éè°¸èåÄèÅ.DTAèNʸP¸è6¦èSÁè÷ÄPlease stand by...è(ʹè­Éè¬ñé’6è+ÁèÏÄ9Now the screen that you designed will be converted into è¨ÄèÖÉèåÀè‰Ä:Turbo Pascal source code. You can compile the source codeèaÄèÉèžÀèBÄ?and use it as is for data entry, or include the source code as èÄèCÉèRÀèöÃ/a procedure in other programs that you develop.èÙÃèÉèÀèÐÃèþÈè
Àè±Ã/The source code will be written to a disk file è”ÃèÂÈèÑ¿èuÃ;(make sure there is a formatted disc in the default drive).èLÃèzÈ艿èCÃèqȹèöÇèÃóŠ†"ü2ä=
tééÿè뢸P¸ è?¤è\¿èÃWriting ~Éèñ­¸è½ÂèçÂ.DTAè&ȸP¸è¤è+¿èÏÂPlease stand by...èȹè…Çè„ï舢¸‰F©¸ˆ†!ü¸
P¸ÐY‘+È}é€A£3Q¡3H—Š…}02äP¸DY‘;Á¸
t
HPŠ†!ü2ä4
Y#ÁÀué
¸
ˆ†!üé:¡3H—Š…}02äP¸DY‘;Á¸
u
HPŠ†!ü2äY#ÁÀu鸈†!ü‹F©
‰F©YItÿ3é„ÿ¾‰ýèv¾èÂProgram ~Éèö¬¸èÂÁ¸;P¸èBÁèøÁè&Ǎ¾‰ýèE¾èêÁèǍ¾‰ýè7¾èÜÁè
Ǎ¾‰ýè)¾è¸Á5{This program can be used standalone to enter data inè•ÁèÃƍ¾‰ýèâ½èqÁ7a file for later processing, or it can be incorporated èLÁèzƍ¾‰ý虽è(Á6as a procedure in some other program that you develop.èÁè2ƍ¾‰ýèQ½èàÀ5Don't forget to change the first word to "Procedure" è½Àèëō¾‰ýè
½è™À7and the last period to a semi-colon if you want to use ètÀè¢Å¾‰ýèÁ¼èPÀit as a procedure.} èNÀè|ō¾‰ý蛼¸ P¸è€¿è6Àèdō¾‰ý胼¸ P¸èh¿èÀèLō¾‰ýèk¼¸ P¸èP¿èÀè4ŋF©=éŒ&¾eÿWèóª Variable.DtaèÀè
ō¾eÿ¹,
è Àèÿč¾‰ýè¼è­¿Const 蹿èçč¾‰ýè¼è•¿
Windows = ‹F©P¸èò¾èz¿A; { the number of input fields that you defined in your screen }èK¿èyč¾‰ý蘻è'¿5 Wtab : array[1..Windows, 1..7] of Integer = (è¿è2ĸ
ˆ†#ü¸ˆ†!ü¸
P¸ÐY‘+È}é¡
A£3Q¡3H—Š…}02äP¸DY‘;Á¸
t
HPŠ†!ü2ä4
Y#ÁÀué㊆#ü2ä4
u鍾‰ýèõº¸,P¸èڽ萾è¾Ã¸ˆ†#ü¸
ˆ†!ü¡3¹P™÷ù’‰F›¡3¹P™÷ù
‰F™¾‰ý賺èB¾ (¡3H—Š…
2äP¸è•½è¾, ¡3H—Š…Ý 2äP¸è}½è¾, èF;‰ýèeº¡3H—Š…­(2äP¸èZ½èâ½, ‹F›P¸èJ½èÒ½, ‹F™P¸è:½è½, èÃ邡3H—Š…}02äP¸DY‘;Á¸
u
HPŠ†!ü2äY#ÁÀuéX¸ˆ†!ü¡3-
¹P™÷ù’‰F—¡3-
¹P™÷ù
‰F•¾‰ýè̹‹F—P¸èɼèQ½, ‹F•P¸è¹¼¸)P¸è—¼è~ÂYItÿ3écþ¾‰ý蒹è!½);è1½è_¾‰ýè~¹è
½& { | | | | | | |èù¼è'¾‰ýèF¹èÕ¼& | | | | | | |èÁ¼èïÁ¾‰ýè¹è¼> | | | | | | |___ending 'y' coordinateèq¼èŸÁ¾‰ý辸èM¼" | | | | | |è=¼èkÁ¾‰ý芸è¼= | | | | | |_______ending 'x coordinateèî»èÁ¾‰ýè;¸èÊ» | | | | |è¾»èìÀ¾‰ýè¸èš»A | | | | |___________beginning 'y' coordinateèk»è™À¾‰ý踷èG» | | | |è?»èmÀ¾‰ý茷è»A | | | |_______________beginning 'x' coordinateèìºèÀ¾‰ýè9·èȺ | | |èĺèò¿¾‰ýè·è º4 | | |______________________________è~ºè¬¿¾‰ýè˶èZº5 | |_______________ |è7ºèe¿¾‰ý脶èº5 | | |èð¹è¿¾‰ýè=¶è̹7 textcolor textbackground blink}觹èÕ¾¾‰ýèôµèƒ¹è•¹èþ¾‰ýèâµèq¹èƒ¹è±¾¾‰ýèеè_¹èq¹èŸ¾¾‰ýè¾µèM¹è_¹è¾¸ˆ†!ü¸‰F©¸
P¸ÐY‘+È}éÄA£3Q¡3H—Š…}02äP¸DY‘;Á¸
t
HPŠ†!ü2ä4
Y#ÁÀué*¸
ˆ†!ü~ÒW¡3H—Š…=2äŠà°
P±è¤¸
‰F§é^¡3H—Š…}02äP¸DY‘;Á¸
u
HPŠ†!ü2äY#ÁÀuéݸˆ†!ü‹F©
‰F©‹F§‰F¡‹F©P¸P~·±軸¢Õ8èO˜¸
P¸裙¸è ›¸è›¸
P¸NY‘+È}é A£+Q蟴¸ P¸è™·è€½YItÿ+éäÿ¸è͚¸
èۚ¹èî¼è¿î Õ82ä4
uéëÿ‹F¡‰†9þ¾;þW~Òèú¢±è$£èJ´èî·$Is the data entered into this field è
½¸èešè´¸RP¸è·è÷¼¸èOšè´è¤·eal, è⼸è:šè본IP¸èå¶è̼¸è$šèÕ³èy·nteger, è´¼¸è šè½³¸SP¸è·¶èž¼¸èö™è§³èK·tring? 臼¿»èf³¿¢8èJµèv¼ ¢82äPè5¥¸RèA¥¸rè;¥¸Iè5¥¸iè/¥¸Sè)¥¸sè#¥èô¥uéºÿèP³ ¢82äP¸èH¶èþ¶è,¼è;³èõ¶è#¼ ¢82äPè⤸Rèrèè¤è¹¥ué%¾ZþWèСReal±èÜ¡~­W辡±èΡ¸P¸è͗èê²èŽ¶) 註¸P¸萗譲èQ¶ èz»¸P¸èb—è²è#¶No. of decimal places? èG»¸6P¸è/—貍~­±è_´è”´è+»~­èÞ ¾cþW~肹‹F=té
¸
ˆ†üéo¸P¸èꖸèè6š¸
èø—èTš¸èè'š¸dèé—èEšèé±èµEnter only digits迺¸P¸觖èıèhµPress any key...蛺萸uéøÿ‹†cþ;†9þ¸
|
H4
u鍸P¸èf–¸è貙¸
èt—èЙ¸è裙¸dèe—èÁ™èe±è µ(Can't have that many decimal places è$º¸P¸è –è)±èÍ´Press any key...èºèõ·uéøÿ¸ˆ†üŠ†ü2äÀuéñýéy ¢82äPè ¢¸I謢¸i覢èw£u鍾ZþW莟Integer±藟éC ¢82äPèj¢¸Sèv¢¸sèp¢èA£ué&‹F¡P¸P~²±è{·¾ZþWèGŸString±èQŸ¸
P¸èP•èm°è´Initial value: è´èA¹¾ÍúW蟱ÿ蟸P¸è•‹F¡=m|é ‹F¡‰F¥é¸m‰F¥¸
P‹F¥Y‘+È}éA‰F«Qè°¸ÛP¸è³èé¸YItÿF«éåÿèî¯è¨³èÖ¸¸P¸辔¸
‰F«‹F«;F¥¸

H4
ué|¿»蒯¿¢8èv±è¢¸ ¢82äP¸Y‘;ÁuéÝÿ蟯 ¢82äP¸è—²è~¸ ¢82äP¸
Y‘;Áué#¾ÍúW¾Íúèž ¢82äŠà°
P蟱ÿè5žé‹F¥‰F«‹F«
‰F«éqÿ¾eþW¾Íúè㝱ÿè
ž¾eÿèC¯¾9þ軳è¸éW¡3H—Š…}02äP¸DY‘;Á¸
t
HPŠ†!ü2äY#ÁÀué-~ÒW~Ò蒝¡3H—Š…=2äŠà°
P蒞±詝‹F§
‰F§YItÿ3é@ù¾eÿè³è¡·¾‰ýèÀ®¸ P¸è¥±è[²è‰·¾‰ý訮¸ P¸è±èC²èq·¾‰ý萮¸ P¸èu±è+²èY·¾‰ýèx®¸ P¸è]±è²èA·¾‰ýè`®èï±Typeèý±è+·¾‰ýèJ®èÙ± Output_Info = RecordèÓ±è
·¾‰ýè ®è¯±; Delete: String[1]; {invisible field used for}膱贶¾‰ýèÓ­èb±; {record management }è9±èg¶¾eÿ¹,
èg±èY¶¾eÿ色4
uéƍ¾eÿè(­¾9þè»±è7¶¾‰ýèV­èå° ¾;þèћ¸è°¸:P¸è°è¶¾‰ýè#­è²° ¾Zþ訛¸èt°è嵍¾Zþ藛譛Stringè>œué,¾‰ýèꬸ[P¸èϯ‹†9þP¸èܯèd°];èt°è¢µé¾‰ý辬¸;P¸è£¯èY°è‡µé+ÿ¾‰ý裬è2° CR: String[1];è\µ¾‰ýè{¬è
° { invisible field used to put }èü¯è*µ¾‰ýèI¬èد 赍¾‰ýè!¬è°¯ { C/R at end of each record }褯èÒ´¾‰ýèñ«è€¯ End;膯贴¾‰ýèÓ«èb¯ Str12 = String[12];è[¯è‰´¾‰ý訫è7¯ Str80 = String[80];è0¯è^´¾‰ýè}«è ¯ Str255 = String[255];è¯è2´¾‰ýèQ«èà®èò®è ´¾‰ýè?«èήèà®è´¾‰ýè-«è¼®VarèË®èù³¾‰ýè«è§®, Output_File: File of Output_Info;荮軳¾‰ýèÚªèi®, New_Output_File: File of Output_Info;èO®è}³¾‰ý蜪è+®, Old_File: File of Output_Info;è®è?³¾‰ýè^ªèí­$ Output_Record: Output_Info;èÛ­è ³¾‰ýè(ªè·­- MaxX, { max and min }蜭èʲ¾‰ýèé©èx­- MinX, { window position }è]­è‹²¾‰ý誩è9­- MaxY, { expressed as X,Y }è­èL²¾‰ýèk©èú¬- MinY, { screen position }è߬è
²¾‰ýè,©è»¬: Entry_Field, { used as index for window array }蓬èÁ±¾‰ýèà¨èo¬. X,Y, { screen coordinates }èS¬è±¾‰ýè ¨è/¬2 XY, { ScrBuf array subscript }è¬è=±¾‰ýè\¨èë«3 k,i, { loop counter, subscript }èÊ«èø°¾‰ýè¨è¦«B ErrorPos, { when converting string expressions to }èv«è¤°¾‰ýèçèR«B { numeric expressions this variable will }è"«èP°¾‰ýèo§èþªC { be zero if the conversion is successful }èͪèû¯¾‰ýè§è©ªB { and will indicate the postition of the }èyªè§¯¾‰ýèƦèUªD { non-numeric char if the conversion fails }è#ªèQ¯¾‰ýèp¦èÿ©D Current_File_Pos, { the current record of the output file }èÍ©èû®¾‰ýè¦è©©& Tone: Integer; { for beeper }蕩è‰ýèâ¥èq©
EXISTS,èv©è¤®¾‰ýèÃ¥èR©@ BadName, { used in checking for valid file name }è$©èR®¾‰ýèq¥è©@ Good_Char, { used in checking for valid file name }èҨ讍¾‰ýè¥è®¨@ Done_Adding, { done adding records to the data file }耨训¾‰ýèͤè\¨! Done_Reading_Kbd: Boolean;èM¨è{­¾‰ý蚤è)¨K ScrBuf: array [1..1920] of Char; { this array holds all the input }èð§è­¾‰ýè=¤ȩ̀B { data so it can be revised before}蜧èʬ¾‰ýèé£èx§B { the input variables are written }èH§èv¬¾‰ý蕣è$§B { to the data file }èô¦è"¬¾‰ýèA£èЦF TempVar: String[255]; { each of the input data fields is first }蜦èÊ«¾‰ýèé¢èx¦H { converted to this temporary string, then }èB¦èp«¾‰ý菢è¦G { it is converted to the proper data type }èé¥è«¾‰ýè6¢èÅ¥. { i.e. INT, REAL }è©¥èת¾‰ýèö¡è…¥è—¥èŪ¾‰ýèä¡ès¥ Line: String[255];èm¥è›ª¾‰ý躡èI¥è[¥è‰ª¾‰ý訡è7¥H File_Name: String[12];{ name of the file that will hold the data }è
¥è/ª¾‰ýèN¡èݤH { that is entered }觤èÕ©¾‰ýèô èƒ¤è•¤è鍾‰ýèâ èq¤O BackUp_File_Name: String[12];{ this name is automatically assigned by }è4¤èb©¾‰ý聠è¤H { the program - it will be the same as the }èڣ詍¾‰ýè' è¶£H { regular file name except it will be a }耣讨¾‰ýè͟è\£H { .bak type file }è&£èT¨¾‰ýèsŸè£è£èB¨¸
P‹F©Y‘+È}éŒA‰F«Q‹F«;F©ué6¾‰ýèAŸèТ
Init_Val_‹F«P¸è-¢¸,P¸è¢èÁ¢èï§é<¾‰ýèŸèš¢
Init_Val_‹F«P¸è÷¡è¢: String[255];肢谧YItÿF«éxÿ¾‰ýèŞ¸ P¸èª¡è`¢èŽ§¾‰ý譞¸ P¸è’¡èH¢èv§¾‰ý蕞¸ P¸èz¡è0¢è^§¾‰ýè}ž¸ P¸èb¡è¢èF§¾‰ýèežèô¡{$I ExtProc1.Pas}èõ¡è#§¾‰ýèBžèÑ¡èã¡è§¾‰ýè0žè¿¡èÑ¡èÿ¦¾‰ýèžè­¡#Procedure Read_Record_and_Write_It;蜡èʦ¾‰ýèéèx¡Begin腡賦¾‰ýèҝèa¡) Seek(Output_File,Current_File_Pos-1);èJ¡èx¦¾‰ý藝è&¡$ Read(Output_File,Output_Record);è¡èB¦¾‰ýèaèð - If Output_Record.Delete <> 'X' Then Beginèՠ覍¾‰ýè"è±  Banner_Line;è± èߥ¾‰ýèþœè  Entry_Field:= 0;艠跥¾‰ýè֜èe ! With Output_Record Do BeginèV è„¥¾eÿ¹,
脠èv¥¾eÿ覡4
uéü
¾‰ý膜è 
Tab; èK¥¾eÿè)œ¾9þè¼ è8¥¾ZþèêŠè‹Integer萋u醍¾9þW¾‰ýè6œèşStr(ľÉúƒÇ越¸è‚Ÿ¸:P¸èŸÄ¾Éú&‹P¸è Ÿè”Ÿ , TempVar); èˤ¾‰ýèê›èyŸWrite_It_In_A_Field(TempVar);ènŸèœ¤XXé)
¾ZþèIŠè_ŠRealèòŠu骍¾9þW¾‰ý蘛è'ŸStr(ľÉúƒÇ芸è䞸:P¸èdžÄ¾Éú&‹P¸ènž¸:P¸èLžè3¤¾‰ýèR›Ä¾Éú&‹E*P¸èJžèҞ , TempVar); è ¤¾‰ýè(›è·žWrite_It_In_A_Field(TempVar);謞èÚ£XXég¾9þW¾‰ýèîšè}ž
TempVar:= ľÉúƒÇèh‰¸è4žè^ž; 蟣¾‰ý辚èMžWrite_It_In_A_Field(TempVar);èBžèp£XXéõý¾‰ý芚èž End;èžèM£¾‰ýèlšèû* End { if output_record.delete <> x }èãè£¾‰ýè0šè¿ Else BeginèÝèñ¢¾‰ýèšèŸ Blank_Fields;螝èÌ¢¾‰ýèë™èz GotoXY(2,25);èyè§¢¾‰ýèƙèU TextColor(Black);èPè~¢¾‰ý蝙è, TextBackground(LightGray);èèL¢¾‰ýèk™èúœ( For i:= 1 to 65 Do Write(Chr(32));èäœè¢¾‰ýè1™èÀœ GotoXY(2,25);远èí¡¾‰ýè ™è›œC Write(' This record has been deleted. (f4=undelete)');èjœè˜¡¾‰ý跘èFœ End; { else }èEœès¡¾‰ý蒘è!œ. End; {procedure Read_Record_and_Write_It }èœè3¡¾‰ýèR˜èá›èó›è!¡¾‰ýè@˜èϛèá›è¡¾‰ýè.˜è½›èϛèý ¾‰ýè˜è«›è½›è렍¾‰ýè
˜è™›è«›èÙ ¾‰ýèø—臛{$I ExtProc2.Pas}舛趠¾‰ýè՗èd›èv›è¤ ¾‰ýè×èR›èd›è’ ¾‰ý豗è@›èR›è€ ¾‰ý蟗è.›Procedure Write_Init_Val;è'›èU ¾‰ýèt—è›è›èC ¾‰ýèb—èñšBeginèþšè, ¾‰ýèK—èښ Blank_Fields;èݚ蠍¾‰ýè*—蹚è˚èùŸ¾‰ýè—觚 Entry_Field:= 0;觚è՟¸
P‹F©Y‘+È}éhA‰F«Q¾‰ýèߖènš Tab;èzšè¨Ÿ¾‰ýèǖèVš Write_It_In_A_Field(Init_Val_‹F«P¸è¡™è)š);è9šègŸYItÿF«éœÿ¾‰ýè|–èš èšèIŸ¾‰ýèh–è÷™ Tone:= 8000;èû™è)Ÿ¾‰ýèH–èיèé™èŸ¾‰ýè6–èř!End; { procedure write_init_val }趙è䞍¾‰ýè–蒙褙èҞ¾‰ýèñ•è€™{$I ExtProc3.Pas}聙诞¾‰ýèΕè]™èo™èž¾‰ý輕èK™ Procedure WriteScreen; èD™èrž¾‰ýè‘•è ™ Begin è*™èXž¸ˆ†&ü¸ˆ†%ü¸ˆ†$ü¸
‰F«¸
H—Š…­(2䢠8¸
H—Š…
2ä£/¸
H—Š…Ý 2ä£1¹蘝èÔѸ
£3¾‰ýè#•è²˜ Write(¸'P¸èü—è㝍¾ÍûW譃±P轃‹F«=A¸

H4
PŠ†&ü2ä4
Y#ÁPŠ†%ü2ä4
Y#ÁPŠ†$ü2ä4
Y#ÁP¡3=¸

H4
Y#ÁÀué4
¡3H—Š…}02äP¸DY‘;Áuéh¾ÍûW¾Íû胡3H—Š…=2äŠà°
P脱Pè4ƒ¡3H—Š…=2äP¸'Y‘;Áté'¾ÍûW¾Íûè߂¸'Šà°
Pè烱Pèþ‚‹F«
‰F«é¾ÍûW¾Íû赂¸ Šà°
P轃±PèԂ‹F«
‰F«¡3
£3¡3H—Š…­(2äP  82äY‘;Áué¸
ˆ†&ü¡3H—Š…
2ä;/ué¸
ˆ†%ü¡3H—Š…Ý 2ä;1ué¸
ˆ†$ü¡3H—Š…­(2䢠8¡3H—Š…
2ä£/¡3H—Š…Ý 2ä£1éþ¾‰ýèt“¾Íûèÿ¸è˖¸'P¸èK–èë–);èû–è)œŠ†&ü2äPŠ†%ü2äYÁPŠ†$ü2äYÁÀué ¹荛èÉϸ
‰F«¸ˆ†&ü¸ˆ†%ü¸ˆ†$ü¡3=éÕý¾‰ýèø’臖" End; { precedure write_screen } èw–襛‹F©=鎍¾‰ý蹒èH–èZ–舛¾‰ý角è6–{$I ExtProc4.Pas}è7–èe›¾‰ý脒è–è%–èS›¾‰ýèr’è
–Procedure Set_Up_Output_Record;èô•è"›¾‰ýèA’èЕèâ•è›¾‰ýè/’辕Beginè˕èùš¾eÿ¹,
èù•è뚸P‹F©-
Y‘+È}é8A‰F«Q¾eÿ豑¾9þèD–èÀš¾9þWľÇúƒÇ!èi€è€Stringèu饍¾‰ý輑èK• Entry_Field:= ‹F«P¸è¥”¸;P¸èƒ”è9•ègš¾‰ý膑è• Gather_Input_Info;è•è?š¾‰ýè^‘èí” OutPut_Record.ľÇúƒÇèи蜔èƔ:= TempVar;è͔èû™éL
¾‰ýè‘覔 Repeat谔èޙ¾‰ýèýèŒ” Entry_Field:= ‹F«P¸è䓸;P¸è“èx”覙¾‰ýèŐèT” Gather_Input_Info;èP”è~™¾‰ý蝐è,” Strip_Spaces;è-”è[™¾‰ýèzè ” Val(TempVar, Output_Record.ľÇúƒÇèß~¸è«“èՓ,ErrorPos);èܓè
™¾‰ýè)è¸“% If ErrorPos <> 0 Then Find_Error;襓èӘ¾‰ýèòè“ Until ErrorPos = 0;è~“謘XXYItÿF«éÌý¾‰ý迏èN“ Write_To_OutPut_File;èI“èw˜¾‰ý薏è%“) End; { procedure set_up_output_record }è“è<˜¾‰ýè[èê’èü’è*˜¾‰ýèIèؒèê’蘍¾‰ýè7èƒèؒ蘍¾‰ýè%è´’èƒèô—¾‰ýèè¢’è´’è◍¾‰ýè
è’Begin { main procedure }芒踗¾‰ýè׎èf’ClrScr;èq’蟗¾‰ý辎èM’
Open_File;èU’胗¾eÿ¹,
胒èu—¸
P‹F©Y‘+È}éyA‰F«Q¾eÿè>Ž¾9þèђèM—¾‰ýèlŽèû‘ Init_Val_‹F«P¸è\‘èä‘:= 'è#—¾‰ýèBŽ¾eþèÍ|¸è™‘è
—¾‰ýè)Žè¸‘';èȑèö–YItÿF«é‹ÿ¾‰ýèŽèš‘For XY:= 1 to 1920 Do藑èŖ¾‰ýèäès‘ ScrBuf[XY]:= Chr(32);èn‘蜖¾‰ý軍èJ‘ WriteScreen;èP‘è~–¾‰ý蝍è,‘ Banner_Line;è2‘è`–¾‰ýèè‘ Write_Recno;è‘èB–¾‰ýèaèðDone_Adding:= False;èîè–¾‰ýè;èʐRepeatè֐薍¾‰ýè#è²D If Current_File_Pos = FileSize(Output_File)+1 Then Write_Init_Val;耐讕¾‰ýè͌è\ Entry_Field:= 0;è\èŠ•¾‰ý詌è8 Done_Reading_Kbd:= False;è/è]•¾‰ýè|Œè Tab;èèE•¾‰ýèdŒèó Repeatèýè+•¾‰ýèJŒèُ ReadKbd;èߏè
•¾‰ýè,Œè» Until Done_Reading_Kbd;贏è┍¾‰ýè
Œè/ If not Done_Adding Then Set_Up_Output_Record;èsè¡”¾‰ýèÀ‹èOUntil Done_Adding;èOè}”¾‰ý蜋è+Close(Output_File);è*èX”¾‰ýèw‹èèèF”¾‰ýèe‹èôŽEnd.èè0”¾‰ý訊è%”¾eÿ苏蔍¾eÿè%‘è”邍¾‰ýè+‹èºŽBegin { main procedure }贎èⓍ¾‰ýè
‹èŽClrScr;蛎èɓ¾‰ýèèŠèwŽ WriteScreen;è}Žè«“¾‰ýèʊèYŽEnd.ègŽè•“¾‰ýè
ŠèŠ“é‹å]Â