:Lbl 7
:Output(3,7,"The")
:Output(4,5,"Lottery")
:ClrHome
:Menu("Is this...","First time?",HH,"Or not",II)
:Lbl HH
:15->ZY
:Goto II
:Lbl II
:ZY-5->ZY
:Disp "Your number:","Winner:"
:Pause
:randInt(311,321)->U
:randInt(311,321)->V
:Output(1,13,U)
:Output(2,8,V)
:Pause
:clrhome
:If U=V
:ZY+10->ZY
:Disp "You win!","You have M"
:Pause
:Output(2,10,ZY)
:Pause
:Goto ZZ
:Else
:Disp "You lose...",You have M"
:Pause
:Output(2,10,ZY)
:Goto ZZ
This game is for fun.

New Topic/Question
Reply




MultiQuote


|