Brainfuck

Dieser Artikel befindet sich im Aufbau und ist vorläufig als Entwurf einzustufen.

Dieser Artikel behandelt die esoterische Programmiersprache Brainfuck aus der Sicht der Commodore Computersysteme.

Beispiel

>++++++++[<+++++++++++++>-]<.
>+++++++[<----->-]<.
+++++++..
+++.
>>>++++++++[<++++>-] <.<<
>++++[<++>-]<.
--------.
+++.
------.
--------.
[-]>++++++++[<++++>- ]<+.
[-]++++++++++.

erzeugt

    0 rem brainfuck
    1 dim m%(255) : rem memory
    2 p%=0 : rem pointer
    3 p%=p%+1and255
    4 m%(p%)=m%(p%)+8and255
    5 if m%(p%) = 0 then    11
    6 p%=p%-1and255
    7 m%(p%)=m%(p%)+13and255
    8 p%=p%+1and255
    9 m%(p%)=m%(p%)-1and255
   10 goto 5
   11 p%=p%-1and255
   12 print chr$(m%(p%));
   13 p%=p%+1and255
   14 m%(p%)=m%(p%)+7and255
   15 if m%(p%) = 0 then    21
   16 p%=p%-1and255
   17 m%(p%)=m%(p%)-5and255
   18 p%=p%+1and255
   19 m%(p%)=m%(p%)-1and255
   20 goto 15
   21 p%=p%-1and255
   22 print chr$(m%(p%));
   23 m%(p%)=m%(p%)+7and255
   24 print chr$(m%(p%));
   25 print chr$(m%(p%));
   26 m%(p%)=m%(p%)+3and255
   27 print chr$(m%(p%));
   28 p%=p%+3and255
   29 m%(p%)=m%(p%)+8and255
   30 if m%(p%) = 0 then    36
   31 p%=p%-1and255
   32 m%(p%)=m%(p%)+4and255
   33 p%=p%+1and255
   34 m%(p%)=m%(p%)-1and255
   35 goto 30
   36 p%=p%-1and255
   37 print chr$(m%(p%));
   38 p%=p%-2and255
   39 p%=p%+1and255
   40 m%(p%)=m%(p%)+4and255
   41 if m%(p%) = 0 then    47
   42 p%=p%-1and255
   43 m%(p%)=m%(p%)+2and255
   44 p%=p%+1and255
   45 m%(p%)=m%(p%)-1and255
   46 goto 41
   47 p%=p%-1and255
   48 print chr$(m%(p%));
   49 m%(p%)=m%(p%)-8and255
   50 print chr$(m%(p%));
   51 m%(p%)=m%(p%)+3and255
   52 print chr$(m%(p%));
   53 m%(p%)=m%(p%)-6and255
   54 print chr$(m%(p%));
   55 m%(p%)=m%(p%)-8and255
   56 print chr$(m%(p%));
   57 if m%(p%) = 0 then    60
   58 m%(p%)=m%(p%)-1and255
   59 goto 57
   60 p%=p%+1and255
   61 m%(p%)=m%(p%)+8and255
   62 if m%(p%) = 0 then    68
   63 p%=p%-1and255
   64 m%(p%)=m%(p%)+4and255
   65 p%=p%+1and255
   66 m%(p%)=m%(p%)-1and255
   67 goto 62
   68 p%=p%-1and255
   69 m%(p%)=m%(p%)+1and255
   70 print chr$(m%(p%));
   71 if m%(p%) = 0 then    74
   72 m%(p%)=m%(p%)-1and255
   73 goto 71
   74 m%(p%)=m%(p%)+10and255
   75 print chr$(m%(p%));
   76 end

Links

Wikipedia: Brainfuck

• Implementierung von Gergő Érdi cc65-Quellcode für einen BASIC-Transpiler
• Implementierung von Heiko Prüssing
• CSDb- Release Nr. 74303 Implementierung von "Marco64"
• CSDb- Release Nr. 74814 Implementierung von Ninja/The Dreams
• Apple II