Table of Contents
Advertisement
TM-80 Commuters
227
1170 IF X ( 1 OR X > 16 THEN GOT0 1150
1180 S$ = ESC$ + "R" + CHR$(X)
1190 GOSUB 2730
1200 RETURN
1210 '
1229 'Subroutine to set BOTTOM MARGIN.
1230 GOSUB 2778
1240 INPUT "Enter new bottom margin (1-127)" ; X
1250 IF x ( 1 OR x ) 127 THEN GOTO 1230
1260 S$ = ESC$ + "N" + CHR$(X)
1270 GOSUB 2730 : RETURN
1280 '
1290 'Subroutine to cancel TOP & BOTTOM MARGINS.
1300 S$ = ESC$ + "0" : GOSUB 2730 : RETURN
1310 '
1320 'Subroutine to select NLQ character set.
1330
S$ = ESC$ + "B" + CHR$( 4)
1340 GOSUB 2730 : RETURN
1360 '
1370 'Subroutine to cancel NLQ character set.
1380 S$ = ESC$ + "B" + CHR$(S)
1390 GOSUB 2730
1400 RETURN
1410 '
1420 'Subroutine to select LINE SPACING.
1430 TITLE$ = "LINE SPACING MENU"
1440 GOSUB 2560
1450 PRINT TAB(TB) "0. Return to main menu."
1460 PRINT TAB(TB) "1. Select l/6 inch line spacing."
1470 PRINT TAB(TB) "2. Select l/8 inch line spacing."
1480 PRINT TAB(TB) "3. Select 7 dot graphics spacing."
1490 PRINT TAB(TB) "4. Select n/l44 inch spacing."
1500 GOSUB 2650
1510 IF S<jJ OR S)4 THEN 1500
1520 IF S = 0 THEN RETURN
1530
ON S GOSUB 155~,158~,161~,164~
1540 GOT0 1410
1550 '
1560 'Subroutine to select l/6 inch line spacing.
1570 S$ = ESC$ + "2" : GOSUB 2730 : RETURN
1580 '
1590 'Subroutine to select l/8 inch line spacing.
1600 S$ = ESC$ + "0" : GOSUB 2730 : RETURN
Advertisement
Table of Contents
