Syscont (779991), страница 5
Текст из файла (страница 5)
[565] outtextxy(x,y,Title_8); /* Teacher... */
[566]
[567] x=Maxx/2;
[568] y=24*ky;
[569] outtextxy(x,y,Title_9); /* Year... */
[570] /* SYSTEM... */
[571] settextstyle(TRIPLEX_FONT,HORIZ_DIR,0);
[572] setusercharsize(2,3,2,1);
[573] settextjustify(CENTER_TEXT,CENTER_TEXT);
[574] x=Maxx/2;
[575] y=11*ky;
[576] setcolor(CYAN);
[577] outtextxy(x,y,Title_2);
[578] setcolor(LIGHTGRAY);
[579] outtextxy(x-1,y-1,Title_2);
[580] setcolor(WHITE);
[581] outtextxy(x-2,y-2,Title_2);
[582] /* imitator */
[583] y=y+textheight("S");
[584] setcolor(CYAN);
[585] setusercharsize(2,3,3,2);
[586] outtextxy(x,y,Title_10);
[587] setcolor(LIGHTGRAY);
[588] outtextxy(x-1,y-1,Title_10);
[589] setcolor(WHITE);
[590] outtextxy(x-2,y-2,Title_10);
[591] /* Student... */
[592] setcolor(YELLOW);
[593] settextstyle(SMALL_FONT,HORIZ_DIR,6);
[594] settextjustify(CENTER_TEXT,CENTER_TEXT);
[595] x=Maxx/2;
[596] y=18*ky;
[597] outtextxy(x,y,Title_3);
[598] /*-------- Blinks */
[599] while(bioskey(1)==0)
[600] {
[601] /*---- Happy Work */
[602] col_rand=random(16);
[603] setcolor(col_rand);
[604] settextstyle(SMALL_FONT,HORIZ_DIR,3);
[605] settextjustify(RIGHT_TEXT,BOTTOM_TEXT);
[606] x=Maxx-6;
[607] y=Maxy-6;
[608] outtextxy(x,y,"A E S");
[609] y=y-textheight("H");
[610] settextstyle(SMALL_FONT,HORIZ_DIR,5);
[611] outtextxy(x,y,"HAPPY WORK");
[612] /*---- Title blink */
[613] /*
[614] settextstyle(TRIPLEX_FONT,HORIZ_DIR,0);
[615] setusercharsize(2,3,2,1);
[616] settextjustify(CENTER_TEXT,CENTER_TEXT);
[617] x=Maxx/2;
[618] y=11*ky;
[619] setcolor(CYAN);
[620] outtextxy(x,y,Title_2);
[621] if(col_rand%2) setcolor(LIGHTRED);
[622] else
[623] if(!col_rand%2) setcolor(LIGHTMAGENTA);
[624] outtextxy(x-1,y-1,Title_2);
[625] setcolor(WHITE);
[626] outtextxy(x-2,y-2,Title_2);
[627] */
[628] /*----*/
[629] delay(1);
[630] }
[631] bioskey(0);
[632] return 0;
[633] }
[634] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[635] int Start_program(int dx,int dy)
[636] {
[637] settextstyle(TRIPLEX_FONT,HORIZ_DIR,0);
[638] setusercharsize(2,3,3,1);
[639] settextjustify(CENTER_TEXT,CENTER_TEXT);
[640] setcolor(LIGHTGREEN);
[641] outtextxy
[642] (dx/2+15,(dy/2-10)," S T A R T P R O G R A M M E ");
[643] /*----*/
[644] setcolor(GREEN);
[645] EllipseN
[646] (dx/2,dy/2,0,360,(dx/2-40),(dy/2-20),4);
[647] setcolor(WHITE);
[648] EllipseN
[649] (dx/2,dy/2,0,360,(dx/2-40)-4,(dy/2-20)-4,2);
[650] /*----*/
[651] return 0;
[652] }
[653] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[654] int Black_case()
[655] {
[656] /*---- Variables */
[657] int address_dec;
[658] /*----*/
[659] if(Flag_ini==NOT_INI)
[660] {/*--------------------Beguin block NOT_INI */
[661] Openfile_exit();
[662] Get_date_pc_counted();
[663] fprintf
[664] (Fp2,
[665] "%s\n",Str_date_pc_counted);
[666] fprintf
[667] (Fp2,
[668] "File entry: %s\n",Fname_entry);
[669] /* */
[670] fprintf
[671] (Fp2,
[672] "File exit : %s\n",Fname_exit);
[673] /*---- Titles */
[674] if(Regime_work[0]=='0')
[675] fprintf
[676] (Fp2,
[677] "REGIME: 0.\nEXIT\n");
[678] if(Regime_work[0]=='1')
[679] fprintf
[680] (Fp2,
[681] "EGIME: 1.\nHand Command\n");
[682] if(Regime_work[0]=='2')
[683] fprintf
[684] (Fp2,
[685] "REGIME: 2.\nHand Time - Hand Command\n");
[686] if(Regime_work[0]=='3')
[687] fprintf
[688] (Fp2,
[689] "REGIME: 3.\nCommands file. \n Hand Interval const.\n");
[690] if(Regime_work[0]=='4')
[691] fprintf
[692] (Fp2,
[693] "REGIME: 4.\nCommands file with Intervals variable.\n");
[694] if(Regime_work[0]=='5')
[695] fprintf
[696] (Fp2,
[697] "REGIME: 5.\nCommands file with Times.\n");
[698] if
[699] (Regime_work[0]=='6')
[700] fprintf
[701] (Fp2,
[702] "REGIME: 6.\nStep by step.\n");
[703] }/*--------------------End block NOT_INI */
[704]
[705] if(Flag_ini==YES_INI)
[706] {/*--------------------Beguin block YES_INI */
[707] address_dec=A2*4+A1*2+A0*1;
[708] /*============================= ADDRESS 0,3 */
[709] if((address_dec==0) || (address_dec==3))
[710] {
[711] fprintf
[712] (Fp2,
[713] "----------------------------------------------\n");
[714]
[715] fprintf
[716] (Fp2,
[717] "Counter_commands---,H,M,S---,A2,A1,A0---,C2,C1,C0\n");
[718] fprintf
[719] (Fp2,"%ld---%1d:%1d:%1d---%1d%1d%1d---%1d%1d%1d\n",
[720] Counter_commands,H,M,S,A2,A1,A0,C2,C1,C0);
[721] }
[722] /*============================= ADDRESS 1 */
[723] if(address_dec==1)
[724] {
[725] fprintf
[726] (Fp2,
[727] "----------------------------------------------\n");
[728]
[729] fprintf
[730] (Fp2,
[731] "Counter_commands---,H,M,S---,A2,A1,A0---,C2,C1,C0\n");
[732] fprintf
[733] (Fp2,"%ld---%1d:%1d:%1d---%1d%1d%1d---%1d%1d%1d\n",
[734] Counter_commands,H,M,S,A2,A1,A0,C2,C1,C0);
[735] /*----*/
[736] fprintf
[737] (Fp2,
[738] "AI2,AI1,AI0--,And1,And2,And3--,Or1,Or2,Or3--,Z1,Z2,Z3\n");
[739] fprintf
[740] (Fp2,"%1d%1d%1d--%1d%1d%1d--%1d%1d%1d--%1d%1d%1d\n",
[741] AI2,AI1,AI0,And1,And2,And3,Or1,Or2,Or3,Z1,Z2,Z0);
[742] }
[743] /*============================= ADDRESS 2 */
[744] if(address_dec==2)
[745] {
[746] fprintf
[747] (Fp2,
[748] "----------------------------------------------\n");
[749]
[750] fprintf
[751] (Fp2,
[752] "Counter_commands---,H,M,S---,A2,A1,A0---,C2,C1,C0\n");
[753] fprintf
[754] (Fp2,"%ld---%1d:%1d:%1d---%1d%1d%1d---%1d%1d%1d\n",
[755] Counter_commands,H,M,S,A2,A1,A0,C2,C1,C0);
[756] /*----*/
[757] fprintf
[758] (Fp2,
[759] "AI2,AI1,AI0-,And1,And2,And3-,Or1,Or2,Or3,Or4-Inv1-,Z1,Z2\n");
[760] fprintf
[761] (Fp2,"%1d%1d%1d-%1d%1d%1d-%1d%1d%1d%1d-%1d-%1d%1d\n",
[762] AI2,AI1,AI0,And1,And2,And3,Or1,Or2,Or3,Or4,Inv1,Z1,Z0);
[763] }
[764] /*============================= END ADDRESS */
[765] }/*--------------------End block YES_INI */
[766] /*----*/
[767] return 0;
[768] }
[769] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[770] int End_program()
[771] {
[772] strcpy(Messages_exec," E N D P R O G R A M M E ");
[773] Mes_exec();
[774] STOP; STOP; exit(EXIT_SUCCESS);
[775] return 0;
[776] }
[777] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/
[778] int Addbus3bit(int kx,int ky)
[779] {
[780] clearviewport();
[781] /*---- Wires */
[782] setlinestyle(SOLID_LINE,0,NORM_WIDTH);
[783] setbkcolor(BLACK);
[784] setcolor(CYAN);
[785] setfillstyle(SOLID_FILL,LIGHTBLUE);
[786] /* A2 */
[787] line(6*kx,1*ky,54*kx,1*ky);
[788] fillellipse(54*kx,1*ky,2,1);
[789] line(54*kx,1*ky,54*kx,4*ky);
[790] /* A1 */
[791] line(6*kx,2*ky,50*kx,2*ky);
[792] fillellipse(50*kx,2*ky,2,1);
[793] line(50*kx,2*ky,50*kx,4*ky);
[794] /* A0 */
[795] line(6*kx,3*ky,46*kx,3*ky);
[796] fillellipse(46*kx,3*ky,2,1);
[797] line(46*kx,3*ky,46*kx,4*ky);
[798] /* ~A0 */
[799] line(6*kx,8*ky,46*kx,8*ky);
[800] fillellipse(46*kx,8*ky,2,1);
[801] line(46*kx,8*ky,46*kx,7*ky);
[802] /* ~A1 */
[803] line(6*kx,9*ky,50*kx,9*ky);
[804] fillellipse(50*kx,9*ky,2,1);
[805] line(50*kx,9*ky,50*kx,7*ky);
[806] /* ~A2 */
[807] line(6*kx,10*ky,54*kx,10*ky);
[808] fillellipse(54*kx,10*ky,2,1);
[809] line(54*kx,10*ky,54*kx,7*ky);
[810] /*---- To And 0 */
[811] line(7*kx,10*ky,7*kx,11*ky);
[812] fillellipse(7*kx,10*ky,2,1);
[813]
[814] line(8*kx,9*ky,8*kx,11*ky);
[815] fillellipse(8*kx,9*ky,2,1);
[816]
[817] line(9*kx,8*ky,9*kx,11*ky);
[818] fillellipse(9*kx,8*ky,2,1);
[819] /*---- To And 1 */
[820] line(12*kx,10*ky,12*kx,11*ky);
[821] fillellipse(12*kx,10*ky,2,1);
[822]
[823] line(13*kx,9*ky,13*kx,11*ky);
[824] fillellipse(13*kx,9*ky,2,1);
[825]
[826] line(14*kx,3*ky,14*kx,11*ky);
[827] fillellipse(14*kx,3*ky,2,1);
[828] /*---- To And 2 */
[829] line(17*kx,10*ky,17*kx,11*ky);
[830] fillellipse(17*kx,10*ky,2,1);
[831]
[832] line(18*kx,2*ky,18*kx,11*ky);
[833] fillellipse(18*kx,2*ky,2,1);
[834]
[835] line(19*kx,8*ky,19*kx,11*ky);
[836] fillellipse(19*kx,8*ky,2,1);
[837] /*---- To And 3 */
[838] line(22*kx,10*ky,22*kx,11*ky);
[839] fillellipse(22*kx,10*ky,2,1);
[840]
[841] line(23*kx,2*ky,23*kx,11*ky);
[842] fillellipse(23*kx,2*ky,2,1);
[843]
[844] line(24*kx,3*ky,24*kx,11*ky);
[845] fillellipse(24*kx,3*ky,2,1);
[846] /*---- To And 4 */
[847] line(27*kx,1*ky,27*kx,11*ky);
[848] fillellipse(27*kx,1*ky,2,1);
[849]
[850] line(28*kx,9*ky,28*kx,11*ky);
[851] fillellipse(28*kx,9*ky,2,1);
[852]
[853] line(29*kx,8*ky,29*kx,11*ky);
[854] fillellipse(29*kx,8*ky,2,1);
[855] /*---- To And 5 */
[856] line(32*kx,1*ky,32*kx,11*ky);
[857] fillellipse(32*kx,1*ky,2,1);
[858]
[859] line(33*kx,9*ky,33*kx,11*ky);
[860] fillellipse(33*kx,9*ky,2,1);
[861]
[862] line(34*kx,3*ky,34*kx,11*ky);
[863] fillellipse(34*kx,3*ky,2,1);
[864] /*---- To And 6 */
[865] line(37*kx,1*ky,37*kx,11*ky);
[866] fillellipse(37*kx,1*ky,2,1);
[867]
[868] line(38*kx,2*ky,38*kx,11*ky);
[869] fillellipse(38*kx,2*ky,2,1);
[870]
[871] line(39*kx,8*ky,39*kx,11*ky);
[872] fillellipse(39*kx,8*ky,2,1);
[873] /*---- To And 7 */
[874] line(42*kx,1*ky,42*kx,11*ky);
[875] fillellipse(42*kx,1*ky,2,1);
[876]
[877] line(43*kx,2*ky,43*kx,11*ky);
[878] fillellipse(43*kx,2*ky,2,1);
[879]
[880] line(44*kx,3*ky,44*kx,11*ky);
[881] fillellipse(44*kx,3*ky,2,1);
[882] /*---- To COMMUTATOR */
[883] line( 8*kx,14*ky, 8*kx,18*ky);
[884] line(13*kx,14*ky,13*kx,18*ky);
[885] line(18*kx,14*ky,18*kx,18*ky);
[886] line(23*kx,14*ky,23*kx,18*ky);
[887] line(28*kx,14*ky,28*kx,18*ky);
[888] line(33*kx,14*ky,33*kx,18*ky);
[889] line(38*kx,14*ky,38*kx,18*ky);
[890] line(43*kx,14*ky,43*kx,18*ky);
[891] /*---- Title */
[892] setcolor(CYAN);
[893] settextstyle(SMALL_FONT,HORIZ_DIR,FONT_DIM_DRAFT);
[894] settextjustify(LEFT_TEXT,CENTER_TEXT);
[895] outtextxy
[896] (46*kx,12*ky,
[897] " E-locks (addr) ");
[898] outtextxy
[899] (46*kx,17*ky,
[900] " Commutator ");
[901] /*---- NE */
[902] E("~",0,45,4,3,3,kx,ky);
[903] E("~",1,49,4,3,3,kx,ky);
[904] E("~",2,53,4,3,3,kx,ky);
[905] /*---- AND */
[906] E("&",0,6,11,4,3,kx,ky);
[907] E("&",1,11,11,4,3,kx,ky);
[908] E("&",2,16,11,4,3,kx,ky);
[909] E("&",3,21,11,4,3,kx,ky);
[910] E("&",4,26,11,4,3,kx,ky);
[911] E("&",5,31,11,4,3,kx,ky);
[912] E("&",6,36,11,4,3,kx,ky);
[913] E("&",7,41,11,4,3,kx,ky);
[914] /*---- COMMUTATORS */
[915] B("C",0,6,18,4,3,kx,ky);
[916] B("C",1,11,18,4,3,kx,ky);
[917] B("C",2,16,18,4,3,kx,ky);
[918] B("C",3,21,18,4,3,kx,ky);
[919] B("C",4,26,18,4,3,kx,ky);
[920] B("C",5,31,18,4,3,kx,ky);
[921] B("C",6,36,18,4,3,kx,ky);
[922] B("C",7,41,18,4,3,kx,ky);
[923] /*---- Entry */
[924] settextstyle(SMALL_FONT,VERT_DIR,FONT_DIM_DRAFT);
[925] settextjustify(CENTER_TEXT,CENTER_TEXT);
[926] setcolor(LIGHTGREEN);
[927] outtextxy(5*kx,1*ky,"2");
[928] outtextxy(5*kx,2*ky,"1");