Filter
Top Products
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