Star Micronics Radix User Manual page 224

210
Radix User's Manual
1870 RETURN
1880 REM SET PAGE LENGTH
1900 GOSUB 2770
1910 PRINT "PAGE LENGTH IN INCHES OR LINES (I,L)?"
1920 PRINT TAB( TB);
1930 GET A$
1940 IF A$ = "I" THEN 1970
1950 IF A$ = "L" THEN 20191
1960 PRINT BEEP$;: GOT0 1930
1970 INPUT "LENGTH OF PAGE IN INCHES (l-32) ";X
1980 IF X ( 1 OR X > 32 THEN PRINT BEEP;: GOT0 1900
1990 S$ = ESC$ + "C" + CHR$ (0) + CHR$ (X)
2000 GOSUB 2730: RETURN
._
2010 INPUT "LENGTH OF PAGE IN LINES (1-127) ";X
2020 IF X ( 1 OR X ) 127 THEN PRINT BEEP$;: GOT0 1900
2030 sqi = ~sc$ + "c" + CHR$ (x)
2040 GOSUB 2730: RETURN
2050 REM SET HORIZONTAL TAB
2070 S$ = ESC!$ + "D":MAX = 255: GOSUB 2080: RETURN
2080 REM SET TABS
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 GET A$
2150 IF A$ = "R" THEN 2300
2160 IF A$ = "I" THEN 2180
2170 PRINT BEEP$;: GOT0 2080
2180 PRINT :I = 2:TBS(l) = - 1
2190 PRINT TAB( TB);'ENTER THE LIST OF TABS, IN '
2200 PRINT TAB( TB);'ASCENDING ORDER. NO MORE THAN
I' .m. I, II
. .
.
2210' PR;NT TAB( TB): INPUT "ENTER TAB ";TBS(I)
2220 IF TBS(1) ( pl OR TBS(1) > 255 THEN 2170
2230 IF TBS(I) = pl THEN I = 1: GOTO 2270
2240 IF TBS(1) ( = TBS(1 - 1) THEN 2170
2250 I = I + 1: IF I ) MAX THEN 2170
2260 GOT0 2210
2270 I = I + 1
2280 S$ = S$ + CHR$ (TB~(I)): IF TBS(I) ( > 0 THEN 2270
2285 GOSUB 2730
2290 RETURN
2300 PRINT : PRINT TAB( TB);: INPUT "ENTER INTERVAL
";x