Name: Anonymous 2007-07-28 21:48 ID:WsFMQ0j+
MAKE AN INTERPUTER OF BRAIN F**K IN BASIC PLZ KTHXBI
10 PRINT "BRAINFUCK"
20 GOTO 20
10 SYSTEM"BRNFUCK.COM
DECLARE SUB prelim ()
CLS
OPEN "bfin.txt" FOR INPUT AS #1
OPEN "bfout.bas" FOR OUTPUT AS #2
prelim
bf$ = INPUT$(LOF(1), #1)
FOR ps = 1 TO LOF(1) STEP 1
a$ = MID$(bf$, ps, 1)
SELECT CASE a$
CASE "+": PRINT #2, "a"
CASE "-": PRINT #2, "s"
CASE ">": PRINT #2, "w"
CASE "<": PRINT #2, "q"
CASE ",": PRINT #2, "g"
CASE ".": PRINT #2, "r"
CASE "[": PRINT #2, "do while p(i) <> 0"
CASE "]": PRINT #2, "loop"
END SELECT
PRINT a$;
NEXT
CLOSE #1
CLOSE #2
PRINT "": PRINT "press key to run"
DO WHILE INKEY$ = "": LOOP
RUN "bfout.bas"
SUB prelim
PRINT #2, "declare sub g ()": PRINT #2, "declare sub r ()": PRINT #2, "declare sub a ()": PRINT #2, "declare sub w ()": PRINT #2, "declare sub q ()": PRINT #2, "declare sub s ()"
PRINT #2, "dim shared p(16000) as long": PRINT #2, "dim shared i": PRINT #2, "cls": PRINT #2, "sub g": PRINT #2, "do: af$ = inkey$ : loop while af$ = "; CHR$(34); CHR$(34); " : p(i) = asc(af$) : af$ = "; CHR$(34); CHR$(34): PRINT #2, "end sub": _
PRINT #2, "sub r": PRINT #2, "print chr$(p(i));": PRINT #2, "end sub"
PRINT #2, "sub a": PRINT #2, "p(i) = p(i) + 1": PRINT #2, "end sub": PRINT #2, "sub w": PRINT #2, "i = i + 1": PRINT #2, "end sub": PRINT #2, "sub q": PRINT #2, "i = i - 1": PRINT #2, "end sub": PRINT #2, "sub s": PRINT #2, "p(i) = p(i) - 1": PRINT _
#2, "end sub"
PRINT #2, ""
END SUB