|
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 - download
Length: 3520 (0xdc0)
Types: TextFile
Notes: Mikados_K
Names: »SPIL2_KO.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SPIL2_KO.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SPIL2_KO.K«
0010 // ------------------------ spilkort_2 -------------------------------- 0020 // Programmet udskriver 4 * 13 kort. 0030 // 0035 RNDSEED:=3.4213 0040 DIM FARVE$(4) OF 7,BRUGT$ OF 350,KORT$(13) OF 10,CARD$ OF 20 0050 DIM SPILLER$(52) OF 20,COULEUR$ OF 10,SVAR$ OF 1 0060 // 0070 CLEAR 0080 CURSOR 31,12 0090 PRINT "Lige et øjeblik!" 0100 // 0110 BRUGT$:="" 0120 FOR I:=1 TO 4 DO 0130 READ COULEUR$ 0140 FARVE$(I):=COULEUR$ 0150 NEXT I 0160 // 0170 FOR A:=1 TO 13 DO 0180 READ KORT$(A) 0190 NEXT A 0200 PRINT 0210 FOR TIRE:=1 TO 52 DO 0220 EXEC FINDKORT 0230 SPILLER$(TIRE):=CARD$ 0240 NEXT TIRE 0250 // 0260 // 0270 EXEC UDSKRIFT 0280 // 0290 PROC FINDKORT 0300 REPEAT 0310 CARD$:=FARVE$(RND(1,4)) 0320 CARD$:=CARD$+" "+KORT$(RND(1,13)) 0330 UNTIL NOT CARD$ IN BRUGT$ 0340 BRUGT$:=BRUGT$+CARD$ 0350 ENDPROC FINDKORT 0360 // 0370 PROC UDSKRIFT 0380 Z:=5;P:=1 0390 CLEAR 0400 CURSOR 2,2 0410 PRINT " N O R D ." 0420 CURSOR 22,2 0430 PRINT " Ø S T ." 0440 CURSOR 42,2 0450 PRINT " S Y D ." 0460 CURSOR 62,2 0470 PRINT " V E S T ." 0480 PRINT "---------------------------------------------------------------"; 0485 PRINT "----------------" 0490 FOR X:=1 TO 52 DO 0500 CURSOR ((((X-1) DIV 13)*20)+3),((X-1) MOD 13+8) 0510 PRINT SPILLER$(X);" " 0520 NEXT X 0530 ENDPROC UDSKRIFT 0540 // 0550 DATA "klør","ruder","hjerter","spar" 0560 DATA "es","2","3","4","5","6","7","8","9","10","knægt","dame" 0565 DATA "konge" 0570 // 0590 CURSOR 70,23 0600 INPUT "Return!":SVAR$ 0630 CURSOR 1,22 0640 PRINT "Prøv at omforme programmet, således at kortene er sorteret." 0645 END 0650 0660 PROC RND(LOW,HIGH) 0670 RNDX:=RNDSEED+3.14159 0680 RNDX:=EXP(5.0*LN(RNDX)) 0690 RNDSEED:=RNDX-INT(RNDX) 0700 RND:=RNDSEED*(HIGH-LOW)+LOW 0710 ENDPROC RND
0x000…04e Line {l1=0x4c, l2=»0010 // ------------------------ spilkort_2 --------------------------------«, l3=0x4c}
0x04e…079 Line {l1=0x29, l2=»0020 // Programmet udskriver 4 * 13 kort.«, l3=0x29}
0x079…083 Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x083…099 Line {l1=0x14, l2=»0035 RNDSEED:=3.4213«, l3=0x14}
0x099…0dc Line {l1=0x41, l2=»0040 DIM FARVE$(4) OF 7,BRUGT$ OF 350,KORT$(13) OF 10,CARD$ OF 20«, l3=0x41}
0x0dc…113 Line {l1=0x35, l2=»0050 DIM SPILLER$(52) OF 20,COULEUR$ OF 10,SVAR$ OF 1«, l3=0x35}
0x113…11d Line {l1=0x08, l2=»0060 // «, l3=0x08}
0x11d…12a Line {l1=0x0b, l2=»0070 CLEAR «, l3=0x0b}
0x12a…13d Line {l1=0x11, l2=»0080 CURSOR 31,12«, l3=0x11}
0x13d…15c Line {l1=0x1d, l2=»0090 PRINT "Lige et øjeblik!"«, l3=0x1d}
0x15c…166 Line {l1=0x08, l2=»0100 // «, l3=0x08}
0x166…177 Line {l1=0x0f, l2=»0110 BRUGT$:=""«, l3=0x0f}
0x177…18f Line {l1=0x16, l2=»0120 FOR I:=1 TO 4 DO «, l3=0x16}
0x18f…1a3 Line {l1=0x12, l2=»0130 READ COULEUR$«, l3=0x12}
0x1a3…1bd Line {l1=0x18, l2=»0140 FARVE$(I):=COULEUR$«, l3=0x18}
0x1bd…1ca Line {l1=0x0b, l2=»0150 NEXT I«, l3=0x0b}
0x1ca…1d4 Line {l1=0x08, l2=»0160 // «, l3=0x08}
0x1d4…1ed Line {l1=0x17, l2=»0170 FOR A:=1 TO 13 DO «, l3=0x17}
0x1ed…201 Line {l1=0x12, l2=»0180 READ KORT$(A)«, l3=0x12}
0x201…20e Line {l1=0x0b, l2=»0190 NEXT A«, l3=0x0b}
0x20e…21b Line {l1=0x0b, l2=»0200 PRINT «, l3=0x0b}
0x21b…237 Line {l1=0x1a, l2=»0210 FOR TIRE:=1 TO 52 DO «, l3=0x1a}
0x237…24b Line {l1=0x12, l2=»0220 EXEC FINDKORT«, l3=0x12}
0x24b…267 Line {l1=0x1a, l2=»0230 SPILLER$(TIRE):=CARD$«, l3=0x1a}
0x267…277 Line {l1=0x0e, l2=»0240 NEXT TIRE«, l3=0x0e}
0x277…281 Line {l1=0x08, l2=»0250 // «, l3=0x08}
0x281…28b Line {l1=0x08, l2=»0260 // «, l3=0x08}
0x28b…29f Line {l1=0x12, l2=»0270 EXEC UDSKRIFT«, l3=0x12}
0x29f…2a9 Line {l1=0x08, l2=»0280 // «, l3=0x08}
0x2a9…2bd Line {l1=0x12, l2=»0290 PROC FINDKORT«, l3=0x12}
0x2bd…2cb Line {l1=0x0c, l2=»0300 REPEAT «, l3=0x0c}
0x2cb…2e9 Line {l1=0x1c, l2=»0310 CARD$:=FARVE$(RND(1,4))«, l3=0x1c}
0x2e9…311 Line {l1=0x26, l2=»0320 CARD$:=CARD$+" "+KORT$(RND(1,13))«, l3=0x26}
0x311…331 Line {l1=0x1e, l2=»0330 UNTIL NOT CARD$ IN BRUGT$«, l3=0x1e}
0x331…34c Line {l1=0x19, l2=»0340 BRUGT$:=BRUGT$+CARD$«, l3=0x19}
0x34c…363 Line {l1=0x15, l2=»0350 ENDPROC FINDKORT«, l3=0x15}
0x363…36d Line {l1=0x08, l2=»0360 // «, l3=0x08}
0x36d…381 Line {l1=0x12, l2=»0370 PROC UDSKRIFT«, l3=0x12}
0x381…391 Line {l1=0x0e, l2=»0380 Z:=5;P:=1«, l3=0x0e}
0x391…39e Line {l1=0x0b, l2=»0390 CLEAR «, l3=0x0b}
0x39e…3af Line {l1=0x0f, l2=»0400 CURSOR 2,2«, l3=0x0f}
0x3af…3c8 Line {l1=0x17, l2=»0410 PRINT " N O R D ."«, l3=0x17}
0x3c8…3da Line {l1=0x10, l2=»0420 CURSOR 22,2«, l3=0x10}
0x3da…3f1 Line {l1=0x15, l2=»0430 PRINT " Ø S T ."«, l3=0x15}
0x3f1…403 Line {l1=0x10, l2=»0440 CURSOR 42,2«, l3=0x10}
0x403…41a Line {l1=0x15, l2=»0450 PRINT " S Y D ."«, l3=0x15}
0x41a…42c Line {l1=0x10, l2=»0460 CURSOR 62,2«, l3=0x10}
0x42c…445 Line {l1=0x17, l2=»0470 PRINT " V E S T ."«, l3=0x17}
0x445…494 Line {l1=0x4d, l2=»0480 PRINT "---------------------------------------------------------------";«, l3=0x4d}
0x494…4b3 Line {l1=0x1d, l2=»0485 PRINT "----------------"«, l3=0x1d}
0x4b3…4cc Line {l1=0x17, l2=»0490 FOR X:=1 TO 52 DO «, l3=0x17}
0x4cc…502 Line {l1=0x34, l2=»0500 CURSOR ((((X-1) DIV 13)*20)+3),((X-1) MOD 13+8)«, l3=0x34}
0x502…51f Line {l1=0x1b, l2=»0510 PRINT SPILLER$(X);" "«, l3=0x1b}
0x51f…52c Line {l1=0x0b, l2=»0520 NEXT X«, l3=0x0b}
0x52c…543 Line {l1=0x15, l2=»0530 ENDPROC UDSKRIFT«, l3=0x15}
0x543…54d Line {l1=0x08, l2=»0540 // «, l3=0x08}
0x54d…578 Line {l1=0x29, l2=»0550 DATA "klør","ruder","hjerter","spar"«, l3=0x29}
0x578…5bc Line {l1=0x42, l2=»0560 DATA "es","2","3","4","5","6","7","8","9","10","knægt","dame"«, l3=0x42}
0x5bc…5cf Line {l1=0x11, l2=»0565 DATA "konge"«, l3=0x11}
0x5cf…5d9 Line {l1=0x08, l2=»0570 // «, l3=0x08}
0x5d9…5ec Line {l1=0x11, l2=»0590 CURSOR 70,23«, l3=0x11}
0x5ec…608 Line {l1=0x1a, l2=»0600 INPUT "Return!":SVAR$«, l3=0x1a}
0x608…61a Line {l1=0x10, l2=»0630 CURSOR 1,22«, l3=0x10}
0x61a…664 Line {l1=0x48, l2=»0640 PRINT "Prøv at omforme programmet, således at kortene er sorteret."«, l3=0x48}
0x664…66f Line {l1=0x09, l2=»0645 END «, l3=0x09}
0x66f…676 Line {l1=0x05, l2=»0650 «, l3=0x05}
0x676…68f Line {l1=0x17, l2=»0660 PROC RND(LOW,HIGH)«, l3=0x17}
0x68f…6ab Line {l1=0x1a, l2=»0670 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x6ab…6c9 Line {l1=0x1c, l2=»0680 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x6c9…6e7 Line {l1=0x1c, l2=»0690 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x6e7…709 Line {l1=0x20, l2=»0700 RND:=RNDSEED*(HIGH-LOW)+LOW«, l3=0x20}
0x709…71b Line {l1=0x10, l2=»0710 ENDPROC RND«, l3=0x10}
0x71b…720 00 00 2d 2d 2d ┆ ---┆
0x720…740 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 29 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 ┆-------------L)0020 // Programme┆
0x740…760 74 20 75 64 73 6b 72 69 76 65 72 20 34 20 2a 20 31 33 20 6b 6f 72 74 2e 29 08 30 30 33 30 20 2f ┆t udskriver 4 * 13 kort.) 0030 /┆
0x760…780 2f 20 08 14 30 30 33 35 20 52 4e 44 53 45 45 44 3a 3d 33 2e 34 32 31 33 14 41 30 30 34 30 20 44 ┆/ 0035 RNDSEED:=3.4213 A0040 D┆
0x780…7a0 49 4d 20 46 41 52 56 45 24 28 34 29 20 4f 46 20 37 2c 42 52 55 47 54 24 20 4f 46 20 33 35 30 2c ┆IM FARVE$(4) OF 7,BRUGT$ OF 350,┆
0x7a0…7c0 4b 4f 52 54 24 28 31 33 29 20 4f 46 20 31 30 2c 43 41 52 44 24 20 4f 46 20 32 30 41 35 30 30 35 ┆KORT$(13) OF 10,CARD$ OF 20A5005┆
0x7c0…7e0 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┆
[…0x2f…]