Star Micronics LC-IOII user manual For BS=B$+CHRSPCC.Y Next Y

3450

FOR

Y-l

TO

WI

:BS=B$+CHRS(P(CC.Y))

:NEXT Y

3460

IF NOT

NLQ

THEN BJ=B$+STRING$(35.0)

:GOTO 3480

3470

FOR

Y-l

TO

WI

:BE=BB+CHR5(Q(CC.Y))

:NEXT Y

3480

LSET

AS-B5

:PUT C1.M

3490

NEXT

CC

:RETURN

3500

I_-_-_ Output to printer ---____________________________________

3510

LPRINT

HDO;

3520

FOR CC-33 TO 126

3530

IF A(CC)<O

THEN 3580

3540

LPRINT

E5:"6":CHR5(O):STRING5(2.CC)::Z=A(CC)

:GOSUB 3600

3550

FOR

Y-l

TO

WI

:Z=P(CC,Y)

:GOSUB

3600

:NEXT Y

3560

IF NOT NLQ THEN 3580

3570

FOR

Y-l

TO

WI

:Z=Q(CC.Y)

:GOSUB

3600

:NEXT Y

3580

NEXT

CC

3590

LFRINT

E5;"%1"::RETURN

3600

'

3610

IF PB THEN

3640

3620

PP=INP(GHJBD)

:IF PP<128

THEN 3620

3630

OUT

6H3BC.Z

:OUT 6H3BE.5

:OUT &H3BE,4

:GOTO 3660

3640

PP-INP(6H379)

:IF PP<12S

THEN 3640

3650

OUT

6H370.Z

:OUT 6H37A.5

:OUI hH37A.4

3660

REIURN

3670

I----- Plot character -______________-_--_____________________-----------

3680

LOCATE

X*2+1.Y*2+1

:PRINT CS5

3690

LOCATE

X'2+2.Y'2+1

:PRINT CSS

:RETURN

3700

LOCATE

BX"2+1,BY*2+1

:PRINT

CSS

3710

LOCATE

BX*2+2,BY*2+1

:PRINT

CS5

:RETURN

3720

LOCATE

X+2.Y+2

:PRINT

CS5

:RETURN

3730

LOCATE

BX+2,BY+2

:PRINT

CS$

:RENRN

-

98