home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / swap.lzh / SWAP / SWAP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-03-10  |  58.2 KB  |  1,958 lines
  1. /* SWAP.c .  Copyright © Kamran karimi. This program tries to bring swapping to
  2.    Amiga without the need of hardware. Compiled with Lattice C 3.1 . 
  3.    Should be linked with PatchSignaling.o to produce executable.
  4. */
  5.  
  6. #include <stdio.h>
  7. #include <string.h>
  8. #include <exec/types.h>
  9. #include <exec/execbase.h>
  10. #include <exec/memory.h>
  11. #include <exec/ports.h>
  12. #include <libraries/dos.h>
  13. #include <libraries/dosextens.h>
  14. #include <intuition/intuitionbase.h>
  15. #include <intuition/intuition.h>
  16.  
  17. #define RastPort (MainWin->RPort)
  18.  
  19. #define SUCCESS 0
  20. #define FAILER  1
  21.  
  22. #define TASKS   0
  23. #define WINSCR  1
  24. #define MEMORY  2
  25. #define INFO    3
  26.  
  27. #define NOMEM      0
  28. #define FAILED     1 
  29. #define DONE       2
  30. #define NOTME      3
  31. #define NOTFOUND   4
  32. #define NOTASK     5
  33. #define NOSUICIDE  6
  34. #define CONFIRM    7
  35. #define CANCELED   8
  36. #define NEWPRI     9
  37. #define OUTRANGE  10
  38. #define SIGMASK   11
  39. #define NOGRAPH   12
  40. #define NOFILE    13
  41. #define NOSEG     14
  42. #define NOSPC     15
  43. #define WERROR    16
  44. #define RERROR    17
  45. #define OCCUPIED1 18
  46. #define OCCUPIED2 19
  47. #define SWAPPED   20
  48. #define NSWAPPED  21
  49. #define NOTIMP    22
  50. #define WAIT      23
  51. #define NSWAPME   24
  52. #define FREED     25
  53. #define NOKILL    26
  54. #define NOBREAK   27
  55. #define NOSIGNAL  28
  56. #define NOFREEZE  29
  57. #define INTRUDER  30
  58. #define INTNFOUND 31
  59.  
  60. static UWORD ColourTable[] = {0x99a,0xfff,0x000,0x082};
  61.  
  62. struct NewScreen MyScreen = {0,0,640,200,2,0,1,HIRES,CUSTOMSCREEN,NULL,
  63.     " SWAP         By Kamran Karimi",NULL,NULL};
  64.  
  65.  
  66. UBYTE UNDOBuff[100];
  67.  
  68. UBYTE  SBuff[100];
  69.  
  70. UBYTE  Temp[100];
  71.  
  72. UBYTE CRam[12],FRam[12],SwapS[12],SelTask[80];
  73.  
  74. struct TextAttr MyFont = {
  75.  (STRPTR)"topaz.font",TOPAZ_EIGHTY,FS_NORMAL,FPF_ROMFONT};
  76.  
  77. struct StringInfo GadgetSInfo = {SBuff,UNDOBuff,0,100,0,0,0,0,0,0,0,0,NULL};
  78.  
  79. struct PropInfo PGInfo = {AUTOKNOB|FREEVERT,-1,-1,0,0,0,0,0,0,0,0};
  80.  
  81. struct Image Image1 = {0,0,12,67,0,NULL,0x0000,0x0000,NULL};
  82.  
  83. USHORT  Up[] = {
  84. 0x0200,                     /* 0000001000000 */
  85. 0x0700,                     /* 0000011100000 */
  86. 0x0f80,                     /* 0000111110000 */
  87. 0x1fc0,                     /* 0001111111000 */
  88. 0x3fe0,                     /* 0011111111100 */
  89. 0x7ff0                      /* 0111111111110 */
  90. }; 
  91.  
  92. USHORT  Down[] = {
  93. 0x7ff0,                     /* 0111111111110 */
  94. 0x3fe0,                     /* 0011111111100 */
  95. 0x1fc0,                     /* 0001111111000 */
  96. 0x0f80,                     /* 0000111110000 */
  97. 0x0700,                     /* 0000011100000 */
  98. 0x0200                      /* 0000001000000 */
  99. };
  100.  
  101. USHORT *UpData,*DownData;
  102.  
  103. struct Image UpArrow = {0,1,13,6,1,Up,1,0,NULL};
  104.  
  105. struct Image DownArrow = {0,84,13,6,1,Down,1,0,(struct Image *)&UpArrow};
  106.  
  107. SHORT BorderPairs[][6] = {
  108.  {0,8,0,0,18,0},
  109.  {18,0,18,8,0,8},
  110.  {0,8,0,0,18,0},
  111.  {18,0,18,8,0,8},
  112.  {0,0,0,0,0,0},
  113.  {0,0,0,0,0,0},
  114.  {0,11,0,0,65,0}, /* keys */
  115.  {65,0,65,11,0,11},
  116.  {0,12,0,0,66,0},
  117.  {66,0,66,12,0,12},
  118.  {0,11,0,0,148,0},    /* big key */
  119.  {148,0,148,11,0,11},
  120.  {0,12,0,0,149,0},
  121.  {149,0,149,12,0,12},
  122.  {0,15,0,0,70,0},       /* exit */
  123.  {70,0,70,15,0,15},
  124.  {0,16,0,0,71,0},
  125.  {71,0,71,16,0,16},
  126.  {0,10,0,0,341,0},      /* string */
  127.  {341,0,341,10,0,10},
  128.  {0,11,0,0,343,0},      
  129.  {343,0,343,11,0,11},
  130.  {0,95,0,26,595,26},   /* big area  */
  131.  {595,26,595,95,0,95},
  132.  {0,96,0,26,597,26},   
  133.  {597,26,597,96,0,96},
  134.  {0,108,0,98,595,98},
  135.  {595,98,595,108,0,108}, 
  136.  {0,198,0,155,254,155},  /* message area */
  137.  {254,155,254,198,0,198},
  138.  {0,199,0,155,256,155},  
  139.  {256,155,256,199,0,199},
  140.  {0,152,0,142,254,142},
  141.  {254,142,254,152,0,152},
  142.  {1,22,1,0,160,0},     /* RAM */
  143.  {160,0,160,22,1,22},
  144.  {0,11,0,0,200,0},
  145.  {200,0,200,11,0,11},
  146.  {0,11,0,0,595,0},
  147.  {595,0,595,11,0,11},
  148.  {625,24,625,94,608,94},
  149.  {624,24,624,94,607,94}
  150.  
  151. }; /* end of BorderPairs structure */
  152.  
  153. struct Border RevBorder[] = {
  154.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[0],NULL},
  155.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[1],(struct Border *) &RevBorder[0]},
  156.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[2],NULL},
  157.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[3],(struct Border *) &RevBorder[2]},
  158.  {0,0,0,0,0,0,0,0},
  159.  {0,0,0,0,0,0,0,0},
  160.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[6],NULL},
  161.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[7],(struct Border *) &RevBorder[6]},
  162.  {-3,-2,2,0,JAM1,3,(SHORT *) BorderPairs[8],(struct Border *) &RevBorder[7]},
  163.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[9],(struct Border *) &RevBorder[8]},
  164.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[10],NULL},
  165.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[11],(struct Border *) &RevBorder[10]},
  166.  {-3,-2,2,0,JAM1,3,(SHORT *) BorderPairs[12],(struct Border *) &RevBorder[11]},
  167.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[13],(struct Border *) &RevBorder[12]},
  168.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[14],NULL},
  169.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[15],(struct Border *) &RevBorder[14]},
  170.  {-3,-2,2,0,JAM1,3,(SHORT *) BorderPairs[16],(struct Border *) &RevBorder[15]},
  171.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[17],(struct Border *) &RevBorder[16]}
  172.  
  173. }; /* end of struct RevBorder */
  174.  
  175. struct Border Borders[] = {
  176.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[0],NULL},
  177.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[1],(struct Border *) &Borders[0]},
  178.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[2],NULL},
  179.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[3],(struct Border *) &Borders[2]},
  180.  {0,0,0,0,0,0,0,0},
  181.  {0,0,0,0,0,0,0,0},
  182.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[6],NULL},
  183.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[7],(struct Border *) &Borders[6]}, 
  184.  {-3,-2,2,0,JAM1,3,(SHORT *) BorderPairs[8],(struct Border *) &Borders[7]},
  185.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[9],(struct Border *) &Borders[8]},
  186.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[10],NULL},
  187.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[11],(struct Border *) &Borders[10]},
  188.  {-3,-2,2,0,JAM1,3,(SHORT *) BorderPairs[12],(struct Border *) &Borders[11]},
  189.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[13],(struct Border *) &Borders[12]}, 
  190.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[14],NULL},
  191.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[15],(struct Border *) &Borders[14]},
  192.  {-3,-2,2,0,JAM1,3,(SHORT *) BorderPairs[16],(struct Border *) &Borders[15]},
  193.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[17],(struct Border *) &Borders[16]},
  194.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[18],NULL},
  195.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[19],(struct Border *) &Borders[18]},
  196.  {-3,-2,1,0,JAM1,3,(SHORT *) BorderPairs[20],(struct Border *) &Borders[19]},
  197.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[21],(struct Border *) &Borders[20]},
  198.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[22],NULL},
  199.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[23],(struct Border *) &Borders[22]},
  200.  {-3,-2,1,0,JAM1,3,(SHORT *) BorderPairs[24],(struct Border *) &Borders[23]},
  201.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[25],(struct Border *) &Borders[24]},
  202.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[26],(struct Border *) &Borders[25]},
  203.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[27],(struct Border *) &Borders[26]},
  204.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[28],(struct Border *) &Borders[27]},
  205.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[29],(struct Border *) &Borders[28]},
  206.  {-3,-2,1,0,JAM1,3,(SHORT *) BorderPairs[30],(struct Border *) &Borders[29]},
  207.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[31],(struct Border *) &Borders[30]},
  208.  {-2,-1,1,0,JAM1,3,(SHORT *) BorderPairs[32],(struct Border *) &Borders[31]},
  209.  {-2,-1,2,0,JAM1,3,(SHORT *) BorderPairs[33],(struct Border *) &Borders[32]},
  210.  {262,163,2,0,JAM1,3,(SHORT *) BorderPairs[34],(struct Border *) &Borders[33]},
  211.  {262,163,1,0,JAM1,3,(SHORT *) BorderPairs[35],(struct Border *) &Borders[34]},
  212.  {262,188,2,0,JAM1,3,(SHORT *) BorderPairs[36],(struct Border *) &Borders[35]},
  213.  {262,188,1,0,JAM1,3,(SHORT *) BorderPairs[37],(struct Border *) &Borders[36]},
  214.  {-2,11,1,0,JAM1,3,(SHORT *) BorderPairs[38],(struct Border *) &Borders[37]},
  215.  {-2,11,2,0,JAM1,3,(SHORT *) BorderPairs[39],(struct Border *) &Borders[38]},
  216.  {-6,0,2,0,JAM1,3,(SHORT *) BorderPairs[40],(struct Border *) &Borders[39]},
  217.  {-6,0,2,0,JAM1,3,(SHORT *) BorderPairs[41],(struct Border *) &Borders[40]}
  218.  
  219. }; /* end of Borders structure */
  220.  
  221.  
  222. struct IntuiText Texts[] = {
  223.  {0,0,0,0,0,0,0,0},                      /* 0  */
  224.  {0,0,0,0,0,0,0,0},                      /* 1  */
  225.  {0,0,0,0,0,0,0,0},                      /* 2  */
  226.  {2,0,JAM2,8,1,&MyFont,"Update",NULL},   /* 3  */
  227.  {2,0,JAM2,16,1,&MyFont,"Info",NULL},    /* 4  */
  228.  {2,0,JAM2,8,1,&MyFont,"Freeze",NULL},   /* 5  */
  229.  {2,0,JAM2,14,1,&MyFont," Pri ",NULL},   /* 6  */
  230.  {2,0,JAM2,17,1,&MyFont,"Kill",NULL},    /* 7  */
  231.  {2,0,JAM2,2,1,&MyFont,"Swap In",NULL},  /* 8  */
  232.  {2,0,JAM2,-1,1,&MyFont,"Swap Out",NULL},/* 9  */
  233.  {2,0,JAM2,8,1,&MyFont,"Signal",NULL},   /* 10 */
  234.  {2,0,JAM2,12,1,&MyFont,"Break",NULL},   /* 11 */
  235.  {2,0,JAM2,12,1,&MyFont,"Segs ",NULL},   /* 12 */
  236.  {2,0,JAM2,8,1,&MyFont,"Memory",NULL},   /* 13 */
  237.  {2,0,JAM2,11,1,&MyFont," W&S ",NULL},   /* 14 */
  238.  {2,0,JAM2,21,1,&MyFont,"Find Intruder",NULL},  /* 15 */
  239.  {2,0,JAM2,17,3,&MyFont,"Exit",NULL},    /* 16 */
  240.  {2,0,JAM2,400,99,&MyFont,"At Address:",NULL},
  241.  {2,0,JAM2,5,99,&MyFont,"Selected Task:     ",(struct IntuiText *) &Texts[17]},
  242.  {2,0,JAM2,100,142,&MyFont,"Message",(struct IntuiText *) &Texts[18]},          
  243.  {2,0,JAM2,270,190,&MyFont,"Swap Space:",(struct IntuiText *) &Texts[19]},        
  244.  {2,0,JAM2,272,176,&MyFont,"FastMem:",(struct IntuiText *) &Texts[20]},
  245.  {2,0,JAM2,272,165,&MyFont,"ChipMem:",(struct IntuiText *) &Texts[21]},
  246.  {2,0,JAM2,268,140,&MyFont,"Swap Out File:      ",
  247.                                              (struct IntuiText *) &Texts[22]},
  248.  {2,0,JAM2,5,14,&MyFont,
  249.   "      Name             Pri   State    Stack   Type     Signals   Address",
  250.   (struct IntuiText *) &Texts[23]}, 
  251.  {1,0,JAM2,335,176,&MyFont,FRam,NULL},
  252.  {1,0,JAM2,335,165,&MyFont,CRam,(struct IntuiText *) &Texts[25]},
  253.  {1,0,JAM2,360,190,&MyFont,SwapS,NULL},
  254.  {1,0,JAM2,118,99,&MyFont,SelTask,NULL},
  255.  {2,0,JAM2,268,140,&MyFont,"Enter New Priority:",NULL},
  256.  {2,0,JAM2,268,140,&MyFont,"Enter Signal Mask: ",NULL},
  257.  {2,0,JAM2,5,1,&MyFont," Tasks ",NULL}, 
  258.  {2,0,JAM2,5,14,&MyFont,
  259.   "                                                      (TASK INFORMATION)",
  260.   NULL},
  261.  {2,0,JAM2,5,14,&MyFont,
  262.   " Start Address      End Address        Size   Type (SEGMENT INFORMATION)",
  263.   NULL},  
  264.  {2,0,JAM2,5,14,&MyFont,
  265.   "                                                                        ",
  266.   NULL}, 
  267.  {2,0,JAM2,5,14,&MyFont,
  268.   "            Name                                       IDCMP     Address",
  269.   NULL},
  270.  {2,0,JAM2,400,99,&MyFont,"At Address:",(struct IntuiText *) &Texts[35]},
  271.  {2,0,JAM2,5,99,&MyFont,"Selected Element: ",(struct IntuiText *) &Texts[36]},
  272.  {2,0,JAM2,12,1,&MyFont,"Close",NULL},  
  273.  {2,0,JAM2,12,1,&MyFont,"Merge",NULL}, 
  274.  {2,0,JAM2,5,14,&MyFont,
  275.   "   Chunk Addr        Size     Type              #   (MEMORY INFORMATION)",
  276.   NULL},  
  277.  {2,0,JAM2,5,99,&MyFont,"Selected Chunk Address:     ",
  278.   (struct IntuiText *) &Texts[40]},
  279.  {2,0,JAM2,8,1,&MyFont," Melt ",NULL},  
  280.  
  281. }; /* end of Texts structure */ 
  282.  
  283.  
  284.  
  285. struct IntuiText SelTexts[] = {
  286.  {1,0,JAM2,2,1,&MyFont,NULL,NULL}, /* 0 */
  287.  {1,0,JAM2,2,1,&MyFont,NULL,NULL}, /* 1 */
  288.  {1,0,JAM2,2,1,&MyFont,NULL,NULL}, /* 2 */
  289.  {1,0,JAM2,2,1,&MyFont,NULL,NULL}, /* 3 */
  290.  {1,0,JAM2,2,1,&MyFont,NULL,NULL}, /* 4 */
  291.  {1,0,JAM2,2,1,&MyFont,NULL,NULL}, /* 5 */
  292.  {1,0,JAM2,2,1,&MyFont,NULL,NULL}  /* 6 */
  293.  
  294. };
  295.  
  296. char  ETextAddr[4][32];
  297.  
  298. struct IntuiText ErrIntuiText[] = {
  299.  {1,0,JAM2,7,157,&MyFont,ETextAddr[0],NULL},  /* 0 */
  300.  {1,0,JAM2,7,167,&MyFont,ETextAddr[1],NULL},  /* 1 */
  301.  {1,0,JAM2,7,177,&MyFont,ETextAddr[2],NULL},  /* 2 */
  302.  {1,0,JAM2,7,187,&MyFont,ETextAddr[3],NULL}   /* 3 */
  303. }; 
  304.  
  305. struct Gadget Bools[] = {
  306.  {(struct Gadget *) &Bools[1],617,15,15,7,GADGHIMAGE,GADGIMMEDIATE|RELVERIFY,
  307.   BOOLGADGET,(APTR)&Borders[1],(APTR)&RevBorder[1],NULL,NULL,NULL,0,NULL},
  308.  
  309.  {(struct Gadget *) &Bools[2],617,97,15,7,GADGHIMAGE,GADGIMMEDIATE|RELVERIFY,
  310.   BOOLGADGET,(APTR)&Borders[3],(APTR)&RevBorder[3],NULL,NULL,NULL,1,NULL},
  311.  
  312.  {(struct Gadget *) &Bools[3],615,24,20,71,NULL,RELVERIFY,PROPGADGET,
  313.   (APTR)&Image1,NULL,NULL,NULL,    (APTR)&PGInfo,2,NULL},
  314.  
  315.  {(struct Gadget *) &Bools[4],43,112,62,10,GADGHIMAGE,RELVERIFY,BOOLGADGET,
  316.   (APTR)&Borders[9],(APTR)&RevBorder[9],(struct IntuiText *) &Texts[3],
  317.   NULL,NULL,3,NULL},
  318.  
  319.  {(struct Gadget *) &Bools[5],127,112,62,10,GADGHIMAGE|GADGDISABLED,
  320.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  321.    (struct IntuiText *) &Texts[4],NULL,NULL,4,NULL},
  322.  
  323.  {(struct Gadget *) &Bools[6],214,112,62,10,GADGHIMAGE|GADGDISABLED,
  324.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  325.    (struct IntuiText *) &Texts[5],NULL,NULL,5,NULL},
  326.  
  327.  {(struct Gadget *) &Bools[7],300,112,62,10,GADGHIMAGE|GADGDISABLED,
  328.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  329.    (struct IntuiText *) &Texts[6],NULL,NULL,6,NULL},
  330.  
  331.  {(struct Gadget *) &Bools[8],384,112,62,10,GADGHIMAGE|GADGDISABLED,
  332.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  333.    (struct IntuiText *) &Texts[7],NULL,NULL,7,NULL},
  334.  
  335.  {(struct Gadget *) &Bools[9],466,112,62,10,GADGHIMAGE|GADGDISABLED,
  336.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  337.    (struct IntuiText *) &Texts[8],NULL,NULL,8,NULL},
  338.  
  339.  {(struct Gadget *) &Bools[10],549,112,62,10,GADGHIMAGE|GADGDISABLED,
  340.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  341.    (struct IntuiText *) &Texts[9],NULL,NULL,9,NULL},
  342.  
  343.  {(struct Gadget *) &Bools[11],43,127,62,10,GADGHIMAGE|GADGDISABLED,
  344.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  345.    (struct IntuiText *) &Texts[10],NULL,NULL,10,NULL},
  346.  
  347.  {(struct Gadget *) &Bools[12],127,127,62,10,GADGHIMAGE|GADGDISABLED,
  348.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  349.    (struct IntuiText *) &Texts[11],NULL,NULL,11,NULL},
  350.  
  351.  {(struct Gadget *) &Bools[13],214,127,62,10,GADGHIMAGE|GADGDISABLED,
  352.    RELVERIFY,BOOLGADGET,(APTR)&Borders[9],(APTR)&RevBorder[9],
  353.    (struct IntuiText *) &Texts[12],NULL,NULL,12,NULL},
  354.  
  355.  {(struct Gadget *) &Bools[14],300,127,62,10,GADGHIMAGE,RELVERIFY,BOOLGADGET,
  356.   (APTR)&Borders[9],(APTR)&RevBorder[9],(struct IntuiText *) &Texts[13],
  357.   NULL,NULL,13,NULL},
  358.  
  359.  {(struct Gadget *) &Bools[15],384,127,62,10,GADGHIMAGE,RELVERIFY,BOOLGADGET,
  360.   (APTR)&Borders[9],(APTR)&RevBorder[9],(struct IntuiText *) &Texts[14],
  361.   NULL,NULL,14,NULL},
  362.  
  363.  {(struct Gadget *) &Bools[16],466,127,145,10,GADGHIMAGE|GADGDISABLED,
  364.    RELVERIFY,BOOLGADGET,(APTR)&Borders[13],(APTR)&RevBorder[13],
  365.    (struct IntuiText *) &Texts[15], NULL,NULL,15,NULL},
  366.  
  367.  {(struct Gadget *) &Bools[17],550,183,30,15,GADGHIMAGE,RELVERIFY,BOOLGADGET,
  368.   (APTR)&Borders[17],(APTR)&RevBorder[17],(struct IntuiText *) &Texts[16],
  369.   NULL,NULL,16,NULL},   
  370.  
  371.  {NULL,280,150,338,9,NULL,RELVERIFY,STRGADGET,
  372.  (APTR)&Borders[21],NULL,NULL,NULL,(APTR)&GadgetSInfo,17,NULL},
  373.  
  374. }; /* end of Bools structure */
  375.  
  376. struct Gadget Select[] = {
  377.  {(struct Gadget *) &Select[1],14,26,594,9,GADGHCOMP,RELVERIFY,
  378.   BOOLGADGET,NULL,NULL,(struct IntuiText *) &SelTexts[0],NULL,NULL,20,NULL},
  379.  
  380.  {(struct Gadget *) &Select[2],14,35,594,10,GADGHCOMP,RELVERIFY,
  381.   BOOLGADGET,NULL,NULL,(struct IntuiText *) &SelTexts[1],NULL,NULL,21,NULL},
  382.  
  383.  {(struct Gadget *) &Select[3],14,45,594,10,GADGHCOMP,RELVERIFY,
  384.   BOOLGADGET,NULL,NULL,(struct IntuiText *) &SelTexts[2],NULL,NULL,22,NULL},
  385.  
  386.  {(struct Gadget *) &Select[4],14,55,594,10,GADGHCOMP,RELVERIFY,
  387.   BOOLGADGET,NULL,NULL,(struct IntuiText *) &SelTexts[3],NULL,NULL,23,NULL},
  388.  
  389.  {(struct Gadget *) &Select[5],14,65,594,10,GADGHCOMP,RELVERIFY,
  390.   BOOLGADGET,NULL,NULL,(struct IntuiText *) &SelTexts[4],NULL,NULL,24,NULL},
  391.  
  392.  {(struct Gadget *) &Select[6],14,75,594,10,GADGHCOMP,RELVERIFY,
  393.   BOOLGADGET,NULL,NULL,(struct IntuiText *) &SelTexts[5],NULL,NULL,25,NULL},
  394.  
  395.  {NULL,14,85,594,9,GADGHCOMP,RELVERIFY,
  396.   BOOLGADGET,NULL,NULL,(struct IntuiText *) &SelTexts[6],NULL,NULL,26,NULL},
  397.  
  398. };
  399.  
  400. struct NewWindow MyWindow = {0,0,640,200,0,1,GADGETDOWN|GADGETUP,
  401.        SIMPLE_REFRESH|BACKDROP+BORDERLESS,(struct Gadget *) &Bools[0],NULL,
  402.        NULL,NULL,NULL,5,5,640,200,CUSTOMSCREEN };
  403.  
  404.  
  405. char *ErrorT[] = {
  406.  "Could not allocate memory!     ",
  407.  "Operation failed!              ",
  408.  "Operation Done                 ",
  409.  "I can not freeze myself!       ",
  410.  "Task not found!                ",
  411.  "No task selected               ",
  412.  "I won't commit Suicide!        ",
  413.  "Click again to confirm ...     ",
  414.  "Operation canceled             ",
  415.  "Give new task priority         ",
  416.  "Given priority was not valid!  ",
  417.  "Give signal mask in hexadecimal",
  418.  "No window or screen selected!  ",
  419.  "Could not open swap file!      ",
  420.  "No Segment found!              ",
  421.  "Not enough space in swap file! ",
  422.  "Could not write to swap file!  ",
  423.  "Could not read swap file!      ",
  424.  "Task memory occupied!          ",
  425.  "Could not swap in the task!    ",
  426.  "Task already swapped out       ", 
  427.  "Task has not been swapped out! ",
  428.  "This Option is not Implemented!",
  429.  "Please Wait ...                ",
  430.  "I can not swap out myself!     ",
  431.  "Allocated memory freed         ",
  432.  "Can't kill a swapped task      ",
  433.  "Can't break a swapped task     ",
  434.  "Can't Signal a swapped task    ",
  435.  "Can't freeze a swapped task    ", 
  436.  "Intruder task address:00000000 ",
  437.  "Intruder not found!            ",
  438.  
  439. };
  440.  
  441. struct TInfo  {
  442.  struct TInfo *next,*prev;
  443.  struct Task *Addr;
  444.  char *name;
  445.  char tempname[40];
  446.  char data[80];
  447. };
  448.  
  449.  
  450. extern struct ExecBase *SysBase;
  451. struct IntuitionBase *IntuitionBase;
  452. struct GfxBase *GfxBase; 
  453. struct DOSBase *DOSBase;
  454. struct Window *MainWin;
  455. struct Screen *MainScr;
  456. struct IntuiMessage *message;
  457. struct Gadget *GadgetPtr;
  458. struct TInfo *first = NULL,*ItemAddr[7],*tinfo,*current,*GraphPtr = NULL; 
  459. struct Task *task,*PrevSelected = NULL;
  460. struct MsgPort *MP,*PredMP;
  461.  
  462. USHORT SelectPos,TaskNum,GadgetNum,Row = 0,OldVPot,SMask;
  463.  
  464. APTR FirstSeg,SegAddr,CurSeg;
  465.  
  466. FILE *file;
  467.  
  468. ULONG State,SSpace,ChipRam,FastRam,class,SigMask,SegSum,SegSize,NumSwap;
  469.  
  470. UBYTE *state[10] = {"NonVal","Added","Runing","Ready","Waiting","Except",
  471.                    "Remove","Error","Frozen","Swapped"};
  472.  
  473. UBYTE *type[17] = {"Unknown","Task","Interrupt","Device","MsgPort","Message",
  474.  "FreeMsg","ReplyMsg","Resource","Library","Memory","SoftInt","Font",
  475.  "Process","Semaphore","SignalSem","BootNode"};
  476.  
  477. UBYTE *BCPLtoC();
  478.  
  479. void Open_UserInterface(),DisplayRam(),CloseAll(),Freeze(),ModifyP(),Pri();
  480. void UpdateTasks(),FreeList(),GetTaskName(),DisplaySwap(),PropMoved();
  481. void WipeGadg(),SwapIn(),FindIntruder(),FreeSwap();
  482. void MoveUp(),MoveDown(),NewSelect(),Update(),Message(),Kill(),Break();
  483. void SendSig(),GetInfo(),Seg(),ClearSelect(),WinScr(),Mem(),SwapOut();
  484.  
  485. int GetList(),GetTaskInfo(),Confirm(),PatchSignaling();
  486.  
  487. APTR FindFirstSegment();
  488.  
  489. int CXBRK() { return(0); }
  490.  
  491. void _main()
  492. {
  493.  strcpy(SBuff,"DF0:");
  494.  Open_UserInterface();
  495.  do {
  496.   WaitPort(MainWin->UserPort);
  497.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  498.   GadgetPtr = (struct Gadget *)message->IAddress;
  499.   GadgetNum = GadgetPtr->GadgetID;
  500.   ReplyMsg((struct Message *) message);
  501.   switch (GadgetNum)
  502.   {
  503.    case  0: MoveDown(1);
  504.             break; 
  505.    case  1: MoveUp(1);
  506.             break; 
  507.    case  2: PropMoved();
  508.             break; 
  509.    case  3: Update();
  510.             break;
  511.    case  4: GetInfo();
  512.             break;
  513.    case  5: Freeze();
  514.             break;
  515.    case  6: Pri();
  516.             break;
  517.    case  7: Kill();
  518.             break;
  519.    case  8: SwapIn();
  520.             UpdateTasks();
  521.             DisplayRam();
  522.             break;
  523.    case  9: SwapOut();
  524.             DisplaySwap();
  525.             break;
  526.    case 10: SendSig();
  527.             break;
  528.    case 11: Break();
  529.             break;
  530.    case 12: Seg();
  531.             break;
  532.    case 13: Mem();
  533.             break;
  534.    case 14: WinScr();
  535.             break;
  536.    case 15: FindIntruder();
  537.             break;
  538.    case 16: if(Confirm(16)) GadgetNum = 100;
  539.             break;
  540.    case 17: DisplaySwap();
  541.             break;
  542.    case 20:
  543.    case 21:
  544.    case 22:
  545.    case 23:
  546.    case 24:
  547.    case 25:
  548.    case 26: NewSelect();
  549.             break;
  550.  
  551.    default: break;
  552.   }
  553.  }while(GadgetNum != 16);          
  554.  if(first) FreeList();
  555.  CloseAll(0L);
  556. }
  557.  
  558.  
  559. void Open_UserInterface()
  560. {
  561.  if(!(IntuitionBase = (struct IntuitionBase *) 
  562.                           OpenLibrary("intuition.library",0L))) CloseAll(20L);
  563.  
  564.  if (!(GfxBase = (struct GfxBase *)
  565.                           OpenLibrary("graphics.library",0L))) CloseAll(20L);
  566.  
  567.  if (!(DOSBase = (struct DOSBase *)
  568.                           OpenLibrary("dos.library",0L))) CloseAll(20L);
  569.  
  570.  UpData = (USHORT *) AllocMem(sizeof(Up),MEMF_CHIP);
  571.  DownData = (USHORT *) AllocMem(sizeof(Down),MEMF_CHIP);
  572.  CopyMem(Up,UpData,sizeof(Up));
  573.  CopyMem(Down,DownData,sizeof(Down));
  574.  UpArrow.ImageData = UpData;
  575.  DownArrow.ImageData = DownData;
  576.  if(!(MainScr = (struct Screen *) OpenScreen(&MyScreen))) CloseAll(10L);
  577.  LoadRGB4(&(MainScr->ViewPort),ColourTable,4);
  578.  MyWindow.Screen = MainScr;
  579.  if(!(MainWin = (struct Window *) OpenWindow(&MyWindow))) CloseAll(10L); 
  580.  DrawBorder(RastPort,(struct Border *) &Borders[41],15L,0L);
  581.  PrintIText(RastPort,(struct IntuiText *) &Texts[24],10,0);
  582.  DrawImage(RastPort,&DownArrow,618L,14L);
  583.  SelectPos = AddGList(MainWin,Select,-1,7,NULL);
  584.  Update();
  585.  if(PatchSignaling()) CloseAll(10L);
  586.  State = TASKS;
  587. }
  588.  
  589.  
  590. void Update()
  591. {
  592.  int count; 
  593.  
  594.  UpdateTasks();
  595.  DisplayRam();
  596.  DisplaySwap();
  597.  PrevSelected = NULL;
  598.  GraphPtr = NULL;
  599.  strcpy(SelTask,"NONE                               ");
  600.  PrintIText(RastPort,(struct IntuiText *)&Texts[28],10,0);
  601.  strcpy(SelTask,"N/A     ");
  602.  PrintIText(RastPort,(struct IntuiText *)&Texts[28],384,0); 
  603.  if((Bools[4].Flags & GADGDISABLED) == NULL)
  604.  {
  605.   RemoveGList(MainWin,&Bools[3],13);
  606.   for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  607.   Bools[3].Flags &= ~GADGDISABLED;
  608.   Bools[13].Flags &= ~GADGDISABLED;
  609.   Bools[14].Flags &= ~GADGDISABLED;
  610.   AddGList(MainWin,&Bools[3],3,13,NULL);
  611.   RefreshGList(&Bools[3],MainWin,NULL,13);
  612.  }
  613. }
  614.  
  615.  
  616. void NewSelect()
  617. {
  618.  short x1 = 10,x2 = 384;
  619.  UBYTE PrevS,CurS;
  620.  int count;
  621.  struct Task *PS;
  622.  
  623.  if(State != INFO)
  624.  {
  625.   PS = PrevSelected;
  626.   if(State == WINSCR)  x1 = 36;
  627.   if(State == MEMORY)  x2 = 84;
  628.   if(TaskNum < (GadgetNum - 19))
  629.   {
  630.    PrevSelected = NULL;
  631.    GraphPtr = NULL;
  632.    if(PS == NULL) return;
  633.    RemoveGList(MainWin,&Bools[3],13);
  634.    for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  635.    if(State != MEMORY)
  636.    {
  637.     strcpy(SelTask,"NONE                               ");
  638.     PrintIText(RastPort,(struct IntuiText *)&Texts[28],x1,0);
  639.     if(State == WINSCR)  Bools[14].Flags &= ~GADGDISABLED;
  640.     if(State == TASKS)
  641.     {
  642.      Bools[3].Flags &= ~GADGDISABLED;
  643.      Bools[13].Flags &= ~GADGDISABLED;
  644.      Bools[14].Flags &= ~GADGDISABLED;
  645.     }
  646.    } 
  647.    else  Bools[13].Flags &= ~GADGDISABLED;
  648.    AddGList(MainWin,&Bools[3],3,13,NULL);
  649.    RefreshGList(&Bools[3],MainWin,NULL,13);
  650.    strcpy(SelTask,"N/A     ");
  651.    PrintIText(RastPort,(struct IntuiText *)&Texts[28],x2,0);
  652.   }
  653.   else 
  654.   { 
  655.    PrevSelected = ItemAddr[GadgetNum - 20]->Addr;
  656.    GraphPtr = ItemAddr[GadgetNum - 20];
  657.    if(State != MEMORY)
  658.    {
  659.     sprintf(SelTask,"%-35.35s",ItemAddr[GadgetNum -20]->name);
  660.     PrintIText(RastPort,(struct IntuiText *)&Texts[28],x1,0);
  661.    }
  662.    if(PS == NULL)
  663.    {
  664.     RemoveGList(MainWin,&Bools[3],13);
  665.     if(State == TASKS)
  666.     { 
  667.      for (count = 3;count != 16;count++)  Bools[count].Flags &= ~GADGDISABLED;
  668.      Bools[8].Flags = Bools[9].Flags = Bools[15].Flags |= GADGDISABLED;
  669.     }
  670.     if(State == WINSCR) Bools[7].Flags &= ~GADGDISABLED;
  671.     if(State == MEMORY) Bools[6].Flags &= ~GADGDISABLED;
  672.     AddGList(MainWin,&Bools[3],3,13,NULL);
  673.     WipeGadg();
  674.     RefreshGList(&Bools[3],MainWin,NULL,13);
  675.    }
  676.    if(State == TASKS)
  677.    {
  678.     if(PrevSelected->tc_State == 8) Bools[5].GadgetText = &Texts[42];
  679.     else Bools[5].GadgetText = &Texts[5];
  680.     RefreshGList(&Bools[5],MainWin,NULL,1);
  681.     if(PrevSelected->tc_State == 9 || PrevSelected->tc_State == 2)
  682.     {
  683.      RemoveGList(MainWin,&Bools[3],13);
  684.      for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  685.      if(PrevSelected->tc_State == 9) 
  686.       Bools[4].Flags = Bools[8].Flags = Bools[15].Flags &= ~GADGDISABLED;
  687.      else 
  688.      {
  689.       Bools[4].Flags &= ~GADGDISABLED; 
  690.       Bools[10].Flags = Bools[11].Flags = Bools[12].Flags &= ~GADGDISABLED;
  691.      }
  692.      Bools[3].Flags = Bools[13].Flags = Bools[14].Flags &= ~GADGDISABLED;
  693.      Bools[6].Flags &=~GADGDISABLED; 
  694.      AddGList(MainWin,&Bools[3],3,13,NULL);
  695.      PrevS = PS->tc_State; CurS = PrevSelected->tc_State;
  696.      if(!((PrevS == 2 && CurS == 2) || (PrevS == 9 && CurS == 9))) WipeGadg();
  697.      if(PrevS == 2 && CurS == 9) WipeGadg(); 
  698.      RefreshGList(&Bools[3],MainWin,NULL,13);
  699.     }
  700.     else if(PS->tc_State == 9 || PS->tc_State == 2)
  701.     {
  702.      RemoveGList(MainWin,&Bools[3],13);
  703.      for (count = 3;count != 16;count++)  Bools[count].Flags &= ~GADGDISABLED;
  704.      Bools[9].Flags = Bools[8].Flags = Bools[15].Flags |= GADGDISABLED;
  705.      AddGList(MainWin,&Bools[3],3,13,NULL);
  706.      WipeGadg();
  707.      RefreshGList(&Bools[3],MainWin,NULL,13);
  708.     }
  709.    }
  710.    sprintf(SelTask,"%08lx",PrevSelected);
  711.    PrintIText(RastPort,(struct IntuiText *)&Texts[28],x2,0); 
  712.   }
  713.  }
  714. } 
  715.   
  716.  
  717. void ModifyP(Pos)
  718. int Pos;
  719. {
  720.  long vbody;
  721.  USHORT vb;
  722.  
  723.  if (TaskNum < 8) vbody = MAXBODY;
  724.  else vbody = (MAXBODY * 7) / TaskNum;
  725.  vb = (USHORT)vbody;
  726.  NewModifyProp(&Bools[2],MainWin,NULL,PGInfo.Flags,PGInfo.HorizPot,
  727.                Pos,PGInfo.HorizBody,vb,1);
  728.  OldVPot = Pos;
  729. } 
  730.  
  731.  
  732. void MoveUp(param)
  733. int param; 
  734. {
  735.  int count;
  736.  
  737.  do
  738.  { 
  739.   if (TaskNum < 8) return;
  740.   if (ItemAddr[6]->next == NULL) 
  741.   {
  742.    if(param) ModifyP(-1);
  743.    return;
  744.   }
  745.   RemoveGList(MainWin,Select,7);
  746.   for(count = 0;count < 7;count++)
  747.   {
  748.    ItemAddr[count] = ItemAddr[count]->next;
  749.    SelTexts[count].IText = ItemAddr[count]->data;
  750.   }
  751.   AddGList(MainWin,Select,-1,7,NULL);
  752.   RefreshGList(Select,MainWin,NULL,7);
  753.   if(param)
  754.   {
  755.    OldVPot = OldVPot + MAXBODY / (TaskNum - 7);
  756.    NewModifyProp(&Bools[2],MainWin,NULL,PGInfo.Flags,PGInfo.HorizPot,
  757.                 OldVPot,PGInfo.HorizBody,PGInfo.VertBody,1);
  758.   }
  759.   if(!param) break;
  760.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  761.  } while(message == NULL);
  762.  if(param) ReplyMsg((struct Message *) message);
  763. }
  764.  
  765.  
  766. void MoveDown(param)
  767. int param;
  768. {
  769.  int count;
  770.  
  771.  do
  772.  { 
  773.   if (TaskNum < 8) return;
  774.   if (ItemAddr[0]->prev == NULL) 
  775.   {
  776.    if(param) ModifyP(0);
  777.    return;
  778.   }
  779.   RemoveGList(MainWin,Select,7);
  780.   for(count = 0;count < 7;count++)
  781.   {
  782.    ItemAddr[count] = ItemAddr[count]->prev;
  783.    SelTexts[count].IText = ItemAddr[count]->data;
  784.   }
  785.   AddGList(MainWin,Select,-1,7,NULL);
  786.   RefreshGList(Select,MainWin,NULL,7);
  787.   if(param)
  788.   {
  789.    OldVPot = OldVPot - MAXBODY / (TaskNum - 7);
  790.    NewModifyProp(&Bools[2],MainWin,NULL,PGInfo.Flags,PGInfo.HorizPot,
  791.                 OldVPot,PGInfo.HorizBody,PGInfo.VertBody,1);
  792.   }
  793.   if(!param) break;
  794.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  795.  } while(message == NULL); 
  796.  if(param) ReplyMsg((struct Message *) message);
  797. }
  798.  
  799.  
  800. void PropMoved()
  801. {
  802.  short factor = 1;
  803.   
  804.  if (TaskNum < 8) return;
  805.  if(max(OldVPot,PGInfo.VertPot) == OldVPot) factor = -1;
  806.  if(factor == 1) 
  807.  {
  808.   while(OldVPot < PGInfo.VertPot)
  809.   { 
  810.    MoveUp(0);
  811.    if(OldVPot > (0xffff - (MAXBODY / (TaskNum - 7))))
  812.    {
  813.     OldVPot = 0xffff;
  814.     break;
  815.    }
  816.    OldVPot = OldVPot + MAXBODY / (TaskNum - 7);
  817.   }
  818.  }
  819.  else 
  820.  {
  821.   while(OldVPot > PGInfo.VertPot)
  822.   {
  823.    MoveDown(0);
  824.    if(OldVPot < (MAXBODY / (TaskNum - 7)))
  825.    {
  826.     OldVPot = 0;
  827.     break;
  828.    } 
  829.    OldVPot = OldVPot - MAXBODY / (TaskNum - 7);
  830.   }
  831.  }
  832.  NewModifyProp(&Bools[2],MainWin,NULL,PGInfo.Flags,PGInfo.HorizPot,
  833.                OldVPot,PGInfo.HorizBody,PGInfo.VertBody,1);
  834. }
  835.  
  836.  
  837. int Confirm(GadgNum)
  838. int GadgNum;
  839. {
  840.  Message(CONFIRM);
  841.  WaitPort(MainWin->UserPort);
  842.  message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  843.  class = message->Class;
  844.  GadgetPtr = (struct Gadget *)message->IAddress;
  845.  GadgetNum = GadgetPtr->GadgetID;
  846.  ReplyMsg((struct Message *) message); 
  847.  switch(GadgetNum)
  848.  {
  849.   case  0: MoveDown(1);
  850.            break;
  851.   case  1: MoveUp(1);
  852.            break;   
  853.   case  2: PropMoved();
  854.            break;
  855.  } 
  856.  if(GadgetNum == GadgNum) return(SUCCESS);
  857.  Message(CANCELED);
  858.  return(FAILER);
  859. }
  860.  
  861.  
  862. void Mem()
  863. {
  864.  struct MemHeader *memheader;
  865.  struct MemChunk *memchunk;
  866.  struct TInfo *cur,*ti;
  867.  int count,type;
  868.  
  869.  PrevSelected = NULL;
  870.  if(State == MEMORY)
  871.  {
  872.   State = TASKS;
  873.   RemoveGList(MainWin,&Bools[3],13);
  874.   Bools[13].GadgetText = &Texts[13];
  875.   Bools[6].GadgetText = &Texts[6];
  876.   for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  877.   Bools[3].Flags &= ~GADGDISABLED;
  878.   Bools[13].Flags &= ~GADGDISABLED;
  879.   Bools[14].Flags &= ~GADGDISABLED;
  880.   AddGList(MainWin,&Bools[3],3,13,NULL);
  881.   WipeGadg();
  882.   RefreshGList(&Bools[3],MainWin,NULL,13);
  883.   Texts[24].NextText = NULL;
  884.   PrintIText(RastPort,(struct IntuiText *)&Texts[24],10,0);
  885.   Texts[24].NextText = &Texts[23];
  886.   PrintIText(RastPort,(struct IntuiText *)&Texts[18],10,0);
  887.   strcpy(SelTask,"NONE                               ");
  888.   PrintIText(RastPort,(struct IntuiText *)&Texts[28],10,0);
  889.   strcpy(SelTask,"N/A     ");
  890.   PrintIText(RastPort,(struct IntuiText *)&Texts[28],384,0); 
  891.   UpdateTasks();
  892.   return;
  893.  }
  894.  State = MEMORY;
  895.  PrintIText(RastPort,(struct IntuiText *)&Texts[37],10,0);
  896.  RemoveGList(MainWin,&Bools[3],13);
  897.  Bools[13].GadgetText = &Texts[31];
  898.  Bools[6].GadgetText = &Texts[39];
  899.  for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  900.  Bools[13].Flags &= ~GADGDISABLED;
  901.  AddGList(MainWin,&Bools[3],3,13,NULL);
  902.  RefreshGList(&Bools[3],MainWin,NULL,13);
  903.  PrintIText(RastPort,(struct IntuiText *)&Texts[41],10,0); 
  904.  strcpy(SelTask,"N/A                                               ");
  905.  PrintIText(RastPort,(struct IntuiText *)&Texts[28],84,0);
  906.  current = NULL;
  907.  TaskNum = 0;
  908.  if(first) FreeList();
  909.  if(GetList()) return;
  910.  first = tinfo;
  911.  Disable();
  912.  for(memheader = (struct MemHeader *)SysBase->MemList.lh_Head;
  913.      memheader->mh_Node.ln_Succ;
  914.      memheader = (struct MemHeader *)memheader->mh_Node.ln_Succ)
  915.  {
  916.   if(memheader->mh_Attributes & MEMF_CHIP) type = 1;
  917.   else type = 0;
  918.   for(memchunk = memheader->mh_First;memchunk;memchunk = memchunk->mc_Next)
  919.   {
  920.    TaskNum++;
  921.    if(type) strcpy(tinfo->tempname,"CHIP");
  922.    else strcpy(tinfo->tempname,"FAST");
  923.    tinfo->Addr = (struct Task *)memchunk;
  924.    sprintf(tinfo->data,"    %08lx   %10lu     %s     %10u  %-23.23s",
  925.            memchunk,memchunk->mc_Bytes - sizeof(struct MemChunk),
  926.            tinfo->tempname,TaskNum," ");
  927.    if(GetList()) {Enable(); return;}
  928.   }
  929.  }
  930.  Enable();
  931.  ti = tinfo->prev;
  932.  ti->next = NULL;
  933.  FreeMem(tinfo,sizeof(struct TInfo));
  934.  for(cur = first,count = 0;count != min(7,TaskNum);cur = cur->next,count++) 
  935.  {
  936.   ItemAddr[count] = cur;
  937.   SelTexts[count].IText = cur->data;
  938.  }
  939.  if(count < 7) ClearSelect(count);
  940.  RefreshGList(Select,MainWin,NULL,7); 
  941.  ModifyP(0);
  942. }
  943.  
  944.  
  945. void WinScr()
  946. {
  947.  struct Screen *CurScr;
  948.  struct Window *CurWin;
  949.  struct TInfo *cur,*ti;
  950.  int count;
  951.  
  952.  PrevSelected = NULL;
  953.  if(State == WINSCR)
  954.  {
  955.   State = TASKS;
  956.   RemoveGList(MainWin,&Bools[3],13);
  957.   Bools[14].GadgetText = &Texts[14];
  958.   Bools[7].GadgetText = &Texts[7];
  959.   for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  960.   Bools[3].Flags &= ~GADGDISABLED;
  961.   Bools[13].Flags &= ~GADGDISABLED;
  962.   Bools[14].Flags &= ~GADGDISABLED;
  963.   AddGList(MainWin,&Bools[3],3,13,NULL);
  964.   WipeGadg();
  965.   RefreshGList(&Bools[3],MainWin,NULL,13);
  966.   Texts[24].NextText = NULL;
  967.   PrintIText(RastPort,(struct IntuiText *)&Texts[24],10,0);
  968.   Texts[24].NextText = &Texts[23];
  969.   PrintIText(RastPort,(struct IntuiText *)&Texts[18],10,0);
  970.   strcpy(SelTask,"NONE                               ");
  971.   PrintIText(RastPort,(struct IntuiText *)&Texts[28],10,0);
  972.   strcpy(SelTask,"N/A     ");
  973.   PrintIText(RastPort,(struct IntuiText *)&Texts[28],384,0); 
  974.   UpdateTasks();
  975.   GraphPtr = NULL;
  976.   return;
  977.  }
  978.  State = WINSCR;
  979.  PrintIText(RastPort,(struct IntuiText *)&Texts[37],10,0);
  980.  RemoveGList(MainWin,&Bools[3],13);
  981.  Bools[14].GadgetText = &Texts[31];
  982.  Bools[7].GadgetText = &Texts[38];
  983.  for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  984.  Bools[14].Flags &= ~GADGDISABLED;
  985.  AddGList(MainWin,&Bools[3],3,13,NULL);
  986.  RefreshGList(&Bools[3],MainWin,NULL,13);
  987.  strcpy(SelTask,"NONE                               ");
  988.  PrintIText(RastPort,(struct IntuiText *)&Texts[28],36,0);
  989.  strcpy(SelTask,"N/A     ");
  990.  PrintIText(RastPort,(struct IntuiText *)&Texts[28],384,0); 
  991.  current = NULL;
  992.  TaskNum = 0;
  993.  if(first) FreeList();
  994.  Disable();
  995.  CurScr = IntuitionBase->FirstScreen;
  996.  if(GetList()) {Enable(); return;}
  997.  first = tinfo;
  998.  while(CurScr)
  999.  {
  1000.   sprintf(tinfo->data,"Screen:%-54.54s    %08lx",
  1001.           CurScr->Title,CurScr);
  1002.   tinfo->Addr = (struct Task *)CurScr;
  1003.   strcpy(tinfo->tempname,"screen");
  1004.   tinfo->name = CurScr->Title;
  1005.   TaskNum++;
  1006.   CurWin = CurScr->FirstWindow;
  1007.   while(CurWin)
  1008.   {
  1009.    if(GetList()) {Enable(); return;}
  1010.    sprintf(tinfo->data,"Window:%-45.45s  %08lx   %08lx",
  1011.            CurWin->Title,CurWin->IDCMPFlags,CurWin);
  1012.    tinfo->Addr = (struct Task *)CurWin;
  1013.    strcpy(tinfo->tempname,"window");
  1014.    tinfo->name = CurWin->Title;
  1015.    CurWin = CurWin->NextWindow;
  1016.    TaskNum++;
  1017.   }
  1018.   CurScr = CurScr->NextScreen;
  1019.   if(GetList()) {Enable(); return;}
  1020.  }
  1021.  Enable();
  1022.  ti = tinfo->prev;
  1023.  ti->next = NULL;
  1024.  FreeMem(tinfo,sizeof(struct TInfo));
  1025.  for(cur = first,count = 0;count != min(7,TaskNum);cur = cur->next,count++) 
  1026.  {
  1027.   ItemAddr[count] = cur;
  1028.   SelTexts[count].IText = cur->data;
  1029.  }
  1030.  if(count < 7) ClearSelect(count);
  1031.  RefreshGList(Select,MainWin,NULL,7); 
  1032.  ModifyP(0);
  1033. }  
  1034.   
  1035.  
  1036. void SwapOut()
  1037. {
  1038.  ULONG Lower,Sig[3];
  1039.  APTR segment;
  1040.  int actual;
  1041.  
  1042.  if(!PrevSelected) { Message(NOTASK); return;}
  1043.  if(!FindTask(PrevSelected->tc_Node.ln_Name)) {Message(NOTFOUND); return;}
  1044.  if(PrevSelected->tc_State == 2) { Message(NSWAPME); return; }
  1045.  if(!FirstSeg) {Message(NOSEG); return;}
  1046.  if(SegSum >= SSpace) {Message(NOSPC); return;}
  1047.  if(PrevSelected->tc_State == 9) {Message(SWAPPED); return;}
  1048.  if(Confirm(9)) return; 
  1049.  if(!(file = fopen(SBuff,"w"))) {Message(NOFILE); return;}
  1050.  Message(WAIT);
  1051.  Forbid();
  1052.  PrevSelected->tc_State = 9; 
  1053.  Remove((struct Node *)PrevSelected);
  1054.  Insert(&(SysBase->IntrList),(struct Node *)PrevSelected,NULL);
  1055.  memcpy((char *)Sig,(char *)&(PrevSelected->tc_SigWait),12);
  1056.  memset((char *)&(PrevSelected->tc_SigWait),0,12);
  1057.  Permit();
  1058.  segment = FirstSeg;
  1059.  while(segment)
  1060.  {
  1061.   Lower =  (ULONG)segment + 4;
  1062.   SegSize = ((ULONG *)segment)[-1];
  1063.   segment = (APTR)(((ULONG *)segment)[0] * 4);
  1064.   if(SegSize < 200) continue;
  1065.   CurSeg = (APTR)(Lower - 8);
  1066.   actual = fwrite((char *)&CurSeg,4,1,file);
  1067.   if(actual != 1) {Message(WERROR); fclose(file); return;} 
  1068.   actual = fwrite((char *)&SegSize,4,1,file);
  1069.   if(actual != 1) {Message(WERROR); fclose(file); return;} 
  1070.   actual = fwrite((char *)CurSeg,1,SegSize,file);
  1071.   if(actual != SegSize) {Message(WERROR); fclose(file); return;} 
  1072.   FreeMem(CurSeg,SegSize);
  1073.   DisplayRam();
  1074.  }
  1075.  CurSeg = NULL;
  1076.  actual = fwrite((char *)&CurSeg,4,1,file);
  1077.  if(actual != 1) {Message(WERROR); fclose(file); return;} 
  1078.  actual = fwrite((char *)Sig,4,3,file);
  1079.  if(actual != 3) {Message(WERROR); fclose(file); return;}
  1080.  fclose(file); 
  1081.  RemoveGList(MainWin,&Bools[9],1);
  1082.  Bools[9].Flags |= GADGDISABLED;
  1083.  AddGList(MainWin,&Bools[9],9,1,NULL);
  1084.  RefreshGList(&Bools[9],MainWin,NULL,1);
  1085.  Message(DONE);
  1086. }
  1087.  
  1088.  
  1089. void SwapIn()
  1090. {
  1091.  int actual;
  1092.  ULONG Sig[3];
  1093.  
  1094.  if(!PrevSelected) {Message(NOTASK); return;}
  1095.  if(PrevSelected->tc_State != 9) {Message(NSWAPPED); return;}
  1096.  if(!(file = fopen(SBuff,"r"))) {Message(NOFILE); return;}
  1097.  Message(WAIT);
  1098.  if(first) FreeList();
  1099.  SegSum = 0;
  1100.  NumSwap = 0;
  1101.  while(TRUE)
  1102.  {
  1103.   actual = fread((char *)&SegAddr,4,1,file);
  1104.   if(actual != 1) {FreeSwap(1); return;}
  1105.   if(SegAddr == NULL) break;
  1106.   actual = fread((char *)&SegSize,4,1,file);
  1107.   if(actual != 1) {FreeSwap(1); return;}  
  1108.   fclose(file); file = NULL;
  1109.   if(!AllocAbs(SegSize,SegAddr)) 
  1110.   {
  1111.    FreeSwap(0);
  1112.    Message(OCCUPIED1); Message(OCCUPIED2); 
  1113.    Message(FREED);
  1114.    return;
  1115.   }
  1116.   if(!(file = fopen(SBuff,"r"))) {Message(NOFILE); return;}
  1117.   fseek(file,SegSum + (NumSwap + 1) * 8,0);
  1118.   actual = fread((char *)SegAddr,1,SegSize,file);
  1119.   if(actual != SegSize) {FreeSwap(1); return;} 
  1120.   NumSwap++;
  1121.   SegSum += SegSize;
  1122.  }   
  1123.  actual = fread((char *)Sig,4,3,file);
  1124.  if(actual != 3) {FreeSwap(1); return;}
  1125.  if(file) fclose(file);
  1126.  Forbid();
  1127.  PrevSelected->tc_State = 3;
  1128.  memcpy((char *)&(PrevSelected->tc_SigWait),(char *)Sig,12);
  1129.  Remove((struct Node *)PrevSelected);
  1130.  Insert(&(SysBase->TaskReady),(struct Node *)PrevSelected,NULL);
  1131.  Permit();
  1132.  Update();
  1133.  Message(DONE);
  1134. }
  1135.  
  1136.  
  1137. void FreeSwap(Arg)
  1138. int Arg;
  1139. {
  1140.  int count;
  1141.  
  1142.  if(file) fclose(file);
  1143.  if(Arg) Message(RERROR);
  1144.  if(!NumSwap) return;
  1145.  if(!(file = fopen(SBuff,"r"))) {Message(NOFILE); return;}
  1146.  for(count = 0;count <NumSwap;count++)
  1147.  {
  1148.   fread((char *)&SegAddr,4,1,file);
  1149.   if(feof(file)) break;
  1150.   fread((char *)&SegSize,4,1,file);
  1151.   if(feof(file)) break;
  1152.   FreeMem(SegAddr,SegSize);
  1153.   DisplayRam();
  1154.   fseek(file,SegSize,1);
  1155.  }
  1156.  fclose(file);
  1157.  if(Arg) Message(FREED);
  1158. }    
  1159.  
  1160.  
  1161. void FindIntruder()
  1162. {
  1163.  struct TInfo *curtask,*temp,*cur;
  1164.  ULONG SegUp,Size,Up,skip,Lower;
  1165.  APTR Segment,Seg;
  1166.  int actual,NotFound = TRUE;
  1167.  
  1168.  if(!(file = fopen(SBuff,"r"))) {Message(NOFILE); return;}
  1169.  Message(WAIT);
  1170.  temp = first;
  1171.  if(GetList()) return;
  1172.  first = tinfo->prev;
  1173.  first->next = NULL;
  1174.  first = tinfo;
  1175.  while(TRUE)
  1176.  {
  1177.   curtask = temp;
  1178.   actual = fread((char *)&SegAddr,4,1,file);
  1179.   if(actual != 1) {Message(RERROR); fclose(file); return;}
  1180.   if(SegAddr == NULL)  break;
  1181.   actual = fread((char *)&SegSize,4,1,file);
  1182.   if(actual != 1) {Message(RERROR); fclose(file); return;} 
  1183.   SegUp = (ULONG)SegAddr + SegSize;
  1184.   while(FindTask((curtask->Addr)->tc_Node.ln_Name))
  1185.   {
  1186.    Segment = FindFirstSegment(curtask->Addr);
  1187.    while(Segment)
  1188.    {
  1189.     Lower = (ULONG)Segment + 4;
  1190.     Size = ((ULONG *)Segment)[-1];
  1191.     Segment = (APTR)(((ULONG *)Segment)[0] * 4);
  1192.     Seg = (APTR)(Lower - 8);
  1193.     Up = (ULONG)Seg + Size;
  1194.     skip = FALSE;
  1195.     if(((Seg > SegAddr) && ((ULONG)Seg < SegUp)) || 
  1196.                                        ((Up > (ULONG)SegAddr) && (Up < SegUp)))
  1197.     {
  1198.      for(cur = first;cur;cur = cur->next) 
  1199.       if(curtask->Addr == cur->Addr) skip = TRUE;
  1200.      if(!skip)
  1201.      { 
  1202.       sprintf(ErrorT[INTRUDER],"Intruder task address:%08lx ",curtask->Addr);
  1203.       tinfo->Addr = curtask->Addr;
  1204.       if(GetList()) { FreeList(); first = temp; fclose(file); return;}
  1205.       Message(INTRUDER);
  1206.       NotFound = FALSE;
  1207.      }
  1208.     }
  1209.    }
  1210.    if(!(curtask = curtask->next)) break; 
  1211.   }
  1212.   fseek(file,SegSize,1);
  1213.  } 
  1214.  FreeList();
  1215.  fclose(file);
  1216.  first = temp;
  1217.  if(NotFound) Message(INTNFOUND);
  1218.  else Message(DONE);
  1219. }
  1220.  
  1221.  
  1222. APTR FindFirstSegment(taskptr)
  1223. struct Task *taskptr;
  1224. {
  1225.  APTR segment = 0;
  1226.  struct Process *proc;
  1227.  struct CommandLineInterface *cli;
  1228.  
  1229.  if(taskptr->tc_State == 9) { return(NULL); }
  1230.  proc = (struct Process  *)taskptr;
  1231.  if(taskptr->tc_Node.ln_Type == 13)
  1232.  {   
  1233.   segment = (APTR)((proc->pr_SegList) << 2);
  1234.   segment = (APTR)(((ULONG *)segment)[3] << 2);
  1235.   if(!segment) 
  1236.   {
  1237.    cli = (struct CommandLineInterface *) (((ULONG)proc->pr_CLI) << 2); 
  1238.    segment = (APTR)((ULONG)cli->cli_Module << 2);
  1239.   }
  1240.  }
  1241.  return(segment);
  1242. }
  1243.  
  1244.  
  1245. void Seg()
  1246. {
  1247.  ULONG Lower,Upper,Size;
  1248.  APTR segment = 0;
  1249.  int count;
  1250.  struct Process *proc;
  1251.  struct TInfo *cur;
  1252.  char type[6];
  1253.  
  1254.  SegSum = 0; 
  1255.  FirstSeg = NULL;
  1256.  if(State == INFO)
  1257.  {
  1258.   State = TASKS;
  1259.   RemoveGList(MainWin,&Bools[3],13);
  1260.   Bools[12].GadgetText = &Texts[12];
  1261.   for (count = 3;count != 16;count++)  Bools[count].Flags &= ~GADGDISABLED;
  1262.   Bools[9].Flags = GADGDISABLED;  Bools[8].Flags = GADGDISABLED;
  1263.   Bools[15].Flags = GADGDISABLED;
  1264.   RemoveGList(MainWin,&Bools[3],13);
  1265.   if(PrevSelected->tc_State == 9 || PrevSelected->tc_State == 2)
  1266.   {
  1267.    for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  1268.    if(PrevSelected->tc_State == 9) 
  1269.     Bools[4].Flags = Bools[8].Flags = Bools[15].Flags &= ~GADGDISABLED;
  1270.    else 
  1271.    {
  1272.     Bools[4].Flags &= ~GADGDISABLED; 
  1273.     Bools[10].Flags = Bools[11].Flags = Bools[12].Flags &= ~GADGDISABLED;
  1274.    }
  1275.    Bools[3].Flags = Bools[13].Flags = Bools[14].Flags &= ~GADGDISABLED;
  1276.    Bools[6].Flags &= ~GADGDISABLED;
  1277.   }
  1278.   AddGList(MainWin,&Bools[3],3,13,NULL);
  1279.   WipeGadg();
  1280.   RefreshGList(&Bools[3],MainWin,NULL,13);
  1281.   RemoveGList(MainWin,Select,7);
  1282.   for (count = 0;count != 7;count++)  Select[count].Flags = GADGHCOMP;
  1283.   AddGList(MainWin,Select,-1,7,NULL);
  1284.   Texts[24].NextText = NULL;
  1285.   PrintIText(RastPort,(struct IntuiText *)&Texts[24],10,0);
  1286.   Texts[24].NextText = &Texts[23];
  1287.   UpdateTasks();
  1288.   return;
  1289.  }
  1290.  State = INFO;
  1291.  if(!PrevSelected) { Message(NOTASK); return; }
  1292.  if(PrevSelected->tc_State == 9) { Message(SWAPPED); return; }
  1293.  if(!FindTask(PrevSelected->tc_Node.ln_Name)) {Message(NOTFOUND); return;}
  1294.  TaskNum = 1;
  1295.  RemoveGList(MainWin,&Bools[3],13);
  1296.  Bools[12].GadgetText = &Texts[31];
  1297.  for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  1298.  Bools[12].Flags &= ~GADGDISABLED;
  1299.  if(PrevSelected->tc_State != 2) Bools[9].Flags = GADGHIMAGE;
  1300.  AddGList(MainWin,&Bools[3],3,13,NULL);
  1301.  WipeGadg();
  1302.  RefreshGList(&Bools[3],MainWin,NULL,13);
  1303.  RemoveGList(MainWin,Select,7);
  1304.  for (count = 0;count != 7;count++)  Select[count].Flags = GADGHNONE;
  1305.  AddGList(MainWin,Select,-1,7,NULL);
  1306.  PrintIText(RastPort,(struct IntuiText *)&Texts[33],10,0);
  1307.  if(first) FreeList();
  1308.  Disable();
  1309.  current = NULL;
  1310.  if(GetList()) {Enable(); return;}
  1311.  first = tinfo;
  1312.  proc = (struct Process  *)PrevSelected;
  1313.  if(PrevSelected->tc_Node.ln_Type == 13)
  1314.  {   
  1315.   if(PrevSelected->tc_State == 9) {Message(SWAPPED); Enable(); return;}
  1316.   if(!FindTask(PrevSelected->tc_Node.ln_Name))  
  1317.                                   {Message(NOTFOUND); Enable(); return;}
  1318.   segment = FindFirstSegment(PrevSelected);
  1319.   FirstSeg = segment;
  1320.   while(segment)
  1321.   {
  1322.    TaskNum++;
  1323.    Lower =  (ULONG)segment + 4;
  1324.    Size = ((ULONG *)segment)[-1];
  1325.    Upper = Lower + Size - 8;
  1326.    SegSum += Size;
  1327.    if(MEMF_CHIP & TypeOfMem(Lower)) strcpy(type,"CHIP");
  1328.    else strcpy(type,"FAST");
  1329.    sprintf(tinfo->data,"  %08lx           %08lx    %10lu   %s %-23s",
  1330.            Lower,Upper,Size,type," ");
  1331.    if(GetList()) {Enable(); return;}
  1332.    segment = (APTR)(((ULONG *)segment)[0] * 4);
  1333.   }
  1334.  } 
  1335.  Enable();
  1336.  if(SegSum == 0) Bools[9].Flags |= GADGDISABLED;
  1337.  RefreshGList(&Bools[9],MainWin,NULL,1);
  1338.  sprintf(tinfo->data,"Total Memory: %10lu                            %-21s",
  1339.          SegSum," ");
  1340.  for(cur = first,count = 0;count != min(7,TaskNum);cur = cur->next,count++) 
  1341.  {
  1342.   ItemAddr[count] = cur;
  1343.   SelTexts[count].IText = cur->data;
  1344.  }
  1345.  if(count < 7) ClearSelect(count);
  1346.  ModifyP(0);
  1347.  RefreshGList(Select,MainWin,NULL,7); 
  1348. }  
  1349.  
  1350.      
  1351. void GetInfo()
  1352. {
  1353.  struct Process *proc = (struct Process *)PrevSelected;
  1354.  struct Window *PW;
  1355.  struct CommandLineInterface *cli;
  1356.  struct TInfo *cur;
  1357.  UBYTE  title[40];
  1358.  int    count;
  1359.  APTR   segment; 
  1360.  
  1361.  if(State == INFO)
  1362.  {
  1363.   State = TASKS;
  1364.   RemoveGList(MainWin,&Bools[3],13);
  1365.   Bools[4].GadgetText = &Texts[4];
  1366.   for (count = 3;count != 16;count++)  Bools[count].Flags &= ~GADGDISABLED;
  1367.   Bools[9].Flags = GADGDISABLED; 
  1368.   if(PrevSelected->tc_State == 9 || PrevSelected->tc_State == 2)
  1369.   {
  1370.    for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  1371.    if(PrevSelected->tc_State == 9) 
  1372.     Bools[4].Flags = Bools[8].Flags = Bools[15].Flags &= ~GADGDISABLED;
  1373.    else 
  1374.    {
  1375.     Bools[4].Flags &= ~GADGDISABLED; 
  1376.     Bools[10].Flags = Bools[11].Flags = Bools[12].Flags &= ~GADGDISABLED;
  1377.    }
  1378.    Bools[3].Flags = Bools[13].Flags = Bools[14].Flags &= ~GADGDISABLED;
  1379.    Bools[6].Flags &= ~GADGDISABLED;
  1380.   }
  1381.   AddGList(MainWin,&Bools[3],3,13,NULL);
  1382.   WipeGadg();
  1383.   RefreshGList(&Bools[3],MainWin,NULL,13);
  1384.   RemoveGList(MainWin,Select,7);
  1385.   for (count = 0;count != 7;count++)  Select[count].Flags = GADGHCOMP;
  1386.   AddGList(MainWin,Select,-1,7,NULL);  
  1387.   Texts[24].NextText = NULL;
  1388.   PrintIText(RastPort,(struct IntuiText *)&Texts[24],10,0);
  1389.   Texts[24].NextText = &Texts[23];
  1390.   UpdateTasks();
  1391.   return;
  1392.  }
  1393.  State = INFO;
  1394.  if(!PrevSelected) { Message(NOTASK); return; }
  1395.  RemoveGList(MainWin,&Bools[3],13);
  1396.  Bools[4].GadgetText = &Texts[31];
  1397.  for (count = 3;count != 16;count++)  Bools[count].Flags |= GADGDISABLED;
  1398.  Bools[4].Flags &= ~GADGDISABLED;
  1399.  AddGList(MainWin,&Bools[3],3,13,NULL);
  1400.  RefreshGList(&Bools[3],MainWin,NULL,13);
  1401.  RemoveGList(MainWin,Select,7);
  1402.  for (count = 0;count != 7;count++)  Select[count].Flags = GADGHNONE;
  1403.  AddGList(MainWin,Select,-1,7,NULL);
  1404.  PrintIText(RastPort,(struct IntuiText *)&Texts[32],10,0);
  1405.  Disable();
  1406.  current = NULL;
  1407.  if(first) FreeList();
  1408.  if(GetList()) {Enable(); return;}
  1409.  sprintf(tinfo->data,"Task Information:                           %-30.30s",
  1410.          " ");
  1411.  first = tinfo;
  1412.  if(GetList()) {Enable(); return;}
  1413.  sprintf(tinfo->data,"IDNestCnt = %08lx           TDNestCnt = %08lx     %-17s",
  1414.          proc->pr_Task.tc_IDNestCnt,proc->pr_Task.tc_TDNestCnt," ");
  1415.  if(GetList()) {Enable(); return;}
  1416.  sprintf(tinfo->data,"SigAlloc = %08lx            SigWait = %08lx       %-17s",
  1417.          proc->pr_Task.tc_SigAlloc,proc->pr_Task.tc_SigWait," ");
  1418.  if(GetList()) {Enable(); return;}
  1419.  sprintf(tinfo->data,"SigRecvd = %08lx            SigExcept = %08lx     %-17s",
  1420.          proc->pr_Task.tc_SigRecvd,proc->pr_Task.tc_SigExcept," ");
  1421.  if(GetList()) {Enable(); return;}
  1422.  sprintf(tinfo->data,"TrapAlloc = %08lx           TrapAble = %08lx      %-17s",
  1423.          proc->pr_Task.tc_TrapAlloc,proc->pr_Task.tc_TrapAble," ");
  1424.  if(GetList()) {Enable(); return;}
  1425.  sprintf(tinfo->data,"ExceptData = %08lx          ExceptCode = %08lx    %-17s",
  1426.          proc->pr_Task.tc_ExceptData,proc->pr_Task.tc_ExceptCode," ");
  1427.  if(GetList()) {Enable(); return;}
  1428.  sprintf(tinfo->data,"SPReg = %08lx                                  %-23s",
  1429.          proc->pr_Task.tc_SPReg," ");
  1430.  if(GetList()) {Enable(); return;}
  1431.  sprintf(tinfo->data,"SPLower = %08lx             SPUpper = %08lx       %-17s",
  1432.          proc->pr_Task.tc_SPLower,proc->pr_Task.tc_SPUpper," ");
  1433.  if(GetList()) {Enable(); return;}
  1434.  sprintf(tinfo->data,"Switch() : %08lx            Launch() : %08lx      %-17s",
  1435.          proc->pr_Task.tc_Switch,proc->pr_Task.tc_Launch," ");
  1436.  if(GetList()) {Enable(); return;}
  1437.  sprintf(tinfo->data,"UserData = %08lx                               %-20s",
  1438.          proc->pr_Task.tc_UserData);
  1439.  TaskNum = 10;
  1440.  if(proc->pr_Task.tc_Node.ln_Type == 13)
  1441.  {
  1442.   PW = (struct Window *)proc->pr_WindowPtr; 
  1443.   if(PW != (struct Window *)-1L && PW) strncpy(title,PW->Title,38);
  1444.   else strcpy(title,"");
  1445.   if(GetList()) {Enable(); return;}
  1446.   sprintf(tinfo->data,"Process Information:                          %-20s",
  1447.            " "); 
  1448.   if(GetList()) {Enable(); return;}
  1449.   sprintf(tinfo->data,"WindowPtr = %08lx          Title : %-22.22s",PW,title);
  1450.   if(GetList()) {Enable(); return;}
  1451.   sprintf(tinfo->data,"CurrentDir =  %08lx                           %-20s",
  1452.           proc->pr_CurrentDir << 2," ");
  1453.   if(GetList()) {Enable(); return;}
  1454.   sprintf(tinfo->data,"StackBase = %08lx          StackSize = %08lx     %-17s",
  1455.           proc->pr_StackBase << 2,proc->pr_StackSize," ");
  1456.   if(GetList()) {Enable(); return;}
  1457.   sprintf(tinfo->data,"CIS = %08lx                COS = %08lx           %-17s",
  1458.           proc->pr_CIS << 2,proc->pr_COS << 2," ");
  1459.   if(GetList()) {Enable(); return;}
  1460.   sprintf(tinfo->data,"ConsoleTask = %08lx        FileSystemTask = %08lx%-17s",
  1461.           proc->pr_ConsoleTask,proc->pr_FileSystemTask," ");
  1462.   segment = (APTR) (((ULONG)proc->pr_SegList) << 2);
  1463.   segment = (APTR) (((ULONG *)segment)[3] << 2);
  1464.   if(GetList()) {Enable(); return;}
  1465.   sprintf(tinfo->data,"SegList = %08lx            SegPointer = %08lx    %-17s",
  1466.           proc->pr_SegList << 2,segment," ");
  1467.   if(GetList()) {Enable(); return;}
  1468.   sprintf(tinfo->data,"PktWait = %08lx            CLI = %08lx           %-17s",
  1469.           proc->pr_PktWait,proc->pr_CLI," ");
  1470.   TaskNum += 8;
  1471.  }
  1472.  if(proc->pr_CLI)
  1473.  { 
  1474.   cli = (struct CommandLineInterface *)((ULONG)proc->pr_CLI << 2);
  1475.   if(GetList()) {Enable(); return;}
  1476.   sprintf(tinfo->data,"CommandLineInterface Information:             %-20s",
  1477.           " ");
  1478.   if(GetList()) {Enable(); return;}
  1479.   sprintf(tinfo->data,"CommandDir = %08lx                            %-20s",
  1480.           cli->cli_CommandDir << 2," ");
  1481.   if(GetList()) {Enable(); return;}
  1482.   sprintf(tinfo->data,"StdInput = %08lx           StdOutput = %08lx     %-17s",
  1483.           cli->cli_StandardInput << 2 ,cli->cli_StandardOutput << 2," ");
  1484.   if(GetList()) {Enable(); return;}
  1485.   sprintf(tinfo->data,"CurrentInput = %08lx       CurrentOutput = %08lx %-17s",
  1486.           cli->cli_CurrentInput << 2,cli->cli_CurrentOutput << 2," ");
  1487.   if(GetList()) {Enable(); return;}
  1488.   sprintf(tinfo->data,"Module = %08lx                                %-20s",
  1489.           cli->cli_Module << 2," ");
  1490.   TaskNum += 5;
  1491.  }
  1492.  Enable();
  1493.  for(cur = first,count = 0;count != 7;cur = cur->next,count++) 
  1494.  {
  1495.   ItemAddr[count] = cur;
  1496.   SelTexts[count].IText = cur->data;
  1497.  }
  1498.  RefreshGList(Select,MainWin,NULL,7); 
  1499.  ModifyP(0);
  1500. }  
  1501.  
  1502.  
  1503. void Kill()
  1504. {
  1505.  struct Window *CurWin,*CurWin2;
  1506.  struct Screen *CurScr;
  1507.  
  1508.  if(State == WINSCR)
  1509.  {
  1510.   if(!GraphPtr) { Message(NOGRAPH); return; }
  1511.   if(Confirm(7)) return;
  1512.   Disable();
  1513.   if(!strcmp(GraphPtr->tempname,"window"))
  1514.   {
  1515.    CurWin = (struct Window *)GraphPtr->Addr;
  1516.    if(CurWin->MenuStrip) ClearMenuStrip(GraphPtr->Addr);
  1517.    CloseWindow(GraphPtr->Addr);
  1518.   }
  1519.   else
  1520.   {
  1521.    CurScr = (struct Screen *)GraphPtr->Addr;
  1522.    CurWin = CurScr->FirstWindow;
  1523.    while(CurWin)
  1524.    {
  1525.     CurWin2 = CurWin->NextWindow;
  1526.     if(CurWin->MenuStrip) ClearMenuStrip(CurWin);
  1527.     CloseWindow(CurWin);
  1528.     CurWin = CurWin2;
  1529.    }
  1530.    CloseScreen(CurScr);
  1531.   }
  1532.   Enable();
  1533.   Message(DONE);
  1534.   DisplayRam();
  1535.   GraphPtr = NULL;
  1536.   State = TASKS;
  1537.   WinScr();
  1538.   return;
  1539.  } 
  1540.  if(!PrevSelected) { Message(NOTASK); return; }
  1541.  if(FindTask(PrevSelected->tc_Node.ln_Name))
  1542.  {
  1543.   if(PrevSelected->tc_State == 2) { Message(NOSUICIDE); return; }
  1544.   if(PrevSelected->tc_State == 9) { Message(NOKILL); return; }
  1545.   if(Confirm(7)) return;
  1546.   Disable();
  1547.   MP = (struct MsgPort *)SysBase->PortList.lh_Head;
  1548.   while(MP->mp_Node.ln_Succ)
  1549.   {
  1550.    if((MP->mp_SigTask == PrevSelected) && strcmp(MP->mp_Node.ln_Name,"IDCMP")) 
  1551.    {
  1552.     PredMP = (struct MsgPort *)MP->mp_Node.ln_Pred;
  1553.     DeletePort(MP);
  1554.     if(PredMP == (struct MsgPort *)&(SysBase->PortList)) 
  1555.              MP = (struct MsgPort *)SysBase->PortList.lh_Head;
  1556.     else MP = (struct MsgPort *)PredMP->mp_Node.ln_Succ;
  1557.    }
  1558.    else MP = (struct MsgPort *)MP->mp_Node.ln_Succ;
  1559.   }
  1560.   RemTask(PrevSelected);
  1561.   Enable();
  1562.   Update(); 
  1563.   Message(DONE);
  1564.  }
  1565.  else Message(NOTFOUND);
  1566. }
  1567.  
  1568.  
  1569. void Pri()
  1570. {
  1571.  int NewPri;
  1572.  
  1573.  if(State == MEMORY) { Message(NOTIMP); return; }
  1574.  if(!PrevSelected) { Message(NOTASK); return;}
  1575.  strcpy(Temp,SBuff);
  1576.  sprintf(SBuff,"%d",PrevSelected->tc_Node.ln_Pri);
  1577.  RefreshGList(&Bools[17],MainWin,NULL,1);
  1578.  PrintIText(RastPort,(struct IntuiText *) &Texts[29],10,0);
  1579.  ActivateGadget(&Bools[17],MainWin,NULL);
  1580.  Message(NEWPRI);
  1581.  do
  1582.  {
  1583.   WaitPort(MainWin->UserPort);
  1584.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  1585.   class = message->Class;
  1586.   GadgetPtr = (struct Gadget *)message->IAddress;
  1587.   GadgetNum = GadgetPtr->GadgetID;
  1588.   ReplyMsg((struct Message *) message);
  1589.   switch(GadgetNum)
  1590.   {
  1591.    case  0: MoveDown(1);
  1592.             break;
  1593.    case  1: MoveUp(1);
  1594.             break;   
  1595.    case  2: PropMoved();
  1596.             break; 
  1597.   }
  1598.  } while(GadgetNum != 17);
  1599.  sscanf(SBuff,"%d",&NewPri);
  1600.  if((NewPri > 127) || (NewPri < -128))
  1601.  {
  1602.   Message(OUTRANGE); 
  1603.   strcpy(SBuff,Temp);
  1604.   RefreshGList(&Bools[17],MainWin,NULL,1);
  1605.   Texts[23].NextText = NULL;
  1606.   PrintIText(RastPort,(struct IntuiText *) &Texts[23],10,0);
  1607.   Texts[23].NextText = &Texts[22];
  1608.   DisplaySwap();
  1609.   return;
  1610.  }
  1611.  if(FindTask(PrevSelected->tc_Node.ln_Name))
  1612.  {
  1613.   SetTaskPri(PrevSelected,NewPri);
  1614.   UpdateTasks();
  1615.   Message(DONE);
  1616.  }
  1617.  else Message(NOTFOUND);
  1618.  Texts[23].NextText = NULL;
  1619.  PrintIText(RastPort,(struct IntuiText *) &Texts[23],10,0);
  1620.  Texts[23].NextText = &Texts[22];
  1621.  strcpy(SBuff,Temp);
  1622.  RefreshGList(&Bools[17],MainWin,NULL,1);
  1623.  DisplaySwap();
  1624. }
  1625.  
  1626.  
  1627. void SendSig()
  1628. {
  1629.  if(!PrevSelected) { Message(NOTASK); return; }
  1630.  if(PrevSelected->tc_State == 9) { Message(NOSIGNAL); return; }
  1631.  if(Confirm(10)) return;
  1632.  strcpy(Temp,SBuff);
  1633.  strcpy(SBuff,"");
  1634.  RefreshGList(&Bools[17],MainWin,NULL,1);
  1635.  ActivateGadget(&Bools[17],MainWin,NULL); 
  1636.  PrintIText(RastPort,(struct IntuiText *) &Texts[30],10,0);
  1637.  Message(SIGMASK);
  1638.  do
  1639.  {
  1640.   WaitPort(MainWin->UserPort);
  1641.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  1642.   class = message->Class;
  1643.   GadgetPtr = (struct Gadget *)message->IAddress;
  1644.   GadgetNum = GadgetPtr->GadgetID;
  1645.   ReplyMsg((struct Message *) message);
  1646.   switch(GadgetNum)
  1647.   {
  1648.    case  0: MoveDown(1);
  1649.             break;
  1650.    case  1: MoveUp(1);
  1651.             break;   
  1652.    case  2: PropMoved();
  1653.             break; 
  1654.   }
  1655.  } while(GadgetNum != 17);
  1656.  sscanf(SBuff,"%08lx",&SigMask);
  1657.  if(FindTask(PrevSelected->tc_Node.ln_Name))
  1658.  {
  1659.   Signal(PrevSelected,SigMask);
  1660.   Delay(30);
  1661.   UpdateTasks();
  1662.   Message(DONE);
  1663.  }
  1664.  else Message(NOTFOUND);
  1665.  Texts[23].NextText = NULL;
  1666.  PrintIText(RastPort,(struct IntuiText *) &Texts[23],10,0);
  1667.  Texts[23].NextText = &Texts[22];
  1668.  strcpy(SBuff,Temp);
  1669.  RefreshGList(&Bools[17],MainWin,NULL,1);
  1670.  DisplaySwap();
  1671. }
  1672.  
  1673.  
  1674. void Break()
  1675. {
  1676.  if(!PrevSelected) { Message(NOTASK); return; }
  1677.  if(PrevSelected->tc_State == 9) { Message(NOBREAK); return; }
  1678.  if(Confirm(11)) return;
  1679.  if(FindTask(PrevSelected->tc_Node.ln_Name))
  1680.  {
  1681.   SMask = 0xf000L;
  1682.   SMask = SMask & PrevSelected->tc_SigAlloc;
  1683.   Signal(PrevSelected,SMask);
  1684.   Delay(30);
  1685.   UpdateTasks();
  1686.   Message(DONE);
  1687.  }
  1688.  else Message(NOTFOUND);
  1689. }
  1690.  
  1691.  
  1692. void DisplaySwap()
  1693. { 
  1694.  struct InfoData *IF;
  1695.  struct FileLock *lock;
  1696.  char Path[100],*Pos;
  1697.  
  1698.  strcpy(SwapS,"N/A       ");
  1699.  IF = (struct InfoData *)
  1700.                         AllocMem(sizeof(struct InfoData),MEMF_CHIP|MEMF_CLEAR);
  1701.  if(!IF) 
  1702.  {
  1703.   Message(NOMEM);
  1704.   PrintIText(RastPort,(struct IntuiText *) &Texts[27],10,0);
  1705.   return;
  1706.  } 
  1707.  strcpy(Path,SBuff);
  1708.  Pos = strchr(Path,':');
  1709.  if(Pos) *(Pos + 1) = NULL; 
  1710.  lock = (struct FileLock *)Lock(Path,ACCESS_READ);
  1711.  if(lock)
  1712.  { 
  1713.   if(Info(lock,IF))
  1714.   {
  1715.    if(IF->id_DiskType == ID_DOS_DISK)
  1716.    {
  1717.     SSpace = (IF->id_NumBlocks - IF->id_NumBlocksUsed) * IF->id_BytesPerBlock;
  1718.     sprintf(SwapS,"%-10lu",SSpace);
  1719.    }
  1720.   }
  1721.   UnLock(lock);
  1722.  }  
  1723.  FreeMem(IF,sizeof(struct InfoData));
  1724.  PrintIText(RastPort,(struct IntuiText *) &Texts[27],10,0);
  1725. } 
  1726.  
  1727.  
  1728. void Freeze()
  1729. {
  1730.  if(!PrevSelected) { Message(NOTASK); return; }
  1731.  if(PrevSelected->tc_State == 9) { Message(NOFREEZE); return; }
  1732.  if(PrevSelected->tc_State != 8)
  1733.  {
  1734.   if(FindTask(PrevSelected->tc_Node.ln_Name))
  1735.   {
  1736.    Disable();
  1737.    if(PrevSelected->tc_State == 2) { Enable(); Message(NOTME); return;}
  1738.    Remove((struct Node *)PrevSelected);
  1739.    Insert(&(SysBase->IntrList),(struct Node *)PrevSelected,NULL);
  1740.    PrevSelected->tc_State = 8;
  1741.    MP = (struct MsgPort *)SysBase->PortList.lh_Head;
  1742.    while(MP->mp_Node.ln_Succ)
  1743.    {
  1744.     if(MP->mp_SigTask == PrevSelected) MP->mp_Flags = PA_IGNORE;
  1745.     MP = (struct MsgPort *)MP->mp_Node.ln_Succ;
  1746.    }
  1747.   }
  1748.   else { Message(NOTFOUND); return; }
  1749.  }
  1750.  else
  1751.  {
  1752.   Disable();
  1753.   Remove((struct Node *)PrevSelected);
  1754.   Insert(&(SysBase->TaskReady),(struct Node *)PrevSelected,NULL);
  1755.   PrevSelected->tc_State = 3;
  1756.   MP = (struct MsgPort *)SysBase->PortList.lh_Head;
  1757.   while(MP->mp_Node.ln_Succ)
  1758.   {
  1759.    if(MP->mp_SigTask == PrevSelected) MP->mp_Flags = PA_SIGNAL;
  1760.    MP = (struct MsgPort *)MP->mp_Node.ln_Succ;
  1761.   }
  1762.  }
  1763.  Enable();
  1764.  if(PrevSelected->tc_State == 8) Bools[5].GadgetText = &Texts[42];
  1765.  else Bools[5].GadgetText = &Texts[5];
  1766.  RefreshGList(&Bools[5],MainWin,NULL,1 );
  1767.  UpdateTasks();
  1768.  Message(DONE);
  1769.  return;
  1770. }
  1771.  
  1772.  
  1773. void ClearSelect(count)
  1774. int count;
  1775. {
  1776.  char *SPC = 
  1777.   "                                                                         ";
  1778.   for(;count < 7;count++) SelTexts[count].IText = SPC;
  1779. }
  1780.  
  1781.  
  1782. void DisplayRam()
  1783. {
  1784.  ChipRam = AvailMem(MEMF_CHIP);
  1785.  FastRam = AvailMem(MEMF_FAST);
  1786.  sprintf(CRam,"%-10lu",ChipRam);
  1787.  sprintf(FRam,"%-10lu",FastRam);
  1788.  PrintIText(RastPort,(struct IntuiText *) &Texts[26],12,0);
  1789. }
  1790.  
  1791.  
  1792. void Message(ErrorNum)
  1793. int ErrorNum;
  1794. { 
  1795.  int count;
  1796.  
  1797.  if(Row < 4)  
  1798.  {
  1799.   strcpy(ETextAddr[Row],ErrorT[ErrorNum]);
  1800.   PrintIText(RastPort,(struct IntuiText *) &ErrIntuiText[Row],10,0);
  1801.   Row += 1;
  1802.   return;
  1803.  }
  1804.  for(count = 0;count < 3;count++)
  1805.  {
  1806.   strcpy(ErrIntuiText[count].IText,ErrIntuiText[count + 1].IText);
  1807.   PrintIText(RastPort,(struct IntuiText *) &ErrIntuiText[count],10,0);
  1808.  }
  1809.  strcpy(ErrIntuiText[3].IText,ErrorT[ErrorNum]);
  1810.  PrintIText(RastPort,(struct IntuiText *) &ErrIntuiText[3],10,0); 
  1811. }
  1812.  
  1813.  
  1814. void UpdateTasks()
  1815. {
  1816.  int count; 
  1817.  struct TInfo *cur;
  1818.  
  1819.  if(first) FreeList();
  1820.  current = NULL;
  1821.  TaskNum = 1;
  1822.  SysBase->IntrList.lh_Type = NT_TASK;
  1823.  Disable();
  1824.  task = (struct Task *)SysBase->ThisTask;
  1825.  if(GetTaskInfo(task)) { Enable(); return; }
  1826.  first = tinfo;
  1827.  for(task = (struct Task *)SysBase->TaskReady.lh_Head;
  1828.             task->tc_Node.ln_Succ;task = (struct Task *)task->tc_Node.ln_Succ)
  1829.  {
  1830.   TaskNum++;
  1831.   if(GetTaskInfo(task)) { Enable(); return; }
  1832.  }
  1833.  for(task = (struct Task *)SysBase->TaskWait.lh_Head;
  1834.             task->tc_Node.ln_Succ;task = (struct Task *)task->tc_Node.ln_Succ)
  1835.  {
  1836.   TaskNum++;
  1837.   if(GetTaskInfo(task)) { Enable(); return; }
  1838.  }
  1839.  for(task = (struct Task *)SysBase->IntrList.lh_Head;
  1840.             task->tc_Node.ln_Succ;task = (struct Task *)task->tc_Node.ln_Succ)
  1841.  {
  1842.   TaskNum++;
  1843.   if(GetTaskInfo(task)) { Enable(); return; }
  1844.  }
  1845.  Enable();
  1846.  for(cur = first,count = 0;count != min(7,TaskNum);cur = cur->next,count++) 
  1847.  {
  1848.   ItemAddr[count] = cur;
  1849.   SelTexts[count].IText = cur->data;
  1850.  }
  1851.  if (count < 7) ClearSelect(count);
  1852.  RefreshGList(Select,MainWin,NULL,7); 
  1853.  ModifyP(0);
  1854. }  
  1855.  
  1856. void WipeGadg()
  1857. {
  1858.  int count;
  1859.  
  1860. for (count = 0;count != 3;count++)
  1861.    PrintIText(RastPort,(struct IntuiText *)&Texts[34],33,97 + 8 * count);
  1862.   PrintIText(RastPort,(struct IntuiText *)&Texts[34],33,115);
  1863. }
  1864.  
  1865. int GetTaskInfo(t)
  1866. struct Task *t;
  1867. {
  1868.  if(GetList()) return(FAILER); 
  1869.  GetTaskName(t);
  1870.  tinfo->Addr = t;
  1871.  sprintf(tinfo->data,"%-21.21s %4d  %-7s %7u  %-9s %08lx  %08lx ",
  1872.   tinfo->name,t->tc_Node.ln_Pri,state[(int)t->tc_State],
  1873.   (ULONG)t->tc_SPUpper - 2 -(ULONG)t->tc_SPLower,
  1874.   type[(int)t->tc_Node.ln_Type],t->tc_SigWait,t);
  1875.  return(SUCCESS);
  1876. }
  1877.  
  1878.  
  1879. int GetList()
  1880. {
  1881.  tinfo = (struct TInfo *)AllocMem(sizeof(struct TInfo),MEMF_PUBLIC|MEMF_CLEAR);
  1882.  if(!tinfo) { Message(NOMEM); return(FAILER); } 
  1883.  if(current)
  1884.  {
  1885.   tinfo->prev = current;
  1886.   current->next = tinfo;
  1887.   tinfo->next = NULL;
  1888.  }
  1889.  current = tinfo;
  1890.  return(SUCCESS);
  1891. }
  1892.  
  1893.  
  1894. void GetTaskName(t)
  1895. struct Task *t;
  1896. {
  1897.  struct Process *proc;
  1898.  struct CommandLineInterface *cli;
  1899.  UBYTE *str,*cliname;
  1900.  int num;
  1901.  
  1902.  if(t->tc_Node.ln_Type == 13)
  1903.  {
  1904.   proc = (struct Process *)t;
  1905.   if(proc->pr_TaskNum == 0)  tinfo->name = proc->pr_Task.tc_Node.ln_Name;
  1906.   else
  1907.   {
  1908.    num = proc->pr_TaskNum;
  1909.    cli = (struct CommandLineInterface *)((long)(proc->pr_CLI) << 2);
  1910.    str = (UBYTE *)((long)(cli->cli_CommandName) << 2);
  1911.    cliname = (UBYTE *)BCPLtoC(str);
  1912.    if(*(cliname) == 0) cliname = "Unloaded CLI";
  1913.    sprintf(tinfo->tempname,"[CLI %d] %-25.25s",num,cliname);
  1914.    tinfo->name = tinfo->tempname;
  1915.   }
  1916.  }
  1917.  else  tinfo->name = t->tc_Node.ln_Name;
  1918. }  
  1919.  
  1920.  
  1921. UBYTE *BCPLtoC(bstring)
  1922. UBYTE *bstring;
  1923. {
  1924.  UBYTE strbuffer[256];
  1925.  int len = *bstring++;
  1926.  strncpy(strbuffer,bstring,len);
  1927.  *(strbuffer + len) = NULL;
  1928.  return(strbuffer);
  1929. }
  1930.  
  1931.  
  1932. void FreeList()
  1933. {
  1934.  struct TInfo *temp,*next;
  1935.  
  1936.  temp = first;
  1937.  while(temp != NULL)
  1938.  {
  1939.   next = temp->next;
  1940.   FreeMem(temp,sizeof(struct TInfo));
  1941.   temp = next;
  1942.  }
  1943.  first = NULL;
  1944. } 
  1945.  
  1946. void CloseAll(RetCode)
  1947. int RetCode;
  1948. {
  1949.  if(UpData) FreeMem(UpData,sizeof(Up));
  1950.  if(DownData) FreeMem(DownData,sizeof(Down));
  1951.  if(MainWin) CloseWindow(MainWin);
  1952.  if(MainScr) CloseScreen(MainScr);
  1953.  if(DOSBase) CloseLibrary(DOSBase);
  1954.  if(GfxBase) CloseLibrary(GfxBase);
  1955.  if(IntuitionBase) CloseLibrary(IntuitionBase);
  1956.  exit(RetCode);
  1957. }
  1958.