PureBoard

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)

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

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 )

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