💾 Archived View for blitter.com › OLGA › MUSIC › RESOURCES › MISC › OLGA_BROWSER › OLGA_EXTRACT › SR… captured on 2024-08-25 at 07:25:37.
⬅️ 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.