Star Micronics Radix User Manual page 180

166 Radix User's Manual
1250 'Subroutine to select LINE SPACING.
1260 TITLE$ = "LINE SPACING MENU"
1270 GOSUB 2290
1280 PRINT TAB(TB) "0. Return to main menu."
1290 PRINT TAB(TB) "1. Select l/6 inch line spacing."
1300 PRINT TAB(TB) "2. Select l/8 inch line spacing."
1310 PRINT TAB(TB) "3. Select 7 dot graphics spacing."
1320 PRINT TAB(TB) "4. Select n/l44 inch spacing."
1330
GWJB
2380
1340 IF S(O OR S)4 THEN BEEP : GOT0 1330
1350 IF S = 0 THEN RETURN
1360 ON S GOSUB 1380,1410,1440,1470
1370 GOT0 1240
1380 '
1390 'Subroutine to select l/6 inch line spacing.
1400 S$ = ESC$ + "2" : GOSUB 2460 : RETURN
1410 '
1420 'Subroutine to select l/8 inch line spacing.
1430 S$ = ESC$ + "0" : GOSUB 2460 : RETURN
1440 '
1450 'Subroutine to select 7 dot graphics spacing.
1460 S$ = ESC$ + "1" : GOSUB 2460 : RETURN
1470 '
1480 'Subroutine to select n/144 inch line spacing.
1490 GOSUB 2500
1500 INPUT "Enter line space in l/144 ths of an inch"; X
1510 IF X ( 0 OR X ) 255 THEN BEEP : GOT0 1490
1520
S$ = ESC$ + "3" + CHR$(X) : GOSUB 2460 : RETURN
1530 '
1540
'Subroutine to select EXPANDED print.
1550
S$ = ESC$ + "W" + CHR$(l) : GOSUB 2460 : RETURN
1560 '
1570 'Subroutine to cancel EXPANDED printing.
1580 S$ = ESC$ + "W" + CHR$(0) : GOSUB 2460 : RETURN
1590 '
1600 'Subroutine to select ITALIC character set.
1610 S$ = ESC$ + "4" : GOSUB 2460 : RETURN
1620 '
1630 'Subroutine to cancel ITALIC character set.
1640 S$ = ESC$ + "5" : GOSUB 2460 : RETURN
1650 '
1660 'Subroutine to set PAGE LENGTH.
1670 GOSUB 2500
-
-
-
-
-
-