home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / xhayes.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  34 lines

  1. 0 'XHAYES.BA V2.02 1/25/86 - Hayes Software for the M100 and X-TEL.CO V2.2 By Denny Thomas.  CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 MAXFILES=2:CLEAR512:DEFINTE-Z:DIMM(37):CS$="ATDT":R$="COM:5":PM$="7I1E"+CHR$(0):E$=CHR$(27):RV$=E$+"p":NO$=E$+"q":FORA=0TO36:READM(A):NEXT
  3. 2 D=58923'<<---Change this value to reflect TOP addres of X-TEL.
  4. 3 'Spot for function key merge line
  5. 4 A$="":FORA=63610TO63613:A$=A$+CHR$(PEEK(A)):NEXT:IFA$="Menu"THENOPEN"COM:57I1E"FORINPUTAS1:CLOSE:RUN"X-TEL
  6. 5 CLS:PRINT@15,"XHAYES.100":PRINT@47,"Modem Communication Program":PRINT:PRINT@87,"[1] Screen Scroll "RV$;:IFPEEK(63038)=0THENPRINT"ON"NO$;ELSEPRINT"OFF"NO$;
  7. 6 PRINT@127,"[2] Modem Speed = "RV$;:IFR$="COM:5"THENPRINT"1200 Baud"NO$;ELSEIFR$="COM:3"THENPRINT"300 Baud"NO$;ELSEPRINT"Internal Modem"NO$;
  8. 7 PRINT@167,"[3] Resume X-TEL":PRINT@206,"[CR] Dial Modem";:A$=INPUT$(1):IFA$="1"THENIFPEEK(63038)=0THENCALL16959:GOTO5ELSECALL16964:GOTO5
  9. 8 IFA$="2"THENIFR$="COM:5"THENR$="COM:3":GOTO5ELSEIFR$="COM:3"THENR$="M:":GOTO5ELSEIFR$="M:"THENR$="COM:5":GOTO5
  10. 9 IFA$="3"THENCLS:CALLD
  11. 10 CLS:ONERRORGOTO23
  12. 11 CLOSE:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFINSTR(A$,"DIAL")ORINSTR(A$,"MENU")THENCALLD
  13. 12 IFEOF(1)THEN11ELSELINEINPUT#1,Y$:I=INSTR(Y$,":"):B$=LEFT$(Y$,I):CALLVARPTR(M(0)),0,VARPTR(B$):IFINSTR(B$,A$)=0THEN12ELSEJ=INSTR(I,Y$,"<"):IFJ=0THEN12
  14. 13 PH$=MID$(Y$,I+1,J-I-1)+CHR$(0):PS$=MID$(Y$,J)+CHR$(0):PRINTLEFT$(Y$,J-1);:Z$=INPUT$(1):CALLVARPTR(M(0)),0,VARPTR(Z$):PRINT:IFZ$=CHR$(27)THEN11ELSEIFZ$=CHR$(13)THEN12ELSEIFZ$=CHR$(8)THEN5
  15. 14 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$="="THENC$=",
  16. 15 IFC$<>"-"THENA1$=A1$+C$
  17. 16 NEXT:A$=MID$(Y$,J+1):A2$=LEFT$(A$,LEN(A$)-1):A2$=A2$+CHR$(0):E=0:CLOSE:IFR$="M:"THENV=VARPTR(PM$):CALL6118,0,PEEK(V+1)+256*PEEK(V+2):D=0:GOTO24ELSEOPENR$+"7I1E"FORINPUTAS1
  18. 17 OPENR$+"7I1E"FOROUTPUTAS2:IFINP(187)AND32THENPRINT:PRINT"     EXTERNAL MODEM NOT CONNECTED!":BEEP:FORA=1TO1000:NEXT:GOTO5ELSEPRINT#2,CS$A1$:PRINT"Command String:  ";
  19. 18 LINEINPUT#1,A$:PRINTA$:IFINSTR(A$,"NO DIALTONE")THENPRINT"Is Modem Connected?":GOTO11
  20. 19 IFINSTR(A$,"BUSY")ORINSTR(A$,"NO CARRIER")THENPRINT"Redial":FORA=1TO500:NEXT:K$=INKEY$:IFK$<>""THEN11ELSEPRINT#2,"A/":A$="":E=1:GOTO18
  21. 20 IFINSTR(A$,"CONNECT")THEN21ELSE18
  22. 21 IFE=1THENGOSUB30
  23. 22 FORA=1TO1000:NEXT:V=VARPTR(A2$):CALL21443,0,PEEK(V+1)+256*PEEK(V+2):GOTO31
  24. 23 IFQ$=""ANDERR=52THENQ$="0:":RESUME11ELSEPRINT"Error"ERR"in line"ERL:END
  25. 24 D=D+1:PRINTDLEFT$(Y$,I);:V=VARPTR(PH$):CALL21293,0,PEEK(V+1)+256*PEEK(V+2):CALL21172:PRINT:N=1000:X=0
  26. 25 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN28ELSEIFN>0THENK$=INKEY$:IFK$=""THEN25
  27. 26 PRINT"NO CARRIER":CALL21179:N=750
  28. 27 IFK$>""THEN11ELSEN=N-1:K$=INKEY$:IFN>0THEN27ELSE24
  29. 28 PRINT"CONNECT":IFD<>1THENGOSUB30
  30. 29 IFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSE31
  31. 30 BEEP:FORA=1TO100:NEXT:BEEP:RETURN
  32. 31 :A=PEEK(64643)+256*PEEK(64644):B=PEEK(A+2)+256*PEEK(A+3):C=PEEK(A+4)+256*PEEK(A+5):POKEB,0:POKEC,0:CALLVARPTR(M(16)):CALLD
  33. 32 DATA-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688,-4147,30574,201,-12758,506,3704,13833,8961,310,291,319,8246,2851,-20104,-2587,10949,-2463,4097,2304,-3647,-16157,13107,29385,29216
  34.