|
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 - metrics - download
Length: 736 (0x2e0)
Notes: Mikados TextFile, Mikados_K
Names: »HUNDREDE«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HUNDREDE«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HUNDREDE«
0010 // --------------------- hundrede --------------------- 0020 // Udskriver 100 tilfældige tal mellem et vist 0030 // minimum og maximum 0035 RNDSEED:=3.1142 0040 // 0050 CLEAR 0060 TAB:=10 0070 CURSOR 1,5 0080 INPUT "Minimum: ":MIN 0090 CURSOR 1,7 0100 INPUT "Maximum: ":MAX 0110 PRINT 0130 FOR I:=1 TO 100 DO 0140 PRINT CHR$(RND(MIN,MAX),6); 0150 NEXT I 0160 // 0170 PROC RND(LOW,HIGH) 0180 RNDX:=RNDSEED+3.14159 0190 RNDX:=EXP(5.0*LN(RNDX)) 0200 RNDSEED:=RNDX-INT(RNDX) 0210 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5) 0220 ENDPROC RND