Filter
Top Products
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
1460
1470
1480
1490
1500
1510
1520
1530
1540
1550
1560
1570
1580
1590
1600
1610
1620
1630
1640
1650
1660
1670
16.30
1630
1700
1710
1720
1730
1740
1750
1760
1770
1780
1790
1800
1810
1820
1830
1840
1850
1860
~ 1870
1880
IF HID$(I$,2,1)="p" THEN QUA=2 ELSE QUA=0
I$=INPUT$(P,#l)
IF RIGHT$(I$,l)="T" THEN SCR=O :GOTO 1300
I$=INPUT$(l,#l) :SCR=-1
;$=INPUT$(S,#l)
IF LEFT$(I$,l)=E$ THEN IBM=0 ELSE IBM=-1
1----__ Read data for 1 (.haracter -------------------------------
I$=INPUT$(3,#i)
IF I$=E$+"$l" THEN 1440
I$=INPUT$(l,#l)
:J$=INPUTQ(l,#l)
CC=ASC(I$) :IF CC>126 THEN 1440
AQ(CC)=INPUT$(3,#1) :A(CC)=ASC(MID$(A$(CC),2,1))
IF NOT SCR THEN 1420
P$(CC)=INPUT$(A(CC)'2,#1) :GOTO 1430
P$(CC)=INPUT$(A(CC)'3,#1)
IF NOT EOF(1) THEN 1330
CLOSE #l
I====== START DEFINITION ================I=======================
#______ Select Std./IBM ________-__------------------------------
LOCATE 6.1 :PRINT "SELECT MODE"
SO$="Standard mode (DIP SW. l-6 ON )"
Sl$="IBM mode
(DIP SW. l-6 OFF)"
S=O :PX=7 :PY=l :GOSUB 2820 :IBM=S
IF IBM THEN HD$=F$+":"
+STRING$(3,0) ELSE HD$=E$+":"+STRING$(3,0)
1-_____ Select =haracter mode -------------------_---------------
LOCATE 9,l :PRINT "SELECT STYLE"
SO$="Normal
(24dot)"
:Sl$="Super/subscript (lbdot)"
S=O :PX=lO :PY=l :GOSUB 2820 :SCR=S
IF SCR THEN 1580 ELSE 1590
HD$=CHR$(27)+"SO"+HD$ :HI=16 :GOTO 1600
HD$=CHR$(27)+"T"+HD$ :HI=24
1______ Select Quality _______---_-------------------------------
LOCATE 12,l :PRINT "SELECT QUALITY" :S=O
LOCATE 13,l :PRINT "
Letter quality"
LOCATE 14,l :PRINT *
Draft quality"
LOCATE 15,l :PRINT v
Proportional"
LOCATE 13+S,l :PRINT "==>" :S$=INPUT$(l) :QUA=ASC(S$)
IF QUA=13 THEN QUA=S :GOTO 1680 ELSE LOCATE 13+S,l :PRINT w I'
S=((S+l) MOD 3) :GOTO 1650
IF QUA=0 THEN HD$=E$+"xl"+HD$ :W=36 :A=23 ELSE 1700
IF NOT SCR THEN 1740 ELSE 1860
IF QUA=2 THEN 1720 ELSE HD$=E$+"xO"+HD$ :W=12
IF SCR THEN A=7 :GOTO 1860 ELSE A=9 :GOTO 1860
HD$=E$+"pl"+HDQ :W=42
IF SCR THEN A-23 :GOTO 1860 ELSE A=37 :GOTO 1660
1_----- select character pitcb ----------------------------------
LOCATE 12,l :PRINT "Print pitch
I<
: s=o
LOCATE 13,,1 :PRINT * LQ-1Ocpi. 'I
LOCATE 14,l :PRINT " LQ-12~~1. 11
LOCATE 15,l :PRINT 11
LQ-llcpi. II
LOCATE 13+S,l :PRINT "==>" :S$=INPUT$(l) :PT=ASC(S$)
IF PT=13 THEN PT=S :GOTO 1830 ELSE LOCATE 13+S,l :PRINT ' '
S=((S+l) MOD 3) :GOTO 1800
HD$=E$+"xl"+HD$ :W=36 :A=29
IF PT=l THEN W=30 :A=23 ELSE IF PT=2 THEN W=24 :A=15
CC=33 :CH$="!"
B----- Select cont~nue,Start over -------------------------------
LOCATE 16,l :PRINT "CONTINUE?"