home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pg200 / telbnk.200 < prev    next >
Text File  |  2006-10-19  |  2KB  |  42 lines
  1. TELBNK.200 by Wilson Van Alst and Paul Globman
  2.  
  3. TELBNK.200 consists of two (2) programs, TELBNK.BA and TEL.BA, and uses the 
  4. WordlPort 1200 modem.
  5.  
  6. SETUP - The WP1200 must NOT rely upon DTR to stay active, so you must power 
  7. the WP1200 with an external power supply or open the WP1200 and set the DIP 
  8. switch 4 to the ON position (or both).
  9.  
  10. TELBNK.BA may reside in bank #2 or #3 along with ADRS.DO and CHAIN.CO.  You 
  11. will see the familiar "Find" prompt, after which your first matched entry 
  12. will be displayed.  Press ENTER to call or DOWN-ARROW for the next matched 
  13. entry (ESC to exit).  TELBNK.BA will auto redial if BUSY or NO CARRIER, and 
  14. upon carrier detect (CONNECT) will beep for 2 seconds, auto-logon, and switch 
  15. to bank #1 and execute TEL.BA.
  16.  
  17. TEL.BA will set the correct STAT and enter TELCOM for 1200 baud 
  18. communications.  Except for TEL.BA (48 bytes), bank #1 can be empty!
  19.  
  20.  
  21. Delete line 0 in both programs to save RAM.
  22.  
  23. CREDITS - TELBNK.BA is a modification of an earlier T200/WP1200 driver program.
  24. The bank switching aspect was conceived and developed by Wilson Van Alst 
  25. (76576,2735) as part of the CHAIN.CO beta testing project.
  26.             Paul Globman (72227,1661)
  27. ---------------------------------------
  28. 0 REM TELBNK.BA by Wilson Van Alst and Paul Globman (c) 1988
  29. 1 MAXFILES=2:CLEAR512:LOADM"CHAIN":DEFSTRA-F:DEFINTG-Z:DIMM(13):FORI=0TO12:READM(I):NEXT:F="COM:57I1ENN":CLS
  30. 2 CLOSE:OPEN"ADRS.DO"FORINPUTAS1:LINEINPUT" Find: ";A:CALLVARPTR(M(0)),0,VARPTR(A)
  31. 3 IFEOF(1)THEN2ELSELINEINPUT#1,D:I=INSTR(D,":"):B=LEFT$(D,I):CALLVARPTR(M(0)),0,VARPTR(B)
  32. 4 IFINSTR(B,A)THENJ=INSTR(I,D,"<"):IFJTHEN5ELSE3ELSE3
  33. 5 C=LEFT$(D,J-1):PRINTC;:E=INPUT$(1):IFE=CHR$(27)THENMAXFILES=1:MENUELSEPRINT:IFE=CHR$(31)THEN3
  34. 6 A3=MID$(C,I+1):A2=MID$(D,J+1):MID$(A2,LEN(A2))=CHR$(0)
  35. 7 CLOSE:OPENFFORINPUTAS1:OPENFFOROUTPUTAS2:PRINT#2,"ATZ":CALL25102:PRINT"Command String: ";:PRINT#2,"ATX4S7=15DT"A3
  36. 8 LINEINPUT#1,A:PRINTA:IFINSTR(A,"BUSY")ORINSTR(A,"NO ")THEN7ELSEIFINSTR(A,"CONNECT")=0THEN8
  37. 9 IPL"TEL.BA":FORI=1TO15:BEEP:NEXT:V=VARPTR(A2):CALL25301,0,PEEK(V+1)+256*PEEK(V+2):CALL34327:CALL63900,1
  38. 10 DATA-18562,20424,32291,26147,4463,2,15821,6463,6865,5325,4624,3347,-5688
  39. ---------------------------------------
  40. 0 REM TEL.BA by Wilson Van Alst (c) 1988
  41. 1 IPL"":OPEN"com:57i1enn"FOROUTPUTAS1:PRINT#1,CHR$(17):CALL25464
  42.