|
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: 1248 (0x4e0)
Types: TextFile
Notes: Mikados_K
Names: »SYPIGETI.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SYPIGETI.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »SYPIGETI.K«
0010 // ----------------------- sypigetips --------------------- 0015 INTEGER KAMP,RÆK,V1,V2,V3,ANTRÆK 0020 DIM SVAR$ OF 3 0025 RNDSEED:=3.12313 0030 // 0040 PROC TIPSRÆKKE 0050 INPUT "Ønskes tegnene tildelt forskellig vægt: ":SVAR$ 0060 IF SVAR$ IN "nej" THEN 0070 V1:=1;V2:=1;V3:=1 0080 ELSE 0090 INPUT "Indtast vægten af 1,2,X: ":V1,V2,V3 0100 PRINT 0110 ENDIF 0120 SUM:=V1+V2+V3 0140 TIP:=RND(1,SUM) 0150 IF TIP>V1+V2 THEN 0160 PRINT "X i kamp nr. ";KAMP;"i ";RÆK;". række." 0170 ELSE 0175 IF TIP>V1 THEN 0180 PRINT "2 i kamp nr. ";KAMP;"i ";RÆK;". række." 0190 ELSE 0200 PRINT "1 i kamp nr. ";KAMP;"i ";RÆK;". række." 0210 ENDIF 0215 ENDIF 0220 ENDPROC TIPSRÆKKE 0230 // 0240 // Hovedprogram 0250 CLEAR 0260 CURSOR 1,3 0270 PRINT "S y p i g e t i p s ." 0280 CURSOR 1,4 0290 PRINT "---------------------" 0300 CURSOR 1,6 0310 INPUT "Antal rækker: ":ANTRÆK 0320 PRINT 0330 FOR RÆK:=1 TO ANTRÆK DO 0340 FOR KAMP:=1 TO 13 DO 0350 EXEC TIPSRÆKKE 0360 PRINT 0370 NEXT KAMP 0380 NEXT RÆK 0390 // 4000 PROC RND(LOW,HIGH) 4010 RNDX:=RNDSEED+3.14159 4020 RNDX:=EXP(0.5*LN(RNDX)) 4030 RNDSEED:=RNDX-INT(RNDX) 4040 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5) 4050 ENDPROC RND
0x000…042 Line {l1=0x40, l2=»0010 // ----------------------- sypigetips ---------------------«, l3=0x40}
0x042…069 Line {l1=0x25, l2=»0015 INTEGER KAMP,RÆK,V1,V2,V3,ANTRÆK«, l3=0x25}
0x069…07e Line {l1=0x13, l2=»0020 DIM SVAR$ OF 3«, l3=0x13}
0x07e…095 Line {l1=0x15, l2=»0025 RNDSEED:=3.12313«, l3=0x15}
0x095…09f Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x09f…0b4 Line {l1=0x13, l2=»0040 PROC TIPSRÆKKE«, l3=0x13}
0x0b4…0f5 Line {l1=0x3f, l2=»0050 INPUT "Ønskes tegnene tildelt forskellig vægt: ":SVAR$«, l3=0x3f}
0x0f5…113 Line {l1=0x1c, l2=»0060 IF SVAR$ IN "nej" THEN «, l3=0x1c}
0x113…12b Line {l1=0x16, l2=»0070 V1:=1;V2:=1;V3:=1«, l3=0x16}
0x12b…137 Line {l1=0x0a, l2=»0080 ELSE «, l3=0x0a}
0x137…169 Line {l1=0x30, l2=»0090 INPUT "Indtast vægten af 1,2,X: ":V1,V2,V3«, l3=0x30}
0x169…176 Line {l1=0x0b, l2=»0100 PRINT «, l3=0x0b}
0x176…183 Line {l1=0x0b, l2=»0110 ENDIF «, l3=0x0b}
0x183…197 Line {l1=0x12, l2=»0120 SUM:=V1+V2+V3«, l3=0x12}
0x197…1ad Line {l1=0x14, l2=»0140 TIP:=RND(1,SUM)«, l3=0x14}
0x1ad…1c6 Line {l1=0x17, l2=»0150 IF TIP>V1+V2 THEN «, l3=0x17}
0x1c6…1fb Line {l1=0x33, l2=»0160 PRINT "X i kamp nr. ";KAMP;"i ";RÆK;". række."«, l3=0x33}
0x1fb…207 Line {l1=0x0a, l2=»0170 ELSE «, l3=0x0a}
0x207…21d Line {l1=0x14, l2=»0175 IF TIP>V1 THEN «, l3=0x14}
0x21d…252 Line {l1=0x33, l2=»0180 PRINT "2 i kamp nr. ";KAMP;"i ";RÆK;". række."«, l3=0x33}
0x252…25e Line {l1=0x0a, l2=»0190 ELSE «, l3=0x0a}
0x25e…293 Line {l1=0x33, l2=»0200 PRINT "1 i kamp nr. ";KAMP;"i ";RÆK;". række."«, l3=0x33}
0x293…2a0 Line {l1=0x0b, l2=»0210 ENDIF «, l3=0x0b}
0x2a0…2ad Line {l1=0x0b, l2=»0215 ENDIF «, l3=0x0b}
0x2ad…2c5 Line {l1=0x16, l2=»0220 ENDPROC TIPSRÆKKE«, l3=0x16}
0x2c5…2cf Line {l1=0x08, l2=»0230 // «, l3=0x08}
0x2cf…2e5 Line {l1=0x14, l2=»0240 // Hovedprogram«, l3=0x14}
0x2e5…2f2 Line {l1=0x0b, l2=»0250 CLEAR «, l3=0x0b}
0x2f2…303 Line {l1=0x0f, l2=»0260 CURSOR 1,3«, l3=0x0f}
0x303…327 Line {l1=0x22, l2=»0270 PRINT "S y p i g e t i p s ."«, l3=0x22}
0x327…338 Line {l1=0x0f, l2=»0280 CURSOR 1,4«, l3=0x0f}
0x338…35c Line {l1=0x22, l2=»0290 PRINT "---------------------"«, l3=0x22}
0x35c…36d Line {l1=0x0f, l2=»0300 CURSOR 1,6«, l3=0x0f}
0x36d…396 Line {l1=0x27, l2=»0310 INPUT "Antal rækker: ":ANTRÆK«, l3=0x27}
0x396…3a3 Line {l1=0x0b, l2=»0320 PRINT «, l3=0x0b}
0x3a3…3c2 Line {l1=0x1d, l2=»0330 FOR RÆK:=1 TO ANTRÆK DO «, l3=0x1d}
0x3c2…3de Line {l1=0x1a, l2=»0340 FOR KAMP:=1 TO 13 DO «, l3=0x1a}
0x3de…3f3 Line {l1=0x13, l2=»0350 EXEC TIPSRÆKKE«, l3=0x13}
0x3f3…400 Line {l1=0x0b, l2=»0360 PRINT «, l3=0x0b}
0x400…410 Line {l1=0x0e, l2=»0370 NEXT KAMP«, l3=0x0e}
0x410…41f Line {l1=0x0d, l2=»0380 NEXT RÆK«, l3=0x0d}
0x41f…429 Line {l1=0x08, l2=»0390 // «, l3=0x08}
0x429…442 Line {l1=0x17, l2=»4000 PROC RND(LOW,HIGH)«, l3=0x17}
0x442…45e Line {l1=0x1a, l2=»4010 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x45e…47c Line {l1=0x1c, l2=»4020 RNDX:=EXP(0.5*LN(RNDX))«, l3=0x1c}
0x47c…49a Line {l1=0x1c, l2=»4030 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x49a…4c5 Line {l1=0x29, l2=»4040 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5)«, l3=0x29}
0x4c5…4d7 Line {l1=0x10, l2=»4050 ENDPROC RND«, l3=0x10}
0x4d7…4e0 00 00 63 63 63 63 63 63 63 ┆ ccccccc┆