' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` PP>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(F3 @Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# uPEnter up to 10 Lines of Text ...":CI0:235%5700V%CI9Ğ:"->";::" ";:5650b%"-> ";j%GI%(GT$,1)(155)5680%&CICI1:I$(CI)(GT$,1):CI105630%0CI05790%:34,4:5710%D216,0:34,4:CI10*&N16:CE:1:" ":15:CE10:" -> ___":10:5:"";Z$;$(Z$)1ĹTM,X:DP,X1::20G$A(Z$)X$ACTACT1e$A1A1$6:958:7:A;" ";A$(A)$15:"To terminate insertion press the key"$"marked ";::"ESC";::" at the beginning of a line.":34,16*%21:"MON C,I,O"#<(UM)İ100:20/#F:B11:4070s#|X(TM):TM,0:X1(DP):DP,O:100:6:"Line insertion routine:"#8:"Enter line # to insert text before"#12:" If you have changed your mind PRESS":" the key marked ";::"RETURN":$LOG"::5025"5150d"1:958::6:"PLEASE WAIT - LOADING ":::10:F$:34,4:2:"LINES= "s"D$;"MONI""D$;"OPEN ";F$;",D";(DD)1" D$;"READ ";F$"2:8:CT;:23::F1:CTCT1:A$(CT)(GT$,1):5140"216,0"(D$;CO$ #2D$;"NO958::6:"PLEASE WAIT - LOADING ":::10:F$:!5080\!D$;"UNLOCK ";F$;",D";(DD)1f!5100q!216,0}!14000!(222)45100!34,0::12:14:"File not found"::9:"Press ";::"RETURN";::" for Catalog";:" ";Z$:Z$ ""CATA:" PRESS SPACE TO CLEAR SCREEN":34,1 9:" If you do not wish to INPUT the FILE":" press ";::"RETURN";::" FOR THE FILE NAME." D$;"CATALOG,D";(DD)1: " File Name ______________________";:12:F$ (F$)1ĉ:::100:20/!1: ";:384:"SPACE";:380:" to HALT LISTing"::6:"Press ";:384:"RETURN";:380:" to QUIT LISTing":xIB1CTI10ĺ" ";I" ";A$(I)X(16384):X141Ĺ16368,0:4150"X127Ĺ16368,0:Z$:"",Z$(13)Ă6::20' :M)4030h7:"Press ANY Key to STOP LISTing":::"Press ";::"RETURN";::" to start with LINE # 1"16:" Starting Line Number -> 1__";:868:((36)2):"";B1$:B1(B1$)B1CTB1CTB1$""B11B11B11100k6:6:"PressPH$.D$;"PR#0",8(1656MS)1273670B16368,0::9:"NO ANSWER OR BUSY":12:"TRY ";PH$;" AGAIN ? Y";:(36):Z$:Z$LZ$"N"3570VX(1625016MS)`((X8(X8))8.05)(X8)4ĹCR,128:LC,128jM1:100:20100(UURN";::" to ABORT"0 PH$"_________________"^ 16:" PHONE # ";:868:PH$;:10:"";PH$q (PH$)13670 19:"Is the PHONE # Correct ? N";:(36):Z$:Z$:Z$"Y"3540 D$;"PR#";MS (26):6I1600:PH$(17)PH$$GI26:MTGI27:SKGI28:LCGI29:UMGI31= A$(500),I$(10)J 100:20 (MT)İ100:12:" Phone Dialing supported only with"::12:"Micromodem II":20 100:8:"Phone DIALing Routine" :"Enter the NUMBER to be DIALED"::"Press ";::"RETASE INSERT INITIALIZED DISKETTE AND PRESS RETURN"~ D$(4):MO$"MON C,I,O":NM$"NOMON C,I,O" GI2051:CE868:XB0:BU1) ER0:CT0:S2GI6:F1GI9:M1GI12:DPGI15:A1GI18:BDGI19:CRGI20:MS(GI22):TMGI24:DDOPYRIGHT (C) 1980 X  SOUTHEASTERN SOFTWARE :" ":6:5:" ":<a:3:9:"DO NOT CONFIGURE THIS"~:12:"MASTER DISKETTE"10:5:"MAKE A BACKUP OF THIS DISKETTE":8:"AND CONFIGURE THE BACKUP":23  C:10:" CONFIGURED DISKETTE"Q17::5:" ":18::5:" ";::9:"TO RUN DATA CAPTURE 4.0";::36:" ":5::" ";::10:"BOOT WITH A CONFIGURED";::36:" ":5:" ";::8:"DATA CAPTURE 4.0 DISKETTE";::36$;"LOCK DCAP 4.0 LOADER":D$;"LOCK DCAP 4.0.M":D$;"LOCK DATA CAPTURE 4.0":D$;"LOCK TRANSFER DCAP 4.0 LOADER":3:9:"CONFIGURATION COMPLETE"7:10::" STOP ";::" ";::" STOP ";::" ";::" STOP ":10:10:"MAKE A BACKUP OF THIS""IN#0"50%DP,0:100:20@5%100:6:"WRITE to File routine :"5%9:"If you do not wish to SAVE the FILE":" press ";::"RETURN";::" for the FILE NAME."5%13:" File Name ______________________";:12:F$5%(F$)1İ100:20+6%16:"ENTER FIR4$(26)L4$:6:2:"DATA CAPTURE 4.0 ";:Z$"N"Ğ:" UNATTENDED MODE ":l4$Z$"N"ĺ" ATTENDED MODE":4%10:9:" AWAITING CALL":16:" Press key marked ";::"RETURN";::" to ABORT ";:" ";LL$:LL$4%Z$"N"ĹUM,1:95204%D$;"PR#0"5&%D$;3F#(SK)ĹSK,128:9050$3P#SK,013Z#100:203$:(MT)İ100:12:" PROGRAM CAN ONLY AWAIT CALLS WITH THE"::" D.C. HAYES MICROMODEM II":203$UM,03$6:" Will the Computer be ATTENDED ? Y";:(36):Z$:Z$3$D$;"IN#";MS3$D$;"PR#";MS 282602 X(1625016MS)B2 X((X8(X8))8.05)(X8)P2 X48260f2& X(1624916MS)20 X(16384):X171X187Ĺ16368,0:82602: 82002D 216,0:D$;"PR#0":CR,128:LC,1282N 100:202(#(TM)ĹTM,0:902022#TM,1283<#100:20" OFF ":K112:"Do you want to CHANGE the CARRIER ? N";:(36):Z$:Z$a1Z$"Y"İ100:201(LC)Ĺ1625116MS,136:LC,0:100:201:9::" AWAITING REMOTE CARRIER "::12:"Press key marked '+' to ABORT"1D$;"PR#";MS:1D$;"PR#0" 500::8::" *** TEXT SENT *** ":::20K0@(BD)0ĹBD,128:8030`0J(BD)128ĹBD,0h0^M1u0h100:200(MT)İ100:9:"Carrier Toggle only with Micromodem II":200100:9:"The LOCAL CARRIER is ";::" ON ": 1(LC)0Ģ9:22::" To STOP the SENDing of text"::5:" Press the key marked '+'"S/QD$;"PR#";MS`/VIKKLL/`X(16384):X171X187Ĺ16368,0:7580/t150/~LA1(A$(I))/(A$(I),LA,1);:/:CN1100::/(UM)7600//D$;"PR#0"025;" ";.LA1(A$(I))5.A1,((A$(I),LA,1)):S2b. X(16384):X171X187Ĺ16368,0:7240h.w. A1,13:S2.*CN1600:.4(CR)1287240.>.H.MD$;"NOMON O".R255.\::10::" *** TEXT SENT *** ":::20B/L:9:5:-(Z$)1İ100:20%-LLKKLLKK6-LLCTLLCTG-(DP)7500-:100:9:5:" To STOP the SENDing of text"::5:" Press the key marked '+'":-IKKLL-X(16384):X171X187Ĺ16368,0:7240-(A$(I))1ĹA1,32:S2:7200.It LIne # to SEND -> ___";:(36)3:" ";Z$:KK(Z$):K,l(Z$)1İ100:20h,vZ$"A"KK1:LLCT:7100w,KK1KK1,KKCTKKCT,18:"Press ";::"RETURN";::" to ABORT":20:" Last Line # to SEND -> ___";:(36)3:" ";Z$:Z$:LL(Z$):OUR DATA"D+(1656MS)127(MT)0Ģ3:10::" PHONE OFF-HOOK ":^+22:" GOTO 1000":21+1010,191:1011,157:1012,56++X100:9:"Send Routine :":11:"Press ";::"RETURN";::" to ABORT"5,b13:13:"Enter an 'A' for ALL":15:"or Firs(26):D$;"PR#0":LC,0.*CN1400::100:20s*34,0::9:" Are you SURE you want to QUIT ? N";:(36):Z$:Z$*Z$"Y"İ100:20 +:9:".... Done":12:" IF YOU HAVE QUIT BY MISTAKE THEN TYPE"::15);"GOTO 1000"::4);" AND YOU MAY RECOVER Y"Press ";::"RETURN";::" to QUIT PRINTing":E)D$;"PR#";(2072)Q)IALLk)(A$(I))0A$(I)" "v)A$(I))X(16384):X141Ĺ16368,0:D$;"PR#0":ILL:100:20))D$;"PR#0")100:20)d)n(MT)İ100:20*xD$;"PR#";MS::(Z$)1İ100:206(A(Z$):Z$"A"A1:LLCT:5920f(ACTČCE:" No line number = ";A;"":5840s(A1A1(20:" Ending line #"::" -> ___ ";:((36)3):"";LL$:LL(LL$):(LL$)1İ100:20( LLCTLLCT((LLA)LLA/) 6:958:6: WHEN UNMANNED":20' ''6:958:"To print ALL text in buffer type an 'A' ":"Or type beginning Line # OF PRINTing"'16:" If you have changed your mind press":" the key marked ";::"RETURN":(12:CE:" -> ___":12:5:"";Z$::1:" PLEASE WAIT -- INSERTING TEXT ":7&XCTCTCII&bICTACI1\&lA$(I)A$(ICI)c&vIo&I1CI&A$(AI1)I$(I)&I&:TM,X:DP,X1:B1A:4070&14000&:100:6:" Printer Routine :"'(UM)İ100:::" NO PRINTING:" PRESS SPACE TO CLEAR SCREEN":34,1 9:" IF YOU DO NOT WISH TO INPUT THE FILE":" PRESS ";::"RETURN";::" FOR THE FILE NAME." D$;"CATALOG,D";(DD)1: " FILE NAME ______________________";:12:F$ (F$)1ĉ:::100:20/!1: ";:384:"SPACE";:380:" TO HALT LISTING"::6:"PRESS ";:384:"RETURN";:380:" TO QUIT LISTING":xIB1CTI10ĺ" ";I" ";A$(I)X(16384):X141Ĺ16368,0:4150"X127Ĺ16368,0:Z$:"",Z$(13)Ă6::20' :M)4030h7:"PRESS ANY KEY TO STOP LISTING":::"PRESS ";::"RETURN";::" TO START WITH LINE # 1"16:" STARTING LINE NUMBER -> 1__";:868:((36)2):"";B1$:B1(B1$)B1CTB1CTB1$""B11B11B11100k6:6:"PRESSPH$.D$;"PR#0",8(1656MS)1273670B16368,0::9:"NO ANSWER OR BUSY":12:"TRY ";PH$;" AGAIN ? Y";:(36):Z$:Z$LZ$"N"3570VX(1625016MS)`((X8(X8))8.05)(X8)4ĹCR,128:LC,128jM1:100:20100(UURN";::" TO ABORT"0 PH$"_________________"^ 16:" PHONE # ";:868:PH$;:10:"";PH$q (PH$)13670 19:"IS THE PHONE # CORRECT ? N";:(36):Z$:Z$:Z$"Y"3540 D$;"PR#";MS (26):6I1600:PH$(17)PH$$GI26:MTGI27:SKGI28:LCGI29:UMGI31= A$(500),I$(10)J 100:20 (MT)İ100:12:" PHONE DIALING SUPPORTED ONLY WITH"::12:"MICROMODEM II":20 100:8:"PHONE DIALING ROUTINE" :"ENTER THE NUMBER TO BE DIALED"::"PRESS ";::"RETASE INSERT INITIALIZED DISKETTE AND PRESS RETURN"~ D$(4):MO$"MON C,I,O":NM$"NOMON C,I,O" GI2051:CE868:XB0:BU1) ER0:CT0:S2GI6:F1GI9:M1GI12:DPGI15:A1GI18:BDGI19:CRGI20:MS(GI22):TMGI24:DD000">V;(222)9ė:6:DK$:152100>`;:6:DR$E>j;"";Z$::15070G>B;216,0^>L;14000}>V;(222)9ė:6:DK$:15210>`;:6:DR$>j;"";Z$::15070":15070G:D$;OO$;XB;",D";(DD)1(=:D$;WO$;XB==:I1CT:A$(I):I=;D$;CO$q=;I1CT:A$(I)"":::CT1:A$(CT)T1$}=;D$;NM$=;X(0)=$;216,0=.;(UM)ĺD$;"PR#";MS:A1,17:S2=0;2672,96=2;A1,17:S2=4;2672,74=8;100:20=B;216,0>L;14RESET ERROR":14110<714000@< 7:" CONTROL C ERROR":14110L<714000X<714000m<(7I1400::1000x<:216,0<:T1$(GT$,1)<:(UM)ĺD$;"PR#0"<:XBXB1<:2672,96<:A1,(2074):S2<:2672,74<:D$;MO$<:CTCT1<:15170=0:UM,0:GI3!;B'A$(500),I$(10).;L'100:20A;.:D$;"PR#";MSL;.(27)];.(UM)12040l;.D$;"PR#0"u;/100};/20;6216,0:3288:255:;6ER(222);6ER2014060;6ER25514080;6ER10715000;6ER7715030;614000<6:" SS RETURN"8:'D$(4):MO$"MON C,I,O":NM$"NOMON C,I,O"V:$'GI2051:CE868:XB0:BU1:.'ER0:CT0:S2GI6:F1GI9:M1GI12:DPGI15:A1GI18:BDGI19:CRGI20:MS(GI22):TMGI24:DDGI26:MTGI27:SKGI28:LCGI29:UMGI31 ;8'SK,0:DD,0:TM,128:DP,NCOMPLETE SAVE "::" INSERT INITIALIZED DISKETTE AND RESAVE ":H9&20 :'GT$"X"::OO$"OPEN OVERFLOW-":WO$"WRITE OVERFLOW-":CO$"CLOSE":DR$"DISK ERROR":DK$" DISK FULL ERROR - PLEASE INSERT INITIALIZED DISKETTE AND PRE - SAVING ":::6:F$+8%D$;"UNLOCK ";F$@8&D$;"DELETE ";F$K8 &216,0V8&9820v8 &D$;"OPEN ";F$;",D";(DD)18*&D$;"WRITE ";F$84&IKKLL8>&A$(I)8H&8R&D$;CO$8\&216,08f&1008p&(222)99860@9z&12::4:" DISKETTE FULL -- I" ";F$7%974047%D$;"UNLOCK ";F$;",D";(DD)17%34,0::10:F$;"":X$"--------------------------":L(F$):(X$,L)::"FILE ALREADY EXISTS"7%:"Do you wish to overwrite it? N";:(36):Z$:Z$7%Z$"Y"İ100:208%:::6:" PLEASE WAITST LINE # > ";Z$:KK(Z$):(Z$)1İ100:20H6%Z$"A"KK1:LLCT:9640W6%KK1KK1h6%KKCTKKCT6%18:" ENTER LAST LINE # > ";Z$:LL(Z$):(Z$)1İ100:206%LLKKLLKK6%LLCTLLCT7%12:958:14::6:" PLEASE WAIT - SAVING ":::0D$;"PR#0"0255G0::8::" *** TEXT SENT *** ":::20b0@(BD)0ĹBD,128:8030w0J(BD)128ĹBD,00^M10h100:200(MT)İ100:9:"CARRIER TOGGLE ONLY WITH MICROMODEM II":201100:9:"THE LOCAL CARRIER IS ";::" ON ":":::20Y/L:9:5:" TO STOP THE SENDING OF TEXT"::5:" PRESS THE KEY MARKED '+'"j/QD$;"PR#";MSw/VIKKLL/`X(16384):X171X187Ĺ16368,0:7580/t150/~LA1(A$(I))/(A$(I),LA,1);:/:CN1100::/(UM)7600032:S2:7200.I;" ";+.LA1(A$(I))H.A1,((A$(I),LA,1)):S2u. X(16384):X171X187Ĺ16368,0:7240{.. A1,13:S2.*CN1600:.4(CR)1287240.>.H.MD$;"NOMON C,I,O".R255 /\::10::" *** TEXT SENT *** ;Z$:Z$:LL(Z$):'-(Z$)1İ100:208-LLKKLLKKI-LLCTLLCTZ-(DP)7500-:100:9:5:" TO STOP THE SENDING OF TEXT"::5:" PRESS THE KEY MARKED '+'":-IKKLL-X(16384):X171X187Ĺ16368,0:7240 .(A$(I))1ĹA1, ALL":15:"OR FIRST LINE # TO SEND -> ___";:(36)3:" ";Z$:KK(Z$):^,l(Z$)1İ100:20{,vZ$"A"KK1:LLCT:7100,KK1KK1,KKCTKKCT-18:"PRESS ";::"RETURN";::" TO ABORT":20:" LAST LINE # TO SEND -> ___";:(36)3:" "R DATA"B+(1656MS)127(MT)0Ģ3:10::" PHONE OFF-HOOK ":\+22:" GOTO 1000":21}+1010,191:1011,157:1012,56++X100:9:"SEND ROUTINE :":11:"PRESS ";::"RETURN";::" TO ABORT"+]D$;"NOMONC,I,O"H,b13:13:"ENTER AN 'A' FOR6):D$;"PR#0":LC,0,*CN1400::100:20q*34,0::9:" ARE YOU SURE YOU WANT TO QUIT ? N";:(36):Z$:Z$*Z$"Y"İ100:20+:9:".... DONE":12:" IF YOU HAVE QUIT BY MISTAKE THEN TYPE"::15);"GOTO 1000"::4);" AND YOU MAY RECOVER YOURESS ";::"RETURN";::" TO QUIT PRINTING":C)D$;"PR#";(2072)O)IALLi)(A$(I))0A$(I)" "t)A$(I))X(16384):X141Ĺ16368,0:D$;"PR#0":ILL:100:20))D$;"PR#0")100:20)d)n(MT)İ100:20*xD$;"PR#";MS:(2(Z$)1İ100:204(A(Z$):Z$"A"A1:LLCT:5920d(ACTČCE:" NO LINE NUMBER = ";A;"":5840q(A1A1(20:" ENDING LINE #"::" -> ___ ";:((36)3):"";LL$:LL(LL$):(LL$)1İ100:20( LLCTLLCT((LLA)LLA-) 6:958:6:"PWHEN UNMANNED":20'''6:958:"TO PRINT ALL TEXT IN BUFFER TYPE AN 'A' ":"OR TYPE BEGINNING LINE # OF PRINTING"'16:" IF YOU HAVE CHANGED YOUR MIND PRESS":" THE KEY MARKED ";::"RETURN":(12:CE:" -> ___":12:5:"";Z$::1:" PLEASE WAIT -- INSERTING TEXT ":6&XCTCTCIH&bICTACI1[&lA$(I)A$(ICI)b&vIn&I1CI&A$(AI1)I$(I)&I&:TM,X:DP,X1:B1A:4070&14000&:100:6:" PRINTER ROUTINE :"'(UM)İ100:::" NO PRINTING NTER UP TO 10 LINES OF TEXT ...":CI0:234%5700U%CI9Ğ:"->";::" ";:5650a%"-> ";i%GI%(GT$,1)(155)5680%&CICI1:I$(CI)(GT$,1):CI105630%0CI05790%:34,4:5710%D216,0:34,4:CI10)&N16:CE:1:" ":15:CE:0:" -> ___":10:5:"";Z$:$(Z$)1ĹTM,X:DP,X1::20F$A(Z$)W$ACTACT1d$A1A1$6:958:7:A;" ";A$(A)$15:"TO TERMINATE INSERTION PRESS THE KEY"$"MARKED ";::"ESC";::" AT THE BEGINNING OF A LINE.":34,16)%21:"EON C,I,O"#<(UM)İ100:20.#F:B11:4070r#|X(TM):TM,0:X1(DP):DP,O:100:6:"LINE INSERTION ROUTINE:"#8:"ENTER LINE # TO INSERT TEXT BEFORE"#12:" IF YOU HAVE CHANGED YOUR MIND PRESS":" THE KEY MARKED ";::"RETURN":$1OG"::5025"5150c"1:958::6:"PLEASE WAIT - LOADING ":::10:F$:34,4:2:"LINES= "r"D$;"MONI""D$;"OPEN ";F$;",D";(DD)1" D$;"READ ";F$"2:8:CT;:23::F1:CTCT1:A$(CT)(GT$,1):5140"216,0"(D$;CO$ #2D$;"NOM958::6:"PLEASE WAIT - LOADING ":::10:F$:!5080\!D$;"UNLOCK ";F$;",D";(DD)1f!5100q!216,0}!14000!(222)45100!34,0::12:14:"FILE NOT FOUND"::9:"PRESS ";::"RETURN";::" FOR CATALOG";:" ";Z$:Z$ ""CATALՠΠŠŠРͧŠҠǠōӠ٠ǠˠР͍ŠР̤ͬčĠōĠנӠŠΠծΠŠӠԠ΍ŠŠŠԬҬԠՠōԠӠҠҠčҠŮԠȠǍԠӠϠōӠ̠ՠĠŠӍԠǠϠծƠՠԠϠŠŠӍԠϫ20>B;216,0>L;140009>V;(222)9ė:6:DK$:15210G>`;:6:DR$\>j;"";Z$::15070Gj>B;216,0v>L;14000>V;(222)9ė:6:DK$:15210>`;:6:DR$>j;"";Z$::15070":15070:CTCT1=:151700=:D$;OO$;XB;",D";(DD)1?=:D$;WO$;XBT=:I1CT:A$(I):`=;D$;CO$=;I1CT:A$(I)"":::CT1:A$(CT)T1$=;D$;NM$=;X(0)=$;216,0=.;(UM)ĺD$;"PR#";MS:A1,17:S2=0;2672,96=2;A1,17:S2=4;2672,74>8;100:0 <614000*<6:" RESET ERROR":141106<714000W< 7:" CONTROL C ERROR":14110c<714000o<714000<(7I1400::1000<:216,0<:T1$(GT$,1)<:(UM)ĺD$;"PR#0"<:XBXB1<:2672,96<:A1,(2074):S2<:2672,74<:D$;MO$=SK,0:DD,0:TM,128:DP,0:UM,0:GI38;B'A$(500),I$(10)E;L'100:20X;.:D$;"PR#";MSc;.(27)t;.(UM)12040;.D$;"PR#0";/100;/20;6216,0:3288:255:;6ER(222);6ER2014060;6ER25514080;6ER10715000<6ER771503 AND PRESS RETURN"O:'D$(4):MO$"MON C,I,O":NM$"NOMON C,I,O"m:$'GI2051:CE868:XB0:BU1:.'ER0:CT0:S2GI6:F1GI9:M1GI12:DPGI15:A1GI18:BDGI19:CRGI20:MS(GI22):TMGI24:DDGI26:MTGI27:SKGI28:LCGI29:UMGI31$;8':" DISKETTE FULL -- INCOMPLETE SAVE "::" INSERT INITIALIZED DISKETTE AND RESAVE ":_9&20!:'GT$"X"::OO$"OPEN OVERFLOW-":WO$"WRITE OVERFLOW-":CO$"CLOSE":DR$"DISK ERROR":DK$" DISK FULL ERROR - PLEASE INSERT INITIALIZED DISKETTE :::6:" PLEASE WAIT - SAVING ":::6:F$B8%D$;"UNLOCK ";F$W8&D$;"DELETE ";F$b8 &216,0m8&98208 &D$;"OPEN ";F$;",D";(DD)18*&D$;"WRITE ";F$84&IKKLL8>&A$(I)8H&8R&D$;CO$8\&216,08f&1008p&(222)99860W9z&12::4E WAIT - SAVING ":::" ";F$)7%9740K7%D$;"UNLOCK ";F$;",D";(DD)17%34,0::10:F$;"":X$"--------------------------":L(F$):(X$,L)::"FILE ALREADY EXISTS"7%:"DO YOU WISH TO OVERWRITE IT? N";:(36):Z$:Z$7%Z$"Y"İ100:20-8%20B6%16:"ENTER FIRST LINE # > ";Z$:KK(Z$):(Z$)1İ100:20_6%Z$"A"KK1:LLCT:9640n6%KK1KK16%KKCTKKCT6%18:" ENTER LAST LINE # > ";Z$:LL(Z$):(Z$)1İ100:206%LLKKLLKK6%LLCTLLCT7%12:958:14::6:" PLEAS5%D$;"PR#0"5&%D$;"IN#0"050%DP,0:100:20W5%100:6:"WRITE TO FILE ROUTINE :"5%9:"IF YOU DO NOT WISH TO SAVE THE FILE":" PRESS ";::"RETURN";::" FOR THE FILE NAME."5%13:" FILE NAME ______________________";:12:F$6%(F$)1İ100:";MS4$D$;"PR#";MS 4$(26)c4$:6:2:"DATA CAPTURE 4.0 ";:Z$"N"Ğ:" UNATTENDED MODE ":4$Z$"N"ĺ" ATTENDED MODE":4%10:9:" AWAITING CALL":16:" PRESS KEY MARKED ";::"RETURN";::" TO ABORT ";:" ";LL$:LL$4%Z$"N"ĹUM,1:952032#TM,1283<#100:2013F#(SK)ĹSK,128:9050;3P#SK,0H3Z#100:203$:(MT)İ100:12:" PROGRAM CAN ONLY AWAIT CALLS WITH THE"::" D.C. HAYES MICROMODEM II":203$UM,03$6:" WILL THE COMPUTER BE ATTENDED ? Y";:(36):Z$:Z$4$D$;"IN#";MS:2D$;"PR#0" 2826062 X(1625016MS)Y2 X((X8(X8))8.05)(X8)g2 X48260}2& X(1624916MS)20 X(16384):X171X187Ĺ16368,0:82602: 82002D 216,0:D$;"PR#0":CR,128:LC,1282N 100:202(#(TM)ĹTM,0:9020 !1(LC)0Ģ9:22::" OFF ":b112:"DO YOU WANT TO CHANGE THE CARRIER ? N";:(36):Z$:Z$x1Z$"Y"İ100:201(LC)Ĺ1625116MS,136:LC,0:100:201:9::" AWAITING REMOTE CARRIER "::12:"PRESS KEY MARKED '+' TO ABORT"2D$;"PR#ӍĠΠŠήĠΠŠƍŠ͠ɍ̩ŠӬؠōŠҠŠƠةҠŠӠĠĠӠŠغ̠ӮŠĠŠϠŠҍӠҠǠŠΠӠŮƍՠĠ٠ӠԠĠŠŠΠōԠӠ٠̠Ҡ̍ҠƠŠŠ΍ŠԠϠҠҮ٠Š͠ΠŠΠҍ٠ŠŮҠŠՍԠΠŠנĠŠӍϠ٠ŠŠŠԠԍŠŠӠϠŠōàΠŠҠȠƍŠҠŠӍĠ٠ȠŠҠƠӍĠŠ̠ԠƠٍŮΠӍΠŠ͠ՠĠϠŠԍӠΠŠŮӠōĠΠȠ͠ĠÍŠŠƠ٠ԍ͠ԠӠӠϠō٠ΠĮӠĠנՠϠٍŠӠĠϠԍŠΠƠӠƠՍŠǠ٠ǠӍҠԠŠǮϠԠōӠԠŠҠՠ̍ĠРȠӠՠ̠ҠōŠϠĮ٠ԍƠՠŠˠҠҠٍΠĠՠΠŠōҠŠ٠ԠԠǠ٠ӍƠΠנӠĠ٠ōΠӠǠŠҍԠ̠Š٠ϠŠӍĠϠĠ͠ɤŠǠΠŠנҍǠҠĹޠŠˠҠͮčŠ͠Š̠ŠçŠөŠԠˠԠ̠ҠΠϠԠŠө؍ԍӠàҠŠՠĠ΍àϠĠŠˠϠōҠͮŠ̠Š̠ҍӠΠçƠՠύĠϠĠԠҮƍՠϠԠՠΠԠōŠԠӠŠŮؠˠ̠ŠǠΠŠӍȠŠՠ̠Š׍ӠŮˠԍŠӠŠԠˍŠԠϠԠӠҍǮנӠōԠ̠ϠӮϠŠϠŠΠՍΠŠөĠϠԠȍ̠ŠӠԠӍĮƠՠŠǠנӠՍΠԠŠŠӠ΍ȠŠĠΠөĠōӠŠŠϠōŠՠŮӍō٠ĠՠΠčŠƠӠҠԍϠŠҠͮҍȠĠΠōŠ͠ŠĮ΍ŠשŠϠŠ͠ΠŮŠǠΠōŠͩ͠ŠŠĠŠŠԠΠǠҍĠŠԠՍŠĠϠԩŠٍŠŠŠҍŠéŠҮ٠ĠӍƠŠŠӠϠŠ͠ԠөĠԍԩŠŠ׍ŠŠ©ĠŠéŠίƩĩؠ̯Ʃ̩̠ҠίƩө̠ӠίƩԩԍשŠϠōŠǠΠŠĠŮԠŠƠŠǠԠ̍éǠˍĩŠԍũҠŠҍȩРōɩԠԍ̩ԠԍͩŠ͠ōЩԠԍѩԠ͍ĠŠĠč͠Š͠ŠՠӍԠĮӠӠϠōŠǠŠՠٍŠԠӠĮՠԍԠϠԠӠԠƠōРŠƠՠŠǠύ̠ҠŠȠΠՍΠŠөĠϠԠȍ̠ŠӠԠӍĮƠՠŠǠנӠՍΠԠŠŠӠ΍ȠŠĠΠөĠōӠŠŠϠōŠՠŮӍ̠ŠǠΠŠ čŠƠӠҠԍϠŠҠͮҍȠĠΠōŠ͠ŠĮ΍ŠשŠϠŠ͠ΠŮŠǠΠōŠͩ͠ŠŠĠŠϠŠȍĠŠԠՍŠĠϠԩŠٍŠŠŠҍŠéŠҮ٠ĠӍƠŠŠӠϠŠ͠Ԡō٠ĠՠΠŠ׍ŠŠ©ĠŠéŠίƩĩؠ̯Ʃ̩̠ҠίƩө̠ӠίƩԩԍשŠϠōŠԠΠǠĠŮԠŠƠŠǠԠ̍éǠˍĩŠԍũҠŠҍȩРōɩԠԍ̩ԠԍͩŠ͠ōЩԠԍѩԠ͍өĠԍԩŠ͠Š͠ŠՠӍԠĮӠӠϠōŠǠŠՠٍŠԠӠĮՠԍԠϠԠӠԠƠōРŠƠՠŠǠύ̠ҠŠȠŠǠΠŠŠŠРͧŠҠǠōӠ٠ǠŠР̤ͬčĠōĠנӠŠΠծΠŠӠԠ΍ŠĠŠĠ芊ԬҬԠՠōԠӠҠҠčҠŮԠȠǍԠӠϠōӠ̠ՠĠŠӍԠǠϠծƠՠԠϠŠŠӍԠՠΠՠΠŠԠ٠ǠōǠҠǠѩԮΠՠŠŠԠԍŠŠӠ̠ōŠҠŠҠϠΠŠŠӠ̠ōŠҠŠҠϠΠҴՍΠŠѩԠϠԠŠͮՠΠΠҠ٠ҍ٠ŠŠҠ͠ӍԠŠŠϠٍŠɠҮƠՍŠԠΠŠӠōǠΠŠŠōٲԧӠΠӠōŠŠŠ̠ԠҍŠŠ͠ϠԠΠˠӠԮԠΠŠĠϠ٠ҠҍɠŠՠĮǠŠҠҠǠŠŠΠčҠŠŠǠӠĠ͠Ӡ̠ŠҠԠčԺŠɫŠà̠ɠŠɠҠΠϠԠԠ͠ŠŠȠŠ͍ŠƠؠӠȍӠͧӠĠӠč٠ϠҠԠΠǍŠөĠĮƠՍĠŠŠύԠҠŠҠӠԍŠǠĠŠɠŠƠōҠՠԠϠҍԠǠΠŠƍҠԠɠ̮ΠĠϠԮΠōŠŠΠŠӍ̮ǠӍȠӠŠŠčŮŠŠĠӍӮϠҠԠō̠ѧӠĠŠŠύŠŠϠŠŠǠҭӠԠ٠ŠӍȠӠӠŠŠŠŠŠӠŠӬ؍ǠĠӍŠӠԠӠԍՠԠԠԠϠŮנӠӠ̠ѧӍΠǠ̠čӠΠŠŠӍΠŠĠŠϠŠҍӠҠǠŠΠӠŮƍՠĠ٠ӠԠĠŠŠΠōԠӠ٠̠Ҡ̍ҠƠŠŠӍĠΠŠήԠϠĠǠҠǍӠŠ̠٠ĠŠٍĠӧӠ٠٠ϠŠŠǮŠӠĠȠƠō٠ŠŠĮͧӠ̤ŠĠŠϠŠҍӠҠǠŠΠӠŮƍՠĠ٠ӠԠĠŠŠΠōԠӠ٠̠Ҡ̍ҠƠŠŠӍĠΠŠήˠҠͮčŠ͠Š̠ŠçŠөŠԠˠԠ̠ҠΠϠԠŠө؍Ġ΍àϠĠŠˠϠōҠͮŠ̠Š̠ҍӠΠçƠՠύĠϠĠԠҮƍՠϠԠՠΠԠōŠԠӠŠŮؠˠޠӍȠŠՠ̠Š׍ӠŮˠԍŠӠŠԠˍŠԠϠԠӠҍǮנӠōԠ̠ϠӮϠŠԍӠàҠŠՠz#????     ҠРҠŮԠР8ŠίԠŠίԠנӠΠϠРϠР͠РҠȮ͠ŠҠ5ŠҠ5LfLC$"Y"ĺD$;"DELETE DATA CAPTURE 4.0 UPPER":D$;"RENAME DATA CAPTURE 4.0 LOWER,DATA CAPTURE 4.0"LC$"N"ĺD$;"DELETE DATA CAPTURE 4.0 LOWER":D$;"RENAME DATA CAPTURE 4.0 UPPER,DATA CAPTURE 4.0"D$;"DELETE COMPATCH.M"nD$;"LOCK HELLO":DA:18890,DA:19051,DA:19082,DA*k2000Rp *** DELETE AND RENAME FILES z:3:6:"CONFIGURING DATA CAPTURE 4.0":10:::12:"DO NOT INTERRUPT":D$;"BSAVE DCAP 4.0.M,A$4803,L$2DDD$;"DELETE HELLO"D$;"RENAME TEMP HELLO,HELLO":18723,32:18554,201:18555,225:18556,144:18557,2:18558,41:18559,223R *** THIS RANGE IS DEPENDENT ONLY ON SLOT NUMBER \18490,SA:18522,SA:18540,SA:18731,SA:18749,SA:18857,SA:18875,SA:19029,SA:19041,SA:19054,SAf18550,DA:18763,DN TYPE OF CARD AND LCA A(MT)ĺD$;"BLOAD COMPATCH.M,A$4837"N MS(MS)*M616MS:SA142M6:DA143M6: *** SA=STATUS ADDR DA=DATA ADDR 4(MT)Ĺ18505,SA>(MT)Ĺ18495,SA:18498,120MS:18513,120MS:18516,133M6IHLC$"N"Ĺ18718,0NO"118:LC$"Y"ĺ"LOWER CASE ADAPTER = YES"20:" DATA CAPTURE 4.0 WILL BE CONFIGURED ACCORDING TO THE ABOVE CHOICES"23::" ARE THE ABOVE CORRECT ? (Y/N) ";::" N";:(36):Z$:Z$Z$"Y"ī90  *** THIS RANGE DEPENDS O))10:"PRINTER SLOT = ";(PT)S12:"NUMBER DRIVES = ";(ND)114:"INITIAL BAUD RATE = ";:(BR)0ĺ"300 BAUD":720"110 BAUD"16:"STOP LIST CTRL CHAR = CONTROL ";((SL)64)18:LC$"N"ĺ"LOWER CASE ADAPTER = :" THE FOLLOWING IS YOUR CONFIGURATION"Xv"---------------------------------------"6:"MODEM CARD TYPE = ";:(MT)0ĺ"MICROMODEM II":670(MT)1Ģ6:"COMM. CARD"(MT)1Ģ6:"AIO OR CCS CARD"8:"MODEM SLOT = ";(MSBOVE CORRECT ? (Y/N) ";::" N";:(36):Z$:Z$KZ$"Y"Ģ21:958:200e(BR$,1)"3"ĹBR,128}(BR$,1)"1"ĹBR,0&PT,(PT$)0MS,(MS$):SL,(SL$)64DND,(ND$)1NMT$"M"ĹMT,0XMT$"C"ĹMT,1bMT$"O"ĹMT,2)l:2"1"Z$"3"370BR$Z$:18:23:SL$;:23:Z$:Z$\Z$(13)Z$SL$:18:23:SL$w(Z$)65(Z$)90430SL$Z$20:23:LC$;:23:Z$:Z$Z$(13)Z$LC$:20:23:LC$LC$Z$LC$"N"LC$"Y"470/22::" ARE THE A4:23:ND$;:23:Z$:Z$9JZ$(13)Z$ND$:14:23:ND$RT(Z$)1(Z$)2320]^ND$Z$hMT$"O"BR$"3":16:23:"300":430r16:23:BR$;:23:Z$:Z$|Z$(13)Z$BR$:16:23:BR$Z$"1"Ģ16:24:"1"Z$"3"Ģ16:24:"0"Z$:MT$&Z$"C"Z$"M"Z$"O"2001MT$Z$O10:23:MS$;:23:Z$:Z$qZ$(13)Z$MS$:10:23:MS$(Z$)1(Z$)7240MS$Z$12:23:PT$;:23:Z$:Z$"Z$(13)Z$PT$:12:23:PT$,(Z$)1(Z$)72806PT$Z$@112:"PRINTER SLOT NUMBER > ";PT$I14:"ONE OR TWO DRIVES > ";ND$t16:"INITIAL BAUD RATE > ";BR$;"00"18:"STOP LIST CTRL CHAR > ";SL$20:"LOWER CASE ADAPTER > ";LC$37:23:MT$;:23:Z$:Z$Z$(13)Z$MT$:7:23"3":MT$"M":SL$"S":LC$"N"" Zx d"PRESS KEY MARKED ";::"RETURN";::" IF ENTRY IS O.K.":3:"MODEM CARD TYPE": n4:" M)ICROMODEM II":" C)OMMUNICATIONS CARD":" O)THER" x7:15:"WHICH > ";MT$ 10:"MODEM SLOT NUMBER > ";MS$# 70126" D$(13)(4)k (12:10:"CONFIGURATION PROGRAM"::14::6:" PLEASE WAIT - LOADING FILE ": 2D$;"BLOAD DCAP 4.0.M,A$4803" <I11000: FGI18435:BRGI19:PTGI21:MSGI22:SLGI23:NDGI25:MTGI27 PMS$"2":PT$"1":ND$"1":BR$Y 16384<  COPYRIGHT (C) 1980o  SOUTHEASTERN SOFTWARE :3:12:"DATA CAPTURE 4.0"::11:"COPYRIGHT (C) 1980":10:"SOUTHEASTERN SOFTWARE" 10:"6414 DERBYSHIRE DRIVE":10:"NEW ORLEANS, LA        $ :3:14:"PLEASE WAIT "9 :16:"LOADING"] 12::12:"DO NOT INTERRUPT":} (18:12:"DATA CAPTURE 4.0" 2:11:"COPYRIGHT (C) 1980" <10:"SOUTHEASTERN SOFTWARE" F23:34,23 P(4);"EXEC DCAP 4.0 LOADER"R(,,` C ɍ ! L3 $(` ɍܠiȩiȩi`$ (l8))OJJJ,ɻ*ɫ&,Lm )I ,0Lm I `  `CARRIER LOST LʝL*Ixix&&  Ɉ&ɕc ɕL ,LY LY) LM ),,0LY d LY$(`ɠ6L ,c L L L Ѝ) L ),,0 ɍ LY d iȩiȩi`$LWL,LL L L7  `z,0)LP z`) L)L ɍL Ɋɛ,$LɈLR  $(, ɛ L ,6ɎL ɋL ɂL ɖL ɅL ɒL   ЍŠŠŠĠРͬŠ˨̠ĠŠ΍7!,0VLH`P z` IALL:A$(I)""::X(0)1X JJLLA1:KKCTJJNb IAKK:A$(I)A$(IJJ):ol IKK1CT:A$(I)""::X(0)yv CTKK B11:4070 P GT$"X"::OO$"OPEN OVERFLOW-":WO$"WRITE OVERFLOW-":CO$"CLOSE":DR$"DISK ERROR":DK$" DISK FULL ERROR - PLEne number = ";A;"":3030_ 20:" Ending Line #"::" -> ___ ";:((36)3):"";LL$:LL(LL$)r (LL$)13290 (LLA)LLA :12::" DELETING LINE # ";A;" THRU LINE # ";LL;" ":& LLCTLLCT0 A1A1: CT1CT1D ACTACTN type an 'A' ":"Or type Beginning LINE # of DELetions " 16:" If you have changed your mind PRESS":" the key marked ";::"RETURN": 12:CE:" -> ___":12:5:"";Z$ (Z$)13290 Z$"A"3230 A(Z$) ACTČCE:" No li 2060/:2:" CATALOG ROUTINE :":4:n" TYPE ";::" SPACE ";::" TO CLEAR SCREEN ":x34,4D$;"CATALOG,D";(DD)1 216,0:Z$:Z$:100:20 100:6:"Line DELetion routine :"; 8:"To DEL all text in buffer not connected to another"::"system you will NOT see what your are"::"typing - USE HALF DUPLEX"xD31:300:20DP,0D30:100:20(2076)1830(DD)ĹDD,1:1830DD,0&100:20lBUBU1:1920vBU0100:20:23:11:"?";:11:Z$:Z$:Z$(13)İ100:20DZ$(10)İ100:20UZ$"A"1800fZ$"B"8000wZ$"C"1900Z$"D"1700Z$"L"8100"Z$"S"9030,Z$"T"900061500(DP)1281740DP,128f100::6:"If you areRE = ON"-BUĺ" CAPTURE = OFF"o:" TOGGLE (A OR C)":" WHICH > ";:Z$:Z$Z$(13)İ100:20Z$"A"1800Z$"C"1900:1440I113:I:CE::21:CE:130-10:"Select ONE of the Following : "H"6500Z$"L"4000)Z$"M"5000:Z$"I"5500KZ$"P"5800\Z$"Q"6540mZ$"S"7000~Z$"T"1400Z$"W"9600Z$(27)120001110x(UM)1490:" DRIVE = ";(DD)1BUĺ" CAPTUle"4L(UM)ĺ:" WHICH OPTION > ";:Z$:1120V23:3);"WHICH > ? (Press ";::"RETURN";::" To Abort)":23:11:Z$:Z$`Z$(13)İ100:20jZ$(10)İ100:20tZ$"A"9400~Z$"C"2000Z$"D"3000Z$"E"3500Z$":"S)end Text":X:"T)oggle"X12:X:"A)lternate Drive (1/2)":X:"B)aud Rate (110/300)":X:"C)apture (ON/OFF)":X:"D)uplex (FULL/HALF)":X:"L)ocal Carrier (ON/OFF)"X:"S)pecial Characters (ON/OFF)":X:"T)ransmit (ON/OFF)":10:"W)rite To Fi1:6:"Select One of the Following :":X10:2:X:"A)wait Call":X:"C)atalog Disk":X:"D)elete Text":X:"E)nter Phone Number":X:"H)angup Phone"X:"I)nsert Text":X:"L)ist Text":X:"M)erge From File":X:"P)rint Text":X:"Q)uit Program":X(BD)ĺ"110";$(MT)ĺ:300O20:"Remote Carrier ";:(CR)ĺ"ON "f(CR)Ğ:"OFF":s,34,4:46:" ^^^^^^^ SOUTHEASTERN SOFTWARE ^^^^^4.0"::::(UM)āI1200::" LINES = ";CT:11001010,201:1011,10:1012,175ON "; BUĞ:"OFF";:> 27:"Transmit ";:(TM)ĺ"ON "U (TM)Ğ:"OFF": "Lines= ";CT;12);"SpeChar ";:(SK)Ğ:"OFF";: (SK)ĺ"ON "; 27:"DUPLEX ";:(DP)Ğ:"HALF": (DP)ĺ"FULL" 3:"Baud = ";:(BD)ĺ"300";LA 70126 , 1010,201:1011,10:1012,1757 10000? 23K 14000d (2:8:CT;:23::GI~ 2(GT$,1)(155)1000 <BU40 FCTCT1:A$(CT)(GT$,1):40 d n14000 x(UM)ĺ:310 1:"Drive= ";(DD)1;12);"Capture ";:BUĺ"F3# (4);"CLOSE DCAP 4.0 LOADER"Q  DATA CAPTURE 4.0~  COPYRIGHT (C) 1980  SOUTHEASTERN SOFTWARE  6414 Derbyshire Drive  New Orleans,                    IALL:A$(I)""::X(0)1X JJLLA1:KKCTJJNb IAKK:A$(I)A$(IJJ):ol IKK1CT:A$(I)""::X(0)yv CTKK B11:4070 P GT$"X"::OO$"OPEN OVERFLOW-":WO$"WRITE OVERFLOW-":CO$"CLOSE":DR$"DISK ERROR":DK$" DISK FULL ERROR - PLENE NUMBER = ";A;"":3030_ 20:" ENDING LINE #"::" -> ___ ";:((36)3):"";LL$:LL(LL$)r (LL$)13290 (LLA)LLA :12::" DELETING LINE # ";A;" THRU LINE # ";LL;" ":& LLCTLLCT0 A1A1: CT1CT1D ACTACTN TYPE AN 'A' ":"OR TYPE BEGINNING LINE # OF DELETIONS " 16:" IF YOU HAVE CHANGED YOUR MIND PRESS":" THE KEY MARKED ";::"RETURN": 12:CE:" -> ___":12:5:"";Z$ (Z$)13290 Z$"A"3230 A(Z$) ACTČCE:" NO LI 2060/:2:" CATALOG ROUTINE :":4:n" TYPE ";::" SPACE ";::" TO CLEAR SCREEN ":x34,4D$;"CATALOG,D";(DD)1 216,0:Z$:Z$:100:20 100:6:"LINE DELETION ROUTINE :"; 8:"TO DEL ALL TEXT IN BUFFER NOT CONNECTED TO ANOTHER"::"SYSTEM YOU WILL NOT SEE WHAT YOUR ARE"::"TYPING - USE HALF DUPLEX"xD31:300:20DP,0D30:100:20(2076)1830(DD)ĹDD,1:1830DD,0&100:20lBUBU1:1920vBU0100:20:23:11:"?";:11:Z$:Z$:Z$(13)İ100:20DZ$(10)İ100:20UZ$"A"1800fZ$"B"8000wZ$"C"1900Z$"D"1700Z$"L"8100"Z$"S"9030,Z$"T"900061500(DP)1281740DP,128f100::6:"IF YOU ARERE = ON"-BUĺ" CAPTURE = OFF"o:" TOGGLE (A OR C)":" WHICH > ";:Z$:Z$Z$(13)İ100:20Z$"A"1800Z$"C"1900:1440I113:I:CE::21:CE:130-10:"SELECT ONE OF THE FOLLOWING : "H"6500Z$"L"4000)Z$"M"5000:Z$"I"5500KZ$"P"5800\Z$"Q"6540mZ$"S"7000~Z$"T"1400Z$"W"9600Z$(27)120001110x(UM)1490:" DRIVE = ";(DD)1BUĺ" CAPTULE"4L(UM)ĺ:" WHICH OPTION > ";:Z$:1120V23:3);"WHICH > ? (PRESS ";::"RETURN";::" TO ABORT)":23:11:Z$:Z$`Z$(13)İ100:20jZ$(10)İ100:20tZ$"A"9400~Z$"C"2000Z$"D"3000Z$"E"3500Z$":"S)END TEXT":X:"T)OGGLE"X12:X:"A)LTERNATE DRIVE (1/2)":X:"B)AUD RATE (110/300)":X:"C)APTURE (ON/OFF)":X:"D)UPLEX (FULL/HALF)":X:"L)OCAL CARRIER (ON/OFF)"X:"S)PECIAL CHARACTERS (ON/OFF)":X:"T)RANSMIT (ON/OFF)":10:"W)RITE TO FI1:6:"SELECT ONE OF THE FOLLOWING :":X10:2:X:"A)WAIT CALL":X:"C)ATALOG DISK":X:"D)ELETE TEXT":X:"E)NTER PHONE NUMBER":X:"H)ANGUP PHONE"X:"I)NSERT TEXT":X:"L)IST TEXT":X:"M)ERGE FROM FILE":X:"P)RINT TEXT":X:"Q)UIT PROGRAM":X(BD)ĺ"110";$(MT)ĺ:300O20:"REMOTE CARRIER ";:(CR)ĺ"ON "f(CR)Ğ:"OFF":s,34,4:46:" ^^^^^^^ SOUTHEASTERN SOFTWARE ^^^^^4.0"::::(UM)āI1200::" LINES = ";CT:11001010,201:1011,10:1012,175ON "; BUĞ:"OFF";:> 27:"TRANSMIT ";:(TM)ĺ"ON "U (TM)Ğ:"OFF": "LINES= ";CT;12);"SPECHAR ";:(SK)Ğ:"OFF";: (SK)ĺ"ON "; 27:"DUPLEX ";:(DP)Ğ:"HALF": (DP)ĺ"FULL" 3:"BAUD = ";:(BD)ĺ"300";LA 70126 , 1010,201:1011,10:1012,1757 10000? 23K 14000d (2:8:CT;:23::GI~ 2(GT$,1)(155)1000 <BU40 FCTCT1:A$(CT)(GT$,1):40 d n14000 x(UM)ĺ:310 1:"DRIVE= ";(DD)1;12);"CAPTURE ";:BUĺ"]3# (4);"CLOSE DCAP 4.0 LOADER"Q  DATA CAPTURE 4.0~  COPYRIGHT (C) 1980  SOUTHEASTERN SOFTWARE  6414 DERBYSHIRE DRIVE  NEW ORLEANS,                (I)  D$;"CLOSE". :3:" ...DONE"K 6:" TRANSFER COMPLETE"3DY ";:Z$:Z$' :3:" WRITING FILE"F D$;"OPEN DCAP 4.0 LOADER"f D$;"WRITE DCAP 4.0 LOADER"q I17| A$(I)  D$;"CLOSE" ,:3:" ...DONE" 66:" TRANSFER COMPLETE"ADER" D$;"WRITE DCAP 4.0 LOADER" I16 A$$:Z$ 2:3:" READING FILE"> dD$;"OPEN DCAP 4.0 LOADER"] xD$;"READ DCAP 4.0 LOADER"h I17p B$ B$(13)160 A$(I)A$(I)B$ 140 D$;"CLOSE" 12:"INSERT BACKUP DISKETTE AND" :"PRESS 'RETURN' WHEN REA D$(13)(4)6 *** EXCHANGE DCAP 4.0 LOADER :3:4:"THIS PROGRAM WILL MOVE THE TEXT FILE"::13:"'DCAP 4.0 LOADER'"::11:"TO A BACKUP DISKETTE" 16:"INSERT THE MASTER DISKETTE AND" (:"PRESS KEY MARKED 'RETURN' WHEN READY ";:Z   ų²ųΠìɬύŠͮԍԢͮԢԢͮԢԺԺԢŢč΍̰ԍōՠΠŠԠ٠ǠōǠҠǠѩԮΠՠŠŠԠԍŠŠӠ̠ōŠҠŠҠϠΠŠŠӠ̠ōŠҠŠҠϠŠՍΠŠѩԠϠԠŠͮՠΠΠҠ٠ҍ٠ŠŠҠ͠ӍԠŠŠϠٍŠɠҮƠՍŠԠΠŠӠōǠΠŠŠӍ͠ŠŠӍŠŠŠ̠ԠҍŠŠ͠ϠԠΠˠӠԮԠΠŠĠϠ٠ҠҍɠŠՠĮǠŠҠҠǠŠΠčҠŠŠǠӠĠ͠Ӡ̠ōҠԠčԺŠɫŠà̠ɠŠɫҠΠϠԠȠŠ͍ŠƠؠӠȍӠͧӠĠӠč٠ϠҠԠΠǍŠөĠĮƠՍĠŠŠύԠҠŠҠӠԍŠǠĠŠɠŠƠōҠՠԠϠҍԠǠΠŠƍҠԠɠ̮ΠĠϠԮΠōŠŠΠŠӍ̮ǠӍȠӠŠŠčŮŠŠĠӍӮϠҠԠō̠ѧӠĠŠŠύŠŠϠŠŠǠҭӠԠ٠ŠӍȠӠӠŠŠŠŠŠӠƍŠӬ؍ǠĠӍŠӠԠӠԍՠԠԠԠϠŮנӠӠ̠ѧӍΠǠ̠čӠΠŠŠӍΠŠؠӠŠŠĠ΍Š͠ɠ̮ŠĠ̍Šנ̩ŠӬؠōŠҠŠƠةҠŠӠĠĠӠŠغ̠΍ƠՠŠ٠ӠԍǠŠŠōŠϠРծˠՠǠ٠ĠĠȍҠŠ͠ɠĠӠŠغ̲Ƞ׍ՠϠ٠ԠĠˠԠРōĠҠԮŠӠٍӠҠƠӠՠ̍ՠĮ̠ŠˠӠԠՍ٠ϧΠŠӠՠҍٮŠ̠ҠƠŠӍĠΠŠŠՍŠĠΠҠ͠ԠΠŠĠύŠȠŠŠƍҠӮԠ̠ƠŠĠԠӍĠϠРӠͮΠҠϠŠϠǠՠŠƠӠҠĮōŠҠĠŠĠˍ͠ΠŠҠĠԠӍ٠ŠŠǠϠРҍŠԠǠҠҍˠϠҮŠϠŠԠՠōŠŠƠǠŠύ٠ĠРŠōϠŠӠ͠Π΍ħԠΠԠ̍ŠՠŠԠōĠҠĮŠŠΠǠȠŠӠҠҠӮōŠ٠ĠԠϠōԠРƠŠԠРōӠŠӠ͠ƠӠΠȮˠҠҠҠԠƠΠōĠҠǠŠנӠԠ٠ՠŠ                       SPACE BAR TO BEGIN ";:#F}Z$:Z$)耱O # AND PASSWORD IN THE FORM OF:":" TCA000 XXXXX"z::"WHERE XXXX IS YOU PASSWORD AND CAN BE CONTROL CHARACTERS OR PRINTABLE":"CHARACTERS."z::"DO NOT ENTER IT AS :":" --- ID TCA000 XXXX !!!!!!"&z(4);"PR#0"<}23::" PRESS R INTO THIS PROGRAM WILL APPEAR"jy"AND THEN THE SOURCE WILL BE DIALED AND YOU WILL BE LOGGED ON."yPĢ23::" PRESS SPACE BAR ";:yPľZ$:Z$yPė7y:"ENTER YOUR TELENET NUMBER IN THE FORM OF:":" C 30124":::"ENTER ACCTDED,"lmy"MODIFIED WITH THIS DIAL AND LOGON ROUTINE AND SAVED BACK TO YOUR ":"CONFIGURED DISKETTE."|y:"USING THE LOGON"$y:"WHEN USING E)NTER PHONE NUMBER FROM DATA CAPTURE 4.0 TYPE AN 'S' FOR THE":"PHONE NUMBER. THE NUMBER YOU ENTEbuP1yPĺ(4);"PR#";S*,yPė:2@y"THIS PROGRAM MUST, REPEAT MUST, BE PLACED ON THE CONFIGURED DISKETTE YOU"Ty"ARE USING FOR THE SOURCE BEFORE YOU RUN IT !"hy:"YOU WILL ANSWER 3 QUESTIONS AND THEN DATA CAPTURE 4.0 WILL BE LOACD$;"PR#0"&CD$;"IN#0")0C:100:20Y0uP0::3:"INSTRUCTIONS FOR TELENET LOGON.":u"-------------------------------"Du:"OUTPUT TO PRINTER ? N";:(36):Z$:NuZ$"Y"31020Xu9:"WHICH SLOT > _";:(36):S$:S$:S(S$):S1S730040SBA$:A$"="17050!BA$;2BD$;"PR#";MS>B"DECW"MBD$;"PR#0"dBA$:A$"@"17090mBA$;~BD$;"PR#";MSB*** C NUMBER GOES HEREBD$;"PR#0"BA$:A$">"17140BA$;CD$;"PR#";MSC *** ID AND PASSWORD GO HERE 3::" WAIT ABOUT 2 MINUTES "::34,23:24B D$;"EXEC DIALER.1"H i LL0:PH$"_________________"eLL17000:*** DIAL TELENEThB:6:"DIALING SOURCE"::DP,128rBI1400:|BD$;"PR#";MSB:I1400::BD$;"PR#0"BD$;"IN#";M"TEXT"80"HOME:VTAB 3:PRINT";(34);" ....DONE";(34)KD"NOMON C,I,O"bX"DELETE DIALER.1"wl"DELETE DIALER"D$;"CLOSE"D$;"OPEN DIALER.1"D$;"WRITE DIALER.1""LOAD DATA CAPTURE 4.0""EXEC DIALER"D$;"CLOSE"*:(PH$)<1 THEN LL=0:GOTO 3670"y"3552 IF PH$= ";(34);"S";(34);" THEN LL=1:PH$=";(34);LP$;(34);":VTAB16:HTAB10:?PH$""3685 IF LL THEN 17000""UNLOCK DATA CAPTURE 4.0""SAVE DATA CAPTURE 4.0""LOCK DATA CAPTURE 4.0""HOME"ITING TO DISK",33,33/@D$;"OPEN DIALER"FTD$;"WRITE DIALER"]^"DEL 17000,17999"mh300020000|"17120 PRINT";(34);T$;(34)"17170 PRINT";(34);"ID ";PW$;(34)"3530 LL=0:PH$=";(34);"_________________";(34)"3550 IF LENI1(PW$); X((PW$,I,1)):X26ĺ"^";:(X64);:228L (PW$,I,1);R X ::"CONTROL CHARACTERS ARE PRECEDED BY '^'" 18:" ARE THE ABOVE CORRECT ? N";:(36):Z$:Z$ Z$"Y"40 D$;"MON C,I,O":3:"PLEASE WAIT - WR YOUR ":" TELENET NUMBER > ";T$W ::"TYPE IN YOUR ":"ACCT # & PASSWORD > ";PW$ :3:"PLEASE CHECK THE FOLLOWING " 6:" LOCAL NUMBER = ";LP$ :" TELENET NUMBER = ";T$ :"ACCT# AND PASSWORD = "; (PW$)1ĺ::230 * $  *** TELENET LOGON FOR SOURCE1 :30000k (D$(4):::3:"AUTO LOGON FOR ":"DATA CAPTURE 4.0" -"----------------" P:"COPYRIGHT 1981":"SOUTHEASTERN SOFTWARE" d::"TYPE IN YOUR LOCAL":" PHONE NUMBER > ";LP$" x::"TYPE IN     N ";:F}Z$:Z$耱PN THE FORM OF:":" TCA000 XXXXX"z::"WHERE XXXX IS YOU PASSWORD AND CAN BE CONTROL CHARACTERS OR PRINTABLE":"CHARACTERS."z::"DO NOT ENTER IT AS :":" --- ID TCA000 XXXX !!!!!!"&z(4);"PR#0"<}23::" PRESS SPACE BAR TO BEGIHIS PROGRAM WILL APPEAR"^y"AND THEN THE SOURCE WILL BE DIALED AND YOU WILL BE LOGGED ON."yPĢ23::" PRESS SPACE BAR ";:yPľZ$:Z$yPė&y:"ENTER YOUR LOGON SYSTEM IN THE FORM OF:":" 10":::"ENTER ACCT # AND PASSWORD IMODIFIED WITH THIS DIAL AND LOGON ROUTINE AND SAVED BACK TO YOUR ":"CONFIGURED DISKETTE."y|y:"USING THE LOGON"y:"WHEN USING E)NTER PHONE NUMBER FROM DATA CAPTURE 4.0 TYPE AN 'S' FOR THE":"PHONE NUMBER. THE NUMBER YOU ENTER INTO TyPĺ(4);"PR#";S,yPė:2s@y"THIS PROGRAM MUST, REPEAT MUST, BE PLACED ON THE CONFIGURED DISKETTE YOU"Ty"ARE USING FOR THE SOURCE BEFORE YOU RUN IT !"hy:"YOU WILL ANSWER 3 QUESTIONS AND THEN DATA CAPTURE 4.0 WILL BE LOADED,"`my"#0"CD$;"IN#0"C100:20N0uP0::3:"INSTRUCTIONS FOR TYMNET LOGON."t:u"------------------------------"Du:"OUTPUT TO PRINTER ? N";:(36):Z$:NuZ$"Y"31020Xu9:"WHICH SLOT > _";:(36):S$:S$:S(S$):S1S730040buP1"17012vBA$;!|BD$;"PR#";MS*B"A"9BD$;"PR#0"PBA$:A$":"17060YBA$;jBD$;"PR#";MSB *** SOURCE SYSTEM GOES HEREBD$;"PR#0"BA$:A$">"17120BA$;BD$;"PR#";MSB *** ACCT # AND PASSWORD GOES HEREBD$;"PRC DIALER"D$;"CLOSE"K :3::" WAIT ABOUT 2 MINUTES "::34,23:24c D$;"EXEC DIALER.1"i4 LL0:PH$"_________________"eLL17000:*** DIAL TELENEThB:6:"DIALING SOURCE"::DP,128rBI11000:sBD$;"IN#";MStBA$:A$"AATA CAPTURE 4.0""HOME"(0"TEXT"YD"HOME:VTAB 3:PRINT";(34);" ....DONE";(34)lX"NOMON C,I,O"l"DELETE DIALER.1""DELETE DIALER"D$;"CLOSE"D$;"OPEN DIALER.1"D$;"WRITE DIALER.1""LOAD DATA CAPTURE 4.0" "EXE________";(34)="3550 IF LEN(PH$)<1 THEN LL=0:GOTO 3670""3552 IF PH$= ";(34);"S";(34);" THEN LL=1:PH$=";(34);LP$;(34);":VTAB16:HTAB10:?PH$""3685 IF LL THEN 17000""UNLOCK DATA CAPTURE 4.0""SAVE DATA CAPTURE 4.0""LOCK DSE WAIT - WRITING TO DISK".6D$;"MON C,I,O"9@33,33OTD$;"OPEN DIALER"fhD$;"WRITE DIALER"}r"DEL 17000,17999"|300020000"17090 PRINT";(34);T1$;(34)"17140 PRINT";(34);"ID ";PW$;(34)"3530 LL=0:PH$=";(34);"_________ I1(PW$)> X((PW$,I,1)):X26ĺ"^";:(X64);:228O (PW$,I,1);U [ ::"CONTROL CHARACTERS ARE PRECEDED BY '^'" 18:" ARE THE ABOVE CORRECT ? N";:(36):Z$:Z$ T1$"SOURCE"T$";PRIM;" Z$"Y"40,:3:"PLEAUR ":"LOG SYSTEM (10,11,OR 12 > ";T$Z ::"TYPE IN YOUR ":"ACCT # & PASSWORD > ";PW$ :3:"PLEASE CHECK THE FOLLOWING " 6:" LOCAL NUMBER = ";LP$ :" LOGON SYSTEM = ";T$ :"ACCT# AND PASSWORD = "; (PW$)1ĺ::230 #  *** TYMNET LOGON FOR SOURCE. 30000h (D$(4):::3:"AUTO LOGON FOR ":"DATA CAPTURE 4.0" -"----------------" P:"COPYRIGHT 1981":"SOUTHEASTERN SOFTWARE" d::"TYPE IN YOUR LOCAL":" PHONE NUMBER > ";LP$% x::"TYPE IN YO     <}23::" PRESS SPACE BAR TO BEGIN ";:4F}Z$:Z$:耱Z$G耱 ON TO THE DOW SYS.":yPĢ23::" PRESS SPACE BAR ";:DyZ$:NyPėy:"ENTER THE TYMNET NUMBER YOU CALL TO REACH THE DOW SYSTEM."z::"THEN ENTER YOUR ACCOUNT NUMBER AND PASSWORD YOU USE ON THE DOW SYSTEM."&z(4);"PR#0"(E." |y:"USING THE DOW LOGON"y:"WHEN USING E)NTER PHONE NUMBER FROM DATA CAPTURE 4.0 TYPE AN 'D' FOR THE":"PHONE NUMBER. THE NUMBER YOU ENTER INTO THIS PROGRAM WILL APPEAR"y"AND THEN THE SOURCE WILL BE DIALED AND YOU WILL BE LOGGEDNFIGURED DISKETTE YOU"JTy"ARE USING FOR THE DOW SYS BEFORE YOU RUNIT !"hy:"YOU WILL ANSWER 3 QUESTIONS AND THEN DATA CAPTURE 4.0 WILL BE LOADED,"my"MODIFIED WITH THIS DIAL AND LOGON ROUTINE AND SAVED BACK TO YOUR ":"CONFIGURED DISKETT----------------------"DDu:"OUTPUT TO PRINTER ? N";:(36):Z$:WNuZ$"Y"31020Xu9:"WHICH SLOT > _";:(36):S$:S$:S(S$):S1S730040buP1yPĺ(4);"PR#";S,yPė:2@y"THIS PROGRAM MUST, REPEAT MUST, BE PLACED ON THE CO$BI1400:!BD$;"PR#";MS-B"DJNS"<BD$;"PR#0"UCA$:A$(19)17152]CA$mCI11200:~CD$;"PR#";MSC *** PASSWORD GOES HERE CD$;"IN#0" CD$;"PR#0"C100:200uP0::3:"INSTRUCTIONS FOR DOW LOGON.":u"-----L TYMNET +hB:6:"DIALING DOW"::DP,128;rBI11000:LsBD$;"IN#";MSctBA$:A$"A"17012lvBA$;}|BD$;"PR#";MSB"A"BD$;"PR#0"BA$:A$":"17060BA$;BD$;"PR#";MSB"DOW1;"BD$;"PR#0"BA$:A$"?"17120BACLOSE"D$;"OPEN DIALER.1"7D$;"WRITE DIALER.1"T"LOAD DATA CAPTURE 4.0"g"EXEC DIALER"wD$;"CLOSE" :3::" WAIT ABOUT 2 MINUTES "::34,23:24 D$;"EXEC DIALER.1"4 LL0:PH$"_________________" eLL17000: *** DIA685 IF LL THEN 17000"4"UNLOCK DATA CAPTURE 4.0"Q"SAVE DATA CAPTURE 4.0"n"LOCK DATA CAPTURE 4.0"z"HOME"0"TEXT"D"HOME:VTAB 3:PRINT";(34);" ....DONE";(34)X"NOMON C,I,O"l"DELETE DIALER.1""DELETE DIALER"D$;"999"|3000200007"17158 PRINT";(34);PW$;(34)m"3530 LL=0:PH$=";(34);"_________________";(34)"3550 IF LEN(PH$)<1 THEN LL=0:GOTO 3670""3552 IF PH$= ";(34);"D";(34);" THEN LL=1:PH$=";(34);LP$;(34);":VTAB16:HTAB10:?PH$""31 ::"CONTROL CHARACTERS ARE PRECEDED BY '^'"g 18:" ARE THE ABOVE CORRECT ? N";:(36):Z$:Z$w Z$"Y"40 ,:3:"PLEASE WAIT - WRITING TO DISK" @33,33 JD$;"MON C,I,O" TD$;"OPEN DIALER" hD$;"WRITE DIALER"r"DEL 17000,17":" PASSWORD > ";PW$H :3:"PLEASE CHECK THE FOLLOWING "l 6:" TYMNET NUMBER = ";LP$ :"ACCT# AND PASSWORD = "; (PW$)1ĺ::230 I1(PW$) X((PW$,I,1)):X26ĺ"^";:(X64);:228 (PW$,I,1); ;   *** DOW LOGON  ' 30000a (D$(4):::3:"AUTO LOGON FOR ":"DATA CAPTURE 4.0"y -"----------------" P:"COPYRIGHT 1981":"SOUTHEASTERN SOFTWARE" d::"TYPE IN YOUR TYMNET":" NUMBER > ";LP$ ::"TYPE IN YOUR