home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
pg
/
pgnode
/
node2
/
xtlcm2.nod
< prev
Wrap
Text File
|
2006-10-19
|
3KB
|
44 lines
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