Star Micronics lC-10 user manual For BS=BO+CHR$PCC,Y Next Y

3450

FOR

Y-l

TO

WI

:BS=BO+CHR$(P(CC,Y))

:NEXT Y

3460 IF NOT NLQ THEN B5=BE+STRING5(35.0) :GOTO 3480

3470

FOR

Y-l

TO

WI :B$=B$+CHRI(Q(CC,Y))

:NEXT Y

3480

LSET

A$=BB

:PUT X1.M

3490

NEXT

CC

:RETURN

3500

I----- Output to printer -----------------------~--------------

3510

LPRINT

HD5;

3520

FOR CC-33 TO 126

3530

IF A!CC)<O

THEN 3580

3540

LPRINT

E5;"&";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

LPRINT

ES:"%l"::RETURN

3600

'

3610

IF PB THEN

3640

3620

PP-INP(GH3BD)

:IF PP<128

THEN 3620

3630

OUT

6HJBC.Z

:OUT hH3BE.5

:OUT hH3BE.4

:GOTO

3660

3640

PP-INP(bH379)

:IF PP<128

THEN 3640

3650

OUT

hH37B.Z

:OUT hH37A.5

:OUT bH37A.4

3660

RETURN

3670

I_----

p,,,t =haracter

---------------_________________________-----~~~~~~~

3680

LOCATE

X*2+1.Y*2+1

:PRINT

CS5

3690

LOCATE

X'2C2.Y'2+1

:PRINT

CS$

:RETURN

3700

LOCATE

BX*2+1,BY*2+1

:PRINT

CS5

3710 LOCATE BX*2+2.BY*2+1 :PRINT CSS :RETURN

3720

LOCATE

X+2.Y+2

:PRIM

CS5

:RETURN

3730

LOCATE

BX+2,BY+2

:PRIM

CS$

:RETURN

96