home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / dos_misc / qcalc113.zip / STACK.QC < prev    next >
Text File  |  1991-10-30  |  8KB  |  183 lines

  1.  
  2. ;
  3. ; Performs various boundry/stack tests on QCALC ...
  4. ;
  5.  
  6. #Testing for variable overflow...  Hit a key when ready.
  7. ~
  8.  
  9. /eh
  10.  
  11. a:1
  12. b:a+((((((((((((((((((((1))))))))))))))))))))
  13. c:b+((((((((((((((((((((1))))))))))))))))))))
  14. d:c+((((((((((((((((((((1))))))))))))))))))))
  15. f:d+((((((((((((((((((((1))))))))))))))))))))
  16. g:f+((((((((((((((((((((1))))))))))))))))))))
  17. h:g+((((((((((((((((((((1))))))))))))))))))))
  18. i:h+((((((((((((((((((((1))))))))))))))))))))
  19. j:i+((((((((((((((((((((1))))))))))))))))))))
  20. k:j+((((((((((((((((((((1))))))))))))))))))))
  21. l:k+((((((((((((((((((((1))))))))))))))))))))
  22. m:l+((((((((((((((((((((1))))))))))))))))))))
  23. n:m+((((((((((((((((((((1))))))))))))))))))))
  24. o:n+((((((((((((((((((((1))))))))))))))))))))
  25. p:o+((((((((((((((((((((1))))))))))))))))))))
  26. q:p+((((((((((((((((((((1))))))))))))))))))))
  27. r:q+((((((((((((((((((((1))))))))))))))))))))
  28. s:r+((((((((((((((((((((1))))))))))))))))))))
  29. t:s+((((((((((((((((((((1))))))))))))))))))))
  30. u:t+((((((((((((((((((((1))))))))))))))))))))
  31. v:u+((((((((((((((((((((1))))))))))))))))))))
  32. w:v+((((((((((((((((((((1))))))))))))))))))))
  33. x:w+((((((((((((((((((((1))))))))))))))))))))
  34. y:x+((((((((((((((((((((1))))))))))))))))))))
  35. z:y+((((((((((((((((((((1))))))))))))))))))))
  36. aa:z+((((((((((((((((((((1))))))))))))))))))))
  37. ab:aa+((((((((((((((((((((1))))))))))))))))))))
  38. ac:ab+((((((((((((((((((((1))))))))))))))))))))
  39. ad:ac+((((((((((((((((((((1))))))))))))))))))))
  40. ae:ad+((((((((((((((((((((1))))))))))))))))))))
  41. af:ae+((((((((((((((((((((1))))))))))))))))))))
  42. ag:af+((((((((((((((((((((1))))))))))))))))))))
  43. ah:ag+((((((((((((((((((((1))))))))))))))))))))
  44. ai:ah+((((((((((((((((((((1))))))))))))))))))))
  45. aj:ai+((((((((((((((((((((1))))))))))))))))))))
  46. ak:aj+((((((((((((((((((((1))))))))))))))))))))
  47. al:ak+((((((((((((((((((((1))))))))))))))))))))
  48. am:al+((((((((((((((((((((1))))))))))))))))))))
  49. an:am+((((((((((((((((((((1))))))))))))))))))))
  50. ao:an+((((((((((((((((((((1))))))))))))))))))))
  51. ap:ao+((((((((((((((((((((1))))))))))))))))))))
  52. aq:ap+((((((((((((((((((((1))))))))))))))))))))
  53. ar:aq+((((((((((((((((((((1))))))))))))))))))))
  54. as:ar+((((((((((((((((((((1))))))))))))))))))))
  55. at:as+((((((((((((((((((((1))))))))))))))))))))
  56. au:at+((((((((((((((((((((1))))))))))))))))))))
  57. av:au+((((((((((((((((((((1))))))))))))))))))))
  58. aw:av+((((((((((((((((((((1))))))))))))))))))))
  59. ax:aw+((((((((((((((((((((1))))))))))))))))))))
  60. ay:ax+((((((((((((((((((((1))))))))))))))))))))
  61. az:ay+((((((((((((((((((((1))))))))))))))))))))
  62. ba:az+((((((((((((((((((((1))))))))))))))))))))
  63. bb:ba+((((((((((((((((((((1))))))))))))))))))))
  64. bc:bb+((((((((((((((((((((1))))))))))))))))))))
  65. bd:bc+((((((((((((((((((((1))))))))))))))))))))
  66. be:bd+((((((((((((((((((((1))))))))))))))))))))
  67. bf:be+((((((((((((((((((((1))))))))))))))))))))
  68. bg:bf+((((((((((((((((((((1))))))))))))))))))))
  69. bh:bg+((((((((((((((((((((1))))))))))))))))))))
  70. bi:bh+((((((((((((((((((((1))))))))))))))))))))
  71. bj:bi+((((((((((((((((((((1))))))))))))))))))))
  72. bk:bj+((((((((((((((((((((1))))))))))))))))))))
  73. bl:bk+((((((((((((((((((((1))))))))))))))))))))
  74. bm:bl+((((((((((((((((((((1))))))))))))))))))))
  75. bn:bm+((((((((((((((((((((1))))))))))))))))))))
  76. bo:bn+((((((((((((((((((((1))))))))))))))))))))
  77. bp:bo+((((((((((((((((((((1))))))))))))))))))))
  78. bq:bp+((((((((((((((((((((1))))))))))))))))))))
  79. br:bq+((((((((((((((((((((1))))))))))))))))))))
  80. bs:br+((((((((((((((((((((1))))))))))))))))))))
  81. bt:bs+((((((((((((((((((((1))))))))))))))))))))
  82. bu:bt+((((((((((((((((((((1))))))))))))))))))))
  83. bv:bu+((((((((((((((((((((1))))))))))))))))))))
  84. bw:bv+((((((((((((((((((((1))))))))))))))))))))
  85. bx:bw+((((((((((((((((((((1))))))))))))))))))))
  86. by:bx+((((((((((((((((((((1))))))))))))))))))))
  87. bz:by+((((((((((((((((((((1))))))))))))))))))))
  88. ca:bz+((((((((((((((((((((1))))))))))))))))))))
  89. cb:ca+((((((((((((((((((((1))))))))))))))))))))
  90. cc:cb+((((((((((((((((((((1))))))))))))))))))))
  91. cd:cc+((((((((((((((((((((1))))))))))))))))))))
  92. ce:cd+((((((((((((((((((((1))))))))))))))))))))
  93. cf:ce+((((((((((((((((((((1))))))))))))))))))))
  94. cg:cf+((((((((((((((((((((1))))))))))))))))))))
  95. ch:cg+((((((((((((((((((((1))))))))))))))))))))
  96. ci:ch+((((((((((((((((((((1))))))))))))))))))))
  97. cj:ci+((((((((((((((((((((1))))))))))))))))))))
  98. ck:cj+((((((((((((((((((((1))))))))))))))))))))
  99. cl:ck+((((((((((((((((((((1))))))))))))))))))))
  100. cm:cl+((((((((((((((((((((1))))))))))))))))))))
  101. cn:cm+((((((((((((((((((((1))))))))))))))))))))
  102. co:cn+((((((((((((((((((((1))))))))))))))))))))
  103. cp:co+((((((((((((((((((((1))))))))))))))))))))
  104. cq:cp+((((((((((((((((((((1))))))))))))))))))))
  105. cr:cq+((((((((((((((((((((1))))))))))))))))))))
  106. cs:cr+((((((((((((((((((((1))))))))))))))))))))
  107. ct:cs+((((((((((((((((((((1))))))))))))))))))))
  108. cu:ct+((((((((((((((((((((1))))))))))))))))))))
  109. cv:cu+((((((((((((((((((((1))))))))))))))))))))
  110. cw:cv+((((((((((((((((((((1))))))))))))))))))))
  111. cx:cw+((((((((((((((((((((1))))))))))))))))))))
  112. cy:cx+((((((((((((((((((((1))))))))))))))))))))
  113. cz:cy+((((((((((((((((((((1))))))))))))))))))))
  114. da:cz+((((((((((((((((((((1))))))))))))))))))))
  115. db:da+((((((((((((((((((((1))))))))))))))))))))
  116. dc:db+((((((((((((((((((((1))))))))))))))))))))
  117. dd:dc+((((((((((((((((((((1))))))))))))))))))))
  118. de:dd+((((((((((((((((((((1))))))))))))))))))))
  119. df:de+((((((((((((((((((((1))))))))))))))))))))
  120. dg:df+((((((((((((((((((((1))))))))))))))))))))
  121. dh:dg+((((((((((((((((((((1))))))))))))))))))))
  122. di:dh+((((((((((((((((((((1))))))))))))))))))))
  123. dj:di+((((((((((((((((((((1))))))))))))))))))))
  124. dk:dj+((((((((((((((((((((1))))))))))))))))))))
  125. dl:dk+((((((((((((((((((((1))))))))))))))))))))
  126. dm:dl+((((((((((((((((((((1))))))))))))))))))))
  127. dn:dm+((((((((((((((((((((1))))))))))))))))))))
  128. do:dn+((((((((((((((((((((1))))))))))))))))))))
  129. dp:do+((((((((((((((((((((1))))))))))))))))))))
  130. dq:dp+((((((((((((((((((((1))))))))))))))))))))
  131. dr:dq+((((((((((((((((((((1))))))))))))))))))))
  132. ds:dr+((((((((((((((((((((1))))))))))))))))))))
  133. dt:ds+((((((((((((((((((((1))))))))))))))))))))
  134. du:dt+((((((((((((((((((((1))))))))))))))))))))
  135. dv:du+((((((((((((((((((((1))))))))))))))))))))
  136. dw:dv+((((((((((((((((((((1))))))))))))))))))))
  137. dx:dw+((((((((((((((((((((1))))))))))))))))))))
  138. dy:dx+((((((((((((((((((((1))))))))))))))))))))
  139. dz:dy+((((((((((((((((((((1))))))))))))))))))))
  140. ea:dz+((((((((((((((((((((1))))))))))))))))))))
  141. eb:ea+((((((((((((((((((((1))))))))))))))))))))
  142. ec:eb+((((((((((((((((((((1))))))))))))))))))))
  143. ed:ec+((((((((((((((((((((1))))))))))))))))))))
  144. ee:ed+((((((((((((((((((((1))))))))))))))))))))
  145. ef:ee+((((((((((((((((((((1))))))))))))))))))))
  146. eg:ef+((((((((((((((((((((1))))))))))))))))))))
  147. eh:eg+((((((((((((((((((((1))))))))))))))))))))
  148. ei:eh+((((((((((((((((((((1))))))))))))))))))))
  149. ej:ei+((((((((((((((((((((1))))))))))))))))))))
  150. ek:ej+((((((((((((((((((((1))))))))))))))))))))
  151. el:ek+((((((((((((((((((((1))))))))))))))))))))
  152. em:el+((((((((((((((((((((1))))))))))))))))))))
  153. en:em+((((((((((((((((((((1))))))))))))))))))))
  154. eo:en+((((((((((((((((((((1))))))))))))))))))))
  155. ep:eo+((((((((((((((((((((1))))))))))))))))))))
  156. er:ep+((((((((((((((((((((1))))))))))))))))))))
  157. es:er+((((((((((((((((((((1))))))))))))))))))))
  158. et:es+((((((((((((((((((((1))))))))))))))))))))
  159. eu:et+((((((((((((((((((((1))))))))))))))))))))
  160. ev:eu+((((((((((((((((((((1))))))))))))))))))))
  161.  
  162. #
  163. # Finished 150 variables ... (hit a key)
  164. ~
  165. # Now testing for stack overflow on long lines ...
  166.  
  167. ;
  168. ; Stack overflow
  169. ;
  170.  
  171. #
  172. #The following numbers should match:
  173.  
  174. /op a:10
  175.  
  176. a*250 ; 250 a's follow
  177.  
  178. a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a+a
  179.  
  180. #
  181. # Finished line test.
  182.  
  183.