Table of Contents
Advertisement
Putting Radix to Work For Yim
163
It may take a while to enter it, but we think that in the long
run, this program will save you time when you want to set mar-
gins or tabs or any of Radix's other advanced features. Enjoy!
18 'Program to setup RADIX printer as directed.
2pl
'
30
'Initialize.
40
ESC$ = CHR$(27) : TB = 25 : DIM TBS(256)
50 OPEN "lptl:" AS #l : WIDTH #l, 255 : KEY OFF
60
'
70 'Display MAIN menu.
80 TITLE$ = "MAIN MENU"
90 GOSUB 2290
100 PRINT TAB(TB) "0. Exit."
110 PRINT TAB(TB) "1. Select CHARACTER SET."
120 PRINT TAB(TB) "2. Select PRINTING MODES."
l3P, PRINT TAB(TB)
"3.
Select PITCH."
140 PRINT TAB(TB) "4. Select LINE SPACING."
150 PRINT TAB(TB)
"5.
Set MARGINS, TABS & FORMS."
160 GOSUB 2380
170 IF S(pl OR S)5 THEN BEEP : GOT0 160
180
IF S = 0 THEN CLOSE #l : CLS : END
190 ON S GOSUB 210,480,350,1240,640
200 GOT0 60
210 1
220 'Subroutine to display CHARACTER SET menu.
230
TITLES = "CHARACTER SET MENU"
240 GOSUB 2290
250 PRINT TAB(TB) "0. Return to main menu."
260 PRINT TAB(TB) "1. Select NLQ character set."
270 PRINT TAB(TB) "2. Cancel NLQ character set."
280 PRINT TAB(TB)
"3.
Select ITALIC character set."
290 PRINT TAB(TB) "4. Cancel ITALIC character set."
300 GOSUB 2380
310 IF S(p! OR S)4 THEN BEEP : GOT0 300
320
IF S = 0 THEN RETURN
330 ON S GOSUB 1180,1210,1590,1620
340 GOT0 210
350
'
360
'Subroutine to display PITCHES menu.
370 TITLE$ = "PITCHES MENU"
380 GOSUB 2290
Advertisement
Table of Contents
