home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 June / 64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64 / persoen.liste (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  439b  |  28 lines
  1. 100 rem******** listing 2 **********
  2. 102 :
  3. 105 rem--- persoenliche bestenliste ---
  4. 107 :
  5. 110 input "name";nl$
  6. 120 input"resultat =";pz
  7. 130 :
  8. 150 for k=1 to 10
  9. 160 if nl$=nl$(k) and pz<=pl(k) then pz=0
  10. 170 if nl$=nl$(k) and pz>pl(k) then pl(k)=0:nl$(k)=""
  11. 180 next k
  12. 199 :
  13. 210 for k=1 to 10
  14. 220 if pz>pl(k) then gosub 1100
  15. 225 print k;pl(k);nl$(k)
  16. 230 next k
  17. 240 get a$:if a$="" then 240
  18. 250 goto 110
  19. 299 :
  20. 1100 a=pl(k)
  21. 1110 pl(k)=pz
  22. 1120 pz=a
  23. 1125 :
  24. 1130 b$=nl$(k)
  25. 1140 nl$(k)=nl$
  26. 1150 nl$=b$
  27. 1160 return
  28.