Table of Contents
Advertisement
1250
IF HID$(I$,2,l)="p"
THEN QUA=2 ELSE QUA=0
1260 '
1270 I$=INPUT$(2,#1)
1280
IF RIGHT$(I$,l)="T"
THEN SCR=O
:GOTO 1300
1290 I$=INPUT$(l,#l)
:SCR=-1
1300
'
1310 I$=INPUT$(5,#1)
1320
IF LEPT$(I$,l)=E$
THEN IBN=O ELSE IBN=-1
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 A$(CC)=INPUT$(3,Cl)
:A(CC)=ASC(NID$(A$(Cc),a,l))
1390 '
1400 IF NOT SCR THEN 1420
1410 P$(CC)=INPUT$(A(CC)'z,tl)
:GOTO 1430
1420 P$(CC)=INPUT$(A(CC)"3,#1)
1430
IF
NOT EOF(1)
THEN
1330
1440 CLOSE #l
1450 '
1460 I====== START DEFINITION
*~I===**=SE*~EIE~il******~~==~=~*=***~****
1470
I------ Select
Std./IBM
_________________--_---------------------
1480 LOCATE
6,l
:PRINT "SELECT MODE"
1490 SO$= "Standard
mode
(DIP SW. l-6 ON )"
1500 Sl$="IBN
mode
(DIP SW. l-6
OFF)"
1510 S=O
:PX=7 :PY=l :GOSUB 2820 :IBN=S
1520 IF IBM THEN HD$=F$+" :"+STRING$(3,0)
ELSE
HD$=E$+":"+STRING$(3,0)
1530
,____--
Sal,,&
,.hara,..ar
,,,,,da
---------~~~~~~~~~~~~~~~~~~~~~~~~~-
1540 LOCATE
9,l :PRINT "SELECT
STYLE"
1550 SO$="Normal
(24dot)"
:Sl$="Super/subrcript
(lbdot)"
1560 S=O :PX=lO
:PY-1 :GOSUB 2820
:SCR=S
1570 IF SCR THEN 1580
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,l :PRINT "SBLECT QUALITY"
:S=O
1620 LOCATE
13,l :PRINT w
Letter
quality"
1630 LOCATE
14,l
:PRINT II
Draft quality"
1640 LOCATE
15,l :PRINT II
Proportional"
1650 LOCATE
13+S,l
:PRINT "==>"
:S$=INPUT$(l)
:QUA=ASC(S$)
1660 IF QUA=13
THEN QUA=S
:GOTO 16EO ELSE LOCATE
13+S,l
:PRINT '
w
1670
S=((S+l)
NOD 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$=E$+"xO"+HD$
:U=l2
1710 IF SCR THEN
A=7
:GOTO 1860 ELSE A=9
:GOTO 1860
1720 HD$=E$+"pl"+HD$
:W=42
1730 IF SCR THEN A=23
:GOTO 1860 ELSE
A=37
:GOTO
1660
1740
'
1750
I------ Sal*&
charact.r
pitch ----------------------------------
1760 LOCATE
12,l :PRINT "Print pitch
II : s=o
1770 LOCATE
13,l :PRINT '
LQ-10~~1.
w
1780 LOCATE
14,l :PRINT v
LQ-12~~1.
'
1790 LOCATE
15,l :PRINT e,
LQ-17~~1.
'
1800 LOCATE
13+S,l
:PRINT "==)"
:S$=INPUTQ(l)
:PT=ASC(S$)
1810
IF
PT=13
THEN PT=S
:GOTO 1830
ELSE
LOCATE
13+S,l
:PRINT w
II
lS20 S=((S+l)
NOD 3) :GOTO 1800
1830 HD$=E$+"xl"+HD$
:W=36
:A=29
1840 IF PT=l THEN W=30
:A=23
ELSE
IF PT=2 THEN W=24
:A=15
1850
'
1660 CC=33
:CH$="!*
1670
I-----
Sal*&
continu*,start
Ovar
-------------------------------
1880 LOCATE
16,l :PRINT "CONTINUB?"
93
Advertisement
Table of Contents
Troubleshooting
