|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados TextFile, Mikados_K
Names: »SCORE«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SCORE«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SCORE«
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$)
C0100 // ------------------------- score ---------------------------C▶08◀0110 // ▶08◀▶0f◀0120 PROC OPRET▶0f◀#0130 CREATE "SYSTIME:HIGHSCOR",5,40#▶1e◀0140 OPEN "SYSTIME:HIGHSCOR",W▶1e◀.0150 TOM$:=" ".▶16◀0160 FOR I:=1 TO 5 DO ▶16◀$0170 PUT "SYSTIME:HIGHSCOR",I:I,TOM$$▶0b◀0180 NEXT I▶0b◀▶1d◀0190 CLOSE "SYSTIME:HIGHSCOR"▶1d◀▶12◀0200 ENDPROC OPRET▶12◀▶08◀0210 // ▶08◀@0220 PROC UPDATA(UPPOINTS,UPNAVN$,REF UPLISTE(),REF UPPERSON$())@▶1e◀0230 OPEN "SYSTIME:HIGHSCOR",W▶1e◀▶16◀0240 FOR I:=1 TO 5 DO ▶16◀50250 GET "SYSTIME:HIGHSCOR",I:UPLISTE(I),UPPERSON$(I)5▶0b◀0260 NEXT I▶0b◀/0270 UPLISTE(6):=UPPOINTS;UPPERSON$(6):=UPNAVN$/ 0280 NR:=6 ▶14◀0290 WHILE NR=>2 DO ▶14◀'0300 IF UPLISTE(NR)>UPLISTE(NR-1) THEN 'G0310 OMBYT:=UPLISTE(NR-1);UPLISTE(NR-1):=UPLISTE(NR);UPLISTE(NR):=OMBYTGM0320 BYT$:=UPPERSON$(NR-1);UPPERSON$(NR-1):=UPPERSON$(NR);UPPERSON$(NR):=BYT$M▶0b◀0330 ENDIF ▶0b◀\r0340 NR:=NR-1\r▶0e◀0350 ENDWHILE ▶0e◀▶16◀0360 FOR I:=1 TO 5 DO ▶16◀50370 PUT "SYSTIME:HIGHSCOR",I:UPLISTE(I),UPPERSON$(I)5▶0b◀0380 NEXT I▶0b◀▶1d◀0390 CLOSE "SYSTIME:HIGHSCOR"▶1d◀▶13◀0400 ENDPROC UPDATA▶13◀▶08◀0410 // ▶08◀,0420 PROC LÆS(REF LÆLISTE(),REF LÆPERSON$()),▶1e◀0430 OPEN "SYSTIME:HIGHSCOR",R▶1e◀▶16◀0440 FOR I:=1 TO 5 DO ▶16◀50450 GET "SYSTIME:HIGHSCOR",I:LÆLISTE(I),LÆPERSON$(I)5"0460 PRINT LÆLISTE(I),LÆPERSON$(I)"▶0b◀0470 NEXT I▶0b◀▶1d◀0480 CLOSE "SYSTIME:HIGHSCOR"▶1d◀▶10◀0490 ENDPROC LÆS▶10◀▶08◀0500 // ▶08◀▶19◀0510 INTEGER LISTE(6),I,J▶19◀F0520 DIM BYT$ OF 30,TOM$ OF 30,PERSON$(6) OF 30,SVAR$ OF 1,NAVN$ OF 30F▶0b◀0530 CLEAR ▶0b◀60540 INPUT "Skal 'highscore' oprettes? (j/n) ":SVAR$6!0550 IF SVAR$="j" THEN EXEC OPRET!)0560 INPUT "Navn: (0 stopper): ":NAVN$)▶19◀0570 WHILE NAVN$<>"0" DO ▶19◀#0580 INPUT "Pointstal: ":POINTS#,0590 EXEC UPDATA(POINTS,NAVN$,LISTE,PERSON$),)0600 INPUT "Navn: (0 stopper): ":NAVN$)▶0e◀0610 ENDWHILE ▶0e◀10620 INPUT "Skal highscore læses? (j/n): ":SVAR$1.0630 IF SVAR$="j" THEN EXEC LÆS(LISTE,PERSON$).▶00◀▶00◀cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc