home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol159 / test3.pgn < prev    next >
Encoding:
Text File  |  1985-03-23  |  1.9 KB  |  181 lines
  1. TOP
  2. BYTE XX
  3. INT IAA
  4. INT IBB
  5. INT ICC
  6. INT IDD
  7. INT IEE
  8. BEGINMAIN(AC,IAV)
  9.     MS 'BEGIN T03'
  10. IAA=+10001
  11. IBB=+10002
  12. XX=IAA==IBB
  13. IF XX
  14.     MS '==FAILS!='
  15.     MS 'OR IF  OR'
  16.     MS 'DEFINITIN'
  17. ENDIF
  18. MS '111111111'
  19. IBB=+10001
  20. XX=IAA==IBB
  21. IF XX
  22. ELSE
  23.     MS '==FAILS=='
  24. ENDIF
  25. XX=IAA!=IBB
  26. IF XX
  27.     MS '!=FAILS=='
  28. ENDIF
  29. MS '333333333'
  30. MS '222222222'
  31. IBB=+10005
  32. XX=IAA!=IBB
  33. IF XX
  34. ELSE
  35.     MS '!=FAILS!='
  36. ENDIF
  37. MS '444444444'
  38. IBB=+10001
  39. XX=IAA<!IBB
  40. IF XX
  41.     MS '<!FAILS=='
  42. ENDIF
  43. MS '555555555'
  44. IBB=+10002
  45. XX=IBB<!IAA
  46. IF XX
  47.     MS '<!FAILS!>'
  48. ENDIF
  49. MS '666666666'
  50. XX=IAA<!IBB
  51. IF XX
  52. ELSE
  53.     MS '<!FAILS<!'
  54. ENDIF
  55. MS '777777777'
  56. XX=IBB<=IAA
  57. IF XX
  58.     MS '<=FAILS>!'
  59. ENDIF
  60. MS '888888888'
  61. IBB=+10001
  62. XX=IAA<=IBB
  63. IF XX
  64. ELSE
  65.     MS '<=FAILS=='
  66. ENDIF
  67. MS '999999999'
  68. IBB=+10002
  69. XX=IAA<=IBB
  70. IF XX
  71. ELSE
  72.     MS '<=FAILS<!'
  73. ENDIF
  74. MS '000000000'
  75. IAA++
  76. XX=IAA!=IBB
  77. IF XX
  78.     MS '++FAILS..'
  79. ENDIF
  80. MS 'AAAAAAAAA'
  81. IAA++
  82. IAA--
  83. XX=IAA!=IBB
  84. IF XX
  85.     MS '--FAILS..'
  86. ENDIF
  87. MS 'BBBBBBBBB'
  88. IAA=+10050
  89. IBB=+10064
  90. IDD=IAA+IBB
  91. IEE=+20114
  92. XX=IDD!=IEE
  93. IF XX
  94.     MS 'ADS...+++'
  95. ENDIF
  96. MS 'CCCCCCCCC'
  97. ICC=+10000
  98. IBB=+10050
  99. IDD=IBB-IAA
  100. IAA=+00000
  101. XX=IAA!=IDD
  102. IF XX
  103.     MS 'SUB...+-+'
  104. ENDIF
  105. MS 'DDDDDDDDD'
  106. IAA=+00000
  107. IBB=+10050
  108. ICC=IAA-IBB
  109. IBB=+10064
  110. IDD=IAA-IBB
  111. IBB=+20114
  112. IEE=IAA-IBB
  113. IBB=ICC+IDD
  114. XX=IBB!=IEE
  115. IF XX
  116.     MS 'ADS...-+-'
  117. ENDIF
  118. MS 'EEEEEEEEE'
  119. IBB=ICC-IDD
  120. IEE=+00014
  121. XX=IEE!=IBB
  122. IF XX
  123.     MS 'SUB---=>+'
  124. ENDIF
  125. MS 'FFFFFFFFF'
  126. IBB=IDD-ICC
  127. IAA=+00000
  128. ICC=IAA-IEE
  129. XX=IBB!=ICC
  130. IF XX
  131.     MS 'SUB---=>-'
  132. ENDIF
  133. MS 'GGGGGGGGG'
  134. IAA=+10001
  135. IBB=+10003
  136. IAA=IAA+IBB
  137. ICC=+20004
  138. XX=ICC!=IAA
  139. IF XX
  140.     MS 'ADS.X=X+.'
  141. ENDIF
  142. MS 'HHHHHHHHH'
  143. IBB=IAA+IBB
  144. ICC=+30007
  145. XX=ICC!=IBB
  146. IF XX
  147.     MS 'ADS.X=.+X'
  148. ENDIF
  149. MS 'IIIIIIIII'
  150. ICC=ICC+ICC
  151. IBB=+60014
  152. XX=IBB!=ICC
  153. IF XX
  154.     MS 'ADS.X=X+X'
  155. ENDIF
  156. MS 'JJJJJJJJJ'
  157. IAA=+10009
  158. IBB=+10005
  159. IAA=IAA-IBB
  160. ICC=+00004
  161. XX=ICC!=IAA
  162. IF XX
  163.     MS 'SUB.X=X-.'
  164. ENDIF
  165. MS 'KKKKKKKKK'
  166. IAA=+10009
  167. IBB=IAA-IBB
  168. XX=ICC!=IBB
  169. IF XX
  170.     MS 'SUB.X=.-X'
  171. ENDIF
  172. MS 'LLLLLLLLL'
  173. IAA=IAA-IAA
  174. IBB=+00000
  175. XX=IAA!=IBB
  176. IF XX
  177.     MS 'SUB.X=X-X'
  178. ENDIF
  179. ENDMAIN
  180. BOTTOM
  181.