DataMuseum.dk

top - metrics - download

    Length: 2016 (0x7e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »SPIL1_KO«

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

Text

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