home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / qx-com.100 < prev    next >
Text File  |  2006-10-19  |  12KB  |  128 lines
  1.  
  2.  
  3.     QHAYES.100
  4.  
  5. 0 'QHAYES.BA V2.03 2/8/87 - Hayes Software for the M100 by Denny Thomas All Rights Reserved.  CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
  6. 1 MAXFILES=2:CLEAR512:DEFINTE-Z:DIMM(16):CS$="ATDT":R$="COM:5":PM$="7I1E"+CHR$(0):E$=CHR$(27):RV$=E$+"p":NO$=E$+"q":FORA=0TO15:READM(A):NEXT
  7. 2 CLS:PRINTRV$"          QHAYES.100  Ver 2.03          ":PRINT@40,"       Modem Communication Program      "NO$:PRINT@85,"F6 = Scroll On,  F7 = Scroll Off"
  8. 3 PRINT@167,"[1] Modem Speed = "RV$;:IFR$="COM:5"THENPRINT"1200 Baud"NO$;ELSEIFR$="COM:3"THENPRINT"300 Baud"NO$;ELSEPRINT"Internal Modem"NO$;
  9. 4 PRINT@206,"[CR] Dial Modem";:A$=INPUT$(1):IFA$="M"THENMAXFILES=1:MENUELSEIFA$="1"THENIFR$="COM:5"THENR$="COM:3":GOTO2ELSEIFR$="COM:3"THENR$="M:":GOTO2ELSEIFR$="M:"THENR$="COM:5":GOTO2
  10. 5 CLS:ONERRORGOTO18
  11. 6 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFA$="MENU"THENMAXFILES=1:MENUELSEIFA$="DIAL"THENCALL21608
  12. 7 IFEOF(1)THEN6ELSELINEINPUT#1,Y$:I=INSTR(Y$,":"):B$=LEFT$(Y$,I):CALLVARPTR(M(0)),0,VARPTR(B$):IFINSTR(B$,A$)=0THEN7ELSEJ=INSTR(I,Y$,"<"):IFJ=0THEN7
  13. 8 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)THEN6ELSEIFZ$=CHR$(13)THEN7ELSEIFZ$=CHR$(8)THENCLOSE:GOTO2
  14. 9 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$="="THENC$=",
  15. 10 IFC$<>"-"THENA1$=A1$+C$
  16. 11 NEXT:A$=MID$(Y$,J+1):A2$=LEFT$(A$,LEN(A$)-1)+CHR$(0):E=0:CLOSE:IFR$="M:"THENV=VARPTR(PM$):CALL6118,0,PEEK(V+1)+PEEK(V+2)*256:G=0:GOTO19
  17. 12 OPENR$+"7I1E"FORINPUTAS1:OPENR$+"7I1E"FOROUTPUTAS2:IFINP(187)AND32THENPRINT:PRINT"     EXTERNAL MODEM NOT CONNECTED!":BEEP:FORA=1TO1000:NEXT:GOTO2ELSEPRINT#2,CS$A1$:PRINT"Command String:  ";
  18. 13 LINEINPUT#1,A$:PRINTA$:IFINSTR(A$,"NO DIALTONE")THENPRINT"Is Modem Connected?":GOTO6
  19. 14 IFINSTR(A$,"BUSY")ORINSTR(A$,"NO CARRIER")THENPRINT"Redial":FORA=1TO1000:NEXT:K$=INKEY$:IFK$<>""THENK$="":GOTO6ELSEPRINT#2,"A/":A$="":E=1:GOTO13
  20. 15 IFINSTR(A$,"CONNECT")THEN16ELSE13
  21. 16 IFE=1THENGOSUB25
  22. 17 FORA=1TO1000:NEXT:V=VARPTR(A2$):CALL21443,0,PEEK(V+1)+256*PEEK(V+2):POKE64268,68:POKE64269,66:POKE64270,63:POKE64271,66:CALL21608
  23. 18 IFQ$=""ANDERR=52THENQ$="0:":RESUME6ELSEPRINT"Error"ERR"in line"ERL:END
  24. 19 G=G+1:PRINTGLEFT$(Y$,I);:V=VARPTR(PH$):CALL21293,0,PEEK(V+1)+256*PEEK(V+2):CALL21172:PRINT:N=1000:X=0
  25. 20 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN23ELSEIFN>0THENK$=INKEY$:IFK$=""THEN20
  26. 21 PRINT"NO CARRIER":CALL21179:N=750
  27. 22 IFK$>""THEN6ELSEN=N-1:K$=INKEY$:IFN>0THEN22ELSE19
  28. 23 PRINT"CONNECT":IFG<>1THENGOSUB25
  29. 24 IFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSECALL21589
  30. 25 BEEP:FORA=1TO100:NEXT:BEEP:RETURN:DATA-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688,-4147,30574,201
  31.  
  32.  
  33.     XHAYES.100
  34.  
  35. 0 'XHAYES.BA V2.04 2/8/87 - Hayes Software for the M100 and X-TEL.CO V2.2 By Denny Thomas All Rights Reserved.  CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
  36. 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
  37. 2 D=58923 '<<---Change this value to reflect TOP addres of X-TEL.
  38. 3 'Spot for function key merge line
  39. 4 A$="":FORA=63610TO63613:A$=A$+CHR$(PEEK(A)):NEXT:IFA$="Menu"THENOPEN"COM:57I1E"FORINPUTAS1:CLOSE:RUN"X-TEL
  40. 5 CLS:PRINTRV$"          XHAYES.100  Ver 2.04          ":PRINT@40,"       Modem Communication Program      "NO$:PRINT:PRINT@127,"[1] Screen Scroll "RV$;:IFPEEK(63038)=0THENPRINT"ON"NO$;ELSEPRINT"OFF"NO$;
  41. 6 PRINT@167,"[2] Modem Speed = "RV$;:IFR$="COM:5"THENPRINT"1200 Baud"NO$;ELSEIFR$="COM:3"THENPRINT"300 Baud"NO$;ELSEPRINT"Internal Modem"NO$;
  42. 7 PRINT@207,"[3] Resume X-TEL":PRINT@246,"[CR] Dial Modem";:A$=INPUT$(1):IFA$="C"THENCLS:CALLDELSEIFA$="1"THENIFPEEK(63038)=0THENCALL16959:GOTO5ELSECALL16964:GOTO5
  43. 8 IFA$="2"THENIFR$="COM:5"THENR$="COM:3":GOTO5ELSEIFR$="COM:3"THENR$="M:":GOTO5ELSEIFR$="M:"THENR$="COM:5":GOTO5
  44. 9 IFA$="3"THENCLS:CALLD
  45. 10 CLS:ONERRORGOTO23
  46. 11 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFINSTR(A$,"DIAL")ORINSTR(A$,"MENU")THENCALLD
  47. 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
  48. 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
  49. 14 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$="="THENC$=",
  50. 15 IFC$<>"-"THENA1$=A1$+C$
  51. 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):G=0:GOTO24ELSEOPENR$+"7I1E"FORINPUTAS1
  52. 17 OPENR$+"7I1E"FOROUTPUTAS2:IFINP(187)AND32THENPRINT:PRINT"     EXTERNAL MODEM NOT CONNECTED!":BEEP:FORA=1TO1000:NEXT:GOTO5ELSEPRINT#2,CS$A1$:PRINT"Command String:  ";
  53. 18 LINEINPUT#1,A$:PRINTA$:IFINSTR(A$,"NO DIALTONE")THENPRINT"Is Modem Connected?":GOTO11
  54. 19 IFINSTR(A$,"BUSY")ORINSTR(A$,"NO CARRIER")THENPRINT"Redial":FORA=1TO500:NEXT:K$=INKEY$:IFK$<>""THEN11ELSEPRINT#2,"A/":A$="":E=1:GOTO18
  55. 20 IFINSTR(A$,"CONNECT")THEN21ELSE18
  56. 21 IFE=1THENGOSUB30
  57. 22 FORA=1TO1000:NEXT:V=VARPTR(A2$):CALL21443,0,PEEK(V+1)+256*PEEK(V+2):GOTO31
  58. 23 IFQ$=""ANDERR=52THENQ$="0:":RESUME11ELSEPRINT"Error"ERR"in line"ERL:END
  59. 24 G=G+1:PRINTGLEFT$(Y$,I);:V=VARPTR(PH$):CALL21293,0,PEEK(V+1)+256*PEEK(V+2):CALL21172:PRINT:N=1000:X=0
  60. 25 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN28ELSEIFN>0THENK$=INKEY$:IFK$=""THEN25
  61. 26 PRINT"NO CARRIER":CALL21179:N=750
  62. 27 IFK$>""THEN11ELSEN=N-1:K$=INKEY$:IFN>0THEN27ELSE24
  63. 28 PRINT"CONNECT":IFG<>1THENGOSUB30
  64. 29 IFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSE31
  65. 30 BEEP:FORA=1TO100:NEXT:BEEP:RETURN
  66. 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
  67. 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
  68.  
  69.  
  70.     QTOUCH.100
  71.  
  72. 0 'QTOUCH.BA V2.01 2/8/87 - TouchBase Travelcomm Modem Software for the M100 by Denny Thomas All Rights Reserved.  CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
  73. 1 MAXFILES=2:CLEAR512:DEFINTE-Z:DIMM(16):R$="COM:5":PM$="7I1E"+CHR$(0):E$=CHR$(27):RV$=E$+"p":NO$=E$+"q":FORA=0TO15:READM(A):NEXT
  74. 2 CLS:PRINTRV$"          QTOUCH.100  Ver 2.01          ":PRINT@40,"       Modem Communication Program      "NO$;:PRINT@85,"F6 = Scroll On,  F7 = Scroll Off
  75. 3 PRINT@167,"[1] Modem Speed = "RV$;:IFR$="COM:5"THENPRINT"1200 Baud"NO$;ELSEIFR$="COM:3"THENPRINT"300 Baud"NO$;ELSEPRINT"Internal Modem"NO$;
  76. 4 PRINT@206,"[CR] Dial Modem";:A$=INPUT$(1):IFA$="M"THENMAXFILES=1:MENUELSEIFA$="1"THENIFR$="COM:5"THENR$="COM:3":GOTO2ELSEIFR$="COM:3"THENR$="M:":GOTO2ELSEIFR$="M:"THENR$="COM:5":GOTO2
  77. 5 CLS:ONERRORGOTO15
  78. 6 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFA$="MENU"THENMAXFILES=1:MENUELSEIFA$="DIAL"THENCALL21608
  79. 7 IFEOF(1)THEN6ELSELINEINPUT#1,Y$:I=INSTR(Y$,":"):B$=LEFT$(Y$,I):CALLVARPTR(M(0)),0,VARPTR(B$):IFINSTR(B$,A$)=0THEN7ELSEJ=INSTR(I,Y$,"<"):IFJ=0THEN7
  80. 8 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)THEN6ELSEIFZ$=CHR$(13)THEN7ELSEIFZ$=CHR$(8)THENCLOSE:GOTO2
  81. 9 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$<>"-"THENA1$=A1$+C$
  82. 10 NEXT:A$=MID$(Y$,J+1):A2$=LEFT$(A$,LEN(A$)-1)+CHR$(0):E=0:CLOSE:IFR$="M:"THENV=VARPTR(PM$):CALL6118,0,PEEK(V+1)+256*PEEK(V+2):GOTO16
  83. 11 OPENR$+"7I1E"FORINPUTAS1:OPENR$+"7I1E"FOROUTPUTAS2:IFINP(187)AND32THENPRINT"     EXTERNAL MODEM NOT CONNECTED!":BEEP:FORA=1TO1000:NEXTGOTO2ELSEPRINT"Dialing...";:PRINT#2,CHR$(13)CHR$(13):FORA=1TO200:NEXT
  84. 12 FORA=1TOLEN(A1$):K$=INKEY$:IFK$<>""THEN5ELSEC$=MID$(A1$,A,1):IFC$="="THENFORB=1TO1000:NEXT:GOTO14
  85. 13 PRINT#2,C$:PRINTC$;:FORC=1TO200:NEXT
  86. 14 NEXT:FORA=1TO5000:NEXT:V=VARPTR(A2$):CALL21443,0,PEEK(V+1)+256*PEEK(V+2):POKE64268,68:POKE64269,66:POKE64270,63:POKE64271,66:CALL21608
  87. 15 IFQ$=""ANDERR=52THENQ$="0:":RESUME6ELSEPRINT"Error"ERR"in line"ERL:END
  88. 16 G=G+1:PRINTGLEFT$(Y$,I);:V=VARPTR(PH$):CALL21293,0,PEEK(V+1)+256*PEEK(V+2):CALL21172:PRINT:N=1000:X=0
  89. 17 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN20ELSEIFN>0THENK$=INKEY$:IFK$=""THEN17
  90. 18 PRINT"NO CARRIER":CALL21179:N=750
  91. 19 IFK$>""THEN6ELSEN=N-1:K$=INKEY$:IFN>0THEN19ELSE16
  92. 20 PRINT"CONNECT":IFG<>1THENGOSUB22
  93. 21 IFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSECALL21589
  94. 22 BEEP:FORA=1TO100:NEXT:BEEP:RETURN:DATA-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688,-4147,30574,201
  95.  
  96.  
  97.      XTOUCH.100
  98.  
  99. 0 'XTOUCH.BA V2.01 2/8/87 - Touchbase Travelcomm Modem Software for the M100 and X-TEL.CO V2.2 By Denny Thomas All Rights Reserved.  CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
  100. 1 MAXFILES=2:CLEAR512:DEFINTE-Z:DIMM(37):R$="COM:5":PM$="7I1E"+CHR$(0):E$=CHR$(27):RV$=E$+"p":NO$=E$+"q":FORA=0TO36:READM(A):NEXT
  101. 2 D=58923'<<---Change this value to reflect TOP addres of X-TEL.
  102. 3 'Spot for function key merge line
  103. 4 A$="":FORA=63610TO63613:A$=A$+CHR$(PEEK(A)):NEXT:IFA$="Menu"THENOPEN"COM:57I1E"FORINPUTAS1:CLOSE:RUN"X-TEL
  104. 5 CLS:PRINTRV$"          XTOUCH.100  Ver 2.01          ":PRINT@40,"       Modem Communication Program      "NO$:PRINT:PRINT@127,"[1] Screen Scroll "RV$;:IFPEEK(63038)=0THENPRINT"ON"NO$;ELSEPRINT"OFF"NO$;
  105. 6 PRINT@167,"[2] Modem Speed = "RV$;:IFR$="COM:5"THENPRINT"1200 Baud"NO$;ELSEIFR$="COM:3"THENPRINT"300 Baud"NO$;ELSEPRINT"Internal Modem"NO$;
  106. 7 PRINT@207,"[3] Resume X-TEL":PRINT@246,"[CR] Dial Modem";:A$=INPUT$(1):IFA$="C"THENCLS:CALLDELSEIFA$="1"THENIFPEEK(63038)=0THENCALL16959:GOTO5ELSECALL16964:GOTO5
  107. 8 IFA$="2"THENIFR$="COM:5"THENR$="COM:3":GOTO5ELSEIFR$="COM:3"THENR$="M:":GOTO5ELSEIFR$="M:"THENR$="COM:5":GOTO5
  108. 9 IFA$="3"THENCLS:CALLD
  109. 10 CLS:ONERRORGOTO20
  110. 11 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFINSTR(A$,"DIAL")ORINSTR(A$,"MENU")THENCALLD
  111. 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
  112. 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
  113. 14 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$<>"-"THENA1$=A1$+C$
  114. 15 NEXT:A$=MID$(Y$,J+1):A2$=LEFT$(A$,LEN(A$)-1):A2$=A2$+CHR$(0):CLOSE:IFR$="M:"THENV=VARPTR(PM$):CALL6118,0,PEEK(V+1)+256*PEEK(V+2):G=0:GOTO21ELSE:OPENR$+"7I1E"FORINPUTAS1
  115. 16 OPENR$+"7I1E"FOROUTPUTAS2:IFINP(187)AND32THENPRINT"     MODEM NOT CONNECTED!":BEEP:FORA=1TO1000:NEXT:GOTO5ELSEPRINT"Dialing...";:PRINT#2,CHR$(13)CHR$(13):FORA=1TO200:NEXT
  116. 17 FORA=1TOLEN(A1$):K$=INKEY$:IFK$<>""THEN10ELSEC$=MID$(A1$,A,1):IFC$="="THENFORB=1TO1000:NEXT:GOTO19
  117. 18 PRINT#2,C$:PRINTC$;:FORC=1TO200:NEXT
  118. 19 NEXT:FORA=1TO5000:NEXT:V=VARPTR(A2$):CALL21443,0,PEEK(V+1)+256*PEEK(V+2):GOTO28
  119. 20 IFQ$=""ANDERR=52THENQ$="0:":RESUME11ELSEPRINT"Error"ERR"in line"ERL:END
  120. 21 G=G+1:PRINTGLEFT$(Y$,I);:V=VARPTR(PH$):CALL21293,0,PEEK(V+1)+256*PEEK(V+2):CALL21172:PRINT:N=1000:X=0
  121. 22 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN25ELSEIFN>0THENK$=INKEY$:IFK$=""THEN22
  122. 23 PRINT"NO CARRIER":CALL21179:N=750
  123. 24 IFK$>""THEN11ELSEN=N-1:K$=INKEY$:IFN>0THEN24ELSE21
  124. 25 PRINT"CONNECT":IFG<>1THENBEEP:FORA=1TO100:NEXT:BEEPELSEIFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSE28
  125. 28 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
  126. 29 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
  127.  
  128.