9800 REM Print nomenclature
9810 REM for TRS-80 CGP-115
9820 REM by Carl Tenning, Sept. '85
9830 REM 	Set position by X=horiz,
9840 REM	Y=vert, and L$ to nomenclature
9850 REM	followed by GOSUB 9800.
9860 REM	Select letter size by
9870 REM	SIZE%=n (0-63) and direction
9880 REM	by DIR%=n (0-3).
9890 REM
9900 PENUP%=-1
9910 GOSUB 9000
9920 IF SIZE%>=0 THEN LPRINT "S";SIZE%
9930 SIZE%=-1
9940 IF DIR%>=0 THEN LPRINT "Q";DIR%
9950 DIR%=-1
9960 LPRINT "P";L$
9970 RETURN
>=0 THEN LPRINT "S";SIZE