Star Micronics NX-2410 user manual Plot chara,-.ter ------------~-~----~-~-~~~~-~~~~~

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

3180

BEEP

3190

CC=CC+l

:IF

CC=127

THEN

CC=33

3200

GOT0

1920

3210

I_---__ Wrap-up --------------_--___----------------------------

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

3250

LOCATE 5,lO :PRINT "Output file name [";FI$;") ";

3260

INPUT

FO$

3270

IF

FO$="" AND FI$="" THEN 3250

3280

IF

FO$="" THEN FO$=FI$

3290

OPEN FO$ FOR OUTPUT AS #1

3300

GOSUB 3410 :CLOSE #l

3310

'

3320

LOCATE

7,l

(DIP

SWITCH

2-l

HUST BE

OFF)"

3330

PRINT

"DOWNLOAD

TO

PRINTER?

3340

S=O

:PX=8 :PY=l :SO$="Yes"

:Sl$="No"

:GOSUB

2820

3350

IF

S

THEN

END

3360

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

3370

S=PB

:SO$="COLOR"

:Sl$="RONOCRO"

:PX=12

:PY=l

:GOSUB

2820 :PB=S

3380

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

3390

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

3400

LPRINT

STRING$(lO,lO)

:END

3410

I------

Output to

Diskette

-____-___----_----_-------~-~-~~~~~~-~

3420

PRINT#l,HD$;

3430

FOR

CC=33

TO

126

3440

IF

A(C

THEN

3460

3450

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

3460

NEXT

CC

3470

PRINT#l,E$;"%l";:RETURN

__-__--__---___------------------------

3460

t-e---- Output to

printer

3490 IF QUA>0 OR SCR THEN 3510

3500

IF

PT=l

THEN

LPRINT E$;"M"; ELSE

IF PT=2

THEN

LPRINT

CHR$(15);

3510

LPRINT HD$;

3520

FOR

CC=33

TO

126

3530

IF

A(CC)<O

THEN

3570

3540

LPRINT E$;"&";CHR$(O):STRING$(2,CC);

3550

FOR

Y=l

TO

3

:Z=ASC(HID$(A$(CC),Y,l))

:GOSUB

3590 :NEXT Y

3560

FOR Y=l TO LEN(P$(CC))

:Z=ASC(BID$(P$(CC),Y,l))

:GOSUB 3590 :NEXT Y

3570

NEXT

CC

3580

LPRINT E$;"%l";:RETURN

3590

'

3600

IF NOT PB THEN 3630

3610

PPuWIP(hH3BD)

:IF PP<128

THEN

3610

3620

OUT

&HJBC,Z

:OUT

&H3BE,5

:OUT

6H3BE.4

:GOTO

3650

3630

PP=INP(&H379)

:IF

PP<128

THEN

3630

3640

OUT

&H378,Z

:OUT

6H37A.5

:OUT

6iH37A.4

3650

RETURN

3660

1__-___ plot chara,-.ter -____-___---_----_---~-~----~-~-~~~~-~~~~~

3670

LOCATE

X,Y

:PRINT

CS$;:RETURN

3680

LOCATE

BX,BY

:PRINT

CS$;:RETURN

96