textfiles/phreak/fakephre.bas

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."