Star Micronics LC24-10 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 *------ Wrap-up _________-----__________________________---------
3220 CLS :LOCATE 1,l :PRINT "SAVE TO FILE?"
3230 S=O :PX=2 :PY=l :SO$="Yes" :Sl$="No" :GOSUB 2820
3240 IF S THEN 3310
3250 LOCATE 5,lO :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 #1
3300 GOSUB 3410 :CLOSE #I
3310 '
3320 LOCATE 7,l
3330 PRINT "DOWNLOAD TO PRINTER? (DIP SNITCH 2-l MUST BE OFF)"
3340 S=O :PX=S :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$="NONGCRO" :PX=lI :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
t--T--- Output to Diskette -----------------_-_------------------
3420 PRINT#l,HD$;
3430
FOR CC=33
TO 126
3440 IF A(C THEN 3460
3450 PRINTtl,E$;"&";C~$(O);STRING$(2,CC);A$(CC);P$(CC);
3460 NEXT CC
3470 PRINT#l E$'"$l";:RETURN
, ,
3480 I___--- output to printer ----~~~~~~~___-------~~~------------~~~
3490
IF
OUA>O OR SCR THEN 3510
3500 IF PT=l THEN LPRINT E$;"""; ELSE IF PT=2 THEN LPRINT CHRQ(15);
3510 LPRINT HDS:
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(HID$(A$(CC),Y,l)) :GOSUB 3590
:NEXT Y
3560 FOR Y=l 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(CHJBD)
:IF
PP<12S THEN 3610
3620 OUT &H3BC,Z :OUT &H3BE,5 :OUT &H3BE,4 :GOTO 3650
3630 PP=INP(CH379) :IF PP<lPS THEN 3630
3640 OUT 6H370,Z :OUT &H37A,5 :OUT bH37A.4
3650 RETURN
3660 1-----v plot character ------------------------------------------
3670 LOCATE X,Y :PRINT CS$;:RETURN
3680 LOCATE BX,BY :PRINT CS$;:RETURN
96