start tok64 d64-k2Ey9w
10 REM ********************************
20 REM *** highscore lista gjord av ***
30 REM ***   mikael pawlo f{pound}r shn   ***
40 REM *** ------------------------ ***
50 REM ***   denna rutin kan [ven   ***
60 REM ***  anv[ndas f{pound}r inmatning  ***
70 REM *** av m[tv[rden inom t.e.x. ***
80 REM ***          fysiken         ***
90 REM ********************************
100 :
110 REM *** om f{pound}rsta g]ngen:run 640 ***
120 DIMnamn$(12)
130 DIMsc(12)
140 REM *** po[ngen l[ggs in i ***
150 REM ***   variablen  duo   ***
160 :
170 REM *** <j[mf{pound}ra resultat> ***
180 OPEN3,8,15,"i0"
190 OPEN2,8,2,"scores,s,r"
200 INPUT#2,z
210 FORz=1TO12
220 INPUT#2,namn$(z):INPUT#2,sc(z)
230 NEXTz:CLOSE2
240 INPUT"score:";duo
250 REM *** ovant]ende input sats ***
260 REM ***  tas sj[lvklart bort  ***
270 REM *** vid anv[ndning i tex. ***
280 REM *** spel. spelarens po[ng ***
290 REM *** l[ggs dock in i "duo" ***
300 IF duo<sc(2)THEN GOTO 530
310 PRINT"{clear}{down}du kom in p] listan!"
320 PRINT"skriv ditt namn h[r, tack."
330 INPUTnamn$(2)
340 LETsc(2)=duo
350 LETk=0
360 FORshn=1TO11
370 IFsc(shn)>sc(shn+1)THEN GOTO 390
380 GOTO 460
390 LETt=sc(shn)
400 LETd$=namn$(shn)
410 LETsc(shn)=sc(shn+1)
420 LETnamn$(shn)=namn$(shn+1)
430 LETsc(shn+1)=t
440 LETnamn$(shn+1)=d$
450 LETk=k+1
460 NEXT shn
470 IF k<>0 THEN GOTO 350
480 CLOSE2:OPEN2,8,2,"@:scores,s,w"
490 PRINT#2,z
500 FORz=1TO12
510 PRINT#2,namn$(z):PRINT#2,sc(z)
520 NEXTz:CLOSE2:CLOSE4
530 REM *** resultat presentation ***
540 PRINT"{clear}{down} {-*4} all time heroes {-*4}{down*2}"
550 FORf=12TO2STEP-1
560 PRINTnamn$(f)
570 PRINT"{up}{right*17}";sc(f)
580 NEXTf
590 REM *** tryck en tangent ***
600 PRINT"{down*2}tryck p] en tangent"
610 GETnils$:IFnils$=""THENGOTO610
620 LETsc=0
630 GOTO240
640 REM *** initialiering ***
650 DIMnamn$(12):DIMsc(12)
660 FOR bymp=1TO 12
670 LETnamn$(bymp)="mikael pawlo"
680 LETsc(bymp)=0
690 NEXTbymp
700 CLOSE2:OPEN2,8,2,"@:scores,s,w"
710 PRINT#2,z
720 FORz=1TO12
730 PRINT#2,namn$(z):PRINT#2,sc(z)
740 NEXTz:CLOSE2:CLOSE4
750 GOTO190
stop tok64
(bastext 1.0)