Star Micronics NX-2400 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 character position -_-_-_________-___--------------

1940

Q-----

1950

CH$=CHR$(CC)

1960

LOCATE

1,50

:PRINT

"CHARACTER

[“;CH$;“l”;

1970

I$=INPUT$(l)

1980

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

THEN

CH$=I$ ELSE GOT0 2000

1990

CC=ASC(CH$)

2000

LOCATE

1,50

:PRINT

"CHARACTER

: ":CH$;"

"

2010

IF

A(CC)<O

THEN

AO=O

:Al=A :42=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

=

";A0

2050

LOCATE 5,50 :PRINT "Right Space = ";A2

2060

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

2070

LOCATE 6,50 :PRINT 'I*** Yes or No R*lll

2060

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);".

1(

2160

LOCATE 4,50 :INPUT "Left Space

=

";A0

2170

IF

AO+Al>W

THEN

BEEP

:LOCATE

4,50

:PRINT

SPC(20) :GOTO

2160

2160

LOCATE

4,63

:PRINT

STR$(AO);".

(1

2190

IF

QUA*2

THEN

2210

2200

AO=W-AO-Al :LOCATE

5,50

:PRINT

"Right

Space

=";:GOTO

2230

2210

LOCATE 5.50 :INPUT "Right Space = ";A2

2220

IF

AO+Al+A2>W

THEN

LOCATE

3.50

:PRINT

SPC(20)

:GOTO

2210

2230

LOCATE

5,63

:PRINT

STR$(AP):".

II :GOTO

2060

2240

I-----

xey

explanations

----------------_-----~~~-~~~~~~~~~~~~~~~

2250

LOCATE

lo,50

:PRINT

"Fl:

Clear

dot"

2260

LOCATE 11,50 :PRINT "F2: Pass over"

2270

LOCATE 12.50 :PRINT "F3: Set dot"

2260

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

I_____

Get

character

___--_--_-_---_---__------------------------

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

2340

’

2350

FOR

N=l

TO HI-7 STEP S :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-1 TO

HI-7 STEP S :H*H+l :WT=128

2390

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

:FOR

O*N

TO N+7

2400

IF (P AND WT)=O THEN 2430

2410

DT(O,Y)=l

:CS$="

M

:BX*O

:BY=Y

2420

IF

Y<Al

THEN

DT( 8 ,Y+l)*2

:CS$*"

:GOSUB 3680 ELSE GOSUB 3680

2430

WT=.5*WT

:NEXT

0

:NEXT

N

:NEXT

b"

2440

I-----

nodify

&

Plot

character

-----__--------_--_----~~~~~~~~~~~

2450

X=1

:Y*l

2460

FOR

Z=lO

TO

12

:LOCATE

Z,48

:PRINT

M 'I :NEXT

Z

2470

ST=2 :LOCATE 11,48 :PRINT "+" :GOTO 2400

2460

’

2490

IF

DT(X,Y)=2

THEN CS$=CHR$(2)

: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