10REM A new Font For The BBC Micro
20REM By Andrew York in 1996.
30REM You can use the font in
40REM your own programs.
50:
60REM TO RUN THIS PROGRAM TYPE:
70REM PAGE=PAGE+&600:CHAIN"FONT"
80:
90*FX20,6
100MODE1:VDU23,1,0;0;0;0;:COLOUR2:PRIN
T"Please Wait ..."
110:
120REM The font starts here.
130VDU23,65,126,102,102,126,102,102,10
2,0
140VDU23,66,126,102,102,124,102,102,12
6,0
150VDU23,67,126,102,96,96,96,102,126,0
160VDU23,68,124,110,102,102,102,110,12
4,0
170VDU23,69,126,126,96,124,124,96,126,
0
180VDU23,70,126,126,96,124,124,96,96,0
190VDU23,71,126,102,96,110,102,102,126
,0
200VDU23,72,102,102,102,126,126,102,10
2,0
210VDU23,73,60,24,24,24,24,24,60,0
220VDU23,74,62,12,12,12,12,108,124,0
230VDU23,75,102,124,120,112,120,124,10
2,0
240VDU23,76,96,96,96,96,96,126,126,0
250VDU23,77,119,127,127,107,107,99,99,
0
260VDU23,78,102,118,126,126,110,102,10
2,0
270VDU23,79,126,102,102,102,102,102,12
6,0
280VDU23,80,126,102,102,126,96,96,96,0
290VDU23,81,126,102,102,102,110,108,11
8,0
300VDU23,82,126,102,102,124,110,102,10
2,0
310VDU23,83,126,102,96,126,6,102,126,0
320VDU23,84,126,126,24,24,24,24,24,0
330VDU23,85,102,102,102,102,102,102,12
6,0
340VDU23,86,102,102,102,102,102,126,24
,0
350VDU23,87,99,99,107,107,127,119,119,
0
360VDU23,88,102,102,126,24,126,102,102
,0
370VDU23,89,102,102,102,126,24,24,24,0
380VDU23,90,126,126,12,24,48,126,126,0
390VDU23,91,124,112,112,112,112,112,12
4,0
400VDU23,92,0,96,112,56,28,14,6,0
410VDU23,93,62,14,14,14,14,14,62,0
420VDU23,94,24,126,102,66,0,0,0,0
430VDU23,95,0,0,0,0,0,0,255,255
440VDU23,96,62,54,48,124,48,48,126,0
450VDU23,97,0,0,126,6,126,102,126,0
460VDU23,98,96,96,126,102,102,102,126,
0
470VDU23,99,0,0,126,102,96,102,126,0
480VDU23,100,6,6,126,102,102,102,126,0
490VDU23,101,0,0,126,102,126,96,124,0
500VDU23,102,60,48,48,124,48,48,48,0
510VDU23,103,0,0,126,102,102,126,6,62
520VDU23,104,96,96,126,102,102,102,102
,0
530VDU23,105,24,0,24,24,24,24,24,0
540VDU23,106,24,0,56,24,24,24,24,120
550VDU23,107,96,96,102,124,120,124,102
,0
560VDU23,108,56,24,24,24,24,24,60,0
570VDU23,109,0,0,119,127,107,107,99,0
580VDU23,110,0,0,126,102,102,102,102,0
590VDU23,111,0,0,126,102,102,102,126,0
600VDU23,112,0,0,126,102,102,126,96,96
610VDU23,113,0,0,126,102,102,126,6,7
620VDU23,114,0,0,126,126,96,96,96,0
630VDU23,115,0,0,126,96,126,6,126,0
640VDU23,116,48,48,60,48,48,48,60,0
650VDU23,117,0,0,102,102,102,102,126,0
660VDU23,118,0,0,102,102,102,102,126,2
4,0
670VDU23,119,0,0,99,107,127,119,119,0
680VDU23,120,0,0,102,126,24,126,102,0
690VDU23,121,0,0,102,102,102,126,6,62
700VDU23,122,0,0,126,14,28,112,126,0
710VDU23,128,102,255,255,255,255,126,6
0,24
720VDU23,129,0,119,85,119,0,73,65,127
730VDU23,130,56,56,16,124,16,16,40,108
740VDU23,131,56,86,215,239,187,198,124
,56
750VDU23,132,174,164,164,164,228,164,1
64,174
760VDU23,133,24,60,126,255,24,24,24,24
770VDU23,134,24,24,24,24,255,126,60,24
780VDU23,135,16,48,112,255,255,255,112
,48,16
790VDU23,136,24,28,30,255,255,30,28,24
800VDU23,137,24,60,126,255,255,126,60,
24
810VDU23,33,60,60,60,60,60,0,60,0
820VDU23,48,126,102,110,126,118,102,12
6,0
830VDU23,49,120,24,24,24,24,24,126,0
840VDU23,50,126,102,6,12,24,48,126,0
850VDU23,51,126,102,6,30,6,102,126,0
860VDU23,52,28,60,108,76,126,12,12,0
870VDU23,53,126,96,126,6,6,102,126,0
880VDU23,54,28,48,96,126,102,102,126,0
890VDU23,55,126,6,6,62,48,48,48,0
900VDU23,56,126,102,102,60,102,102,126
,0
910VDU23,57,126,102,102,126,6,12,60,0
920:
930REM The font ends here.
940CLS:COLOUR 2:PROCdemo
950END
960DEFPROCdemo:PRINTTAB(7,1);"A new Fo
nt For The BBC Micro."
970PRINTTAB(9,2);"By Andrew York in 19
96."
980B=0:REPEAT:PRINT:B=B+1
990FOR A = 65 TO 90
1000VDUA;32
1010NEXT A
1020FOR A=97 TO 122
1030VDU A;32
1040NEXT A
1050FOR A = 48 TO 57
1060VDUA;32
1070NEXT A:VDU33,32;
1080FOR A = 128 TO 137
1090VDUA;32
1100NEXT A
1110PRINT:UNTIL B=5
1120PRINT'" You can use this font in y
our own"
1130PRINTTAB(10);"programs."
1140END