DEFINE Sinus
  LOCAL P1
  LOCAL P2
  LOCAL Wabstand
  LOCAL Winkr
  LOCAL Xinkr
  LOCAL Laenge
  LOCAL Amplitude
  LOCAL Winkel
  LOCAL Teiler
  LOCAL X
  LOCAL X1
  LOCAL Y
  LOCAL Y1
  LOCAL N
  READ NUMBER 'Laenge der Darstellung?(mm)' Laenge
  READ NUMBER 'Welcher Winkelbereich soll dargestellt werden?( 0 - X)'
  Winkel
  READ NUMBER 'Welche Amplitude soll die Schwingung haben?' Amplitude
  READ NUMBER 'Wieviel Teilschritte sollen aufgeloest werden?' Teiler
  READ PNT 'Geben Sie den Anfangspunkt ein!' P1
  LET Wabstand (Winkel/Teiler)
  LET Xinkr (Laenge/Teiler)
  LET X (X_OF P1)
  LET Y (Y_OF P1)
  LET N 1
  LET Winkr Wabstand
  LET X1 X
  LET Y1 0
  LOOP
    LET X1 (X1+Xinkr)
    LET Y1 (Y+(SIN (Winkr)*Amplitude))
    LET P2 (PNT_XY X1 Y1)
    LINE P1 P2
    END
    LET P1 (PNT_XY (X_OF P2) (Y_OF P2))
    LET N (N+1)
    LET Winkr (Winkr+Wabstand)
  EXIT_IF (N>Teiler)
  END_LOOP
END_DEFINE