*----------------------* ------------------------ (c) Bengt Werstén & JEFA ------------------------ --*******************--- --* RAIN *--- --*******************--- *----------------------* PrgmX:RAIN :Lbl M :ClrHome :Disp "" :Disp " ()()" :Disp " ()()()" :Int (Rand4)+1->A :If A=1 :Goto A :If A=2 :Goto B :If A=3 :Goto C :If A=4 :Goto D :Lbl A :Disp " | | |" :Disp " | |" :Goto M :Lbl B :Disp " | |" :Disp " | |" :Goto M :Lbl C :Disp " | |" :Disp " | |" :Goto M :Lbl D :Disp " | |" :Disp " || |" :Goto M