'
'
'
'
'    RENDGEN.BAS
'    OK It chcks out
'
'
'MaxRN% = 150
INPUT "Max Number  ", MaxRN%
'RNFile$ = "RNGI.DAT"
INPUT "File Name in quotes", RNFile$
pout% = 0
CLS
REM
REM  HTLM varibles
REM
'
DIM renGen%(20000)
r% = 1
renGen%(r%) = 1
done% = 0

' STARTING  STARTING  STARTING  STARTING  STARTING  STARTING
'OPEN "MenGenAA.dat" FOR INPUT AS #1
'fileout$ = "MS" + TOrgan$(A) + ".HTM"
cii% = 0



CLS
OPEN RNFile$ FOR OUTPUT AS #1
FOR I = 1 TO 20000
cii% = cii% + 1
'PRINT cii%; done%
'INPUT o$

IF done% = MaxRN% THEN GOTO 999
r% = r% + 1
rennum% = INT(RND * (MaxRN% + 1)) + 1
        'PRINT rennum%
        'INPUT o$
printit$ = "Y"
docount% = 0

DO UNTIL docount% = r%
docount% = docount% + 1
'PRINT "Entering loop:"; renGen%(docount%); rennum%

        IF renGen%(docount%) = rennum% THEN
        printit$ = "N"
        'INPUT o$
 '       PRINT renGen%(r%); "   "; rennum; printit$

'        INPUT o$
        END IF
LOOP

IF printit$ = "Y" THEN
'INPUT o$
renGen%(r%) = rennum%
PRINT #1, renGen%(r%)
'PRINT printit$; "  "; renGen%(r%)
done% = done% + 1
pout% = pout% + 1

PRINT pout%; "print to file rengen ="; renGen%(r%); "cii%="; cii%; "done%="; done%

END IF
NEXT I
999 CLOSE #1
'CLOSE #1

END