|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »BRIDGEJU.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BRIDGEJU.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »BRIDGEJU.K«
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
0x000…046 Line {l1=0x44, l2=»0100 // ----------------------- bridge_jul -------------------------«, l3=0x44}
0x046…05a Line {l1=0x12, l2=»0110 RNDSEED:=3.76«, l3=0x12}
0x05a…074 Line {l1=0x18, l2=»0120 DIM NAVN$(36) OF 25«, l3=0x18}
0x074…090 Line {l1=0x1a, l2=»0125 INTEGER I,J,TABEL(36)«, l3=0x1a}
0x090…0a9 Line {l1=0x17, l2=»0130 FOR I:=1 TO 36 DO «, l3=0x17}
0x0a9…0bd Line {l1=0x12, l2=»0140 READ NAVN$(I)«, l3=0x12}
0x0bd…0ca Line {l1=0x0b, l2=»0150 NEXT I«, l3=0x0b}
0x0ca…0e3 Line {l1=0x17, l2=»0160 FOR I:=1 TO 36 DO «, l3=0x17}
0x0e3…0f5 Line {l1=0x10, l2=»0170 TABEL(I):=I«, l3=0x10}
0x0f5…102 Line {l1=0x0b, l2=»0180 NEXT I«, l3=0x0b}
0x102…11b Line {l1=0x17, l2=»0190 FOR I:=1 TO 36 DO «, l3=0x17}
0x11b…130 Line {l1=0x13, l2=»0200 TAL:=RND(1,36)«, l3=0x13}
0x130…169 Line {l1=0x37, l2=»0210 BYT:=TABEL(I);TABEL(I):=TABEL(TAL);TABEL(TAL):=BYT«, l3=0x37}
0x169…176 Line {l1=0x0b, l2=»0220 NEXT I«, l3=0x0b}
0x176…18f Line {l1=0x17, l2=»0230 FOR J:=1 TO 18 DO «, l3=0x17}
0x18f…1d0 Line {l1=0x3f, l2=»0240 PRINT "Par nr. ";J;":";TAB(18);NAVN$(TABEL(2*J-1));" og ";«, l3=0x3f}
0x1d0…1ee Line {l1=0x1c, l2=»0250 PRINT NAVN$(TABEL(2*J))«, l3=0x1c}
0x1ee…1fb Line {l1=0x0b, l2=»0260 NEXT J«, l3=0x0b}
0x1fb…205 Line {l1=0x08, l2=»0270 // «, l3=0x08}
0x205…24f Line {l1=0x48, l2=»0280 DATA "Hahn-Pedersen","Georg Poulsen","Knud Olesen","Rønholt Hansen"«, l3=0x48}
0x24f…28c Line {l1=0x3b, l2=»0290 DATA "Børge Nielsen","Børge Laustsen","Steen Andersen"«, l3=0x3b}
0x28c…2cf Line {l1=0x41, l2=»0300 DATA "Bjarne S. Christensen","Birthe Møller","Folmer Møller"«, l3=0x41}
0x2cf…30d Line {l1=0x3c, l2=»0310 DATA "Holger Jørgensen","Hans Maymann","Magda Callisen"«, l3=0x3c}
0x30d…34b Line {l1=0x3c, l2=»0320 DATA "Jørgen Callisen","Dion Andersen","Henrik Harpøth"«, l3=0x3c}
0x34b…395 Line {l1=0x48, l2=»0330 DATA "Karl A. Olesen","Lars Knudsen","Ninna Mølbæk","Anders Mølbæk"«, l3=0x48}
0x395…3d3 Line {l1=0x3c, l2=»0340 DATA "Gustav Sørensen","Bjarne Jensen","Grethe Poulsen"«, l3=0x3c}
0x3d3…41a Line {l1=0x45, l2=»0350 DATA "Nancy Rahbek","A. Søndergaard","Jytte Larsen","Ellen Bøgh"«, l3=0x45}
0x41a…457 Line {l1=0x3b, l2=»0360 DATA "Jens Korsbæk","A. Christensen","Charles Wadmann"«, l3=0x3b}
0x457…494 Line {l1=0x3b, l2=»0370 DATA "Ole R. Callesen","Kim Bo Petersen","Jane Hansen"«, l3=0x3b}
0x494…4ce Line {l1=0x38, l2=»0380 DATA "Peter sørensen","Lone Johansen","Roan Lysdal"«, l3=0x38}
0x4ce…4d8 Line {l1=0x08, l2=»0390 // «, l3=0x08}
0x4d8…4f1 Line {l1=0x17, l2=»0400 PROC RND(LOW,HIGH)«, l3=0x17}
0x4f1…50d Line {l1=0x1a, l2=»0410 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x50d…52b Line {l1=0x1c, l2=»0420 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x52b…549 Line {l1=0x1c, l2=»0430 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x549…56b Line {l1=0x20, l2=»0440 RND:=RNDSEED*(HIGH-LOW)+LOW«, l3=0x20}
0x56b…57d Line {l1=0x10, l2=»0450 ENDPROC RND«, l3=0x10}
0x57d…580 00 00 63 ┆ c┆
0x580…5a0 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┆
[…0x22…]