' ******************************************
' **                                      **
' **           DEMO-PROGRAMM              **
' **                                      **
' ******************************************
'
@Text_install
A$="ST-COMPUTER"+Chr$(0)
Xs%=100
Ys%=100
Hidem
'
Do
  X_neu%=Mousex
  Y_neu%=Mousey
  If X_neu%<>X% Or Y_neu%<>Y% Or Xs_alt%<>Xs% Or Ys_alt%<>Ys% Or Alpha<>Alpha_alt
    '
    ' TEXT AN ALTER POSITION L™SCHEN
    '
    @Text_color(0,-1,0)
    @Text_exec(A$,X%,Y%)
    '
    ' TEXT AN DIE NEUE POSITION SCHREIBEN
    '
    @Text_parameter(Alpha,0,Xs%,Ys%)
    @Text_color(1,-1,0)
    @Text_exec(A$,X_neu%,Y_neu%)
    '
    X%=X_neu%
    Y%=Y_neu%
    Xs_alt%=Xs%
    Ys_alt%=Ys%
    Alpha_alt=Alpha
  Endif
  '
  If Mousek=1
    Add Xs%,7
    Add Ys%,7
    Xs%=Min(600,Xs%)
    Ys%=Min(600,Ys%)
  Else
    If Mousek=2
      Sub Xs%,7
      Sub Ys%,7
      Xs%=Max(0,Xs%)
      Ys%=Max(0,Ys%)
    Endif
  Endif
  '
  B$=Inkey$
  If B$="+"
    Add Alpha,15/180*Pi
  Else
    If B$="-"
      Sub Alpha,15/180*Pi
    Endif
  Endif
  '
Loop