QHAYES.100 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 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 2 CLS:PRINTRV$" QHAYES.100 Ver 2.03 ":PRINT@40," Modem Communication Program "NO$:PRINT@85,"F6 = Scroll On, F7 = Scroll Off" 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$; 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 5 CLS:ONERRORGOTO18 6 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFA$="MENU"THENMAXFILES=1:MENUELSEIFA$="DIAL"THENCALL21608 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 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 9 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$="="THENC$=", 10 IFC$<>"-"THENA1$=A1$+C$ 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 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: "; 13 LINEINPUT#1,A$:PRINTA$:IFINSTR(A$,"NO DIALTONE")THENPRINT"Is Modem Connected?":GOTO6 14 IFINSTR(A$,"BUSY")ORINSTR(A$,"NO CARRIER")THENPRINT"Redial":FORA=1TO1000:NEXT:K$=INKEY$:IFK$<>""THENK$="":GOTO6ELSEPRINT#2,"A/":A$="":E=1:GOTO13 15 IFINSTR(A$,"CONNECT")THEN16ELSE13 16 IFE=1THENGOSUB25 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 18 IFQ$=""ANDERR=52THENQ$="0:":RESUME6ELSEPRINT"Error"ERR"in line"ERL:END 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 20 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN23ELSEIFN>0THENK$=INKEY$:IFK$=""THEN20 21 PRINT"NO CARRIER":CALL21179:N=750 22 IFK$>""THEN6ELSEN=N-1:K$=INKEY$:IFN>0THEN22ELSE19 23 PRINT"CONNECT":IFG<>1THENGOSUB25 24 IFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSECALL21589 25 BEEP:FORA=1TO100:NEXT:BEEP:RETURN:DATA-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688,-4147,30574,201 XHAYES.100 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 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 2 D=58923 '<<---Change this value to reflect TOP addres of X-TEL. 3 'Spot for function key merge line 4 A$="":FORA=63610TO63613:A$=A$+CHR$(PEEK(A)):NEXT:IFA$="Menu"THENOPEN"COM:57I1E"FORINPUTAS1:CLOSE:RUN"X-TEL 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$; 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$; 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 8 IFA$="2"THENIFR$="COM:5"THENR$="COM:3":GOTO5ELSEIFR$="COM:3"THENR$="M:":GOTO5ELSEIFR$="M:"THENR$="COM:5":GOTO5 9 IFA$="3"THENCLS:CALLD 10 CLS:ONERRORGOTO23 11 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFINSTR(A$,"DIAL")ORINSTR(A$,"MENU")THENCALLD 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 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 14 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$="="THENC$=", 15 IFC$<>"-"THENA1$=A1$+C$ 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 17 OPENR$+"7I1E"FOROUTPUTAS2:IFINP(187)AND32THENPRINT:PRINT" EXTERNAL MODEM NOT CONNECTED!":BEEP:FORA=1TO1000:NEXT:GOTO5ELSEPRINT#2,CS$A1$:PRINT"Command String: "; 18 LINEINPUT#1,A$:PRINTA$:IFINSTR(A$,"NO DIALTONE")THENPRINT"Is Modem Connected?":GOTO11 19 IFINSTR(A$,"BUSY")ORINSTR(A$,"NO CARRIER")THENPRINT"Redial":FORA=1TO500:NEXT:K$=INKEY$:IFK$<>""THEN11ELSEPRINT#2,"A/":A$="":E=1:GOTO18 20 IFINSTR(A$,"CONNECT")THEN21ELSE18 21 IFE=1THENGOSUB30 22 FORA=1TO1000:NEXT:V=VARPTR(A2$):CALL21443,0,PEEK(V+1)+256*PEEK(V+2):GOTO31 23 IFQ$=""ANDERR=52THENQ$="0:":RESUME11ELSEPRINT"Error"ERR"in line"ERL:END 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 25 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN28ELSEIFN>0THENK$=INKEY$:IFK$=""THEN25 26 PRINT"NO CARRIER":CALL21179:N=750 27 IFK$>""THEN11ELSEN=N-1:K$=INKEY$:IFN>0THEN27ELSE24 28 PRINT"CONNECT":IFG<>1THENGOSUB30 29 IFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSE31 30 BEEP:FORA=1TO100:NEXT:BEEP:RETURN 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 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 QTOUCH.100 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 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 2 CLS:PRINTRV$" QTOUCH.100 Ver 2.01 ":PRINT@40," Modem Communication Program "NO$;:PRINT@85,"F6 = Scroll On, F7 = Scroll Off 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$; 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 5 CLS:ONERRORGOTO15 6 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFA$="MENU"THENMAXFILES=1:MENUELSEIFA$="DIAL"THENCALL21608 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 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 9 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$<>"-"THENA1$=A1$+C$ 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 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 12 FORA=1TOLEN(A1$):K$=INKEY$:IFK$<>""THEN5ELSEC$=MID$(A1$,A,1):IFC$="="THENFORB=1TO1000:NEXT:GOTO14 13 PRINT#2,C$:PRINTC$;:FORC=1TO200:NEXT 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 15 IFQ$=""ANDERR=52THENQ$="0:":RESUME6ELSEPRINT"Error"ERR"in line"ERL:END 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 17 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN20ELSEIFN>0THENK$=INKEY$:IFK$=""THEN17 18 PRINT"NO CARRIER":CALL21179:N=750 19 IFK$>""THEN6ELSEN=N-1:K$=INKEY$:IFN>0THEN19ELSE16 20 PRINT"CONNECT":IFG<>1THENGOSUB22 21 IFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSECALL21589 22 BEEP:FORA=1TO100:NEXT:BEEP:RETURN:DATA-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688,-4147,30574,201 XTOUCH.100 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 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 2 D=58923'<<---Change this value to reflect TOP addres of X-TEL. 3 'Spot for function key merge line 4 A$="":FORA=63610TO63613:A$=A$+CHR$(PEEK(A)):NEXT:IFA$="Menu"THENOPEN"COM:57I1E"FORINPUTAS1:CLOSE:RUN"X-TEL 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$; 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$; 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 8 IFA$="2"THENIFR$="COM:5"THENR$="COM:3":GOTO5ELSEIFR$="COM:3"THENR$="M:":GOTO5ELSEIFR$="M:"THENR$="COM:5":GOTO5 9 IFA$="3"THENCLS:CALLD 10 CLS:ONERRORGOTO20 11 CLOSE:G=0:OPENQ$+"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A$:CALLVARPTR(M(0)),0,VARPTR(A$):IFINSTR(A$,"DIAL")ORINSTR(A$,"MENU")THENCALLD 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 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 14 A1$="":A$=LEFT$(Y$,J-1):A3$=MID$(A$,I+1):FORA=1TOLEN(A3$):C$=MID$(A3$,A,1):IFC$<>"-"THENA1$=A1$+C$ 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 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 17 FORA=1TOLEN(A1$):K$=INKEY$:IFK$<>""THEN10ELSEC$=MID$(A1$,A,1):IFC$="="THENFORB=1TO1000:NEXT:GOTO19 18 PRINT#2,C$:PRINTC$;:FORC=1TO200:NEXT 19 NEXT:FORA=1TO5000:NEXT:V=VARPTR(A2$):CALL21443,0,PEEK(V+1)+256*PEEK(V+2):GOTO28 20 IFQ$=""ANDERR=52THENQ$="0:":RESUME11ELSEPRINT"Error"ERR"in line"ERL:END 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 22 N=N-1:CALLVARPTR(M(13)),0,VARPTR(X):IFX=0THEN25ELSEIFN>0THENK$=INKEY$:IFK$=""THEN22 23 PRINT"NO CARRIER":CALL21179:N=750 24 IFK$>""THEN11ELSEN=N-1:K$=INKEY$:IFN>0THEN24ELSE21 25 PRINT"CONNECT":IFG<>1THENBEEP:FORA=1TO100:NEXT:BEEPELSEIFA2$>""THENCALL21264:CALL21392,60,PEEK(VARPTR(PS$)+1)+256*PEEK(VARPTR(PS$)+2):CALL21608ELSE28 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 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