Навчальна програма переведення дійсних чисел з 2,8,10,16 у 2,8,10,16 системи числення

clrscr();

gotoxy(13,23); cputs(" NUMBER SYSTEMS TRANSLATOR");

gotoxy(13,24); cputs("Education program (c) 2005 Victor Haydin aka Mace Windu");

gotoxy(13,25); cputs(" Press any key to continue");

while(!kbhit())

{

window(1,1,22,80);

textcolor(LIGHTGREEN);

gotoxy(1,1);

for(i=1;i<=1760;i++)

cprintf("%i",random(10));

textcolor(WHITE);

gotoxy(30,2); cputs("██████");

gotoxy(46,2); cputs("█████");

gotoxy(29,3); cputs("█");

gotoxy(36,3); cputs("█");

gotoxy(45,3); cputs("█");

gotoxy(51,3); cputs("█");

gotoxy(35,4); cputs("█");

gotoxy(45,4); cputs("█");

gotoxy(51,4); cputs("█");

gotoxy(34,5); cputs("█");

gotoxy(45,5); cputs("█");

gotoxy(51,5); cputs("█");

gotoxy(33,6); cputs("█");