1 REM Ins{nd av J|rgen Gustavsson <3528>    1985-04-05 17.19.09
1 REM  SCORESUB 
2 REM *** P% = PO[NGEN 
3 REM *** [NDRA RAD 6, 10, 58 OCH 68 
4 REM *** KOLLA NOLLST[LLNING VID START
5 FOR I8=1 TO 1500 : NEXT I8
6 P%=S% : REM I detta fall var S% po{ngen i spelet
7 DIM T8$(17%)=3%,P8$(16%)=3%,S8$(17%)=3%,T8%(17%),P8%(17%),S8%(17%)
8 IF T8%(1%)=0% THEN 9 ELSE 13
9 T8%(1%)=1% : FOR I8%=1% TO 15% : P8$(I8%)="___" : NEXT I8%
10 OPEN "BIL.REC" ASFILE 5
11 FOR I8%=1% TO 15% : INPUT #5,S8%(I8%),S8$(I8%),T8%(I8%),T8$(I8%) : NEXT I8%
12 CLOSE 5
13 ; CHR$(12);"       ***  SCORE-BOARD ***"
14 ; "            ==========="
15 ; : ; : ; "  Today         Personal      Alltime"
16 ; "  -----         ________      ______"
17 FOR I8%=1% TO 15%
18 IF P%>P8%(I8%) THEN 20
19 NEXT I8% : P8%=16% : GOTO 24
20 P8%=I8%
21 FOR I8%=15% TO P8%+1% STEP -1%
22 P8%(I8%)=P8%(I8%-1%) : P8$(I8%)=P8$(I8%-1%)
23 NEXT I8% : P8%(P8%)=P%
24 FOR I8%=1% TO 15%
25 IF P%>T8%(I8%) THEN 27
26 NEXT I8% : T8%=16% : GOTO 31
27 T8%=I8% : GOSUB 64
28 FOR I8%=15% TO T8%+1% STEP -1%
29 T8%(I8%)=T8%(I8%-1%) : T8$(I8%)=T8$(I8%-1%)
30 NEXT I8% : T8%(T8%)=P%
31 FOR I8%=1% TO 15%
32 ; CUR(5%+I8%,0%);P8%(I8%);CUR(5%+I8%,8%);P8$(I8%);
33 ; CUR(5%+I8%,14%);S8%(I8%);CUR(5%+I8%,22%);S8$(I8%);
34 ; CUR(5%+I8%,28%);T8%(I8%);CUR(5%+I8%,36%);T8$(I8%);
35 NEXT I8%
36 POKE 65013,0
37 ; CUR(5%+P8%,7%);"     "
38 IF T8%=16% THEN 40
39 ; CUR(5%+T8%,35%);"    "
40 ; CUR(5%+P8%,7%); : INPUT P8$(P8%)
41 IF P8$(P8%)='' 58
42 IF T8%=16% THEN 44
43 T8$(T8%)=P8$(P8%) : ; CUR(5%+T8%,36%);T8$(T8%)
44 FOR I8%=1% TO 15% : IF S8$(I8%)=P8$(P8%) 49 : NEXT I8%
45 FOR I8%=1% TO 15% : IF P%>S8%(I8%) 47
46 NEXT I8% : S8%=16% : GOTO 55
47 S8%=I8% : GOSUB 64 : FOR I8%=15% TO S8%+1% STEP -1%
48 S8%(I8%)=S8%(I8%-1%) : S8$(I8%)=S8$(I8%-1%) : NEXT I8% : S8%(S8%)=P% : S8$(S8%)=P8$(P8%) : GOTO 55
49 S8%=I8% : IF P%>S8%(S8%) 50 ELSE 58
50 GOSUB 64 : FOR I8%=S8% TO 14% : S8%(I8%)=S8%(I8%+1%) : S8$(I8%)=S8$(I8%+1%) : NEXT I8%
51 FOR I8%=1% TO 15% : IF P%>S8%(I8%) 52 : NEXT I8%
52 S8%=I8% : GOSUB 64 : FOR I8%=14% TO S8%+1% STEP -1%
53 S8%(I8%)=S8%(I8%-1%) : S8$(I8%)=S8$(I8%-1%)
54 NEXT I8% : S8%(S8%)=P% : S8$(S8%)=P8$(P8%)
55 FOR I8%=1% TO 15%
56 ; CUR(5%+I8%,14%);S8%(I8%);CUR(5%+I8%,22%);S8$(I8%)
57 NEXT I8%
58 IF T8%(17%)=0% 61 : PREPARE "BIL.REC" ASFILE 5
59 FOR I8%=1% TO 15% : ; #5,S8%(I8%) : ; #5,S8$(I8%) : ; #5,T8%(I8%) : ; #5,T8$(I8%) : NEXT I8%
60 CLOSE 5 : T8%(17%)=0%
61 ; CUR(23%,0%);"EN G]NG TILL <J/N>  (I=INSTRUKTIONER)"; : GET T8$(16%)
62 IF T8$(16%)='N' OR T8$(16%)='n' END 
63 IF T8$(16%)='I' OR T8$(16%)='i' 1 ELSE 1 : REM *** [NDRA RADNUMMER 1
64 T8%(17%)=1% : OUT 6,237 : FOR I8=1 TO 1200 : NEXT I8 : OUT 6,0 : RETURN