Star Micronics NX-2400 user manual 3480

3170 IF FL=0 THEN A(CC)=-1

3180

BEEP

3190

CC=CC+l

:IF CC=127

THEN CC=33

3200

GOT0

1920

3210 T------ Wraphup --_-------____----______________________---------

3220 CLS :LOCATE 1,l :PRINT "SAVE TO FILE?"

3230

S=O

:PX=2

:PY=l

:SD$="Yes"

:Sl$="No"

:GOSUB

2820

3240

IF

S

THEN

3310

file name [“;FI$;“]

“;

3250

LOCATE

5.10

:PRINT

"Output

3260

INPUT

FO$

AND FI$=“”

3270

IF

FO$=""

THEN

3250

3280

IF

FO$=“”

THEN FO$=FI$

3290 OPEN FO$ FOR OUTPUT AS #I

3300 GOSUB 3410 :CLOSE #l

3310

'

3320

LOCATE

7,l

3330 PRINT

"DOWNLOAD

TO

PRINTER?

(DIP SWITCH 2-l

MUST BE OFF)”

3340

S=O

:PX=B

:PY=l

:SO$="Yes"

:Sl$="No"

:GOSUB

2820

3350 IF S THEN END

3360 LOCATE 11,l :PRINT "Select I/F board "

3370

S=PB

:SO$="COLOR"

:Sl$="EONOCRO" :PX=12 :PY=l :GOSUB 2820 :PB=S

3380 GOSUB 3480 :LPRINT E$;"3";CHR$(50);

3390 FOR CC=33 TO 126 :LPRINT CHR$(CC);" ";:NEXT CC

3400 LPRINT STRING$(lO,lO)

:END

_-_~~_~__------~___-__________________

3410

U-----s Output to

Diskette

3420

PRINT#l,HD$;

3430

FOR

CC=33

TO

126

3440

IF

A(CC)<O

THEN

3460

3450 PRINT#l,E$;"&";CHR$(O);STRING$(2,CC);AS(CC);P$(CC);

3460

NEXT

CC

3470 PRINT#l IE$'"I $l"::RETURN

3480

I------

Output

to

Print-r -_-_--------___------------------------

3490 IF QUA>0 OR SCR THEN 3510

3500 IF PT=l THEN LPRINT E$;"M"; ELSE IF PT=2 THEN LPRINT CHR$(lJ); 3510 LPRINT HD$;

3520 FOR CC=33 TO 126
3530	IF	A(CC)<O		THEN		3570
3540 LPRINT E$:"&";CHR$(O);STRING$(2,CC):											Y
3550	FOR	Y=l	TO	3	:Z=ASC(BID$(A$(CC),Y,l))				:GOSUB	3590 :NEXT
3560	FOR Y-1 TO LEN(P$(CC))						:Z=ASC(HID$(P$(CC),Y,l))			:GOSUB	3590 :NEXT Y
3570	NEXT CC
3580 LPRINT E$;"%l"::RETURN
3590	'
3600	IF	NOT	PB	THEN 3630
3610	PP-INP(CH3BD)				:IF PP<128		THEN	3610
3620	OUT	kH3BC.Z			:OUT	bH3BE,5	:OUT	&H3BE,4	:GOTO 3650
3630	PP=INP(&H379)				:IF PP<128		THEN	3630
3640	OUT	&H378,Z			:OUT	&H37A,5	:OUT	bH37A,4
3650	RETURN		plot		character ~~~~---~~~~~~------~~~~-------~---~------~
3660	t-----s
3670	LOCATE		X,Y			:PRINT	CS$;:RETURN
3680	LOCATE		BX,BY			:PRINT	CS$;:RETURN

96