Star Micronics NX-I 00011 manual Close

I,..,,- [“

}!

1;

2400 GOSUB 3730

:GOTO 2180

2410 ‘-----

Wrap-up ----------------------------------------------------------

2420 CLS :LOCATE 1,1 :PRINT “SAVE TO FILE?”

2430

S-–1

:PX-2 :PY-1 :SOS-”Yes” :51$--

No” ;GOSUB 3020

2440 IF S THEN 2530

2450 LOCATE 5,10

:PRINT “Output file name [“;FIS;”l “;

2460 INPOT FO$

2470

I

FOS-”U AND FI$-”” THEN 2450

2480 IF FO$-”” THEN FOS-FI$

2490 OPEN “R’’,*1,FO$.48

2500 FIELD #1,48 AS AS

2510

LSET A$-HD$+STRING$(48-LEN(HD$).0) :PUT *1,1

2520

GOSUB 3420

:CLOSE 1

2530

2540 LOCATE 7.1 :PRINT “DOWNLOAD TO PRINTER? (DIP SWITCH 2-1 NUST BE OFF)”

2550 s-O

:PX-8 :PY-l :SOS-’’Yes”:S1$-’’NO”:GOSOB 3020

2560

IF S THEN END

2570

LOCATE 11.1 ,PRINT “PRINT CHARACTER S=?”

2580 S-O

:PX-12 :PY-1 :SO$-’’Yes”:S1$-’’NO”:GOSUB 3020

2590

IF S THEN SND

2600

LOCATE 15,1

:PRINT “WHICH MONITOR ARE YOU USING?U

2610

S-O

:S1$-’’COLOR”:SO$-’’MONOCRO”:PX-16 :PY-1 :GOSUB 3020 :PB-S

2620

GOSUB 3500

:LPRINT E$;’’3’’;CHR$(5O);

2630 FOR CC-33 TO 126 :LPRINT CHR$(CC);” “;:NEXT CC

2640

LPRINT STRING$(1O.1O) :PRINT STRING$(5.1O)

:END

3000

-----

SUBRO~INES

3010

‘

3020

‘-----

Selector rOutine--------------------------------------------------

3030

LOCATS PX,PY :PRINT “

“;s0$

3040 LOCATS PX+l,PY :PRINT “

“;s1$

3050 IF NOT S THEN 3060 ELSE 3070

“ :LOCATE PX,PY

3060

LOCATE PX,PY :PRIAT “--

>” :LOCATE PX+l.PY

:PRINT “

3070 IF

S THEN 3080 ELSE 3090

3080 LOCATE PX,PY :PRINT “

“ :LOCATE PX+l,PY

:PRINT “--

>” :LOCATE PX,PY

3090

1$-INP~$(l)

:IF 1.9<>CHR$(13)TNSN S-NOT S

:GOTO 3050

3100

RElwRN

E

3110

‘-----

Input check -------------------------------------------------------

3120

1$-INPUTS(l) :SK-ASC(I$) :FK-VAL(IS)

3130 IF SK>6 AND SK<14 THEN ST-SK-6 :GOTO 3210

3140 IF FK-O OR FK-5 THEN 3120

3150 IF PK ~D

3 - 0 THEN Y-Y+l

3160

IF PK BE3D3 - 1 THEN Y-Y-l

3170

IF FK >6 ~

X-X-1

31eo

IF FK <4 THEW X-X+1

—3190 IF YXfI THEN Y-WI ELSE IF Y<l THSN Y-1

.

3200

IF X>HI THBN X-HI ELSE IF X<l THEN X-1

3210

3220 ‘-----

Clear all dots ---------------------------------------------------

3230 FOR N-1 TO

16 :LOCATE N+2,3 :PRINT SPC(24)

:NEXT N

3240 FOR X-1 TO HI :FOR Y-1 TO WI :DT(X,Y)-O :NEXT Y.X

3250 SI’-2 :x-1 :Y-1 :RETuRN

3260 ‘-----

Store character data ----------------------------------------------

3270 FL-O

“

3280 IF DSS THSN A(CC)-O ELSE A(CC)-128

3290 IF NLQ THEN ZA-15 :ZB-2 ELSE ZA-8

:ZB-1

3300 FOR Y-1 TO WI :WT-128 :P(CC>Y)-O :Q(CC,Y)-O

3310 FOR X-1 TO ZA STEP ZB

3320

IF NLClTHEN Q(CC,Y)-Q(CC,Y)+WT*(DT(X+lY) AND 1)

3330

P(cc,Y)-P(CC,Y)+WT* (DT(X,Y) AND 1)

1

WT-.5*WT

3340

3350

NEXT x

3360

FL-FL+P(CC,Y)+Q(CC,Y)

3370 NEXT Y

3380 IF FL-O THEN A(CC)--1

3390 BESP

3400 CC-CC+l

:IF CC-127 THEN CC-33

3410 GOSUB 3220

:GOTU 1510

3420 ‘---–- Output to Diskette ------------------------------------------------

3430 FOR CC-33 TO 126 :li-CC-31

—3440 IF A(CC)--1 THEN BS-STRING$(48.0)

:GOTO 3480 ELSE

B$-CHRS(l)+CHR$[A(CC))

97