2.9.3 SGSTNP

1.
Function
Sets the tone pattern index used in SGTNU, SGTNV, and SGTNR.
2.
Call
CALL SGSTNP(ITPAT)
3.
Explanation of Parameters
ITPAT (I) The tone pattern index (Initial value is 1.) 8.1.4- See Section 8.1.10.
4.
Notes
(a)
ITPAT must be larger than 1. When ITPAT is 0, a message is printed, and no other steps are taken.
(b)
The validity of ITPAT is not checked in this routine. It is checked when SGTNU, SGTNV, or SGTNR is called.
(c)
The current tone pattern index can be inquired by
CALL SGQTNP(ITPAT).