Table of Contents
Advertisement
242
Radix User's Manual
200 '
210 'Subroutine to display CHARACTER SET menu.
220 TITLE$ = "CHARACTER SET MENU"
230 GOSUB 2280
240 PRINT TAB(TB) "0. Return to main menu."
250 PRINT TAB(TB) "1. Select NLQ character set."
260 PRINT TAB(TB) "2. Cancel NLQ character set."
270 PRINT TAB(TB)
"3.
Select ITALIC character set."
280 PRINT TAB(TB) "4. Cancel ITALIC character set."
290 GOSUB 2370
300 IF S(0 OR S)4 THEN PRINT CHR$(7) : GOT0 290
310
IF
s
= g THEN RETURN
320
ON S GOSUB 117~,12~~,158~,161~
2; GoTo 200
I
350 'Subroutine to display PITCHES menu.
360 TITLE$ = "PITCHES MENU"
370 GOSUB 2280
380 PRINT TAB(TB) "0. Return to main menu."
390 PRINT TAB(TB) "1. Select PICA pitch."
400 PRINT TAB(TB) "2. Select ELITE pitch.*'
410
PRINT TAB(TB)
"3.
Select CONDENSED pitch."
420 GOSUB 2370
430 IF S(p OR S)3 THEN PRINT CHR$(7) : GOT0 420
440 IF S = $3 THEN RETURN
450 ON S GOSUB 810,84(d,870
460 GOT0 340
470 '
480 'Subroutine to display PRINTING MODES menu.
490 TITLE$ = "PRINTING MODES MENU"
500 GOSUB 2280
510 PRINT TAB(TB) "0. Return to main menu."
520 PRINT TAB(TB) "1. Select EXPANDED mode."
530 PRINT TAB(TB) "2. Cancel EXPANDED mode."
540 PRINT TAB(TB)
"3.
Select EMPHASIZED mode."
550 PRINT TAB(TB) "4. Cancel EMPHASIZED mode."
560 PRINT TAB(TB) "5. Select DOUBLE-STRIKE mode."
570 PRINT TAB(TB) "6. Cancel DOUBLE-STRIKE mode."
580 GOSUB 2370
590 IF S(0 OR S)6 THEN PRINT CHR$(7) : GOT0 580
600 IFS = 0 THEN RETURN
610 ON S GOSUB 152~,155~,216~,219~,222~,225!iJ
620 GOT0 470
630 '
Advertisement
Table of Contents
