30 lines
380 B
Text
30 lines
380 B
Text
|
Filename:DICE
|
||
|
0->A~Z
|
||
|
Lbl 1
|
||
|
If A=0 And B=0
|
||
|
Then "Upper limit"?->A
|
||
|
"Lower limit"?->B
|
||
|
" "
|
||
|
Else If BA
|
||
|
Then 0->A~Z
|
||
|
ClrText
|
||
|
Goto 1
|
||
|
IfEnd
|
||
|
Lbl 2
|
||
|
Int (Ran#*A)+1->U
|
||
|
If U<B
|
||
|
Then Goto 2
|
||
|
Else X+1->X
|
||
|
If X>6 Or X<5
|
||
|
Then 5->X
|
||
|
IfEnd
|
||
|
0->L
|
||
|
Do
|
||
|
L+1->L
|
||
|
Locate L,X,"."
|
||
|
LpWhile L<21
|
||
|
Locate 1,X," "
|
||
|
Locate 1,X,U[DISP]
|
||
|
IfEnd
|
||
|
IfEnd
|
||
|
Goto 1
|