'===========================================================================
' Subject: PHREAK FONE                        Date: 10-22-96 (18:45)       
'  Author: Brian Mahocker                     Code: QB, QBasic, PDS        
'  Origin: ButtNuggie@aol.com               Packet: MODEM.ABC
'===========================================================================
'Phreak Fone Ver. 1.0   By: Brian Mahocker
Start:
CLS
LET Start% = 0
LOCATE 1, 1: COLOR 8: PRINT "P"; : COLOR 7: PRINT "H"; : COLOR 15: PRINT "R"; : COLOR 8: PRINT "e"; : COLOR 7: PRINT "a"; : COLOR 15: PRINT "K"; : COLOR 8: PRINT " "; : COLOR 7: PRINT "F"; : COLOR 15: PRINT "o"; : COLOR 8: PRINT "N"; : COLOR 7: PRINT "e"; : COLOR 15: PRINT " "; : COLOR 8: PRINT " "; : COLOR 7: PRINT "V"; : COLOR 15: PRINT "e"; : COLOR 8: PRINT "R"; : COLOR 7: PRINT "."; : COLOR 15: PRINT " "; : COLOR 8: PRINT "1"; : COLOR 7: PRINT "."; : COLOR 15: PRINT "0"; : COLOR 8: PRINT "           "; : COLOR 7: PRINT "B"; : COLOR 15: PRINT "y"; : COLOR 8: PRINT ":"; : COLOR 7: PRINT " "; : COLOR 15: PRINT "B"; : COLOR 8: PRINT "R"; : COLOR 7: PRINT "i"; : COLOR 15: PRINT "a"; : COLOR 8: PRINT "n"; : COLOR 7: PRINT " "; : COLOR 15: COLOR 8: PRINT "M"; : COLOR 7: PRINT "a"; : COLOR 15: PRINT "H"; : COLOR 8: PRINT "o"; : COLOR 7: PRINT "C"; : COLOR 15: PRINT "K"; : COLOR 8: PRINT "e"; : COLOR 7: PRINT "R": COLOR 15: PRINT
INPUT "THe LoWeST NuMBeR To DiaL  (No Dash) : ", LN&
INPUT "THe HiGHeST NuMBeR To DiaL (No Dash) : ", HN&
INPUT "PoRT NuMBeR (1/2) : ", port$
INPUT "RePeaT? (Y/N) :", R$: IF R$ = "Y" OR R$ = "y" THEN LET Repeat% = 1: IF R$ = "N" OR R$ = "n" THEN LET Repeat% = 0:
INPUT "aRe THeSe SeTTiNGS CoRReCT? (Y/N) : ", correct$: IF correct$ = "N" OR correct$ = "n" THEN GOTO Start
CLS
LOCATE 1, 1: COLOR 8: PRINT "P"; : COLOR 7: PRINT "H"; : COLOR 15: PRINT "R"; : COLOR 8: PRINT "e"; : COLOR 7: PRINT "a"; : COLOR 15: PRINT "K"; : COLOR 8: PRINT " "; : COLOR 7: PRINT "F"; : COLOR 15: PRINT "o"; : COLOR 8: PRINT "N"; : COLOR 7: PRINT "e"; : COLOR 15: PRINT " "; : COLOR 8: PRINT " "; : COLOR 7: PRINT "V"; : COLOR 15: PRINT "e"; : COLOR 8: PRINT "R"; : COLOR 7: PRINT "."; : COLOR 15: PRINT " "; : COLOR 8: PRINT "1"; : COLOR 7: PRINT "."; : COLOR 15: PRINT "0"; : COLOR 8: PRINT "           "; : COLOR 7: PRINT "B"; : COLOR 15: PRINT "y"; : COLOR 8: PRINT ":"; : COLOR 7: PRINT " "; : COLOR 15: PRINT "B"; : COLOR 8: PRINT "R"; : COLOR 7: PRINT "i"; : COLOR 15: PRINT "a"; : COLOR 8: PRINT "n"; : COLOR 7: PRINT " "; : COLOR 15: COLOR 8: PRINT "M"; : COLOR 7: PRINT "a"; : COLOR 15: PRINT "H"; : COLOR 8: PRINT "o"; : COLOR 7: PRINT "C"; : COLOR 15: PRINT "K"; : COLOR 8: PRINT "e"; : COLOR 7: PRINT "R": COLOR 15: PRINT
LOCATE 3, 1: PRINT "CuRReNT FoNe NuMBeR :"
LOCATE 4, 1: PRINT "TiMe LeFT FoR CuRReNT FoNe NuMBeR :"
LOCATE 5, 1: PRINT "CuRReNT PoRT : "
COLOR 8: LOCATE 5, 16: PRINT port$
StartDialing:
LET PN& = LN&
DO
COLOR 8: LOCATE 3, 22: PRINT PN&: COLOR 15
OPEN "COM" + port$ + ":" + "9600,N,8,1,ASC" FOR OUTPUT AS #1
PRINT #1, "ATD" + ""; PN&; ""
LET time% = 15
DO
SOUND 32767, 9.1
SOUND 32767, 9.1
COLOR 8: LOCATE 4, 36: PRINT time%
LET time% = time% - 1
LOOP UNTIL time% = -1
SOUND 32767, 10
PRINT #1, "+++"
SOUND 32767, 10
PRINT #1, "AT Z H0"
PRINT #1, "ATH"
SOUND 32767, 10
CLOSE #1
IF Repeat% = 1 AND PN& = HN& THEN GOTO StartDialing
IF Rapeat% = 0 AND PN& = HN& THEN GOTO End.
LET PN& = PN& + 1
LOOP
End.:
PLAY "T200L50MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.<C#DD#EFF#GG#AA#B>"
PLAY "T200L50MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.<C#DD#EFF#GG#AA#B>"
PLAY "T200L50MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.<C#DD#EFF#GG#AA#B>"
PLAY "T200L50MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.<C#DD#EFF#GG#AA#B>"
PLAY "T200L50MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.<C#DD#EFF#GG#AA#B>"
PLAY "T200L50MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.<C#DD#EFF#GG#AA#B>"