Star Micronics Radix User Manual page 181

Putting Radix to Work For You
167
.
-.
1680 PRINT "Page length in Inches or Lines (I,L)?"
1690 PRINT TAB(TB) ;
1700 A$ = INKEY$ : IF A$ = "" THEN 1700
1710 IF A$ = "I" OR A$ ="i" THEN 1740
1720 IF A$ = "L" OR A$ ="l" THEN 1780
1730 BEEP : GOT0 1700
1740 INPUT "Length of page in inches (l-32)" ; X
1750 IF x ( 1 OR x ) 32 THEN BEEP : GOTO 1670
1760 S$ = ESC$ + "C" + CHR$(0) + CHR$(X)
1770 GOSUB 2460 : RETURN
1780 INPUT "Length of page in lines (1-127)" ; X
1790 IF X ( 1 OR X ) 127 THEN BEEP : GOT0 1670
1800 S$ = ES@ + "C" + CHR$(X)
1810 GOSUB 2460 : RETURN
1820 '
1830 'Subroutine to set HORIZONTAL TABS.
1840 S$ = ES@ + "D" : MAX = 255 : GOSUB 1850 : RETURN
1850 '
1860 'Subroutine to set tabs, either horie or vert.
1870 GOSUB 2500
1880 PRINT f'Would you like to set the tabs in"
1890 PRINT TAB(TB) "Regular intervals, or specify"
1900 PRINT TAB(TB) "each one Individually (R,I)"
1910 A$ = INKEY$ : IF A$ = "" THEN 1910
1920 IF A$ = "R" OR A$ = "r" THEN 2070
1930
IF A$ = "I" OR A$ = "i" THEN 1950
1940 BEEP : GOT0 1850
1950 PRINT : I = 2 : TBS(1) = -1
1960 PRINT TAB(TB) "Enter the list of tabs, in"
1970 PRINT TAB(TB) "ascending order. No more than" MAX
II I!
1980'PRINT TAB(TB) : INPUT "Enter a tab" * TBS(1)
1990 IF TBS(1) ( 0 OR TBS(1) > 255 THEN lb40
2000 IF TBS(1) = 0 THEN I = 1 : GOT0 2040
2010 IF TBS(1) (= TBS(I-1) THEN 1940
2020
I = I + 1 : IF I ) MAX THEN 1940
2030
GOT0 1980
2pl.40
I = I + 1
2050 S$ = S$ + CHR$(TBS(I)) : IF TBS(1) 0 0 THEN 2040
2060 S$ = S$ + CHR$(0) : GOSUB 2460 : RETURN
2070 PRINT : PRINT TAB(TB) ; : INPUT "Enter interval" ;
X
2080
IF X ( 0 OR X > 255 THEN 1940
2090 FOR I = 1 TO 255 STEP X