home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pgxos / xtlcm2.200 < prev    next >
Text File  |  2006-10-19  |  3KB  |  44 lines
  1. XTLCM2.200 by Paul Globman [72227,1661]
  2.            copyright (C) 1988
  3.  
  4. XTLCM2.200 is an auto-dialer program for a WorldPort 1200 modem (et. al.) that 
  5. keeps a record of successful logons and uses XBASIC.CO for multi-bank 
  6. operation.
  7.  
  8. SETUP - The WP1200 must NOT rely upon DTR to stay active, so you must power 
  9. the WP1200 with an external power supply or open the WP1200 and set the DIP 
  10. switch 4 to the ON position (or both).
  11.  
  12. Store XTLCM2.BA in bank #3 and run via F3(Cmd).  When you run XTLCM2.BA you 
  13. will see the familiar "Find" prompt, after which your first matched entry will
  14. be displayed.  Press ENTER to call or DOWN-ARROW for the next matched entry 
  15. (ESC to exit).  XTLCM2.BA will auto redial if BUSY or NO CARRIER, and upon 
  16. carrier detect (CONNECT) will beep for 2 seconds, auto-logon, remove itself 
  17. from RAM, and jump into the Tandy 200 TELCOM.
  18.  
  19. This version of XTLCM2.BA should run in bank #1.  It looks for the ADRS.DO file
  20. in bank #3, and upon 'CONNECT' the program makes an entry into a file called 
  21. BBSLOG.DO, recording the date, time, and BBS called. BBSLOG.DO is stored in 
  22. bank #2.
  23.  
  24. XTLCM2.BA can be easily modified if you want to set up the banks differently.  
  25. The bank for ADRS.DO is adjusted in line 3, and the bank for BBSLOG.DO is 
  26. adjusted in line 10.  XBASIC.CO is needed in bank #3.
  27. ---------------------------------------
  28. 0 REM XTLCM2.BA (c) by Paul Globman
  29. 1 MAXFILES=2:CLEAR512,MAXRAM:IPL"":CALL41179:X$="3:XBASIC.CO":CALL63600,8,VARPTR(X$):DEFSTRA-F:DEFINTG-Z:DIMM(13)
  30. 2 FORI=0TO12:READM(I):NEXT:F="COM:57I1ENN":CLS
  31. 3 CALL63600,0:X$="3:ADRS":CALL63600,1,VARPTR(X$):LINEINPUT" Find: ";A:CALLVARPTR(M(0)),0,VARPTR(A)
  32. 4 IFPEEK(63605)=17THEN3ELSED="":CALL63600,3,VARPTR(D):I=INSTR(D,":"):B=LEFT$(D,I):CALLVARPTR(M(0)),0,VARPTR(B)
  33. 5 IFINSTR(B,A)THENJ=INSTR(I,D,"<"):IFJTHEN6ELSE4ELSE4
  34. 6 C=LEFT$(D,J-1):PRINTC;:E=INPUT$(1):IFE=CHR$(27)THENMAXFILES=1:MENUELSEPRINT:IFE=CHR$(31)THEN4
  35. 7 A3=MID$(C,I+1):A2=MID$(D,J+1):MID$(A2,LEN(A2))=CHR$(0)
  36. 8 CLOSE:OPENFFORINPUTAS1:OPENFFOROUTPUTAS2:PRINT#2,"ATZ":CALL25102:PRINT"Command String: ";:PRINT#2,"ATX4S7=15DT"A3
  37. 9 LINEINPUT#1,A:PRINTA:IFINSTR(A,"BUSY")ORINSTR(A,"NO ")THEN8ELSEIFINSTR(A,"CONNECT")=0THEN9
  38. 10 FORI=1TO15:BEEP:NEXT:X$="2:BBSLOG":CALL63600,0:CALL63600,2,VARPTR(X$)
  39. 11 X$=CHR$(13)+CHR$(10)+DAY$+" "+DATE$+" "+TIME$+" "+LEFT$(B,3)+":  ":CALL63600,4,VARPTR(X$):V=VARPTR(A2)
  40. 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
  41. 13 M=ASC(MID$(M$,I,1)):POKEAD+2*I,0:POKEAD+2*I-1,M:NEXT:NEW
  42. 14 DATA-18562,20424,32291,26147,4463,2,15821,6463,6865,5325,4624,3347,-5688
  43. 15 REM     END OF DATA
  44.