SMLFONT.BAS (Was: Re: Tex

 BBS: Inland Empire Archive
Date: 07-06-92 (07:57)             Number: 175
From: MIKE KELLY                   Refer#: NONE
  To: RICK PEDLEY                   Recvd: NO  
Subj: SMLFONT.BAS (Was: Re: Tex      Conf: (2) Quik_Bas

' Public Domain by Michael J. Kelly, 7/6/92
' Creates an 8x8 sans serif EGA/VGA font
DEFINT A-Z  ' Created by BIN2QB.EXE freeware 6/92
CLS : PRINT "Creating SMLFONT.FNT"
OPEN "SMLFONT.FNT" FOR BINARY AS #1
ON ERROR GOTO Done
DO
  READ Lyne$:LynLen=LEN(Lyne$):PRINT ".";
  FOR j = 1 TO LynLen STEP 2
    Char$="&H"+MID$(Lyne$,j,2):Ascii=VAL(Char$)
    ChkSum = (ChkSum + Ascii) * 2
    ChkSum = (ChkSum \ 256) + (ChkSum MOD 256)
    Char$=CHR$(Ascii)
    PUT #1, , Char$:NEXT j:LOOP
DATA 00000000000000007E81A581BD99817E7EFFDBFFC3E7FF7E6CFEFEFE7C38100010
DATA 387CFE7C381000387C38FEFE7C387C1010387CFE7C387C0000183C3C180000FFFF
DATA E7C3C3E7FFFF003C664242663C00FFC399BDBD99C3FF0F070F7DCCCCCC783C6666
DATA 663C187E183F333F303070F0E07F637F636367E6C0995A3CE7E73C5A9980E0F8FE
DATA F8E08000020E3EFE3E0E0200183C7E18187E3C1866666666660066007FDBDB7B1B
DATA 1B1B003E63386C6C38CC78000000007E7E7E00183C7E187E3C18FF183C7E181818
DATA 1800181818187E3C180000180CFE0C180000003060FE603000000000C0C0C0FE00
DATA 00002466FF6624000000183C7EFFFF000000FFFF7E3C1800000000000000000000
DATA 30787830300030006C6C6C00000000006C6CFE6CFE6C6C00307CC0780CF8300000
DATA C6CC183066C600386C3876DCCC76006060C0000000000018306060603018006030
DATA 18181830600000663CFF3C660000003030FC303000000000000000303060000000
DATA FC000000000000000000303000060C183060C080007CC6CEDEF6E67C0030703030
DATA 303030007CC60C3860C0FE00FC0C18380CCC78001C3C6CCCFC0C0C00FEC0FC0606
DATA C67C003C60C0FCC6C67C00FEC6060C183030007CC6C67CC6C67C007CC6C67E060C
DATA 780000303000003030000030300000303060183060C0603018000000FC0000FC00
DATA 006030180C1830600078CC0C18300030007CC6DEDEDEC07800387CC6C6FEC6C600
DATA FCC6C6FCC6C6FC003C66C0C0C0663C00F8CCC6C6C6CCF800FEC0C0F8C0C0FE00FE
DATA C0C0F8C0C0C0003C66C0C0CE663E00C6C6C6FEC6C6C6007E18181818187E000606
DATA 0606C6C67C00C6C6CCF8CCC6C600C0C0C0C0C0C0FE00C6EEFEFED6C6C600C6E6F6
DATA DECEC6C6007CC6C6C6C6C67C00FCC6C6FCC0C0C0007CC6C6C6CE7C1E00FCC6C6FC
DATA CCC6C6007EC6E07C0EC6FC00FC30303030303000C6C6C6C6C6C6FE00C6C6C6C6C6
DATA 7C3800C6C6C6D6FEEEC600C6C66C38386CC600CCCCCC7830303000FE060C183060
DATA FE007860606060607800C06030180C060200781818181818780010386CC6000000
DATA 0000000000000000FF303018000000000000007C067EC67E00C0C0FCC6C6C6FC00
DATA 00007EC0C0C07E0006067EC6C6C67E0000007CC6FEC07C003C6660F06060600000
DATA 007EC6C67E06FCC0C0DCE6C6C6C60030003030303030000600060606C6C67CC0C0
DATA C6CCF8CCC60030303030303030000000C6EEFED6C6000000FCC6C6C6C60000007C
DATA C6C6C67C000000FCC6C6FCC0C000007EC6C67E06060000BCE6C2C0C00000007CC0
DATA 7C067C001030FE3030321C000000CCCCCCCC76000000C6C6C67C38000000C6D6FE
DATA FE6C000000C66C386CC6000000C6C6C67E06FC0000FC183060FC001C3030E03030
DATA 1C001818180018181800E030301C3030E00076DC0000000000000010386CC6C6FE
DATA 0078CCC0CC78180C7800CC00CCCCCC7E001C0078CCFCC078007EC33C063E663F00
DATA CC00780C7CCC7E00E000780C7CCC7E003030780C7CCC7E00000078C0C0780C387E
DATA C33C667E603C00CC0078CCFCC07800E00078CCFCC07800CC007030303078007CC6
DATA 381818183C00E000703030307800C6386CC6FEC6C60030300078CCFCCC001C00FC
DATA 607860FC0000007F0C7FCC7F003E6CCCFECCCCCE0078CC0078CCCC780000CC0078
DATA CCCC780000E00078CCCC780078CC00CCCCCC7E0000E000CCCCCC7E0000CC00CCCC
DATA 7C0CF8C3183C66663C1800CC00CCCCCCCC780018187EC0C07E1818386C64F060E6
DATA FC00CCCC78FC30FC3030F8CCCCFAC6CFC6C70E1B183C1818D8701C00780C7CCC7E
DATA 003800703030307800001C0078CCCC7800001C00CCCCCC7E0000F800F8CCCCCC00
DATA FC00CCECFCDCCC003C6C6C3E007E0000386C6C38007C000030003060C0CC780000
DATA 0000FCC0C00000000000FC0C0C0000C3C6CCDE3366CC0FC3C6CCDB376FCF031818
DATA 001818181800003366CC6633000000CC663366CC0000228822882288228855AA55
DATA AA55AA55AADB77DBEEDB77DBEE181818181818181818181818F81818181818F818
DATA F818181836363636F636363600000000FE3636360000F818F81818183636F606F6
DATA 36363636363636363636360000FE06F63636363636F606FE00000036363636FE00
DATA 00001818F818F800000000000000F8181818181818181F00000018181818FF0000
DATA 0000000000FF181818181818181F18181800000000FF00000018181818FF181818
DATA 18181F181F1818183636363637363636363637303F00000000003F303736363636
DATA 36F700FF0000000000FF00F736363636363730373636360000FF00FF0000003636
DATA F700F73636361818FF00FF00000036363636FF0000000000FF00FF181818000000
DATA 00FF363636363636363F00000018181F181F00000000001F181F18181800000000
DATA 3F36363636363636FF3636361818FF18FF18181818181818F8000000000000001F
DATA 181818FFFFFFFFFFFFFFFF00000000FFFFFFFFF0F0F0F0F0F0F0F00F0F0F0F0F0F
DATA 0F0FFFFFFFFF00000000000076DCC8DC76000078CCF8CCF8C0C000FCCCC0C0C0C0
DATA 0000FE6C6C6C6C6C00FCCC603060CCFC0000007ED8D8D8700000666666667C60C0
DATA 0076DC1818181800FC3078CCCC7830FC386CC6FEC66C3800386CC6C66C6CEE001C
DATA 30187CCCCC780000007EDBDB7E0000060C7EDBDB7E60C03860C0F8C060380078CC
DATA CCCCCCCCCC0000FC00FC00FC00003030FC303000FC00603018306000FC00183060
DATA 301800FC000E1B1B18181818181818181818D8D870303000FC003030000076DC00
DATA 76DC0000386C6C3800000000000000181800000000000000180000000F0C0C0CEC
DATA 6C3C1C786C6C6C6C000000701830607800000000003C3C3C3C0000000000000000
DATA 0000
Done:
CLOSE #1: PRINT
IF ChkSum<> 208  THEN
  PRINT "DATA corrupt!  File deleted."
  KILL "SMLFONT.FNT"
END IF: END
~~

--- QM v1.00
 * Origin: Russian House, Portland, OR, USA (1:105/23.48)