Filter
Top Products
.
c
c
L
c
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1150
1160
1170
1100
1190
1200
1210
1220
1230
1240
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
lSO0
1510
‘*..*.**.**t.*.**.**.** Dor#pgLo*D CHARACTER GENERATOR *t**tt**t..*.**.*t**t
WIDTH "LPT1:".255 :KEY OFF :CLS
DIM A(1261, P(126.23).
Q(126,23). DT(16.24) :EB-CHRS(271 :R$-CHRS(28)
KEY 1. CHR$(7)
:KEY 2. CHR$(.Sj
:KEY 3, CHR$(P)
KEY 4, CHRS(10)
:KEY 5, CHRS(l1) :KEY 6. CHRb(l2)
FOR I-33 TO 126 :A(I)--1 :NEXT i
'__-__-_-----___--_~-~~--~~~~-~~~~~~~~~~~~-~~-~~-~~~-~~--~--~--~~-~~~~~~~~
LOCATE 1.1 :PRINT STRING$(25,62);
PRINT u DOWNLOAD CHARACTER GENERATOR ":STRINGSL25,60)
LOCATE 3.1 :PRINT "READ CHARACTERS FROM EXISTING FILE?"
SOS-"Yes" :Sl$-"No"
:S--1 :PX-4 :PY-1 :GOSUB 3020 :IF S THEN 1320
o---__ Open existing file -----_--__------_--_----------------------------
LOCATE 4.20
INPUT "File name";FI$
OPEN "R" #l FIS 48
* , I
FIELD #1,4B AS AS
'----- Read 2 initial ~~ma”ds ----_-------------_-____________________---
GET #l,l
IF MIDJ(A$,4,1)-ES THEN Im-0 ELSE IBM--l
IF MIDS(AS,3,1)-"0" THEN NLQ-0 ELSE NLQ--1~
IF NLQ THEN WI-23 :HI-16 ELSE WI-11 :HI-B
*-T-M- Read da,.. f,,r 1 ,--,arac.er -___--------__-_________________________-
FOR CC-33 TO 126 :&f-CC-31
GET X1.M :IF LEFTS(AS.l)-CHRS(O) THEN A(CC)--1 :GOTO 1310
A(CC)-ASC(MIDS(AS.2.1))
FOR Y-l TO WI
P(CC,Y)-ASCU4IDt(A.$.Y+2.1)) :NEXT Y
IF NLQ-0 THEN 1310
FOR Y-l TO WI
Q(CC.Y)-ASCU'IID$(At.Y+25.1)) :NEXT Y
NEXT CC :CLOSE 1
*---_- Selact Std./IBM -_-----------_--_--_-------------------------------
LOCATE 6.1 :PRINT &SELECT MODE"
SOS-"Standard mode (DIP SW. l-6 ON I"
SlS-"IBM mode (DIP SW. l-6 OFF)"
S-IBM :PX-7 :PY-1 :GOSUB 3020 :IBM-S
IF IBM THEN HDS-R$+":"+STRINGS(3.0) ELSE HDI-ES+":"+STRINGJ(3,0)
s----- Select Draft/ma --------_--__-------------------------------------
LOCATE 9.1 :PRINT "SELECT QUALITY"
SOS-"Draft quality" :SlS-"Near letter quality"
S-NLQ :PX-10 :PY-1 :GOSUB 3020 :NLQ-S
IF NLQ THEN HDS-CHRS(27)+"xl"+HDS :WI-23 :HI-16 :GOTO 1440
HDS-CHRS(271+"xO"+HDS :WI-11 :HI-8
PLS-STRINGSi24."+") :HYS-STRING5(24."-")
CC-33 :CHS-"!"
*----_ Select Continue/Start over ___-----__--__-_________________________
LOCATE 12.1 :PRINT "CONTINUE?"
SOS-"Continue" :SlS-"Start over"
S-O :PX-13 :PY-1 :GOSUB 3020 :IF S THEN CLS :GOTO 1070
1520 CLS :IF NLQ THEN 1540
1530 LOCATE 1,3~:PRINT "1 2 3 4 5 6 7 B 9 0 1 -
:GOTO 1550
1540 LOCATE 1.3 :PRINT "12345678901234567B901234"
1550 LOCATE 2.3 :PRINT "++++++++++++++++++++++++"
1560 FOR N-1 TO 16
1570 IF NLQ THEN LOCATE N+2.1 :PRINT RIGHT$tSTRS~N,.l,;:GOTO 1590
lSB0 IF N MOD 2 -1 THEN LOCATE Nc2.1 :PRINT RIGIFTS~~S~~N+11/2~,1~;
1590 LOCATB N+2,2 :PRINT ":":SPC(24):"I" :NEXT N
1600 LOCATE 19.3 :PRINT "++++++++++++++++++++++++"
1610
a_---_ Select ,-haracter -__-__--____-_------------------------------------
1620 CHS-CHRS(CC1
1630 LOCATE 1.40 :PRINT "SELECT CHARACTBR I";CHS;"l";
1640 IS-INPmS(l) :IF
u "<I$ AND IS<CHRt(l27) THEN CHS-IS ELSE GOT0 1660
1650 CC-ASC(CHS)
1660 LOCAW 1.40 :PRINT "SELECTED CHARACTER : ";CHS:" "
1670
a----- Ascender or desc,,nder? ---_--_-------_--_--------------------------
1680 SOS-"Ascender" :S15-"Descender"
1690 S-(A(CC)-0) :PX-3 :PY-40 :GOSUB 3020 :DES-S