home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib32b.dsk
/
STRATEGY.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
26 lines
10 REM **********************
20 REM * STRATEGY.DEMO *
30 REM * BY ROGER WAGNER *
40 REM * COPYRIGHT (C) 1987 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 PRINT CHR$(4);"BLOAD RND.GENERATOR,A$300"
90 R = 10: DIM N(R): POKE 8,R
100 PL = 0:PM = 0:MV = 0:LUCKY = 7
110 CALL 768
120 RN = PEEK(6) +1: REM ROUND UP, ELIMINATE ZERO
130 N(RN) = N(RN) +1
140 IF RN = PL THEN X1 = X1 +1: REM LEAST FREQ. SUCCESS RATE
150 IF RN = PM THEN X2 = X2 +1: REM MOST FREQ. RATE
160 IF RN = LUCKY THEN X3 = X3 +1: REM LUCKY RATE
170 VTAB 21
180 IF X1 >X2 AND X1 >X3 THEN PRINT "<BEST>"," "," ": REM 6 SPACES
190 IF X2 >X1 AND X2 >X3 THEN PRINT " ","<BEST>"," ": REM 6 SPACES
200 IF X3 >X1 AND X3 >X2 THEN PRINT " "," ","<BEST>": REM 6 SPACES
210 VTAB 22: PRINT "LEAST"," MOST","LUCKY"
220 PRINT X1," ";X2,X3
230 IF N(RN) >MV THEN MV = N(RN):PM = RN: REM MOST FREQUENT PICK
240 T = N(1): FOR I = 2 TO R: IF N(RN) <T THEN T = N(RN):PL = I: REM LEAST FREQ. PICK
250 NEXT I
260 GOTO 110