Star Micronics NX-2400 User Manual page 104

3170 IF FL=0 THEN A(CC)=-1
3180 BEEP
3190 CC=CC+l
:IF CC=127 THEN CC=33
3200 GOT0 1920
3210 T------ Wraphup --_-------____----______________________---------
3220 CLS :LOCATE 1,l :PRINT "SAVE TO FILE?"
3230 S=O :PX=2 :PY=l :SD$="Yes" :Sl$="No" :GOSUB 2820
3240 IF S THEN 3310
3250 LOCATE 5.10 :PRINT "Output file name
[";FI$;"] ";
3260 INPUT FO$
3270 IF FO$="" AND
FI$=""
THEN 3250
3280
IF FO$=""
THEN FO$=FI$
3290 OPEN
FO$
FOR OUTPUT AS #I
3300 GOSUB 3410 :CLOSE #l
3310
'
3320 LOCATE 7,l
3330 PRINT "DOWNLOAD TO PRINTER?
(DIP SWITCH 2-l MUST BE
OFF)"
3340 S=O :PX=B :PY=l :SO$="Yes" :Sl$="No" :GOSUB 2820
3350 IF S THEN END
3360 LOCATE 11,l :PRINT "Select I/F board "
3370 S=PB :SO$="COLOR"
:Sl$="EONOCRO" :PX=12 :PY=l :GOSUB 2820 :PB=S
3380 GOSUB 3480 :LPRINT E$;"3";CHR$(50);
3390 FOR CC=33 TO 126 :LPRINT CHR$(CC);" ";:NEXT CC
3400 LPRINT STRING$(lO,lO) :END
3410 U-----s Output to Diskette _-_~~_~__------~___-__________________
3420 PRINT#l,HD$;
3430
FOR CC=33
TO 126
3440 IF
A(CC)<O
THEN 3460
3450 PRINT#l,E$;"&";CHR$(O);STRING$(2,CC);AS(CC);P$(CC);
3460 NEXT CC
3470 PRINT#l E$'"$l"::RETURN
I I
3480
I------ Output to Print-r -_-_--------___------------------------
3490 IF QUA>0 OR SCR THEN 3510
3500 IF PT=l THEN LPRINT E$;"M";
3510 LPRINT HD$;
ELSE IF PT=2 THEN LPRINT CHR$(lJ);
3520 FOR CC=33 TO 126
3530
IF A(CC)<O
THEN 3570
3540 LPRINT E$:"&";CHR$(O);STRING$(2,CC):
3550 FOR Y=l TO 3 :Z=ASC(BID$(A$(CC),Y,l)) :GOSUB 3590
:NEXT Y
3560 FOR Y-1 TO LEN(P$(CC)) :Z=ASC(HID$(P$(CC),Y,l)) :GOSUB 3590 :NEXT Y
3570 NEXT CC
3580 LPRINT E$;"%l"::RETURN
3590
'
3600 IF NOT PB THEN 3630
3610 PP-INP(CH3BD) :IF PP<128 THEN 3610
3620 OUT kH3BC.Z :OUT bH3BE,5 :OUT &H3BE,4 :GOTO 3650
3630 PP=INP(&H379) :IF PP<128 THEN 3630
3640 OUT &H378,Z :OUT &H37A,5 :OUT bH37A,4
3650 RETURN
3660 t-----s plot character ~~~~---~~~~~~------~~~~-------~---~------~
3670 LOCATE X,Y :PRINT CS$;:RETURN
3680 LOCATE BX,BY :PRINT CS$;:RETURN
96