|
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: 2016 (0x7e0)
Types: TextFile
Notes: Mikados_K
Names: »SPIL1_KO.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SPIL1_KO.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SPIL1_KO.K«
0010 // ------------------------spil1_kort ------------------------ 0020 // Programmet udskriver 4 * 13 kort, uddelt tilfældigt. 0030 DIM KORT$(52) OF 20,CARD(52),MOT$(52) OF 30 0040 // 0045 RNDSEED:=4.5 0050 CLEAR 0060 I:=1;TÆLLER:=0 0070 REPEAT 0080 READ KORT$(I) 0090 I:=I+1 0100 UNTIL I=53 0110 // 0120 CURSOR 25,2 0130 PRINT " S P I L L E K O R T :" 0140 CURSOR 25,3 0150 PRINT "----------------------" 0160 CURSOR 1,5 0170 PRINT " N O R D : Ø S T : S Y D : "; 0175 PRINT "V E S T :" 0180 PRINT "---------------------------------------------------------------"; 0185 PRINT "---------" 0190 // 0210 REPEAT 0220 A:=RND(1,52) 0230 IF CARD(A)=0 THEN 0240 CARD(A):=1;TÆLLER:=TÆLLER+1;MOT$(TÆLLER):=KORT$(A) 0250 CURSOR (((TÆLLER-1) DIV 13)*20)+3,((TÆLLER-1) MOD 13+8) 0260 PRINT KORT$(A) 0270 ENDIF 0280 UNTIL TÆLLER=52 0310 CURSOR 3,23 0320 END 0330 // 0340 DATA "spar-es","spar-2","spar-3","spar-4","spar-5" 0350 DATA "spar-6","spar-7","spar-8","spar-9","spar-10" 0360 DATA "spar-knægt","spar-dame","spar-konge" 0370 // 0380 DATA "klør-es","klør-2","klør-3","klør-4","klør-5" 0390 DATA "klør-6","klør-7","klør-8","klør-9","klør-10" 0400 DATA "klør-knægt","klør-dame","klør-konge" 0410 // 0420 DATA "hjerter-es","hjerter-2","hjerter-3","hjerter-4","hjerter-5" 0430 DATA "hjerter-6","hjerter-7","hjerter-8","hjerter-9","hjerter-10" 0440 DATA "hjerter-knægt","hjerter-dame","hjerter-konge" 0450 // 0460 DATA "ruder-es","ruder-2","ruder-3","ruder-4","ruder-5" 0470 DATA "ruder-6","ruder-7","ruder-8","ruder-9","ruder-10" 0480 DATA "ruder-knægt","ruder-dame","ruder-konge" 0490 0500 PROC RND(LOW,HIGH) 0510 RNDX:=RNDSEED+3.14159 0520 RNDX:=EXP(5.0*LN(RNDX)) 0530 RNDSEED:=RNDX-INT(RNDX) 0540 RND:=RNDSEED*(HIGH-LOW)+LOW 0550 ENDPROC RND
0x000…045 Line {l1=0x43, l2=»0010 // ------------------------spil1_kort ------------------------«, l3=0x43}
0x045…083 Line {l1=0x3c, l2=»0020 // Programmet udskriver 4 * 13 kort, uddelt tilfældigt.«, l3=0x3c}
0x083…0b5 Line {l1=0x30, l2=»0030 DIM KORT$(52) OF 20,CARD(52),MOT$(52) OF 30«, l3=0x30}
0x0b5…0bf Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x0bf…0d2 Line {l1=0x11, l2=»0045 RNDSEED:=4.5«, l3=0x11}
0x0d2…0df Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0df…0f4 Line {l1=0x13, l2=»0060 I:=1;TÆLLER:=0«, l3=0x13}
0x0f4…102 Line {l1=0x0c, l2=»0070 REPEAT «, l3=0x0c}
0x102…116 Line {l1=0x12, l2=»0080 READ KORT$(I)«, l3=0x12}
0x116…123 Line {l1=0x0b, l2=»0090 I:=I+1«, l3=0x0b}
0x123…134 Line {l1=0x0f, l2=»0100 UNTIL I=53«, l3=0x0f}
0x134…13e Line {l1=0x08, l2=»0110 // «, l3=0x08}
0x13e…150 Line {l1=0x10, l2=»0120 CURSOR 25,2«, l3=0x10}
0x150…175 Line {l1=0x23, l2=»0130 PRINT " S P I L L E K O R T :"«, l3=0x23}
0x175…187 Line {l1=0x10, l2=»0140 CURSOR 25,3«, l3=0x10}
0x187…1ac Line {l1=0x23, l2=»0150 PRINT "----------------------"«, l3=0x23}
0x1ac…1bd Line {l1=0x0f, l2=»0160 CURSOR 1,5«, l3=0x0f}
0x1bd…20c Line {l1=0x4d, l2=»0170 PRINT " N O R D : Ø S T : S Y D : ";«, l3=0x4d}
0x20c…224 Line {l1=0x16, l2=»0175 PRINT "V E S T :"«, l3=0x16}
0x224…273 Line {l1=0x4d, l2=»0180 PRINT "---------------------------------------------------------------";«, l3=0x4d}
0x273…28b Line {l1=0x16, l2=»0185 PRINT "---------"«, l3=0x16}
0x28b…295 Line {l1=0x08, l2=»0190 // «, l3=0x08}
0x295…2a3 Line {l1=0x0c, l2=»0210 REPEAT «, l3=0x0c}
0x2a3…2b6 Line {l1=0x11, l2=»0220 A:=RND(1,52)«, l3=0x11}
0x2b6…2cf Line {l1=0x17, l2=»0230 IF CARD(A)=0 THEN «, l3=0x17}
0x2cf…308 Line {l1=0x37, l2=»0240 CARD(A):=1;TÆLLER:=TÆLLER+1;MOT$(TÆLLER):=KORT$(A)«, l3=0x37}
0x308…346 Line {l1=0x3c, l2=»0250 CURSOR (((TÆLLER-1) DIV 13)*20)+3,((TÆLLER-1) MOD 13+8)«, l3=0x3c}
0x346…35b Line {l1=0x13, l2=»0260 PRINT KORT$(A)«, l3=0x13}
0x35b…368 Line {l1=0x0b, l2=»0270 ENDIF «, l3=0x0b}
0x368…37e Line {l1=0x14, l2=»0280 UNTIL TÆLLER=52«, l3=0x14}
0x37e…390 Line {l1=0x10, l2=»0310 CURSOR 3,23«, l3=0x10}
0x390…39b Line {l1=0x09, l2=»0320 END «, l3=0x09}
0x39b…3a5 Line {l1=0x08, l2=»0330 // «, l3=0x08}
0x3a5…3de Line {l1=0x37, l2=»0340 DATA "spar-es","spar-2","spar-3","spar-4","spar-5"«, l3=0x37}
0x3de…417 Line {l1=0x37, l2=»0350 DATA "spar-6","spar-7","spar-8","spar-9","spar-10"«, l3=0x37}
0x417…448 Line {l1=0x2f, l2=»0360 DATA "spar-knægt","spar-dame","spar-konge"«, l3=0x2f}
0x448…452 Line {l1=0x08, l2=»0370 // «, l3=0x08}
0x452…48b Line {l1=0x37, l2=»0380 DATA "klør-es","klør-2","klør-3","klør-4","klør-5"«, l3=0x37}
0x48b…4c4 Line {l1=0x37, l2=»0390 DATA "klør-6","klør-7","klør-8","klør-9","klør-10"«, l3=0x37}
0x4c4…4f5 Line {l1=0x2f, l2=»0400 DATA "klør-knægt","klør-dame","klør-konge"«, l3=0x2f}
0x4f5…4ff Line {l1=0x08, l2=»0410 // «, l3=0x08}
0x4ff…547 Line {l1=0x46, l2=»0420 DATA "hjerter-es","hjerter-2","hjerter-3","hjerter-4","hjerter-5"«, l3=0x46}
0x547…58f Line {l1=0x46, l2=»0430 DATA "hjerter-6","hjerter-7","hjerter-8","hjerter-9","hjerter-10"«, l3=0x46}
0x58f…5c9 Line {l1=0x38, l2=»0440 DATA "hjerter-knægt","hjerter-dame","hjerter-konge"«, l3=0x38}
0x5c9…5d3 Line {l1=0x08, l2=»0450 // «, l3=0x08}
0x5d3…611 Line {l1=0x3c, l2=»0460 DATA "ruder-es","ruder-2","ruder-3","ruder-4","ruder-5"«, l3=0x3c}
0x611…64f Line {l1=0x3c, l2=»0470 DATA "ruder-6","ruder-7","ruder-8","ruder-9","ruder-10"«, l3=0x3c}
0x64f…683 Line {l1=0x32, l2=»0480 DATA "ruder-knægt","ruder-dame","ruder-konge"«, l3=0x32}
0x683…68a Line {l1=0x05, l2=»0490 «, l3=0x05}
0x68a…6a3 Line {l1=0x17, l2=»0500 PROC RND(LOW,HIGH)«, l3=0x17}
0x6a3…6bf Line {l1=0x1a, l2=»0510 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x6bf…6dd Line {l1=0x1c, l2=»0520 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x6dd…6fb Line {l1=0x1c, l2=»0530 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x6fb…71d Line {l1=0x20, l2=»0540 RND:=RNDSEED*(HIGH-LOW)+LOW«, l3=0x20}
0x71d…72f Line {l1=0x10, l2=»0550 ENDPROC RND«, l3=0x10}
0x72f…740 00 00 44 53 45 45 44 2b 33 2e 31 34 31 35 39 1a 1c ┆ DSEED+3.14159 ┆
0x740…760 30 35 32 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c 30 35 ┆0520 RNDX:=EXP(5.0*LN(RNDX)) 05┆
0x760…780 33 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c 20 30 35 34 30 ┆30 RNDSEED:=RNDX-INT(RNDX) 0540┆
0x780…7a0 20 52 4e 44 3a 3d 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c 4f 57 20 10 30 35 ┆ RND:=RNDSEED*(HIGH-LOW)+LOW 05┆
0x7a0…7c0 35 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆50 ENDPROC RND ccccccccccccccc┆
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┆