Table of Contents
Advertisement
228
Radix User's Manual
1610 '
1620 'Subroutine to select 7 dot graphics spacing.
1630 S$ = ESC$ + "1" : GOSUB 2730 : RETURN
1640 '
1650 'Subroutine to select n/l44 inch line spacing.
1660 GOSUB 2770
1670 INPUT "Enter line space in n/l44 ths of an inch"; X
1680 IF X ( 0 OR X ) 255 THEN 1660
1690 S$ = ESC$ + "3" + CHR$(X) : GOSUB 2730 : RETURN
1700 1
1710 'Subroutine to select EXPANDED print.
1720 S$ = ESC$ + "W" + CHR$(l)
1730 GOSUB 2730
1740 RETURN
1750 '
1760 'Subroutine to cancel EXPANDED print.
1770 S$ = ESC$ + "W" + CHR$(0)
1780 GOSUB 2730
1790 RETURN
1800 '
1810 'Subroutine to select ITALIC character set.
1820 S$ = ESC$ + "4" : GOSUB 2730
1830 RETURN
1840 '
1850 'Subroutine to cancel ITALIC character set.
1860 S$ = ES@ + "5" : GOSUB 2730
1870 RETURN
1880 '
1890 'Subroutine to set PAGE LENGTH.
1900 GOSUB 2770
1910 PRINT "Page length in Inches or Lines (I,L)?"
1920 PRINT TAB(TB) ;
1930 A$ = INKEY$ : IF A$ = "" THEN 1930
1940 IF A$ = f'I" OR A$ ="i" THEN 1970
1950 IF A$ = 'IL" OR A$ ="l" THEN 2010
1960 GOT0 1930
1970 INPUT "Length of page in inches (l-32)" ; X
1980 IF X ( 1 OR X ) 32 THEN 1900
1990 S$ = ESC$ + "C" + CHR$(0) + CHR$(X)
2000 GOSUB 2730 : RETURN
2010 INPUT "Length of page in lines (l-127)" ; X
2020 IF X ( 1 OR X ) 127 THEN 1900
2030 S$ = ES@ + "C" + CHR$(X)
2040 GOSUB 2730 : RETURN
-
Advertisement
Table of Contents
