EUG PD

1st February 1997
The Voice Of Del

Categories: Letter

 
Author: Del Williams
Published in EUG #30

Random Numbers

Following recent discussions about random numbers I have found the following few lines of BASIC quite useful in generating random numbers and/or Lottery type sequences. It appears fairly random without using the X=RND(-TIME) function. 

       10DIM N%(49)
       20CLS
       30FOR I%=1 TO 49
       40N%(I%)=I%
       50NEXT
       60FOR I%= 49 TO 2 STEP -1
       70C%=RND(I%)
       80T%=N%(C%)
       90N%(C%)=N%(I%)
      100N%(I%)=T%
      110NEXT
      120:
      130FOR I%=1 TO 6
      140PRINT N%(I%)
      150NEXT

Z88 Transfers

Dave Holden of APDL, 39 Knighton Park Road, Sydenham, London SE26 5RN. Tel: 0181-778-2659 (info@apdl.co.uk) holds various PD progs for both the Z88 and the NC100 in his library.

Cheers and a belated Blwyddyn Newydd Dda!

Del Williams, EUG #30

Del Williams