home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / monopoly.lzh / monopoly_source.LZH / f10.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-01-06  |  28.4 KB  |  988 lines
  1. /* f10.c contains these functions for monopoly:
  2.     reviewprop(),  viewdeeds(),
  3.     printlistproppage(),   cklistpropmsg(),   showlistpropinstructions(),
  4.     makelistpropmenu(),   */
  5.  
  6. #include "mono:defines"
  7. #include "mono:xvariables"
  8.  
  9. VOID showlistpropinstructions()
  10. {
  11. struct IntuiText msg0, msg1, msg2, msg3, msg4;
  12. SetMenuStrip(listpropwindow, &Menu8);
  13. msg0.FrontPen=dk_maroon;
  14. msg1.FrontPen=dk_maroon;
  15. msg2.FrontPen=dk_maroon;
  16. msg3.FrontPen=dk_maroon;
  17. msg4.FrontPen=dk_maroon;
  18. msg0.BackPen=black;
  19. msg1.BackPen=black;
  20. msg2.BackPen=black;
  21. msg3.BackPen=black;
  22. msg4.BackPen=black;
  23. msg0.DrawMode=JAM1;
  24. msg1.DrawMode=JAM1;
  25. msg2.DrawMode=JAM1;
  26. msg3.DrawMode=JAM1;
  27. msg4.DrawMode=JAM1;
  28. msg0.LeftEdge=33;
  29. msg1.LeftEdge=33;
  30. msg2.LeftEdge=33;
  31. msg3.LeftEdge=33;
  32. msg4.LeftEdge=33;
  33. msg0.TopEdge=40;
  34. msg1.TopEdge=50;
  35. msg2.TopEdge=60;
  36. msg3.TopEdge=70;
  37. msg4.TopEdge=80;
  38. msg0.ITextFont=NULL;
  39. msg1.ITextFont=NULL;
  40. msg2.ITextFont=NULL;
  41. msg3.ITextFont=NULL;
  42. msg4.ITextFont=NULL;
  43. msg0.NextText=&msg1;
  44. msg1.NextText=&msg2;
  45. msg2.NextText=&msg3;
  46. msg3.NextText=&msg4;
  47. msg4.NextText=NULL;
  48. msg0.IText=(UBYTE *)" PLEASE USE THE";
  49. msg1.IText=(UBYTE *)"MENUS TO CHOOSE";
  50. msg2.IText=(UBYTE *)"THE PROPERTY FOR";
  51. msg3.IText=(UBYTE *)" WHICH YOU WANT";
  52. msg4.IText=(UBYTE *)"  INFORMATION.";
  53. PrintIText(rportlistprop, &msg0, 0, 0);
  54. }
  55.  
  56. VOID printlistproppage()
  57. {
  58. USHORT loc;
  59. struct IntuiText msg0, msg1, msg2, msg3, msg4, msg5, msg6,
  60.                        msg7, msg8, msg9, msg10, msg11, msg12;
  61.  
  62.  
  63. oldlistproppage=listproppage;
  64. if (listproppage == 0)  loc=1;
  65. if (listproppage == 1)  loc=3;
  66. if (listproppage == 2)  loc=6;
  67. if (listproppage == 3)  loc=8;
  68. if (listproppage == 4)  loc=9;
  69. if (listproppage == 5)  loc=11;
  70. if (listproppage == 6)  loc=13;
  71. if (listproppage == 7)  loc=14;
  72. if (listproppage == 8)  loc=16;
  73. if (listproppage == 9)  loc=18;
  74. if (listproppage == 10)  loc=19;
  75. if (listproppage == 11)  loc=21;
  76. if (listproppage == 12)  loc=23;
  77. if (listproppage == 13)  loc=24;
  78. if (listproppage == 14)  loc=26;
  79. if (listproppage == 15)  loc=27;
  80. if (listproppage == 16)  loc=29;
  81. if (listproppage == 17)  loc=31;
  82. if (listproppage == 18)  loc=32;
  83. if (listproppage == 19)  loc=34;
  84. if (listproppage == 20)  loc=37;
  85. if (listproppage == 21)  loc=39;
  86. if (listproppage == 22)  loc=5;
  87. if (listproppage == 23)  loc=15;
  88. if (listproppage == 24)  loc=25;
  89. if (listproppage == 25)  loc=35;
  90. if (listproppage == 26)  loc=12;
  91. if (listproppage == 27)  loc=28;
  92. msg0.BackPen=black;
  93. msg1.BackPen=black;
  94. msg2.BackPen=black;
  95. msg3.BackPen=black;
  96. msg4.BackPen=black;
  97. msg5.BackPen=black;
  98. msg6.BackPen=black;
  99. msg7.BackPen=black;
  100. msg8.BackPen=black;
  101. msg9.BackPen=black;
  102. msg10.BackPen=black;
  103. msg11.BackPen=black;
  104. msg12.BackPen=black;
  105. msg0.DrawMode=JAM1;
  106. msg1.DrawMode=JAM1;
  107. msg2.DrawMode=JAM1;
  108. msg3.DrawMode=JAM1;
  109. msg4.DrawMode=JAM1;
  110. msg5.DrawMode=JAM1;
  111. msg6.DrawMode=JAM1;
  112. msg7.DrawMode=JAM1;
  113. msg8.DrawMode=JAM1;
  114. msg9.DrawMode=JAM1;
  115. msg10.DrawMode=JAM1;
  116. msg11.DrawMode=JAM1;
  117. msg12.DrawMode=JAM1;
  118. msg0.LeftEdge=5;
  119. msg1.LeftEdge=5;
  120. msg2.LeftEdge=5;
  121. msg3.LeftEdge=5;
  122. msg4.LeftEdge=5;
  123. msg5.LeftEdge=5;
  124. msg6.LeftEdge=5;
  125. msg7.LeftEdge=5;
  126. msg8.LeftEdge=5;
  127. msg9.LeftEdge=5;
  128. msg10.LeftEdge=5;
  129. msg11.LeftEdge=5;
  130. msg12.LeftEdge=5;
  131. msg0.TopEdge=5;
  132. msg1.TopEdge=15;
  133. msg2.TopEdge=25;
  134. msg3.TopEdge=38;
  135. msg4.TopEdge=48;
  136. msg5.TopEdge=61;
  137. msg6.TopEdge=71;
  138. msg7.TopEdge=81;
  139. msg8.TopEdge=91;
  140. msg9.TopEdge=101;
  141. msg10.TopEdge=111;
  142. msg11.TopEdge=121;
  143. msg12.TopEdge=133;
  144. msg0.ITextFont=NULL;
  145. msg1.ITextFont=NULL;
  146. msg2.ITextFont=NULL;
  147. msg3.ITextFont=NULL;
  148. msg4.ITextFont=NULL;
  149. msg5.ITextFont=NULL;
  150. msg6.ITextFont=NULL;
  151. msg7.ITextFont=NULL;
  152. msg8.ITextFont=NULL;
  153. msg9.ITextFont=NULL;
  154. msg10.ITextFont=NULL;
  155. msg11.ITextFont=NULL;
  156. msg12.ITextFont=NULL;
  157. msg0.NextText=&msg1;
  158. msg1.NextText=&msg2;
  159. msg2.NextText=&msg3;
  160. msg3.NextText=&msg4;
  161. msg4.NextText=&msg5;
  162. msg5.NextText=&msg6;
  163. msg6.NextText=&msg7;
  164. msg7.NextText=&msg8;
  165. msg8.NextText=&msg9;
  166. msg9.NextText=&msg10;
  167. msg10.NextText=&msg11;
  168. msg11.NextText=NULL;
  169. msg12.NextText=NULL;
  170.  
  171. if (owner[loc] == 0)
  172.    {
  173.    msg2.IText=&name0[0];
  174.    msg2.FrontPen=25;
  175.    }
  176. if (owner[loc] == 1)
  177.    {
  178.    msg2.IText=&name1[0];
  179.    msg2.FrontPen=26;
  180.    }
  181. if (owner[loc] == 2)
  182.    {
  183.    msg2.IText=&name2[0];
  184.    msg2.FrontPen=27;
  185.    }
  186. if (owner[loc] == 3)
  187.    {
  188.    msg2.IText=&name3[0];
  189.    msg2.FrontPen=28;
  190.    }
  191.  
  192. msg12.IText=(UBYTE *)"Property is MORTGAGED!";
  193. msg12.FrontPen=white;
  194. msg11.FrontPen=yellow;
  195.  
  196. if (numhouses[loc] == 0)
  197.    {
  198.    msg5.FrontPen=red;
  199.    msg6.FrontPen=green; 
  200.    msg7.FrontPen=green; 
  201.    msg8.FrontPen=green; 
  202.    msg9.FrontPen=green; 
  203.    msg10.FrontPen=green; 
  204.    }
  205. if (owner[loc] == 9)
  206.    {
  207.    msg2.IText=(UBYTE *)"the BANK.";
  208.    msg2.FrontPen=white;
  209.    msg5.FrontPen=green; 
  210.    }
  211. if (numhouses[loc] == 1)
  212.    {
  213.    msg5.FrontPen=green; 
  214.    msg6.FrontPen=red; 
  215.    msg7.FrontPen=green; 
  216.    msg8.FrontPen=green; 
  217.    msg9.FrontPen=green; 
  218.    msg10.FrontPen=green; 
  219.    }
  220. if (numhouses[loc] == 2)
  221.    {
  222.    msg5.FrontPen=green; 
  223.    msg6.FrontPen=green; 
  224.    msg7.FrontPen=red; 
  225.    msg8.FrontPen=green; 
  226.    msg9.FrontPen=green; 
  227.    msg10.FrontPen=green; 
  228.    }
  229. if (numhouses[loc] == 3)
  230.    {
  231.    msg5.FrontPen=green; 
  232.    msg6.FrontPen=green; 
  233.    msg7.FrontPen=green; 
  234.    msg8.FrontPen=red; 
  235.    msg9.FrontPen=green; 
  236.    msg10.FrontPen=green; 
  237.    }
  238. if (numhouses[loc] == 4)
  239.    {
  240.    msg5.FrontPen=green; 
  241.    msg6.FrontPen=green; 
  242.    msg7.FrontPen=green; 
  243.    msg8.FrontPen=green; 
  244.    msg9.FrontPen=red; 
  245.    msg10.FrontPen=green; 
  246.    }
  247. if (numhouses[loc] == 5)
  248.    {
  249.    msg5.FrontPen=green; 
  250.    msg6.FrontPen=green; 
  251.    msg7.FrontPen=green; 
  252.    msg8.FrontPen=green; 
  253.    msg9.FrontPen=green; 
  254.    msg10.FrontPen=red; 
  255.    }
  256. if ( (listproppage == 22) || (listproppage == 23) || (listproppage == 24) 
  257.      || (listproppage == 25) )
  258.    {
  259.    if (numrr[owner[loc]] == 0)
  260.       {
  261.       msg5.FrontPen=green; 
  262.       msg6.FrontPen=green; 
  263.       msg7.FrontPen=green; 
  264.       msg8.FrontPen=green;
  265.       }
  266.    if (numrr[owner[loc]] == 1)
  267.       {
  268.       msg5.FrontPen=red; 
  269.       msg6.FrontPen=green; 
  270.       msg7.FrontPen=green; 
  271.       msg8.FrontPen=green;
  272.       }
  273.    if (numrr[owner[loc]] == 2)
  274.       {
  275.       msg5.FrontPen=green; 
  276.       msg6.FrontPen=red; 
  277.       msg7.FrontPen=green; 
  278.       msg8.FrontPen=green;
  279.       }
  280.    if (numrr[owner[loc]] == 3)
  281.       {
  282.       msg5.FrontPen=green; 
  283.       msg6.FrontPen=green; 
  284.       msg7.FrontPen=red; 
  285.       msg8.FrontPen=green;
  286.       }
  287.    if (numrr[owner[loc]] == 4)
  288.       {
  289.       msg5.FrontPen=green; 
  290.       msg6.FrontPen=green; 
  291.       msg7.FrontPen=green; 
  292.       msg8.FrontPen=red;
  293.       }
  294.    }
  295. if (listproppage == 0)
  296.    {
  297.    msg0.FrontPen=purple;
  298.    msg1.FrontPen=purple;
  299.    msg3.FrontPen=purple;
  300.    msg4.FrontPen=purple;
  301.    msg0.IText=(UBYTE *)"MEDITERRANEAN AVENUE";
  302.    msg1.IText=(UBYTE *)"    is owned by:";
  303.    msg3.IText=(UBYTE *)"Original cost:  $60.";
  304.    msg4.IText=(UBYTE *)"Mortgage value: $30.";
  305.    msg5.IText=(UBYTE *)"Rent -          $2.";
  306.    msg6.IText=(UBYTE *)"Rent - 1 house  $10.";
  307.    msg7.IText=(UBYTE *)"Rent - 2 houses $30.";
  308.    msg8.IText=(UBYTE *)"Rent - 3 houses $90.";
  309.    msg9.IText=(UBYTE *)"Rent - 4 houses $160.";
  310.    msg10.IText=(UBYTE *)"Rent -   hotel  $250.";
  311.    msg11.IText=(UBYTE *)"Each house costs $50.";
  312.    goto expage;
  313.    }
  314. if (listproppage == 1)
  315.    {
  316.    msg0.FrontPen=purple;
  317.    msg1.FrontPen=purple;
  318.    msg3.FrontPen=purple;
  319.    msg4.FrontPen=purple;
  320.    msg0.IText=(UBYTE *)"   BALTIC AVENUE";
  321.    msg1.IText=(UBYTE *)"    is owned by:";
  322.    msg3.IText=(UBYTE *)"Original cost:  $60.";
  323.    msg4.IText=(UBYTE *)"Mortgage value: $30.";
  324.    msg5.IText=(UBYTE *)"Rent -          $4.";
  325.    msg6.IText=(UBYTE *)"Rent - 1 house  $20.";
  326.    msg7.IText=(UBYTE *)"Rent - 2 houses $60.";
  327.    msg8.IText=(UBYTE *)"Rent - 3 houses $180.";
  328.    msg9.IText=(UBYTE *)"Rent - 4 houses $320.";
  329.    msg10.IText=(UBYTE *)"Rent -   hotel  $450.";
  330.    msg11.IText=(UBYTE *)"Each house costs $50.";   
  331.    goto expage;
  332.    }
  333. if (listproppage == 2)
  334.    {
  335.    msg0.FrontPen=lt_blue;
  336.    msg1.FrontPen=lt_blue;
  337.    msg3.FrontPen=lt_blue;
  338.    msg4.FrontPen=lt_blue;
  339.    msg0.IText=(UBYTE *)"  ORIENTAL AVENUE";
  340.    msg1.IText=(UBYTE *)"    is owned by:";
  341.    msg3.IText=(UBYTE *)"Original cost:  $100.";
  342.    msg4.IText=(UBYTE *)"Mortgage value: $50.";   
  343.    msg5.IText=(UBYTE *)"Rent -          $6.";
  344.    msg6.IText=(UBYTE *)"Rent - 1 house  $30.";
  345.    msg7.IText=(UBYTE *)"Rent - 2 houses $90.";
  346.    msg8.IText=(UBYTE *)"Rent - 3 houses $270.";
  347.    msg9.IText=(UBYTE *)"Rent - 4 houses $400.";
  348.    msg10.IText=(UBYTE *)"Rent -   hotel  $550.";
  349.    msg11.IText=(UBYTE *)"Each house costs $50.";
  350.    goto expage;
  351.    }
  352. if (listproppage == 3)
  353.    {
  354.    msg0.FrontPen=lt_blue;
  355.    msg1.FrontPen=lt_blue;
  356.    msg3.FrontPen=lt_blue;
  357.    msg4.FrontPen=lt_blue;
  358.    msg0.IText=(UBYTE *)"  VERMONT AVENUE";
  359.    msg1.IText=(UBYTE *)"    is owned by:";
  360.    msg3.IText=(UBYTE *)"Original cost:  $100.";
  361.    msg4.IText=(UBYTE *)"Mortgage value: $50.";
  362.    msg5.IText=(UBYTE *)"Rent -          $6.";
  363.    msg6.IText=(UBYTE *)"Rent - 1 house  $30.";
  364.    msg7.IText=(UBYTE *)"Rent - 2 houses $90.";
  365.    msg8.IText=(UBYTE *)"Rent - 3 houses $270.";
  366.    msg9.IText=(UBYTE *)"Rent - 4 houses $400.";
  367.    msg10.IText=(UBYTE *)"Rent -   hotel  $550.";
  368.    msg11.IText=(UBYTE *)"Each house costs $50.";
  369.    goto expage;
  370.    }
  371. if (listproppage == 4)
  372.    {
  373.    msg0.FrontPen=lt_blue;
  374.    msg1.FrontPen=lt_blue;
  375.    msg3.FrontPen=lt_blue;
  376.    msg4.FrontPen=lt_blue;
  377.    msg0.IText=(UBYTE *)" CONNECTICUT AVENUE";
  378.    msg1.IText=(UBYTE *)"    is owned by:";
  379.    msg3.IText=(UBYTE *)"Original cost:  $120.";
  380.    msg4.IText=(UBYTE *)"Mortgage value: $60.";
  381.    msg5.IText=(UBYTE *)"Rent -          $8.";
  382.    msg6.IText=(UBYTE *)"Rent - 1 house  $40.";
  383.    msg7.IText=(UBYTE *)"Rent - 2 houses $100.";
  384.    msg8.IText=(UBYTE *)"Rent - 3 houses $300.";
  385.    msg9.IText=(UBYTE *)"Rent - 4 houses $450.";
  386.    msg10.IText=(UBYTE *)"Rent -   hotel  $600.";
  387.    msg11.IText=(UBYTE *)"Each house costs $50.";
  388.    goto expage;
  389.    }
  390. if (listproppage == 5)
  391.    {
  392.    msg0.FrontPen=maroon;
  393.    msg1.FrontPen=maroon;
  394.    msg3.FrontPen=maroon;
  395.    msg4.FrontPen=maroon;
  396.    msg0.IText=(UBYTE *)"  ST. CHARLES PLACE";
  397.    msg1.IText=(UBYTE *)"    is owned by:";
  398.    msg3.IText=(UBYTE *)"Original cost:  $140.";
  399.    msg4.IText=(UBYTE *)"Mortgage value: $70.";
  400.    msg5.IText=(UBYTE *)"Rent -          $10.";
  401.    msg6.IText=(UBYTE *)"Rent - 1 house  $50.";
  402.    msg7.IText=(UBYTE *)"Rent - 2 houses $150.";
  403.    msg8.IText=(UBYTE *)"Rent - 3 houses $450.";
  404.    msg9.IText=(UBYTE *)"Rent - 4 houses $625.";
  405.    msg10.IText=(UBYTE *)"Rent -   hotel  $750.";
  406.    msg11.IText=(UBYTE *)"Each house costs $100.";
  407.    goto expage;
  408.    }
  409. if (listproppage == 6)
  410.    {
  411.    msg0.FrontPen=maroon;
  412.    msg1.FrontPen=maroon;
  413.    msg3.FrontPen=maroon;
  414.    msg4.FrontPen=maroon;
  415.    msg0.IText=(UBYTE *)"   STATES AVENUE";
  416.    msg1.IText=(UBYTE *)"    is owned by:";
  417.    msg3.IText=(UBYTE *)"Original cost:  $140.";
  418.    msg4.IText=(UBYTE *)"Mortgage value: $70.";
  419.    msg5.IText=(UBYTE *)"Rent -          $10.";
  420.    msg6.IText=(UBYTE *)"Rent - 1 house  $50.";
  421.    msg7.IText=(UBYTE *)"Rent - 2 houses $150.";
  422.    msg8.IText=(UBYTE *)"Rent - 3 houses $450.";
  423.    msg9.IText=(UBYTE *)"Rent - 4 houses $625.";
  424.    msg10.IText=(UBYTE *)"Rent -   hotel  $750.";
  425.    msg11.IText=(UBYTE *)"Each house costs $100.";
  426.    }
  427. if (listproppage == 7)
  428.    {
  429.    msg0.FrontPen=maroon;
  430.    msg1.FrontPen=maroon;
  431.    msg3.FrontPen=maroon;
  432.    msg4.FrontPen=maroon;
  433.    msg0.IText=(UBYTE *)"  VIRGINIA AVENUE";
  434.    msg1.IText=(UBYTE *)"    is owned by:";
  435.    msg3.IText=(UBYTE *)"Original cost:  $160.";
  436.    msg4.IText=(UBYTE *)"Mortgage value: $80.";
  437.    msg5.IText=(UBYTE *)"Rent -          $12.";
  438.    msg6.IText=(UBYTE *)"Rent - 1 house  $60.";
  439.    msg7.IText=(UBYTE *)"Rent - 2 houses $180.";
  440.    msg8.IText=(UBYTE *)"Rent - 3 houses $500.";
  441.    msg9.IText=(UBYTE *)"Rent - 4 houses $700.";
  442.    msg10.IText=(UBYTE *)"Rent -   hotel  $900.";
  443.    msg11.IText=(UBYTE *)"Each house costs $100.";
  444.    goto expage;
  445.    }
  446. if (listproppage == 8)
  447.    {
  448.    msg0.FrontPen=orange;
  449.    msg1.FrontPen=orange;
  450.    msg3.FrontPen=orange;
  451.    msg4.FrontPen=orange;
  452.    msg0.IText=(UBYTE *)"  ST. JAMES PLACE";
  453.    msg1.IText=(UBYTE *)"    is owned by:";
  454.    msg3.IText=(UBYTE *)"Original cost:  $180.";
  455.    msg4.IText=(UBYTE *)"Mortgage value: $90.";
  456.    msg5.IText=(UBYTE *)"Rent -          $14.";
  457.    msg6.IText=(UBYTE *)"Rent - 1 house  $70.";
  458.    msg7.IText=(UBYTE *)"Rent - 2 houses $200.";
  459.    msg8.IText=(UBYTE *)"Rent - 3 houses $550.";
  460.    msg9.IText=(UBYTE *)"Rent - 4 houses $750.";
  461.    msg10.IText=(UBYTE *)"Rent -   hotel  $950.";
  462.    msg11.IText=(UBYTE *)"Each house costs $100.";
  463.    goto expage;
  464.    }
  465. if (listproppage == 9)
  466.    {
  467.    msg0.FrontPen=orange;
  468.    msg1.FrontPen=orange;
  469.    msg3.FrontPen=orange;
  470.    msg4.FrontPen=orange;
  471.    msg0.IText=(UBYTE *)"     TENNESSEE";
  472.    msg1.IText=(UBYTE *)"    is owned by:";
  473.    msg3.IText=(UBYTE *)"Original cost:  $180.";
  474.    msg4.IText=(UBYTE *)"Mortgage value: $90.";
  475.    msg5.IText=(UBYTE *)"Rent -          $14.";
  476.    msg6.IText=(UBYTE *)"Rent - 1 house  $70.";
  477.    msg7.IText=(UBYTE *)"Rent - 2 houses $200.";
  478.    msg8.IText=(UBYTE *)"Rent - 3 houses $550.";
  479.    msg9.IText=(UBYTE *)"Rent - 4 houses $750.";
  480.    msg10.IText=(UBYTE *)"Rent -   hotel  $950.";
  481.    msg11.IText=(UBYTE *)"Each house costs $100.";
  482.    }
  483. if (listproppage == 10)
  484.    {
  485.    msg0.FrontPen=orange;
  486.    msg1.FrontPen=orange;
  487.    msg3.FrontPen=orange;
  488.    msg4.FrontPen=orange;
  489.    msg0.IText=(UBYTE *)"  NEW YORK AVENUE";
  490.    msg1.IText=(UBYTE *)"    is owned by:";
  491.    msg3.IText=(UBYTE *)"Original cost:  $200.";
  492.    msg4.IText=(UBYTE *)"Mortgage value: $100.";
  493.    msg5.IText=(UBYTE *)"Rent -          $16.";
  494.    msg6.IText=(UBYTE *)"Rent - 1 house  $80.";
  495.    msg7.IText=(UBYTE *)"Rent - 2 houses $220.";
  496.    msg8.IText=(UBYTE *)"Rent - 3 houses $600.";
  497.    msg9.IText=(UBYTE *)"Rent - 4 houses $800.";
  498.    msg10.IText=(UBYTE *)"Rent -   hotel  $1000.";
  499.    msg11.IText=(UBYTE *)"Each house costs $100.";
  500.    goto expage;
  501.    }
  502. if (listproppage == 11)
  503.    {
  504.    msg0.FrontPen=red;
  505.    msg1.FrontPen=red;
  506.    msg3.FrontPen=red;
  507.    msg4.FrontPen=red;
  508.    msg0.IText=(UBYTE *)"  KENTUCKY AVENUE";
  509.    msg1.IText=(UBYTE *)"    is owned by:";
  510.    msg3.IText=(UBYTE *)"Original cost:  $220.";
  511.    msg4.IText=(UBYTE *)"Mortgage value: $110.";
  512.    msg5.IText=(UBYTE *)"Rent -          $18.";
  513.    msg6.IText=(UBYTE *)"Rent - 1 house  $90.";
  514.    msg7.IText=(UBYTE *)"Rent - 2 houses $250.";
  515.    msg8.IText=(UBYTE *)"Rent - 3 houses $700.";
  516.    msg9.IText=(UBYTE *)"Rent - 4 houses $875.";
  517.    msg10.IText=(UBYTE *)"Rent -   hotel  $1050.";
  518.    msg11.IText=(UBYTE *)"Each house costs $150.";
  519.    }
  520. if (listproppage == 12)
  521.    {
  522.    msg0.FrontPen=red;
  523.    msg1.FrontPen=red;
  524.    msg3.FrontPen=red;
  525.    msg4.FrontPen=red;
  526.    msg0.IText=(UBYTE *)"  INDIANA AVENUE";
  527.    msg1.IText=(UBYTE *)"    is owned by:";
  528.    msg3.IText=(UBYTE *)"Original cost:  $220.";
  529.    msg4.IText=(UBYTE *)"Mortgage value: $110.";
  530.    msg5.IText=(UBYTE *)"Rent -          $18.";
  531.    msg6.IText=(UBYTE *)"Rent - 1 house  $90.";
  532.    msg7.IText=(UBYTE *)"Rent - 2 houses $250.";
  533.    msg8.IText=(UBYTE *)"Rent - 3 houses $700.";
  534.    msg9.IText=(UBYTE *)"Rent - 4 houses $875.";
  535.    msg10.IText=(UBYTE *)"Rent -   hotel  $1050.";
  536.    msg11.IText=(UBYTE *)"Each house costs $150.";
  537.    goto expage;
  538.    }
  539. if (listproppage == 13)
  540.    {
  541.    msg0.FrontPen=red;
  542.    msg1.FrontPen=red;
  543.    msg3.FrontPen=red;
  544.    msg4.FrontPen=red;
  545.    msg0.IText=(UBYTE *)"  ILLINOIS AVENUE";
  546.    msg1.IText=(UBYTE *)"    is owned by:";
  547.    msg3.IText=(UBYTE *)"Original cost:  $240.";
  548.    msg4.IText=(UBYTE *)"Mortgage value: $120.";
  549.    msg5.IText=(UBYTE *)"Rent -          $20.";
  550.    msg6.IText=(UBYTE *)"Rent - 1 house  $100.";
  551.    msg7.IText=(UBYTE *)"Rent - 2 houses $300.";
  552.    msg8.IText=(UBYTE *)"Rent - 3 houses $750.";
  553.    msg9.IText=(UBYTE *)"Rent - 4 houses $925.";
  554.    msg10.IText=(UBYTE *)"Rent -   hotel  $1100.";
  555.    msg11.IText=(UBYTE *)"Each house costs $150.";
  556.    }
  557. if (listproppage == 14)
  558.    {
  559.    msg0.FrontPen=yellow;
  560.    msg1.FrontPen=yellow;
  561.    msg3.FrontPen=yellow;
  562.    msg4.FrontPen=yellow;
  563.    msg0.IText=(UBYTE *)"  ATLANTIC AVENUE";
  564.    msg1.IText=(UBYTE *)"    is owned by:";
  565.    msg3.IText=(UBYTE *)"Original cost:  $260.";
  566.    msg4.IText=(UBYTE *)"Mortgage value: $130.";
  567.    msg5.IText=(UBYTE *)"Rent -          $22.";
  568.    msg6.IText=(UBYTE *)"Rent - 1 house  $110.";
  569.    msg7.IText=(UBYTE *)"Rent - 2 houses $330.";
  570.    msg8.IText=(UBYTE *)"Rent - 3 houses $800.";
  571.    msg9.IText=(UBYTE *)"Rent - 4 houses $975.";
  572.    msg10.IText=(UBYTE *)"Rent -   hotel  $1150.";
  573.    msg11.IText=(UBYTE *)"Each house costs $150.";
  574.    goto expage;
  575.    }
  576. if (listproppage == 15)
  577.    {
  578.    msg0.FrontPen=yellow;
  579.    msg1.FrontPen=yellow;
  580.    msg3.FrontPen=yellow;
  581.    msg4.FrontPen=yellow;
  582.    msg0.IText=(UBYTE *)"  VENTNOR AVENUE";
  583.    msg1.IText=(UBYTE *)"    is owned by:";
  584.    msg3.IText=(UBYTE *)"Original cost:  $260.";
  585.    msg4.IText=(UBYTE *)"Mortgage value: $130.";
  586.    msg5.IText=(UBYTE *)"Rent -          $22.";
  587.    msg6.IText=(UBYTE *)"Rent - 1 house  $110.";
  588.    msg7.IText=(UBYTE *)"Rent - 2 houses $330.";
  589.    msg8.IText=(UBYTE *)"Rent - 3 houses $800.";
  590.    msg9.IText=(UBYTE *)"Rent - 4 houses $975.";
  591.    msg10.IText=(UBYTE *)"Rent -   hotel  $1150.";
  592.    msg11.IText=(UBYTE *)"Each house costs $150.";
  593.    }
  594. if (listproppage == 16)
  595.    {
  596.    msg0.FrontPen=yellow;
  597.    msg1.FrontPen=yellow;
  598.    msg3.FrontPen=yellow;
  599.    msg4.FrontPen=yellow;
  600.    msg0.IText=(UBYTE *)"  MARVIN GARDINS";
  601.    msg1.IText=(UBYTE *)"    is owned by:";
  602.    msg3.IText=(UBYTE *)"Original cost:  $280.";
  603.    msg4.IText=(UBYTE *)"Mortgage value: $140.";
  604.    msg5.IText=(UBYTE *)"Rent -          $24.";
  605.    msg6.IText=(UBYTE *)"Rent - 1 house  $120.";
  606.    msg7.IText=(UBYTE *)"Rent - 2 houses $360.";
  607.    msg8.IText=(UBYTE *)"Rent - 3 houses $850.";
  608.    msg9.IText=(UBYTE *)"Rent - 4 houses $1025.";
  609.    msg10.IText=(UBYTE *)"Rent -   hotel  $1200.";
  610.    msg11.IText=(UBYTE *)"Each house costs $150.";
  611.    goto expage;
  612.    }
  613. if (listproppage == 17)
  614.    {
  615.    msg0.FrontPen=green;
  616.    msg1.FrontPen=green;
  617.    msg3.FrontPen=green;
  618.    msg4.FrontPen=green;
  619.    msg0.IText=(UBYTE *)"  PACIFIC AVENUE";
  620.    msg1.IText=(UBYTE *)"    is owned by:";
  621.    msg3.IText=(UBYTE *)"Original cost:  $300.";
  622.    msg4.IText=(UBYTE *)"Mortgage value: $150.";
  623.    msg5.IText=(UBYTE *)"Rent -          $26.";
  624.    msg6.IText=(UBYTE *)"Rent - 1 house  $130.";
  625.    msg7.IText=(UBYTE *)"Rent - 2 houses $390.";
  626.    msg8.IText=(UBYTE *)"Rent - 3 houses $900.";
  627.    msg9.IText=(UBYTE *)"Rent - 4 houses $1100.";
  628.    msg10.IText=(UBYTE *)"Rent -   hotel  $1275.";
  629.    msg11.IText=(UBYTE *)"Each house costs $200.";
  630.    goto expage;
  631.    }
  632. if (listproppage == 18)
  633.    {
  634.    msg0.FrontPen=green;
  635.    msg1.FrontPen=green;
  636.    msg3.FrontPen=green;
  637.    msg4.FrontPen=green;
  638.    msg0.IText=(UBYTE *)"NORTH CAROLINA AVENUE";
  639.    msg1.IText=(UBYTE *)"    is owned by:";
  640.    msg3.IText=(UBYTE *)"Original cost:  $300.";
  641.    msg4.IText=(UBYTE *)"Mortgage value: $150.";
  642.    msg5.IText=(UBYTE *)"Rent -          $26.";
  643.    msg6.IText=(UBYTE *)"Rent - 1 house  $130.";
  644.    msg7.IText=(UBYTE *)"Rent - 2 houses $390.";
  645.    msg8.IText=(UBYTE *)"Rent - 3 houses $900.";
  646.    msg9.IText=(UBYTE *)"Rent - 4 houses $1100.";
  647.    msg10.IText=(UBYTE *)"Rent -   hotel  $1275.";
  648.    msg11.IText=(UBYTE *)"Each house costs $200.";
  649.    goto expage;
  650.    }
  651. if (listproppage == 19)
  652.    {
  653.    msg0.FrontPen=green;
  654.    msg1.FrontPen=green;
  655.    msg3.FrontPen=green;
  656.    msg4.FrontPen=green;
  657.    msg0.IText=(UBYTE *)" PENNSYLVANIA AVENUE";
  658.    msg1.IText=(UBYTE *)"    is owned by:";
  659.    msg3.IText=(UBYTE *)"Original cost:  $320.";
  660.    msg4.IText=(UBYTE *)"Mortgage value: $160.";
  661.    msg5.IText=(UBYTE *)"Rent -          $28.";
  662.    msg6.IText=(UBYTE *)"Rent - 1 house  $150.";
  663.    msg7.IText=(UBYTE *)"Rent - 2 houses $450.";
  664.    msg8.IText=(UBYTE *)"Rent - 3 houses $1000.";
  665.    msg9.IText=(UBYTE *)"Rent - 4 houses $1200.";
  666.    msg10.IText=(UBYTE *)"Rent -   hotel  $1400.";
  667.    msg11.IText=(UBYTE *)"Each house costs $200.";
  668.    goto expage;
  669.    }
  670. if (listproppage == 20)
  671.    {
  672.    msg0.FrontPen=dk_blue;
  673.    msg1.FrontPen=dk_blue;
  674.    msg3.FrontPen=dk_blue;
  675.    msg4.FrontPen=dk_blue;
  676.    msg0.IText=(UBYTE *)"     PARK PLACE";
  677.    msg1.IText=(UBYTE *)"    is owned by:";
  678.    msg3.IText=(UBYTE *)"Original cost:  $350.";
  679.    msg4.IText=(UBYTE *)"Mortgage value: $175.";
  680.    msg5.IText=(UBYTE *)"Rent -          $35.";
  681.    msg6.IText=(UBYTE *)"Rent - 1 house  $175.";
  682.    msg7.IText=(UBYTE *)"Rent - 2 houses $500.";
  683.    msg8.IText=(UBYTE *)"Rent - 3 houses $1100.";
  684.    msg9.IText=(UBYTE *)"Rent - 4 houses $1300.";
  685.    msg10.IText=(UBYTE *)"Rent -   hotel  $1500.";
  686.    msg11.IText=(UBYTE *)"Each house costs $200.";
  687.    goto expage;
  688.    }
  689. if (listproppage == 21)
  690.    {
  691.    msg0.FrontPen=dk_blue;
  692.    msg1.FrontPen=dk_blue;
  693.    msg3.FrontPen=dk_blue;
  694.    msg4.FrontPen=dk_blue;
  695.    msg0.IText=(UBYTE *)"     BOARDWALK";
  696.    msg1.IText=(UBYTE *)"    is owned by:";
  697.    msg3.IText=(UBYTE *)"Original cost:  $400.";
  698.    msg4.IText=(UBYTE *)"Mortgage value: $200.";
  699.    msg5.IText=(UBYTE *)"Rent -          $50.";
  700.    msg6.IText=(UBYTE *)"Rent - 1 house  $200.";
  701.    msg7.IText=(UBYTE *)"Rent - 2 houses $600.";
  702.    msg8.IText=(UBYTE *)"Rent - 3 houses $1400.";
  703.    msg9.IText=(UBYTE *)"Rent - 4 houses $1700.";
  704.    msg10.IText=(UBYTE *)"Rent -   hotel  $2000.";
  705.    msg11.IText=(UBYTE *)"Each house costs $200.";
  706.    goto expage;
  707.    }
  708. if (listproppage == 22)
  709.    {
  710.    msg0.FrontPen=dk_gray;
  711.    msg1.FrontPen=dk_gray;
  712.    msg3.FrontPen=dk_gray;
  713.    msg4.FrontPen=dk_gray;
  714.    msg0.IText=(UBYTE *)"  READING RAILROAD";
  715.    msg1.IText=(UBYTE *)"    is owned by:";
  716.    msg3.IText=(UBYTE *)"Original cost:  $200.";
  717.    msg4.IText=(UBYTE *)"Mortgage value: $100.";
  718.    msg5.IText=(UBYTE *)"Rent -          $25.";
  719.    msg6.IText=(UBYTE *)"Rent - 2 RR's   $50.";
  720.    msg7.IText=(UBYTE *)"Rent - 3 RR's   $100.";
  721.    msg8.IText=(UBYTE *)"Rent - 4 RR's   $200.";
  722.    msg8.NextText=NULL;
  723.    msg9.NextText=NULL;
  724.    goto expage;
  725.    }
  726. if (listproppage == 23)
  727.    {
  728.    msg0.FrontPen=dk_gray;
  729.    msg1.FrontPen=dk_gray;
  730.    msg3.FrontPen=dk_gray;
  731.    msg4.FrontPen=dk_gray;
  732.    msg0.IText=(UBYTE *)"PENNSYLVANIA RAILROAD";
  733.    msg1.IText=(UBYTE *)"    is owned by:";
  734.    msg3.IText=(UBYTE *)"Original cost:  $200.";
  735.    msg4.IText=(UBYTE *)"Mortgage value: $100.";
  736.    msg5.IText=(UBYTE *)"Rent -          $25.";
  737.    msg6.IText=(UBYTE *)"Rent - 2 RR's   $50.";
  738.    msg7.IText=(UBYTE *)"Rent - 3 RR's   $100.";
  739.    msg8.IText=(UBYTE *)"Rent - 4 RR's   $200.";
  740.    msg8.NextText=NULL;
  741.    msg9.NextText=NULL;
  742.    goto expage;
  743.    }
  744. if (listproppage == 24)
  745.    {
  746.    msg0.FrontPen=dk_gray;
  747.    msg1.FrontPen=dk_gray;
  748.    msg3.FrontPen=dk_gray;
  749.    msg4.FrontPen=dk_gray;
  750.    msg0.IText=(UBYTE *)"  B. & O. RAILROAD";
  751.    msg1.IText=(UBYTE *)"    is owned by:";
  752.    msg3.IText=(UBYTE *)"Original cost:  $200.";
  753.    msg4.IText=(UBYTE *)"Mortgage value: $100.";
  754.    msg5.IText=(UBYTE *)"Rent -          $25.";
  755.    msg6.IText=(UBYTE *)"Rent - 2 RR's   $50.";
  756.    msg7.IText=(UBYTE *)"Rent - 3 RR's   $100.";
  757.    msg8.IText=(UBYTE *)"Rent - 4 RR's   $200.";
  758.    msg8.NextText=NULL;
  759.    msg9.NextText=NULL;
  760.    goto expage;
  761.    }
  762. if (listproppage == 25)
  763.    {
  764.    msg0.FrontPen=dk_gray;
  765.    msg1.FrontPen=dk_gray;
  766.    msg3.FrontPen=dk_gray;
  767.    msg4.FrontPen=dk_gray;
  768.    msg0.IText=(UBYTE *)"     SHORT LINE";
  769.    msg1.IText=(UBYTE *)"    is owned by:";
  770.    msg3.IText=(UBYTE *)"Original cost:  $200.";
  771.    msg4.IText=(UBYTE *)"Mortgage value: $100.";
  772.    msg5.IText=(UBYTE *)"Rent -          $25.";
  773.    msg6.IText=(UBYTE *)"Rent - 2 RR's   $50.";
  774.    msg7.IText=(UBYTE *)"Rent - 3 RR's   $100.";
  775.    msg8.IText=(UBYTE *)"Rent - 4 RR's   $200.";
  776.    msg8.NextText=NULL;
  777.    msg9.NextText=NULL;
  778.    goto expage;
  779.    }
  780. if (listproppage == 26)
  781.    {
  782.    msg0.FrontPen=dk_maroon;
  783.    msg1.FrontPen=dk_maroon;
  784.    msg3.FrontPen=dk_maroon;
  785.    msg4.FrontPen=dk_maroon;
  786.    msg0.IText=(UBYTE *)"  ELECTRIC COMPANY";
  787.    msg1.IText=(UBYTE *)"    is owned by:";
  788.    msg3.IText=(UBYTE *)"Original cost:  $150.";
  789.    msg4.IText=(UBYTE *)"Mortgage value: $75.";
  790.    msg5.IText=(UBYTE *)"If one utility owned";
  791.    msg6.IText=(UBYTE *)"pay 4 times dice roll.";
  792.    msg7.IText=(UBYTE *)"If both utilities owned";   
  793.    msg8.IText=(UBYTE *)"pay 10 times dice roll.";
  794.    if (owner[12] == owner[28])
  795.       {
  796.       msg5.FrontPen=green;
  797.       msg6.FrontPen=green;
  798.       msg7.FrontPen=red;
  799.       msg8.FrontPen=red;
  800.       }
  801.    else
  802.       {
  803.       msg5.FrontPen=red;
  804.       msg6.FrontPen=red;
  805.       msg7.FrontPen=green;
  806.       msg8.FrontPen=green;
  807.       }
  808.    if ( (owner[12] == 9) && (owner[28] == 9) )
  809.       {
  810.       msg5.FrontPen=green;
  811.       msg6.FrontPen=green;
  812.       msg7.FrontPen=green;
  813.       msg8.FrontPen=green;
  814.       }
  815.  
  816.    msg8.NextText=NULL;
  817.    msg9.NextText=NULL;
  818.    goto expage;
  819.    }
  820. if (listproppage == 27)
  821.    {
  822.    msg0.FrontPen=dk_maroon;
  823.    msg1.FrontPen=dk_maroon;
  824.    msg3.FrontPen=dk_maroon;
  825.    msg4.FrontPen=dk_maroon;
  826.    msg0.IText=(UBYTE *)"    WATER WORKS";
  827.    msg1.IText=(UBYTE *)"    is owned by:";
  828.    msg3.IText=(UBYTE *)"Original cost:  $150.";
  829.    msg4.IText=(UBYTE *)"Mortgage value: $75.";
  830.    msg4.IText=(UBYTE *)"Mortgage value: $75.";
  831.    msg5.IText=(UBYTE *)"If one utility owned";
  832.    msg6.IText=(UBYTE *)"pay 4 times dice roll.";
  833.    msg7.IText=(UBYTE *)"If both utilities owned";   
  834.    msg8.IText=(UBYTE *)"pay 10 times dice roll.";
  835.    if (owner[12] == owner[28])
  836.       {
  837.       msg5.FrontPen=green;
  838.       msg6.FrontPen=green;
  839.       msg7.FrontPen=red;
  840.       msg8.FrontPen=red;
  841.       }
  842.    else
  843.       {
  844.       msg5.FrontPen=red;
  845.       msg6.FrontPen=red;
  846.       msg7.FrontPen=green;
  847.       msg8.FrontPen=green;
  848.       }
  849.    if ( (owner[12] == 9) && (owner[28] == 9) )
  850.       {
  851.       msg5.FrontPen=green;
  852.       msg6.FrontPen=green;
  853.       msg7.FrontPen=green;
  854.       msg8.FrontPen=green;
  855.       }
  856.    msg8.NextText=NULL;
  857.    msg9.NextText=NULL;
  858.    }
  859. expage:
  860. SetAPen(rportlistprop, black);
  861. RectFill(rportlistprop, 0, 0, 193,142);
  862. PrintIText(rportlistprop, &msg0, 0, 0);
  863. if (ismorg[loc])  PrintIText(rportlistprop, &msg12, 0, 0);
  864. }
  865.  
  866.  
  867. VOID cklistpropmsg()
  868. {
  869. ULONG lclass;
  870. USHORT lcode;
  871. lclass=0;
  872. lcode=0;
  873.  
  874.  
  875. while (listpropmsg=(struct IntuiMessage *)GetMsg(listpropwindow->UserPort))
  876.    {
  877.    lclass = listpropmsg->Class;
  878.    lcode  = listpropmsg->Code;
  879.    ReplyMsg(listpropmsg);
  880.    if ( (lclass == RAWKEY) && (lcode == HELP) )    instruction();
  881.    if ( (lclass == MENUPICK) && (lcode != MENUNULL) )
  882.       {
  883.       if (MENUNUM(lcode) == 0)
  884.          {
  885.          if (ITEMNUM(lcode) == 0)  listproppage++;
  886.          if (ITEMNUM(lcode) == 1)  listproppage--;
  887.          if ( (ITEMNUM(lcode) == 1) || (ITEMNUM(lcode) == 0) )
  888.         {
  889.         if (listproppage > 27)  listproppage=0;
  890.             if (listproppage < 0)  listproppage=27;
  891.         }
  892.          if (ITEMNUM(lcode) == 2)  donelistprop=TRUE;
  893.          if (ITEMNUM(lcode) == 3) moneybags(SUBNUM(lcode));
  894.          }
  895.       if (MENUNUM(lcode) == 1)
  896.          {
  897.          if (ITEMNUM(lcode) == 0)
  898.             {
  899.             if (SUBNUM(lcode) == 0) listproppage=0;
  900.         if (SUBNUM(lcode) == 1) listproppage=1;
  901.         }
  902.          if (ITEMNUM(lcode) == 1)
  903.             {
  904.         if (SUBNUM(lcode) == 0) listproppage=2;
  905.         if (SUBNUM(lcode) == 1) listproppage=3;
  906.         if (SUBNUM(lcode) == 2) listproppage=4;
  907.         }
  908.          if (ITEMNUM(lcode) == 2)
  909.             {
  910.         if (SUBNUM(lcode) == 0) listproppage=5;
  911.         if (SUBNUM(lcode) == 1) listproppage=6;
  912.         if (SUBNUM(lcode) == 2) listproppage=7;
  913.         }
  914.          if (ITEMNUM(lcode) == 3)
  915.             {
  916.         if (SUBNUM(lcode) == 0) listproppage=8;
  917.         if (SUBNUM(lcode) == 1) listproppage=9;
  918.         if (SUBNUM(lcode) == 2) listproppage=10;
  919.         }
  920.          if (ITEMNUM(lcode) == 4)
  921.             {
  922.         if (SUBNUM(lcode) == 0) listproppage=11;
  923.         if (SUBNUM(lcode) == 1) listproppage=12;
  924.         if (SUBNUM(lcode) == 2) listproppage=13;
  925.         }
  926.          if (ITEMNUM(lcode) == 5)
  927.             {
  928.         if (SUBNUM(lcode) == 0) listproppage=14;
  929.         if (SUBNUM(lcode) == 1) listproppage=15;
  930.         if (SUBNUM(lcode) == 2) listproppage=16;
  931.         }
  932.          if (ITEMNUM(lcode) == 6)
  933.             {
  934.         if (SUBNUM(lcode) == 0) listproppage=17;
  935.         if (SUBNUM(lcode) == 1) listproppage=18;
  936.         if (SUBNUM(lcode) == 2) listproppage=19;
  937.         }
  938.          if (ITEMNUM(lcode) == 7)
  939.             {
  940.         if (SUBNUM(lcode) == 0) listproppage=20;
  941.         if (SUBNUM(lcode) == 1) listproppage=21;
  942.         }
  943.          if (ITEMNUM(lcode) == 8)
  944.             {
  945.         if (SUBNUM(lcode) == 0) listproppage=22;
  946.         if (SUBNUM(lcode) == 1) listproppage=23;
  947.         if (SUBNUM(lcode) == 2) listproppage=24;
  948.         if (SUBNUM(lcode) == 3) listproppage=25;
  949.         }
  950.          if (ITEMNUM(lcode) == 9)
  951.             {
  952.         if (SUBNUM(lcode) == 0) listproppage=26;
  953.         if (SUBNUM(lcode) == 1) listproppage=27;
  954.         }
  955.          }
  956.       } 
  957.    } 
  958. }
  959.  
  960. VOID viewdeeds()
  961. {
  962. USHORT hold_line;
  963.  
  964. nlistpropw.Screen=screen1;
  965. if ((listpropwindow=(struct Window *)OpenWindow(&nlistpropw))==NULL) cleanup();
  966. rportlistprop=listpropwindow->RPort;
  967.  
  968. line0_text=84;
  969. for (j=0, hold_line=line0_text; j<SHOW_LINES; j++)
  970.    instructIT[j].IText=instructline[hold_line++];
  971.  
  972. showlistpropinstructions();
  973.  
  974. listproppage=-1;
  975. oldlistproppage=-1;
  976. donelistprop=FALSE;
  977. while (!donelistprop)
  978.    {
  979.  
  980.    if (1<<listpropwindow->UserPort->mp_SigBit)  cklistpropmsg();
  981.    if (oldlistproppage != listproppage)   printlistproppage(); 
  982.    }
  983. ClearMenuStrip(listpropwindow);
  984. CloseWindow(listpropwindow);
  985. }
  986.  
  987.  
  988.