Star Micronics Radix User Manual page 258

244
Radix User's Manual
1080 '
1090 'Subroutine to set BOTTOM MARGIN.
1100 GOSUB 2500
1110 INPUT "Enter new bottom margin (1-127)" ; X
1120 IF X ( 1 OR X ) 127 TREN.PRINT CRR$(7) : GOT0 1100
;;;; S$ = ESC$ + "N" + CHR$(X) : GOSUB 2460 : RETURN
I
1150 'Subroutine to CANCEL TOP & BOTTOM MARGINS.
1160 S$ = ESC$ + "0" : GOSUB 2460 : RETURN
1170 '
1180 'Subroutine to select NLQ character set.
1190 S$ = ESC$ + "B" + CHR$(4) : GOSUB 2460 : RETURN
1200 '
1210 'Subroutine to cancel NLQ character set.
1220 S$ = ESC$ + "B" + CRR$(5) : GOSUB 2460 : RETURN
1230 '
1240 'Subroutine to select LINE SPACING.
1250 TITLE$ = "LINE SPACING MENU"
1260 GOSUB 2280
1270 PRINT TAB(TB) "0. Return to main menu."
1280 PRINT TAB(TB) "1. Select l/6 inch line spacing."
1290 PRINT TAB(TB) "2. Select l/8 inch line spacing."
1300 PRINT TAB(TB) "3. Select 7 dot graphics spacing."
1310 PRINT TAB(TB) "4. Select n/l44 inch spacing."
1320 GOSUB 2370
1330 IF S(O OR S)4 THEN PRINT CRR$(7) : GOT0 1320
1340 IF S = 0 THEN RETURN
1350 ON S GOSUB 1370,1400,1430,1460
1360 GOT0 1230
1370 '
1380 'Subroutine to select l/6 inch line spacing.
1390 S$ = ESC$ + "2" : GOSUB 2460 : RETURN
1400 I
1410 'Subroutine to select l/8 inch line spacing.
1420 S$ = ESC$ + "0" : GOSUB 2460 : RETURN
1430 '
1440 'Subroutine to select 7 dot graphics spacing.
1450 S$ = ESC$ + "1" : GOSUB 2460 : RETURN
1460 '
1470 'Subroutine to select n/l44 inch line spacing.
1480 GOSUB 2500
1490 INPUT "Enter line space in l/144 ths of an inch"; X
1500 IF X ( 0 OR X ) 255 THEN PRINT CHR$(7) : GOT0 1480
1510 S$ = ESC$ + "3" + CHR!$(X) : GOSUB 2460 : RETURN
i
: