[...]

name1 = OpenFile("1name.txt")
name2 = OpenFile("2name.txt")
name3 = OpenFile("3name.txt")
name4 = OpenFile("4name.txt")
name5 = OpenFile("5name.txt")
zahl1 = OpenFile("1zahl.txt")
zahl2 = OpenFile("1zahl.txt")
zahl3 = OpenFile("1zahl.txt")
zahl4 = OpenFile("1zahl.txt")
zahl5 = OpenFile("1zahl.txt") 
zahl1 = ReadByte(zahl1)
zahl2 = ReadByte(zahl2)
zahl3 = ReadByte(zahl3)
zahl4 = ReadByte(zahl4)
zahl5 = ReadByte(zahl5)
If pkt < zahl5 Then stand = 6
If pkt = zahl5 Then stand = 5
If pkt > zahl5 And pkt < zahl4 Then stand = 5
If pkt = zahl4 Then stand = 4
If pkt > zahl4 And pkt < stand3 Then stand = 4
If pkt = zahl3 Then stand = 3
If pkt > zahl3 And pkt < stand2 Then stand = 3
If pkt = zahl2 Then stand = 2
If pkt > zahl2 And pkt < stand1 Then stand = 2
If pkt = zahl1 Then stand = 1
If pkt > tahl1 Then stand = 1
Select stand
 Case 1:
  WriteByte zahl5, Asc(zahl4)
  WriteByte zahl4, Asc(zahl3)
  WriteByte zahl3, Asc(zahl2)
  WriteByte zahl2, Asc(zahl1)
  WriteByte zahl1, Asc(pkt)
 
  WriteByte name5, Asc(name4$)
  WriteByte name4, Asc(name3$)
  WriteByte name3, Asc(name2$)
  WriteByte name2, Asc(name1$)
  WriteByte name1, Asc(name$)
 Case 2:
  WriteByte zahl5, Asc(zahl4)
  WriteByte zahl4, Asc(zahl3)
  WriteByte zahl3, Asc(zahl2)
  WriteByte zahl2, Asc(pkt)
 
  WriteByte name5, Asc(name4$)
  WriteByte name4, Asc(name3$)
  WriteByte name3, Asc(name2$)
  WriteByte name2, Asc(name$)
 Case 3:
  WriteByte zahl5, Asc(zahl4)
  WriteByte zahl4, Asc(zahl3)
  WriteByte zahl3, Asc(pkt)
 
  WriteByte name5, Asc(name4$)
  WriteByte name4, Asc(name3$)
  WriteByte name3, Asc(name$)
 Case 4:
  WriteByte zahl5, Asc(zahl4)
  WriteByte zahl4, Asc(pkt)
 
  WriteByte name5, Asc(name4$)
  WriteByte name4, Asc(name$)
 Case 5:
  WriteByte zahl5, Asc(pkt)
 
  WriteByte name5, Asc(name$)
 Case 6:
  stand = 0
 Case 0:
  stand = 0
End Select

[...]