REPEAT
INPUT(ROLLS,"Num of rolls","N=","Enter# of rolls",25);
ROLLS:= FLOOR(ROLLS);
IF ROLLS<1 THEN MSGBOX("You must enter a num >=1");
END;
UNTIL ROLLS>=1;
STARTVIEW(7,1);
END;
PLOT()
BEGIN
Xmin:=-0.1;
Xmax:= MAX(D1)+1;
Ymin:= −0.1;
Ymax:= MAX(D2)+1;
STARTVIEW(1,1);
END;
Symb()
BEGIN
SetSample(H1,D1);
SetFreq(H1,D2);
H1Type:=1;
STARTVIEW(0,1);
END;
The ROLLMANY() routine is an adaptation of the program presented earlier in this chapter. Since you cannot
pass parameters to a program called through a selection from a custom View menu, the exported variables
SIDES and ROLLS are used in place of the parameters that were used in the previous versions.
The program above calls two other user programs: ROLLDIE() and DICESIMVARS(). ROLLDIE() appears earlier in
this chapter. Here is DICESIMVARS. Create a program with that name and enter the following code.
The program DICESIMVARS
EXPORT ROLLS,SIDES;
EXPORT DICESIMVARS()
BEGIN
10 ▶ ROLLS;
6 ▶ SIDES;
END;
The User Keyboard: Customizing key presses 581
Komentarze do niniejszej Instrukcji