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 >
Encoding:
Commodore BASIC  |  1988-01-01  |  332 b   |  24 lines
  1. 100 rem******* listing 1 ***********
  2. 102 :
  3. 105 rem----- ewige bestenliste --------
  4. 107 :
  5. 110 input "name";na$
  6. 120 input"resultat =";pz
  7. 130 :
  8. 199 :
  9. 210 for k=1 to 10
  10. 220 if pz>pl(k) then gosub 1100
  11. 225 print k;pl(k);na$(k)
  12. 230 next k
  13. 240 get a$:if a$="" then 240
  14. 250 goto 110
  15. 299 :
  16. 1100 a=pl(k)
  17. 1110 pl(k)=pz
  18. 1120 pz=a
  19. 1125 :
  20. 1130 b$=na$(k)
  21. 1140 na$(k)=na$
  22. 1150 na$=b$
  23. 1160 return
  24.