home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 June
/
64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64
/
basisprogramm
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
332b
|
24 lines
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