Star Micronics Radix User Manual page 260

246
Radix User's Manual
1960 PRINT TAB(TB) "ascending order. No more than" MAX
II II
1970'PRINT TAB(TB); : INPUT "Enter a tab" * TBS(1)
1980 IF TBS(1) ( 0 OR TBS(1) > 255 THEN 19;0
1990 IF TBS(1) = 0 THEN I = 1 : GOT0 2030
2000 IF TBS(1) (= TBS(I-1) THEN 1930
2010 I = I + 1 : IF I ) MAX THEN 1930
2020 GOT0 1970
2030
I = I + 1
2040 S$ = S$ + CHR$(TBS(I)) : IF TBS(1) () 0 THEN 2030
2050 S$ = S$ + CHR$(g) : GOSUB 2460 : RETURN
2860 PRINT : PRINT TAB(TB) ; : INPUT "Enter interval" ;
207; IF X ( 0 OR X > 255 THEN 1930
.-
2080 FOR I = 1 TO 255 STEP X
2090 MAX = MAX - 1 : IF MAX = 0 THEN 2110
21&i! S$ = S$ + CHR$(I) : NEXT I
2110 S$ = S$ + CHR$@) : GOSUB 2460 : RETURN
2120 '
2130 'Subroutine to set VERTICAL TABS.
2140 S$ = ESC$ + "P" : MAX = 291 : GOSUB 1840
2150 RETURN
2160 '
2170 'Subroutine to select EMPHASIZED printing.
2180 S$ = ES@ + "E" : GOSUB 2460 : RETURN
2190 '
2200 'Subroutine to cancel EMPHASIZED printing.
2210 S$ = ESC$ + "F" : GOSUB 2460 : RETURN
2220 '
2230 'Subroutine to select DOUBLE-STRIKE printing.
2240 S$ = ES@ + "G" : GOSUB 2460 : RETURN
2250
'
2260 'Subroutine to cancel DOUBLE-STRIKE printing.
2270 S$ = ESC$ + "H" : GOSUB 2460 : RETURN
2280 '
2290 'Subroutine to print a menu title.
2300 PRINT CHR$(26);
2310 PRINT : PRINT : PRINT
2320 PRINT TAB 'I---
wxx
PRINTER SETUP ---1'
2330 PRINT
2340 PRINT TAB((S&LEN(TITLE$)>/2) TITLE$
2350 PRINT : PRINT
2360 RETURN
2370
'
2380 'Subroutine to input menu selection.
-
-
-