PR start
;* #####################################################
;* ############# (c) www.michael-kraus.info ###############
;* #### Die Datei speichern und erst dann von Winlogo aus aufrufen ####
;* #####################################################
     BILD LS
     LADEIGEL "kugel.bmp" ;* Die Datei kugel.bmp muss im gleichen Ordner sein.
     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 AUFXY 200 250 SA ;* links unten
      AUFXY 200 600  ;* links oben
      AUFXY 800 600  ;* rechts oben
      AUFXY 800 250  ;* rechts unten
      AUFXY 200 250  ;* links unten
      AUFKURS 5 VW 10
      FÜLLE 0
      RW 10 AUFKURS 0
      FARBE 0 128 0 ;* grün
      SH AUFXY 210 260 SA ;* links unten
      AUFXY 210 590  ;* links oben
      AUFXY 790 590  ;* rechts oben
      AUFXY 790 260  ;* rechts unten
      AUFXY 210 260  ;* links unten
      AUFKURS 5 VW 10
      FÜLLE 0
      RW 10 AUFKURS 0
      FARBE 128 128 0
      SH AUFXY 500 425 SA
ENDE

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