💾 Archived View for spam.works › mirrors › textfiles › phreak › fakephre.bas captured on 2023-06-16 at 19:43:21.
-=-=-=-=-=-=-
1 REM System Buster 2 REM By Phreak Phantom 3 REM Version 1.0 10/26/86 10 CLS:LOCATE ,,0:SCREEN 0,0,0:KEY OFF 20 COLOR 20 30 LOCATE 10,28:PRINT "System Buster......" 40 COLOR 2:LOCATE 12,28:PRINT "By Phreak Phantom" 41 COLOR 6:LOCATE 14,28:PRINT "Version 1.0 10/26/86" 50 FOR X=1 TO 2555:NEXT X 60 CLS:PRINT "Name?":INPUT B$:FOR X=1 TO 2000:NEXT X:CLS 70 PRINT "Access code?":COLOR 20:LOCATE 1,60:PRINT "System Inactive":COLOR 2 80 INPUT A$ 85 PRINT 90 PRINT A$ " ,is that right?" 100 INPUT A$ 110 PRINT:PRINT "How can I be sure this is " B$"?" 120 INPUT A$ 130 PRINT "Same to you buddy boy...":FOR X=1 TO 1500:NEXT X 140 CLS:COLOR 9:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,67:PRINT "Active" 150 COLOR 2:PRINT "Com1 or Com2 (1/2)?":INPUT A$ 151 COLOR 7:PRINT "Enter Fone Number 1 digit at a time." 152 COLOR 2 170 PRINT "Number 1" 180 INPUT A$ 185 PRINT 190 PRINT "Number 2" 200 INPUT B$ 205 PRINT 210 PRINT "Number 3" 220 INPUT C$ 225 PRINT 230 PRINT "Number 4" 240 INPUT D$ 245 PRINT 250 PRINT "Number 5" 260 INPUT E$ 265 PRINT 270 PRINT "Number 6" 280 INPUT F$ 285 PRINT 290 PRINT "Number 7" 300 INPUT G$ 305 PRINT 310 CLS:COLOR 9:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,67:PRINT "Active" 320 COLOR 2:PRINT A$ B$ C$"-"D$ E$ F$ G$ 330 PRINT "Is this right?" 340 INPUT DF$ 350 PRINT "Ok, lets rock and roll!" 360 FOR X=1 TO 1500:NEXT X 370 CLS:COLOR 6:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,68:PRINT "Active" 380 PRINT "==========" 390 PRINT "="A$ B$ C$"-"D$ E$ F$ G$"=" 400 PRINT "==========" 410 COLOR 2 415 LOCATE 7,1:PRINT "Dialing. . . ." 420 COLOR 3:FOR X=1 TO 4555:NEXT X 425 LOCATE 10,1:PRINT A$ 430 FOR X=1 TO 850:NEXT X 440 LOCATE 10,3:PRINT B$ 450 FOR X=1 TO 850:NEXT X 460 LOCATE 10,5:PRINT C$"-" 465 FOR X=1 TO 850:NEXT X 470 LOCATE 10,7:PRINT D$ 480 FOR X=1 TO 850:NEXT X 490 LOCATE 10,9:PRINT E$ 495 FOR X=1 TO 850:NEXT X 500 LOCATE 10,11:PRINT F$ 505 FOR X=1 TO 850:NEXT X 510 LOCATE 10,13:PRINT G$ 520 FOR X=1 TO 850:NEXT X 525 COLOR 9:LOCATE 7,1:PRINT "Dialing complete...." 535 FOR X=1 TO 2900:NEXT X 540 CLS:COLOR 6:LOCATE 1,60:PRINT "System":COLOR 20:LOCATE 1,68:PRINT "Connected":COLOR 9 550 LOCATE 1,1:PRINT A$ B$ C$"-"D$ E$ F$ G$ 560 LOCATE 2,1:PRINT "Connected......." 561 FOR X=1 TO 4000:NEXT X 562 PRINT "Operating at 1200 baud.":FOR X=1 TO 3000:NEXT X:PRINT "Simple COLOSSUS code system":FOR X=1 TO 4000:NEXT X 571 COLOR 4:PRINT "Determining Code Structure":FOR X=1 TO 7000:NEXT X 572 COLOR 2:PRINT "Code Struture Found/Determined":FOR X=1 TO 4000:NEXT X 573 COLOR 6:PRINT "Entering DECODE sub-program, please wait.":FOR X=1 TO 8000:NEXT X 574 COLOR 3:PRINT "Sub-program runing.":FOR X=1 TO 6000:NEXT X 575 COLOR 4:PRINT "Begining DECODING PROCESS.":FOR X=1 TO 8000:NEXT X 580 LOCATE 16,30:PRINT "Decoding process begining in...." 590 LOCATE 16,61:PRINT "10" 600 FOR X=1 TO 700:NEXT X 610 LOCATE 16,61:PRINT "09" 620 FOR X=1 TO 700:NEXT X 621 LOCATE 16,61:PRINT "08" 622 FOR X=1 TO 700:NEXT X 650 LOCATE 16,61:PRINT "07" 660 FOR X=1 TO 700:NEXT X 670 LOCATE 16,61:PRINT "06" 680 FOR X=1 TO 700:NEXT X 690 LOCATE 16,61:PRINT "05" 700 FOR X=1 TO 700:NEXT X 710 LOCATE 16,61:PRINT "04" 720 FOR X=1 TO 700:NEXT X 730 LOCATE 16,61:PRINT "03" 740 FOR X=1 TO 700:NEXT X 750 LOCATE 16,61:PRINT "02" 760 FOR X=1 TO 700:NEXT X 770 LOCATE 16,61:PRINT "01" 780 FOR X=1 TO 700:NEXT X 785 LOCATE 16,61:PRINT "00" 790 FOR X=1 TO 1000:NEXT X 800 LOCATE 16,30:PRINT "Process is completed, go ahead " 805 FOR X=1 TO 1000:NEXT X 810 CLS 820 INPUT A$ 830 PRINT "Ok" 840 INPUT A$ 850 PRINT "Ok" 860 INPUT A$ 870 PRINT "Ok" 880 INPUT A$ 890 PRINT "Ok" 900 INPUT A$ 910 PRINT "Ok" 920 INPUT A$ 930 PRINT "Ok" 940 INPUT A$ 950 PRINT "Ok" 955 FOR X=1 TO 3000:NEXT X 960 COLOR 2:PRINT "Trap/Trace signal being received." 970 COLOR 20:PRINT "Danger!" 980 FOR X=1 TO 3000:NEXT X 990 COLOR 8:PRINT "Shall I terminate Connection?" 1000 INPUT ZXA$ 1100 PRINT 1200 PRINT 1300 PRINT 1400 PRINT 1500 COLOR 20:PRINT "Trap complete! Danger!" 1600 FOR X=1 TO 4500:NEXT X 1700 COLOR 2:PRINT "Foil Trace signal beging sent to fool TRACE." 1800 FOR X=1 TO 4500:NEXT X 1900 COLOR 20:PRINT "Trace beginging! Danger! 2000 FOR X=1 TO 4500:NEXT X 2100 COLOR 2:PRINT "Sending dummy trace signal." 2200 COLOR 20:PRINT "Danger!" 2300 FOR X=1 TO 4500:NEXT X 2500 COLOR 2:PRINT "Danger, cannot sent hang up signal to modem!" 2600 COLOR 20:PRINT "Danger!" 2700 FOR X=1 TO 4500:NEXT X 2701 PRINT "Hope your wearing anti-persperent":FOR X=1 TO 3000:NEXT X 2702 COLOR 20:PRINT "<HIT> Alt-H to send a 3000 mhz down the line." 2703 IF INKEY$="" THEN 2703 2704 PRINT "Fried em'":FOR X=1 TO 5000:NEXT X 2800 COLOR 2:PRINT "Hang up complete, No danger...." 2900 COLOR 2:PRINT "That was a close one, that makes the 35 one. " 3000 PRINT "Program ending, see ya later."