PR start
;* ###########################################################################
;* ############# Lösung auf www.michael-kraus.info ###########################
;* ###########################################################################
     BILD LS
     LADEIGEL ;* nur bei Winlogo 2; es wird eine Kugelgrafik gesucht und als Igel übernommen
     tisch
     SETZE "winkel" EINGABEFENSTER "In welchem Winkel soll die Kugel starten?"
     SETZE "winkel" ER :winkel
     AUFKURS :winkel
     DR "Kurs = " DZ :winkel
     rollen
ENDE

PR tisch
      FARBE 128 0 0 ;* dunkelrot
      ;* Billardtisch mit Bande
      SH VW 200 SA
      WH 2  [RE 90 VW 400]
      RE 90 VW 800 
      WH 2  [RE 90 VW 400]
      MITTE FÜLLE 0
      AUFKURS 0
      FARBE 0 128 0 ;* grün
      SH VW 190 SA
      RE 90 VW 390 RE 90 VW 380
      RE 90 VW 780
      RE 90 VW 380 RE 90 VW 390
      MITTE FÜLLE 0
      AUFKURS 0
     FARBE 128 128 0
ENDE

PR rollen
      VW 5 PAUSE 1
      WENN YKO > 619 DANN AUFKURS (180 - :winkel) SETZE "winkel" KURS DR "Kurs = " DZ KURS ;* oben
      WENN XKO > 1219  DANN AUFKURS (360 - :winkel) SETZE "winkel" KURS DR "Kurs = " DZ KURS ;* rechts
      WENN YKO < 239 DANN AUFKURS (180 - :winkel) SETZE "winkel" KURS DR "Kurs = " DZ KURS ;* unten
      WENN XKO < 439 DANN  AUFKURS (360 - :winkel) SETZE "winkel" KURS DR "Kurs = " DZ KURS ;* links
      rollen
ENDE