home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43a.d64 / basisprogramm (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  332b  |  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.