DataMuseum.dk

top - metrics - download

    Length: 1684 (0x694)
    Notes: Mikados TextFile, Mikados_K
    Names: »SCORE«

└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »SCORE« 

Text

0100 // ------------------------- score ---------------------------
0110 // 
0120 PROC OPRET
0130 CREATE "SYSTIME:HIGHSCOR",5,40
0140 OPEN "SYSTIME:HIGHSCOR",W
0150 TOM$:="                                 "
0160 FOR I:=1 TO 5 DO 
0170 PUT "SYSTIME:HIGHSCOR",I:I,TOM$
0180 NEXT I
0190 CLOSE "SYSTIME:HIGHSCOR"
0200 ENDPROC OPRET
0210 // 
0220 PROC UPDATA(UPPOINTS,UPNAVN$,REF UPLISTE(),REF UPPERSON$())
0230 OPEN "SYSTIME:HIGHSCOR",W
0240 FOR I:=1 TO 5 DO 
0250 GET "SYSTIME:HIGHSCOR",I:UPLISTE(I),UPPERSON$(I)
0260 NEXT I
0270 UPLISTE(6):=UPPOINTS;UPPERSON$(6):=UPNAVN$
0280 NR:=6
0290 WHILE NR=>2 DO 
0300 IF UPLISTE(NR)>UPLISTE(NR-1) THEN 
0310 OMBYT:=UPLISTE(NR-1);UPLISTE(NR-1):=UPLISTE(NR);UPLISTE(NR):=OMBYT
0320 BYT$:=UPPERSON$(NR-1);UPPERSON$(NR-1):=UPPERSON$(NR);UPPERSON$(NR):=BYT$
0330 ENDIF 
0340 NR:=NR-1
0350 ENDWHILE 
0360 FOR I:=1 TO 5 DO 
0370 PUT "SYSTIME:HIGHSCOR",I:UPLISTE(I),UPPERSON$(I)
0380 NEXT I
0390 CLOSE "SYSTIME:HIGHSCOR"
0400 ENDPROC UPDATA
0410 // 
0420 PROC LÆS(REF LÆLISTE(),REF LÆPERSON$())
0430 OPEN "SYSTIME:HIGHSCOR",R
0440 FOR I:=1 TO 5 DO 
0450 GET "SYSTIME:HIGHSCOR",I:LÆLISTE(I),LÆPERSON$(I)
0460 PRINT LÆLISTE(I),LÆPERSON$(I)
0470 NEXT I
0480 CLOSE "SYSTIME:HIGHSCOR"
0490 ENDPROC LÆS
0500 // 
0510 INTEGER LISTE(6),I,J
0520 DIM BYT$ OF 30,TOM$ OF 30,PERSON$(6) OF 30,SVAR$ OF 1,NAVN$ OF 30
0530 CLEAR 
0540 INPUT "Skal 'highscore' oprettes?  (j/n)  ":SVAR$
0550 IF SVAR$="j" THEN EXEC OPRET
0560 INPUT "Navn:   (0 stopper):  ":NAVN$
0570 WHILE NAVN$<>"0" DO 
0580 INPUT "Pointstal:     ":POINTS
0590 EXEC UPDATA(POINTS,NAVN$,LISTE,PERSON$)
0600 INPUT "Navn:   (0 stopper):  ":NAVN$
0610 ENDWHILE 
0620 INPUT "Skal highscore læses?  (j/n): ":SVAR$
0630 IF SVAR$="j" THEN EXEC LÆS(LISTE,PERSON$)