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