100 REM******* LISTING 1 ***********
102 :
105 REM----- EWIGE BESTENLISTE --------
107 :
110 INPUT "NAME";NA$
120 INPUT"RESULTAT =";PZ
130 :
199 :
210 FOR K=1 TO 10
220 IF PZ>PL(K) THEN GOSUB 1100
225 PRINT K;PL(K);NA$(K)
230 NEXT K
240 GET A$:IF A$="" THEN 240
250 GOTO 110
299 :
1100 A=PL(K)
1110 PL(K)=PZ
1120 PZ=A
1125 :
1130 B$=NA$(K)
1140 NA$(K)=NA$
1150 NA$=B$
1160 RETURN