;JEFA TUNNEL ;© Jefa and Bengt ; "->" is the STO>-button :Prgm1:JEFATUNN :ClrHome :Lbl A :Disp "I IIIIIIIIII" :Lbl B :Disp "II IIIIIIIII" :Int Rand2+1->A :If A=1 :Goto A :lbl C :Disp "III IIIIIIII" :Int Rand2+1->A :If A=1 :Goto B :lbl D :Disp "IIII IIIIIII" :Int Rand2+1->A :If A=1 :Goto C :lbl E :Disp "IIIII IIIIII" :Int Rand2+1->A :If A=1 :Goto D :lbl F :Disp "IIIIII IIIII" :Int Rand2+1->A :If A=1 :Goto E :lbl G :Disp "IIIIIII IIII" :Int Rand2+1->A :If A=1 :Goto F :lbl H :Disp "IIIIIIII III" :Int Rand2+1->A :If A=1 :Goto G :lbl I :Disp "IIIIIIIII II" :Int Rand2+1->A :If A=1 :Goto H :lbl J :Disp "IIIIIIIIII I" :Goto I