home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43a.d64 / kompl.bestenlist (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  141 lines
  1. 5 REM******************************
  2. 6 REM******* BESTENLISTEN *********
  3. 7 REM******************************
  4. 8 :
  5. 10 DIM PL(60,2),NL$(60,2)
  6. 14 :
  7. 15 REM---------- MENUE -------------
  8. 16 :
  9. 20 PRINTCHR$(147) CHR$(17) CHR$(17) TAB(10)"MENUE"
  10. 25 PRINT:PRINT:PRINT "  N = NEUES SPIEL"
  11. 30 PRINT:PRINT "  E = EWIGE BESTENLISTE"
  12. 35 PRINT:PRINT "  P = PERSOENLICHE BESTENLISTE"
  13. 40 PRINT:PRINT "  T = TAGESBESTENLISTE"
  14. 45 PRINT:PRINT "  S = SPEICHERN DER LISTEN"
  15. 50 PRINT:PRINT "  L = LADEN DER LISTEN"
  16. 55 PRINT:PRINT "  Q = ENDE"
  17. 60 PRINT SPC(180) "BITTE WAEHLEN"
  18. 65 PRINT:PRINT
  19. 70 GET A$:IF A$="" THEN 70
  20. 75 FOR X=1 TO 7
  21. 80 IF A$=MID$("NEPTSLQ",X,1) THEN 95
  22. 85 NEXT X
  23. 90 GOTO 20
  24. 95 ON X GOTO 110,400,500,600,700,800,900
  25. 99 :
  26. 100 REM----- NEUES SPIEL ------
  27. 102 :
  28. 110 INPUT "NAME";SN$
  29. 120 INPUT"RESULTAT =";RE
  30. 125 :
  31. 130 F=0:REM----- PERSOENLICHE LISTE-----
  32. 133 :
  33. 140 NL$=SN$:PZ=RE
  34. 150 FOR K=1 TO 60
  35. 160 IF NL$=NL$(K,F) AND PZ<=PL(K,F) THEN PZ=0
  36. 170 IF NL$=NL$(K,F) AND PZ>PL(K,F) THEN PL(K,F)=0:NL$(K,F)=""
  37. 180 NEXT K
  38. 190 GOSUB 1000
  39. 199 :
  40. 230 F=1:REM----- EWIGE BESTEN-LISTE-----
  41. 233 :
  42. 240 NL$=SN$:PZ=RE
  43. 250 GOSUB 1000
  44. 299 :
  45. 330 F=2:REM----- TAGES-BESTEN-LISTE-----
  46. 333 :
  47. 340 NL$=SN$:PZ=RE
  48. 350 GOSUB 1000
  49. 360 GOTO 20
  50. 399 :
  51. 400 REM--- DRUCKEN DER EWIGEN LISTE ---
  52. 405 :
  53. 410 F=1
  54. 420 PRINT CHR$(147):PRINT
  55. 430 PRINT TAB(3)"EWIGE BESTENLISTE"
  56. 440 PRINT
  57. 450 GOSUB 1200
  58. 460 GOTO 20
  59. 499 :
  60. 500 REM--- DRUCKEN DER PERSON.LISTE ---
  61. 505 :
  62. 510 F=0
  63. 520 PRINT CHR$(147):PRINT
  64. 530 PRINT TAB(3)"PERSOENL. LISTE"
  65. 540 PRINT
  66. 550 GOSUB 1200
  67. 560 GOTO 20
  68. 599 :
  69. 600 REM--- DRUCKEN DER TAGES  LISTE ---
  70. 605 :
  71. 610 F=2
  72. 620 PRINT CHR$(147):PRINT
  73. 630 PRINT TAB(3)"TAGES-BESTENLISTE"
  74. 640 PRINT
  75. 650 GOSUB 1200
  76. 660 GOTO 20
  77. 699 :
  78. 700 REM----- SPEICHERN DER LISTE ------
  79. 705 :
  80. 710 OPEN1,8,3,"TAB.,S,W"
  81. 720 FOR K=1 TO 60
  82. 730 IF NL$(K,0)=""THEN NL$(K,0)="."
  83. 740 IF NL$(K,1)=""THEN NL$(K,1)="."
  84. 750 PRINT#1,NL$(K,0):PRINT#1,NL$(K,1)
  85. 760 PRINT#1,STR$(PL(K,0)):PRINT#1,STR$(PL(K,1))
  86. 770 NEXT K
  87. 780 CLOSE 1
  88. 790 GOTO 20
  89. 799 :
  90. 800 REM----- LADEN DER LISTEN --------
  91. 805 :
  92. 810 OPEN 1,8,4,"TAB.,S,R"
  93. 820 FOR K=1 TO 60
  94. 830 INPUT#1,NL$(K,0):IF NL$(K,0)="."THEN NL$(K,0)=""
  95. 840 INPUT#1,NL$(K,1):IF NL$(K,1)="."THEN NL$(K,1)=""
  96. 850 INPUT#1,PL$(0),PL$(1)
  97. 860 PL(K,0)=VAL(PL$(0))
  98. 870 PL(K,1)=VAL(PL$(1))
  99. 880 NEXT K
  100. 890 CLOSE1
  101. 895 GOTO 20
  102. 899 :
  103. 900 REM------SPIEL-ENDE --------
  104. 905 :
  105. 910 END
  106. 994 REM********************************
  107. 995 :
  108. 996 REM******* UNTERPROGRAMME *********
  109. 997 :
  110. 998 REM------- SORTIEREN 1 ---------
  111. 999 :
  112. 1000 FOR K=1 TO 60
  113. 1010 IF PZ>PL(K,F) THEN GOSUB 1100
  114. 1020 NEXT K
  115. 1030 RETURN
  116. 1097 :
  117. 1098 REM------- SORTIEREN 2 ---------
  118. 1099 :
  119. 1100 A=PL(K,F)
  120. 1110 PL(K,F)=PZ
  121. 1120 PZ=A
  122. 1125 :
  123. 1130 B$=NL$(K,F)
  124. 1140 NL$(K,F)=NL$
  125. 1150 NL$=B$
  126. 1160 RETURN
  127. 1199 :
  128. 1200 REM---- DRUCKEN DER LISTEN -----
  129. 1205 :
  130. 1210 FOR K=1 TO 60
  131. 1215 IF K/21=INT(K/21) THEN GET A$:IF A$="" THEN 1215
  132. 1220 J=1: IF K>9 THEN J=2
  133. 1230 PRINT TAB(2) MID$(STR$(K),J);
  134. 1240 PRINT". ";
  135. 1250 LZ=LEN(STR$(PL(1,F)))
  136. 1260 PRINT LEFT$(NL$(K,F),14-LZ);
  137. 1270 PRINT TAB(20-LEN(STR$(PL(K,F))));PL(K,F)
  138. 1280 NEXT K
  139. 1290 GET A$:IF A$=""THEN 1290
  140. 1295 RETURN
  141.