Programm zur Toneraufbügelmethode

[Paul Baumann (Gast)]

Programm zur Herstellung von Platinen
(By Paul Baumann)

var Platinengröße as Quadratzentimeter; Bügeleisen as Edelstahl; Papier
as ......?
var Bügeleisenleistung as Watt
var Bügelzeit, Wartezeit as Minute
var Aceton as Liquid

Begin
          If Bügeleisenleistung < 500 then print " zu gering"
  Endif
  Waitms (1000)

  For Bügelzeit = 0 to 5
              Print "Und bügeln, und bügeln..."
  next Bügelzeit

Cls
Print "Fertig gebügelt!"


  Procedure PFOTENVERBRENNEN
  var Pfote left, Pfote right
  If Platinentemperatur > 100 : Print "AUUUAHHH!!!" : endif

Gosub Badezimmer

  Procedure AUFWEICHEN
  Print "Plätscher, plätscher"
  If Leiterzüge abgelöst use Aceton : goto Begin: Endif
  Elseif  in Ordnung print "Gottseidank"
Return

  Procedure ABWASCHEN
  Use ACETON
  Repeat until Platine blank
End


'Kann sein, daß der Pascalcompiler Fehlermeldungen bringt :-))

MfG Paul

[Sambesi (Gast)]

Kannst Du das auch in C++ ?

[hahgeh (Gast)]

Einfach genial :) :) :)

ich kann schin garnicht mehr lesen vor Freudentränen, ich bin mal auf
die C++-Variante gespannt ;).

[Ludwig W. (lordludwig)]

hammer arbeit is echt ne gute idee

[Hagen (Gast)]

C++ Variante ist gut, die Frage ist was das oben für eine Sprache sein
soll. Pascal ist es nicht und Basic auch nicht so richtig.

Gruß Hagen

[dirk (Gast)]

Paul, genial ... du bist doch ein sehr positiv und sehr kreativ !

[Marcel (Hobbylöt) (Gast)]

Hat mal einer Langeweile gehabt, statt was sinnvolles zu Posten!

Gibt genug wichtigeres als sohn Quatsch.

[Hannes L. (hannes)]

Wieso ist Humor unwichtig?????????

...

[D. W. (dave)]

Und das Programm lässt sich kompilieren?

Schreib lieber noch die Fehler hin, die das erzeugt..

[dirk (Gast)]

Richtig , Tumor ist wenn man trozdem lacht! ... wer sagte das immer
didi... mh.

Paul hat was gemacht was gut ist  :-)

[Paul Baumann (Gast)]

Noch etwas für die bierernsten: Das ist PASBAS; ein Mittelding zwischen
Pascal und Basic. Damit läßt sich nur Lötzinn äh Blödsinn
compilieren.
:-)
Mfg Paul