30 lines
No EOL
380 B
Text
30 lines
No EOL
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 |