?-READ ME  CURSOR PAS /EQUATES PQS,MENU PQSSTATUS PQS-vuTELENET GQN5TELENET PQSO%&VIDEO PQSt!p The following files can be used to automate the log-on procedure to PC-PURSUIT. There are two versions available. TELENET.GEN is a generic CP/M version. Just insert your computer's port numbers for the modem and your specific TELENET access codes where marked. Then compile with Turbo Pascal. TELENET.PAS is a fancier version that was written for an '84 series Kaypro. It is menu driven with choices for each city that PC-PURSUIT currently supports. The five other .PAS files included in this library are called by TELENET.PAS during compilation. Although written specifically for the Kaypro, these files can be modified to run on any CP/M computer that supports low and inverse video with direct cursor addressing. If you have an '84 series Kaypro, simply insert your specific TELENET access codes where marked, and compile with Turbo Pascal. If you have any questions about this program, leave a message to the sysop of FOG RCP/M #23, 615/292-0710. Feel free to modify the code to suit you. If the program won't dial on your computer, the procedure called Initialize_Modem is a likely culprit. Also, the program assumes your modem can detect a carrier by testing the DCD bit of the status port. If your modem doesn't support this, you can write your own loop to test for a carrier, or insert a suitable delay to insure you have a carrier present after dialing. -- JLF. y { Contains machine code to turn cursor off on Kaypro '84 series. Works by sending 10 out port 28 and 16 out port 29. Could use the port array as easily ... this takes less room. } Procedure Cursor_Off; Begin InLine ($3E/10/$D3/28/$3E/16/$D3/29); End; { Same as above except turns cursor on. } Procedure Cursor_On; Begin InLine ($3E/10/$D3/28/$3E/96/$D3/29); End; vEQUATES.PASL o  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK]QN٨Q_Mb~Yږ(jƸNgqhˈl+j(\MȬ*-QM̯=2-QM̿zdVEkvXlIcdYM˅kqe?iB>"?ռL•=VG!G>ռNxhB +| gqh$Zp(\}spX%]l'ee[b˱\}[&Αso3g(l1~8xV2~XQٮzdVz(l?2pF!d#Dȶ*Bv{c"d[ohȇDpHw7jh2d,/>-NVԺ(릛Y^EeQ"EѺXzD3/28/$3E/96/$D3/29); End; v+MENU.PAS` o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_B|'13ˆLCiИࠄ 8luso0jA Fj򸭝.h*yc7IikPfr+V:RͪG?7᠄.mW;O<-aw3lZ!ei2 0]bS )`Ĺ4%S&8q[;\THJo~8ґjͭtjύhj8(ajkK;ORe-ʢ͓5_rt ?@ABEuНC,kYDk# :\Ok5w{ ,pT#t%F +%\kc\ z )xb&q0~\ ޕ{t*`2nYg򉆕.ڭUx:Y@"6yh,b¯oeSUQPiq_*9<[.Urya@~H:?\4jd!]4 ?D^Hi{Ln6@rO4]/g'VJ8zNV%++m;ul?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdS,T,\]RI&g4#"a؞1J*l1c|z tQ=<f/%Ĵ 1R#&FluTRcjkP g;xv gfnBD}X;3_jb}ql0k fݟ]\t_5U TV3bqg5.muV2iL "z!.n&x7Ɠ/hτjD*8^uqۼ ލQ|`ǨmB5ՌTQq uq ލQ|`ǨmB56ְ12XrY "̑Y͘H%D4 mEn<]1M§m͋8c˻;Ҡ:ˉT @y@<{^kGbD*1t cv~Nĥ6H%D ]:J*H*  ߻vfx,RI=") "J{"#: "ꥫA>f/~. o`vfx,+͆5MFK@*hOsg&TEf5/c8K "2I TJJMX| hwe'>f_4@*^K+?xd 4wF*Xwqݕt+=͝ ⻦Tj^0 K@l˙4~NfV8ixXm^j{͕~ä?4 bY͋a~9 W4w9ƫTj^0 K-z Gqys#}L3X3 bY͋ޛz~ ie2 bP/WM m|˜iP o6m +:?32 jP L5 o68!uk^ۄj89kg "2I TJJMOnv1p4N D3RAL5eY*2,Ұz7 2yQ4<,;w4ThC͕n3yQA/\v a#;t_@*Y;ش}o4u h#DD& j x7z2!x0J=͝ "ObC $gbHcM[A܆ša 1Ŧ W2v}]u vLi+ϯaWSv?|W@*(_Mt ;>,;[<@bq֎)6Tõ׾Nmi]4+2RAL4wF*gڪ0L=MMYL>'Qu >jIl^@*)D*✤ՠ@k}=c^t vLiq| $Xۄjl۪H ccYۄ@*hU&TU/Ni1t #r9bk3f "2I Dt֎)6TY;ؠR[g11%nĥ6` &];cdεay[u$[]<@orr2Q;vuTELENET.PASj o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi^bj9rj9I?y1Ẋr}JWsVZ\RA V.`*]@cii ZRd%[`&[ P+4Dޏb0{nq!l6܈< ! ۚ m)$j!؝CKgwfBBdQ+ _O|0`nv*$š(H™P+ Waһ#DB;[JJb4&XVZi½9Rva:R<{ {nZi!i~1O ,[=cma00=`=EJndd5 01# VgslVZiqpw0_Wxl0Q+ Wɰ@#<_W(^3Ig2t6aJF4D^\%qrGx} !PfdlJZX Zi 6\hdt&5@ f Cy !R.Iޢ[RБ+qI}Zi!w@|/9y}s[ Xz8{4;Hi&7$oHp?.~ƾ#|&Z‰\ j!Fsfޒ o+Vi6`V8 0 h{ >JC<}kvyyg} ZA|S4Ce&X!&VJC<0$ ͬ4VJC<0$ 'ߎ¸h4 غzmh4QBl2k&Z) 4=1. #O#\. YkRiLJY3fr.8fJi'i\֮Z鼉VJC<0 Ü L0nE+!Fxew n:^GPiؐJCfFnqhvB|_!hcxLȥ%#`J7Ri!b~B|U!hc; MVRZi<y Ek`H2I7YIj!~znq<\!hcxL0 Zj!~9 cZ !TH,$q)xLȕhַZioKײsw})u*tG&JہDŽΦԡWpOgk (;J!ɤGJ+ _;!sw})uXgU2'JCPii[JKIX|})u\%I0`h6 V€\ w ؒcBgSX0<20 w 8d#6LkJ+ 7RiA|#S4D~I `܂Ǔ$9* ) 񃤆 CcAk!~( qR4VYq|?}Y M$cr@47VYq 9z#XN.w"`KnJF;6ҴLrZiH4(KgߝOC?W!h%[JC|$JC|Rfl6pcʀE@Zi%dSB+ю4-\CHϔw wP+ KCnm)-%a<{dSB0 F`0_ƥȥtF2N6sٛf[w5D^+]a#Etf-it5> 7 u$$ V;l6JWl615RzHed6k S+XSqdf6 xLpRyD;6nAnіq٬!lP+]a#E%-SbXgU'sFx~!>VQ@|vl J>+897£BU̗#JC+Jp+l^amK+8HGJC+JpBU̗J>+897lB|xVWH}`.3B4ľϊ$N,P%$-|$ J>+897,ކ\z~lFI _J>+897BU̗sJC+JpE?Xa` p9^a `j!|b9GooBUa{7Ҕ)j!)e8y>MCT1e@x> P+ _|})uD$KĻi€\Φ0coj!˒O6A7wnB|0 b'R<#`94TZFږRvd}I}[C<6r*tƭ67>3 ɤ<2( ,bAH2ILZi!KZx4^RCJRC!]`m{4Wca2R4VYq|?}YT( H2IxJj!z#c9i*icrdRc#M$Oұw oiұvLXłVbDzMn~1 !Za0Oю4-$k!)e8f)*ܘ2 lPP94TZ qZ ? ow6V) Ǚ2T""=S&QR".tv!M5cd "ǻ?~MC!2slg4T"@orr2Q; !P+ & y\* frX7Bh( !~p0 Zj!ܡ~}~JCyrX7Bl{JCyrX7Bt}JCyrX7Bl, x=@oY* ЏoϢPi7C?^ FϢPi7Ax9,!mPivrX7BtB!-zay* ޡ~=>B!g/z#Dw/Q4~=@onvJCPi<䠕P'6\׏LIJC䯤g2Dsٛƥ8ٔ:h* lMi4D>wot})u+陮l &Л̻5&Iq(.d~R.Ib^GPie{n]}JC˒O6na%q\ xx7 *lcJ6$26X0APvhKΦԡ (@>`2S@ Rbjғ\[m) RKeeXxL"ߠVwIAooIcd6u b2s[xc@ ؼ'FJOƥhmבcؒc YCyZiFş,TQ+ z`ME'pz>3u {[K[d0 SqfPi|YɦM^"MC!cMQ4 ȗ%_lJ$)v/說Lz±&i4D,dS&Qx9,яۻU蟊/說Lz±&i4D,dS&7r7KĻi4DJz.Ixƭ$š()$5<&FR`ҿxwh* lMi4D.!JC%5dXi-~㍤ <&eAQb_:&aϊ$NS[̦_7B;o~q)+J|* "=$S!ұ3o$҃dyS"%= $O[l >Mu]I4T"Ԑa!L:p_LK>Ë&6Mn~1w8UGyA+C!rMlb<&4D~I 7VYqJC+Jp_>JCSqr7ͦJ>+897Pi}c%WIJC%_lJ$'n* KXyt{94T""=SB!'3e(]Sz I\J`w&C#B>YGPi<.e`)M.]+ograv*VIDEO.PAS@ o !"#$%&'()*+,-./0123456789:;<=>?R|}1ʃՉ'8V^h'x2L,@ҀʑtvDNIC3b?ԕ#iTņ]?auT7R#XI˥'Tņ]?xmGÎP94"iܧ ;B/iESާ '67ʟDS\ %oFC\+GҨ ~€qnFvKO ~IaUsnm/GÎP9})`۰zmÃ@PBO/Fytk'V78V^h'x2L/)x3_k+GҨ ~€qnFvKO ~IaUs ;B甿 '6