Dice.bas v1

REM Basic dice program v1, coded in qbasic 4.5
RandomGenDice:
CLS
RANDOMIZE TIMER
A = INT((6 - 1 + 1) * RND + 1)
B = INT((6 - 1 + 1) * RND + 1)
C = INT((6 - 1 + 1) * RND + 1)
D = INT((6 - 1 + 1) * RND + 1)

DiceResultDisplay:
PRINT "You rolled "; A; "and "; B
PRINT "Computer rolled "; C; "and "; D

DiceTotalCompare:
F = A + B
G = C + D

IF F > G THEN GOTO YWin
IF F < G THEN GOTO YLose
IF F = G THEN GOTO YDraw

Ywin:
PRINT "You Win!"
GOTO RollQuit

YLose:
PRINT "You Lose!"
GOTO RollQuit

YDraw:
PRINT "It's a draw!"
GOTO RollQuit

RollQuit:
INPUT ; "Roll again?(y/n)"; reply$
IF reply$ = "y" THEN
GOTO RandomGenDice
ELSE IF reply$ = "n" THEN END
END IF
GOTO RollQuit