Category : Pascal Source Code
Archive : TVGR70.ZIP
Filename : GAPP.TPU
Output of file : GAPP.TPU contained in archive : TVGR70.ZIP
E7D æÄ T ª §m ·Â qºå! ÓF DAò f M SGApp ªó ¨ SSystem
Ä SMyGraph3 õ.ó SMCursor2 xe0 SGObjects ¼E SGDrivers ¯¾Z0 SMemory cmE SHistList ô Z SGViews Mm SGMenu6 óW¨ SGDialogs OGVersionº ý G1.010OapColorRý O apBlackWhiteRý O apMonochromeRý þOCColorº ý ?;pxô/x~xppq 7?:>! pzp p?000?>pz.pp¾ r11p~ñ0 O CBlackWhiteº ý ?ppxppp ppp ppp ppppxxppppp O CMonochromeº ý ?ppppppp ppp pppp ppppppppppp O CBackgroundÎý OcmNewRý OcmOpenRý OcmSaveRý OcmSaveAsRý ! O cmSaveAllRý " O cmChangeDirRý # â O
cmDosShellRý $ O
cmCloseAllRý % OhcNewRý ÿ OhcOpenRý ÿ OhcSaveRý ÿ OhcSaveAsRý ÿ O hcSaveAllRý ÿ O hcChangeDirRý ÿ ó O
hcDosShellRý ÿ OhcExitRý ÿ OhcUndoRý ÿ OhcCutRý ÿ OhcCopyRý ÿ OhcPasteRý ÿ OhcClearRý ÿ OhcTileRý ÿ O hcCascadeRý !ÿ O
hcCloseAllRý "ÿ ¬OhcResizeRý #ÿ OhcZoomRý $ÿ OhcNextRý %ÿ ¨OhcPrevRý &ÿ OhcCloseRý 'ÿ ½P PBackgroundgê
T ê P TBackgroundê 2 s ¬¾ ` ÿÿ ý ý i # þC ¾ QPattern1 ÔÎý RInit1
þ 2 <Îý RLoad1
# < RDraw
C R
GetPalette 4
i| ÔRStore(
< PPDeskTopê
»ê ÌPTDeskTop»ê I « áó,&| ÿÿ ý ý ¯Yù1 Ô Q
BackgroundE » gê RInit10 »
1 2 < RCascade8 »
Y 2 < R HandleEvent@ » 8
QóRInitBackgroundH » t
¯ RTileP »
Ô 2 < R TileErrorX » x
ù RLoad1` »
< RStoreh »
< PPProgramTê
D pê PTProgrampê E ` ¨,& ÿÿ» ý ý ¨j ¦
î
D è RInit1p p
È RDoneQx p
è R
ExecuteDialog p
>ý ú´® ý ÈRGetEvent p ,
D Q R
GetPalette p 4
j | R
SetPalette p
º ý R HandleEvent p 8
Á Q RIdle¨ p t
á R InitDeskTop° p x
á R InitMenuBar¸ p |
/
Á R
InitScreenÀ p
U
/
RInitStatusLineÈ p
R OutOfMemoryÐ p
¦
RPutEventØ p D
Ï
QU
RRunà p
î
R
SetScreenModeè p
>ý Ï
R ValidViewð p
Ü Ü P PApplicationZ ê
F z ê 2P TApplicationz ê E f ² pê ÿÿp ý ý ² Ò RInit1ø z
Ò RDoneQ z
_R RegisterApp
sQ Application Tê ZQDeskTop ê /Q
StatusLine L QMenuBar "áQ
MessageBar «Q
AppPalette *ý Q RBackground ÷<`QRDeskTop$ ÷< ÿÿÿÿ ( H P X ¨ ° ¸ À Ð Ø à è ð ø ( ( 0 8 @ H P 0 8 @ ` h p x È 6 ÿÿ ? ÿÿ X ÿÿ ÿÿ . ÿÿ S ÿÿ 4 ÿÿ * ÿÿ e ÿÿ ¥ @ ÿÿ f ÿÿ : ÿÿ ÿÿ b ÿÿ ÿÿ - ÿÿ d0 ÿÿ D ÿÿ ¡ H ÿÿ ÿÿ ? ÿÿ - ÿÿ á ° ÿÿ ^ ` ÿÿ ÿÿ D ÿÿ ª p ÿÿ & ÿÿ L ÿÿ 8 ÿÿ @ 0 ÿÿ ] X ÿÿ Ç x ÿÿ \ h ÿÿ È ÿÿ ÿÿ ÿÿ ÿÿ % ÿÿ u ÿÿ : 8 ÿÿ 3 8 ÿÿ ÿÿ ` ° | è » p z 2 0 À GApp GViews System MCursor2 MyGraph3 GObjects GDrivers GMENU6 Memory HistList PGGAPP.PAS Uå1ÿ t!Ä~W1ÀPÄ~W Ä~&ÆE' F &E1ÄFÂ]Ê Uå1ÿ t*Ä~ W1ÀPÄ~W Ä~Ç1 W¸ PÄ~ W&=ÿ] ÄFÂ]Ê
Uåì¿ W ~øWÄ~W ¸ PÄ~W PÄ~W 0ä¹ ÷ù P¸ PÄ~W PÄ~W 0äP ÿvøÿvúÿvüÿvþ ¿ W ì]Ê Uåì¸ ÚFüVþFüVþì]Ê UåÄ~
WÄ~W Ä~Ç1 W¸ PÄ~
W&=ÿ](]Ê Uå1ÿ t>Ä~ W1ÀPÄ~W Ä~&ÆE' W&=ÿ]tÄ~&EE& EGt&ÿuG&ÿuEW ÄFÂ]Ê
UåìÄ~&E-% ÀtÄ~&E+% Àu° ë°FÿFÿì]Ê Uåÿv
ÿvè Àt~6ÿEþFV
6Eú6Uü]Ê Uåìÿv
ÿvè ÀtK~6}þ |A~6Ä}
W~øW ~6Eþ±ÓàFø¸ 6÷eþFú~øWÄ~W ~6ÿMþì]Ê Uåì1ÀFþ¿ ¸ PWÄ~W ~þ ~|~öW~òWÄ~úW&=ÿ]TFþ±ÓàÐÄ~
&E&++Â;Fö|¸ ÷fþÐ&E&+E+Â;Fø}
Ä~W&=ÿ]xë)ÿNþÄ~W ¿ ¸ PWÄ~W Ä~W ì]Ê UåÄ~
WÄ~W Ä~
&= uF&E= u° PÄ~W ë = uÄ~&ÿuG&ÿuE&Ä}5W ëëÄ~
WÄ~W ]Ê Uåì~øWÄ~W ~øW° P¸ P1ÀPPè Ä~&EE&UGì]Ê UåN» CØ÷è9È~÷ØH]Ê Uåìÿvè FþF÷~þ ÀtFþ@ÈF÷ù ÀuÿFþF÷~þ;Fþ~
F÷~þFþF÷~þÄ~
&FþÄ~&ì]Ê
Uåÿv
ÿvè Àt~6ÿEú]Ê UåìF +FPÿvZX÷êRPÿv
YXZ÷ùFFþFþì]Ê
Uåì~6Eþ6+Eø6÷eüFúF ;Fú}F 6÷}üFþF 6÷}üFüë6~6Eþ6+EøØ6Eü@ÈF +Fú÷ùÃFþ6Eü@ÈF +Fú÷ùFü~6Ä}
&ÿ5&ÿu~6ÿuþÿvþWè Ä~&~6Ä}
&ÿ5&ÿu~6ÿuþFþ@PWè Ä~&EF ;Fú|R~6Ä}
&ÿu&ÿu~6Eü@PÿvüWè Ä~&E~6Ä}
&ÿu&ÿu~6Eü@PFü@PWè Ä~&EëL~6Ä}
&ÿu&ÿu~6ÿuüÿvüWè Ä~&E~6Ä}
&ÿu&ÿu~6ÿuüFü@PWè Ä~&Eì]Ê Uåìÿv
ÿvè Àt*~6ÿuö~øW~Wè ~øWÄ~W ~6ÿMöì]Ê Uåì
1ÀFú¿ ¸ PWÄ~W ~ú ~xÿvú~þW~üWè Ä~
&E&+÷~þ Àt&E&+E÷~ü Àu
Ä~W&=ÿ]xë8Fú÷~þFøFúHFöÄ~W ¿ ¸ PWÄ~W Ä~W ì]Ê Uå]Ê Uå1ÿ t*Ä~ W1ÀPÄ~W Ä~ WÄ~ÇE WÄ~W ÄFÂ]Ê
UåÄ~
WÄ~W Ä~
WÄ~&ÿuG&ÿuEW ]Ê Uåì1ÿ uéÄ Ä~ø£ W&=ÿ 1ÀP1ÀP P P~øW ~øW1ÀPÄ~W Ä~&ÇE+a
1À&E-W&=ÿ Ä~W&=ÿ]|Ä~W&=ÿ]x¡ tÿ6 ÿ6 Ä~W ¡ tÿ6 ÿ6 Ä~W ¡ tÿ6 ÿ6 Ä~W ÄFÂì]Ê Uå¡ t°PÄ> W&=ÿ]¡ t°PÄ> W&=ÿ]¡ t°PÄ> W&=ÿ]1À£ £ 1ÿ ]Ê UåìÇFþ ÿvÿvÄ~Wè Ðt^F
F tÄ~
WÄ~W&=ÿ]LÿvÿvÄ> W Fü~ü tF
F tÄ~
WÄ~W&=ÿ](°PÄ~W&=ÿ]FüFþFþì]Ê UåìÄ~&E+% Àt ~6Ä}
&ÿu&ÿuÄ~W&=ÿ]@Àu° ë°FÿFÿì]Ê Uåì> t¿ WÄ~
W¸ P 1À£ ë.Ä~
W Ä~
&= uW Ä~
&= u Ä~W&=ÿ]t¡ tFÄ~
&% Àu(&% Àt/¿ ¸ PWÄ~W ; u; uÄ~
WÄ> W&=ÿ]8ì]Ê Uåì> ±Óç ÚFüVþFüVþì]Ê UåìÓÃÛü¾ ÿÅv
¬ª0íó¤ÛÄ~W&=ÿ]4üþþþ¾ ÿWľüþW¸ÿ P ì]Ê UåìÄ~
&=uK&ÿu Fý~ý1r9~ý9w3ÿ6 ÿ6 ¸ P¸7 PFý0ä-0 RP ÐtÄ~
WÄ~W Ä~
WÄ~W Ä~
&= u%&}u ¸ PÄ~W&=ÿ] Ä~
WÄ~W ì]Ê Uå¡ t Ä> W&=ÿ]d> t Ä~W¸ P¸4 P1À1ÒRP Æ ]Ê Uåì~øWÄ~W ¡ t Ä> &E@Fú¡ t Ä> &E@)Fþ~øW¸ P1ÀPPè £ ì]Ê ~O~verride TProgram.InitMenuBare~X~it Uåì2~øWÄ~W Fú Fþ~øW~ØW¿ W 1ÀP~ÐW¿ W ~ÏW¿ W 1ÀP¸ P1ÀP1À1ÒRP RP RP1À1ÒRP RP RP¸ P1ÀPP £ ì]Ê Uå> t9¡ % ÀtÇ ëÇ Ç Æ > uÇ ë1À£ ë1À£ 1À£ Æ Ç ]Ê ~Alt-X~ Exit Uåì ~øWÄ~W Fþ+ Fú~øW1ÀP¸ÿÿP~êW¿ W ¸ -P¸ P~éW¿ W ¸ DP¸ P~èW¿ W ¸ jP¸ P~çW¿ W ¸ ?P¸ P~æW¿ W ¸ bP¸ P~åW¿ W ¸ @P¸ P1À1ÒRP RP RP RP RP RP RP1À1ÒRP RP¸ P1ÀPP £ ì]Ê Uå]Ê UåÄ~
W¿ W¸ P ]Ê UåÄ~W&=ÿ] ]Ê Uåìÿv
Ä~W&=ÿ ì]Ê Uåì1ÀFüFþF
F tS Àt °PÄ~
W&=ÿ]Ä~W&=ÿ ë.1ÀPÄ~
W&=ÿ]\Àu°PÄ~
W&=ÿ]ë F
V FüVþFüVþì]Ê Uå1ÿ t% 1ÀPÄ~Wè ÄFÂ]Ê Uå1ÀPÄ~Wè 1ÿ ]Ê Uå¿ W ¿ W ]Ë 2 Îÿ I ·ÿ E »ÿ E »ÿ ~ê ê ?;pxô/x~xppq 7?:>! pzp p?000?>pz.pp¾ r11p~ñ0 ?ppxppp ppp ppp ppppxxppppp ?ppppppp ppp pppp ppppppppppp 00 0 00 0 0 0 0¸ ) 0ø 4 0¸ O 0ð Z ,0° b ,0 s x 0 } Ð0 0 00 0ø 0 F 90X - 0H T 0h 0° 0h 0 0 0È . 0¨ K 0H ^ 0Ø Ð ' ( @ @ ¯ @ Þ @ @ . @ U H & 0H 3 8 8 0h 0 2 0° { P P 0h 0 00 0 0 2 0 0¸ % 00 Ð Ð ,0è 0 ,0ð 6 90P A 0ø S Ð Ð Ð Ð 0 Ð ¡ Ð
¥ Ð
« Ð ¯ 0 · Ð ¼ Ð À Ð Æ Ð Ê 0 Ò Ð Ð Ð Ð Ð Ð ) Ð 4 Ð
8 Ð A Ð N Ð Q 08 V ð Ð > 0H C Ð( Ð( 0 Ð( # F0( - F00 = Ð V Ð
Z X v X y 0` Ð
Ð Ð Ð Ð8 0` B F0 Ð ) Ð - 0ð C 0H V 0 e 0H Ð Ð
Ð Ð@ x 0ð 3 Ð@ x 9 0Ø Ð Ð Ð Ð + Ð
/ Ð 5 Ð E 0 N Ð Q Ð U 0Ø 9 P Q 0X V P c 0X h P ' r 0X w S0P S0h S0` S0h § SÐ ® S0¸ ¶ Ð » Ð ¿ F F Ð@ Ð@ Ð@
$ Ð@
* F / Ð 6 Ð ? Ð@ F Ð@
K Ð@
O Ð T 0Ø SÐ ( P ? 0X D P
V 0X [ P
m 0X r P
0X P
0X P
² 0X · S0 Ê S0 Ñ S0 Ø S0 ß S0 æ S0 í S0x ú SÐ0 S0ø Ð Ð
Ð( 0 F0X
^0 ^0( 00 ^0
F0H F0 F0p i0( ! p / x
i00 F0x F0 F0P ^0 $ 08 + Ð 90¨ Ð $ 90¨ 0 0 4 0( 08 0@ 0X 0 0 0 $ 0È ( 0Ð , 0à 0 0( 8 0` < 0p @ 0 D 0¸ H 0à L 0è P 0 T 0 X 0 \ 0@ 8 0H t 0X x 0 0 ` 0 0 00 08 0@ d 0P 0x ( 0 0 0 h 0à L 0è P 0ð l 0 p 0 \ 0h H 08 0 $ 0Ð , 0è 4 0` < 0p @ 0 D 0 T 0 X 0x 0 , 0 4 0 8 0¨ t 0° x 0¸ | 0À 0È 0Ð 0Ø D 0à 0 ` 0 0 00 08 0@ d 0P 0x ( 0 0 0 h 0à L 0è P 0ð l 0 p 0 \ 0h H 08 0 $ 0` < 0p @ 0 T 0 X 0 0 , 0 4 0 8 0¨ t 0° x 0¸ | 0À 0È 0Ð 0Ø D 0à 0 ` 0 0 00 08 0@ d 0P 0x ( 0 0 0 h 0à L 0è P 0ð l 0 p 0 \ 0h H 08 0 $ 0` < 0p @ 0 T 0 X Ð 0 0( Ð & 0` ( 0h ,
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/