Star Micronics NX-1000 manual over”, Ii Goto

1700

I_____ Key explanatio"s ------------_-------------~------~----------------

1710

LOCATE

10.40

:PRINT

"Fl:

Clear

dot"

1720

LOCATE

11.40

:PRINT

"F2:

Pass

over”

1730

LOCATE

12.40

:PRINT

"F3:

Set

dot"

1740 LOCATE 13.40 :PRINT "F4: Clear all dots"

1750

LOCATE

14.40

:PRINT

"F5:

Skip

character"

1760

LOCATE

15.40

:PRINT

"F6:

End"

1770

LOCATE

16.40

:PRINT

"RET

Record

character"

1780

a----- Get ,--,ara,-ter~__~~~~~-~~~___-~~_~____________________-------------

1790

IF A(CC)<O THEN GOSUB 3220 :GOTO

1950

1800

IF NLQ

THEN

1870

1810

I----- Draft

character

1820

FOR Y-1 TO li :WT-128 :FOR X-l TO 8

1830

IF (P(CC.Y) AND WT)-0 THEN 1850

1840

DT(X,Y)-1 :DT(X,Y+l)-2 :BX-X

:BY-Y

:CSS-"XXI"

:GOSUB

3700

1850

WT-.J'WT

:NEXT

X,Y

:GOTO

1940

1860

I----- NLQ character

1870

FOR Y-l TO 23

:Wl--128 :FOR

X-l

TO

15 STEP

2

1880

IF (P(CC,Y) AND WT)-0 THEN GOT0 1900

1890

DT(X,Y)-1 :DT(X,Y+l)-2 :BX-X

:BY-Y

:CSS-"CX"

:GOSUB 3730

1900

IF (R(CC.Y)

AND wT)-0 THEN GOT0 1920

-

1910

DT(X+l.Y)-1

:DT(X+l.Y+l)-2 :BX-X+1

:BY-Y :CSS-"lit" :GOSUB 3730

1920

WT-.5*WT

:NEXT

X.Y

1930

I----- Modify & plot character -------------------------------------------

1940

X-l :Y-1

-

-

1950

FOR Z-10 TO

12

:LOCATE

2.38

:PRINT

" "

:NEXT Z

1960

ST-2

:LOCATE

11.38

:PRINT uu :IF NLQ THEN 2180

1970

I-----

Draft

character

1980

IF DT(X.Y)-2

THEN

CSS-CHRS(2)+"

o :GOTO

2050

1990

IF DT(X,Y)-0 THEN 2020

2000

IF ST-1 THEN

DT(X.Y)-0 :DT(X.Y+l)-0

:CSI-STRINGS(3,l)t" u :GOTO 2050

2010

CSS-STRINGS(3,2)+"

u :GOTO

2050

2020

IF ST<3

THEN

CSS-STRINGS(2.1)

:GOTO

2050

2030

IF DT(X.Y+l)-1

THEN

CSS-STRINGJ(2.1)

:GOTO

2050

2040

DT(X,Y)-1 :DT(X,Y+l)-2 :CS$-STRINGS(3.2)+" u

2050

GOSUB

3680

2060 SS-ST :BX-X :BY-Y :GOSUB 3110 :IF SS-ST THEN 2140

2070

IF ST>3

THEN

2100

2080

FOR Z-10 TO

12

:LOCATE

2.38

:PRINT

* u

:NEXT Z

2090

LOCATE

9+ST,38

:PRINT

"II :GOTO

1980

2100

IF ST-4 THEN

GOSUB

3220

:GOTO

1950

2110

IF ST-5 THEN

GOSUB

3220

:GOTO

1520

2120 IF ST-6 THEN 2410

2130 IF ST-7 THEN 3260

2140

IF DT(BX,BY)-2

THEN

CSS-"I

"

:GOTO 2170

2150

IF DT(BX,BY)-1

THEN

CSS-"###

"

:GOTO 2170

2160

IF DT(BX.BY)-0

AND

DT(BX.BY+l)-0 THEN CSS-"

" ELSE

CSt-"

"

2170 GOSUB 3700 :GOTO 1980

2180

I----- NLQ character

2190

IF DT(X,Y)-2

THEN

CSt-CHRS(2)

:GOTO

2260

2200 IF DT(X.Y)-0 THEN 2230

2210

IF ST-1 THEN

DT(X.Y)-0 :DT(X.Y+l)-0

:CSS-STRINGS(2.1)

:GOTO

2260

2220

CSS-STRINGS(2.2)

:GOTO 2260

2230

IF ST<3

THEN

CSS-CHRS(1)

:GOTO

2260

2240

IF DT(X.Y+l)-1

THEN

CSS-CHRS(1)

:GOTO 2260

2250

DT(X,Y)-1 :DT(X,Y+l)-2 :CS$-STRINGS(2.2)

2260

GOSUB

3720

2270 SS-ST :BX-X :BY-Y :GOSUB 3110 :IF SS-ST THEN 2360

2280

'

2290 IF ST>3 THEN 2320

2300

FOR Z-10 TO

12

:LOCATE

2.38

:PRINT

o u

:NEXT Z

2310 LOCATE 9+ST,38 :PRINT mn :GOTO 2180

2320 IF ST-4 THEN GOSUB 3220 :GOTO 1950

2330 IF ST-5 THEN GOSUB 3220 :GOTO 1520

2340 IF ST-6 THEN 2410

2350 IF ST-7 THEN 3260

2360

'

2370

IF DT(BX,BY)-2

THEN

CS5-"#"

:GOTO 2400

2380

IF DT(BX.BY)-1

THEN

CSE-"#I"

:GOTO 2400

2390

IF DT(BX,BY+l)-0

THEN

CS5-"

" ELSE

CSS-"

"

96