Table of Contents
Advertisement
Applications
LARGE CHARACTER SET UTILITY
Since using the Large Character Set requires using up to
nine character codes for each large character, it is desira-
ble to use a utility program. A sample utility program is
given in figure
A-B.
The program is in written BASIC/
3000 but can be adopted for use in other languages. The
utility accepts an entire line or string of characters and
generates the necessary codes to generate the entire line
in Large Characters.
LARGE CHAR. SET
L3
L3$[74J""
I
OG&L"
L3$[75J="1 1/6AE E"
L3$[76J="1
0
FI,"
L3$[77J .... $(-070E E"
L3$[78J="$)l08BE E"
L3$[79J"'34"&.0 OFIM"
L3$[80J"'34"&+/ILE
L3$[81J .. "!&+0 OGIH"
L3$[82J"'34"&+/&8E E"
L3$[83J="!I+GI+G&L"
L3$[84J .. "%', 0
E"
L3$[85J-"1
10
OG&L"
L3$[86J=",
10
02JD"
L3$[87J-"1 1090HKO"
L3$[88J .... ' 11 :AE E"
L3$[89J-'"
12;D
E "
L3$[90J-'34"&.3<DFIM"
L3$[91J-'34"& 0
FI"
L3$[93J-" &.
0 &M"
L3$[95J·"
&11"
DOEHD
FOR L1-1 TO LEH(L1$)
L2·HUM(UPSHLU[L1 ,L1 J»
IF L3HL2J-"" THEH PRIHT CTL(208);'27"&a+3C"j
ELSE DO
PRIHT CTL(208);'14+L3$[L2,1 ,3J+'27"&a-3c+1R"+'14+L3$[L2,4,6J+&
'27"&a-3c+1R"+'14+L3$[L2,7,9J+'27"&a-2R";
DOEHD
HEXT L1
PRIHT CTL(208);'27"&a+3R"'13'10;
RETURH
9710
9720
9730
9740
9450
9460
9470
9480
9490
9S00
9510
9520
9530
9540
9550
9560
9570
9580
9590
9600
9610
9620
9630
9640
9650
9660
9670
9680
9690
9700
E ..
L ..
G& ..
OIL"
(
K"
C
REM SUBROUTIHE TO PRIHT STRIHG IH L1S IH
REM USES VARIABLES L1S THRU L4S, L1 THRU
DIM L1H26J ,L2H11 J ,L3S[128,9J ,L4H1 J
IF UHD(L1)-1 THEH DO
PRIHT CTL(208);'27")C";
L3H33J
0
E
E"
L3$[34J
I I
L3$[35J="CICO OCIC"
L3$[36J""!C+GC+GCL"
L3$[37J .. "A 13<DE A"
L3H38J"".
I
4"
L3$[39J"" E
L3$[40J
!&
L3$[41J
1+
L3H42J-"
L3$[43J .. "
L3$[44J""
L3$[45J-"
L3$[46J""
L3$[47J .. "
13<DE
L3S[48J-"!I+0 dGIL"
L3$[49J-" -
0
E"
L3S[SOJ-"!I+!ILFI,"
L3$[ 51 J ,,"! 1+ &eGIL"
L3$[52J""1 IFIC
E"
L3$[53J"'34"&,F&+G&L"
L3$[54J""!&+/&+GIL"
L3$[S5J""II. >D E "
L3$[56J""!I+S&eG&L"
L3$[57J""!I+G&?G&L"
L3$[58J-"
E
E"
L3$[59J"n
E
L"
L3$[60J-" 3
2
L3$[61 J-"
& &"
L3$[62J
)
D
L3$[63J
!I+ >D V ..
L3$[65J-"!I+/&?E E"
L3$[66J-'34"&+/&8F&L"
L3$[67J-"!&+0
GIL"
L3$[68J-'34"I+0 OF&L"
L3$[69J-'34"&,/& FI,"
L3$[70J-'34"&,/& E
..
L3$[71J-"!&+0 .G&L"
L3S[72J·"1 '/&?E EM
L3S[73J·'"
0
I"
9000
9010
9020
9030
9040
9050
9060
9070
9080
9090
9110
9100
9120
9130
9140
9150
9160
9170
9180
9190
9200
9210
9220
9230
9240
9250
9260
9270
9280
9290
9300
9310
9320
9330
9340
9350
9360
9370
9380
9390
9400
9410
9420
9430
9440
Figure
A-B.
Large Character Set Utility Routine
A-6
Advertisement
Table of Contents
