Category : Communication (modem) tools and utilities
Archive   : PC-TALK.ZIP
Filename : PC-TALK.BAS

 
Output of file : PC-TALK.BAS contained in archive : PC-TALK.ZIP
ÿ-:Ù WARNING!!! DO NOT ALTER, BYPASS OR REMOVE LINES 1-1005:ÙQ:Ù PC-TALK (ver. III)Y:Ùv:Ù by Andrew Fluegelman˜:Ù The Headlands Press, Inc.­:Ù P.O. Box 862Ç:Ù Tiburon, CA 94920Ï :Ù!
:Ù ****************************** NOTICE *********************************c „" If you have received this program from another user and¨ „" find it of value, your $35 contribution will be appreciated.¯
„"Þ„" ÍÍÍ Freeware ÍÍÍ„" Post Office Box 862=„" Tiburon, CA 94920D„"‰„" You are encouraged to copy this program as described below.„"Û„" ** NOTICE: Users of this program are granted a limited license to'„" make copies of this program for trial use by others on a privater„" non-commercial basis. This limited license does not include --¼„" 1. distributing this program in connection with any other product„" 2. making the program available for any consideration or 'disk fee'S„" 3. posting the program for public access via telecommunications orœ„" 4. distributing the program in modified form. Please cooperate.£„"Ø„" Copyright (c) 1983 The Headlands Press, Inc.+:Ù **************************************************************************3:Ùe(:Ù NOTE: To see remarks, MERGE "PCTKREM.MRG"m-:ÙŠ2È ,,:  P:À:É Ý:Ê ,,Ä4‘ Î<)"tm":‘ Î) Ö(,Í)" F R E E W A R E "Ö(,Í)6‘ Î)"User-Supported Software":‘:‘ Î) ÿ–(Ö)Ö(@,Ä)ÿ–(·)?8‚ Iç Ì :‡ A$:‘ Î) ÿ–(º);A$;ÿ˜(@êÿ’(A$));ÿ–(º):ƒ_9‘ Î) ÿ–(Ó)Ö(@,Ä)ÿ–(½);:‚ Iç Ì 
:‡ A$:‘ Î);A$;ÿ˜(Iêÿ’(A$));:ƒ•d:Ù´n»:­ AêZ:¸ BASE 1:• § ‰ (#5sIç:Pç:A$ç"":RCç:PRç:LF$ç"":BS$ç"":NSç:† S$():† R$():SETç:PSEç:XF$ç"":XN$ç"":HLTç:X$ç"":Y$ç"":Z$ç"":B$ç"":C$ç"":JçGxFLN!ç:CNT!ç_}† ALT$(
):† K$(()w‚‚ Iç Ì 
:É I,"":ƒ›‡BS$çÿ–():LF$çÿ–(
):CR$çÿ–(
)׌RCV$ç"":TRN$ç"":DIAL$ç"":STRT$ç"--":GO$ç"===Proceed ... ‘† KPG$():KPG$()ç"Func":KPG$()ç" Alt":KPG$()ç"Shft":KPG$()ç"Ctrl6–† DS$():† DR$()t›VL$çÿ–(³):EF$çÿ–():BL$çÿ–():ENT$çÿ–()éÿ–(Ä)éÿ–(Ù)Ç XN$çÿ–():XF$çÿ–():SOH$çÿ–():EOT$çÿ–():ACK$çÿ–():NAK$çÿ–():CAN$çÿ–()¥DFIL$ç"pc-talk.dir":KFIL$ç"pc-talk.key":FFIL$ç"pc-talk.def":IFIL$ç"INITIALIII""È:ÙLÒDFNUMç:† DP$():† D$():† DT$()f×»#:º FFIL$ ‚ … AS #ƒ܅#,Q$:‹ Q$èæIFIL$ Í õ¨ႠIç Ì DFNUM:…#,DP$(I),D$(I):ƒÇæCKçÈ(
,-):‹ CKèæ8 Í Ø"äë…#,Q$:‹ Q$èæIFIL$ Í õôð à:‰ ,5õÅ:‘"*** Re-initializing Default File ***":»#:þ‡ FFIL$:‰ =ú:ÙE,:Ù~6Ê ,:‘"Hit any key to continue ...";:Iç:Ê ,,:Pçµ;B$çÞ:Ä ÿ,:PçPé:‹ B$ç"" î PèÐ Í ; :¡ B$ç" "@¿ FG,BG,BG:À:Ê ,':¿ BG,FG:‘ ÿ˜();"MAKE SURE THAT YOUR MODEM IS ON"ÿ˜():¿ FG,BG:‘:Œ c6E‘ Î') ÿ–(Õ);Ö(&,Í);ÿ–(¸)kJ‚ Iç Ì :‡ A$:‘ Î') VL$;A$;ÿ˜(&êÿ’(A$));VL$:ƒ‡O‘ Î') VL$;Ö(&,Ä);VL$¼T‚ Iç Ì :‡ A$:‘ Î') VL$;A$;ÿ˜(&êÿ’(A$));VL$:ƒßY‘ Î') ÿ–(Ô);Ö(&,Í);ÿ–(¾);ç^:Ùc„" ===== PC-TALK III =====h„"?m„" Communications Program forfr„" The IBM Personal Computermw„"–|„" Press: for command summary½„" -E if you can't see憄" your keyboard inputî:Ù•»#:º KFIL$ AS #:þ‚ #,~ AS K$, AS L$Hšþ‰#,:‹ ÿ(K$,ÿ’(IFIL$))èæIFIL$ Í  ŠŸ‚ Iç Ì (:þ‰#,Ié:LNçý(L$):‹ LNç Í ¤ :¡ K$(I)çÿ(K$,LN)¢¤ƒ:»#:‹ B$ç"" Í Ø"Ç©»#:º COMM$ AS #:‘#,MODMINIT$;ë®ROWç:COLç:  :Ê ,,:‘ GO$ó³:Ùûô:Ù þ:Ù% ‹ TR Í ‹ TR$ç"X" Í ü :¡ Ü< B$çÞ:‹ B$ç"" Í 0Q
‹ ÿ’(B$)æ Í Ü¦ ‹ B$çBS$ Í CCNTçCCNTê:‹ ECH Í  _
:‹ PR Í PR$çPR$éB$:  :‰ + :¡ + :¡ +º ‹ MARGèç Í &Ü ‹ Ø(B$,CR$)èæ Í CCNTç:‰ &!!CCNTçCCNTéÿ’(B$):‹ CCNTæçMARG î CCNTèMARGé
Í Å;!&‹ ECH Í ‘ B$;:‹ PR Í PR$çPR$éB$:  H!+‘#, B$;a!0‹ ÿ£() Í  :¡ ]i!X:ÙŠ!]‹ ÿ¥()è€ Í PSEçê:‘#,XF$;œ!b‹ ÿ£() Í Æ½!gA$ç…$(ÿ¤(),#):‹ NSç Í {Ì!l‚ Iç Ì NS"qPçØ(A$,S$(I)):‹ Pç Í v :¡ A$çÿ(A$,Pê)éR$(I)éÿ‚(A$,ÿ’(A$)êP):‰ q"vƒ0"{‹ RC Í ‘#,A$;s"€PçØ(A$,LF$):‹ Pç Í … :¡ A$çÿ(A$,Pê)éÿ‚(A$,ÿ’(A$)êP):‰ €Ò"…PçØ(A$,BS$):‹ Pç Í  :¡ ‚ Iç Ì ÿ’(A$):‹ ÿƒ(A$,I,)èæBS$ Í ‘ ÿƒ(A$,I,);:‰ Š :¡  Z
Þ"Šƒ:‰ ”#‚ Iç Ì ÿ’(A$):‘ ÿƒ(A$,I,);:ƒ#”‹ PR Í PR$çPR$éA$:  %#¼:Ù5#Á‹ SET Í ËM#ÆB$çÞ:‹ B$èæ"" Í 
a#Ë‹ ÿ¤()æ Í ]|#Ћ PSE Í PSEç:‘#,XN$;ž#Õ‹ SET Í ROWçÛ:COLçÿ‘():‰ è¨#Ú‰ °# :Ù$%PçØ(PR$,BS$):‹ Pç Í * :¡ ‹ ÿ’(PR$)æ Í PR$çÿ(PR$,Pê)éÿ‚(PR$,ÿ’(PR$)êP):‰ %Q$*PçØ(PR$,CR$):‹ Pç Í / :¡ ‘#,ÿ(PR$,P);:PR$çÿ‚(PR$,ÿ’(PR$)êP):‰ *v$/‹ ÿ’(PR$)æÜ Í ‘#,PR$;:PR$ç"":Ž|$4Ž„$9:ÙŒ$è:Ù·$ò‹ ALTSET Í Ê , :¡ Ê ,éÿ’(ALT$)ò$÷C$çÞ:‹ C$ç"" Í ‹ ÿ£() Í ÷ :¡ SETçê:Ê ROW,COL:‰ ]%ü‹ Ó ALTSET Í  c%Ê ,:‹ ÿ•(C$)æç1 î ÿ•(C$)èç9 Í ALTKYçÿ•(C$)ê0:¡ ‹ ÿ•(C$)ç0 Í ALTKYç
:¡ Å:‰ ò½%‹ ALTSET Í ALTSETç:SETçê:Ê ,:‘ Ö(,);" Alt-";ALTKY;ÿ–(Æ);" ";ÿ–(µ);:‰ ò& ‹ ÿ’(ALT$)æç3 Í ALT$çÿ(ALT$,1):Ê ,@:‘" ";ÿ–(µ);:Ê ,B:Å:‘"(max 50 chrs.)";:‰ òb&‹ C$çBS$ Í ‹ ALT$ç"" ‰ ò :¡  Z
:ALT$çÿ(ALT$,ÿ’(ALT$)ê):‰ òx&‹ C$çÿ–(
) Í .´&‹ C$æÿ–() Í ‘ C$; :¡ ¿ HI,BG:‘ ÿ–(ÿ•(C$)é@);:¿ FG,BGÈ&‘" ";ÿ–(µ);â&$‹ C$çXCR$ Í C$çÿ–(
)ù&)ALT$çALT$éC$:‰ ò:'.‹ ALT$èæ"" Í ‹ ALT$ç" " Í ALT$(ALTKY)ç"" :¡ ALT$(ALTKY)çALT$R'3ALT$ç"":SETç:‰ °Z'8:Ùb'°:Ù™'ºPç:‚ Iç Ì 
:Ê ,P:‹ Iç
Í ‘"0";:¿ BG,FG:‰ Ä°'¿‘ × "#";I;:¿ BG,FGâ'Ä‚ Jç Ì :Z$çÿƒ(ALT$(I),J,):‹ ÿ‘()çP Í Ó(É‹ Jæÿ’(ALT$(I)) Í ‘" ";:‰ Ó$(Τ FG,BG:Q$çZ$: T :¤ FG,BG>(Óƒ J:¿ FG,BG:PçPé:ƒ Ie(Ø‚ Iç Ì 
:‹ ALT$(I)èæ"" Í EXITçê‹(݃:‹ EXIT Í EXITç:Ê ROW,COL:‰ ]¥(âÊ ROW,COL:  :‰ ­(ç:Ùµ(Ü:ÙÎ(æEXç:ROWçÛ:COLçÿ‘()ù(ë‹ ÿ’(B$)ç Í EXçÿ•(ÿƒ(B$,,)) :¡ EXç)ð‹ EXçK Í B$çÿ–():‰ 5)õ‹ EXçM Í B$çÿ–():‰ H)ú‹ EXçG Í Ð k)ÿ‹ EXç ï EXçQ Í EXç:‰ ¸ ~)‹ EXç/ Í H
¡) ‹ EXç ï EXçI Í EXç:‰ € ´)‹ EXç Í ˆ Ç)‹ EXç Í p â)‹ EXç$ ï EXç% Í X ê):Ù*"‹ EXæç; î EXèçD Í B$çK$(EXê:):‰ @*'‹ EXæçh î EXèçq Í B$çK$(EXê]):‰ k*,‹ EXæçT î EXèçg Í B$çK$(EXê?):‰ ˜*1‹ EXæçx î EXèç Í B$çALT$(EXêw):‰ Ý*6‹ EXçƒ Í:Å:Ê ,:‘" set Alt-(1-0): ";ÿ–(µ);:ALTSETçê:‰ èå*;:Ù@+@‹ EXç Í Å:‘:‹ ECHç Í ECHçê:‘"===ECHO ON===":‰  :¡ ECHç:‘"===ECHO OFF===":‰ £+E‹ EXç2 Í Å:‘:‹ MSGç Í MSGçê:‘"===MESSAGES ON===":‰  :¡ MSGç:‘"===MESSAGES OFF===":‰ :,J‹ EXçr ï EXç„ Í Å:‘:‹ PRç Í PRçê:‘"===PRINTOUT ON===":»#:º PRNTPORT$ AS #:‘#,PRNTINIT$;:‰  :¡ PRç:»#:‘"===PRINTOUT OFF===": ›
:‰ B,O:ÙT,T‹ EXç, Í  œ,Y‹ EXç Í ‹ DIAL$èæ"" Í @ :¡ Å:‘"(nothing to redial)":‘ GO$:‰ ®,^‹ EXç Í ØÀ,c‹ EXç! Í Pw-h‹ EXç- Í Å:À:‘"===EXIT TO DOS===":‘:‘"WARNING! If you proceed you will terminate the program.":‘"Do you want to do this (y/n)?";:Q$ç…$(): û :‹ Q$èæ"Y" Í ‘:‘ GO$:‰  :¡ Ó"-m:Ù2.r‹ EXç& Í Å:‘:‘"===SPECIFY LOGGED DRIVE===":‘"Current default for file specs: ";DRIV$:‘"New default: ";:QLç: Ä :‹ Q$ç"" Í ‘:‘ GO$:‰  :¡ DRIV$çÿ(Q$,)é":":‘:‘ GO$:‰ D.w‹ EXç Í <g.|‹ EXç. Í ‘ ÿ–( ): ð
:‰ /‹ EXç Í Å:‘"===SPECIFY WIDTH ALARM===":‘"Current setting for right margin:";MARG:‘"New setting: ";:QLç: Ä :‹ Q$ç"" Í ‘:‘ GO$:‰  :¡ MARGçÿ”(Q$):‘:‘ GO$:‰ p/†‹ EXçu Í OLDVALçÿ(LCR):BRKVALçOLDVAL ï @:œ LCR,BRKVAL:Ä ÿ,:Ä ÿ,:œ LCR,OLDVAL:‰ ”/‹‹ EXç Í Œ ':‡ Q$:‘ Q$:‰ ²/Œ‹ EXçS Í B$çÿ–():‰ 
º/:ÙÅ/•‰  Í/š:ÙÕ/Ð:Ùù/ÚÊ ,':‘ ÿ–(Õ)éÖ(&,Í)éÿ–(¸)=0ßÊ ,':‘ VL$;" ===PC-TALK III COMMAND SUMMARY=== ";VL$ a0äÊ ,':‘ ÿ–(Ã)éÖ(&,Ä)éÿ–(´)›0éŒ :Ê ,':‡ B$:‘ VL$;" ";CAN$;B$;ÿ˜($êÿ’(B$));VL$Ó0î‚ Iç Ì :Ê I,':‡ B$:‘ VL$;B$;ÿ˜(&êÿ’(B$));VL$:ƒù0óÊ ,':‘ ÿ–(À)éÖ(&,Í)éÿ–(Ù);
1øÊ ROW,COL:‰ 1ý:Ù:1„"PrtSc = print screen contentsg1„" ^PrtSc = contin. printout (or ^PgUp)’1 „" Alt-R = Receive a file (or PgDn)¾1„" Alt-T = Transmit a file (or PgUp)è1„" transmit: pacing '=p' binary '=b'2„"tran/recv: XMODEM '=x'12 „" Alt-V = View file Alt-Y = deleteT2%„" Alt-D = Dialing directoryx2*„" Alt-Q = redial last number¥2/„" Alt-K = set/clear Func keys (Alt-J)Î24„" Alt-= set/clear temp Alt keysú29„" Alt-E = Echo toggle Alt-M = Message&3>„" Alt-S = Screendump Alt-C = ClearscQ3C„" Alt-P = communications Parametersw3H„" Alt-F = set program deFaultsœ3M„" Alt-L = change Logged driveÄ3R„" Alt-W = set margin Width alarmï3W„" Alt-Z = elapsed time/current call 4\„" Alt-X = eXit to DOS94a„"Ctrl-End = send sustained Break signalA4f:ÙI4Ä :Ùb4É Q$ç"":‹ QLç Í QLçÿ{4Î QI$çÞ:‹ QI$ç"" Í Î 4Ó ‹ QI$çÿ–(
) Í Ž¼4Ø ‹ QI$èæÿ–() Í â :¡ ‹ Q$ç"" Í Å:‰ Î í4Ý ‹ QI$çÿ–() Í  Z
:Q$çÿ(Q$,ÿ’(Q$)ê):‰ Î 5⠋ ÿ’(Q$)çQL Í Å:‰ Î J5ç ‹ ÿ’(QI$)ç Í ñ :¡ ‹ QI$èæÿ–()éÿ–() Í Å:‰ Î :¡ QI$çÿ–()–5ñ ‹ ÿ•(QI$)æ ï QI$çÿ–() Í ‘ QI$; :¡ ¿ HI,BG:‘ ÿ–(ÿ•(QI$)é@);:¿ FG,BGÍ5ö ‹ QI$çXCR$ Í Q$çQ$éÿ–(
):‰ Î :¡ Q$çQ$éQI$:‰ Î Õ5û :Ù
6
‚ Jç Ì ÿ’(Q$):Pçÿ•(ÿƒ(Q$,J,)):‹ Pèa ï Pæz Í 

'6
ÿƒ(Q$,J,)çÿ–(P î _)/6

ƒ:Ž76(
:ÙK6-
ROWçÛ:COLçÿ‘()Ÿ6.
MSG$çÿ(MSG$,N):Ê ,:¿ BG,FG:‘ " "éMSG$éÿ˜(Nêÿ’(MSG$));:¿ FG,BG:Ê ROW,COL:Ž§6Z
:ÙÂ6_
‘ ÿ–();" ";ÿ–();:ŽÊ6Œ
:Ùï6‘
»#:‹ RC Í º RCV$ ‚ APPEND AS #õ6–
Ž7›
»#:‹ PR Í º PRNTPORT$ ‚ OUTPUT AS #P7 
‹ TR Í » #:º TRN$ AS # ÿ’ç€:þ‚#,€ AS X$V7¥
Ž^7ð
:Ùr7õ
ROWçÛ:COLçÿ‘()¢7ú
EXITç:‚ Iç Ì 
:‹ ALT$(I)èæ"" Í EXITçê:ƒÂ7ÿ
‹ EXIT Í EXITç:Ê ,,:‰ ºß7 ‹ RC Í MSG$çRCMSG$:‰  ü7 ‹ TR Í MSG$çTRMSG$:‰  V8 MSG$ç"^PrtSc=prnt Alt- T=tran R=recv V=view D=dial E=echo M=mesg X=exit =Help"Š8 ‹ MENUç Í Ê ,:¿ FG,BG:‘ ÿ˜(O);:Ê ROW,COL:Ž–8  .
:Žž8 :Ù¹8T :Ù controlled display+9^ ‚ Qç Ì ÿ’(Q$):QQ$çÿƒ(Q$,Q,):‹ QQ$æç" " Í ‘ QQ$; :¡ ‹ QQ$çCR$ Í ‘ XCR$; :¡ ¿ HI,BG:‘ ÿ–(ÿ•(QQ$)é@);:¿ FG,BG39c ƒ Q99h ŽA9¸ :ÙÎ9 ‹ RC Í RCç:RC$ç"":Å:‘:‘"===RECEIPT OF FILE ";RCV$;" TERMINATED===":‘: Œ
: ð
:‹ MSG Í ‘#,BL$;CR$;"===FILE RECEIVED===":‰  :¡ û9Ç RC$ç"":Å:‘:‘"===RECEIVE A FILE===":‰ ¬
?:Ì ‹ RC$ç"X" Í »#:þ‡ RCV$:º RCV$ AS # ÿ’ç€:þ‚ #,€ AS X$:‰ Ö o:Ñ ‹ MSG Í ‘#,BL$;CR$;"===READY TO RECEIVE===¹:Ö RCMSG$ç" Receiving "éRCVX$é" (ALT-R to Terminate)":MSG$çRCMSG$: (
Ú:Û RCçê:‹ RC$ç"X" Í ” :¡ ]â:à :Ùê:€ :Ù‰;Š ‹ TR Í TRç:TR$ç"":MSG1$ç"===TRANSMISSION OF FILE ":MSG2$ç" TERMINATED===":Å:‘:‘ MSG1$;TRN$;MSG2$: ›
: ð
:‹ MSG Í ‘#,CR$;MSG1$;MSG2$,BL$:‰  :¡ < ‹ TR Í TRç:TR$ç"":MSG1$ç"===END OF FILE":MSG2$ç"===":Å:‘:‘ MSG1$;" ";TRN$;MSG2$: ›
: ð
:‹ MSG Í ‘#,"65529 '";MSG1$;MSG2$;BL$:‰  :¡ K<” TR$ç"":Å:‘:‘"===TRANSMIT A FILE===":‰ ¬
u<™ »#:º TRN$ AS # ÿ’ç€:þ‚ #,€ AS X$(=ž TRMSG$ç" Transmitting "éTRNX$é" (ALT-T to terminate)":‹ TR$ç"X" Í TRMSG$çMSG$é" # of blocks:" :¡ ‹ TR$ç"P" Í TRMSG$çMSG$é" percent remain:" :¡ TRMSG$çMSG$é" min. remain:"¿=£ MSG$çTRMSG$: (
:‹ TR$ç"X" Í ROWçÛ:COLçÿ‘():Ê ,J:CNT!çÿŸ(ÿ¥()ì€):FLN!çÿ¥()ì€:‹ CNT!çFLN! Í ‘ CNT!;:Ê ROW,COL :¡ ‘ CNT!é;:Ê ROW,COL:‰ ­ ð=¨ ‹ MSG Í ‘#,CR$;"0 '===START OF FILE===";BL$>­ TRçê:FLN!çÿ¥():‹ TR$èæ"X" Í   :¡ \%>² :Ù->H
:ÙP>R
Å:‘:‘"===VIEW A FILE===":‰ ¬
«>W
MSG$ç" Viewing "éVEWX$é" Press to continue (Alt-V to terminate)": (
:‘:‘:‘?\
±é Ó ÿ£():‚ Iç Ì :° …#,X$:Jçÿ’(X$):‹ JèP Í ‘ X$ :¡ ‘ X$;:‹ JæP Í IçIéÿŸ(JìP)?]
‹ PR Í  X$?a
ƒi?f
Q$çÞ:‹ Q$ç"" Í f
:¡ ‹ Q$ç" " Í \
:¡ ‹ Q$çÿ–()éÿ–(/) Í u
:¡ Å:‰ f
o?k
²œ?p
Å:‘:‘"===END OF FILE ";VEW$;" ===":‰ z
Ð?u
Å:‘:‘"===VIEWING OF FILE ";VEW$;" TERMINATED===æ?z
 ›
: ð
:‰ î?
:Ùö?¬
:Ù@¶
EXITç:‘" specification:";U@»
Q$çÞ:‹ Q$ç"" Í »
:¡ ‹ Q$çCR$ ï Q$çBS$ Í FIL$ç"":‘:‰ Ô
AÀ
‹ ÿ’(Q$)æ Í Qçÿ•(ÿƒ(Q$,,)):‹ Qæç; î QèçD Í Q$çK$(Qê:) :¡ ‹ Qæçh î Qèçq Í Q$çK$(Qê]) :¡ ‹ QæçT î Qèçg Í Q$çK$(Qê?) :¡ ‹ Qæçx î Qèç Í Q$çALT$(Qêw) :¡ Å:‰ »
BAÅ
‹ Q$èæ" " Í ‘ Q$;:QLç€: Î : û :FIL$çQ$:‘:Ê,,:‰ Ô
‹AÊ
‹ EXç Í FIL$çRCVX$ :¡ ‹ EXç Í FIL$çTRNX$ :¡ ‹ EXç/ Í FIL$çVEWX$¾AÏ
Q$çFIL$:‘ Q$;:QLç€: Î : û :FIL$çQ$:‘:Ê,,éAÔ
‹ FIL$ç"" Í Å:‘"===CANCELLED===":‰  BÙ
‹ ÿ(FIL$,)ç"?" Í  ):‰ ¶
6BÞ
PçØ(FIL$,":"):‹ Pç Í FIL$çDRIV$éFIL$Bã
‹ EXç Í RCVX$çFIL$ :¡ ‹ EXç Í TRNX$çFIL$ :¡ ‹ EXç/ Í VEWX$çFIL$ãBè
PçØ(FIL$,"="):‹ Pç Í ‹ EXèæ ï PC$ç"" ï EXITçê Í   :¡ EXITçê:Q$çFIL$éPC$:Ê Ûê,:Å:‰ Å
Cí
Q$çÿ‚(FIL$,ÿ’(FIL$)êP):FIL$çÿ(FIL$,Pê)(Cò
‹ Q$ç"B" Í TR$ç"B" ]C÷
‹ Q$ç"X" Í ‹ EXç Í RC$ç"X" :¡ ‹ EXç Í TR$ç"X£Cü
‹ ÿ(Q$,)ç"P" Í TR$ç"P":PROMPT$çÿ‚(Q$,ÿ’(Q$)ê):DEL!çÿ”(PROMPT$)!D‹ TR$ç"B" ï TR$ç"X" ï RC$ç"X" Í ‹ DTA$èæ"8" Í Å:‘"*** You must communicate at 8 DATA BITS for binary or XMODEM ***":‰ —uD‹ TR$ç"X" ï RC$ç"X" Í ‹ NSèæ Í Å:‘"*** Stripping disabled for XMODEM ***":NSç¶D ‹ EXç Í »#:º FIL$ ‚ APPEND AS # :¡ »#:º FIL$ ‚ … AS # èD‘ Ö(éÿ’(FIL$),=):‹ EXç Í RCV$çFIL$:‰ Ì E‹ EXç Í TRN$çFIL$:‰ ™ $E‹ EXç/ Í VEW$çFIL$:‰ W
6E‹ EXç Í K>E$:Ù°E)‹ ÿ’(FIL$)ç Í FIL$çDRIV$é"*.*":‰ 8 :¡ FIL$çÿ‚(FIL$,ÿ’(FIL$)ê):‹ ÿ(FIL$,)ç" " Í FIL$çÿ‚(FIL$,ÿ’(FIL$)ê)ÚE.PçØ(FIL$,":"):‹ Pç Í FIL$çDRIV$éFIL$üE3‹ ÿ’(FIL$)çP Í FIL$çFIL$é"*.* F8‘:þ FIL$:‘F=ŽFB:Ù"FØ:ÙuFâÄ ¸,:»#:º DUMP$ ‚ APPEND AS #:MSG$ç" Appending to "éDUMP$é" at "éþŽ: (
Gç‚ Iç Ì :Y$ç"":‚ Jç Ì O:XçÈ(I,J):Y$çY$éÿ–(X):ƒ J:‘#,Y$:ƒ I:‘#,Ö(O,-);CR$;LF$;"*** PC-TALK III SCREENDUMP - ";þ;" at ";þŽ;" ***";CR$;LF$;Ö(O,=):»#AGìÄ ”,:Å: ‘
: ð
:Ê ROW,COL:‰ IGñ:ÙQG<:ÙvGFÅ:‘:‘"===DELETE A FILE===":‰ ¬
»GK‘"***The first 5 lines are:":‚ Iç Ì :‹ Ó ÿ£() Í ° …#,X$:‘ X$HPƒ:‘"***ARE YOU SURE (y/n)?";:Q$ç…$():‘ Q$: û :‹ Q$ç"Y" Í »#:þ‡ FIL$:Å:‘" (deleted)":‰ Z?HU‘" (not deleted)":‘ GO$:‰ UHZ ›
:‘ GO$:‰ ]H_:ÙeH :Ù“Hª‹ TR$ç"B" Í ‘"(sending file as binary...)ÅH¯RATE!çÿ”(BAU$)ë:CNT!ç:ROWçÛ:COLçÿ‘():‰ Ü"I´Ê ,J:‹ TR$èæ"P" Í ‘ ×"###.#";(FLN!ê(CNT!ë€))ìRATE!; :¡ ‘ ×".##";(FLN!êCNT!ë€)ìFLN!;@I¹þ‰#,CNT!:Y$çX$:Ê ROW,COLwI¾‹ TR$ç"P" Í  0:‹ Ó ABORT Í Ò :¡ ABORTç:‰ Ü“IÑ#,Y$;:‹ TR$ç"B" Í ÒØIÈPçØ(,Y$,LF$):‹ Pç Í Í :¡ Y$çÿ(Y$,Pê)éÿ‚(Y$,ÿ’(Y$)êP):‰ È÷IÍ‚ Iç Ì €:‘ ÿƒ(Y$,I,);:ƒ$JÒROWçÛ:COLçÿ‘(): æ:B$çÞ:‹ B$ç"" Í Ü9J׋ ÿ’(B$)æ Í ÜwJÜCNT!çCNT!é:‹ CNT!ë€èFLN! Í ´ :¡ þ‰#,CNT!:Y$çX$:‰ hJá:Ù¤Jæ‹ ÿ£() Í õ :¡ A$ç…$(ÿ¤(),#)ãJëPçØ(,A$,XF$):‹ Pèæ Í HLTçê:¿ HI,BG:‘"<>";:¿ FG,BGKð‹ HLT Í PçØ(,A$,XN$):‹ Pç Í õ :¡ HLTç:ŽoKõ‹ HLT Í Q$çÞ:‹ Q$èæ"" Í ‹ ÿ’(Q$)èæ Í æ :¡ ‹ ÿ•(ÿ‚(Q$,))ç Í HLTç:Ž :¡ æ :¡ æuKúŽ}Kh:Ù–KmIç:CNT!ç(CNT!ê)ë€ÊKrIçIé:CNT!çCNT!é:‹ Iæÿ Í † :¡ Z$çÿƒ(Y$,I,)ôKw‹ TR$ç"B" Í ‹ CNT!èçFLN! Í ‹ :¡ †L|‹ Z$èæEF$ Í ‹ :¡ †&L‹ CNT!èçFLN! Í ‹TL†‹ ÿ£() Í  :¡ DMMY$ç…$(ÿ¤(),#):‰ †sL‹‹ TR$ç"P" Í ‹ Z$çLF$ Í r¨L‘#,Z$;:‹ TR$ç"P" Í ‹ Z$çCR$ Í ‘ Z$;: I:‰ rÅL•‹ TR$ç"B" ï Z$çLF$ Í rÕLš‘ Z$;:‰ rÝL0:ÙTM5‚ Iç Ì ÿ’(Y$):Z$çÿƒ(Y$,I,):‹ Z$çLF$ Í ? :¡ ‹ Z$èæCR$ Í ‘#,Z$;:‘ Z$;:‰ ? :¡ ‘ #," "éCR$;:‘ CR$;:B$ç"": DdM:‹ ABORT Í ŽlM?ƒ:ŽˆMD‹ ÿ’(B$)æ Í ABORTçê:Ž§MI‹ (ÿ(LSR) î `)èæ` Í IÎMN‹ DEL!æ Í Ä ÿ,ëDEL!:Ä ÿ,:Ž(NSZ$ç"":±é Ó ÿ£():Z$çZ$é…$(ÿ¤(),#):²:‘ Z$;:‹ Z$ç"" Í Z$çÿ–() :¡ ‹ ÿ’(Z$)æ€ Í Z$ç""\NXPçØ(Z$,PROMPT$):B$çÞ:‹ Pèæ ï B$ç" " Í Ž :¡ DdN]:ÙlN”:Ù”Nž‘"===RECEIVE FILE WITH XMODEM===":‘¶N£Y$ç"":BLKç:SECç:CKç:ECNTçåN¨‘"***Holding for Start...": o:‘#,NAK$;O­ =:‹ ABORT Í % :¡ ·O² ):‹ Z$ç"" Í Á Í Ž :¡ TENSECçê:ŽŽZƒ‹ SECZè Í  y:SECZçSECZé:Ž :¡ ABORTçê:Ž–Z„:ÙžZˆ:ÙÊZ’Å:À:‘:‘"===COMMUNICATIONS PARAMETERS===úZ—‘:‘"Present parameters: ";: ì:‘"Options:8[œ‘" 1 - 300,E,7,1 (text) 2 - 300,N,8,1 (binary)v[¡‘" 3 - 1200,E,7,1 (text) 4 - 1200,N,8,1 (binary)¡[¦‘ ÿ˜();"F - reset params to defaultsÄ[«‘ ÿ˜();"X - exit to terminalÕ[°‘"Choose: ";è[µQ$ç…$(): û ,\º‹ Q$ç"X" Í ‘ Q$:‘:‘"(present parameters still in effect)":‰ çm\¿‹ Q$ç"F" Í ‘ Q$: ·:‘:‘"Parameters reset to:";: ì:‰ ç—\ÄQçÿ”(Q$):‹ Qè ï Qæ Í Å:‰ µ :¡ ‘ QÀ\ÉBAU$ç"300":PAR$ç"E":DTA$ç"7":STP$ç"1Ý\΋ Qç Í PAR$ç"N":DTA$ç"8ô\Ó‹ Qç Í BAU$ç"1200]Ø‹ Qç Í BAU$ç"1200":PAR$ç"N":DTA$ç"8s]ÝÊ ,,:COMM$çCOMMPORT$éBAU$é","éPAR$é","éDTA$é","éSTP$éCOMMINIT$:»#:º COMM$ AS #˜]â‘:‘"New parameters are: ";: ì®]ç‘ GO$: ð
:‰ Ø]ì¿ BG,FG:‘ ÿƒ(COMM$,,
);:¿ FG,BG:‘:‘^ñ‘"Echo-";:‹ ECHçê Í ‘"Y"; :¡ ‘"N";)^ö‘" Mesg-";:‹ MSGçê Í ‘"Y"; :¡ ‘"N";V^û‘" Strip-";:‹ NSç Í ‘"N"; :¡ ‘ ×"#";NS;~^‘" Pace-";:‹ PC$ç"" Í ‘"N" :¡ ‘ PC$_‹ NSç Í ‘:Ž :¡ ‚ Iç Ì NS:‘"Strip #";:‘ ×"#";I;:‘" - /";:‘ ×"###";ÿ•(S$(I));:‘"/";:‹ R$(I)ç"" Í ‘"000"; :¡ ‘ ×"###";ÿ•(R$(I));_
‘"/":ƒ:‘:Ž_:Ù!_P:Ù‚_ZÀ:Å:‘"===SET NEW DEFAULTS===":‘:¿ BG,FG:‘" Present program defaults:";ÿ˜(5);:¿ FG,BG:EXITç³__‚ Iç Ì DFNUM:JçIé:Pç:‹ Iæ Í JçIê :Pç á_dÊ J,P,:‘ DP$(I);:Ê J,Pé:Q$çD$(I): T `i‹ Iè Í ‘ ÿ˜( êÿ’(D$(I))); :¡ ‘ ÿ˜(êÿ’(D$(I)));T`nƒ I:Ê ,,:‹ EXIT Í   :¡ ‚ Iç Ì DFNUM:DT$(I)çD$(I):ƒÑ`sÊ ,:¿ BG,FG:‘" Enter ";ENT$;" to leave unchanged - ";ENT$;" for 'null' value - ";ENT$;" to quit ":¿ FG,BG"ax‘"*** Enter new values":ABORTç:‚ Iç Ì DFNUM:JçIé:Pç:‹ Iæ Í JçIê :Pç 4a}‹ ABORT Í ‘ea‚‹ D$(I)èæ"" Í Ê J,Pééÿ’(D$(I)) :¡ Ê J,Pé€a‡‹ Iæ Í QLç :¡ QLçÞaŒ Ä :‹ Q$çÿ–() Í  _
: _
:ABORTçê :¡ ‹ Q$èæ"" Í DT$(I)çQ$:‹ DT$(I)ç" " Í DT$(I)ç""äa‘ƒb– ¯:‘"*** New values ok (y/n)?";:Q$ç…$():‘ Q$: û :‹ Q$ç"N" Í  ¯:Ê ,:‘ ÿ˜(O);:Ê ,:‘"(default routine cancelled)":‰ ª :¡ ‚ Iç Ì DFNUM:D$(I)çDT$(I):ƒc›EXITçê: ¯:‘"*** Make these changes permanent (y/n)?";:Q$ç…$():‘ Q$é" ...wait";: û :‹ Q$ç"Y" Í  @:‰ _ :¡  à:‰ _-c  ·:»#:º COMM$ AS #Oc¥ ¯:Ê Ûê,:‘ ÿ˜(O);:Ê Û,pcª¿ FG,BG,BG:‘ GO$: ð
:‰ Žc¯Ê ,:‘ ÿ˜(O);:Ê ,:Ž–c:ÙËcŒ ":‚ Iç Ì DFNUM:‡ DP$(I),D$(I):ƒ: @:‰ ,d"„ Baud rate,300,Parity,E,Data bits,7,Stop bits,1,Echo,N,Messages,N’d'„"Strip #1",0,Replace #1,0,"Strip #2",0,Replace #2,0,"Strip #3",0,Replace #3,0,Pacing p=,,Logged drive,"B:",Margin width,70àd,„ Screendump file,"B:SCRNDUMP.PCT",Redial delay,20,Connect prompt,CONNECTe1„ Line 25 help,Y,Foreground,7,Background,0,High inten.,15Ye6„ "Print port","LPT1:","Print init.",,"Print width",80¡e;„ Comm. port,"COM1:",Comm. init.,",CS,DS",Modem init.,,C/R subst.,}ýe@»#:º FFIL$ ‚ OUTPUT AS #:·#,IFIL$:‚ Iç Ì DFNUM:·#,DP$(I),D$(I):ƒ:·#,IFIL$: à:Žfà:Ù5fåBAU$çD$():PAR$çD$():DTA$çD$():STP$çD$()mfêIç: ­:‹ D$()ç"Y" Í DECHçê :¡ D$()ç"N":DECHç¥fïIç: ­:‹ D$()ç"Y" Í DMSGçê :¡ D$()ç"N":DMSGçÇfôDNSç:‚ Jç Ì :IçëJé: ² gùDS$(J)çÿ–(ÿ”(D$(I))):‹ DS$(J)èæÿ–() Í DNSçDNSé :¡ D$(I)ç"0"'gþƒ:‚ Jç Ì :IçëJé: ²egDR$(J)çÿ–(ÿ”(D$(I))):‹ DR$(J)çÿ–() Í DR$(J)ç"":D$(I)ç"0"–gƒ:‹ D$(
)èæ"" Í DPC$ç"=P"éD$(
) :¡ DPC$ç""¿g
D$()çÿ(D$(),)é":":DRIV$çD$()hMARGçÿ”(D$()):DUMP$çD$():QDELAYçÿ”(D$()):CONNECT$çD$()2hIç: ­:‹ D$()ç"N" Í MENUç :¡ MENUçê`hFGçÿ”(D$()):BGçÿ”(D$()):HIçÿ”(D$())h!PRNTPORT$çD$():PRNTINIT$çD$():  PRNTPORT$,ÿ”(D$())öh&Iç: ­:COMMPORT$çD$():‹ COMMPORT$ç"COM1:" Í LSRç ý:LCRç û :¡ LSRç ý:LCRç ûii+COMMINIT$çD$():DCOMM$çCOMMPORT$éBAU$é","éPAR$é","éDTA$é","éSTP$éCOMMINIT$:MODMINIT$çD$():XCR$çÿ(D$(),)ui0 ·:Ž}i¨:Ù›i­Q$çD$(I): û :D$(I)çQ$:ŽÏi²‹ ÿ”(D$(I))è ï ÿ”(D$(I))æÿ Í D$(I)ç"0":Ž :¡ Žòi·COMM$çDCOMM$:ECHçDECH:MSGçDMSG6j¼NSçDNS:‚ Jç Ì :IçëJé:S$(J)çDS$(J):R$(J)çDR$(J):ƒ:PC$çDPC$:Ž>jÁ:ÙFjp:ÙrjzÅ:»#:º DFIL$ AS #:‹ DPAGEç Í DPAGEççjþ‚ #, AS N$,$ AS R$, AS X$, AS B$, AS P$, AS D$, AS S$, AS E$, AS M$, AS T$, AS C$, AS L$, AS G$k„þ‰#,:‹ ÿ(N$,ÿ’(IFIL$))èæIFIL$ Í I1ç:I2ç<: Ö'k‰:ÙPkŽI1ç(DPAGEê)ëé:I2ç(DPAGEê)ëé€k“À:Ê ,,:‘"===DIALING DIRECTORY "DPAGE"===Ók˜þ‰#,:MODM$çÿ‚(R$,ý(X$)):Ê ,:‘" Modem dialing command = ";:Q$çMODM$: T &lþ‰#,:SERV1$à<ÄÉÒ|!µ ·:»#:º COMM$ AS #:‘#,MODM$éDIAL$:STRT$çþŽ:‘:Ê,,:Ž2t:Ùit ô:Ê ,,:‘"Revise/add entry #: | or...™t
Ê ,':‘"Enter: M to change modem commandÈtÊ ,+:‘"+ / - to change long distance #sótÊ ,/:‘"C to clear directory entriesuÊ ,/:‘"X to exit to dialing prompt";>uÊ ,,:QLç: Ä : û Qu#‹ Q$ç"M" Í ®du(‹ Q$ç"+" Í ³wu-‹ Q$ç"-" Í ¸’u2‹ Q$ç"C" Í  Â:‰ Ž¥u7‹ Q$ç"X" Í Žàu<‹ ÿ”(Q$)èI1 ï ÿ”(Q$)æI2 Í Å:Ê ,:‘ ÿ˜(ÿ’(Q$)):‰  vADE$çQ$:þ‰#,ÿ”(DE$)é:Qçÿ”(DE$)êI1évF:Ù@vK ô:Ê ,:‘"Name: ";:QLç: Ä :NI$çQ$VvP‹ NI$ç"" Í NI$çN$~vUÊ Qé,:‘ NI$;ÿ˜(êÿ’(NI$));: þÏvZ‘"Phone number: ";:QLç$: Ä :RI$çQ$:XIçÿ’(RI$):‹ RI$ç"" Í RI$çR$:XIçý(X$)
w_Ê Qé,:‹ XIæ Í ‘ ÿ‚(RI$,) :¡ ‘ ÿ˜(êXI)éÿ‚(RI$,XI)wd:ÙYwi þ:‘"Communications parameters ok (y/n)? ";:QLç: Ä : û ’wn‹ Q$ç"Y" ï Q$ç"" Í BI$çB$:PI$çP$:DI$çD$:SI$çS$:‰ ›Ðws þ:‘"Baud rate: ";:QLç: Ä :BI$çQ$:‹ BI$ç"" Í BI$çB$òwxÊ Qé,/:‘ ÿ˜(êÿ’(BI$));BI$;3x} þ:‘"Parity: ";:QLç: Ä : û :PI$çQ$:‹ PI$ç"" Í PI$çP$Gx‚Ê Qé,4:‘ PI$;‡x‡ þ:‘"# data bits: ";:QLç: Ä :DI$çQ$:‹ DI$ç"" Í DI$çD$›xŒÊ Qé,6:‘ DI$;Ûx‘ þ:‘"# stop bits: ";:QLç: Ä :SI$çQ$:‹ SI$ç"" Í SI$çS$ïx–Ê Qé,8:‘ SI$;÷x›:Ù>yœ þ:‘"Are the remaining parameters ok (y/n)? ";:QLç: Ä : û ‹y‹ Q$ç"Y" ï Q$ç"" Í EI$çE$:MI$çM$:TIçý(T$):CI$çC$:LI$çL$:GIçý(G$):‰ Ùy  þ:‘"Echo on (y/n)? ";:QLç: Ä : û :EI$çQ$:‹ EI$ç"" Í EI$çE$:‰ ªñy¥‹ EI$èæ"Y" Í EI$ç"NzªÊ Qé,=:‘ EI$;Wz¯ þ:‘"Messages on (y/n)? ";:QLç: Ä : û :MI$çQ$:‹ MI$ç"" Í MI$çM$:‰ ¹oz´‹ MI$èæ"Y" Í MI$ç"Nƒz¹Ê Qé,B:‘ MI$;‹z¾:ÙózÍ þ:Ê ,:‘"Strip/convert characters (y/n)? ";:QLç: Ä : û :‹ Q$ç"" Í TIçý(T$):CI$çC$:‰ ÿ#{È‹ Q$ç"0" ï Q$ç"N" Í TIç:CI$çÖ(,/):‰ õ;{Í‹ Q$èæ"Y" Í Å:‰ Ãj{ҍ ù:Ê ,:‘"old strip/cnvt string: ";C$Ò{×Ê ,:‘"change this (y/n)? ";:QLç: Ä : û :‹ Q$èæ"Y" Í TIçý(T$):CI$çC$:Ê ,:‘ ÿ˜();:‰ ÿK|ÜÊ ,:‘"(please refer to instructions in the documentation)";:Ê ,:‘"new strip/cnvt string: ";:QLç: Ä :CI$çQ$h|áCI$çCI$éÖ(êÿ’(CI$),/)Î|æÊ ,(:‘"new string ok (y/n)?";ÿ˜();:Ê ,=:QLç: Ä : û :‹ Q$ç"N" Í Ê ,:‘ ÿ˜(O):‰ Üó|ëPçØ(CI$,"//"):‹ Pç Í TIç:‰ ÿ}ð‹ P ó èæ Í Å:‰ Ò :¡ TIçPìF}õ ù:Ê Qé,G:‹ TIç Í ‘ "N" :¡ ‘ × "#";TIN}ú:Ù‹}ÿ þ:Ê ,:‘"Pacing? p=";:QLç: Ä :LI$çQ$:GIçÿ’(LI$)Ò}‹ Q$ç"0" ï Q$ç"N" ï Q$ç"n" Í LI$ç"N":GIç:Ê Qé,K:‘" N ";:‰ ø} ‹ LI$ç"" Í LI$çL$:GIçý(G$):‰ ~Ê Qé,K:‘ "p="éLI$éÿ˜(êGI)!~:Ù°~•þ… N$çNI$:þ† R$çRI$:þ… X$çý„(XI):þ† B$çBI$:þ… P$çPI$:þ… D$çDI$:þ… S$çSI$:þ… E$çEI$:þ… M$çMI$:þ… T$çý„(TI):þ… C$çCI$:þ… L$çLI$:þ… G$çý„(GI)ú~š ù:Ê ,:‘"Is entry #";DE$;" ok (y/n)? ";:QLç: Ä : û :Q1$çQ$,Ÿ‹ Q1$èæ"Y" î Q1$èæ"" Í Ê ,:‘ ÿ˜(#);:‰ FE¤þˆ#,ÿ”(DE$)é:‰ ŽM©:Ù‰® ô:MSG$ç"Modem dialing command:": ½:þˆ #,:‰ ŽÀ³ ô:MSG$ç"Long distance +#:": ½:þˆ #,:‰ Žö¸ ô:MSG$ç"Long distance -#:": ½:þˆ#,:‰ Ž`€½Ê ,:‘ MSG$;ÿ˜(Oêÿ’(MSG$));:Ê ,ÿ’(MSG$)é:QLç$: Ä :RI$çQ$:XIçÿ’(RI$):þ† R$çRI$:þ… X$çý„(XI):Žh€Â:Ù¿€Ç ô:Ê ,:‘"Clear directory from entry #:";:QLç: Ä :I1çÿ”(Q$):‹ I1è Í I1ç=Ì‘" ... through entry #:";:QLç: Ä :I2çÿ”(Q$):‹ I2æ< Í I2ç<EÑ‘:‘"-- Are you sure (y/n)? ";:QLç: Ä : û :‹ Q$èæ"Y" Í ŽсÖþ… N$çIFIL$:þ… R$ç"":þ… X$çý„():þ… B$ç"":þ… P$ç"":þ… D$ç"":þ… S$ç"":þ… E$ç"":þ… M$ç"":þ… T$çý„():þ… C$ç"":þ… L$ç"":þ… G$çý„():þˆ#,ïÛ‹ MODM$ç"" Í MODM$ç"ATDT"v‚àþ… N$ç"":þ† R$çMODM$:þ… X$çý„(ÿ’(MODM$)):þˆ#,:þ† R$çSERV1$:þ… X$çý„(ÿ’(SERV1$)):þˆ#,:þ† R$çSERV2$:þ… X$çý„(ÿ’(SERV2$)):þˆ #,¿‚åþ… N$ç"------------------------":þ† R$ç"- --- --- ----":þ… X$çý„()2ƒêþ† B$ç"300":þ… P$ç"E":þ… D$ç"7":þ… S$ç"1":þ… E$ç"N":þ… M$ç"N":þ… T$çý„():þ… C$çÖ(,"/"):þ… L$ç"":þ… G$çý„()Oƒï‚ IçI1 Ì I2:þˆ#,Ié:ƒ:ŽWƒô:Ù•ƒùÊ ,,:‘ ÿ˜(4);:‚ Iç Ì :Ê I,:‘ ÿ˜(O);:ƒ:Ê ,,:Ž·ƒþÊ ,,:‘ ÿ˜(O);:Ê ,,:Ž¿ƒ:ÙǃX:ÙރbÅ:‹ KPGç Í KPGç „gÊ ,',:‘ ÿ–(Õ)éÖ(&,Í)éÿ–(¸)B„lÊ ,':‘ VL$;" ===FUNCTION KEY DIRECTORY=== ";VL$„qÊ ,':‘ VL$;ÿ˜();:¿ HI,BG:‘ KPG$(KPG);:¿ FG,BG:‘" F1-10";ÿ˜(
);VL$҄vÊ ,':‘ VL$;:¿ BG,FG:‘"F- Input String";ÿ˜();:¿ FG,BG:‘ VL$ð„{‚ Iç Ì 
:Pç(KPGê)ë
éI…€Ê Ié,',:‘ VL$;:‘ × "##";I;:‘" = ";4…ŠQ$çÿ(K$(P),!): T W…‘ ÿ˜(!êÿ’(Q$));éVL$é" ";:ƒ I~…”Ê ,',:‘ ÿ–(Æ)éÖ(&,Í)éÿ–(µ)†…¼:Ù̅Á  :Ê ,(,:‘"Press: R to revise ";KPG$(KPG);"-F assignmentsú…ÆÊ ,,:‘"F / B to page through directory†ËÊ ,0:‘"X to exit to terminal;†ÐÊ ,.,:Q$ç…$(): û N†Õ‹ Q$ç"R" Í  Œ†Ú‹ Q$ç"X" Í »#: Œ
:  :Ê ,(:‘ GO$;:Ê ROW,COL:‰ Ćß‹ Q$ç"F" Í KPGçKPGé:‹ KPGç Í KPGç:‰ g :¡ ‰ gü†ä‹ Q$ç"B" Í KPGçKPGê:‹ KPGç Í KPGç:‰ g :¡ ‰ g‡éÅ:Ê ,L:‘ ÿ˜(ÿ’(Q$)):‰ Ð%‡ :ÙY‡%  :»#:º KFIL$ AS #:þ‚ #, ~ AS K$, AS L$†‡*þ‰#,:‹ ÿ(K$,ÿ’(IFIL$))èæIFIL$ Í  ¯‡/Ê ,(:‘"Press Func. key to revise:և4Ê ,+:‘"or X to exit to terminal ˆ9Ê ,B:Q$çÞ:‹ Q$ç"" Í 9 :¡ ‹ ÿ’(Q$)æ Í HMˆ> û :‹ Q$ç"X" Í »#: Œ
: :Ê ,(:‘ GO$;:Ê ROW,COL:‰ YˆCÅ:‰ 9nˆHQçÿ•(ÿƒ(Q$,,))µˆM‹ Qæ: î QèE Í Kç(KPGê)ë
éQê::Q$çKPG$(KPG)é"-F"éÿ“(Qê:):‰ fëˆR‹ Qæg î Qèr Í KçQê]:Q$ç" Alt-F"éÿ“(Kê
):‰ f!‰W‹ QæS î Qè^ Í KçQê?:Q$ç"Shft-F"éÿ“(Kê):‰ fW‰\‹ Qæ] î Qèh Í KçQê?:Q$ç"Ctrl-F"éÿ“(Kê):‰ fc‰aÅ:‰ 9v‰fKYçK:þ‰#,KYé~‰k:ÙÁ‰p :Ê ,:‘"New input string for ";Q$;":":Ê ,:‘ Ö(P,Ä)þ‰uÊ ,:‘"Use ";XCR$;" as substitute for carriage returns)ŠzÊ ,:‘ ENT$;" to leave key unchangedSŠÊ ,:‘"";ENT$;" to clear key{Š„Ê ,:‘ ÿ–();:QLç~: Ä :KI$çQ$‘Š‰‹ KI$ç"" Í KI$çK$§ŠŽ‹ KI$ç" " Í KI$ç"¶Š“LIçÿ’(KI$)¾Šè:ÙãŠíþ… K$çKI$:þ… L$çý„(LI):þˆ#,KYé ‹ò‹ Q$ç"0" Í K$(
)çKI$: :‰ g$‹÷K$(KY)çKI$: :‰ g,‹ü:ÙL‹þ… K$çIFIL$:þ… L$ç"":þˆ#,{‹þ… K$ç"":þ… L$çý„():‚ Iç Ì ):þˆ#,I:ƒ:Žƒ‹ :Ù¶‹‚ Iç Ì :Ê I,',:‘ VL$;ÿ˜(&);VL$;" ";:ƒê‹Ê ,':‘ ÿ–(Ô);Ö(&,Í);ÿ–(¾);" ";:Ê ,,:Ž ŒÊ ,,:‘ Ö(P,Í);:‰ $ ŒÊ ,,:‘ ÿ˜(P);[Œ$‚ Iç Ì :Ê I,:‘ ÿ˜(P);:ƒ:Ê ,:‘ ÿ˜(O);:Ê ,,:ŽcŒ):ÙkŒ@:ÙʌJÀ:MSG$ç" Redialing... *** HIT ANY KEY TO TERMINATE *** (redial started at "éþŽé")": (
OÄ ˆ,:‘ "===REDIALING ";N$;" at ";þŽ:‘#,MODM$éDIAL$T‹ Þèæ"" Í Ÿ8YÄ ÿ,à.ìÿ”(BAU$):Ä ÿ, J^‹ ÿ£() Í T_cQ1$ç…$(ÿ¤(),#)~hÄ ÿ,à.ìÿ”(BAU$):Ä ÿ,™m‹ ÿ£() Í Q2$ç"":‰ w®rQ2$ç…$(ÿ¤(),#)½wQ$çQ1$éQ2$ý|‚ Iç Ì ÿ’(Q$):Pçÿ•(ÿƒ(Q$,I,)):JçP î :ÿƒ(Q$,I,)çÿ–(J):ƒŽ‘ Q$;"Ž†‹ Ø(Q$,MODM$)èæ Í TMŽ‹‹ Ø(Q$,CONNECT$)ç Í ‰ ¤ :¡ STRT$çþŽ—ŽMSG$ç" REMOTE COMPUTER ON LINE *** HIT ANY KEY TO PROCEED ***": (
ºŽ•‹ Þç"" Í Ä X,:Ä „,:‰ •厚‘:‘"===CONNECTED WITH ";N$: ð
:‰ 7Ÿ‘#,CR$:À:Å:‘"===REDIAL TERMINATED...back in terminal mode":‘ GO$: ð
:‰ ?¤Içb©Ä ÿ,:Ä ÿ,:‹ Þèæ"" Í Ÿ†®IçIé:‹ IçQDELAY Í O :¡ ‰ ©Ž³:Ù– :Ù· ‹ STRT$ç"--" Í MLPSDç:‰  E MSTRTçÿ”(ÿƒ(STRT$,,))ë<éÿ”(ÿƒ(STRT$,,)):MSTOPçÿ”(ÿƒ(þŽ,,))ë<éÿ”(ÿƒ(þŽ,,)):MLPSDçÿ…(MSTOPêMSTRT):‹ MSTRTæMSTOP Í MLPSDçMLPSDé j Ê ,':‘ ÿ–(Õ)éÖ(&,Í)éÿ–(¸);ϐ! Ê ,':‘ VL$;" Elapsed time this call = ";:¿ HI,BG:‘ MLPSD;:‘" min ";:Ê ,N:¿ FG,BG:‘ VL$;ô& Ê ,':‘ ÿ–(À)éÖ(&,Í)éÿ–(Ù);‘+ Ê ROW,COL:‰ ‘0 :Ù‘Ä":ÙZ‘Î"Å:‘:‘"*** This program requires that you have a serial port."Œ‘Ó"‘:‘:‘"(returning to DOS)":Ä ÿ,2:Ä ÿ,:þƒÑ‘Ø"Å:Ê ,:‘"===PLEASE DO NOT BYPASS THE FREEWARE NOTICE===":‰ Ó"ø‘Ý"¿ HI,BG:‘"<<";MSG$;">>";:¿ FG,BG:Ž0’â"‹ Õç4 ï Õç@ ï ÕçC Í MSG$ç"Not a valid file name.S’ç"‹ Õç5 Í MSG$ç"File not found.’ì"‹ ÕçF Í MSG$ç"Disk is write protected.¤’ñ"‹ ÕçG Í MSG$ç"Check disk drive.ɒö"‹ ÕçH Í MSG$ç"Disk media error.ϒû"Ž×’#:Ùߒ(#:Ùô’2#‹ Ôç× Í ¨  “7#‹ Ôçá Í ¨ õ “<#‹ Ôç! Í ¨ &1“A#‹ Ôç© Í ¨ õz“F#‹ Õç Í Å:MGS$ç"CHECK PRINTER": Ý":PRç:‹ ÔçJ Í ¨  :¡ ¨ 4 ؓK#‹ Ôç  Í Å: ¯:‘ Î)"*** Invalid communications parameters. Try again.";:EXITç:¨ _%”P#‹ ÔçG î Õç@ Í Å:Ê ,:‘"*** Invalid parameters for entry #";Q$:¨ j”U#‹ Ôçe Í Å:Ê ,:‘"*** Invalid stripping for entry #";Q$:¨ ã”Z#‹ Õç Í MSG$ç"TIMEOUT": Ý":‹ PR Í PRç:MSG$ç"PRINTOUT OFF": Ý":PRçO:»#:¨ 4 :¡ MSG$ç"CHECK MODEM": Ý":¨ .•_#‹ Õç9 Í MSG$ç"": Ý":‹ RC$ç"X" Í ¨ ­ :¡ ‹ TC$ç"X" Í ¨ u :¡ ¨ –•d#‹ ÕçE Í ‘#,XF$;:PSEçê:MSG$ç"OVERFLOW": Ý":‹ Ó PR Í ¨  :¡ MSG$ç"PRINTOUT OFF":PRç:»#:¨ ޕi#‹ Õç î Ôç” Í MSG$ç"OVERFLOW--PRINTOUT OFF": Ý":PRç:»#:¨ –n#‹ Ôç8 Í Å:‘"*** File(s) not found. Try again.":¨ =L–s#‹ Õç= î RC$ç"X" Í Å:‘"*** DISK IS FULL":¨ %‰–x#‹ Õç= Í Å:‘:‘"===DISK IS FULL===":‹ RC Í ¨ ¸ :¡ ¨ ìՖ}#‹ Ôçâ Í Ê ,(:¿ HI,BG:‘"***CAN'T OPEN ";DUMP$;"***";:Ê ROW,COL:¨ ì
—‚#‹ ÕçC î Ôç  Í ‘"*** Either too many files, orI—‡#‹ Ôç  Í MSG$ç"": â":Å:‘"*** ";MSG$;" Try again.":¨ ¬
䗌#‹ ÕçC ï ÕçF ï ÕçG Í Å:‘"*** Can't read/write file in the default drive.":‘"Correct and hit any key to resume..":Q$ç…$():‹ Ôè Í ¨ × :¡ À:¨ ÷—‘#‹ ÕçD Í ‰ Î"˜›#‹ Õç> î Ôç\
Í ¨ a
˜¬&:Ùo˜±&»:Å:MSG$ç" Sorry, NON-RECOVERABLE ERROR "éÿ“(Õ)é" at line"éÿ“(Ô): (
:• § ‰ |˜'„ 830909

  3 Responses to “Category : Communication (modem) tools and utilities
Archive   : PC-TALK.ZIP
Filename : PC-TALK.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/