By Bengt & Jefa =============== Prgm:JACK :Int rand13+1->A :A->B :0->F :Lbl C :ClrHome :Disp "YOU GOT:" :Disp B :Disp "1)NEW CARD" :Disp "2)STAY" :Input C :If C=1 :Goto A :If C=2 :goto B :Goto C :Lbl A :Int rand13+1->A :A+B->B :If B>21 :goto Y :Goto C :Lbl B :Int rand13+1->E :E+F->F :If F>16 :Goto G :Goto B :Lbl G :ClrHome :Disp "YOU GOT" :Disp B :Disp "OPPONENT GOT" :Disp F :If B=21 :Disp "BLACK JACK" :End :Lbl Y :Disp B :Disp "TOO MUCH"