Star Micronics LC24-10 user manual 2440

1890

SO$="Continue"

:Sl$="Start

over"

1900

S=O

:PX=17

:PY=l :GOSUB 2820 :IF S

THEN

CLS

:GOTO

1120

1910

'

1920

I===============================================================-

1930

CLS

select

=haracker

position

--------------------------------

1940

I_____

1950 CH$=CHR$(CC)

1960

LOCATE

1,50

:PRINT

"CHARACTER

[";CH$;"]";

1970 I$=INPUT$(l)

1980

IF w "<I$ AND I$<CHR$(127)

THEN

CH$=I$ ELSE GOT0 2000

1990

CC=ASC(CH$)

2000 LOCATE 1,50 :PRINT "CHARACTER : ";CHS;" "

2010

IF

A(CC)<O

THEN AO=O :Al=A :A2=W-A

:GOTO

2030

2020

AO=ASC(LEFT$(A$(CC),l))

:Al=A(CC)

:A2=ASC(RIGHT$(A$(CC),l))

2030

LOCATE

3,50

:PRINT

"Body-Width

=

";A1

2040 LOCATE 4,50 :PRINT "Left Space

=

";A(,

2050 LOCATE 5.50 :PRINT "Right Space = ";A2

2060 LOCATE 7,50 :PRINT "( Are you sure ? )"

2070 LOCATE S,50 :PRINT "*** Yes or No n**11

2080 A$=INPUT$(l)

2090

LOCATE

7,50

:PRINT

SPC(25)

:LOCATE

S,50

:PRINT

SPC(25)

2100

IF

A$="N"

OR

A$="n"

THEN

2110

ELSE

GOT0

2240

2110

I-----

Select

Character

width/Left

space

------------------------

2120

FOR

I=3

TO

5

:LOCATE I,50

:PRINT

SPC(25)

:NEXT

I

2130

LOCATE

3,50

:INPUT

"Body-Width

=

";A1

2140 IF Al=0 OR Al>W THEN BEEP :LOCATE 3,50 :PRINT SPC(20) :GOTO 2130

2150 LOCATE 3,63 :PRINT STR$(Al):".

"

2160 LOCATE 4,50 :INPUT "Left Space = ";A0

2170 IF AO+Al>W THEN BEEP :LOCATE 4,50 :PRINT SPC(20) :GOTO 2160

2180 LOCATE 4,63 :PRINT STR$(AO);".

'I

2190 IF QUA=2 THEN 2210

2200

A2=W-AO-Al

:LOCATE 5,50 :PRINT "Right Space

=";:GOTO 2230

2210 LOCATE 5,50 :INPUT "Right

Space = “;A2

SPC(20)

2220

IF

AO+Al+AZ>W

THEN

LOCATE

3,50

:PRINT

:GOTO 2210

2230

LOCATE

5,63

:PRINT

STR$(AP):".

1( :GOTO

2060

2240

I_____

xey

explanat-ons

----------------_-__---------------------

2250

LOCATE

lo,50

:PRINT

"Fl:

Clear

dot"

2260

LOCATE

11.50

:PRINT

“F2:

Pass

over"

2270 LOCATE 12,50 :PRINT "F3: Set dot"

2280 LOCATE 13,50 :PRINT "F4: Clear all dots"

2290 LOCATE 14,50 :PRINT "F5: Skip character"

2300

LOCATE

15.50

:PRINT “F6:

End"

2310 LOCATE 16,50 :PRINT "RET Record character"

2320

t_____

Get

character

-__-__-__-----------------------------------

2330 IF A(CC)<O THEN GOSUB 3040 :GOTO 2460

2340

’

2350

FOR

N=l

TO

HI-7 STEP 8 :FOR O=N

TO

N+7

:LOCATE

0,l

2360

IF

O=N

THEN PRINT

LEFT$(SC$(O),Al);

ELSE PRINT LEFT$(SC$(l),Al);

2370

NEXT 0,N

2380

H=O

:FOR

Y=l

TO

Al

:FOR N=l TO HI-7

STEP

S :H=H+l

:WT=12S

2390

P=ASC(MID$(P$(CC),H,l))

:FOR O=N

TO

N+7

2400 IF (P AND WT)=O THEN 2430

2410

DT(0 Y)=l :CS$=" M

:BX=O

:BY=Y

2420

IF

Y:Al

THEN

DT( !I,Y+1)=2

:CS$="

:GOSUB 3680 ELSE GOSUB 3680

2430 WT=.5*WT :NEXT 0 :NEXT N :NEXT B"

2440

(--w-s

Modify

&

plot

character

---------_-----__-----------------

2450

X=1

:Y=l

2460

FOR

Z=lO

TO

12

:LOCATE

Z,4S

:PRINT

m M

:NEXT

Z

2470 ST=2 :LGCATE 11,4S :PRINT "+"

:GOTO 2460

2480

’

2490

IF

DT(X,Y)=2

THEN CS$=CHR$(P)

:GOTO

2610

2500

’

2510

IF

DT(X,Y)=O

THEN

2570

2520

IF ST>1 THEN 2540 ELSE DT(X,Y)=O

:CS$=CHR$(l)

94