:ClrHome :Output(4,4,"LA BOURSE" :Pause :ClrHome :0 -> S :-25 -> H :10000 -> F :Lbl A :If F<0 or S<0 :Then :Goto 0 :End :If H=0 :Then :ClrHome :F-10000 -> G :Disp "LA BOURSE","FERME","","GAINS:",G :Pause :Disp "UNITES PERDUES:",S :Pause :Else :Menu(" LA BOURSE ","COURS",1,"ACHATS",2,"VENTES",3,"SITUATION",4,"QUITTER",5) :Lbl 1 :ClrHome :H+1 -> H :int 100rand+1 -> C :Disp "LE COURS EST A:",C :Pause :Goto A :Lbl 2 :Disp "ARGENT:",F,"NOMBRE A","ACHETER ?" :Input N :N*C -> V :F-V -> F :S+N -> S :Goto A :Lbl 3 :ClrHome :Disp "STOCK:"S,"NOMBRE A ACHETER ?" :Input N :N*C -> V :F+V -> F :S-N -> S :Goto A :Lbl 4 :ClrHome :Disp "STOCK:",S,"ARGENT:",F,"FERME DANS H",H :Pause :Goto A :Lbl 5 :Stop :Lbl 0 :ClrHome :Disp "TU T'ES ENDETTE.", "","TU AS DONC PERDU" :Pause :Disp "ARGENT:",F :Stop