home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 638a.lha / Perfmeter_v1.2 / source.LZH / source / perfmeter.c
Encoding:
C/C++ Source or Header  |  1991-09-22  |  16.3 KB  |  655 lines
  1. ;/*    PerfMeter by Digital Design, Inc.
  2.  
  3. lc -v -y -ba perfmeter.c
  4. blink lib:cback.o+perfmeter.o to perfmeter lib lib:lc.lib+lib:amiga.lib
  5. quit
  6.  
  7.     Author:        Juha 'Comm' Tuominen / Digital Design
  8.     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  9.     Released:    15-Jul-91    v1.10
  10.     Revised:    07-Sep-91    v1.11
  11.     Revised:    08-Sep-91    v1.12
  12.     Revised:    18-Sep-91    v1.2    (needs KS2.0 now)
  13.     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  14.     Compiler:    SAS/C v5.10->
  15.     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  16. */
  17.  
  18. #include <exec/types.h>
  19. #include <exec/memory.h>
  20. #include <exec/execbase.h>
  21. #include <exec/tasks.h>
  22. #include <libraries/dos.h>
  23. #include <devices/timer.h>
  24. #include <intuition/intuitionbase.h>
  25. #include <libraries/diskfont.h>
  26. #include <graphics/rastport.h>
  27. #include <graphics/gfx.h>
  28. #include <graphics/gfxmacros.h>
  29. #include <graphics/text.h>
  30. #include <proto/all.h>
  31. #include <string.h>
  32. #include <stdio.h>
  33. #include <stdlib.h>
  34.  
  35. #define STACK_SIZE 1000L    /* Arska's stack size */
  36.  
  37. #define NAME         "Perfmeter"
  38. #define VERSION        1
  39. #define REVISION    2
  40. #define DATE        "16.9.91"
  41. #define VERS        "Perfmeter 1.2"
  42. #define VSTRING        "PerfMeter 1.2 (18.9.91)\n\0"
  43. #define VERSTAG        "\0$VER: Perfmeter 1.2 (18.9.91)\0"
  44.  
  45. #define FONTSIZE 8
  46. #define FONTNAME "hires-5a.font"
  47.  
  48. #define WINDOWWIDTH        172
  49. #define WINDOWHEIGTH    130
  50.  
  51. long _stack=16384;
  52. char *_procname=VSTRING;
  53. long _priority=5;
  54. long _BackGroundIO=FALSE;
  55.  
  56. void MemCleanup() {}
  57.  
  58. UBYTE    versiontag[]=VERSTAG;    /* for version command */
  59.  
  60. BOOL    task_added=FALSE;
  61. BOOL    zipped=FALSE;
  62. BOOL    oldzipped=FALSE;
  63. BOOL    timeropen=FALSE;
  64. BOOL    timeropen2=FALSE;
  65. BOOL    keepgoing=TRUE;
  66. BOOL    time_requested=FALSE;
  67. BOOL    time_requested2=FALSE;
  68. ULONG    maxchip, maxfast, freechip=0, freefast=0,maxpub,freepub;
  69. ULONG    cputime=NULL,cputemp=NULL,prevcpu=68;
  70. ULONG    count=0;
  71. ULONG    chipscale=0, fastscale=0, publicscale=0;
  72. ULONG    jakaja=0,cputemp2=0;
  73. ULONG    tag1;
  74. char    processor[10]="68000";
  75. char    *taskname="Arska Väijy";
  76. APTR    stack=NULL;
  77. WORD    cordinates[]={0,0,80,29};    /* zipped window cordinates and size */
  78. int        cpuload=0,mode=0,oldmode=1;
  79. int        buffer[7][151];
  80. int        load=0;
  81. int        switchcount=0;
  82. int        upsecs=0,upmins=0,uphours=0,updays=0;
  83.  
  84. extern    struct ExecBase    *SysBase;
  85. struct    IntuitionBase *IntuitionBase=NULL;
  86. struct    Library *DiskfontBase=NULL;
  87. struct    Window *window=NULL;
  88. struct    IntuiText abouttext[];
  89. struct    IntuiText proceed;
  90. struct    GfxBase *GfxBase=NULL;
  91. struct    MsgPort *timerport=NULL;
  92. struct    timerequest *timermsg=NULL;
  93. struct    MsgPort *timerport2=NULL;
  94. struct    timerequest *timermsg2=NULL;
  95. struct    Task *task=NULL;
  96. struct    TextFont *textfont;
  97.  
  98. struct    NewWindow mywindow =
  99. {    420,
  100.     14,
  101.     WINDOWWIDTH,
  102.     WINDOWHEIGTH,
  103.     0,1,
  104.     CLOSEWINDOW | MENUPICK | NEWSIZE,
  105.     SMART_REFRESH | WINDOWDRAG | WINDOWCLOSE | WINDOWDEPTH,
  106.     NULL,
  107.     NULL,
  108.     "(Idle)",
  109.     NULL,
  110.     NULL,
  111.     70,
  112.     38,
  113.     NULL,
  114.     NULL,
  115.     WBENCHSCREEN
  116.  
  117. };
  118.  
  119. struct TagItem tagitems[2]={
  120.     {WA_Zoom,&cordinates},
  121.     {0,}
  122. };
  123.  
  124.  
  125. struct TextAttr TOPAZ80 = {(STRPTR)"topaz.font",TOPAZ_EIGHTY,0,0};
  126.  
  127. struct IntuiText abouttext[9] =
  128. {
  129.     {2,1,JAM1,8, 4,(struct TextAttr *)&TOPAZ80,(UBYTE *)VERS,(struct IntuiText *)&abouttext[1]},
  130.     {2,1,JAM1,8,14,(struct TextAttr *)&TOPAZ80,(UBYTE *)"by Juha Tuominen",(struct IntuiText *)&abouttext[2]},
  131.     {2,1,JAM1,8,22,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Copyright © 1991",(struct IntuiText *)&abouttext[3]},
  132.     {2,1,JAM1,8,30,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Digital Design, Inc.",(struct IntuiText *)&abouttext[4]},
  133.     {2,1,JAM1,8,38,(struct TextAttr *)&TOPAZ80,(UBYTE *)" ",(struct IntuiText *)&abouttext[5]},
  134.     {2,1,JAM1,8,46,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Average 68040 load: 0   %",(struct IntuiText *)&abouttext[6]},
  135.     {2,1,JAM1,8,54,(struct TextAttr *)&TOPAZ80,(UBYTE *)" ",(struct IntuiText *)&abouttext[7]},
  136.     {2,1,JAM1,8,62,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Arska Väijy has found",(struct IntuiText *)&abouttext[8]},
  137.     {2,1,JAM1,8,70,(struct TextAttr *)&TOPAZ80,(UBYTE *)"0 perfect numbers.",(struct IntuiText *)NULL}
  138. };
  139.  
  140. struct IntuiText proceed=
  141. {
  142.     2,1,JAM1,5,3,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Continue",(struct IntuiText *)NULL
  143. };
  144.  
  145. /* This menu isn't visually beatufull but do just fine for this program */
  146.  
  147. struct IntuiText IText1={2,1,JAM2,0,0,&TOPAZ80,"Quit",NULL};
  148. struct MenuItem MenuItem9={NULL,0,64,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText1,NULL,NULL,NULL,MENUNULL};
  149. struct IntuiText IText2={2,1,JAM2,0,0,&TOPAZ80,"Switch",NULL};
  150. struct MenuItem MenuItem8={&MenuItem9,0,56,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText2,NULL,NULL,NULL,MENUNULL};
  151. struct IntuiText IText3={2,1,JAM2,0,0,&TOPAZ80,"Public",NULL};
  152. struct MenuItem MenuItem7={&MenuItem8,0,48,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText3,NULL,NULL,NULL,MENUNULL};
  153. struct IntuiText IText4={2,1,JAM2,0,0,&TOPAZ80,"Fast",NULL};
  154. struct MenuItem MenuItem6={&MenuItem7,0,40,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText4,NULL,NULL,NULL,MENUNULL};
  155. struct IntuiText IText5={2,1,JAM2,0,0,&TOPAZ80,"Chip",NULL};
  156. struct MenuItem MenuItem5={&MenuItem6,0,32,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText5,NULL,NULL,NULL,MENUNULL};
  157. struct IntuiText IText6={2,1,JAM2,0,0,&TOPAZ80,"Load",NULL};
  158. struct MenuItem MenuItem4={&MenuItem5,0,24,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText6,NULL,NULL,NULL,MENUNULL};
  159. struct IntuiText IText7={2,1,JAM2,0,0,&TOPAZ80,"CPU",NULL};
  160. struct MenuItem MenuItem3={&MenuItem4,0,16,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText7,NULL,NULL,NULL,MENUNULL};
  161. struct IntuiText IText8={2,1,JAM2,0,0,&TOPAZ80,"Idle",NULL};
  162. struct MenuItem MenuItem2={&MenuItem3,0,8,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText8,NULL,NULL,NULL,MENUNULL};
  163. struct IntuiText IText9={2,1,JAM2,0,0,&TOPAZ80,"About",NULL};
  164. struct MenuItem MenuItem1={&MenuItem2,0,0,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText9,NULL,NULL,NULL,MENUNULL};
  165.  
  166. struct Menu Menu1={NULL,0,0,62,0,    MENUENABLED,"Project",&MenuItem1};
  167.  
  168.  
  169.  
  170. void cleanexit(int error);
  171. void openthings(void);
  172. void addtimerequest(long secs, long micros);
  173. void changefont(void);
  174. void addtimerequest2(long secs, long micros);
  175. void uptime(void);
  176. ULONG maxmemsize(long memtype);
  177. void updatewindow(void);
  178. void oddstuff(void);
  179. void idletask(void);
  180. void __saveds switchroutine(void);
  181.  
  182. void CXBRK(void) 
  183. { 
  184.     cleanexit(0);
  185. }
  186.  
  187. void cleanexit(int error)
  188. {
  189.     if(task_added) RemTask(task);
  190.     if(task) FreeMem(task,sizeof(struct Task));
  191.     if(stack) FreeMem(stack,STACK_SIZE);
  192.     if(timeropen2)
  193.     {    if(time_requested2)
  194.         {
  195.             AbortIO((struct IORequest *)timermsg2);
  196.             WaitIO((struct IORequest *)timermsg2);
  197.         }
  198.         CloseDevice((struct IORequest *)timermsg2);
  199.     }
  200.     if(timermsg2) DeleteExtIO((struct IORequest *)timermsg2);
  201.     if(timerport2) DeletePort(timerport2);
  202.  
  203.     if(timeropen)
  204.     {    if(time_requested)
  205.         {
  206.             AbortIO((struct IORequest *)timermsg);
  207.             WaitIO((struct IORequest *)timermsg);
  208.         }
  209.         CloseDevice((struct IORequest *)timermsg);
  210.     }
  211.     if(timermsg) DeleteExtIO((struct IORequest *)timermsg);
  212.     if(timerport) DeletePort(timerport);
  213.     if(window->MenuStrip) ClearMenuStrip(window);
  214.     if(window) CloseWindow(window);
  215.     if(DiskfontBase) CloseLibrary(DiskfontBase);
  216.     if(GfxBase) CloseLibrary(GfxBase);
  217.     if(IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  218.     XCEXIT(error);
  219. }
  220.  
  221.  
  222. void openthings(void)
  223. {
  224.     int i,j;
  225.  
  226.     if (SysBase->LibNode.lib_Version<37)
  227.         cleanexit(99);
  228.     if (!(GfxBase=(struct GfxBase *)OpenLibrary("graphics.library",37L)))
  229.         cleanexit(30);
  230.     if (!(IntuitionBase=(struct IntuitionBase*)OpenLibrary("intuition.library",37L)))
  231.         cleanexit(30);
  232.     if (!(DiskfontBase=(struct Library*)OpenLibrary("diskfont.library", 37L)))
  233.         cleanexit(30);
  234.     if(!(timerport=CreatePort(0,0)))
  235.         cleanexit(22);
  236.     if(!(timermsg=(struct timerequest *) CreateExtIO(timerport, sizeof(struct timerequest))))
  237.         cleanexit(22);
  238.     if(OpenDevice("timer.device", UNIT_VBLANK, ((struct IORequest *) timermsg), 0))
  239.         cleanexit(22);
  240.  
  241.     timeropen=TRUE;
  242.  
  243.     if(!(timerport2=CreatePort(0,0)))
  244.         cleanexit(22);
  245.     if(!(timermsg2=(struct timerequest *) CreateExtIO(timerport2, sizeof(struct timerequest))))
  246.         cleanexit(22);
  247.     if(OpenDevice("timer.device", UNIT_VBLANK, ((struct IORequest *) timermsg2), 0))
  248.         cleanexit(22);
  249.  
  250.     timeropen2=TRUE;
  251.  
  252.     if(!(window=OpenWindowTagList(&mywindow,(struct TagItem *)&tagitems)))
  253.         cleanexit(27);
  254.     SetMenuStrip(window,&Menu1);
  255.  
  256.     if(!(stack=AllocMem(STACK_SIZE, MEMF_CLEAR)))
  257.         cleanexit(10);
  258.     if(!(task=(struct Task*)AllocMem(sizeof(struct Task),MEMF_CLEAR|MEMF_PUBLIC)))
  259.         cleanexit(10);
  260.  
  261.     maxchip=maxmemsize(MEMF_CHIP);
  262.     maxfast=maxmemsize(MEMF_FAST);
  263.     maxpub=maxchip+maxfast;
  264.  
  265.     if(SysBase->AttnFlags & AFF_68010)    strcpy(processor,"68010");
  266.     if(SysBase->AttnFlags & AFF_68020)    strcpy(processor,"68020");
  267.     if(SysBase->AttnFlags & AFF_68030)    strcpy(processor,"68030");
  268.     if(SysBase->AttnFlags & AFF_68040)    strcpy(processor,"68040");
  269.  
  270.     /*    Because we run this part only once we just have to assume that user 
  271.         does not add memory cartiges or change the main processor while
  272.         this program is running :)
  273.     */
  274.  
  275.     chipscale=maxchip/100;
  276.     fastscale=maxfast/100;
  277.     publicscale=maxpub/100;
  278.  
  279.     /* init buffer */
  280.     for(i=0;i<6;i++)
  281.     {
  282.         for(j=0;j<150;j++)
  283.             buffer[i][j]=0;
  284.     }
  285. }
  286.  
  287.  
  288. void changefont(void)
  289. {
  290.     struct    TextAttr    textattr;
  291.     struct    TextFont    *textfont;
  292.  
  293.     textattr.ta_Name=FONTNAME;;
  294.     textattr.ta_YSize=FONTSIZE;
  295.     textattr.ta_Style=FS_NORMAL;
  296.     textattr.ta_Flags=FPF_ROMFONT | FPF_DISKFONT;
  297.  
  298.     if(textfont=(struct TextFont *)OpenDiskFont(&textattr))
  299.     {    SetFont(window->RPort,textfont);
  300.         if(!window->RPort->TxHeight==8)
  301.         {    cleanexit(10);
  302.         }
  303.     }
  304.     else
  305.     {    cleanexit(10);
  306.     }
  307. }
  308.  
  309. void addtimerequest(long secs, long micros)
  310. {
  311.     time_requested=TRUE;
  312.     timermsg->tr_node.io_Command=TR_ADDREQUEST;
  313.     timermsg->tr_time.tv_secs=secs;
  314.     timermsg->tr_time.tv_micro=micros;
  315.     SendIO((struct IORequest *)timermsg);
  316. }
  317.  
  318. void addtimerequest2(long secs, long micros)
  319. {
  320.     time_requested2=TRUE;
  321.     timermsg2->tr_node.io_Command=TR_ADDREQUEST;
  322.     timermsg2->tr_time.tv_secs=secs;
  323.     timermsg2->tr_time.tv_micro=micros;
  324.     SendIO((struct IORequest *)timermsg2);
  325. }
  326.  
  327. void uptime(void)
  328. {    char temp[30];
  329.  
  330.     if(++upsecs>60)
  331.     {    upsecs=0;
  332.         if(++upmins>60)
  333.         {    upmins=0;
  334.             if(++uphours>24)
  335.             {    uphours=0;
  336.                 updays++;
  337.             }
  338.         }
  339.     }
  340.     if(!zipped)
  341.     {    SetDrMd(window->RPort,JAM2);
  342.         SetBPen(window->RPort,0);
  343.         SetAPen(window->RPort,1);
  344.         Move(window->RPort,25,123);
  345.         sprintf(temp,"Uptime: %02d days  %02d:%02d:%02d",updays,uphours,upmins,upsecs);
  346.         Text(window->RPort,temp,25);
  347.     }
  348. }
  349.  
  350. ULONG maxmemsize(long memtype)
  351. {
  352.     ULONG blocksize=0;
  353.     struct MemHeader *MemHeader;
  354.  
  355.     Forbid();
  356.         for(MemHeader=(struct MemHeader *)SysBase->MemList.lh_Head;MemHeader->mh_Node.ln_Succ;MemHeader=(struct MemHeader *)MemHeader->mh_Node.ln_Succ)
  357.         {
  358.             if(MemHeader->mh_Attributes&memtype)
  359.                 blocksize+=((ULONG)MemHeader->mh_Upper-(ULONG)MemHeader->mh_Lower);
  360.         }
  361.     Permit();
  362.  
  363.     return(blocksize);
  364.  
  365.     /* MaxMemSize() by Louis A. Mamakos. */
  366. }
  367.  
  368.  
  369. void updatewindow(void)
  370. {
  371.     int i,j;
  372.     ULONG    curchip, curfast, curpub;
  373.     struct RastPort *rp=window->RPort;
  374.  
  375.     if(mode!=oldmode || oldzipped!=zipped)    /* User has decided to look some other item or window zip gadget is pressed*/
  376.     {    if(!zipped)    /* No use to refresh the window if it's zipped */
  377.         {    RefreshWindowFrame(window);
  378.             SetAPen(rp,0);
  379.             RectFill(rp,10,15,160,110);
  380.  
  381.             /* 3D border */
  382.             SetAPen(rp,1);
  383.             Move(rp,10,111);
  384.             Draw(rp,10,16);
  385.             Draw(rp,161,16);
  386.             SetAPen(rp,2);
  387.             Draw(rp,161,111);
  388.             Draw(rp,11,111);
  389.  
  390.             /* Scaling lines */
  391.             SetAPen(rp,3);
  392.             Move(rp,11,38);
  393.             Draw(rp,160,38);
  394.             Move(rp,11,64);
  395.             Draw(rp,160,64);
  396.             Move(rp,11,90);
  397.             Draw(rp,160,90);
  398.  
  399.             /* Draw existing GFX from buffer */
  400.             Move(rp,10,110-buffer[mode][0]);
  401.             SetAPen(rp,1);
  402.             for(j=1;j<=150;j++)
  403.                 Draw(rp,j+10,110-buffer[mode][j]);
  404.         }
  405.         oldmode=mode;
  406.         oldzipped=zipped;
  407.     }
  408.  
  409.     /* let's scroll a bit, OK? */
  410.     for(i=0;i<7;i++)
  411.     {
  412.         for(j=0;j<150;j++)
  413.             buffer[i][j]=buffer[i][j+1];
  414.     }
  415.     curchip=AvailMem(MEMF_CHIP);
  416.     curfast=AvailMem(MEMF_FAST);
  417.     curpub=AvailMem(MEMF_PUBLIC);
  418.  
  419.     buffer[0][150]=(UBYTE)(100*cputemp/60);
  420.     buffer[1][150]=load;
  421.     buffer[2][150]=(UBYTE)(curchip/chipscale);
  422.     if(fastscale)
  423.         buffer[3][150]=(UBYTE)(curfast/fastscale);
  424.     buffer[4][150]=(UBYTE)(curpub/publicscale);
  425.     buffer[5][150]=switchcount;
  426.     buffer[6][150]=(UBYTE)(83-(100*cputemp/60));
  427.     if(buffer[6][150]<0) buffer[6][150]=0;
  428.  
  429.  
  430.     for(i=0;i<7;i++)
  431.     {    if(buffer[i][150]>93)
  432.         {    buffer[i][150]=93;
  433.         }
  434.     }
  435.  
  436.     if(!zipped)
  437.     {    ScrollRaster(rp,1,0,11,17,160,110);
  438.         SetDrMd(rp,JAM1);
  439.         SetAPen(rp,3);
  440.         WritePixel(rp,160,38);
  441.         WritePixel(rp,160,64);
  442.         WritePixel(rp,160,90);
  443.         SetAPen(rp,1);
  444.         Move(rp,159,110-buffer[mode][149]);
  445.         Draw(rp,160,110-buffer[mode][150]);
  446.     }
  447. }
  448.  
  449.  
  450.  
  451.  
  452. void idletask(void)    /*    This is Arska Väijy */
  453. {
  454.     ULONG suurinluku=1,taydellinenluku,luku;
  455.  
  456.     Disable();
  457.         task->tc_Switch=switchroutine;
  458.         task->tc_Flags|=TF_SWITCH;
  459.     Enable();
  460.  
  461.     while(1)
  462.     {    taydellinenluku=0;
  463.         for(luku=suurinluku;luku>1;luku--)
  464.         {
  465.             if(!(suurinluku%luku))
  466.                 taydellinenluku+=luku;
  467.         }
  468.         if(taydellinenluku==suurinluku)
  469.             count++;
  470.         suurinluku++;
  471.     }
  472.  
  473.     /* As you know, there may not be busy looped parts in multitasking
  474.        programs :) */
  475. }
  476.  
  477. void __saveds switchroutine(void)
  478. {
  479.     /*    Thanks to Juhani Vehviläinen for sweatting with me because of
  480.         this idle counting routine */
  481.  
  482.     cputime+=SysBase->Quantum-SysBase->Elapsed;
  483.     switchcount++;
  484. }
  485.  
  486.  
  487. void _main(char *arguments)
  488. {
  489.     ULONG    timersignal, 
  490.             timersignal2,
  491.             idcmpsignal, 
  492.             signals, 
  493.             class;
  494.     UWORD    code, 
  495.             qualifier;
  496.     struct    IntuiMessage *msg=NULL;
  497.     char    temp1[80],temp2[80];
  498.     struct    Node *mynode;
  499.     ULONG    sum1=0;
  500.     int        pos1=0,pos=0,last[61],length=0,i,j=0,argumentcount=0;
  501.     
  502.  
  503.     /* handle arguments */
  504.     for(i=0;i<strlen(arguments);i++)
  505.     {    if(arguments[i]==32 || arguments[i]==13 || arguments[i]==10)
  506.         {    if(!strncmp(temp1,"-x",2))
  507.                 mywindow.LeftEdge=atoi(temp1+2);
  508.             if(!strncmp(temp1,"-y",2))
  509.                 mywindow.TopEdge=atoi(temp1+2);
  510.             argumentcount++;
  511.             j=0;
  512.         }
  513.         else
  514.         {    temp1[j++]=arguments[i];
  515.             temp1[j]=0;
  516.         }
  517.     }
  518.  
  519.     openthings();
  520.     changefont();
  521.  
  522.     for(i=0;i<60;i++)
  523.         last[i]=0;
  524.  
  525.     timersignal = 1L << timerport->mp_SigBit;
  526.     timersignal2= 1L << timerport2->mp_SigBit;
  527.     idcmpsignal = 1L << window->UserPort->mp_SigBit;
  528.  
  529.     addtimerequest(1,0);
  530.     addtimerequest2(0,10);
  531.  
  532.     task->tc_Node.ln_Type=NT_TASK;
  533.     task->tc_Node.ln_Name=taskname;
  534.     task->tc_Node.ln_Pri=-128;
  535.     task->tc_SPLower=(APTR)stack;
  536.     task->tc_SPUpper=(APTR)(STACK_SIZE+(ULONG)stack);
  537.     task->tc_SPReg=task->tc_SPUpper;
  538.  
  539.     AddTask(task,idletask,0L);
  540.     task_added=TRUE;
  541.  
  542.     while(keepgoing)
  543.     {    signals = Wait(timersignal | timersignal2 | idcmpsignal);
  544.  
  545.         if(signals & idcmpsignal)
  546.         {
  547.             while(msg=(struct IntuiMessage *)GetMsg(window->UserPort))
  548.             {
  549.                 class=msg->Class;
  550.                 code=msg->Code;
  551.                 qualifier=msg->Qualifier;
  552.                 ReplyMsg((struct Message *) msg);
  553.  
  554.                 switch(class)
  555.                 {
  556.                     case CLOSEWINDOW:
  557.                         keepgoing=FALSE;
  558.                         break;
  559.                     case NEWSIZE:
  560.                         if(window->Width==WINDOWWIDTH && window->Height==WINDOWHEIGTH)
  561.                             zipped=FALSE;
  562.                         else
  563.                         {    zipped=TRUE;
  564.                             SetAPen(window->RPort,0);
  565.                             RectFill(window->RPort,10,15,75,26);
  566.                             Move(window->RPort,10,21);
  567.                             SetAPen(window->RPort,1);
  568.                             Text(window->RPort,"..zZzZz..",9);
  569.                         }
  570.                         break;
  571.                     case MENUPICK:
  572.                         switch(ITEMNUM(code))
  573.                         {
  574.                             case 0:
  575.                                 cputime=100-cpuload;
  576.                                 if(cputime<1 || cputime>100)
  577.                                     cputime=20;
  578.                                 sprintf(temp1,"Average %s load: %d %% ",processor,cputime);
  579.                                 cputime=0;
  580.                                 abouttext[5].IText=(UBYTE *)temp1;
  581.                                 sprintf(temp2,"%d perfect numbers.",count);
  582.                                 abouttext[8].IText=(UBYTE *)temp2;
  583.                                 AutoRequest(NULL,&abouttext[0],NULL,&proceed,NULL,NULL,272,128);
  584.                                 break;
  585.                             case 1:
  586.                                 mode=0;
  587.                                 window->Title="(Idle)";
  588.                                 break;
  589.                             case 2:
  590.                                 mode=6;
  591.                                 window->Title="(CPU)";    
  592.                                 break;
  593.                             case 3:
  594.                                 mode=1;
  595.                                 window->Title="(Load)";
  596.                                 break;
  597.                             case 4:
  598.                                 mode=2;
  599.                                 window->Title="(Chip)";
  600.                                 break;
  601.                             case 5:
  602.                                 mode=3;
  603.                                 window->Title="(Fast)";
  604.                                 break;
  605.                             case 6:
  606.                                 mode=4;
  607.                                 window->Title="(Public)";
  608.                                 break;
  609.                             case 7:
  610.                                 mode=5;
  611.                                 window->Title="(Switch)";
  612.                                 break;
  613.                             case 8:
  614.                                 cleanexit(0);
  615.                         }
  616.                         break;
  617.                 }
  618.             }
  619.         }
  620.  
  621.         if(signals & timersignal)
  622.         {
  623.             GetMsg(timerport);
  624.             addtimerequest(1,0);
  625.             uptime();
  626.             if(100*cputime/60<100)
  627.                 cputemp=cputime;
  628.             cputemp2+=100*cputime/60;
  629.             cputime=0;
  630.             cpuload=cputemp2/++jakaja;
  631.             length = 0;
  632.             Disable();
  633.                 for(mynode=(SysBase->TaskReady).lh_Head;mynode=mynode->ln_Succ;length++)
  634.                     ;
  635.             Enable();
  636.             sum1+=(length-last[pos1]);
  637.             last[pos]=length;
  638.             if(++pos1==60)    pos1=0;
  639.             if(++pos==60)    pos=0;
  640.             load=(sum1*100+50)/480;
  641.             if(load>100)
  642.  
  643.                 load=100;
  644.             updatewindow();
  645.             switchcount=0;
  646.         }
  647.         if(signals & timersignal2)
  648.         {
  649.             GetMsg(timerport2);
  650.             addtimerequest2(0,8);
  651.         }
  652.     }
  653.     cleanexit(0);
  654. }
  655.