Filter
Top Products
1000 ~*t*tt*ttttt..********t
DOWNLOAD CHARACTER GENERATOR **~*~~~~t~"*~m**t**tt
1010 WIDTH "LPT1:".255 :KEY OFF :CLS
1020
1030
1040
1050
1060
1070
1000
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
1500
1510
1520
1530
1540
1550
1560
1570
1580
1590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
DIM A(126),
Pi126.23). Q(126.23). DT(16.24) :E$-CHR5(27) :R$-CHR$(28)
KEY 1. CHR5(7)
:KEY 2, CHR$(S) :KEY 3, CHR$(91
KEY 4. CHR$(lO) :KEY 5. CHRS(ll)
:KEY 6. CHR5(12)
FOR I-33 TO 126 :A(II--1 :NEXT I
I_______________________________________------------------------
----------
LOCATE 1.1 :PRINT STRING$(25.62):
PRINT w DOWNLOAD CHARACTER GENERATOR ";STRING$(25,60)
I___________-__----_____________________----------------------------------
LOCATE 3.1 :PRINT "READ CHARACTERS FROM EXISTING FILE?"
SO$-"Yes" :Sl$-"No" :S--1 :PX-4 :PY-1 :GOSUB 3020 :IF S THEN 1320
I_____ Open existing file ----------__-___--------------------------------
LOCATE 4.20
INPUT "File nama":FI$
OPEN "R" #l FIJ 48
FIELD #1:4S'AS AS
I_____ Read 2 initial co*ands __-_---------------------------------------
GET #l,l
IF WIDS(AS,4,1I-ES THEN IBM-0 ELSE IBM--l
IF MIDI (AS.3.1)-"0" THEN NLQ-0 ELSE NLQ--p
IF NLO THEN WI-23 :HI-16 ELSE WI-11 :HI-8
‘------Read data for 1 c-,arac,-er ----_____-----_---_----------------------
FOR CC-33 TO 126 :M-CC-31
GET C1.M :IF LEFTS(A$,ll-CHR$(O) THEN AICCI--1 :GOTO 1310
A(CC)-ASC(MIDS(A5.2.1))
FOR Y-l TO WI
P(CC,Y)-ASC(MIDS(A$,Y+2.1)) :NEX-I Y
IF NLQ-0 THEN 1310
FOR Y-l TO WI
QICC.Y)-ASC,MIDS(Af.Y+25.1)) :NEXT Y
NiiT CC.:CLOSE 1
I__--- Select Std./IBM ---------------------------------------------------
LOCATE 6.1 :PRINT "SELECT MODE"
SOS-"Standard mode (DIP SW. l-6 ON I"
Sit-"IBM mode
(DIP SW. l-6 OFF)"
S-IBM :PX-7 :PY-1 :GOSUB 3020 :IBM-S
IF IBM THEN HD$-R$+":"+STRINGS(3,0) ELSE HDS-ES+":"+~INGS(3.0)
I_____ Select Draft,NLQ _______-----_-------------------------------------
LOCATE 9.1 :PRINT "SELECT QUALITY'
SOS-"Draft quality"
:Sl$-"Near letter quality"
S-NLQ :PX-10 :PY-1 :GOSUB 3020 :NLQ-S
IF NLQ THEN HDS-CHR$(27)+"xl"+HDS :WI-23 :HI-16 :GOTO 1440
HDS-CHRJf271+"xO"+HD$ :WI-11 :HI-S
PLS-STRINGSi24."+") :HYJ-STRING$(24.".-")
CC-33 :CHS-"!"
I-____ Select Continue/Start over ---_____________-_-_--------------------
LOCATE 12.1 :PRINT "CONTINUE?"
SOS-"Continue"
:Sl$-"Start ova-"
S-O :PX-13 :PY-1 :GOSUB 3020 :IF S THEN CLS :GOTO 1070
~emmm~ DRAW BOX ________________________________________------------------
CLS :IF NLQ THEN 1540
LOCATE 1.3 :PRINT "1
2 3 4 5 6 7 8 9 0
1 u :GOTO 1550
LOCATE 1.3 :PRINT "123456789012345678901234"
LOCATE 2.3 :PRINT "++++++++++++++++++++++++"
FOR N-l TO 16
IF NLQ THEN LOCATE N+2.1
:PRINT RIGHTS~STR$~N,.1,::GOTO 1590
IF N MOD 2 -1 THEN LOCATE N+2,1 :PRINT RIGHTE(~$((N+1)/2).1):
LOCATE N+2,2 :PRINT ":";SPC(24):"I" :NEXT N
LOCATE 19.3 :PRINT "++++++++++++++++++++++++"
I_____ Select ,.haracter -________--___------------------------------------
CHS-CHRS(CCI
LOCATE 1.40 :PRINT "SELECT CHARACTER I":CHS:"l";
IS-INPUTS(l) :IF u "<I$ AND I$<CHR$(127) THEN CHS-IS ELSE GOT0 1660
CC-ASCfCHSl
LOCATE 1.40 :PRINT "SELECTED CHARACTER : ";CHE:" "
I_____ Ascender or desce,,der? ___----------------_____________________----
SOS-"Ascender"
:Sl$-"Descender"
S-(A(W)-01 :PX-3 :PY-40 :GOSUB 3020 :DES-5