Star Micronics Radix User Manual page 243

:
L.
TRS-80 Computers
229
L
2050 '
2060 'Subroutine to set HORIZONTAL TABS.
2070 S$ = ESC$ + "D" : MAX = 255 : GOSUB 2080 : RETURN
2080 '
L
2090 'Subroutine to set tabs, either horiz or vert.
2100 GOSUB 2770
%
2110 PRINT "Would you like to set the tabs in"
2120 PRINT TAB(TB) "Regular intervals, or specify"
*
2130 PRINT TAB(TB) "each
one
Individually (R,I)"
2140 A$ = INKEY$ : IF A$ = "" THEN 2140
2150 IF A$ = "R"
0R
A$ = V' THEN 2300
L.
2160 IF A$ = "I" OR A$ = "i" THEN 2180
2170 GOT0 2080
2180 PRINT : I = 2 : TBS(l) = -1
2190 PRINT TAB(TB) "Enter the list of tabs, in"
L.
2200 PRINT TAB(TB) "ascending order. No more than" MAX
'I II
2210'PRINT TAB(TB) : INPUT "Enter a tab" * TBS(1)
2220 IF TBS(1) ( 0 OR TBS(1) ) 255 THEN 2;70
2230 IF TBS(1) = 0 THEN I = 1 : GOT0 2270
.
2240 IF TBS(1) (= TBS(I-1) THEN 2170
2250 I = I + 1 : IF I ) MAX THEN 2170
L
2260 GOT0 2210
2270 I = I + 1
2280 S$ = S$ + CHR$(TBS(I)) : IF TBS(1) () 0 THEN 2270
2285 S$=S$+CHR$(0):GOSUB 2730
2290 RETURN
2300 PRINT : PRINT TAB(TB) ; : INPUT "Enter interval" ;
231; IF X ( 0 OR X ) 255 THEN 2080
2320 FOR I = 1 TO 255 STEP X
2330 MAX = MAX -1 : IF MAX = 0 THEN 2350
2340 S$ = S$ + CHR$(I) : NEXT I
2350 S$ = S$ + CHR$(0) : GOSUB 2730 : RETURN
2360 '
2370 'Subroutine to set VERTICAL TABS.
2380 S$ = ESC$ + "P" : MAX = 20 : GOSUB 2080
2390 RETURN
2400 1
2410 'Subroutine to select EMPHASIZED printing.
2420 S$ = ESC$ + "E" : GOSUB 2730
2430 RETURN
2440 '
2450 'Subroutine to cancel EMPHASIZED printing.