home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / STRATEGY.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  26 lines

  1. 10  REM  **********************
  2. 20  REM  * STRATEGY.DEMO      *
  3. 30  REM  * BY ROGER WAGNER    *
  4. 40  REM  * COPYRIGHT (C) 1987 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  PRINT  CHR$(4);"BLOAD RND.GENERATOR,A$300"
  9. 90 R = 10: DIM N(R): POKE 8,R
  10. 100 PL = 0:PM = 0:MV = 0:LUCKY = 7
  11. 110  CALL 768
  12. 120 RN =  PEEK(6) +1: REM  ROUND UP, ELIMINATE ZERO
  13. 130 N(RN) = N(RN) +1
  14. 140  IF RN = PL  THEN X1 = X1 +1: REM  LEAST FREQ. SUCCESS RATE
  15. 150  IF RN = PM  THEN X2 = X2 +1: REM  MOST FREQ. RATE
  16. 160  IF RN = LUCKY  THEN X3 = X3 +1: REM  LUCKY RATE
  17. 170  VTAB 21
  18. 180  IF X1 >X2  AND X1 >X3  THEN  PRINT "<BEST>","      ","      ": REM  6 SPACES
  19. 190  IF X2 >X1  AND X2 >X3  THEN  PRINT "      ","<BEST>","      ": REM  6 SPACES
  20. 200  IF X3 >X1  AND X3 >X2  THEN  PRINT "      ","      ","<BEST>": REM  6 SPACES
  21. 210  VTAB 22: PRINT "LEAST"," MOST","LUCKY"
  22. 220  PRINT X1," ";X2,X3
  23. 230  IF N(RN) >MV  THEN MV = N(RN):PM = RN: REM  MOST FREQUENT PICK
  24. 240 T = N(1): FOR I = 2 TO R: IF N(RN) <T  THEN T = N(RN):PL = I: REM  LEAST FREQ. PICK
  25. 250  NEXT I
  26. 260  GOTO 110