home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 June
/
64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64
/
kompl.bestenlist
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
3KB
|
141 lines
5 rem******************************
6 rem******* bestenlisten *********
7 rem******************************
8 :
10 dim pl(60,2),nl$(60,2)
14 :
15 rem---------- menue -------------
16 :
20 printchr$(147) chr$(17) chr$(17) tab(10)"menue"
25 print:print:print " n = neues spiel"
30 print:print " e = ewige bestenliste"
35 print:print " p = persoenliche bestenliste"
40 print:print " t = tagesbestenliste"
45 print:print " s = speichern der listen"
50 print:print " l = laden der listen"
55 print:print " q = ende"
60 print spc(180) "bitte waehlen"
65 print:print
70 get a$:if a$="" then 70
75 for x=1 to 7
80 if a$=mid$("neptslq",x,1) then 95
85 next x
90 goto 20
95 on x goto 110,400,500,600,700,800,900
99 :
100 rem----- neues spiel ------
102 :
110 input "name";sn$
120 input"resultat =";re
125 :
130 f=0:rem----- persoenliche liste-----
133 :
140 nl$=sn$:pz=re
150 for k=1 to 60
160 if nl$=nl$(k,f) and pz<=pl(k,f) then pz=0
170 if nl$=nl$(k,f) and pz>pl(k,f) then pl(k,f)=0:nl$(k,f)=""
180 next k
190 gosub 1000
199 :
230 f=1:rem----- ewige besten-liste-----
233 :
240 nl$=sn$:pz=re
250 gosub 1000
299 :
330 f=2:rem----- tages-besten-liste-----
333 :
340 nl$=sn$:pz=re
350 gosub 1000
360 goto 20
399 :
400 rem--- drucken der ewigen liste ---
405 :
410 f=1
420 print chr$(147):print
430 print tab(3)"ewige bestenliste"
440 print
450 gosub 1200
460 goto 20
499 :
500 rem--- drucken der person.liste ---
505 :
510 f=0
520 print chr$(147):print
530 print tab(3)"persoenl. liste"
540 print
550 gosub 1200
560 goto 20
599 :
600 rem--- drucken der tages liste ---
605 :
610 f=2
620 print chr$(147):print
630 print tab(3)"tages-bestenliste"
640 print
650 gosub 1200
660 goto 20
699 :
700 rem----- speichern der liste ------
705 :
710 open1,8,3,"tab.,s,w"
720 for k=1 to 60
730 if nl$(k,0)=""then nl$(k,0)="."
740 if nl$(k,1)=""then nl$(k,1)="."
750 print#1,nl$(k,0):print#1,nl$(k,1)
760 print#1,str$(pl(k,0)):print#1,str$(pl(k,1))
770 next k
780 close 1
790 goto 20
799 :
800 rem----- laden der listen --------
805 :
810 open 1,8,4,"tab.,s,r"
820 for k=1 to 60
830 input#1,nl$(k,0):if nl$(k,0)="."then nl$(k,0)=""
840 input#1,nl$(k,1):if nl$(k,1)="."then nl$(k,1)=""
850 input#1,pl$(0),pl$(1)
860 pl(k,0)=val(pl$(0))
870 pl(k,1)=val(pl$(1))
880 next k
890 close1
895 goto 20
899 :
900 rem------spiel-ende --------
905 :
910 end
994 rem********************************
995 :
996 rem******* unterprogramme *********
997 :
998 rem------- sortieren 1 ---------
999 :
1000 for k=1 to 60
1010 if pz>pl(k,f) then gosub 1100
1020 next k
1030 return
1097 :
1098 rem------- sortieren 2 ---------
1099 :
1100 a=pl(k,f)
1110 pl(k,f)=pz
1120 pz=a
1125 :
1130 b$=nl$(k,f)
1140 nl$(k,f)=nl$
1150 nl$=b$
1160 return
1199 :
1200 rem---- drucken der listen -----
1205 :
1210 for k=1 to 60
1215 if k/21=int(k/21) then get a$:if a$="" then 1215
1220 j=1: if k>9 then j=2
1230 print tab(2) mid$(str$(k),j);
1240 print". ";
1250 lz=len(str$(pl(1,f)))
1260 print left$(nl$(k,f),14-lz);
1270 print tab(20-len(str$(pl(k,f))));pl(k,f)
1280 next k
1290 get a$:if a$=""then 1290
1295 return