|
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: 736 (0x2e0)
Types: TextFile
Notes: Mikados_K
Names: »HUNDREDE.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HUNDREDE.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »HUNDREDE.K«
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
0x000…03e Line {l1=0x3c, l2=»0010 // --------------------- hundrede ---------------------«, l3=0x3c}
0x03e…073 Line {l1=0x33, l2=»0020 // Udskriver 100 tilfældige tal mellem et vist«, l3=0x33}
0x073…08f Line {l1=0x1a, l2=»0030 // minimum og maximum«, l3=0x1a}
0x08f…0a5 Line {l1=0x14, l2=»0035 RNDSEED:=3.1142«, l3=0x14}
0x0a5…0af Line {l1=0x08, l2=»0040 // «, l3=0x08}
0x0af…0bc Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0bc…0ca Line {l1=0x0c, l2=»0060 TAB:=10«, l3=0x0c}
0x0ca…0db Line {l1=0x0f, l2=»0070 CURSOR 1,5«, l3=0x0f}
0x0db…0fb Line {l1=0x1e, l2=»0080 INPUT "Minimum: ":MIN«, l3=0x1e}
0x0fb…10c Line {l1=0x0f, l2=»0090 CURSOR 1,7«, l3=0x0f}
0x10c…12c Line {l1=0x1e, l2=»0100 INPUT "Maximum: ":MAX«, l3=0x1e}
0x12c…139 Line {l1=0x0b, l2=»0110 PRINT «, l3=0x0b}
0x139…153 Line {l1=0x18, l2=»0130 FOR I:=1 TO 100 DO «, l3=0x18}
0x153…175 Line {l1=0x20, l2=»0140 PRINT CHR$(RND(MIN,MAX),6);«, l3=0x20}
0x175…182 Line {l1=0x0b, l2=»0150 NEXT I«, l3=0x0b}
0x182…18c Line {l1=0x08, l2=»0160 // «, l3=0x08}
0x18c…1a5 Line {l1=0x17, l2=»0170 PROC RND(LOW,HIGH)«, l3=0x17}
0x1a5…1c1 Line {l1=0x1a, l2=»0180 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x1c1…1df Line {l1=0x1c, l2=»0190 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x1df…1fd Line {l1=0x1c, l2=»0200 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x1fd…228 Line {l1=0x29, l2=»0210 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5)«, l3=0x29}
0x228…23a Line {l1=0x10, l2=»0220 ENDPROC RND«, l3=0x10}
0x23a…240 00 00 63 63 63 63 ┆ cccc┆
0x240…260 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┆
[…0x4…]