Das PureBasic Vaterunser

[Coder Pinhead]

Wie der Titel schon sagt das PureBasic Vaterunser .

Code: Alles auswählen

Define.s

ZeileEins   = "PureBasic im Code"+#CRLF$+""
ZeileZwei   = "der du bist im Setup"+#CRLF$+""
ZeileDrei   = "deine Schleife komme"+#CRLF$+""
ZeileVier   = "wie im Source so auch im Binary"+#CRLF$+""
ZeileFuenf  = "Unser tägliches Array, füll uns heute"+#CRLF$+""
ZeileSex    = "Und vergib uns unsere Syntaxfehler"+#CRLF$+""
ZeileSieben = "wie auch wir vergeben unserem Compiler"+#CRLF$+""
ZeileAcht   = "Und führe uns nicht zu anderen Basic Dialekten oder Programmier Sprachen"+#CRLF$+""
ZeileNeun   = "sondern erlöse uns von den Bugs"+#CRLF$+""
ZeileZehn   = "Denn dein ist die IDE, VD und LIB in Ewigkeit"+#CRLF$+""

MessageRequester("Das PureBasic Vaterunser", ZeileEins + ZeileZwei + ZeileDrei + ZeileVier + ZeileFuenf + ZeileSex + ZeileSieben + ZeileAcht + ZeileNeun + ZeileZehn + ZeileElf, #PB_MessageRequester_Ok)

Grüße,

[Andesdaf]

Amen.

[ts-soft]

Der Code ist so umständlich, der ist mir kein Amen wert

[X0r]

Der Code ist so umständlich, der ist mir kein Amen wert

Ja, der Code ist eine echte Beleidigung.

[hjbremer]

Code: Alles auswählen

Define datatext.s
Define *p.Character = ?VaterUnserStart

Repeat
  datatext + PeekS(*p) + #LF$
  
  While *p\c: *p + SizeOf(Character): Wend   ;*p hochzählen bis zur Null
  *p + SizeOf(Character)                     ;Null überspringen
   
Until *p = ?VaterUnserEnde

MessageRequester("VaterUnser", datatext)

DataSection
  VaterUnserStart:
   Data.s "PureBasic im Code"
   Data.s "der du bist im Setup"
   Data.s "deine Schleife komme"
   Data.s "wie im Source so auch im Binary"
   Data.s "Unser tägliches Array, füll uns heute"
   Data.s "Und vergib uns unsere Syntaxfehler"
   Data.s "wie auch wir vergeben unserem Compiler"
   Data.s "Und führe uns nicht zu anderen Basic Dialekten oder Programmier Sprachen"
   Data.s "sondern erlöse uns von den Bugs"
   Data.s "Denn dein ist die IDE, VD und LIB in Ewigkeit"
   Data.s ""
   Data.s "Amen"
  VaterUnserEnde:
EndDataSection

[rolaf]

Mir ist es nur ein Bmen wert.
Für den Code bleibt der Klingelbeutel leer.

[Mok]

Besser?

Code: Alles auswählen

EnableExplicit

Macro P_ : Chr(%1010000) : EndMacro
Macro u : Chr(%1110101) : EndMacro
Macro r : Chr(%1110010) : EndMacro
Macro e : Chr(%1100101) : EndMacro
Macro B_ : Chr(%1000010) : EndMacro
Macro a : Chr(%1100001) : EndMacro
Macro s : Chr(%1110011) : EndMacro
Macro i : Chr(%1101001) : EndMacro
Macro c : Chr(%1100011) : EndMacro
Macro m : Chr(%1101101) : EndMacro
Macro C_ : Chr(%1000011) : EndMacro
Macro o : Chr(%1101111) : EndMacro
Macro d : Chr(%1100100) : EndMacro
Macro b : Chr(%1100010) : EndMacro
Macro t : Chr(%1110100) : EndMacro
Macro S_: Chr(%1010011) : EndMacro
Macro p : Chr(%1110000) : EndMacro
Macro n : Chr(%1101110) : EndMacro
Macro h : Chr(%1101000) : EndMacro
Macro l : Chr(%1101100) : EndMacro
Macro f : Chr(%1100110) : EndMacro
Macro k : Chr(%1101011) : EndMacro
Macro w : Chr(%1110111) : EndMacro
Macro y : Chr(%1111001) : EndMacro
Macro U_: Chr(%1010101) : EndMacro
Macro _ae : Chr(%11100100) : EndMacro
Macro g : Chr(%1100111) : EndMacro
Macro A_: Chr(%1000001) : EndMacro
Macro _ue: Chr(%11111100) : EndMacro
Macro v : Chr(%1110110) : EndMacro
Macro x : Chr(%1111000) : EndMacro
Macro z : Chr(%1111010) : EndMacro
Macro D_: Chr(%1000100) : EndMacro
Macro _oe : Chr(%11110110) : EndMacro
Macro I_: Chr(%1001001) : EndMacro
Macro E_: Chr(%1000101) : EndMacro
Macro _com : Chr(%101100) : EndMacro
Macro _ : Chr(%100000) : EndMacro
Macro V_: Chr(%1010110) : EndMacro
Macro L_: Chr(%1001100) : EndMacro
Macro _nl: Chr(%1101) : EndMacro

Macro __: MessageRequester : EndMacro
Macro ___:+: EndMacro

__ ( D_ ___ a ___ s ___ _ ___ P_ ___ u ___ r ___ e ___ B_ ___ a ___ s ___ i ___ c ___ _ ___ V_ ___ a ___ t ___ e ___ r ___ u ___ n ___ s ___ e ___ r, P_ ___ u ___ r ___ e ___ B_ ___ a ___ s ___ i ___ c ___ _ ___ i ___ m ___ _ ___ C_ ___ o ___ d ___ e ___ _nl ___  d ___ e ___ r ___ _ ___ d ___ u ___ _ ___ b ___ i ___ s ___ t ___ _ ___ i ___ m ___ _ ___ S_ ___ e ___ t ___ u ___ p ___ _nl ___ d ___ e ___ i ___ n ___ e ___ _ ___ S_ ___ c ___ h ___ l ___ e ___ i ___ f ___ e ___ _ ___ k ___ o ___ m ___ m ___ e ___ _nl ___ w ___ i ___ e ___ _ ___ i ___ m ___ _ ___ S_ ___ o ___ u ___ r ___ c ___ e ___ _ ___ s ___ o ___ _ ___ a ___ u ___ c ___ h ___ _ ___ i ___ m ___ _ ___ B_ ___ i ___ n ___ a ___ r ___ y ___ _nl ___ U_ ___ n ___ s ___ e ___ r ___ _ ___ t ___ _ae ___ g ___ l ___ i ___ c ___ h ___ e ___ s ___ _ ___ A_ ___ r ___ r ___ a ___ y ___ _com ___ _ ___ f ___ _ue ___ l ___ l ___ _ ___ u ___ n ___ s ___ _ ___ h ___ e ___ u ___ t ___ e ___ _nl ___ U_ ___ n ___ d ___ _ ___ v ___ e ___ r ___ g ___ i ___ b ___ _ ___ u ___ n ___ s ___ _ ___ u ___ n ___ s ___ e ___ r ___ e ___ _ ___ S_ ___ y ___ n ___ t ___ a ___ x ___ f ___ e ___ h ___ l ___ e ___ r ___ _nl ___ w ___ i ___ e ___ _ ___ a ___ u ___ c ___ h ___ _ ___ w ___ i ___ r ___ _ ___ v ___ e ___ r ___ g ___ e ___ b ___ e ___ n ___ _ ___ u ___ n ___ s ___ e ___ r ___ e ___ m ___ _ ___ C_ ___ o ___ m ___ p ___ i ___ l ___ e ___ r ___ _nl ___ U_ ___ n ___ d ___ _ ___ f ___ _ue ___ h ___ r ___ e ___ _ ___ u ___ n ___ s ___ _ ___ n ___ i ___ c ___ h ___ t ___ _ ___ z ___ u ___ _ ___ a ___ n ___ d ___ e ___ r ___ e ___ n ___ _ ___ B_ ___ a ___ s ___ i ___ c ___ _ ___ D_ ___ i ___ a ___ l ___ e ___ k ___ t ___ e ___ n ___ _ ___ o ___ d ___ e ___ r ___ _ ___ P_ ___ r ___ o ___ g ___ r ___ a ___ m ___ m ___ i ___ e ___ r ___ _ ___ S_ ___ p ___ r ___ a ___ c ___ h ___ e ___ n ___ _nl ___ s ___ o ___ n ___ d ___ e ___ r ___ n ___ _ ___ e ___ r ___ l ___ _oe ___ s ___ e ___ _ ___ u ___ n ___ s ___ _ ___ v ___ o ___ n ___ _ ___ d ___ e ___ n ___ _ ___ B_ ___ u ___ g ___ s ___ _nl ___ D_ ___ e ___ n ___ n ___ _ ___ d ___ e ___ i ___ n ___ _ ___ i ___ s ___ t ___ _ ___ d ___ i ___ e ___ _ ___ I_ ___ D_ ___ E_ ___ _com ___ _ ___ V_ ___ D_ ___ _ ___ u ___ n ___ d ___ _ ___ L_ ___ I_ ___ B_ ___ _ ___ i ___ n ___ _ ___ E_ ___ w ___ i ___ g ___ k ___ e ___ i ___ t ___ _nl )

[RSBasic]

@Mok

Am besten wärs ja noch, wenn man das mit IASM machen würde.^^

[Mok]

Am besten wärs ja noch, wenn man das mit IASM machen würde.^^

So fad ist mir dann auch wieder nicht

[Coder Pinhead]

Und weil's gerade so Lustig ist noch ein Vaterunser von mir nur diesmal als Schleife .

Code: Alles auswählen

Dim Zeilen.s(9)

Zeilen(0) = "PureBasic im Code"
Zeilen(1) = "der du bist im Setup"
Zeilen(2) = "deine Schleife komme"
Zeilen(3) = "wie im Source so auch im Binary"
Zeilen(4) = "Unser tägliches Array, füll uns heute"
Zeilen(5) = "Und vergib uns unsere Syntaxfehler"
Zeilen(6) = "wie auch wir vergeben unserem Compiler"
Zeilen(7) = "Und führe uns nicht zu anderen Basic Dialekten oder Programmier Sprachen"
Zeilen(8) = "sondern erlöse uns von den Bugs"
Zeilen(9) = "Denn dein ist die IDE, VD und LIB in Ewigkeit"

For x.i = 0 To  9
  MessageRequester("Das PureBasic Vaterunser", Zeilen(x), #PB_MessageRequester_Ok)
Next  x

-----
Ganz schön Interessant wie viel Möglichkeiten es gibt ein und das selbe Lauffähig zu bekommen .