Global w.wort

Type wort
Field inhalt$
End Type

;hier beginnt eine schleife, wie unschwer zu erkennen ist :)
Repeat

;der benutzer soll ein wort eingeben, ...
wort$=Input(": ")

;das, wenn es 'end' entspricht, die repeat schleife beendet, falls dem nicht so ist...
If wort$ <> "end" Then
   w.wort = New wort ; ein neues wort erstellen
   w\inhalt$=wort$   
   Insert w Before First wort ; dieses Wort ganz an den Anfang der tpye liste setzen
   For w.wort = Each wort
   If wort$ > w\inhalt ; wenn das eingegeben Wort > als der inhalt ist
   Insert w Before Before w ; verschieben wir den inhalt eins nach hinten
   ElseIf wort$ < w\inhalt$  ; ansonsten wenn das eing. Wort < ist, beenden wir das
   Exit                     ;überprüfen..
   EndIf
   
   Next
   
Else ;wenn wort = end
   Exit ; beenden der repeat schleife
EndIf

Forever

For w.wort = Each wort ;alles anzeigen, sortiert natürlich
Print w\inhalt$
Next

; auf eine tasteneingabe warten und danach beenden
WaitKey
End

Class Player
   Method Gehen()
      Gehe um 2 schritte gerade aus
   end Method
end Class

Player.Gehen