QBasic programme de 6/49

Bon voilà mon problème je tant de créer un programme en Qbasic de style 6/49
Donc un programme qui tireras au hasard 6 chiffres de 1 à 49 plus 1 complémentaire
Toujours entre 1 à 49, j’ai fait mon code de départ puis en le lancent cela ma donner ceci :
1,2,3,4,5,6,1…..Méchante combinaison ouff!

Voilà le code :

CLS
DIM Tableau AS SINGLE
compteur = chiffre
RANDOMIZE TIMER
chiffre = INT(RND(49) * 49)
FOR chiffre = 1 TO 7
PRINT chiffre
NEXT chiffre
compteur = chiffre + 1
RANDOMIZE TIMER
compler = INT(RND(49) * 49) + 1
FOR compler = 1 TO 1
PRINT compler
NEXT compler
END

S.V.P aidez moi a comprendre merci !