random 1 to 100 in BASIC

procedure One_to_100:

	GOSUB Zero_to 50:

		A=Randum_number_Zero_to_50

	GOSUB Zero_to 50:

		B=Randum_number_Zero_to_50

		if B=0 then B=1

		Randum_number_Zero_to_100=A+B

end


procedure Zero_to 50:

procedure while_not_zero:

    Randum_number_Zero_to_50=firstRollofDice times 10 plus second roll of dice minus 11

    if(Randum_number_Zero_to_50<0) GOTO while_not_zero

RETURN