home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR8 / CALC_SRC.ZIP / ICALC.HLP < prev    next >
Text File  |  1993-06-22  |  4KB  |  133 lines
  1. // Monday, 29 March 1993
  2. /************************************************************************/
  3. /*
  4. Proc ErrorOut(String msg)  // a clean error exit for debugging
  5.  
  6.    PopWinClose()
  7.    PopWinClose()
  8.    Warn(msg)
  9.    Halt
  10. End
  11. */
  12.  
  13. /**************************** Help Screen *******************************/
  14.  
  15. Proc CalcHelp()      // minimum help.
  16.  
  17. Integer
  18.    OldAttr = Set(Attr,Query(MenuTextAttr))
  19.  
  20. HelpFlag = True   // let GetInput know to trap keys entered here.
  21. PopWinOpen(1,1,42,25,1,'Calculator Help',Query(MenuBorderAttr))
  22. VgotoXY(1,1)
  23. ClrScr()
  24. /* Put help text in help box */
  25. VgotoXY(1,2)                              // get video cursor in box
  26. PutLine('Active function keys are hi-lighted',40)
  27.  
  28. VgotoXY(1,4)
  29. PutLine('Stack Manipulation:',40)
  30. VgotoXY(1,5)
  31. PutLine('Last X  XY   RollUp   RollDn',40)
  32. VgotoXY(1,6)
  33. PutLine('Enter: Place X in Y',40)
  34.  
  35. VgotoXY(1,8)
  36. PutLine('Base Toggles:',40)
  37. VgotoXY(1,9)
  38. PutLine('Hex,  W: Binary,  Octal,  T: Decimal',40)
  39.  
  40. VgotoXY(1,11)
  41. PutLine('Editing:',40)
  42. VgotoXY(1,12)
  43. PutLine('Backspace: Delete X register Rt to Lt.',40)
  44. VgotoXY(1,13)
  45. PutLine('Delete: Clear X,    Clear Stack',40)
  46.  
  47. VgotoXY(1,15)
  48. PutLine('Math:',40)
  49. VgotoXY(1,16)
  50. PutLine('< Shl  > Shr  & And  | Or  ^ Xor  Not',40)
  51. VgotoXY(1,17)
  52. PutLine('+ Add  - Subtract  * Multiply  / Divide',40)
  53. VgotoXY(1,18)
  54. PutLine('\ Mod',40)
  55.  
  56. VgotoXY(1,20)
  57. PutLine('Other:',40)
  58. VgotoXY(1,21)
  59. PutLine('Get number under cursor into X',40)
  60. VgotoXY(1,22)
  61. PutLine('Paste X into Current edit buffer',40)
  62.  
  63. VgotoXY(1,23)
  64. PutLine('Word size [0FEDCBA987654321] (0=10h)',40)
  65.  
  66. /* Highlight the hotkeys */
  67. VGotoXY(1,5)
  68. PutAttr(Query(MenuTextLtrAttr),1)   //LastX
  69. VGotoXY(10,5)
  70. PutAttr(Query(MenuTextLtrAttr),2)   // x<>y
  71. VGotoXY(15,5)
  72. PutAttr(Query(MenuTextLtrAttr),1)   // rollup
  73. VGotoXY(25,5)
  74. PutAttr(Query(MenuTextLtrAttr),1)   // rolldn
  75. VGotoXY(1,6)
  76. PutAttr(Query(MenuTextLtrAttr),5)   // Enter
  77.  
  78. VGotoXY(3,9)
  79. PutAttr(Query(MenuTextLtrAttr),1)   // hex
  80. VGotoXY(7,9)
  81. PutAttr(Query(MenuTextLtrAttr),1)   // binary
  82. VGotoXY(19,9)
  83. PutAttr(Query(MenuTextLtrAttr),1)   // octal
  84. VGotoXY(27,9)
  85. PutAttr(Query(MenuTextLtrAttr),1)   // decimal
  86.  
  87. VGotoXY(1,12)
  88. PutAttr(Query(MenuTextLtrAttr),9)   // backspace
  89. VGotoXY(1,13)
  90. PutAttr(Query(MenuTextLtrAttr),6)   // delete
  91. VGotoXY(27,13)
  92. PutAttr(Query(MenuTextLtrAttr),1)   // Clear stack
  93.  
  94.  
  95. VGotoXY(1,16)
  96. PutAttr(Query(MenuTextLtrAttr),1)   // <
  97. VGotoXY(8,16)
  98. PutAttr(Query(MenuTextLtrAttr),1)   // >
  99. VGotoXY(15,16)
  100. PutAttr(Query(MenuTextLtrAttr),1)   // &
  101. VGotoXY(22,16)
  102. PutAttr(Query(MenuTextLtrAttr),1)   // |
  103. VGotoXY(28,16)
  104. PutAttr(Query(MenuTextLtrAttr),1)   // ^
  105. VGotoXY(35,16)
  106. PutAttr(Query(MenuTextLtrAttr),1)   // Not
  107.  
  108. VGotoXY(1,17)
  109. PutAttr(Query(MenuTextLtrAttr),1)   // +
  110. VGotoXY(8,17)
  111. PutAttr(Query(MenuTextLtrAttr),1)   // -
  112. VGotoXY(20,17)
  113. PutAttr(Query(MenuTextLtrAttr),1)   // *
  114. VGotoXY(32,17)
  115. PutAttr(Query(MenuTextLtrAttr),1)   // '/'
  116. VGotoXY(1,18)
  117. PutAttr(Query(MenuTextLtrAttr),1)   // MOD
  118.  
  119. VGotoXY(1,21)
  120. PutAttr(Query(MenuTextLtrAttr),1)   // Get
  121. VGotoXY(1,22)
  122. PutAttr(Query(MenuTextLtrAttr),1)   // Paste
  123.  
  124. VGotoXY(3,23)
  125. PutAttr(Query(MenuTextLtrAttr),1)   // WordSize
  126.  
  127. Repeat until keypressed()           // keep waiting for a keypress
  128. Set(Attr,OldAttr)                   // restore previous attr
  129. PopWinClose()                 // close up the box
  130. UpdateRegs()                  // update regs - completes partial ops
  131. End
  132.  
  133. /*************************** EOF 'calc.inc' *****************************/