:ddd()
:Prgm
:Lbl Menu
:ClrIO
:Disp "DRAGONS DRUIDS & DICE"
:Disp "1) ROLL D4   2) ROLL D6   3) ROLL D8"   
:Disp "4) ROLL D10  5) ROLL D12  6) ROLL D20"
:Disp "7) ROLL FOUR D6  8) ROLL TWO D20"
:Disp "9) ROLL D4 AND D6"
:Disp "10) QUIT"
:INPUT "Option >",Optn

:IF Optn=1 
:  GOTO RD4
:if Optn=2 
:  GOTO RD6
:IF Optn=3 
:  Goto RD8
:IF Optn=4 
:  Goto RD10
:IF Optn=5  
:  Goto RD12
:IF Optn=6 
:  Goto RD20
:IF Optn=7 
:  Goto R4D6
:IF Optn=8 
:  Goto R2D20
:IF Optn=9
:  Goto RD4D6
:IF Optn=10 
:  goto Endpr
:GOTO Menu

:Lbl RD4
:Rand(4)->Dice1
:ClrIO
:Output "YOU ROLLED A "
:Disp Dice1 
:Disp "WITH D4"
:Disp "====="
:GOTO Menu

:Lbl RD6
:Rand(6)->Dice1
:ClrIO
:Disp "YOU ROLLED A "
:Disp Dice1
:Disp "WITH D6"
:Disp "====="
:GOTO Menu

:lbl RD8
:Rand(8)->Dice1
:ClrIO
:Disp "YOU ROLLED A "
:Disp Dice1
:Disp "WITH D8"
:Disp "======="
:GOTO Menu

:lbl RD10
:Rand(10)->Dice1
:ClrIO
:Disp "YOU ROLLED A "
:Disp Dice1
:Disp "WITH D10"
:Disp "====="
:GOTO Menu

:lbl RD12
:Rand(12)->Dice1
:ClrIO
:Disp "YOU ROLLED A "
:Disp Dice1
:Disp "WITH D12"
:Disp "====="
:GOTO Menu

:lbl RD20
:Rand(20)->Dice1
:ClrIO
:Disp "YOU ROLLED A "
:Disp Dice1
:Disp "WITH D20"
:Disp "====="
:GOTO Menu

:Lbl R4D6
:Rand(6)->Dice1
:Rand(6)->Dice2
:Rand(6)->Dice3
:Rand(6)->Dice4
:ClrIO
:Disp "YOU ROLLED A "
:Disp Dice1,Dice2,Dice3,Dice4
:Disp "WITH FOUR D6"
:Disp "================"
:GOTO Menu

:Lbl R2D20
:Rand(20)->Dice1
:Rand(20)->Dice2
:ClrIO
:Disp "YOU ROLLED A "
:Disp Dice1,Dice2
:Disp "WITH TWO D20"
:Disp "============"
:GOTO Menu

:Lbl Endpr
:Stop