home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / dialer.ba < prev    next >
Text File  |  2006-10-19  |  882b  |  30 lines
  1. 0 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 'DIALER.BA modified by Robert Benson
  3. 10 DEFSTRB,N:DEFSNGJ:DEFINTA,D,I,P,R,S,T,X
  4. 12 CLS:LINE(0,0)-(239,63),1,B:LINE(1,1)-(238,62),1,B:LINE(2,2)-(237,61),1,B:LINE(3,3)-(236,60),1,B
  5. 14 PRINT@85,"PERSISTENT-DIALER Active"
  6. 16 PRINT@165,"";:INPUT"Number to dial ";N
  7. 18 FORJ=64704TO64710:READP:POKEJ,P:NEXTJ
  8. 20 DATA205,239,110,50,82,253,201
  9. 22 FORX=1TO100
  10. 24 PRINT@245,"";
  11. 26 POKE65450,1:POKE65451,3:POKE65452,255
  12. 28 CALL21172
  13. 30 FORD=1TO1600:NEXTD
  14. 32 FORI=1TOLEN(N)
  15. 34 B=MID$(N,I,1)
  16. 36 A=ASC(B)
  17. 38 CALL21514,A
  18. 40 NEXTI
  19. 42 FORR=1TO725
  20. 44 CALL64704
  21. 46 C=PEEK(64850)
  22. 48 IFC=00THEN52
  23. 50 NEXTR:GOTO58
  24. 52 PRINT@245,"Carrier detected after";X;"tries"
  25. 54 FORS=1TO50:FORT=620TO620:SOUNDT,2:NEXTS
  26. 56 CLS:CALL20806
  27. 58 CALL21179:PRINT" dialed";X;"times"
  28. 60 FORZ=1TO18000:NEXTZ
  29. 62 NEXTX:END
  30.