Star Micronics Radix User Manual page 182

168
Radix User's Manual
21091 MAX = MAX - 1 : IF MAX = p! THEN 2120
2110 S$ = S$ + CHR$(I) : NEXT I
2120 S$ = S$ + CHR$(@) : GOSUB 2460 : RETURN
2130
'
2140 'Subroutine to set VERTICAL TABS.
2150 S$ = ESC$ + "P" : MAX = 20 : GOSUB 1850
2160 RETURN
2170 '
2180 'Subroutine to select EMPHASIZED printing.
2190 S$ = ESC$ + "E" : GOSUB 2460 : RETURN
2200 '
2210 'Subroutine to cancel EMPHASIZED printing.
2220 S$ = ESC$ + "F" : GOSUB 2460 : RETURN
2230
'
2240 'Subroutine to select DOUBLE-STRIKE printing.
2250 S$ = ESC$ + "G" : GOSUB 2460 : RETURN
2260 '
2270 'Subroutine to cancel DOUBLE-STRIKE printing.
2280 S!$ = ESC$ + "H" : GOSUB 2460 : RETURN
2290 '
2300 'Subroutine to print a menu title.
2310 as
2320
PRINT : PRINT : PRINT
2330 PRINT TAB(27) II--- RADIX PRINTER SETUP ---II
2340 PRINT
2350 PRINT TAB((80-LEN(TITLE$))/2) TITLE$
2360 PRINT : PRINT
2370 RETURN
2380 '
2390 'Subroutine to input menu selection.
2400 LOCATE 20,18 : PRINT "Enter selection or press P
for print sample."
2410 C$ = INKEY$ : IF C$ = "" THEN 2410
2415 IF C$ = "P" OR C$ = fy THEN GOSUB 3000 : G0~0 2380
2420 IF C$ ( "0" OR C$ ) "9" THEN BEEP : GOT0 2410
2430 S = VAL(C$)
2440 LOCATE 20,18 : PRINT STRING$(50," ")
2450 RETURN
2460 '
2470 'Subroutine to output command string.
2480 PRINT #l, S$ ;
2490 RETURN
2500 '