Star Micronics NX-1000 manual If S then END Locate 11.1 Print Print Character SET?

2400 GOSUB 3730 :GOTO 2180

2410 I----- Wrap-"P ---~__~.___--___--_____________________-~-~~~-~----~--~~~~~

2420 CLS :LOCATB 1.1 :PRINT "SAVE TO FILE?"

2430 S--l :PX-2 :PY-1 :SOI-"Yes" :Sl$-"No" :GOSUB 3020 2440 1 IF S THEN 2530

2450 LOCATE 5.10 :PRINT "Output file name [";FI$;"] "; 2460 INPUT F00

2470 IF Fob-"" AND FI$-"" THEN 2450 2480 IF FOO-"" THEN FOO-FI$

2490 OPEN "R" Xl FOS 48

2500 FIELD #1:48’AS i5

2510 LSET A$-HD$+STRING5(4B-LEN(HDB).Ol :PUT #l.L 2520 GOSUB 3420 :CLOSE 1

2530

2540 LOCATE 7.1 :PRINT "DQWNLOAD TO PRINTER? (DIP SWITCH 2-l MUST BE OFF)" 2550 S-O :PX-8 :PY-1 :SO$-"Yes" :SlS-"No" :GOSUB 3020

2560 IF S THEN END

2570 LOCATE 11.1 :PRINT "PRINT CHARACTER SET?"

2580 S-O :PX-12 :PY-1 :SOS-"Yes" :SlS-"No" :GOSUB 3020 2590 IF S THEN END

2600 LOCATE 15.1 :PRINT "WHICH MONITOR ARE YOU USING?"

2610 S-O :Sl$-"COLOR" :SO$-"MONOCRO" :PX-16 :PY-1 :GOSUB 3020 :PB-S 2620 GOSUB 3500 :LPRINT ES;"3";CHRS(50);

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

2640 LPRINT STRING$(lO.lO) :PRINT STRINGS(5.10) :END

3000

3010 ~--- SIJBRO~~INES-~~~------~--~~~-~~~~~~~~-~~~~~~-~~~~~~~~~~~~~~~~~~~~~~

3020 I----- Sa)ector routina---------------------------------------------------

3030 LOCATE PX.PY :PRINT u ";SOI

3040 LOCATE PX+l,PY :PRINT o ";Sl$

3050 IF NOT S THEN 3060 ELSE 3070

3060 LOCATE PX,PY :PRINT "-->" :LOCATE PX+l.PY :PRINT u u :LDCATE PX,PY

3070 IF S THEN 3080 ELSE 3090

3080 LOCATE PX.PY :PRINT " II:LOCATE PX+l.PY :PRINT "-->" :LOCATE PX,PY 3090 I$-INPUTJ(1) :IF IE<>CHRS(13) THEN S-NOT S :GOTO 3050

3100 REIWRN

3110 I-----Inputcheck ___-____--__---__-________F_____________---------------

3120 IS-INPUTS(l) :SK-ASC(I5) :FK-VAL(IS1

3130 IF SK>6 AND SK<14 THEN ST-SK-6 :GOTO 3210 3140 IF FK-0 OR FK-5 THEN 3120

3150 IF FK MOD 3 - 0 THEN Y-Y+1 3160 IF FK MOD 3 - 1 THEN Y-Y-l 3170 IF FK >6 THEN X-X-l

3180 IF FK <4 THEN X-X+1

3190 IF ;'>WITHBN Y-WI ELSE IF Y<l THEN Y-l

3200 IF X>HI THEN X-HI ELSE IF X<l THEN X-l

3210 RETURN

3220 ~_____ clear al) dots __-________--__-___-____________________------------

3230

3240

3250

3260

FOR N-l TO 16 :LOCATB N+2,3 :PRINT SPC(24) :NEXT N FOR X-l TO HI :FOR Y-l TO WI :DT(X,Y)-0 :NEXT Y,X

ST-2 :X-l :Y-1 :Rl?TURN

~_____ store =haracter da+.*__-______-------_-----------------------------

c	3270	FL-O
	3280	IF DES THEN A(CC)-0 ELSE A(CC)-128
	3290 IF NLQ THEN ZA-15 :ZB-2 ELSE ZA-0		:ZB-1
	3300	FOR Y-l TO WI :WT-128 :P(CC.Y)-0 :Q(CC,Y)-0
L	3310	FOR X-l TO ZA STEP ZB
	3320	IF NLQ THEN Q(CC,Y)-Q(CC,Y)+WT*(DT(X+l.Y) AND 11
	3330	P(CC.Y)-P(CC,Y)+WT*(DT(X.Y) AND 11
c	3340	wr-.5*wr
	3350	NEXT X
	3360	FL-FL+P(CC.Y)+Q(CL,Y)
c	3370	NEXT Y
	3380	IF FL-O THEN A(CC)--1
	3390 BEEP
	3400	CC-CC+1 :IF CC-127 THEN CC-33
	3410	GOSUB 3220 :GOTO 1510
	3420	c----- Output to Diskette -___-________--__---____________________--------
	3430	FOR CC-33 TO 126 :M-CC-31
	3440	IF A(CC)--1 THEN BS-STRINGO(48.0)	:GOTO 3480 ELSE BS-CHRS(l)+CHRS(A(CC))