Table of Contents
Advertisement
.'
226
Radix User's Manual
730 PRINT TAB(TB) "4. Set RIGHT MARGIN."
740 PRINT TAB(TB) "5. Set TOP MARGIN."
750 PRINT TAB(TB) "6. Set BOTTOM MARGIN."
760 PRINT TAB(TB) "7. Cancel TOP AND BOTTOM MARGINS."
770 PRINT TAB(TB) "8. Set PAGE LENGTH."
780 GOSUB 2650
790 IF S(p! OR S)8 THEN 780
800 IF S = 0 THEN RETURN
810 ON S GOSUB 2~5~,236~,98~,1~6~,113~,121~,128~,188~
820 GOT0 650
830 '
840 'Subroutine to select PICA pitch.
850 S$ = ESC$ + "B" + CHR$(l)
860 GOSUB 2730
870 RETURN
880 '
890 'Subroutine to select ELITE pitch.
900 S$ = ESC$ + "B" + CHR$(2)
910 GOSUB 2730
920 RETURN
930 '
940 'Subroutine to select CONDENSED pitch.
950 S$ = ESC$ + "B" + CHR$(3)
960 GOSUB 2730
970 RETURN
980 '
990 'Subroutine to set LEFT MARGIN.
lpi!@ GOSUB 2770
1010 INPUT "Enter new left margin (l-255)" ; X
1020 IF X ( 1 OR X ) 255 THEN GOT0 l@J@
1030 s$ = Esc$ + "MI' + cm$(x)
1040 GOSUB 2730
1050 RETURN
1060 '
1070 'Subroutine to set RIGHT MARGIN.
1080 GOSUB 2770
1090 INPUT "Enter new right margin (l-255)" ; X
1100 IF X ( 1 OR X ) 255 THEN GOT0 1080
1110 S$ = ESC$ + "Q" + CHR$(X)
1120 GOSUB 2730 : RETURN
1130 '
114fl 'Subroutine to set TOP MARGIN.
1150 GOSUB 2770
1160 INPUT "Enter new top margin (l-16)" ; X
Advertisement
Table of Contents
