Programm zur Toneraufbügelmethode

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