programming help 2

[es5100]

This program locates the numbers but does not eliminate duplicate numbers. That's what i want to do. Get rid of the duplicate numbers.



COLOR 15, 1
CLS


'this program displays a list of 56 numbers in the range of 1-21
'the user enters a number in the range of 1-21
'the program tells where each occurrence appears.
'example: 4 1 13 11 20 9 13...
'user enter "13"
'program displays 3 7...
'since 13 is at position 3, 7,etc
DIM somenumber AS INTEGER ' a number to be found in the array below.
DIM somearray(56) AS INTEGER 'integers displayed on screen
INPUT "please type a random-number seed"; seed
RANDOMIZE seed 'initialize the random number generator

FOR ctr = 1 TO 56
somearray(ctr) = CINT(RND * 56 + 1) 'number in range 1-20

PRINT somearray(ctr);
NEXT ctr
COLOR 15, 1


DO
PRINT
INPUT "what number do you want to search for?(enter 0 to quit)"; position
IF position = 0 THEN EXIT DO
somenumber = CINT(position) 'change it to an integer

IF somenumber < 0 THEN somenumber = 1 'if it's less than 0, let it =1
IF somenumber > 56 THEN somenumber = 56 'if it's bigger than 56 let it =56




PRINT "positions containing"; somenumber; "are:";
FOR cnt = 1 TO 56
IF somenumber = somearray(cnt) THEN PRINT cnt;
NEXT cnt
PRINT "" 'finish up
LOOP 'until user enters zero




PRINT "finished"