var numoftick:int
var quickpick:int
var lotarray:array 1..6 of int
var winningnum:array 1..6 of int
var found:array 1..6 of boolean
var win:boolean:=false
put "how many quick picks would you like?"
get numoftick
randomize
cls
put "********************************lotto649**********************"
put " "
put " your lottery numbers are: "
for j: 1.. numoftick
for i:1..6
randint (lotarray (i),1,49)
randint (winningnum(i),1,49)
end for
for w:1..6
if lotarray (1)= winningnum (w) or lotarray (2)= winningnum (w) or lotarray (3)= winningnum (w)or lotarray (4)= winningnum (w)or lotarray (5)= winningnum (w) or lotarray (6)= winningnum (w)then
found (w):=true
else
found (w):=false
end if
end for
if found (1)=true and found(2)=true and found(3)=true and found(4)=true and found(5)=true and found(6) then
win:=true
end if
put " ":19..
for i:1..6
put lotarray (i):3..
end for
put " "
end for
put "good luck on this weeks draw! saturday may 17th,2003"
put " "
put "********************************lotto649**********************"
put "Winning numbers are:"
for i :1..6
put winningnum(i):3..
end for
put " "
if win=true then
put "you have won"
else
put "you have lost"
end if