XTLCM2.NOD by Paul Globman [72227,1661] copyright (C) 1991 XTLCM2.NOD is an auto-dialer program for a WorldPort 1200 modem (et. al.) that keeps a record of successful logons and uses N-READ to access ADRS.DO in the Node RAMPAC/Datapac, and also uses XBASIC for keeping a "call log" in bank #2. SETUP - The WP1200 must NOT rely upon DTR to stay active, so you must power the WP1200 with an external power supply or open the WP1200 and set the DIP switch 4 to the ON position (or both). Store XTLCM2.BA in bank #3 and run via F3(Cmd). When you run XTLCM2.BA you will see the familiar "Find" prompt, after which your first matched entry will be displayed. Press ENTER to call or DOWN-ARROW for the next matched entry (ESC to exit). XTLCM2.BA will auto redial if BUSY or NO CARRIER, and upon carrier detect (CONNECT) will beep for 2 seconds, auto-logon, remove itself from RAM, and jump into the Tandy 200 TELCOM. This version of XTLCM2.BA should run in bank #1. It looks for the ADRS.DO file in the Node RAMPAC/Datapac, and upon 'CONNECT' the program makes an entry into a file called BBSLOG.DO, recording the date, time, and BBS called. BBSLOG.DO is stored in bank #2. XTLCM2.BA can be easily modified if you want to set up the banks differently. The bank for BBSLOG.DO is adjusted in line 10. XBASIC.CO and N-READ.CO are needed in bank #3. --------------------------------------- 0 REM XTLCM2.NOD (c) by Paul Globman 1 MAXFILES=2:CLEAR512,MAXRAM:IPL"":DEFSTRA-F:DEFINTG-Z:DIMM(13):FORI=0TO12:READM(I):NEXT:F="COM:57I1ENN":CLS 2 CALL41179:X$="3:N-READ.CO":CALL63600,8,VARPTR(X$):X$="ADRS":CALL63600,1,VARPTR(X$) 3 LINEINPUT" Find: ";A:CALLVARPTR(M(0)),0,VARPTR(A) 4 IFPEEK(63603)<>1THEN2ELSED="":CALL63600,2,VARPTR(D):I=INSTR(D,":"):B=LEFT$(D,I):CALLVARPTR(M(0)),0,VARPTR(B) 5 IFINSTR(B,A)THENJ=INSTR(I,D,"<"):IFJTHEN6ELSE4ELSE4 6 C=LEFT$(D,J-1):PRINTC;:E=INPUT$(1):IFE=CHR$(27)THENMAXFILES=1:MENUELSEPRINT:IFE=CHR$(31)THEN4 7 A3=MID$(C,I+1):A2=MID$(D,J+1):MID$(A2,LEN(A2))=CHR$(0) 8 CLOSE:OPENFFORINPUTAS1:OPENFFOROUTPUTAS2:PRINT#2,"ATZ":CALL25102:PRINT"Command String: ";:PRINT#2,"ATX4S7=15DT"A3 9 LINEINPUT#1,A:PRINTA:IFINSTR(A,"BUSY")ORINSTR(A,"NO ")THEN8ELSEIFINSTR(A,"CONNECT")=0THEN9 10 FORI=1TO15:BEEP:NEXT:X$="3:XBASIC.CO":CALL41179:CALL63600,8,varptr(X$):X$="2:BBSLOG":CALL63600,2,VARPTR(X$) 11 X$=CHR$(13)+CHR$(10)+DAY$+" "+DATE$+" "+TIME$+" "+LEFT$(B,3)+": ":CALL63600,4,VARPTR(X$):V=VARPTR(A2) 12 CALL25301,0,PEEK(V+1)+256*PEEK(V+2):MAXFILES=0:M$="CALL25464"+CHR$(13):AD=64798:L=LEN(M$):POKEAD,L:FORI=1TOL 13 M=ASC(MID$(M$,I,1)):POKEAD+2*I,0:POKEAD+2*I-1,M:NEXT:NEW 14 DATA-18562,20424,32291,26147,4463,2,15821,6463,6865,5325,4624,3347,-5688 15 REM END OF DATA