DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦7dba16c82⟧ TextFile

    Length: 2528 (0x9e0)
    Types: TextFile
    Notes: Mikados_K
    Names: »SCORE.K«

Derivation

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

Mikados K File

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$)

Mikados K File

0x000…045 Line {l1=0x43, l2=»0100 // ------------------------- score ---------------------------«, l3=0x43}
0x045…04f Line {l1=0x08, l2=»0110 // «, l3=0x08}
0x04f…060 Line {l1=0x0f, l2=»0120 PROC OPRET«, l3=0x0f}
0x060…085 Line {l1=0x23, l2=»0130 CREATE "SYSTIME:HIGHSCOR",5,40«, l3=0x23}
0x085…0a5 Line {l1=0x1e, l2=»0140 OPEN "SYSTIME:HIGHSCOR",W«, l3=0x1e}
0x0a5…0d5 Line {l1=0x2e, l2=»0150 TOM$:="                                 "«, l3=0x2e}
0x0d5…0ed Line {l1=0x16, l2=»0160 FOR I:=1 TO 5 DO «, l3=0x16}
0x0ed…113 Line {l1=0x24, l2=»0170 PUT "SYSTIME:HIGHSCOR",I:I,TOM$«, l3=0x24}
0x113…120 Line {l1=0x0b, l2=»0180 NEXT I«, l3=0x0b}
0x120…13f Line {l1=0x1d, l2=»0190 CLOSE "SYSTIME:HIGHSCOR"«, l3=0x1d}
0x13f…153 Line {l1=0x12, l2=»0200 ENDPROC OPRET«, l3=0x12}
0x153…15d Line {l1=0x08, l2=»0210 // «, l3=0x08}
0x15d…19f Line {l1=0x40, l2=»0220 PROC UPDATA(UPPOINTS,UPNAVN$,REF UPLISTE(),REF UPPERSON$())«, l3=0x40}
0x19f…1bf Line {l1=0x1e, l2=»0230 OPEN "SYSTIME:HIGHSCOR",W«, l3=0x1e}
0x1bf…1d7 Line {l1=0x16, l2=»0240 FOR I:=1 TO 5 DO «, l3=0x16}
0x1d7…20e Line {l1=0x35, l2=»0250 GET "SYSTIME:HIGHSCOR",I:UPLISTE(I),UPPERSON$(I)«, l3=0x35}
0x20e…21b Line {l1=0x0b, l2=»0260 NEXT I«, l3=0x0b}
0x21b…24c Line {l1=0x2f, l2=»0270 UPLISTE(6):=UPPOINTS;UPPERSON$(6):=UPNAVN$«, l3=0x2f}
0x24c…258 Line {l1=0x0a, l2=»0280 NR:=6«, l3=0x0a}
0x258…26e Line {l1=0x14, l2=»0290 WHILE NR=>2 DO «, l3=0x14}
0x26e…297 Line {l1=0x27, l2=»0300 IF UPLISTE(NR)>UPLISTE(NR-1) THEN «, l3=0x27}
0x297…2e0 Line {l1=0x47, l2=»0310 OMBYT:=UPLISTE(NR-1);UPLISTE(NR-1):=UPLISTE(NR);UPLISTE(NR):=OMBYT«, l3=0x47}
0x2e0…32f Line {l1=0x4d, l2=»0320 BYT$:=UPPERSON$(NR-1);UPPERSON$(NR-1):=UPPERSON$(NR);UPPERSON$(NR):=BYT$«, l3=0x4d}
0x32f…33c Line {l1=0x0b, l2=»0330 ENDIF «, l3=0x0b}
0x33c…34b Line {l1=0x0d, l2=»0340 NR:=NR-1«, l3=0x0d}
0x34b…35b Line {l1=0x0e, l2=»0350 ENDWHILE «, l3=0x0e}
0x35b…373 Line {l1=0x16, l2=»0360 FOR I:=1 TO 5 DO «, l3=0x16}
0x373…3aa Line {l1=0x35, l2=»0370 PUT "SYSTIME:HIGHSCOR",I:UPLISTE(I),UPPERSON$(I)«, l3=0x35}
0x3aa…3b7 Line {l1=0x0b, l2=»0380 NEXT I«, l3=0x0b}
0x3b7…3d6 Line {l1=0x1d, l2=»0390 CLOSE "SYSTIME:HIGHSCOR"«, l3=0x1d}
0x3d6…3eb Line {l1=0x13, l2=»0400 ENDPROC UPDATA«, l3=0x13}
0x3eb…3f5 Line {l1=0x08, l2=»0410 // «, l3=0x08}
0x3f5…423 Line {l1=0x2c, l2=»0420 PROC LÆS(REF LÆLISTE(),REF LÆPERSON$())«, l3=0x2c}
0x423…443 Line {l1=0x1e, l2=»0430 OPEN "SYSTIME:HIGHSCOR",R«, l3=0x1e}
0x443…45b Line {l1=0x16, l2=»0440 FOR I:=1 TO 5 DO «, l3=0x16}
0x45b…492 Line {l1=0x35, l2=»0450 GET "SYSTIME:HIGHSCOR",I:LÆLISTE(I),LÆPERSON$(I)«, l3=0x35}
0x492…4b6 Line {l1=0x22, l2=»0460 PRINT LÆLISTE(I),LÆPERSON$(I)«, l3=0x22}
0x4b6…4c3 Line {l1=0x0b, l2=»0470 NEXT I«, l3=0x0b}
0x4c3…4e2 Line {l1=0x1d, l2=»0480 CLOSE "SYSTIME:HIGHSCOR"«, l3=0x1d}
0x4e2…4f4 Line {l1=0x10, l2=»0490 ENDPROC LÆS«, l3=0x10}
0x4f4…4fe Line {l1=0x08, l2=»0500 // «, l3=0x08}
0x4fe…519 Line {l1=0x19, l2=»0510 INTEGER LISTE(6),I,J«, l3=0x19}
0x519…561 Line {l1=0x46, l2=»0520 DIM BYT$ OF 30,TOM$ OF 30,PERSON$(6) OF 30,SVAR$ OF 1,NAVN$ OF 30«, l3=0x46}
0x561…56e Line {l1=0x0b, l2=»0530 CLEAR «, l3=0x0b}
0x56e…5a6 Line {l1=0x36, l2=»0540 INPUT "Skal 'highscore' oprettes?  (j/n)  ":SVAR$«, l3=0x36}
0x5a6…5c9 Line {l1=0x21, l2=»0550 IF SVAR$="j" THEN EXEC OPRET«, l3=0x21}
0x5c9…5f4 Line {l1=0x29, l2=»0560 INPUT "Navn:   (0 stopper):  ":NAVN$«, l3=0x29}
0x5f4…60f Line {l1=0x19, l2=»0570 WHILE NAVN$<>"0" DO «, l3=0x19}
0x60f…634 Line {l1=0x23, l2=»0580 INPUT "Pointstal:     ":POINTS«, l3=0x23}
0x634…662 Line {l1=0x2c, l2=»0590 EXEC UPDATA(POINTS,NAVN$,LISTE,PERSON$)«, l3=0x2c}
0x662…68d Line {l1=0x29, l2=»0600 INPUT "Navn:   (0 stopper):  ":NAVN$«, l3=0x29}
0x68d…69d Line {l1=0x0e, l2=»0610 ENDWHILE «, l3=0x0e}
0x69d…6d0 Line {l1=0x31, l2=»0620 INPUT "Skal highscore læses?  (j/n): ":SVAR$«, l3=0x31}
0x6d0…700 Line {l1=0x2e, l2=»0630 IF SVAR$="j" THEN EXEC LÆS(LISTE,PERSON$)«, l3=0x2e}
0x700…720 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆  cccccccccccccccccccccccccccccc┆
0x720…740 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63   ┆cccccccccccccccccccccccccccccccc┆
          […0x15…]

TextFile

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

Reduced view