home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / SHRINKLIST.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  776b  |  20 lines
  1. 1  REM  **********************
  2. 2  REM  * SHRINKLIST.DEMO    *
  3. 3  REM  * BY ROGER WAGNER    *
  4. 4  REM  * COPYRIGHT (C) 1987 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * CONCORD, MA  01742 *
  7. 7  REM  **********************
  8. 10 N = 50: REM  NUMBER OF ITEMS IN LIST
  9. 20  DIM L(N): REM  CREATE LIST ARRAY
  10. 30  FOR I = 1 TO N:L(I) = I: NEXT I: REM  FILL LIST WITH ITEMS
  11. 40  REM  THIS NEEDN'T BE SEQUENTIAL, NUMBERS, OR EVEN SORTED
  12. 50 C = 50: REM  NUMBER OF CHOICES TO GENERATE
  13. 60  REM  THIS CAN BE ANY NUMBER LESS THAN OR EQUAL TO THE NUMBER OF ITEMS IN THE LIST
  14. 70  FOR I = 1 TO C
  15. 80 RN =  INT(N * RND(1)) +1: REM  PICK ITEM FROM LIST
  16. 90  PRINT L(RN): REM  SHOW CHOICE
  17. 100 L(RN) = L(N): REM  SWAP OUT LAST ITEM
  18. 110 N = N -1: REM  SHORTEN LIST
  19. 120  NEXT I: REM  DO ANOTHER CHOICE
  20. 130  END