Two Fontz!¢----------¢¢Written by John E. (TEBSF).¢¢Have you ever wished to have two¢different fonts on a Mode 0 screen at¢the same time? If so then this program¢is for you!¢All the hard work is already done for¢you, all you have to do is follow a¢few 'rules' and modify a little to suit¢your own preferations.¢Firstly though, the program...¢¢DO NOT DELETE LINE 0! This line should¢always be first because it loads the¢fonts and then does a 'CLR' so that¢if (say) you already use 'A$' in your¢program you will not get an error-9¢when you try to DIMension it.¢Line 1 GOSUBs line 32765 and this is to¢start the effect, you may delete this¢line and insert where it is needed in¢your program, you must always do a¢GOSUB 32765 after a GRAPHICS 0 call.¢Lines 2-3 can be deleted, they are just¢an example.¢Now the main part of the program...¢Lines 32750-32756 is the font loading¢part of the program, it loads the two¢fonts into the highest possible free¢memory and stores the display list¢interrupt (which allows the two fonts)¢into the bottom of Page 6 and start of¢Page 7, if your program also uses¢Page 6 then there is a good chance that¢they will not collide as my routine¢uses only a few bytes at the end of¢Page 6.¢If you wish to rename the fonts that¢are loaded then modify lines 32753 and¢32755. IMPORTANT! Do not change the¢IOCB number! You should have no reason¢to do this anyway if you follow my¢instructions and make sure line 0 IS¢line 0! After the loading all used¢IOCB's are closed, so if you use this¢IOCB number for your keyboard GET's,¢everything will be fine.¢The next part of the program is the¢'turn fonts ON' part.¢Line 32765 pokes start of DLI into the¢DLI vectors (512 and 513) and turns on¢the DLI's, it also stores the start of¢the DList to be used below...¢Line 32766 is the place the second font¢will start, add a number from 6-27 to¢DL (at the moment it is 16, which is¢central) and the second fonts will¢start higher or lower on the screen.¢If you want to mess about with this¢line then after modifying press RESET¢to clear the old DLI and type¢GOSUB 32765 to start the new one.¢I'd advise you to do a POKE 559,0¢before any disk I/O, turn the screen¢back on with POKE 559,34 (will be¢different if you are using PMG's) after¢all the disk access has ceased. Why?¢Try loading a file with two fonts on¢the screen and see!¢I think that is it all explained, if¢you have problems (do not mention the¢keyboard glitch!) then do not hesitate¢to contact me to ask.¢Many thanx to Spite for giving me the¢idea for this program.¢
