) G ****************************************************************? * Module name : d2n.bas *? * Purpose : Converts Database to Newsdesk Font *+( * Created : 25-09-89 * 22 * Last edited : 05-10-89 Version 1.0 *1< * Copyright : G R Buckeridge *GF ****************************************************************PeZ"................................"m"................"z"**"z"*"z".." d Pn a-e,g-yx (),()_() a(,)"Y"( )( )cl"H""E"6 mes(mes)a(,)mes"K"9 cl ();"Database to Newsdesk Font Converter"V a(,); "Database Font Name (without .EXT) ",fonfon%(fon)a a(,);"Database Font Name - ";fon;".FNT","Newsdesk Font Name - ";fon;".NEW";? s(fon".FNT")"" "File does not exist" 0"R",,fon".fnt", ,  "R",,fon".new", ,   start loop;"f";    `3" mes("Reading Database Character");;,'6   makeup char matrix @ #-J(x(,))((|(,))) T X^hr  |   ()  b1 mes("Setting up Newsdesk Char");; a(,);.  b()   <(b)x(|((), ), ) (b)T a(4, );"Char code = ";t(,);a(4,);"Character = "();  z&0 a(,);;"e":D end loopNX hex to binary+b()""  (l   (v   %   \  ()()z  ()()z PRINT a$(i)/ sets up first 384 bytes of Newsdesk file6"" mes("Initialising Newsdesk File");( ,())  _()()    #/ (#,())(`)(\,())*  4 #>(,())kH( )()($)()()( )(,())()()( )(d,())R  \ #fp6z each subsequent 128 byte block of newsdesk file9()()()(,())    ()     # binary TO hex     1 (,,)z $().8  1 (,,)z