DataMuseum.dk

top - metrics - download

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »BRIDGEJU«

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

Text

0100 // ----------------------- bridge_jul -------------------------
0110 RNDSEED:=3.76
0120 DIM NAVN$(36) OF 25
0125 INTEGER I,J,TABEL(36)
0130 FOR I:=1 TO 36 DO 
0140 READ NAVN$(I)
0150 NEXT I
0160 FOR I:=1 TO 36 DO 
0170 TABEL(I):=I
0180 NEXT I
0190 FOR I:=1 TO 36 DO 
0200 TAL:=RND(1,36)
0210 BYT:=TABEL(I);TABEL(I):=TABEL(TAL);TABEL(TAL):=BYT
0220 NEXT I
0230 FOR J:=1 TO 18 DO 
0240 PRINT "Par nr. ";J;":";TAB(18);NAVN$(TABEL(2*J-1));" og ";
0250 PRINT NAVN$(TABEL(2*J))
0260 NEXT J
0270 // 
0280 DATA "Hahn-Pedersen","Georg Poulsen","Knud Olesen","Rønholt Hansen"
0290 DATA "Børge Nielsen","Børge Laustsen","Steen Andersen"
0300 DATA "Bjarne S. Christensen","Birthe Møller","Folmer Møller"
0310 DATA "Holger Jørgensen","Hans Maymann","Magda Callisen"
0320 DATA "Jørgen Callisen","Dion Andersen","Henrik Harpøth"
0330 DATA "Karl A. Olesen","Lars Knudsen","Ninna Mølbæk","Anders Mølbæk"
0340 DATA "Gustav Sørensen","Bjarne Jensen","Grethe Poulsen"
0350 DATA "Nancy Rahbek","A. Søndergaard","Jytte Larsen","Ellen Bøgh"
0360 DATA "Jens Korsbæk","A. Christensen","Charles Wadmann"
0370 DATA "Ole R. Callesen","Kim Bo Petersen","Jane Hansen"
0380 DATA "Peter sørensen","Lone Johansen","Roan Lysdal"
0390 // 
0400 PROC RND(LOW,HIGH)
0410 RNDX:=RNDSEED+3.14159
0420 RNDX:=EXP(5.0*LN(RNDX))
0430 RNDSEED:=RNDX-INT(RNDX)
0440 RND:=RNDSEED*(HIGH-LOW)+LOW
0450 ENDPROC RND