Star Micronics LC24-10 User Manual page 101

1250 IF HID$(I$,2,l)=*p" THEN QUA=2 ELSE
QUA=0
1260 '
1270 I$=INPUT$(O,#l)
1280 IF RIGHT$(I$,l)="T" THEN SCR=O :GOTO 1300
1290 I$=INPUT$(l,#l) :SCR=-1
1300 '
1310 I$=INPUT$(S,#l)
1320 IF LEFT$(I$,l)=E$ THEN IBH=O ELSR IBE=-
1330 I------ Read data for 1 character -------------------------------
1340 I$=INPUT$(3,#i)
1350 IF I$=E$+"%l" THEN 1440
1360 I$=INPUT$(l,#l) :J$=INPUT$(l,#l)
1370 CC=ASC(I$) :IF CC>126 THEN 1440
1380 AQ(CC)=INPUT$(3,#1) :A(CC)=ASC(HID$(A$(Cc),a,l))
1390 '
1400 IF NOT SCR THEN 1420
1410 P$(CC)=INPUT$(A(CC)*2,#1) :GOTO 1430
1420 P$(CC)=INPUT$(A(CC)*3,#1)
1430 IF NOT EOF(1) THEN 1330
1440 CLOSE #l
1450 '
1460
'=====zc START DEFINITION ========================================
1470 I------ Sele,.. Std.,IBH -----------------------------------------
1480 LOCATE 6,l :PRINT
"SELECT
HODE"
1490 SO$="Standard mode (DIP SW. l-6 ON )"
1500 Sl$="IBH mode
(DIP SW. l-6 OFF)"
1510 S=O :PX=7 :PY=l :GOSUB 2620 :IBH=S
1520 IF IBH THEN HD$=F$+":" +STRING$(3,0) ELSE HD$=E$+":"+STRING$(3,0)
1530 I------ Select character
mode ~~----------------~~~~~~~~~~-~-----
1540 LOCATE 9,l :PRINT "SELECT STYLE"
1550 SO$="Normal (24dot)" :Sl$="Super/subacript (16dot)"
1560 S=O :PX=lO :PY=l :GOSUB 2020 :SCR=S
1570 IF SCR THEN 1560 ELSE 1590
1580 HD$=CHR$(27)+"SO"+HD$ :HI=16 :GOTO 1600
1590 HD$=CHR$(27)+"T"+HD$ :HI=24
1600
I------ Select Quality ------------------------------------------
1610 LOCATE 12.1 :PRINT "SELECT QUALITY" :S=O
1620 LOCATE 13,l :PRINT w
Letter quality"
1630 LOCATE 14,l :PRINT * Draft quality"
1640 LOCATE 15,l :PRINT (1 Proportional"
1650 LOCATE 13+S,l :PRINT "=I>~ :SQ=INPUT$(l) :QUA=ASC(S$)
1660 IF QUA=13 THEN QUA=S :GOTO 1680 ELSE LOCATE 13+S,l :PRINT w
M
1670 S=((S+l) HOD 3) :GOTO 1650
1680 IF QUA=0 THEN HD$=E$+"xl"+HD$ :W=36 :A=23 ELSE 1700
1690 IF NOT SCR THEN 1740 ELSE 1860
1700 IF QUA=2 THEN 1720 ELSE HD$=EQ+"xO"+HD$ :W=12
1710 IF SCR THEN A=7 :GOTO 1860
ELSE
A=9 :GOTO 1860
1720 HD$=E$+"pl"+HDQ :Y=42
1730 IF SCR THEN A=23 :GOTO 1860 ELSE A=37 :GOTO 1860
1740 '
1750 I------ Select Character
pitch
----------------------------------
1760 LOCATE 12.1 :PRINT "Print pitch
II : s=o
1770 LOCATE 13,l :PRINT 11
LQ-1Ocpi. '
1780 LOCATE 14,l :PRINT m LQ-12cpi. ((
1790 LOCATE 15.1 :PRINT M LQ-17~~1. u
1600 LOCATE 13+S,l :PRINT "==>" :S$=INPUT$(l) :PT=ASC(S$)
1610 IF PT=13 THEN PT=S :GOTO 1830 BLSE LOCATE 13+S,l :PRINT M
M
1620 S=((S+l) HOD 3) :GOTO 1800
1830 HD$=E$+"xl"+HD$ :W=36
:A=29
1840 IF PT=l THBN W=30 :A=23 ELSE IF PT=2 THEN If=24 :A=15
1850 '
1860 CC=33 :CH$="!"
1870 I----- select continue/start Over -------------------------------
1680 LOCATE 16,l :PRINT "CONTINUE?"
93