152 lines
4.8 KiB
QBasic
152 lines
4.8 KiB
QBasic
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."
|
||
|