Star Micronics NX-2410 user manual Then QUA=2 Else QUA=0

1250

IF HID$(I$,2,1)="p"

THEN

QUA=2

ELSE

QUA=0

1260

1270

I$=INPUT$(P,#l)

1280

IF RIGHT$(I$,l)="T"

THEN

SCR=O

:GOTO

1300

1290

I$=INPUT$(l,#l)

:SCR=-1

1300

1310 ;$=INPUT$(S,#l)

1320

IF LEFT$(I$,l)=E$

THEN IBM=0 ELSE IBM=-1

1330

1----__ Read data for 1 (.haracter -------------------------------

1340 I$=INPUT$(3,#i)

1350

IF I$=E$+"$l"

THEN

1440

1360

I$=INPUT$(l,#l)

:J$=INPUTQ(l,#l)

1370

CC=ASC(I$) :IF CC>126

THEN 1440

1380

AQ(CC)=INPUT$(3,#1)

:A(CC)=ASC(MID$(A$(CC),2,1))

1390

1400

IF NOT

SCR THEN

1420

1410

P$(CC)=INPUT$(A(CC)'2,#1)

:GOTO

1430

1420

P$(CC)=INPUT$(A(CC)'3,#1)

1430

IF NOT EOF(1) THEN 1330

1440

CLOSE #l

1450

I======

START

DEFINITION

================I=======================

1460

1470

#______

Select

Std./IBM

________-__------------------------------

1480

LOCATE 6.1 :PRINT "SELECT MODE"

1490

SO$="Standard

mode

(DIP SW. l-6 ON )"

1500

Sl$="IBM

mode

(DIP SW. l-6 OFF)"

1510

S=O :PX=7 :PY=l :GOSUB 2820 :IBM=S

1520

IF IBM THEN HD$=F$+":" +STRING$(3,0)

ELSE

HD$=E$+":"+STRING$(3,0)

1530

1-_____ Select =haracter

mode

-------------------_---------------

1540

LOCATE 9,l :PRINT "SELECT STYLE"

1550

SO$="Normal

(24dot)"

:Sl$="Super/subscript

(lbdot)"

1560

S=O :PX=lO :PY=l :GOSUB 2820 :SCR=S

1570

IF SCR THEN 1580 ELSE

1590

1580

HD$=CHR$(27)+"SO"+HD$

:HI=16

:GOTO

1600

1590

HD$=CHR$(27)+"T"+HD$

:HI=24

1600

1______

Select

Quality

_______---_-------------------------------

1610

LOCATE

12,l

:PRINT

"SELECT

QUALITY"

:S=O

1620

LOCATE

13,l

:PRINT

"

Letter

quality"

1630

LOCATE

14,l

:PRINT

*

Draft

quality"

1640

LOCATE

15,l

:PRINT

v

Proportional"

1650

LOCATE 13+S,l :PRINT "==>" :S$=INPUT$(l)

:QUA=ASC(S$)

1660

IF QUA=13

THEN

QUA=S

:GOTO

1680

ELSE

LOCATE 13+S,l

:PRINT w

I'

1670

S=((S+l)

MOD

3)

:GOTO

1650

16.30IF QUA=0 THEN HD$=E$+"xl"+HD$ :W=36 :A=23 ELSE 1700

1630 IF NOT SCR THEN 1740 ELSE 1860

1700 IF QUA=2 THEN 1720 ELSE HD$=E$+"xO"+HD$ :W=12

1710 IF SCR THEN A=7 :GOTO 1860 ELSE A=9 :GOTO 1860 1720 HD$=E$+"pl"+HDQ :W=42

1730 IF SCR THEN A-23 :GOTO 1860 ELSE A=37 :GOTO 1660

1740	1_-----	select character			pitcb ----------------------------------
1750
1760	LOCATE	12,l	:PRINT	"Print pitch
1770	LOCATE	13,,1 :PRINT		*	LQ-1Ocpi.	'I
1780	LOCATE	14,l	:PRINT	"	LQ-12~~1.	11
1790	LOCATE	15,l	:PRINT	11	LQ-llcpi.	II

1800	LOCATE	13+S,l		:PRINT "==>" :S$=INPUT$(l)					:PT=ASC(S$)
1810	IF PT=13		THEN	PT=S		:GOTO 1830		ELSE LOCATE	13+S,l :PRINT '	'
1820	S=((S+l)		MOD	3)	:GOTO		1800
1830	HD$=E$+"xl"+HD$				:W=36		:A=29
1840	IF PT=l		THEN	W=30		:A=23 ELSE		IF PT=2 THEN	W=24 :A=15
1850
1860	CC=33	:CH$="!"
~ 1870	B-----	Select		cont~nue,Start				over -------------------------------
1880	LOCATE	16,l :PRINT				"CONTINUE?"