Star Micronics Radix User Manual page 223

Apple II Computers 209
1300 S$ = ESC$ + "0": GOSUB 2730: RETURN
1310 REM SELECT NLQ
1330 S$ = ESC$ + "B" + CHR$ (4)
1340 GOSUB 2730: RETURN
1360 REM CANCEL NLQ
1380 S$ = ESC$ + "B" + CHR$ (5)
1390 GOSUB 2730: RETURN
1410 REM SELECT LINE SPACING
1430 TI$ = "LINE SPACING MENU"
1440 GOSUB 2560
1450 PRINT TAB( TB);"@. RETURN TO MAIN MENU"
1460 PRINT TAB( TB);"l. SELECT l/6 INCH LINE SPACING"
1470 PRINT TAB( TB);"2. SELECT l/8 INCH LINE SPACING"
1480 PRINT TAB( TB);"3. SELECT 7 DOT GRAPHICS SPACING"
1490 PRINT TAB( TB);"4. SELECT N/144 INCH SPACING"
1500 GOSUB 2650
1510 IF S ( 0 OR S ) 4 THEN PRINT BEEP$;: GOT0 1500
1520 IF s = g THEN RETURN
1530 ON S GOSUB 1550,1580,1610,1640
1540 GOT0 1410
1550 REM SELECT l/6 INCH LINE SPACING
1570 S$ = ESC$ + "2": GOSUB 2730: RETURN
1580 REM SELECT l/8 INCH LINE SPACING
1600 S$ = ESC$ + "0": GOSUB 2730: RETURN
1610 REM SELECT 7 DOT GRAPHICS SPACING
1630 S$ = ESC$ + "1": GOSUB 2730: RETURN
1640 REM SELECT N/144 INCH LINE SPACING
1660 GOSUB 2770
1670 INPUT "ENTER LINE SPACE (g-255) ";X
1680 IF X ( 0 OR X ) 255 THEN PRINT BEEP$;: GOT0 1660
1690 s$ = ESC$ + "3" + CHR$ (X): GOSUB 2730: RETURN
1700 REM SELECT EXPANDED
1720 S$ = ESC$ + "W" + CHR$ (1)
1730 GOSUB 2730
1740 RETURN
1750 REM CANCEL EXPANDED
1770 S$ = ES@ + "W" + CHR$ (0)
1780 GOSUB 2730
1790 RETURN
1800 REM SELECT ITALIC
1820 S!$ = ESC$ + "4": GOSUB 2730
1830 RETURN
1840 REM CANCEL ITALIC
1860 S$ = ESC$ + "5": GOSUB 2730