.MCall .Module .Module VDTAB,08, ; Copyright (c) 1998 by Mentec, Inc., Nashua, NH. ; All rights reserved ; ; This software is furnished under a license for use only on a ; single computer system and may be copied only with the ; inclusion of the above copyright notice. This software, or ; any other copies thereof, may not be provided or otherwise ; made available to any other person except for use on such ; system and to one who agrees to these license terms. Title ; to and ownership of the software shall at all times remain ; in Mentec, Inc. ; ; The information in this document is subject to change without ; notice and should not be construed as a commitment by Digital ; Equipment Corporation, or Mentec, Inc. ; ; Digital and Mentec assume no responsibility for the use or ; reliability of its software on equipment which is not supplied ; by Digital or Mentec, and listed in the Software Product ; Description. .NList LOC,BIN,CND .List MEB .SbTtl Generation options: defaults and cross checks .IIf NDF MMG$T MMG$T=0 .IIf NDF Chec$k Chec$k=0 ; assume not checking fonts .IIf NE Chec$k Chec$k=1 .IIf NDF FONT$0 FONT$0=1 ; assume DEC line drawing set .IIf NE FONT$0 FONT$0=1 .IIf NDF FONT$$ FONT$$=0 ; assume no DEC multinat char .IIf NE FONT$$ FONT$$=1 .IIf NDF FONT$C FONT$C=1 ; assume Finnish replacement set .IIf NE FONT$C FONT$C=1 .IIf NDF FONT$R FONT$R=1 ; assume French replacement set .IIf NE FONT$R FONT$R=1 .IIf NDF FONT$9 FONT$9=1 ; assume French-Canadien replacement set .IIf NE FONT$9 FONT$9=1 .IIf NDF FONT$K FONT$K=1 ; assume German replacement set .IIf NE FONT$K FONT$K=1 .IIf NDF FONT$Y FONT$Y=1 ; assume Italian replacement set .IIf NE FONT$Y FONT$Y=1 .IIf NDF FONT$J FONT$J=0 ; assume no Japan-Roman replacement set .IIf NE FONT$J FONT$J=1 .IIf NDF FONT$I FONT$I=0 ; assume no Japan-Katakana replacement set .IIf NE FONT$I FONT$I=1 .IIf NDF FONT$6 FONT$6=1 ; assume Norwegian/Danish replacement set .IIf NE FONT$6 FONT$6=1 .IIf NDF FONT$Z FONT$Z=1 ; assume Spanish replacement set .IIf NE FONT$Z FONT$Z=1 .IIf NDF FONT$7 FONT$7=1 ; assume Swedish replacement set .IIf NE FONT$7 FONT$7=1 .IIf NDF FONT$A FONT$A=1 ; assume United Kingdom replacement set .IIf NE FONT$A FONT$A=1 .SbTtl 80 column support included .IIf NE MMG$T .SbTtl 132 column support included .IIf NE Chec$k .SbTtl Display font pictures .SbTtl US-ASCII char set supported .IIf NE FONT$0 .SbTtl DEC Line Drawing set supported .IIf NE FONT$$ .SbTtl DEC Multinat char set supported .IIf NE FONT$C .SbTtl Finnish replacement set supported .IIf NE FONT$R .SbTtl French replacement set supported .IIf NE FONT$9 .Sbttl French-Canadienne replacement set supported .IIf NE FONT$K .SbTtl German replacement set supported .IIf NE FONT$Y .SbTtl Italian replacement set supported .IIf NE FONT$J .SbTtl Japanese-Roman replacement set supported .IIf NE FONT$I .SbTtl Japanese-Katakana replacement set supported .IIf NE FONT$6 .SbTtl Norwegian/Danish replacement set supported .IIf NE FONT$Z .Sbttl Spanish replacement set supported .IIf NE FONT$7 .SbTtl Swedish replacement subset supported .IIf NE FONT$A .SbTtl United Kingdom replacement subset supported .If NE FONT$$ .IIf EQ FONT$0 .Error ; FONT0 is required for FONT<; .EndC $NRC$=0 .IrpC x, $NRC$=$NRC$!FONT$'x .EndR .If NE $NRC$ .IIf EQ FONT$0 .Error ; FONT0 is required for replacement sets; .EndC .SbTtl Illustration of font table layout ;+ ; Fonts FontBS ; FontB: +-------+ ?L1 +---+---+---+---+---+---+---+ ; | |------>| | | | | | | | ; +-------+ +---+---+---+---+---+---+---+ ; | |------>| | | | | ; +-------+ +---+---+---+---+---+ ; | |------>| | | | | | ; +-------+ +---+---+---+---+---+ ; : : ; +-------+ +---+---+---+---+---+---+ ; | |------>| | | | | | | ; +-------+ +---+---+---+---+---+---+ ; ; Font0: +-------+ +---+---+---+---+---+---+ ; | |------>| | | | | | | ; +-------+ +---+---+---+---+---+---+---+ ; | |------>| | | | | | | | ; +-------+ +---+---+---+---+---+---+---+ ; : : ; +-------+ +---+---+---+---+ ; | |------>| | | | | ; +-------+ +---+---+---+---+ ; | | | | ; | | | | ; | | : : ; | | ; | | FontPX FontPX ; | | +-------+ +---+ ; | | VD$80: | | VD$132: | | ; | | Bna: +-------+ +---+ ; | +-------->| | | | ; | +-------+ +---+ ; | | | | | ; | +-------+ +---+ ; +------------>| | | | ; +-------+ +---+ ; : : : : ; +-------+ +---+ ; | | | | ; +-------+ +---+ .SbTtl Macros used to gen tables .If EQ Chec$k .If NE MMG$T ; Definition of FD for 80/132 support .Macro FD L1,A0,B0,C0,D0,E0,F0,G0,H0,I0,J0,XX,A1,B1,C1,D1,E1,F1,G1,H1,I1,J1 .List LOC,BIN .....2=0 .IRpC x, .IIf IDN x,* .....2=1 .EndR .If NE .....2 .Word C.'L1'1-PixOrg .NList LOC,BIN .MExit .IfF .Word C.'L1'-PixOrg .EndC .Save .Psect VD$PIX,D,RO .....1=0 ..FONT A0 A1 A C.'L1': ..FONT B0 B1 A ..FONT C0 C1 A ..FONT D0 D1 A ..FONT E0 E1 A ..FONT F0 F1 A ..FONT G0 G1 A ..FONT H0 H1 A ..FONT I0 I1 A ..FONT J0 J1 A .If NE .....1 .If EQ .....1-1 .Byte B0A-BasePS+24./2 .IfF .Byte .....1 .EndC .EndC .Restore .NList LOC,BIN .EndM .IfF ; Definition of FD for 80 only support .Macro FD L1,A0,B0,C0,D0,E0,F0,G0,H0,I0,J0,XX,A1,B1,C1,D1,E1,F1,G1,H1,I1,J1 .List LOC,BIN .....2=0 .IRpC x, .IIf IDN x,* .....2=1 .EndR .If NE .....2 .Word C.'L1'1-PixOrg .NList LOC,BIN .MExit .IfF .Word C.'L1'-PixOrg .EndC .Save .Psect VD$PIX,D,RO .....1=0 ..FONT A0 0 A C.'L1': ..FONT B0 0 A ..FONT C0 0 A ..FONT D0 0 A ..FONT E0 0 A ..FONT F0 0 A ..FONT G0 0 A ..FONT H0 0 A ..FONT I0 0 A ..FONT J0 0 A .If NE .....1 .If EQ .....1-1 .Byte B0A-BasePS+24./2 .IfF .Byte .....1 .EndC .EndC .Restore .NList LOC,BIN .EndM .EndC ; Definition of ..Font for 80/132 or 80 only support .Macro ..Font X Y Z $ .IIf GT X-...V3 ...V3=X .IIf NDF F'X'Z F'X'Z = Y .If EQ X!Y .....1=.....1+1 $ .MExit .IfF .If NE .....1 $ .Byte .....1 .....1=0 .EndC .EndC .If EQ F'X'Z-Y $ .Byte B'X'Z-BasePS+24./2 .MExit .EndC .IIf IDN A,Z ..FONT X Y B $ .IIf IDN B,Z ..FONT X Y C $ .IIf IDN C,Z ..FONT X Y D $ .IIf IDN D,Z ..FONT X Y E $ .IIf IDN E,Z ..FONT X Y F $ .IIf IDN F,Z ..FONT X Y G $ .IIf IDN G,Z ..FONT X Y H $ .IIf IDN H,Z ..FONT X Y I $ .IIf IDN I,Z ..FONT X Y J $ .IIf IDN J,Z ..FONT X Y K $ .IIf IDN K,Z ..FONT X Y L $ .IIf IDN L,Z ..FONT X Y M $ .IIf IDN M,Z ..FONT X Y N $ .EndM .IfF ; Definition of FD for Checking by displaying patterns .Macro FD L1,A0,B0,C0,D0,E0,F0,G0,H0,I0,J0,XX,A1,B1,C1,D1,E1,F1,G1,H1,I1,J1 .IIf B , .MExit .Irp X,<,,,,,,,,,> ..Font X .EndR .List .NList .EndM ; Definition of ..Font for checking by displaying patterns .Macro ..Font X0 X1 P=X0&^b1000000000000000/^b1000000000000000 O=X0&^b100000000000000/^b100000000000000 N=X0&^b10000000000000/^b10000000000000 M=X0&^b1000000000000/^b1000000000000 L=X0&^b100000000000/^b100000000000 K=X0&^b10000000000/^b10000000000 J=X0&^b1000000000/^b1000000000 I=X0&^b100000000/^b100000000 H=X0&^b10000000/^b10000000 G=X0&^b1000000/^b1000000 F=X0&^b100000/^b100000 E=X0&^b10000/^b10000 D=X0&^b1000/^b1000 C=X0&^b100/^b100 B=X0&^b10/^b10 A=X0&^b1/^b1 FF=X1&^b1000000000000000/^b1000000000000000 EE=X1&^b100000000000000/^b100000000000000 DD=X1&^b10000000000000/^b10000000000000 CC=X1&^b1000000000000/^b1000000000000 BB=X1&^b100000000000/^b100000000000 AA=X1&^b10000000000/^b10000000000 Z=X1&^b1000000000/^b1000000000 Y=X1&^b100000000/^b100000000 X=X1&^b10000000/^b10000000 W=X1&^b1000000/^b1000000 V=X1&^b100000/^b100000 U=X1&^b10000/^b10000 T=X1&^b1000/^b1000 S=X1&^b100/^b100 R=X1&^b10/^b10 Q=X1&^b1/^b1 ...FNT \A \B \C \D \E \F \G \H \I \J \K \L \M \N \O \P \Q \R \S \T \U \V \W \X \Y \Z \AA \BB \CC \DD \EE \FF .EndM ; Definition of ...Fnt for checking by displaying patterns .Macro ...Fnt a0 b0 c0 d0 e0 f0 g0 h0 i0 j0 k0 l0 m0 n0 o0 p0 a1 b1 c1 d1 e1 f1 g1 h1 i1 j1 k1 l1 m1 n1 o1 p1 .List ; a0'b0'c0'd0'e0'f0'g0'h0'i0'j0'k0'l0'm0'n0'p0 a1'b1'c1'd1'e1'f1'g1'h1'i1'j1'k1'l1'm1'n1'p1 .NList .EndM .EndC ;;;DEBUG ;;;.Macro FD L1,A0,B0,C0,D0,E0,F0,G0,H0,I0,J0,XX,A1,B1,C1,D1,E1,F1,G1,H1,I1,J1 ;;;.EndM .SbTtl PSect definitions and misc symbols .PSect VD$PIX,RO,D ; area for pixel vectors PixOrg:: .PSect VD$80,RO,D ; Vector of pixel values. VD$80:: ; VD$80 is a word vector. .If NE MMG$T .PSect VD$132,RO,D ; Vector of pixel values. VD$132:: ; VD$132 is a byte vector. .EndC BasePS:: ...V3=0 ; ...V3 is used to hold the highest VD$80 ; pixel value. It is set up by ..FONT and ; used by the .Rept at the end of this module ; as the repeat limit. F0A=0 ; define symbol so blank pair is generated SetTyp DUMMY1,CONSTANT,YES .Enable LSB .SbTtl ASCII "B" (Standard US) Character Set .PSect SetFnD,D,RW SetFnt USA,'B,FontB ;USA kb uses USA font SetFnt AUS,'B,FontB ;AUS kb uses USA font SetFnt CDNE,'B,FontB ;CDNE kb uses USA font SetFnt NZ,'B,FontB ;NZ kb uses USA font SetFnt NL,'B,FontB ;NL kb uses USA font .PSect VD$MUS,D,RO FontB: FD SP01 0 0 0 0 0 0 0 0 0 0 # 0 0 0 0 0 0 0 0 0 0 ; 40 space FD SP02 0 20 20 20 20 20 0 20 0 0 # 0 10 10 10 10 10 0 10 0 0 ; 41 ! FD SP04 0 210 210 210 0 0 0 0 0 0 # 0 24 24 24 0 0 0 0 0 0 ; 42 " FD SM01 0 210 210 1252 210 1252 210 210 0 0 # 0 24 24 76 24 76 24 24 0 0 ; 43 # .Page FD SC03 0 40 524 42 524 1040 524 40 0 0 # 0 10 34 12 34 50 34 10 0 0 ; 44 $ FD SM02 0 1024 442 224 40 510 1044 502 0 0 # 0 46 46 20 10 4 62 62 0 0 ; 45 % FD SM03 0 124 202 202 124 2202 402 1124 0 0 # 0 4 12 12 4 52 22 54 0 0 ; 46 & FD SP05 0 120 20 10 0 0 0 0 0 0 # 0 30 10 4 0 0 0 0 0 0 ; 47 ' .Page FD SP06 0 100 40 20 20 20 40 100 0 0 # 0 20 10 4 4 4 10 20 0 0 ; 50 ( FD SP07 0 20 40 100 100 100 40 20 0 0 # 0 4 10 20 20 20 10 4 0 0 ; 51 ) FD SM04 0 0 210 120 1252 120 210 0 0 0 # 0 0 42 24 76 24 42 0 0 0 ; 52 FD SA01 0 0 40 40 1252 40 40 0 0 0 # 0 0 10 10 76 10 10 0 0 0 ; 53 + .Page FD SP08 0 0 0 0 0 0 120 20 10 0 # 0 0 0 0 0 0 30 10 4 0 ; 54 , FD SP10 0 0 0 0 1252 0 0 0 0 0 # 0 0 0 0 76 0 0 0 0 0 ; 55 - FD SP11 0 0 0 0 0 0 120 120 0 0 # 0 0 0 0 0 0 10 10 0 0 ; 56 . FD SP12 0 400 200 100 40 20 10 4 0 0 # 0 40 40 20 10 4 2 2 0 0 ; 57 / .Page FD ND01 0 120 404 1002 1002 1002 404 120 0 0 # 0 10 24 42 42 42 24 10 0 0 ; 60 0 FD ND02 0 40 50 44 40 40 40 524 0 0 # 0 10 14 12 10 10 10 76 0 0 ; 61 1 FD ND03 0 524 1002 400 100 20 4 1252 0 0 # 0 34 42 40 30 4 2 76 0 0 ; 62 2 FD ND04 0 1252 400 100 520 1000 1002 524 0 0 # 0 76 40 20 30 40 42 34 0 0 ; 63 3 .Page FD ND05 0 200 240 210 202 1252 200 200 0 0 # 0 20 30 24 22 76 20 20 0 0 ; 64 4 FD ND06 0 1252 2 522 1012 1000 1002 524 0 0 # 0 76 2 32 46 40 42 34 0 0 ; 65 5 FD ND07 0 250 4 2 252 1002 1002 524 0 0 # 0 34 42 2 32 46 42 34 0 0 ; 66 6 FD ND08 0 1252 1000 400 100 20 4 2 0 0 # 0 76 40 20 20 10 4 4 0 0 ; 67 7 .Page FD ND09 0 524 1002 1002 524 1002 1002 524 0 0 # 0 34 42 42 34 42 42 34 0 0 ; 70 8 FD ND10 0 524 1002 1002 1250 1000 400 250 0 0 # 0 34 42 62 54 40 42 34 0 0 ; 71 9 FD SP13 0 0 0 120 120 0 120 120 0 0 # 0 0 0 30 30 0 30 30 0 0 ; 72 : FD SP14 0 0 0 120 120 0 120 20 10 0 # 0 0 0 30 30 0 30 10 4 0 ; 73 ; .Page FD SA03 0 400 100 20 4 20 100 400 0 0 # 0 40 20 10 4 10 20 40 0 0 ; 74 < FD SA04 0 0 0 1252 0 1252 0 0 0 0 # 0 0 0 76 0 76 0 0 0 0 ; 75 = FD SA05 0 4 20 100 400 100 20 4 0 0 # 0 2 4 10 20 10 4 2 0 0 ; 76 > FD SP15 0 524 1002 200 40 40 0 40 0 0 # 0 34 42 20 10 10 0 10 0 0 ; 77 ? .Page FD SM05 0 524 1002 1042 1122 1242 2 524 0 0 # 0 34 42 62 52 32 2 34 0 0 ;100 @ FD LA02 0 120 210 404 1002 1252 1002 1002 0 0 # 0 10 24 42 42 76 42 42 0 0 ;101 A FD LB02 0 524 1004 1004 524 1004 1004 524 0 0 # 0 36 44 44 34 44 44 36 0 0 ;102 B FD LC02 0 250 404 2 2 2 404 250 0 0 # 0 34 42 2 2 2 42 34 0 0 ;103 C .Page FD LD02 0 252 402 1002 1002 1002 402 252 0 0 # 0 36 44 44 44 44 44 36 0 0 ;104 D FD LE02 0 1252 2 2 252 2 2 1252 0 0 # 0 76 2 2 36 2 2 76 0 0 ;105 E FD LF02 0 1252 2 2 252 2 2 2 0 0 # 0 76 2 2 36 2 2 2 0 0 ;106 F FD LG02 0 250 404 2 2 502 404 250 0 0 # 0 34 42 2 2 62 42 34 0 0 ;107 G .Page FD LH02 0 1002 1002 1002 1252 1002 1002 1002 0 0 # 0 42 42 42 76 42 42 42 0 0 ;110 H FD LI02 0 524 40 40 40 40 40 524 0 0 # 0 34 10 10 10 10 10 34 0 0 ;111 I FD LJ02 0 1240 200 200 200 200 202 124 0 0 # 0 160 40 40 40 40 42 34 0 0 ;112 J FD LK02 0 1002 202 42 12 42 202 1002 0 0 # 0 42 22 12 6 12 22 42 0 0 ;113 K .Page FD LL02 0 2 2 2 2 2 2 1252 0 0 # 0 2 2 2 2 2 2 76 0 0 ;114 L FD LM02 0 1002 1212 1122 1042 1002 1002 1002 0 0 # 0 42 42 66 52 42 42 42 0 0 ;115 M FD LN02 0 1002 1012 1022 1042 1102 1202 1002 0 0 # 0 42 42 46 52 62 42 42 0 0 ;116 N FD LO02 0 524 1002 1002 1002 1002 1002 524 0 0 # 0 34 42 42 42 42 42 34 0 0 ;117 O .Page FD LP02 0 252 402 402 252 2 2 2 0 0 # 0 36 42 42 36 2 2 2 0 0 ;120 P FD LQO2 0 524 1002 1002 1002 1102 1202 524 1000 0 # 0 34 42 42 42 42 52 34 40 0 ;121 Q FD LR02 0 252 402 402 252 102 202 402 0 0 # 0 36 42 42 36 12 22 42 0 0 ;122 R FD LS02 0 524 1002 2 524 1000 1002 524 0 0 # 0 34 42 2 34 40 42 34 0 0 ;123 S .Page FD LT02 0 1252 40 40 40 40 40 40 0 0 # 0 76 10 10 10 10 10 10 0 0 ;124 T FD LU02 0 1002 1002 1002 1002 1002 1002 524 0 0 # 0 42 42 42 42 42 42 34 0 0 ;125 U FD LV02 0 1002 1002 1002 404 210 120 40 0 0 # 0 42 42 42 24 24 24 10 0 0 ;126 V FD LW02 0 1002 1002 1002 1042 1042 524 210 0 0 # 0 42 42 42 52 52 52 24 0 0 ;127 W .Page FD LX02 0 1002 404 210 120 210 404 1002 0 0 # 0 42 42 24 10 24 42 42 0 0 ;130 X FD LY02 0 1002 404 210 120 40 40 40 0 0 # 0 42 42 24 10 10 10 10 0 0 ;131 Y FD LZ02 0 1252 1000 200 40 10 2 1252 0 0 # 0 76 40 20 10 4 2 76 0 0 ;132 Z FD SM06 0 524 4 4 4 4 4 524 0 0 # 0 34 4 4 4 4 4 34 0 0 ;133 [ .Page FD SM07 0 4 10 20 40 100 200 400 0 0 # 0 2 2 4 10 20 40 40 0 0 ;134 \ FD SM08 0 524 400 400 400 400 400 524 0 0 # 0 34 20 20 20 20 20 34 0 0 ;135 ] FD SM09 0 120 210 404 1002 0 0 0 0 0 # 0 10 24 42 0 0 0 0 0 0 ;136 ^ FD SP09 0 0 0 0 0 0 0 1252 0 0 # 0 0 0 0 0 0 0 76 0 0 ;137 _ .Page FD SM94 0 120 100 200 0 0 0 0 0 0 # 0 14 10 20 0 0 0 0 0 0 ;140 ` FD LA01 0 0 0 524 1000 524 1002 2524 0 0 # 0 0 0 34 40 74 42 74 0 0 ;141 a FD LB01 0 2 2 252 402 1002 402 252 0 0 # 0 2 2 32 46 42 46 32 0 0 ;142 b FD LC01 0 0 0 524 2 2 2 524 0 0 # 0 0 0 34 42 2 42 34 0 0 ;143 c .Page FD LD01 0 1000 1000 1250 1004 1002 1004 1250 0 0 # 0 40 40 54 62 42 62 54 0 0 ;144 d FD LE01 0 0 0 524 1002 1252 2 524 0 0 # 0 0 0 34 42 76 2 34 0 0 ;145 e FD LF01 0 520 1010 10 252 10 10 10 0 0 # 0 30 44 4 36 4 4 4 0 0 ;146 f FD LG01 0 0 0 524 402 402 524 400 404 250 # 0 0 0 54 62 42 74 40 42 34 ;147 g .Page FD LH01 0 2 2 522 1012 1002 1002 1002 0 0 # 0 2 2 32 46 42 42 42 0 0 ;150 h FD LI01 0 40 0 40 40 40 40 250 0 0 # 0 10 0 14 10 10 10 34 0 0 ;151 i FD LJ01 0 400 0 400 400 400 400 400 202 124 # 0 20 0 20 20 20 20 22 22 14 ;152 j FD LK01 0 2 2 202 102 52 102 202 0 0 # 0 2 2 42 22 16 22 42 0 0 ;153 k .Page FD LL01 0 50 40 40 40 40 40 250 0 0 # 0 14 10 10 10 10 10 34 0 0 ;154 l FD LM01 0 0 0 525 1042 1042 1042 1042 0 0 # 0 0 0 26 52 52 52 42 0 0 ;155 m FD LN01 0 0 0 525 1002 1002 1002 1002 0 0 # 0 0 0 32 46 42 42 42 0 0 ;156 n FD LO01 0 0 0 524 1002 1002 1002 524 0 0 # 0 0 0 34 42 42 42 34 0 0 ;157 o .Page FD LP01 0 0 0 252 402 402 252 2 2 2 # 0 0 0 32 46 46 32 2 2 2 ;160 p FD LQ01 0 0 0 524 402 402 524 400 400 400 # 0 0 0 54 62 62 54 40 40 40 ;161 q FD LR01 0 0 0 522 1012 2 2 2 0 0 # 0 0 0 32 46 2 2 2 0 0 ;162 r FD LS01 0 0 0 524 2 524 1000 524 0 0 # 0 0 0 34 2 34 40 36 0 0 ;163 s .Page FD LT01 0 10 10 252 10 10 1010 520 0 0 # 0 4 4 36 4 4 44 30 0 0 ;164 t FD LU01 0 0 0 1002 1002 1002 1002 2524 0 0 # 0 0 0 42 42 42 62 54 0 0 ;165 u FD LV01 0 0 0 1002 404 210 120 40 0 0 # 0 0 0 42 42 24 24 10 0 0 ;166 v FD LW01 0 0 0 1002 1042 1042 524 210 0 0 # 0 0 0 42 42 52 52 24 0 0 ;167 w .Page FD LX01 0 0 0 1002 210 120 210 1002 0 0 # 0 0 0 42 24 10 24 42 0 0 ;170 x FD LY01 0 0 0 402 402 402 524 400 404 250 # 0 0 0 42 42 62 54 40 42 34 ;171 y FD LZ01 0 0 0 1252 400 120 4 1252 0 0 # 0 0 0 76 20 10 4 76 0 0 ;172 z FD SM11 0 1240 20 20 12 20 20 1240 0 0 # 0 60 10 20 14 20 10 60 0 0 ;173 { .Page FD SM13 0 40 40 40 40 40 40 40 0 0 # 0 10 10 10 10 10 10 10 0 0 ;174 | FD SM14 0 52 100 100 1200 100 100 52 0 0 # 0 6 10 4 30 4 10 6 0 0 ;175 } FD SD19 0 1024 1042 502 0 0 0 0 0 0 # 0 44 52 22 0 0 0 0 0 0 ;176 ~ .If NE FONT$0 .SbTtl DEC "0" Line Drawing Character Set ;;;.PSect SetFnD,D,RW ;;; SetFnt LINE,'0,Font0 .PSect VD$MLN,D,RO Font0: FD SP01* ;137 space FD DDMD 0 40 250 524 1252 524 250 40 0 0 # 0 10 34 34 76 34 34 10 0 0 ;140 dimnd FD DCKB 0 1042 210 1042 210 1042 210 1042 0 0 # 0 52 24 52 24 52 24 52 0 0 ;141 check FD DHT 0 42 42 52 42 42 1250 100 100 100 # 0 22 22 36 22 22 174 20 20 20 ;142 HT .Page FD DFF 0 52 2 52 2 1242 40 1240 40 40 # 0 16 2 6 2 72 10 30 10 10 ;143 FF FD DCR 0 124 2 2 124 520 1020 520 1020 1020 # 0 34 2 2 34 34 44 34 44 44 ;144 CR FD DLF 0 2 2 2 52 520 20 520 20 20 # 0 2 2 2 36 74 4 34 4 4 ;145 LF FD SM19 0 120 210 120 0 0 0 0 0 0 # 0 34 24 34 0 0 0 0 0 0 ;146 degree .Page FD SA02 0 40 40 1252 40 40 0 1252 0 0 # 0 10 10 76 10 10 0 76 0 0 ;147 <+-> FD DNL 0 102 112 122 102 20 20 20 20 520 # 0 22 26 26 32 22 4 4 4 74 ;150 NL FD DVT 0 42 42 24 10 1250 100 100 100 100 # 0 22 22 14 4 174 20 20 20 0 ;151 VT FD DLRC 20 20 20 20 25 0 0 0 0 0 # 10 10 10 10 17 0 0 0 0 0 ;152 LR cor .Page FD DURC 0 0 0 0 25 20 20 20 20 20 # 0 0 0 0 17 10 10 10 10 10 ;153 UR cor FD DULC 0 0 0 0 2520 20 20 20 20 20 # 0 0 0 0 170 10 10 10 10 10 ;154 UL cor FD DLLC 20 20 20 20 2520 0 0 0 0 0 # 10 10 10 10 170 0 0 0 0 0 ;155 LL cor FD DX 20 20 20 20 2525 20 20 20 20 20 # 10 10 10 10 177 10 10 10 10 10 ;156 Cross .Page FD DSC1 2525 0 0 0 0 0 0 0 0 0 # 177 0 0 0 0 0 0 0 0 0 ;157 scan 1 FD DSC3 0 0 2525 0 0 0 0 0 0 0 # 0 0 177 0 0 0 0 0 0 0 ;160 scan 3 FD DSC5 0 0 0 0 2525 0 0 0 0 0 # 0 0 0 0 177 0 0 0 0 0 ;161 scan 5 FD DSC7 0 0 0 0 0 0 2525 0 0 0 # 0 0 0 0 0 0 177 0 0 0 ;162 scan 7 .Page FD DSC9 0 0 0 0 0 0 0 0 2525 0 # 0 0 0 0 0 0 0 0 177 0 ;163 scan 9 FD DLT 20 20 20 20 2520 20 20 20 20 20 # 10 10 10 10 170 10 10 10 10 10 ;164 Left T FD DRT 20 20 20 20 25 20 20 20 20 20 # 10 10 10 10 17 10 10 10 10 10 ;165 Righ T FD DBT 20 20 20 20 2525 0 0 0 0 0 # 10 10 10 10 177 0 0 0 0 0 ;166 BTM T .Page FD DTT 0 0 0 0 2525 20 20 20 20 20 # 0 0 0 0 177 10 10 10 10 10 ;167 Top T FD DVER 20 20 20 20 20 20 20 20 20 20 # 10 10 10 10 10 10 10 10 10 10 ;170 VR Bar FD DLE 0 1000 100 10 2 10 100 1000 1252 0 # 0 40 20 4 2 4 20 40 76 0 ;171 <= FD DGE 0 2 10 100 1000 100 10 2 1252 0 # 0 2 4 20 40 20 4 2 76 0 ;172 >= .Page FD DPI 0 0 0 1252 210 210 210 204 0 0 # 0 0 0 76 24 24 24 22 0 0 ;173 PIX FD DNE 0 1000 200 1252 40 1252 4 2 0 0 # 0 40 20 76 10 76 4 2 0 0 ;174 <> FD SC02 0 240 420 20 124 20 124 1222 4 0 # 0 30 44 4 36 4 34 66 4 0 ;175 UK Lb FD DDOT 0 0 0 0 20 0 0 0 0 0 # 0 0 0 0 200 0 0 0 0 0 ;176 Bullet .EndC .If NE FONT$$ .SbTtl DEC "<" Multinational Character Set .PSect SetFnD,D,RW SetFnt MULT,74,FontLT .PSect VD$MMN,D,RO FontLT: FD RevQM 0 524 1002 10 40 40 0 40 0 0 # 0 34 42 4 10 10 0 10 0 0 ; reverse ? FD SP03 0 20 0 20 20 20 20 20 0 0 # 0 10 0 10 10 10 10 10 0 0 ; invert ! FD SC04 0 40 40 524 42 42 524 40 40 0 # 0 10 34 52 12 52 34 10 0 0 ; cent sign FD SC02* FD RevQM* ; reserved .Page FD SC05 0 404 210 120 40 250 40 40 40 0 # 0 42 24 10 34 10 10 10 10 0 ; yen sign FD RevQM* ; reserved FD SM24 0 120 204 50 110 120 204 50 0 0 # 0 34 42 14 24 30 42 34 0 0 ; section FD SC01 0 0 404 250 210 250 404 0 0 0 # 0 0 42 34 24 34 42 0 0 0 ; gen curr. FD SM52 0 250 404 1122 1012 1122 404 250 0 0 # 0 74 102 132 106 132 102 74 0 0 ; (c) .Page FD SM21 0 524 1000 524 1002 2524 2525 0 0 0 # 0 34 40 74 42 74 76 0 0 0 ; FD SP17 0 0 0 420 210 104 210 420 0 0 # 0 0 0 50 24 12 24 50 0 0 ; << FD RevQM* ; reserved FD RevQM* ; reserved FD RevQM* ; reserved FD RevQM* ; reserved FD SM19* ; degree FD SA02* ; <+_> FD NS02 0 120 210 40 20 250 0 0 0 0 # 0 30 44 20 10 74 0 0 0 0 ; super 2 FD NS03 0 250 200 100 210 120 0 0 0 0 # 0 76 20 20 42 34 0 0 0 0 ; super 3 .Page FD RevQM* ; reserved FD SM17 0 0 0 410 410 410 410 1250 4 2 # 0 0 0 42 42 42 62 56 2 1 ; micro sign FD SM25 0 3250 1124 1052 1124 1250 1100 1100 1100 0 # 0 174 56 56 74 50 50 50 50 0 ; para sign FD SM26 0 0 0 0 120 120 0 0 0 0 # 0 0 0 0 30 30 0 0 0 0 ; middle dot FD RevQM* ; reserved FD NS01 0 40 50 40 40 250 0 0 0 0 # 0 10 12 10 10 76 0 0 0 0 ; super 1 .Page FD SM20 0 524 1002 1002 1002 524 2525 0 0 0 # 0 34 42 42 42 34 76 0 0 0 ; FD SP18 0 0 0 104 210 420 210 104 0 0 # 0 0 0 24 50 120 50 24 0 0 ; >> FD NF04 10 410 210 110 1040 1220 2510 1004 1000 0 # 2 42 22 50 64 172 40 40 0 0 ; 1/4 FD NF01 10 410 210 110 1240 2120 1010 204 2500 0 # 2 42 22 12 64 112 40 170 0 0 ; 1/2 FD RevQM* ; reserved .Page FD SP16 0 40 0 40 40 10 1002 524 0 0 # 0 10 0 10 10 4 42 34 0 0 ; invert ? FD LA14 10 40 250 404 1002 1252 1002 1002 0 0 # 4 10 34 42 42 76 42 42 0 0 ; FD LA12 200 40 250 404 1002 1252 1002 1002 0 0 # 20 10 34 42 42 76 42 42 0 0 ; FD LA16 40 210 0 524 1002 1252 1002 1002 0 0 # 10 42 0 34 42 76 42 42 0 0 ; .Page FD LA20 1050 504 0 524 1002 1252 1002 1002 0 0 # 114 62 0 34 42 76 42 42 0 0 ; FD LA18 210 0 250 404 1002 1252 1002 1002 0 0 # 42 0 34 42 42 76 42 42 0 0 ; FD LA28 120 210 120 524 1002 1252 1002 1002 0 0 # 34 42 34 34 42 76 42 42 0 0 ; A ring FD LA52 0 1250 44 42 1242 52 42 1242 0 0 # 0 170 24 22 162 36 22 162 0 0 ; .Page FD LC42 0 250 404 2 2 2 404 250 40 50 # 0 34 42 2 2 2 42 34 10 16 ; FD LE14 10 40 1252 2 252 2 2 1252 0 0 # 4 10 76 2 36 2 2 76 0 0 ; FD LE12 200 40 1252 2 252 2 2 1252 0 0 # 20 10 76 2 36 2 2 76 0 0 ; FD LE16 40 210 1252 2 252 2 2 1252 0 0 # 10 42 76 2 36 2 2 76 0 0 ; .Page FD LE18 210 0 1252 2 252 2 2 1252 0 0 # 42 0 76 2 36 2 2 76 0 0 ; FD LI14 10 40 524 40 40 40 40 524 0 0 # 4 10 34 10 10 10 10 34 0 0 ; FD LI12 200 40 524 40 40 40 40 524 0 0 # 20 10 34 10 10 10 10 34 0 0 ; FD LI16 40 210 524 40 40 40 40 524 0 0 # 10 42 34 10 10 10 10 34 0 0 ; .Page FD LI18 210 0 524 40 40 40 40 524 0 0 # 42 0 34 10 10 10 10 34 0 0 ; FD RevQM* ; reserved FD LN20 1050 504 1002 1012 1042 1102 1202 1002 0 0 # 114 62 42 46 52 62 42 42 0 0 ; FD LO14 10 40 524 1002 1002 1002 1002 524 0 0 # 4 10 34 42 42 42 42 34 0 0 ; FD LO12 200 40 524 1002 1002 1002 1002 524 0 0 # 20 10 34 42 42 42 42 34 0 0 ; .Page FD LO16 40 210 524 1002 1002 1002 1002 524 0 0 # 10 42 34 42 42 42 42 34 0 0 ; FD LO20 424 242 524 1002 1002 1002 1002 524 0 0 # 114 62 34 42 42 42 42 34 0 0 ; FD LO18 210 0 524 1002 1002 1002 1002 524 0 0 # 42 0 34 42 42 42 42 34 0 0 ; FD LO52 0 2524 42 42 1242 42 42 2524 0 0 # 0 174 22 22 162 22 22 174 0 0 ; .Page FD LO62 1000 524 1202 1102 1042 1022 1012 524 2 0 # 0 40 34 52 52 52 52 34 2 0 ; FD LU14 10 40 1002 1002 1002 1002 1002 524 0 0 # 4 10 42 42 42 42 42 34 0 0 ; FD LU12 200 40 1002 1002 1002 1002 1002 524 0 0 # 20 10 42 42 42 42 42 34 0 0 ; FD LU16 40 210 1002 1002 1002 1002 1002 524 0 0 # 10 24 42 42 42 42 42 34 0 0 ; .Page FD LU18 210 0 1002 1002 1002 1002 1002 524 0 0 # 42 0 42 42 42 42 42 34 0 0 ; FD LY18 210 0 404 210 120 40 40 40 0 0 # 42 0 42 24 10 10 10 10 0 0 ; FD RevQM* ; reserved FD LS61 0 250 404 402 242 402 1012 522 2 0 # 0 30 44 42 22 42 112 62 2 0 ; FD LA13 0 10 40 524 1000 524 1002 2524 0 0 # 0 4 10 34 40 74 42 74 0 0 ; .Page FD LA11 0 200 40 524 1000 524 1002 2524 0 0 # 0 20 10 34 40 74 42 74 0 0 ; FD LA15 40 210 0 524 1000 524 1002 2524 0 0 # 10 42 0 34 40 74 42 74 0 0 ; FD LA19 1050 504 0 524 1000 524 1002 2524 0 0 # 114 62 0 34 40 74 42 74 0 0 ; FD LA17 0 210 0 524 1000 524 1002 2524 0 0 # 0 42 0 34 40 74 42 74 0 0 ; .Page FD LA27 120 210 120 524 1000 524 1002 2524 0 0 # 34 42 34 34 40 74 42 74 0 0 ; a ring FD LA51 0 0 0 512 1040 1252 41 1532 0 0 # 0 0 0 66 110 76 11 176 0 0 ; FD LC41 0 0 0 250 404 2 404 250 40 50 # 0 0 0 34 42 2 42 34 10 14 ; FD LE13 0 10 40 524 1002 1252 2 524 0 0 # 0 4 10 34 42 76 2 34 0 0 ; .Page FD LE11 0 200 40 524 1002 1252 2 524 0 0 # 0 20 10 34 42 76 2 34 0 0 ; FD LE15 40 210 0 524 1002 1252 2 524 0 0 # 10 42 0 34 42 76 2 34 0 0 ; FD LE17 0 210 0 524 1002 1252 2 524 0 0 # 0 42 0 34 42 76 2 34 0 0 ; FD LI13 0 20 100 50 40 40 40 250 0 0 # 0 4 10 14 10 10 10 34 0 0 ; .Page FD LI11 0 100 20 50 40 40 40 250 0 0 # 0 10 4 14 10 10 10 34 0 0 ; FD LI15 40 210 0 50 40 40 40 250 0 0 # 10 42 0 14 10 10 10 34 0 0 ; FD LI17 0 210 0 50 40 40 40 250 0 0 # 0 42 0 14 10 10 10 34 0 0 ; FD RevQM* ; reserved FD LN19 424 242 0 525 1002 1002 1002 1002 0 0 # 114 62 0 32 46 42 42 42 0 0 ; .Page FD LO13 0 10 40 524 1002 1002 1002 524 0 0 # 0 4 10 34 42 42 42 34 0 0 ; FD LO11 0 200 40 524 1002 1002 1002 524 0 0 # 0 20 10 34 42 42 42 34 0 0 ; FD LO15 40 210 0 524 1002 1002 1002 524 0 0 # 10 42 0 34 42 42 42 34 0 0 ; FD LO19 424 242 0 524 1002 1002 1002 524 0 0 # 114 62 0 34 42 42 42 34 0 0 ; .Page FD LO17 0 210 0 524 1002 1002 1002 524 0 0 # 0 42 0 34 42 42 42 34 0 0 ; FD LO51 0 0 0 524 1042 1242 42 2524 0 0 # 0 0 0 66 111 71 11 66 0 0 ; FD LO61 0 0 1000 524 1102 1042 1022 524 2 0 # 0 0 40 34 52 52 52 34 2 0 ; FD LU13 0 10 40 1002 1002 1002 1002 2524 0 0 # 0 4 10 42 42 42 62 54 0 0 ; .Page FD LU11 0 200 40 1002 1002 1002 1002 2524 0 0 # 0 20 10 42 42 42 62 54 0 0 ; FD LU15 40 210 0 1002 1002 1002 1002 2524 0 0 # 10 42 0 42 42 42 62 54 0 0 ; FD LU17 0 210 0 1002 1002 1002 1002 2524 0 0 # 0 42 0 42 42 42 62 54 0 0 ; FD LY17 0 204 0 402 402 402 524 400 404 250 # 0 42 0 42 42 62 54 40 42 34 ; FD RevQM* ; reserved .IfF .If NE $NRC$ .SbTtl Non-ASCII "B' and non-line Drawing char for NRC w/o Multinat ;;;.PSect SetFnD,D,RW ;;; SetFnt NRC,000,Font. .PSect VD$MNR,D,RW Font.: FD LA13 0 10 40 524 1000 524 1002 2524 0 0 # 0 4 10 34 40 74 42 74 0 0 ; FD LA15 40 210 0 524 1000 524 1002 2524 0 0 # 10 42 0 34 40 74 42 74 0 0 ; FD LA17 0 210 0 524 1000 524 1002 2524 0 0 # 0 42 0 34 40 74 42 74 0 0 ; FD LA18 210 0 250 404 1002 1252 1002 1002 0 0 # 42 0 34 42 42 76 42 42 0 0 ; .Page FD LA27 120 210 120 524 1000 524 1002 2524 0 0 # 34 42 34 34 40 74 42 74 0 0 ; a ring FD LA28 120 210 120 524 1002 1252 1002 1002 0 0 # 34 42 34 34 42 76 42 42 0 0 ; A ring FD LA51 0 0 0 512 1040 1252 41 1532 0 0 # 0 0 0 66 110 76 11 176 0 0 ; FD LA52 0 1250 44 42 1242 52 42 1242 0 0 # 0 170 24 22 162 36 22 162 0 0 ; .Page FD LC41 0 0 0 250 404 2 404 250 40 50 # 0 0 0 34 42 2 42 34 10 14 ; FD LE11 0 200 40 524 1002 1252 2 524 0 0 # 0 20 10 34 42 76 2 34 0 0 ; FD LE12 200 40 1252 2 252 2 2 1252 0 0 # 20 10 76 2 36 2 2 76 0 0 ; FD LE13 0 10 40 524 1002 1252 2 524 0 0 # 0 4 10 34 42 76 2 34 0 0 ; .Page FD LE15 40 210 0 524 1002 1252 2 524 0 0 # 10 42 0 34 42 76 2 34 0 0 ; FD LI13 0 20 100 50 40 40 40 250 0 0 # 0 4 10 14 10 10 10 34 0 0 ; FD LI15 40 210 0 50 40 40 40 250 0 0 # 10 42 0 14 10 10 10 34 0 0 ; FD LN19 424 242 0 525 1002 1002 1002 1002 0 0 # 114 62 0 32 46 42 42 42 0 0 ; .Page FD LN20 1050 504 1002 1012 1042 1102 1202 1002 0 0 # 114 62 42 46 52 62 42 42 0 0 ; FD LO13 0 10 40 524 1002 1002 1002 524 0 0 # 0 4 10 34 42 42 42 34 0 0 ; FD LO15 40 210 0 524 1002 1002 1002 524 0 0 # 10 42 0 34 42 42 42 34 0 0 ; FD LO17 0 210 0 524 1002 1002 1002 524 0 0 # 0 42 0 34 42 42 42 34 0 0 ; .Page FD LO18 210 0 524 1002 1002 1002 1002 524 0 0 # 42 0 34 42 42 42 42 34 0 0 ; FD LO61 0 0 1000 524 1102 1042 1022 524 2 0 # 0 0 40 34 52 52 52 34 2 0 ; FD LO62 1000 524 1202 1102 1042 1022 1012 524 2 0 # 0 40 34 52 52 52 52 34 2 0 ; FD LS61 0 250 404 402 242 402 1012 522 2 0 # 0 30 44 42 22 42 112 62 2 0 ; .Page FD LU13 0 10 40 1002 1002 1002 1002 2524 0 0 # 0 4 10 42 42 42 62 54 0 0 ; FD LU15 40 210 0 1002 1002 1002 1002 2524 0 0 # 10 42 0 42 42 42 62 54 0 0 ; FD LU17 0 210 0 1002 1002 1002 1002 2524 0 0 # 0 42 0 42 42 42 62 54 0 0 ; FD LU18 210 0 1002 1002 1002 1002 1002 524 0 0 # 42 0 42 42 42 42 42 34 0 0 ; .Page FD SC05 0 404 210 120 40 250 40 40 40 0 # 0 42 24 10 34 10 10 10 10 0 ; yen sign FD SM24 0 120 204 50 110 120 204 50 0 0 # 0 34 42 14 24 30 42 34 0 0 ; section FD SP03 0 20 0 20 20 20 20 20 0 0 # 0 10 0 10 10 10 10 10 0 0 ; invert ! FD SP16 0 40 0 40 40 10 1002 524 0 0 # 0 10 0 10 10 4 42 34 0 0 ; invert ? .=FONT. ;???+<95.*2> .EndC .EndC .Rem + .If NE % ; pattern (FONT$A) for NRC .SbTtl NRC "%" % replacement table .PSect VD$%,D,RO FONT%:: FD SP01* FD SP02* FD SP04* FD SM01* ; # FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD SM05* ; @ FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD SM06* ; [ FD SM07* ; \ FD SM08* ; ] FD SM09* ; ^ FD SP09* ; _ FD SM94* ; ` FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD SM11* ; { FD SM13* ; | FD SM14* ; } FD SD19* ; ~ .EndC + .If NE Font$C .SbTtl NRC "C" Finnish replacement table .PSect SetFnD,D,RW SetFnt SF,'C,FontC .PSect VD$C,D,RO FONTC: FD SP01* FD SP02* FD SP04* FD SM01* ; # FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD SM05* ; @ FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD LA18* ; FD LO18* ; FD LA28* ; A ring FD LU18* ; FD SP09* ; _ FD LE11* ; FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD LA17* ; FD LO17* ; FD LA27* ; a ring FD LU17* ; .EndC .If NE Font$R .SbTtl NRC "R" French replacement table .PSect SetFnD,D,RW SetFnt F,'R,FontR SetFnt B,'R,FontR SetFnt CHF,'R,FontR .PSect VD$R,D,RO FontR: FD SP01* FD SP02* FD SP04* FD SC02* ; FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD LA13* ; FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD SM19* ; degree FD LC41* ; FD SM24* ; section FD SM09* ; ^ FD SP09* ; _ FD SM94* ; ` FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD LE11* ; FD LU13* ; FD LE13* ; FD SP04* ; " .EndC .If NE FONT$9 .SbTtl NRC "9" French-Canadienne replacement table .PSect SetFnD,D,RW SetFnt CDNF,'9,Font9 .PSect VD$9,D,RO Font9: FD SP01* FD SP02* FD SP04* FD SM01* ; # FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD LA13* ; FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD LA15* ; FD LC41* ; FD LE15* ; FD LI15* ; FD SP09* ; _ FD LO15* ; FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD LE11* ; FD LU13* ; FD LE13* ; FD LU15* ; .EndC .If NE FONT$K .SbTtl NRC "K" German replacement table .PSect SetFnD,D,RW SetFnt D,'K,FontK SetFnt A,'K,FontK SetFnt CHD,'K,FontK .PSect VD$K,D,RO FontK: FD SP01* FD SP02* FD SP04* FD SM01* ; # FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD SM24* ; section FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD LA18* ; FD LO18* ; FD LU18* ; FD SM09* ; ^ FD SP09* ; _ FD SM94* ; ` FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD LA17* ; FD LO17* ; FD LU17* ; FD LS61* ; .EndC .If NE FONT$Y .SbTtl NRC "Y" Italian replacement table .PSect SetFnD,D,RW SetFnt I,'Y,FontY .PSect VD$Y,D,RO FontY: FD SP01* FD SP02* FD SP04* FD SC02* ; FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD SM24* ; section FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD SM19* ; degree FD LC41* ; FD LE11* ; FD SM09* ; ^ FD SP09* ; _ FD LU13* ; FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD LA13* ; FD LO13* ; FD LE13* ; FD LI13* ; .EndC .If NE FONT$J .SbTtl NRC "J" Japanese-Roman replacement table .PSect SetFnD,D,RW SetFnt JR,'J,FontJ .PSect VD$J,D,RO FontJ: ;;; Note this differs from FONTB by 1 char (like FONTA) ;;; perhaps the FONTA check should done instead of a table FD SP01* FD SP02* FD SP04* FD SM01* ; # FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD SM05* ; @ FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD SM06* ; [ FD SC05* ; FD SM08* ; ] FD SM09* ; ^ FD SP09* ; _ FD SM94* ; ` FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD SM11* ; { FD SM13* ; | FD SM14* ; } FD SD19* ; ~ .EndC .If NE FONT$6 .SbTtl NRC "6" Norwegian/Danish replacement table .PSect SetFnD,D,RW SetFnt N,'6,Font6 SetFnt DK,'6,Font6 .PSect VD$6,D,RO Font6: FD SP01* FD SP02* FD SP04* FD SM01* ; # FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD LA18* ; FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD LA52* ; FD LO62* ; FD LA28* ; A ring FD LU18* ; FD SP09* ; _ FD LA17* ; FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD LA51* ; FD LO61* ; FD LA27* ; a ring FD LU17* ; .EndC .If NE FONT$Z .SbTtl NRC "Z" Spanish replacement table .PSect SetFnD,D,RW SetFnt E,'Z,FontZ SetFnt SP,'Z,FontZ .PSect VD$Z,D,RO FontZ: FD SP01* FD SP02* FD SP04* FD SC02* ; FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD SM24* ; section FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD SP03* ; invert ! FD LN20* ; FD SP16* ; invert ? FD SM09* ; ^ FD SP09* ; _ FD SM94* ; ` FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD SM19* ; degree FD LN19* ; FD LC41* ; FD SD19* ; ~ .EndC .If NE FONT$7 .SbTtl NRC "7" Swedish replacement table .PSect SetFnD,D,RW SetFnt S,'7,Font7 .PSect VD$7,D,RO Font7: FD SP01* FD SP02* FD SP04* FD SM01* ; # FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD LE12* ; FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD LA18* ; FD LO18* ; FD LA28* ; A ring FD LU18* ; FD SP09* ; _ FD LE11* ; FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD LA17* ; FD LO17* ; FD LA27* ; a ring FD LU17* ; .EndC .If NE FONT$A .SbTtl NRC "A" United Kingdom replacement table .PSect SetFnF,RW,D SetFnt GB,'A,VD$SNR .PSect SetFnD,D,RW SetFnt IRL,'A,FontA .....9=1 .Rept 3 .IIf EQ .....9-1, .PSect VD$MNR,D,RW .IIf EQ .....9-2, .PSect VD$SNR,D,RW .IIf EQ .....9-3, .PSect VD$A,D,RO .IIf EQ .....9-2,VD$SNR:: .IIf EQ .....9-3,FontA: FD SP01* FD SP02* FD SP04* FD SC02* ; FD SC03* FD SM02* FD SM03* FD SP05* FD SP06* FD SP07* FD SM04* FD SA01* FD SP08* FD SP10* FD SP11* FD SP12* FD ND01* FD ND02* FD ND03* FD ND04* FD ND05* FD ND06* FD ND07* FD ND08* FD ND09* .Page FD ND10* FD SP13* FD SP14* FD SA03* FD SA04* FD SA05* FD SP15* FD SM05* ; @ FD LA02* FD LB02* FD LC02* FD LD02* FD LE02* FD LF02* FD LG02* FD LH02* FD LI02* FD LJ02* FD LK02* FD LL02* FD LM02* FD LN02* FD LO02* FD LP02* FD LQO2* FD LR02* FD LS02* .Page FD LT02* FD LU02* FD LV02* FD LW02* FD LX02* FD LY02* FD LZ02* FD SM06* ; [ FD SM07* ; \ FD SM08* ; ] FD SM09* ; ^ FD SP09* ; _ FD SM94* ; ` FD LA01* FD LB01* FD LC01* FD LD01* FD LE01* FD LF01* FD LG01* FD LH01* FD LI01* FD LJ01* FD LK01* FD LL01* FD LM01* FD LN01* .Page FD LO01* FD LP01* FD LQ01* FD LR01* FD LS01* FD LT01* FD LU01* FD LV01* FD LW01* FD LX01* FD LY01* FD LZ01* FD SM11* ; { FD SM13* ; | FD SM14* ; } FD SD19* ; ~ .....9=.....9+1 .EndR .EndC .SbTtl Pixel pattern vectors .List LOC,BIN .If EQ Chec$k .If EQ MMG$T .Macro ...Fnt X Z .IIf NDF F'X'Z .MExit .Save .PSect VD$80,D,RO B'X'Z: .Word ...V2 .Restore .EndM ...V2=0 ; "loop variable" for outer .Rept .Rept ...V3+1 ...Fnt \...V2 A ...V2=...V2+1 .EndR .IfF .Macro ...Fnt X Z .IIf NDF F'X'Z .MExit .Save .PSect VD$80,D,RO .Word ...V2 .PSect VD$132,D,RO B'X'Z: .Word F'X'Z .Restore .EndM .If EQ FONT$$ ...V2=0 ; "loop variable" for outer .Rept .Rept ...V3+1 .IrpC Z, ...Fnt \...V2 Z .EndR ...V2=...V2+1 .EndR .IfF ...V2=0 ; "loop variable" for outer .Rept .Rept ...V3+1 .IrpC Z, ...Fnt \...V2 Z .EndR ...V2=...V2+1 .EndR .EndC .EndC .EndC .End