home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / logon.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  13 lines
  1. 0 ' LOGON.BA 3/30/84 by Rick Perry          Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLEAR500:DEFINTA-Z:DIMM(15):CLS:FORN=0TO15:READM(N):NEXT:A$="7I1E"+CHR$(0):V=VARPTR(A$):CALL6118,0,PEEK(V+1)+PEEK(V+2)*256
  3. 2 CLOSE:OPEN"adrs"FORINPUTAS1:LINEINPUT"Find:";A$:CALL6+VARPTR(M(0)),0,VARPTR(A$):IFA$="MENU"THENMENU
  4. 3 IFEOF(1)THEN2ELSELINEINPUT#1,Y$:I=INSTR(Y$,":")
  5. 4 B$=LEFT$(Y$,I):CALL6+VARPTR(M(0)),0,VARPTR(B$):IFINSTR(B$,A$)=0THEN3ELSEJ=INSTR(I,Y$,"<"):IFJ=0THEN3
  6. 5 PRINTLEFT$(Y$,J)">";:B$=INPUT$(1):PRINT:IFB$=CHR$(27)THEN2ELSEIFASC(B$)<>13THEN3
  7. 6 CLOSE:A$=MID$(Y$,I+1,J-I-1)+CHR$(0)
  8. 7 PRINT"Calling "LEFT$(Y$,I);:V=VARPTR(A$):CALL21293,0,PEEK(V+1)+PEEK(V+2)*256:CALL21172:PRINT:N=0:X=0
  9. 8 N=N+1:CALLVARPTR(M(0)),0,VARPTR(X):IFX=0THEN11ELSEB$=INKEY$:IFB$=""ANDN<1000THEN8
  10. 9 CALL21179:IFB$>""THEN2ELSEPRINT"NO CARRIER":N=0
  11. 10 N=N+1:CALL21264:IFINKEY$>""THEN2ELSEIFN<9THEN10ELSE7
  12. 11 PRINT"CONNECT":BEEP:CALL21264:A$=MID$(Y$,J)+CHR$(0):V=VARPTR(A$):CALL21392,60,PEEK(V+1)+PEEK(V+2)*256:CLEAR0:CALL21608:DATA-4147,30574,201,-18562,20424,32291,26147,4463:DATA2,-5683,6449,6865,-5683,4623,3347,-5688
  13.