DataMuseum.dk

top - metrics - download

    Length: 3520 (0xdc0)
    Notes: Mikados TextFile, Mikados_K
    Names: »SPIL2_KO«

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »SPIL2_KO« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »SPIL2_KO« 

Text

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