💾 Archived View for blitter.com › OLGA › MUSIC › RESOURCES › MISC › OLGA_BROWSER › OLGA_EXTRACT › SR… captured on 2024-08-25 at 07:25:37.

View Raw

More Information

⬅️ Previous capture (2022-06-12)

-=-=-=-=-=-=-

unit bold;

interface
const font:array [1..4096] of byte = (
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,60,66,129,231,165,153,129,153,66,60,0,0,0,0,
0,0,60,126,255,153,219,231,255,231,126,60,0,0,0,0,
0,0,0,0,102,255,255,255,255,126,60,24,0,0,0,0,
0,0,0,0,24,60,126,255,126,60,24,0,0,0,0,0,
0,0,0,24,60,60,90,255,255,90,24,60,0,0,0,0,
0,0,0,24,60,126,255,255,255,90,24,60,0,0,0,0,
0,0,0,0,0,24,60,126,126,60,24,0,0,0,0,0,
255,255,255,255,255,231,195,129,129,195,231,255,255,255,255,255,
0,0,0,0,60,102,195,129,129,195,102,60,0,0,0,0,
255,255,255,255,195,153,60,126,126,60,153,195,255,255,255,255,
0,15,7,15,29,56,126,231,231,231,231,126,0,0,0,0,
0,0,126,231,231,231,126,60,60,255,60,60,0,0,0,0,
0,0,24,28,30,31,31,29,28,124,252,248,112,0,0,0,
0,48,56,60,62,63,55,119,247,103,7,15,30,12,0,0,
0,24,24,219,219,126,60,255,60,126,219,219,24,24,0,0,
0,0,224,240,248,252,254,255,254,252,248,240,224,0,0,0,
0,0,7,15,31,63,127,255,127,63,31,15,7,0,0,0,
0,0,24,60,126,255,60,60,60,60,255,126,60,24,0,0,
0,0,238,238,238,238,238,238,238,0,238,238,0,0,0,0,
0,0,127,215,215,215,127,23,23,23,23,23,0,0,0,0,
0,30,62,120,220,206,231,115,59,30,124,120,0,0,0,0,
0,0,0,0,0,0,0,0,255,255,255,255,0,0,0,0,
0,0,24,60,126,255,60,60,60,60,255,126,60,24,255,0,
0,0,24,60,126,255,60,60,60,60,60,60,60,60,0,0,
0,0,60,60,60,60,60,60,60,60,255,126,60,24,0,0,
0,0,0,0,8,12,254,255,255,254,12,8,0,0,0,0,
0,0,0,0,16,48,127,255,255,127,48,16,0,0,0,0,
0,119,238,238,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,36,102,255,255,255,102,36,0,0,0,0,
0,0,0,0,24,60,60,126,126,255,255,0,0,0,0,0,
0,0,0,0,255,255,126,126,60,60,24,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,56,124,124,124,56,56,56,0,56,56,0,0,0,0,
0,119,119,238,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,102,102,255,255,102,255,255,102,102,0,0,0,0,
24,24,126,255,231,224,254,127,7,231,255,126,24,24,0,0,
0,64,226,230,78,30,60,120,240,228,206,142,4,0,0,0,
0,0,124,254,238,124,124,255,239,238,255,119,0,0,0,0,
0,28,56,112,0,0,0,0,0,0,0,0,0,0,0,0,
0,28,56,112,112,112,112,112,112,112,112,56,28,0,0,0,
0,56,28,14,14,14,14,14,14,14,14,28,56,0,0,0,
0,0,0,24,24,255,255,60,126,102,0,0,0,0,0,0,
0,0,0,0,56,56,254,254,56,56,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,28,56,112,0,0,0,
0,0,0,0,0,0,254,254,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,56,56,56,0,0,0,0,
0,0,2,6,14,30,60,120,240,224,192,128,0,0,0,0,
0,0,60,126,231,231,231,231,231,231,126,60,0,0,0,0,
0,0,28,60,124,28,28,28,28,28,28,28,0,0,0,0,
0,0,126,255,231,7,14,28,56,112,255,255,0,0,0,0,
0,0,126,255,231,7,62,62,7,231,255,126,0,0,0,0,
0,0,14,30,62,126,238,255,255,14,14,14,0,0,0,0,
0,0,255,255,224,254,255,7,7,231,255,126,0,0,0,0,
0,0,126,255,231,224,254,255,231,231,255,126,0,0,0,0,
0,0,255,255,7,7,14,28,28,56,56,56,0,0,0,0,
0,0,126,255,231,231,126,126,231,231,255,126,0,0,0,0,
0,0,126,255,231,231,255,127,7,231,255,126,0,0,0,0,
0,0,0,56,56,56,0,0,56,56,56,0,0,0,0,0,
0,0,0,56,56,56,0,0,56,56,56,112,0,0,0,0,
0,0,14,28,56,112,224,224,112,56,28,14,0,0,0,0,
0,0,0,0,0,254,254,0,254,254,0,0,0,0,0,0,
0,0,112,56,28,14,7,7,14,28,56,112,0,0,0,0,
0,0,126,255,231,7,14,28,28,0,28,28,0,0,0,0,
0,0,126,255,207,219,219,219,222,192,254,126,0,0,0,0,
0,0,24,60,60,126,102,231,255,255,231,231,0,0,0,0,
0,0,254,255,231,231,254,255,231,231,255,254,0,0,0,0,
0,0,126,255,231,224,224,224,224,231,255,126,0,0,0,0,
0,0,252,254,231,231,231,231,231,231,254,252,0,0,0,0,
0,0,255,255,224,224,252,252,224,224,255,255,0,0,0,0,
0,0,255,255,224,224,252,252,224,224,224,224,0,0,0,0,
0,0,62,127,231,224,224,239,231,227,127,62,0,0,0,0,
0,0,231,231,231,231,255,255,231,231,231,231,0,0,0,0,
0,0,124,124,56,56,56,56,56,56,124,124,0,0,0,0,
0,0,14,14,14,14,14,14,238,238,254,124,0,0,0,0,
0,0,231,231,238,238,252,252,238,238,231,231,0,0,0,0,
0,0,224,224,224,224,224,224,224,224,255,255,0,0,0,0,
0,0,195,231,255,255,255,231,231,231,231,231,0,0,0,0,
0,0,231,231,247,255,255,255,239,231,231,231,0,0,0,0,
0,0,126,255,231,231,231,231,231,231,255,126,0,0,0,0,
0,0,254,255,231,231,255,254,224,224,224,224,0,0,0,0,
0,0,126,255,231,231,231,231,231,247,255,126,15,7,0,0,
0,0,254,255,231,231,254,254,231,231,231,231,0,0,0,0,
0,0,126,255,231,224,254,127,7,231,255,126,0,0,0,0,
0,0,254,254,56,56,56,56,56,56,56,56,0,0,0,0,
0,0,231,231,231,231,231,231,231,231,255,126,0,0,0,0,
0,0,231,231,231,231,231,102,126,60,60,24,0,0,0,0,
0,0,231,231,231,231,231,255,255,255,102,102,0,0,0,0,
0,0,231,231,126,126,60,60,126,126,231,231,0,0,0,0,
0,0,238,238,238,238,124,124,56,56,56,56,0,0,0,0,
0,0,255,255,7,14,28,56,112,224,255,255,0,0,0,0,
0,62,62,56,56,56,56,56,56,56,56,62,62,0,0,0,
0,0,128,192,224,240,120,60,30,14,6,2,0,0,0,0,
0,124,124,28,28,28,28,28,28,28,28,124,124,0,0,0,
24,60,126,231,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,255,255,0,0,
0,112,56,28,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,62,127,7,127,231,255,127,0,0,0,0,
0,0,224,224,224,254,255,231,231,231,255,254,0,0,0,0,
0,0,0,0,0,126,255,231,224,231,255,126,0,0,0,0,
0,0,7,7,7,127,255,231,231,231,255,127,0,0,0,0,
0,0,0,0,0,126,255,231,255,224,254,126,0,0,0,0,
0,0,62,127,115,112,252,252,112,112,112,112,0,0,0,0,
0,0,0,0,0,127,255,231,231,231,255,127,7,127,126,0,
0,0,224,224,224,254,255,231,231,231,231,231,0,0,0,0,
0,0,56,56,0,56,56,56,56,56,56,56,0,0,0,0,
0,0,14,14,0,14,14,14,14,14,14,14,238,254,124,0,
0,0,224,224,224,231,239,252,252,238,231,231,0,0,0,0,
0,0,56,56,56,56,56,56,56,56,56,56,0,0,0,0,
0,0,0,0,0,195,231,255,255,231,231,231,0,0,0,0,
0,0,0,0,0,238,255,247,231,231,231,231,0,0,0,0,
0,0,0,0,0,126,255,231,231,231,255,126,0,0,0,0,
0,0,0,0,0,254,255,231,231,231,255,254,224,224,224,0,
0,0,0,0,0,127,255,231,231,231,255,127,7,7,7,0,
0,0,0,0,0,238,255,247,224,224,224,224,0,0,0,0,
0,0,0,0,0,126,255,240,126,15,255,126,0,0,0,0,
0,0,24,56,56,254,254,56,56,56,62,30,0,0,0,0,
0,0,0,0,0,231,231,231,231,231,255,126,0,0,0,0,
0,0,0,0,0,231,231,231,126,126,60,24,0,0,0,0,
0,0,0,0,0,231,231,231,255,255,231,195,0,0,0,0,
0,0,0,0,0,231,231,126,60,126,231,231,0,0,0,0,
0,0,0,0,0,231,231,231,231,231,255,127,7,127,126,0,
0,0,0,0,0,255,255,30,60,120,255,255,0,0,0,0,
0,15,31,28,28,28,120,120,28,28,28,31,15,0,0,0,
0,56,56,56,56,56,56,56,56,56,56,56,56,0,0,0,
0,240,248,56,56,56,30,30,56,56,56,248,240,0,0,0,
0,0,118,254,220,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,24,60,126,231,231,255,255,0,0,0,0,0,0,
0,0,126,255,231,224,224,224,224,231,255,126,28,28,254,252,
0,0,231,231,0,231,231,231,231,231,255,126,0,0,0,0,
0,14,28,56,0,126,255,231,255,224,254,126,0,0,0,0,
24,60,126,231,0,62,127,7,127,231,255,127,0,0,0,0,
0,0,119,119,0,62,127,7,127,231,255,127,0,0,0,0,
0,112,56,28,0,62,127,7,127,231,255,127,0,0,0,0,
0,62,119,62,0,62,127,7,127,231,255,127,0,0,0,0,
0,0,0,0,0,126,255,231,224,231,255,126,28,28,254,252,
24,60,126,231,0,126,255,231,255,224,254,126,0,0,0,0,
0,0,231,231,0,126,255,231,255,224,254,126,0,0,0,0,
0,112,56,28,0,126,255,231,255,224,254,126,0,0,0,0,
0,0,238,238,0,56,56,56,56,56,56,56,0,0,0,0,
24,60,126,231,0,56,56,56,56,56,56,56,0,0,0,0,
0,224,112,56,0,56,56,56,56,56,56,56,0,0,0,0,
231,231,24,60,60,126,102,231,255,255,231,231,0,0,0,0,
60,102,60,60,60,126,102,231,255,255,231,231,0,0,0,0,
14,28,56,255,255,224,252,252,224,224,255,255,0,0,0,0,
0,0,0,0,0,238,255,59,127,220,255,119,0,0,0,0,
0,0,31,63,60,108,111,127,252,236,239,239,0,0,0,0,
24,60,126,231,0,126,255,231,231,231,255,126,0,0,0,0,
0,0,231,231,0,126,255,231,231,231,255,126,0,0,0,0,
0,112,56,28,0,126,255,231,231,231,255,126,0,0,0,0,
24,60,126,231,0,231,231,231,231,231,255,126,0,0,0,0,
0,112,56,28,0,231,231,231,231,231,255,126,0,0,0,0,
0,0,231,231,0,231,231,231,231,231,255,127,7,126,124,0,
231,231,0,126,255,231,231,231,231,231,255,126,0,0,0,0,
231,231,0,231,231,231,231,231,231,231,255,126,0,0,0,0,
0,0,0,28,28,126,255,231,224,231,255,126,28,28,0,0,
0,62,127,115,112,112,252,252,112,113,255,254,0,0,0,0,
0,0,195,231,126,60,255,255,60,255,255,60,60,0,0,0,
0,0,254,255,231,231,255,254,226,230,239,239,6,6,7,3,
0,0,30,63,59,56,124,124,56,56,56,56,184,248,112,0,
0,14,28,56,0,62,127,7,127,231,255,127,0,0,0,0,
0,14,28,56,0,56,56,56,56,56,56,56,0,0,0,0,
0,14,28,56,0,126,255,231,231,231,255,126,0,0,0,0,
0,14,28,56,0,231,231,231,231,231,255,126,0,0,0,0,
0,118,254,220,0,238,255,247,231,231,231,231,0,0,0,0,
118,254,220,0,231,231,247,255,255,239,231,231,0,0,0,0,
0,62,127,7,127,231,255,127,0,255,255,0,0,0,0,0,
0,126,255,231,231,231,255,126,0,255,255,0,0,0,0,0,
0,0,56,56,0,56,56,112,224,231,255,126,0,0,0,0,
0,0,0,0,0,0,254,254,224,224,224,0,0,0,0,0,
0,0,0,0,0,0,254,254,14,14,14,0,0,0,0,0,
0,112,241,115,119,126,28,56,112,254,219,134,15,31,0,0,
0,112,241,115,119,126,28,56,119,239,215,191,63,7,0,0,
0,0,56,56,0,56,56,56,124,124,124,56,0,0,0,0,
0,0,0,0,0,119,238,220,238,119,0,0,0,0,0,0,
0,0,0,0,0,238,119,59,119,238,0,0,0,0,0,0,
130,16,130,16,130,16,130,16,130,16,130,16,130,16,130,16,
146,73,146,73,146,73,146,73,146,73,146,73,146,73,146,73,
216,195,219,27,216,195,219,27,216,195,219,27,216,195,219,27,
28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,
28,28,28,28,28,28,28,252,252,28,28,28,28,28,28,28,
28,28,28,28,28,252,252,28,28,252,252,28,28,28,28,28,
238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,
0,0,0,0,0,0,0,254,238,238,238,238,238,238,238,238,
0,0,0,0,0,252,252,28,28,252,252,28,28,28,28,28,
238,238,238,238,238,238,238,14,14,238,238,238,238,238,238,238,
238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,238,
0,0,0,0,0,254,254,14,14,238,238,238,238,238,238,238,
238,238,238,238,238,238,238,14,14,254,254,0,0,0,0,0,
238,238,238,238,238,238,238,254,254,0,0,0,0,0,0,0,
28,28,28,28,28,252,252,28,28,252,252,0,0,0,0,0,
0,0,0,0,0,0,0,252,252,28,28,28,28,28,28,28,
28,28,28,28,28,28,28,31,31,0,0,0,0,0,0,0,
28,28,28,28,28,28,28,255,255,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,255,255,28,28,28,28,28,28,28,
28,28,28,28,28,28,28,31,31,28,28,28,28,28,28,28,
0,0,0,0,0,0,0,255,255,0,0,0,0,0,0,0,
28,28,28,28,28,28,28,255,255,28,28,28,28,28,28,28,
28,28,28,28,28,31,31,28,28,31,31,28,28,28,28,28,
238,238,238,238,238,238,238,239,239,238,238,238,238,238,238,238,
238,238,238,238,238,239,239,224,224,255,255,0,0,0,0,0,
0,0,0,0,0,255,255,224,224,239,239,238,238,238,238,238,
238,238,238,238,238,239,239,0,0,255,255,0,0,0,0,0,
0,0,0,0,0,255,255,0,0,239,239,238,238,238,238,238,
238,238,238,238,238,239,239,224,224,239,239,238,238,238,238,238,
0,0,0,0,0,255,255,0,0,255,255,0,0,0,0,0,
238,238,238,238,238,239,239,0,0,239,239,238,238,238,238,238,
28,28,28,28,28,255,255,0,0,255,255,0,0,0,0,0,
238,238,238,238,238,238,238,255,255,0,0,0,0,0,0,0,
0,0,0,0,0,255,255,0,0,255,255,28,28,28,28,28,
0,0,0,0,0,0,0,255,255,238,238,238,238,238,238,238,
238,238,238,238,238,238,238,255,255,0,0,0,0,0,0,0,
28,28,28,28,28,31,31,28,28,31,31,0,0,0,0,0,
0,0,0,0,0,31,31,28,28,31,31,28,28,28,28,28,
0,0,0,0,0,0,0,255,255,238,238,238,238,238,238,238,
238,238,238,238,238,238,238,255,255,238,238,238,238,238,238,238,
28,28,28,28,28,255,255,0,0,255,255,28,28,28,28,28,
28,28,28,28,28,28,28,252,252,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,31,31,28,28,28,28,28,28,28,
255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255,
240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,240,
15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,
255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,119,255,236,238,255,115,0,0,0,0,
0,0,62,127,231,230,236,238,231,231,239,238,224,224,0,0,
0,0,255,255,231,231,224,224,224,224,224,224,0,0,0,0,
0,0,0,0,3,127,255,246,119,119,119,102,0,0,0,0,
0,0,254,254,224,112,56,56,112,224,254,254,0,0,0,0,
0,0,0,0,0,127,255,236,238,238,254,124,0,0,0,0,
0,0,0,0,0,231,231,231,231,231,255,254,224,224,192,0,
0,0,0,0,111,255,184,56,56,56,56,56,0,0,0,0,
0,254,254,56,124,238,238,238,124,56,254,254,0,0,0,0,
0,0,0,60,126,231,231,255,231,231,126,60,0,0,0,0,
0,0,60,126,231,231,231,231,102,102,231,231,0,0,0,0,
0,0,63,127,56,28,126,255,231,231,255,126,0,0,0,0,
0,0,0,0,110,255,219,219,219,255,118,0,0,0,0,0,
0,0,1,3,6,126,239,255,247,126,96,192,128,0,0,0,
0,0,62,126,224,224,254,254,224,224,126,62,0,0,0,0,
0,0,0,126,255,231,231,231,231,231,231,231,0,0,0,0,
0,0,0,255,255,0,255,255,0,255,255,0,0,0,0,0,
0,0,0,56,56,254,254,56,56,0,254,254,0,0,0,0,
0,0,112,56,28,14,28,56,112,0,255,255,0,0,0,0,
0,0,14,28,56,112,56,28,14,0,255,255,0,0,0,0,
0,0,0,30,63,63,56,56,56,56,56,56,56,56,56,56,
56,56,56,56,56,56,56,56,56,248,248,112,0,0,0,0,
0,0,0,0,56,56,0,254,254,0,56,56,0,0,0,0,
0,0,0,0,118,254,220,0,118,254,220,0,0,0,0,0,
124,254,238,238,254,124,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,60,60,60,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,24,24,0,0,0,0,0,0,0,
0,0,3,7,15,15,30,156,220,248,120,48,0,0,0,0,
0,220,254,238,238,238,238,0,0,0,0,0,0,0,0,0,
0,124,238,28,56,126,254,0,0,0,0,0,0,0,0,0,
0,0,0,0,126,126,126,126,126,126,126,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);

var b_on:boolean;

procedure bold_on;
procedure bold_off;
procedure chg_font;

implementation
uses crt;

procedure bold_on;
var o,s : word;
    p   : pointer;
begin
  p:=addr(font);
  asm
    pusha
    push bp
    push ds
    mov ah,11h
    mov al,0
    mov bh,10h
    mov bl,0
    mov cx,0100h
    mov dx,0
    push ds
    pop es
    mov bp, word ptr p
    int 10h
    pop ds
    pop bp
    popa
  end;
end;

procedure bold_off;
begin
  asm
    mov ah,11h
    mov al,04h
    mov bl,0
    int 10h
  end;
end;

procedure chg_font;
begin
  if b_on then bold_off else bold_on; b_on:=not b_on;
end;
end.