hilo()
begin
  set zahl to rand(100) + 1;
                                # Zufallszahl zwischen 1 und 100
  lprint('Versuchen Sie, die Zahl zu erraten!');
  set versuche to 0;
  while ( versuche < 10 )       # eine ganze Menge Versuche
  begin
    lprint('Ihr Versuch:');
    set versuch to inputline(); # Benutzereingabe abfragen
    if ( versuch == zahl )      # und auswerten
    begin
      lprint('Super!!!');       # Erfolgsmeldung ausgeben
      return 0;                 # Makro beenden
    end
    else
    begin
      if ( versuch < zahl )
        lprint('Zu niedrig');   # Hinweise geben
      else
        lprint('Zu hoch');
      end
      set versuche to versuche + 1; # Versuche mitz„hlen
  end
  lprint('Das waren zu viele Versuche!');
end