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.
1st February 1997