100 REM******** LISTING 2 **********
102 :
105 REM--- PERSOENLICHE BESTENLISTE ---
107 :
110 INPUT "NAME";NL$
120 INPUT"RESULTAT =";PZ
130 :
150 FOR K=1 TO 10
160 IF NL$=NL$(K) AND PZ<=PL(K) THEN PZ=0
170 IF NL$=NL$(K) AND PZ>PL(K) THEN PL(K)=0:NL$(K)=""
180 NEXT K
199 :
210 FOR K=1 TO 10
220 IF PZ>PL(K) THEN GOSUB 1100
225 PRINT K;PL(K);NL$(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$=NL$(K)
1140 NL$(K)=NL$
1150 NL$=B$
1160 RETURN