Star Micronics NX-2410 user manual Cls

I

1890

1900

1910

1920

1930

1940

1950

1960

1970

1980

1990

2000

2010

2020

2030

2040

2050

2060

2070

2080

2090

2100

2110

2120

2130

2140

2150

2160

2170

2180

2190

2200

2210

2220

2230

2240

2250

2260

2270

2280

2290

2300

2310

2320

2330

2340

2350

2360

2370

2360

2390

2400

2410

2420

2430

2440

2450

2460

2470

24.90

2490

2500

2510

2520

SO$="Continue" :Sl$="Start over"

S=O :PX=l7 :PY=l :GOSUB 2820 :IF S THEN CLS :GOTO 1120

CLS

I----- Select character position --------------------------------

CH$=CHR$(CC)

LOCATE 1,SO :PRINT "CHARACTER [";CH$;"]"; I$=INPUT$(l)

IF " "<I$ AND I$<CHR$(127) THEN CH$=I$ ELSE GOT0 2000 CC=ASC(CHS)

LOCATE‘1,56 :PRINT "CHARACTER : ";CH$;" I'

IF A(CC)<O THEN AO=O :Al=A :A2=W-A :GOTO 2030

AO=ASC(LEFT$(A$(CC),l)) :Al=A(CC) :A2=ASC(RIGHT$(A$(CC),l)) LOCATE 3.50 :PRINT "Body-Width = ";A1

LOCATE 4,50 :PRINT "Left Space = ":A0

LOCATE 5,50 :PRINT "Right Space = ":A2 LOCATE 7,50 :PRINT "( Are you sure ? )" LOCATE 8,50 :PRINT "*** Yes or No ***'*

A$=INPUT$(l)

LOCATE 7,50 :PRINT SPC(25) :LOCATE 8,50 :PRINT SPC(25) IF A$="N" OR A$="n" THEN 2110 ELSE GOT0 2240

I----- Select Character width/Left space ------------------------

FOR I=3 TO 5 :LOCATE I,50 :PRINT SPC(25) :NEXT I LOCATE 3,50 :INPUT "Body-Width = ";A1

IF Al=0 OR Al>W THEN BEEP :LOCATE 3.50 :PRINT SPC(20) :GOTO 2130 LOCATE 3.63 :PRINT STR$(Al);". '

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

IF AO+Al>W THEN BEEP :LOCATE 4,50 :PRINT SPC(20) :GOTO 2160 LOCATE 4,63 :PRINT STR$(AO);". '

IF QUA=2 THEN 2210

A2=W-AO-Al :LOCATE 5.50 :PRINT "Right Space =";:GOTO 2230 LOCATE 5,50 :INPUT "Right Space = ";A2

IF AO+Al+A2>W THEN LOCATE 3,50 :PRINT SPC(20) :GOTO 2210

LOCATE 5.63 :PRINT STR$(AP);". " :GOTO 2060

n----- Key explanations -----___------------__I_________________-

LOCATE lo,50 :PRINT “Fl: Clear dot"

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

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

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

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

LOCATE 15,50 :PRINT "F6: End"

LOCATE 16,50 :PRINT "RET Record character"

t----- Get character ~_~---------~~~~~~~~~~~~~~~~~~~~-~~-~~-~----

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

FOR N=l TO HI-7 STEP S :FOR O=N TO N+7 :LOCATE 0,l

IF O=N THEN PRINT LEFT$(SC$(O),Al); ELSE PRINT LEFT$(SC$(l),Al); NEXT 0,N

H=O :FOR Y=l TO Al :FOR N=l TO HI-7 STEP 6 :H=H+l :WT=l20

P=ASC(MID$(P$(CC),H,l)) :FOR O-N TO N+7 IF (P AND WT)=O THEN 2430

~~'~;xl=~kp~;';II~y~~~~~		;:;;mb"	:GOSUB 3680 ELSE GOSUB 3680
WT=.J'WT :NEXT 0 :NEXT N :NEXT
			_-----	___________________
P----	m Modify & plot character

x=1 :r=1

FOR Z=lO TO 12 :LOCATE Z,48 :PRINT M II :NEXT Z ST=2 :LOCATE 11,48 :PRINT "+" :GOTO 2480

;F DT(X,Y)=P THEN CS$=CHR$(P) :GOTO 2610

IF DT(X,Y)=O THEN 2570

IF ST>1 THEN 2540 ELSE DT(X,Y)=O :CS$=CHR$(l)

94