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