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

Page 102
Image 102
Star Micronics LC24-10 user manual 2440

LC24-10 specifications

The Star Micronics LC24-10 is a robust and high-performance dot matrix printer that caters primarily to the needs of businesses requiring reliable and efficient printing solutions. Known for its durability and versatility, the LC24-10 is ideal for environments such as retail, manufacturing, and warehousing, where multi-part forms and continuous printing are crucial.

One of the standout features of the LC24-10 is its ability to handle various paper types and formats. It can print on single-sheet paper, multi-part forms, and labels, making it a versatile choice for myriad applications. The printer supports both standard and custom paper sizes, ensuring it meets the diverse needs of end-users.

In terms of technology, the LC24-10 utilizes a 24-pin print head which offers high-speed and high-quality printing. This print head technology enables the printer to produce sharp and clear characters, even when printing on thick or multi-part media. The printer can reach print speeds of up to 550 characters per second, significantly improving productivity in fast-paced environments.

The LC24-10 is designed with user-friendliness in mind. It features a simple control panel that allows for easy configuration and status monitoring. Additionally, the printer supports a variety of connectivity options, including parallel, serial, and USB interfaces, making it compatible with a wide range of systems and devices. This flexibility allows businesses to integrate the printer seamlessly into their existing operations.

Durability is another key characteristic of the LC24-10. Its rugged design ensures that it can withstand the rigors of busy working environments, with a mean time between failure (MTBF) rated at over 10,000 hours. This reliability translates to less downtime and lower overall maintenance costs for businesses.

Furthermore, the LC24-10 is equipped with advanced features such as a slip-feed mechanism that allows for easy loading of various media types without jamming. It also boasts multiple character sets and emulations, enabling it to cater to different printing needs without compromising on quality.

In summary, the Star Micronics LC24-10 stands out in the world of dot matrix printers due to its robust design, versatility in handling various media, high-speed performance, and user-friendly features. These characteristics make it an excellent choice for businesses that require heavy-duty printing capabilities.