DWB 2 ENVOY2.ML P 3973 ENVOYTERM P 15619 ,,, , ,L#LLHh` d>ed>==----------X VER 2.3 *** HAYES / 1670 TERMINAL WITH PUNTER/XMODEM PROTOCOL 300-1200 BAUD5 *** THIS VERSION IS FOR COLOR 80 COLUMN MONITORSq *** BUT WORKS FINE ON COMPOSITE WITH AN ADAPTOR CABLE *** COMPILED FROM TCX/128 - SNOOPY TERM - XMODEM - PACETERM - PXTERM# *** DIAL ROUTINES FROM TALK 1670 AND PXTERM/( *** OFF-THE-WALL STUFF AND ENHANCEMENTS BY X--==--Xx- *** THANKS TO JAMES MEEHAN, BUTCH THOMPSON, WAYNE PACE, TOM BRINK,. *** RICHARD PROCTOR- NOT TO MENTION....2 *** STEVE PUNTER 3 *** (WITHOUT WHOM WE'D ALL BE FUMBLING IN THE DARK)E4 *** MORE THANKS TO WAYNE PACE FOR UPLOADING GOOD CODEg5 *** HE IS TEACHING ME A LOT7 *** (YOU'RE RIGHT - I KNOW NONE OF THEM PERSONALLY)< *** LAST SAVED 5/8/86 - THIS PROGRAM IS PUBLIC DOMAIN - USE AT WILL1 A *** BUT FOR THE SAKE OF HONESTY PLEASE LEAVE THE CREDITS ALONEp F *** JUST ADD YOUR NAME IF YOU ENHANCE................... K *** JIM WEBB - ENVOY ON QLINK, 72527,473 ON CIS P *** X--==--X ON ATLANTA AREA BBS'S$!c *******************************************************************!!!!>!d 4,1 : 6,1 : 5,3!i&:PC45056:XC48128:BTPC2072:FTPC2075:SL5104:SH5105:FRXC883:EOT4:UC0:252,0:253,16!n2710!s0:(PC)169"ENVOY2.ML",B0,P(PC)"}5,2,0,(8)(0):#5,A$:6200:BS255:1,8,15:T$(3):0:PC24`"TY$"PSP":T$(1)"ROGRAM":T$(2)"":T$(3)"ORDRO":CS1.02273E6"X$(4),NX$(32),ZZ$(32),ZY$(32),ZQ$(32),JP$(8)"15000"XM0:XM$(0)" EW UNTER ":XM$(1)" MODEM ":TB$(7):LM4096:HM61440:BPLM:DE$(20) #BR$"1200":1280#(14))#0,0,79,3,1P#R40R411:QA0QA1:EA0EA11^#%: 5,EA#Z(1):BP(252)256(253):FBHMBP#""# 5,R41$" -----------==<< >>==----------"<$ 5,EA$""$XM0BS255:280$BS128$0,3,79,24,1:5,R47%""/ ATE:  "BR$" AUD  LOCK IZE: "BS " ROTOCOL: "XM$(XM)" UFFER: "(FB)" "B%, 5,EA%6""%@ 5,16%J" Ԓ - ERMINAL ODE"%T" Ւ - PLOAD"&^" Ē - OWNLOAD"$&c" ’ - UFFER OMMANDS"S&h" Ò - HANGE LOCK IZE (40-255)"&r" Β - EW AUD ATE (OGGLE 300-1200)"&|" В - ROTOCOL (OGGLE - )"&" @ - ISK OMMANDS"'" * - REATE ONFIGURE ILE"1'"  - UTOIAL FROM HONE OOK"U'" ؒ - ETURN TO "\'&e'K$|'K$(K$,1):W113'K$("TUDBCNP@*AX",W,1)490'W:450'W2400,800,1000,4000,1100,1400,600,1900,9000,5000,700'XXM(XM0):275(" RE OU URE ? ":B$+(B$"Y"160006(:200i( TB$"ROGRAM AME? ";:1160:I$""FL1280;(*"YPE (RG, EQ, OR ORDRO) ?"(4J$(>J$""280(HJ$"P"SA0:T1:880(RJ$"S"SA2:T2:880(\J$"W"SA0:T3:880)f820|)pT$(T)::"---------=---------=---------=---------=---------=---------=---------=---------=":2,8,SA,I$:EDS)zE0DS$:2:810)XM1500)0:PC21:FT,T:0:PC12:(512)12:1140)0:PC21:BT,BS:0:PC6:2:1140*XM16304*TB$"AVE S? ";:1160:I$""FL1280\*0:PC21:0:PC9:(512)11140{*T$","(TY$,(FT),1)",W"*"ILE YPE: "T$((FT))*"---------=---------=---------=---------=---------=---------=---------=---------=")+$2,8,2,"@0:"I$T$:X1300:X::15:59074i+.0:PC21:0:PC3:2:X1150:X:0:2585,(2584):1150+LTB$"LOCK IZE - 40 TO 255 - (128 FOR OR 255 FOR ARE DEFAULTS)-" ,Q"F USING OTHER THAN 128/XMO OR 255/PUNT RESET JUST BEFORE TRANSFER-",S1160:I$""2808,VBS(I$):BS40BS40K,`BS255BS255T,j280,t" FOR ENU - <= TOGGLES BUFFER - <= CLEARS BUFFER":,~0:PC21:PC15:2250,I$"":FL0,"";,A$,A$(13)1270,A$(20)1250-A$""FL1:1270%-(A$)201180>-((A$)127)321180V-A$;:I$I$A$:1170h-(I$)01180-" ";:I$(I$,(I$)1):1170-" ":-S(BR$):2576,6:S12002576,8- RCCSS:1330:SL,LO:SH,HI-S1200RCCSS.966:1330.2582,LO:2583,HI<.(RCCSS2100:1330:2578,LO:2579,HI:_.2HI(RC256):LO(RCHI256):.xBR$"300"BR$"1200":1420.BR$"300".1280:280.#5,A$:A(A$(0)).A211540.UCUC1:UC5001500/TB$"O RECIEVED - PLOAD ":2:280/0:XCG/EOT4:UC0:ACK6:0:(XC12)01590u/0:(XC12)3:TB$"PLOAD ANCELLED."/"0:(XC12)4:TB$"ORE THAN 10 TRIES FOR A SINGLE BLOCK"/,2:5,ER$:1150/6A1132:A:5,(EOT);0@A12000:#5,A$:A$""A:UCUC1:UC111590O0J(A$(0))ACK:TB$" ":2:1150v0T:" ":2:11500^TB$"AVE S ? ";:1160:I$""FL1230Y.0h"ILE YPE (RG OR EQ)?  "0rA$0|A$""2800A$"P"T1:17001A$"S"T2:170011650{1"---------=---------=---------=---------=---------=---------=---------=---------="1MGXC121T$(T)"":2,8,2,"@0:"I$","A$",W":1,E$,EM$,T$,S$1MG,2:0:XC6:A(MG)1A2A$"BORTED":5,ER$&2A0A$"ND F RANSMISSION ECIEVED"P2A1A$"YNCHRONIZATION OST":5,ER$2A3A$"OWNLOAD ANCELLED, ECIEVED"2A4A$"ORE HAN 10 RIES OR INGLE LOCK":5,ER$2TB$:A$:2:11502l%:45,5,77,24,1: 4,1 : 6,QA: 5,EA3 5,4,35,4:" ISK TILITY":5,EAC3" "j3"  "3"    "3"   - ALIDATE ISK  "3"   - CRATCH A ILE  "4"   - ENAME A ILE  "A4"   - IRECTORY  "l4"   - ORMAT A ISK  "4"   - EAD RROR HANNEL  "4"   - LOCKS VAILABLE  "4"   - ERMINAL ODE  "5"   - AIN ENU  "C5"    "j5"  "s5 Q$5Q$(Q$,1):U195 Q$("VSRDFEBTX",U,1)21005*U:190054U2110,2120,2155,2160,2170,2200,2210,2400,22505> : 19006H 5,8 : "ILE AME";FLN$16R FLN$(13) 1900Q6\15:15,8,15,"S0:"FLN$:15[6f1900r6k:"LD AME";FAN$6lFAN$""19006m"EW AME";FBN$6n15:15,8,15,"R0:"FBN$"="FAN$6o 2:1900!7p 5,8 : 45,6,77,24,1::" RESS NY EY ":Z$:0,0,79,24:1900Z7z 5,8 : "ISK AME";DN$: "ISK (2 HAR)";DI$~715,8,15, "N0:"DN$","DI$:157 190075,8:15:15,8,15:15,A10$,B11$,C12$,D13$::" "A10$" "B11$" "C12$" "D13$: 5:19008100,8,0,"$:U=U":J135:#100,BL$::#100,Y$:100;8BF(BL$(0))256(Y$(0))d8:""BF" LOCKS FREE...": 5:1900n8240080,0,79,24,1:2008:0,5,79,24:4508` 3490:11408 %:(142):0,0,79,24,1::::::&9 " "w9 " "9 " ": " X-----------==<>==-----------X "}: " "(15)" 2.3"(143)" ": " .....A DOWNTOWN MACLAND PRESENTATION..... "#; " "t; " ó"; " "; &; 2:; %: 5,EA; 0,0,79,5,1M< ""X< 5,R4< " "BR$" BAUD"18)"----------==<< >>==----------"69)XM$(XM)< 5,EA = ""= U0U32U32K= 5,R4:5),""NX$(U)30)ZY$(U)60)ZQ$(U)b= 0,5,79,24,1:&:s=45,5,77,24="":%=5,R4:" UFFER TILITY":5,EA=" "="  ">"    ";>"   - RINT TO SCREEN  "f>"   - END TO PRINTER  ">"   - END TO DRIVE 8  ">"   - LEAR BUFFER  ">"   - ESET OINTER  "?"   - ERMINAL MODE  "=?"   - XIT TO MENU  "h?"    "?"  "?&?A$?A$(A$,1):L17?A$("LPSCRTX",L,1)4060?L:4000 @ L 4150,4080,4090,4110,4350,4070,2250P@7:2400: " ERMINAL MODE@PA1:4150: " BUFFER@SB1:4160: " BUFFER ABPOE:SE$"":" ONE!":8: 2:4000: " POINTER&A:>A": 30,5,56,24,1:DA,:iA64320: (PO$"C") SE$""4170A@CEBP:CBLM: CECB "UFFER MPTY!":8:SB0:4390:4000AJ%AT SB 4410$B^ PA 15,4,15:15: ST " Ҡ!"(143):4390:" ": 4:4,4,7-Bh:7Br"RESS <>";:8:" TO AUSE, TO ONTINUE":"RESS <>";:8:" TO ONCE STOPPED":0,4,79,24,1B|B1:((CB));: PA 4,((CB));BX$:X$" "4290CCBCB1: CBCE12C:"ND OF UFFER "(143);:PO$"":4390GC PA 4:4:PA0SC:4000qCX$:X$"A"4330::4270CX$""4290:4250C:C"()";:8:"LL OR FROM ()";:8:"URRENT":"POSITION";:PO$:D:"ET POINT";:"Ν";SE$:SE$"": OEBP:BPCB:D:DDTB$:" RE OU URE ٝ";A$VDA$""4000D252,0:253,16:"UFFER LEARED ":8DTB$: 1::4000D&TB$" RESS NY EY ";:8:A$::D0:D:"ILENAME";:I$DD8,8,8,I$",S,W"DNDOEXBANK1:8,((CB));2EbCBCB1:LOOP UNTIL CBCE1LElI12:8,(0)::#8Em" ^ UST TO BE SURE, NOT NEEDEDEv"":SB0:TB$;TB$;DS","DS$: 2:4001E:.F&:5,"":4510:5,"7=15":4510:5,"0=0":4510::" E HERE, IF YOU CHANGE / MAY NOT WORK!!EFII50:#5,A$::KF:gF5,"7=20 0=0 1 1"qF8000FPZ$""PZ$""FPN$""PZ$ZZ$(U)F0,3,79,5,1FI30:F5),""NX$(U)30)ZY$(U)60)ZQ$(U)F0,5,79,24,1:5,EA G5,(13): 3$G#5,JU$:JU$""50705G5,PN$:5090G""YO$"IALING: ";:5,R4:ZZ$(U);:5,EA:23);"RESS [] TO BORT"G5,"/"GC1$"":C2$"":I0:I3I31:""53)YO$"TTEMPTS:"I3G II1GC3$:C3$(13) 1: 5,"+++": 1:2400H#5,C1$H(C2$C2$C1$UH2(C2$,4)""2400: CARRIER MADE, GOTO TERMINAL MODEH<(C2$,4)""C2$"":""YO$"IALING: "23)"RESS [] TO BORT": 1:5100HFI3005060: GOTO TERMINAL MODE (MIGHT HAVE CARRIER)HP5130'IZ15:1,20960,40:1,30960,40:1,40960,40-Id8IpS18LIz1,JP$(1)(13)`I2,JP$(2)(13)tI3,JP$(3)(13)I4,JP$(4)(13)I5,JP$(5)(13)I6,JP$(6)(13)I7,JP$(7)(13)I8,JP$(8)(13)ISI"J8&:5,"":6300:5,"7=15":6300:5,"0=0":6300:9JI150:#5,A$::UJX:"()ULSE OR ()ONE?"kJbK1$:K1$""7010JlK1$"P"K1$"T"7010JvK1$"T"PZ$""JK1$"P"PZ$""J9000K@%:5,EA:""24)"--->":5,R4:28)(15)" UTO IAL HONE OOK "(143):5,EA:52)"<---"$KJ2KTU0312kK^NX$(U)""NX$(U)"LANK":ZZ$(U)""ZZ$(U)"1111111KhNX$(U1)""NX$(U1)"LANK":ZZ$(U1)""ZZ$(U1)"1111111KrU4);NX$(U)26)ZZ$(U);K|43)(U1);47);NX$(U1)67)ZZ$(U1)KUL" 32 IAL NLISTED UMBER"9L&:U1:"UMBER TO DIAL";UKLU0U32200ZLU328130dL5020L23):"YSTEM UMBER";ZZ$(32):ZZ$(32)""8000L(ZZ$(32))11ZZ$(U)"":30)"OT TO XCEED 11 HARACTERS": 2:12010:8000L5020M12000M(#45,5,77,24M2#"""M<#%GMF#5,R4:" ONFIGURATION":5,EA_MP#" "MZ#"  "Md#"    "Mn#"   - IGHLIGHT OLOR  "Nx#"   - ACKGROUND OLOR  "2N#"   - HARACTER OLOR  "]N#"   - DIT HONE OOK  "N#"   - ONE/ULSE IAL  "N#"   - DIT UNCTION EYS  "N#"   - AVE ONFIG  " O#"   - OAD ONFIG  "4O#"   - AIN ENU  "_O#"    "O#"  "O#&O#A$O#A$"P"10000O#A$"H"9500O#A$"F"13000O$A$"S"11000O$A$"L"12000O$A$"X"2250P"$A$"B"9520!P,$A$"C"95402P1$A$"D"7000+2,NX$(U)TH+2,ZZ$(U)TL+2,ZY$(U)TN+2,ZQ$(U)TR+UT\+S18 Uf+JP$(S)""JP$(S)"MPTY"Up+2,JP$(S)Uz+S)U+2,EA3U+2,QA=U+2,R4DU+2NU+9000pU." OADING ONFIG ILE...."U.2,8,2,"0:,S,R"U.1,EU.E012060U/2U/U/U031U&/2,NX$(U),ZZ$(U),ZY$(U),ZQ$(U)U0/UU:/S18UD/2,JP$(S)VN/SVX/2,EA,QA,R4Vb/2&Vv/9000/V2""6V2%_V2"OU AY NTER P O 30 HARACTERS"eV2pV2S18V2JP$(S)""JP$(S)"MPTY"V32)S6);JP$(S)V3SV3&:2):"EY O DIT";SV"3S1S89000W'3" ---------=---------=---------=XW,3 JP$(S):(JP$(S))30JP$(S)" ""OT TO XCEED 30 HARACTERS": 2:12010:13000lW63JP$(S)""9000}W@36000:13000W:2,8,2,"0:,S,R"W:1,EW:E015050W:2W:W:U031W:2,NX$(U),ZZ$(U),ZY$(U),ZQ$(U)W:UW:S18 X:2,JP$(S)X:S"X;2,EA,QA,R4)X;2/X;GX>:5,"+++":5:15X>BPLM"":1,34,10,""(143),0:8:1,22,12,"UFFER IS ! RE YOU SURE?",0:"Ν";A$:(A$"N")(A$"")200X>E$"":E$"":(49152)Y>(49425):E$""TE$:&