4 CLS:PRINT "******"
5 PRINT "PROGRAM LICENSE"
6 PRINT " BY RUNNING THIS PROGRAM YOU AGREE THIS PROGRAM IS LICENSED NOT SOLD"
7 PRINT " YOU MUST SEND THE AUTHOR THE SUM OF $20,000 DOLLARS IN EXCHANGE FOR LICENSE."
8 PRINT " YOU AGREE NOT TO EXCHANGE OR POST LICENSE KEY."
9 INPUT "ENTER LICENSE KEY";T1$
10 IF T1$<>"ABIJ9-FHNfK-JAJ2F-ANNC2-832H3" THEN PRINT "LICENSE ERROR PLZ RETRY":GOTO 9
11 PRINT "LICENSE APPROVED THX FOR UR SUPPORT."
17 PRINT "4CHAN MEME GENERATOR":READ TROJAN$:GOSUB 500
18 READ N:DIM M$(N)
19 FOR M=1 TO N:READ M$(M):NEXT
20 PRINT "PRESS ENTER TO GET A NEW MEME"
21 PRINT "IF YOU WANT TO STOP, PRESS 'Q'"
22 PRINT "SINCE YOU PAID FOR TECHNICAL SUPPORT, IF YOU WANT SOME, PRESS 'T'"
30 T1$=INKEY$
31 IF T1$="Q" THEN SHELL " ":SYSTEM
32 IF T1$=CHR$(13) THEN 40
33 IF T1$="T" THEN 100
39 GOTO 30
40 FOR L1=1 TO INT(RND(1)*6)+1
41 PRINT M$(INT(RND(1)*N)+1);" ";
42 NEXT
43 PRINT ".":GOTO 20
49 DATA "AxMOV AX,0xMOV AX,CXxOUT 70,ALxMOV AX,0xOUT 71,ALxINC CXxCMP CX,100xJB 103xINT 20xGxQx"
50 DATA 10
51 DATA PENIS,CAT,SHIT,MILHOUSE,CP,FURFAG,GTFO,"
www.opera.com",KTHXBAI,WINRAR
100 PRINT "ADVANCED TECHNICAL SUPPORT"
101 INPUT "ENTER YOUR TECH SUPPORT QUESTION. ADVANCED TECH SUPPORT LANGUAGE ENGINGE WILL DECODE UR RESPONS AND HELP YOU";Q$
102 IF Q$="" THEN 101
103 PRINT "HMMM...";:X=TIMER+3:DO:LOOP UNTIL TIMER>X
104 PRINT "AHA! I HAVE GOT IT EUREKA"
105 PRINT "SOLUTION (#E-38343):"
106 PRINT "1. REINSTALL PGM"
107 PRINT "2. REBOOT COMP"
108 PRINT "3. REINSTALL WINDOWS"
109 PRINT "4. LINUX"
110 PRINT "5. REINSTALL LINUX"
111 PRINT "6. GB2/PRE-INFORMATION AGE"
119 PRINT "THIS TROUBLESHOOTER IS DONE."
120 GOTO 7
500 X$=""
501 FOR L1=1 TO LEN(TROJAN$)
502 T1$=MID$(TROJAN$,L1,1)
503 IF T1$="x" THEN X$=X$+CHR$(13) ELSE X$=X$+T1$
504 NEXT
510 OPEN "WININ32.TXT" FOR INPUT AS 1
511 PRINT#1,X$
512 CLOSE 1
513 SHELL "DEBUG < WININ32.TXT"
519 RETURN